home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 14 / CDACTUAL.iso / cdactual / demobin / share / program / Basic / SCROLMEN.ZIP / SCROLMEN.BAS < prev   
Encoding:
BASIC Source File  |  1989-06-15  |  6.1 KB  |  167 lines
  1. 10 '* * * * * * * * * * * * * * Main Menu * * * * * * * * * * * * * * * * *
  2.  
  3. 20 '  * * * * * * * * Redefine Function keys and Clear Screen * * * * * * * *
  4.  
  5. 30      CLS
  6. 40      KEY 1, "1"
  7. 50      KEY 2, "2"
  8. 60      KEY 3, "3"
  9. 70      KEY 4, "4"
  10. 80      KEY 5, "5"
  11. 90      KEY 6, "6"
  12. 100     KEY 7, "7"
  13. 110     KEY 8, "8"
  14. 120     KEY 9, "9"
  15. 130     KEY 10, "10"
  16.  
  17. 140 '  * * * * * * * *  Demension and Define Variables * * * * * * * * * * *
  18.  
  19. 150   DIM HELPLINE1$(8), HELPLINE2$(8), B$(4), MENU$(8)
  20.  
  21. 160  B$(1) = "╔════════════════════════════════════════════════════════╗"
  22. 170  B$(2) = "║                                                        ║"
  23. 180  B$(3) = "║                                                        ║"
  24. 190  B$(4) = "╚════════════════════════════════════════════════════════╝"
  25.  
  26. 200      MENU$(1) = "(F1) Enter Player "
  27. 210      MENU$(2) = "(F2) Edit Player "
  28. 220      MENU$(3) = "(F3) View Player "
  29. 230      MENU$(4) = "(F4) Delete Player "
  30. 240      MENU$(5) = "(F5) Create Reports "
  31. 250      MENU$(6) = "(F6) Mailing Labels "
  32. 260      MENU$(7) = "(F7) System Utilities"
  33. 270      MENU$(8) = "(F8) Exit Program "
  34.  
  35. 280    HELPLINE1$(1) = "This Option will add new Players to the Database    "
  36.        HELPLINE2$(1) = "                                                    "
  37.  
  38. 300    HELPLINE1$(2) = " This Option will edit records of Players that      "
  39.        HELPLINE2$(2) = " are already in the Database                        "
  40.  
  41. 320    HELPLINE1$(3) = " This Option will allow you to view players from    "
  42.        HELPLINE2$(3) = " Database                                           "
  43.  
  44. 340    HELPLINE1$(4) = "This Option will allow you to delete players        "
  45.        HELPLINE2$(4) = "already in Database                                 "
  46.  
  47. 360    HELPLINE1$(5) = "This Option will allow you to create reports about  "
  48.        HELPLINE2$(5) = "players in the Database                             "
  49.  
  50. 380    HELPLINE1$(6) = "This Option will print Mailing Labels               "
  51.        HELPLINE2$(6) = "                                                    "
  52.  
  53. 400    HELPLINE1$(7) = " This Option will allow you to run several Utilites "
  54.        HELPLINE2$(7) = " like backup, copying and formating disks           "
  55.  
  56. 420    HELPLINE1$(8) = "This Option will end the program and return to DOS  "
  57.        HELPLINE2$(8) = "                                                    "
  58.  
  59. 440    OPTION.NUMBER = 1: LASTTIME = 49: ASCII.VALUE = 0: YN$ = INKEY$
  60.  
  61. 1000 '   * * * * * * * * * *  Main Program  * * * * * * * * * * * * * * * * *
  62.  
  63. 1010 GOSUB 3000: '    draw help box at bottom of screen
  64. 1020 GOSUB 4010: '    fill in the box with words
  65. 1030 GOSUB 6010: '    Draw Menu with Options
  66. 1040 GOSUB 5010: '    Put High Light on Option 1
  67.  
  68. 1050 '* * * * * * * * * * * Take Input from keyboard * * * * * * * * * * * *
  69.  
  70. 1060              LOCATE 15, 28: PRINT "Your Choice  ? "
  71. 1070              PICK$ = INKEY$
  72. 1080              IF PICK$ = "" THEN 1070
  73. 1090              ASCII.VALUE = ASC(RIGHT$(PICK$, 1))
  74.  
  75. 2000 ' * * * * * * * * Read ascii value of arrow keys and increase or decrease the variable Option.number which will move the highlight
  76.  
  77. 2010 IF ASCII.VALUE = 72 THEN OPTION.NUMBER = OPTION.NUMBER - 1: ' up
  78.      IF ASCII.VALUE = 80 THEN OPTION.NUMBER = OPTION.NUMBER + 1: ' down
  79.  
  80. 2030 IF ASCII.VALUE = 77 THEN OPTION.NUMBER = OPTION.NUMBER + 4: ' right
  81.      IF ASCII.VALUE = 75 THEN OPTION.NUMBER = OPTION.NUMBER - 4: ' left
  82.  
  83. 2050 IF OPTION.NUMBER >= 8 THEN OPTION.NUMBER = OPTION.NUMBER - 8
  84.      IF OPTION.NUMBER <= 0 THEN OPTION.NUMBER = OPTION.NUMBER + 8
  85.  
  86. 2060 ' * * * * * * * * If ascii value of function keys to run one of the menu options
  87.  
  88. 2070  IF ASCII.VALUE = 13 THEN ASCII.VALUE = LASTTIME
  89. 2080  IF ASCII.VALUE = 49 THEN RUN "prog1"
  90. 2090  IF ASCII.VALUE = 50 THEN RUN "prog2"
  91. 2100  IF ASCII.VALUE = 51 THEN RUN "prog3"
  92. 2110  IF ASCII.VALUE = 52 THEN RUN "prog4"
  93. 2120  IF ASCII.VALUE = 53 THEN RUN "prog5"
  94. 2130  IF ASCII.VALUE = 54 THEN RUN "prog6"
  95. 2140  IF ASCII.VALUE = 55 THEN RUN "prog7"
  96. 2150  IF ASCII.VALUE = 56 THEN GOTO 7000
  97.  
  98. 2160 GOSUB 4010: ' rewite the help lines in the box
  99. 2170 GOSUB 5010: ' move the highlight to next Option
  100.  
  101. 2180 LASTTIME = OPTION.NUMBER + 48
  102.  
  103. 2190 GOTO 1070: ' go back to read keyboard again
  104.  
  105. 3000 ' * * * * * * *  draw help box at bottom of screen * * * * * * * * * * *
  106.  
  107. 3010 LOCATE 19, 9: PRINT B$(1)
  108. 3020 LOCATE 20, 9: PRINT B$(2)
  109. 3030 LOCATE 21, 9: PRINT B$(3)
  110. 3040 LOCATE 22, 9: PRINT B$(4)
  111. 3050 RETURN
  112.  
  113. 4000 ' * * * * * * * *  Fill in words in the box * * * * * * * * * * * * * *
  114.  
  115. 4010 COLOR 7, 0
  116. 4020 LOCATE 20, 14: PRINT HELPLINE1$(OPTION.NUMBER)
  117. 4030 LOCATE 21, 14: PRINT HELPLINE2$(OPTION.NUMBER)
  118. 4040 RETURN
  119.  
  120.  
  121. 5000 ' * * * * * * * * Print Highlighted Menu Options  * * * * * * * * * * * *
  122.  
  123. 5010 GOSUB 6010: '  Reprint Menu Options
  124.  
  125. 5020 COLOR 0, 7: ' Turn on Highlight
  126.  
  127. 5030 IF OPTION.NUMBER = 1 THEN LOCATE 5, 15: PRINT MENU$(1)
  128. 5040 IF OPTION.NUMBER = 2 THEN LOCATE 7, 15: PRINT MENU$(2)
  129. 5050 IF OPTION.NUMBER = 3 THEN LOCATE 9, 15: PRINT MENU$(3)
  130. 5060 IF OPTION.NUMBER = 4 THEN LOCATE 11, 15: PRINT MENU$(4)
  131. 5070 IF OPTION.NUMBER = 5 THEN LOCATE 5, 40: PRINT MENU$(5)
  132. 5080 IF OPTION.NUMBER = 6 THEN LOCATE 7, 40: PRINT MENU$(6)
  133. 5090 IF OPTION.NUMBER = 7 THEN LOCATE 9, 40: PRINT MENU$(7)
  134. 5100 IF OPTION.NUMBER = 8 THEN LOCATE 11, 40: PRINT MENU$(8)
  135.  
  136. 5110 COLOR 7, 0: ' Turn Off Highlight
  137.  
  138. 5115 RETURN
  139.  
  140.  
  141. 6000  ' * * * * * * * *  Draw menu Options F1 - F9 * * * * * * * * * * * * *
  142.  
  143. 6010 LOCATE 5, 15: PRINT MENU$(1)
  144. 6020 LOCATE 7, 15: PRINT MENU$(2)
  145. 6030 LOCATE 9, 15: PRINT MENU$(3)
  146. 6040 LOCATE 11, 15: PRINT MENU$(4)
  147. 6050 LOCATE 5, 40: PRINT MENU$(5)
  148. 6060 LOCATE 7, 40: PRINT MENU$(6)
  149. 6070 LOCATE 9, 40: PRINT MENU$(7)
  150. 6080 LOCATE 11, 40: PRINT MENU$(8)
  151. 6090 RETURN
  152.  
  153.  
  154. 7000 ' * * * * * * * * * * Ending the Program * * * * * * * * * * * * * * * *
  155.  
  156. 7010 CLS
  157. 7020 LOCATE 7, 10: PRINT "(F1) Exit"
  158. 7030 LOCATE 9, 10: PRINT "(F2) Return to Menu"
  159. 7040 LOCATE 11, 15: PRINT "Your Choice"
  160. 7050 YN$ = INKEY$:
  161. 7060 IF YN$ = "" THEN 7050
  162. 7080 IF YN$ = "2" THEN 30
  163. 7090 CLS : BEEP
  164. 7100 LOCATE 3, 5: PRINT "Don't forget to backup your data !!!"
  165. 7110 END
  166.  
  167.