Program sederhana Q Basic

berikut adalah contoh program sederhana yang menggunakan q-basic.

DIM nama(10) AS STRING

DIM alamat(10) AS STRING

DIM Npm(8) AS STRING

w:
CLS
PRINT " ***** MENU ***** "
PRINT " 1. BIODATA "
PRINT " 2. LUAS SEGITIGA "
PRINT " 3. KELUAR "
INPUT " PILIHAN [1 - 3]= "; PIL
SELECT CASE PIL
CASE 1
CLS
I = 1

f:

INPUT "NAMA = ", nama(I)
INPUT "ALAMAT = ", alamat(I)
INPUT "NPM = ", Npm(I)
INPUT "Datanya Sudah Bener ?", z$
IF z$ = "t" THEN GOTO f
INPUT "Tambah Data (y/t)?", g$
IF g$ = "y" THEN I = I + 1: GOTO f


CLS
PRINT TAB(8); "***** BIODATA *****": PRINT
PRINT "NAMA", "ALAMAT", "NPM": PRINT "------------------------------------"
FOR j = 1 TO I
PRINT nama(j), alamat(j), Npm(j)
NEXT j
INPUT "tekan enter untuk melanjutkan", s
GOTO w

END
CASE 2
CLS
I = 1
x:
INPUT "ALAS = ", a(I)
INPUT "TINGGI = ", t(I)
L(I) = (a(I) * t(I)) / 2
PRINT "LUAS ="; L(I)
INPUT "APAKAH DATA SUDAH BENAR ?(Y/T)= ", D$
IF D$ = "t" THEN : GOTO x
INPUT "MAU TAMBAH DATA ?(Y/T)= ", f$
IF f$ = "y" THEN I = I + 1: GOTO x
CLS
PRINT TAB(4); "***** LUAS SEGITIGA *****"
PRINT "ALAS", "TINGGI", "LUAS": PRINT "--------------------------------"
FOR j = 1 TO I
PRINT a(j), t(j), L(j)
NEXT j
INPUT "tekan enter untuk melanjutkan", s
GOTO w

END
CASE 3
PRINT
INPUT "MAU COBA LAGI ? (Y/T)", R$
IF R$ = "y" THEN GOTO w
END
END SELECT
END






semoga bermanfaat.^^