Menu di QBasic

01. CLS
02. DIM Pilih AS INTEGER
03. PRINT "M E N U U T A M A"
04. PRINT "-------------------"
05. PRINT "1. Isi Data"
06. PRINT "2. Edit Data"
07. PRINT "3. Hapus Data"
08. PRINT "4. Keluar"
09. PRINT
10. n = 1
11. DIM Simbol AS STRING
12. Simbol = "|/-\"
13. DIM Tombol AS STRING
14. Tombol = "L"
15. DO
16. LOCATE 8, 38: PRINT MID$(Simbol, n, 1)
17. LOCATE 8, 38, 1, 7, 7
18. FOR j = 1 TO 100000
19. NEXT j
20. LOCATE 8, 1: PRINT "Masukkan nomer menu pilihan anda : "
21. Tombol = INKEY$
22. IF n <>
23. n = n + 1
24. ELSE
25. n = 1
26. END IF
27. LOOP UNTIL ((VAL(Tombol) >= 1) AND (VAL(Tombol) <= 4))
28. LOCATE 8, 38: PRINT Tombol