home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / HANDICAP / SIGN51_3.ZIP / TEST3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-05-04  |  3.2 KB  |  97 lines
  1. 5  KEY OFF:SCREEN 0:WIDTH 80:COLOR  15,1,9
  2. 10  CLS
  3. 14  PRINT"         Welcome to S I G N  F R I E N D S by Fran O'Gorman (c)1989-91."
  4. 15  COLOR 11,1,9:PRINT"                          }}}...MENU (C)...{{{
  5. 16           WIDTH 80:COLOR 14,1,9:PRINT
  6. 17  PRINT"1.  Emergency Medical (1)                  20. Movement (2)
  7. 18  PRINT"2.  Emergency Medical (2)                  21. Movement (3)
  8. 19  PRINT"3.  Emergency Medical (3)                  22. Accomplishments
  9. 20  PRINT"4.  Rooms                                  23. Media
  10. 21  PRINT"5.  Hygiene                                24. Grammar (1)
  11. 22  PRINT"6.  Winter Sports                          25. Grammar (2)
  12. 23  PRINT"7.  Summer Sports                          26. Injury
  13. 24  PRINT"8.  Horticulture (1)                       27. Upper Respiratory
  14. 25  PRINT"9.  Horticulture (2)                       28. Lower tract words
  15. 26  PRINT"10. Groups                                 29. More medical
  16. 27  PRINT"11. Military                               30. Drama (1)
  17. 28  PRINT"12. Kind words                             31. Drama (2)
  18. 29  PRINT"13. Virtues                                32. Drama (3)
  19. 30  PRINT"14. Vices                                  33. Literature
  20. 31  PRINT"15. Amounts                                34. Lessons
  21. 36  PRINT"16. Acquisitions (1)                       35. Master Index"
  22. 37  PRINT"17. Acquisitions (2)                       36. ";:COLOR 15,1,9:PRINT"FOR FIRST MENU":COLOR 14,1,9
  23. 38  PRINT"18. Math                                   37. ";:COLOR 15,1,9:PRINT"FOR SECOND MENU" :COLOR 14,1,9
  24. 39  PRINT"19. Movement (1)                           38. ";:COLOR 15,1,9:PRINT"TO QUIT":COLOR 15,1,9
  25. 40  LOCATE 25,1:INPUT "Press number for choice";Q$
  26. 50  Q=VAL(Q$)
  27. 60  IF Q>38 OR Q<1 THEN 40
  28. 62  IF Q>34 THEN 90
  29. 64  CLS:INPUT "PRACTICE OR TEST (P/T)";R$
  30. 66  IF R$="" THEN 64
  31. 68  IF ASC(R$)>90 THEN PRINT"Be sure CAPS LOCK is on.":FOR DL=0 TO 3000+ZZ:NEXT:GOTO 64
  32. 70  IF R$ = "P" THEN 80
  33. 72  IF R$ <> "T" THEN 64
  34. 74  INPUT"SOUND (Y/N)";XX$
  35. 75  IF XX$<>"Y" AND XX$<>"N" THEN 74
  36. 76  IF XX$="Y" THEN XX=1:GOTO 90
  37. 77  XX=2:GOTO 90
  38. 80  XX=3
  39. 90  ON Q GOTO 101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,220,230,240,250
  40. 101  CHAIN "EMS1",,ALL
  41. 102  CHAIN "EMS2",,ALL
  42. 103  CHAIN "EMS3",,ALL
  43. 104  CHAIN "ROOM",,ALL
  44. 105  CHAIN "HYGENE",,ALL
  45. 106  CHAIN "WSPORTS",,ALL
  46. 107  CHAIN "SSPORTS",,ALL
  47. 108  CHAIN "HORT1",,ALL
  48. 109  CHAIN "HORT2",,ALL
  49. 110  CHAIN "GROUPS",,ALL
  50. 111  CHAIN "MILIT",,ALL
  51. 112  CHAIN "kind",,ALL
  52. 113  CHAIN "VIRTUE",,ALL
  53. 114  CHAIN "VICE",,ALL
  54. 115  CHAIN "AMOUNT",,ALL
  55. 116  CHAIN "ACQUIRE1",,ALL
  56. 117  CHAIN "ACQ2",,ALL
  57. 118  CHAIN "MATH",,ALL
  58. 119  CHAIN "MOVE1",,ALL
  59. 120  CHAIN "MOVE2",,ALL
  60. 121  CHAIN "MOVE3",,ALL
  61. 122  CHAIN "ACCOMP",,ALL
  62. 123  CHAIN "MEDIA",,ALL
  63. 124  CHAIN "GRAMMAR1",,ALL
  64. 125  CHAIN "GRAMMAR2",,ALL
  65. 126  CHAIN "INJURY",,ALL
  66. 127  CHAIN "SICK1",,ALL
  67. 128  CHAIN "SICK2",,ALL
  68. 129  CHAIN "SICK3",,ALL
  69. 130  CHAIN "DRAMA1",,ALL
  70. 131  CHAIN "DRAMA2",,ALL
  71. 132  CHAIN "DRAMA3",,ALL
  72. 133  CHAIN "LIT",,ALL
  73. 134  CHAIN "LESSON",,ALL
  74. 220  CHAIN "INDEX1",,ALL
  75. 230  ON ERROR GOTO 4000
  76. 231   CHAIN "TEST1",,ALL
  77. 232  ON ERROR GOTO 0
  78. 240  ON ERROR GOTO 3000
  79. 241   CHAIN "TEST2",,ALL
  80. 243  ON ERROR GOTO 0
  81. 250  SYSTEM
  82. 370  ON ERROR GOTO 4000
  83. 375   CHAIN "TEST3",,ALL
  84. 376  ON ERROR GOTO 0
  85. 380  ON ERROR GOTO 3000
  86. 385   CHAIN "TEST1",,ALL
  87. 386  ON ERROR GOTO 0
  88. 390  SYSTEM
  89. 3000  CLS:PRINT"IF USING FLOPPIES, REMOVE THIS DISK AND INSERT SECOND DISK."
  90. 3010  PRINT"                     - PRESS KEY TO CONTINUE -"
  91. 3030  K1$=INKEY$:IF K1$=""THEN 3030
  92. 3050  CHAIN "TEST2",,ALL
  93. 4000  CLS:PRINT"IF USING FLOPPIES, REMOVE THIS DISK AND INSERT FIRST DISK."
  94. 4010  PRINT"                     - PRESS KEY TO CONTINUE -"
  95. 4030  K1$=INKEY$:IF K1$=""THEN 4030
  96. 4050  CHAIN "TEST1",,ALL
  97.