Bahasa xBase

Pada tahun 1980-an, Ashton-Tate memasarkan produk DBMS yang diberi nama dBase untuk komputer mikro, dengan demikian perusahaan kecil yang tidak mampu membeli komputer besar pada saat ini mempunyai kesempatan untuk membangun basisdata perusahaannya. Produk dBase sukses di pasaran sehingga banyak perusahaan lain yang menciptakan tiruan dBase, misalnya FoxBase yang kemudian menjadi FoxPro. Pada awal tahun 1990-an, Ashton-Tate kemudian melakukan tuntutan ke pengadilan akan haknya atas bahasa dBase, sayang sekali Ashton-Tate kemudian kalah, karena pada awalnya dBase ternyata diciptakan untuk keperluan badan ruang angkasa NASA, sehingga hak ciptanya telah berada ditangan pemerintah Amerika Serikat. Akhirnya pengadilan memutuskan bahwa dBase bukan milik Ashton-Tate dan sebaiknya dinamakan saja xBase.Berbagai bahasa DBMS dewasa ini masih memiliki kesamaan dengan xBase seperti dBase IV, FoxPro, Clipper, Visual dBase, Visual FoxPro, dsb. Berikut ini contoh program yang ditulis dengan dBase versi DOS.

******** contoh program xBase **********
SET ECHO OFF && baris program tidak ditampilkan
SET TALK OFF && hasil instruksi tidak tampil
SET COLOR TO +W/N && setting warna layar monitor
DO WHILE .T. && melakukan perulangan
CLEAR && bersihkan monitor
@ 8,30 SAY “M E N U U T A M A” && menampilkan menu
@12,30 SAY “ (T)ambah data “ && ketik T untuk tambah data
@14,30 SAY “ (E)dit data” && ketik E untuk edit data
@16,30 SAY “ (P)rint data” && ketik P untuk cetak data
@18,30 SAY “ e(X)it program” && ketik X untuk keluar
STORE “X” TO ANSWER && beri X pada variabel ANSWER
@20,37 GET ANSWER && minta jawaban
READ && baca keyboard

DO CASE && memilih kasus jawaban
CASE UPPER(ANSWER)=”T” && bila jawaban = T
USE CLIENTS && buka file CLIENTS
APPEND && lakukan tambah data
CLOSE DATABASE && tutup file
CASE UPPER(ANSWER)=”E” && bila jawaban = E
USE CLIENTS && buka file CLIENTS
EDIT && lakukan edit data
CLOSE DATABASE && tutup file
CASE UPPER(ANSWER)=”P” && bila jawaban = P
USE CLIENTS && buka file CLIENTS
LIST TO PRINT && cetak data ke printer
EJECT && pindah ke halaman baru
CLOSE DATABASE && tutup file
CASE UPPER(ANSWER)=”X” && bila jawaban = X
QUIT && keluar dari program
ENDCASE && akhir seleksi kasus
ENDDO && akhir perulangan
***************************************************************