Membuat Menu dengan QBasic

Download program di sini.

Kode:

DIM menu1(6) AS STRINGmenu1(1) = " < TAMPIL > "    'Mengisi menumenu1(2) = " < TAMBAH > "menu1(3) = " < EDIT   > "menu1(4) = " < HAPUS  > "menu1(5) = " < FILTER > "menu1(6) = " < KELUAR > "COLOR 1, 3DO   CLS   COLOR 0, 3   COLOR 14, 4: LOCATE 13, 3: PRINT "            "  'Tampilan menu   COLOR 14, 4: LOCATE 4, 3: PRINT " MENU UTAMA "   FOR i = 1 TO 6      COLOR