home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / QMNU10.ZIP / SAMPLE1.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-04-05  |  2.0 KB  |  96 lines
  1. ' An example of using a menu for goto commands in a module.
  2. ' See MENUMAN.DOC for more information.
  3.  
  4. Main:
  5. CLS
  6. LOCATE 2, 20: PRINT CHR$(201); STRING$(38, 205); CHR$(187)
  7. FOR SIDE = 3 TO 21
  8. LOCATE SIDE, 20: PRINT CHR$(186); SPACE$(38); CHR$(186)
  9. NEXT
  10. LOCATE 22, 20: PRINT CHR$(200); STRING$(38, 205); CHR$(188)
  11. I = (62 - LEN(title$)) / 2
  12. LOCATE 4, 22: COLOR 15, 0: PRINT TAB(I); "SAMPLE FOR GOTO": COLOR 7, 0
  13. DIM Menu$(9)
  14. Menu$(1) = "≤ 1 ≥  GOTO LEVEL 1"
  15. Menu$(2) = "≤ 2 ≥  GOTO LEVEL 2"
  16. Menu$(3) = "≤ 3 ≥  GOTO LEVEL 3"
  17. Menu$(4) = "≤ 4 ≥  GOTO LEVEL 4"
  18. Menu$(5) = "≤ 5 ≥  GOTO LEVEL 5"
  19. Menu$(6) = "≤ 6 ≥  GOTO LEVEL 6"
  20. Menu$(7) = "≤ 7 ≥  GOTO LEVEL 7"
  21. Menu$(8) = "≤ 8 ≥  GOTO LEVEL 8"
  22. Menu$(9) = "≤ 9 ≥  QUIT PROGRAM"
  23. X = (56 - LEN(Menu$)) / 2
  24. FOR SET = 1 TO 9
  25. LOCATE SET + 8, 22: COLOR 15, 0: PRINT TAB(X); Menu$(SET): COLOR 7, 0
  26. NEXT
  27. DO: opt$ = INPUT$(1)
  28. LOOP WHILE INSTR("123456789", opt$) = 0
  29. SELECT CASE opt$
  30. CASE "1":  GOTO LEVEL1
  31. CASE "2":  GOTO LEVEL2
  32. CASE "3":  GOTO LEVEL3
  33. CASE "4":  GOTO LEVEL4
  34. CASE "5":  GOTO LEVEL5
  35. CASE "6":  GOTO LEVEL6
  36. CASE "7":  GOTO LEVEL7
  37. CASE "8":  GOTO LEVEL8
  38. CASE "9":  GOTO GoodBye
  39. END SELECT
  40.  
  41. LEVEL1:
  42. CLS
  43. LOCATE 2, 1: PRINT STRING$(55, 219); "  THIS IS LEVEL 1"
  44. SLEEP 10
  45. GOTO Main
  46.  
  47. LEVEL2:
  48. CLS
  49. LOCATE 4, 1: PRINT STRING$(55, 219); "  THIS IS LEVEL 2"
  50. SLEEP 10
  51. GOTO Main
  52.  
  53. LEVEL3:
  54. CLS
  55. LOCATE 6, 1: PRINT STRING$(55, 219); "  THIS IS LEVEL 3"
  56. SLEEP 10
  57. GOTO Main
  58.  
  59. LEVEL4:
  60. CLS
  61. LOCATE 8, 1: PRINT STRING$(55, 219); "  THIS IS LEVEL 4"
  62. SLEEP 10
  63. GOTO Main
  64.  
  65. LEVEL5:
  66. CLS
  67. LOCATE 10, 1: PRINT STRING$(55, 219); "  THIS IS LEVEL 5"
  68. SLEEP 10
  69. GOTO Main
  70.  
  71. LEVEL6:
  72. CLS
  73. LOCATE 12, 1: PRINT STRING$(55, 219); "  THIS IS LEVEL 6"
  74. SLEEP 10
  75. GOTO Main
  76.  
  77. LEVEL7:
  78. CLS
  79. LOCATE 12, 1: PRINT STRING$(55, 219); "  THIS IS LEVEL 7"
  80. SLEEP 10
  81. GOTO Main
  82.  
  83.  
  84. LEVEL8:
  85. CLS
  86. LOCATE 14, 1: PRINT STRING$(55, 219); "  THIS IS LEVEL 8"
  87. SLEEP 10
  88. GOTO Main
  89.  
  90. GoodBye:
  91. CLS
  92. LOCATE 14, 20: COLOR 0, 15: PRINT "     DEMO PROGRAM OVER    ": COLOR 15, 0
  93. SLEEP 10
  94. SYSTEM
  95.  
  96.