home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / menu.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  2.8 KB  |  95 lines
  1. 1  REM   TITLE  8/83
  2. 2  REM
  3. 3  REM   TITLE PAGE AND MENU
  4. 4  REM
  5. 5  REM   IBM MICROSOFT BASICA    64K
  6. 6  REM
  7. 7  REM
  8. 8  REM   DONATED TO IBM CUE SOFTSWAP
  9. 9  REM   BY Lucy Jackson
  10. 10  REM
  11. 11  REM  ***********************
  12. 12  REM  *                     *
  13. 13  REM  *  SAN MATEO COUNTY   *
  14. 14  REM  * OFFICE OF EDUCATION *
  15. 15  REM  *        AND          *
  16. 16  REM  *   COMPUTER-USING    *
  17. 17  REM  *      EDUCATORS      *
  18. 18  REM  *                     *
  19. 19  REM  *      SOFTSWAP       *
  20. 20  REM  *                     *
  21. 21  REM  *   333 MAIN STREET   *
  22. 22  REM  *     REDWOOD CITY    *
  23. 23  REM  *       CA 94063      *
  24. 24  REM  *   (415) 363-5472    *
  25. 25  REM  *                     *
  26. 26  REM  *                     *
  27. 27  REM  ***********************
  28. 150  GOSUB 200
  29. 160  GOSUB 310
  30. 170  GOSUB 200
  31. 180  GOSUB 410
  32. 190  GOTO 190
  33. 200  SCREEN 0,1: WIDTH 40: KEY OFF: COLOR 12,0,13: CLS
  34. 210  LOCATE 3,3: PRINT CHR$(218);: FOR I=4 TO 38: LOCATE 3,I: PRINT CHR$(196);: NEXT: LOCATE 3,39: PRINT CHR$(191)
  35. 220  FOR J=4 TO 23: LOCATE J,3: PRINT CHR$(179): NEXT: FOR K=4 TO 23: LOCATE K,39: PRINT CHR$(179): NEXT
  36. 230  LOCATE 23,3: PRINT CHR$(192);: FOR I=4 TO 38: LOCATE 23,I: PRINT CHR$(196);: NEXT: LOCATE 23,39: PRINT CHR$(217)
  37. 240  LOCATE 4,4: COLOR 10,0: PRINT CHR$(218);: FOR I=5 TO 37: LOCATE 4,I: PRINT CHR$(196);: NEXT : LOCATE 4,38: PRINT CHR$(191)
  38. 250  FOR J=5 TO 22: LOCATE J,4: PRINT CHR$(179): NEXT: FOR K=5 TO 22: LOCATE K,38: PRINT CHR$(179): NEXT
  39. 260  LOCATE 22,4: PRINT CHR$(192);: FOR I=5 TO 37: LOCATE 22,I: PRINT CHR$(196);: NEXT: LOCATE 22,38: PRINT CHR$(217)
  40. 270  LOCATE 5,5: COLOR 14,0: PRINT CHR$(218);: FOR I=6 TO 36: LOCATE 5,I: PRINT CHR$(196);: NEXT : LOCATE 5,37: PRINT CHR$(191)
  41. 280  FOR J=6 TO 21: LOCATE J,5: PRINT CHR$(179): NEXT: FOR K=6 TO 21: LOCATE K,37: PRINT CHR$(179): NEXT
  42. 290  LOCATE 21,5: PRINT CHR$(192);: FOR I=6 TO 36: LOCATE 21,I: PRINT CHR$(196);: NEXT: LOCATE 21,37: PRINT CHR$(217)
  43. 300  RETURN
  44. 310  LOCATE 7,14: COLOR 13,0: PRINT "SAN MATEO COUNTY"
  45. 320  LOCATE 8,12: PRINT "OFFICE OF EDUCATION"
  46. 330  LOCATE 9,20: COLOR 14,0: PRINT "&"
  47. 340  LOCATE 10,10: COLOR 12,0: PRINT "COMPUTER-USING EDUCATORS"
  48. 350  LOCATE 12,17: COLOR 14,0: PRINT "SOFTSWAP"
  49. 360  LOCATE 14,7: COLOR 12,0: PRINT "I B M  Dissemination Programs"
  50. 370  LOCATE 16,15: COLOR 14,0: PRINT "Diskette # 1"
  51. 380  LOCATE 19,15: COLOR 11,0: PRINT "Press any key"
  52. 390  A$=INKEY$: IF A$="" THEN GOTO 390
  53. 400  RETURN
  54. 410  LOCATE 7,19: COLOR 13,0: PRINT "MENU"
  55. 420  LOCATE 9,9: COLOR 11,0: PRINT "1 Savings"
  56. 430  LOCATE 10,9: PRINT "2 Cinquain"
  57. 440  LOCATE 11,9: PRINT "3 Scramble"
  58. 450  LOCATE 12,9: PRINT "4 Guess"
  59. 460  LOCATE 13,9: PRINT "5 Nations"
  60. 470  LOCATE 14,9: PRINT "6 Chemist"
  61. 480  LOCATE 15,9: PRINT "7 Multiply"
  62. 490  LOCATE 16,9: PRINT "8 Fractions"
  63. 500  LOCATE 17,9: PRINT "9 States"
  64. 510  LOCATE 9,23: PRINT "10 Months"
  65. 520  LOCATE 10,23: PRINT "11 Oregon"
  66. 530  LOCATE 11,23: PRINT "12 Reverse"
  67. 540  LOCATE 12,23: PRINT "13 Reduce"
  68. 550  LOCATE 13,23: PRINT "14 Short Div"
  69. 560  LOCATE 14,23: PRINT "15 Pat Pit"
  70. 570  LOCATE 15,23: PRINT "16 Sequence"
  71. 580  LOCATE 16,23: PRINT "17 Trap"
  72. 590  LOCATE 17,23: PRINT "18 Romans"
  73. 620  LOCATE 20,14: COLOR 13,0: LINE INPUT "ENTER A NUMBER ";A$
  74. 630  A=VAL(A$):IF A=< 0 THEN 620
  75. 650  LOCATE 20,12: COLOR 13,0: PRINT "Loading program #";A
  76. 660  ON A GOTO 670,680,690,700,710,720,730,740,750,760,770,780,790,800,810,820,830,840,850,860
  77. 670  CHAIN "savings": RUN
  78. 680  CHAIN "Cinquain": RUN
  79. 690  CHAIN "Scramble": RUN
  80. 700  CHAIN "guess": RUN
  81. 710  CHAIN "nations": RUN
  82. 720  CHAIN "chemist": RUN
  83. 730  CHAIN "mult": RUN
  84. 740  CHAIN "advfra": RUN
  85. 750  CHAIN "states": RUN
  86. 760  CHAIN "months": RUN
  87. 770  CHAIN "oregon": RUN
  88. 780  CHAIN "rever": RUN
  89. 790  CHAIN "reduce": RUN
  90. 800  CHAIN "shortdiv": RUN
  91. 810  CHAIN "patpit": RUN
  92. 820  CHAIN "sequence": RUN
  93. 830  CHAIN "trap": RUN
  94. 840  CHAIN "romans": RUN
  95.