MEMBUAT PROGRAM SAMPLE DAFTAR PADA QUICK BASIC

DIM CABANG AS STRING
DIM APLIKAN AS SINGLE
DIM DAFTAR AS SINGLE
DIM UJIAN AS SINGLE
DIM LULUS AS SINGLE
DIM REGISTRASI AS SINGLE
DIM TAPLIKAN AS SINGLE
DIM TUJIAN AS SINGLE
DIM TREGISTRASI AS SINGLE
DIM CEK AS STRING
DIM NO AS INTEGER


CLS

PRINT "DAFTAR PENERIMAAN MAHASISWA BARU"
PRINT "TAHUN AKADEMIK 2011/2013"
PRINT "________________________________________________________________"
PRINT "| NO |   CABANG  | APLIKAN | DAFTAR | UJIAN | LULUS | REGISTRASI | "
PRINT "________________________________________________________________"
   F$ =  "|##   | \          \ |    ###      |    ###     |    ### |   ###  |    ###     | "
   T$ =  "|T O T A L         |    ###     |    ###      |  ###  |   ###   |    ###       | "
CEK = ""
NO  = 0
DO UNTIL CEK = "*"
       READ CABANG, APLIKAN, DAFTAR, UJIAN, LULUS, REGISTRASI, CEK
       NO = NO + 1
' CETAK ISI DATA
       PRINT USING F$; NO; CABANG; APLIKAN; DAFTAR; UJIAN; LULUS; REGISTRASI

'PROSES PENGHITUNGAN TOTAL
       TAPLIKAN = TAPLIKAN + APLIKAN
       TUJIAN = TUJIAN + UJIAN
       TLULUS = TLULUS + LULUS
       TDAFTAR = TDAFTAR + DAFTAR
       TREGISTRASI = TREGISTRASI + REGISTRASI

LOOP

'CETAK TOTAL
PRINT "_______________________________________________________________________"
PRINT USING T$; TAPLIKAN; TDAFTAR; TUJIAN; TLULUS; TREGISTRASI

DATA CILEGON, 100, 75, 70, 80, 75, 0
DATA CIMONE , 150, 50, 65, 90, 80, 0
DATA TASIKMALAYA, 300, 120, 100, 80, 75, *
END