home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk053 / romans.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  10.5 KB  |  427 lines
  1. 1   REM  ROMANS          8/83
  2. 2   REM
  3. 3   REM  PRACTICE WITH ROMAN NUMERALS
  4. 4   REM      
  5. 5   REM  IBM    BASICA   64 KB
  6. 6   REM   
  7. 7   REM        
  8. 8   REM  ADAPTED FROM APPLE SOFTSWAP
  9. 9   REM 
  10. 10   REM   
  11. 12   REM  ***********************
  12. 13   REM  *                     *
  13. 14   REM  *  SAN MATEO COUNTY   *
  14. 15   REM  * OFFICE OF EDUCATION *
  15. 16   REM  *                     *
  16. 17   REM  *   COMPUTER-USING    *
  17. 18   REM  *      EDUCATORS      *
  18. 19   REM  *                     *
  19. 20   REM  *      SOFTSWAP       *
  20. 21   REM  *                     *
  21. 22   REM  *   333 MAIN STREET   *
  22. 23   REM  *     REDWOOD CITY    *
  23. 24   REM  *       CA 94063      *
  24. 25   REM  *     (415)363-5472   *
  25. 26   REM  *                     *
  26. 28   REM  *                     *
  27. 29   REM  ***********************
  28. 30   REM  *PROGRAM MAY BE COPIED*
  29. 31   REM  *FOR EDUCATIONAL USE &*
  30. 32   REM  *MAY NOT BE SOLD.COPY-*
  31. 33   REM  *RIGHT 1983 CUE,INC   *
  32. 34   REM  ***********************
  33. 100  DIM A$(5,1)
  34. 104  SCREEN 0,1: WIDTH 40: KEY OFF: COLOR 14,0: CLS
  35. 120   GOSUB 1570
  36. 130   LOCATE 5,5 :PRINT "    TODAY WE ARE GOING TO WORK":LOCATE 6,5 :PRINT "      WITH ROMAN NUMERALS"
  37. 140   FOR DL = 1 TO 1000: NEXT DL
  38. 150   PRINT : PRINT : PRINT
  39. 160   LOCATE 10,5 :PRINT "    DO YOU HAVE A FRIEND THAT":LOCATE 11,5:PRINT "  MIGHT LIKE TO WORK WITH YOU?"
  40. 170   PRINT
  41. 180   LOCATE 13,5:PRINT "    I WOULD LIKE TO PLAY WITH" : LOCATE 14,5:PRINT "       TWO OF YOU TODAY!"
  42. 190   PRINT
  43. 200   PRINT :LOCATE 16,5: PRINT "    PRESS <RETURN> WHEN YOU":LOCATE 17,5 :PRINT "           ARE READY!";
  44. 210   A$=INKEY$ : IF A$ = ""  THEN 210
  45. 230   REM
  46. 240   CLS
  47. 245   REM
  48. 250   PRINT : PRINT : PRINT "          GREAT!!"
  49. 260   PRINT : PRINT : PRINT "WHAT IS THE FIRST PLAYER'S": PRINT  "NAME";: INPUT N$: IF N$ = "" THEN  PRINT : PRINT "COME ON NOW...": GOTO 260
  50. 270   IF  LEN (N$) > 10 THEN  CLS : PRINT "THAT'S TOO LONG!": GOTO 260
  51. 280   CLS : PRINT "HI, ";N$
  52. 290   PRINT "WHAT'S YOUR PARTNER'S":PRINT       "NAME";: INPUT M$: IF M$ = "" THEN  PRINT : PRINT "COME ON NOW...": GOTO 290
  53. 300   IF  LEN (N$) > 10 THEN  CLS : PRINT "THAT'S TOO LONG!": GOTO 290
  54. 310   IF N$ = M$ THEN  PRINT : PRINT "THAT'S THE SAME AS YOUR'S!": PRINT "TRY A DIFFERENT ONE.": GOTO 290
  55. 320   CLS : LOCATE 6
  56. 330   PRINT "WELL, ";N$;" AND ";M$
  57. 340   PRINT 
  58. 350   PRINT : INPUT "WOULD YOU LIKE TO SEE THE               INSTRUCTIONS?(YES OR NO)";A$:A$= LEFT$(A$,1)
  59. 360   IF A$ = "Y" OR A$="y" THEN 3480
  60. 370   IF A$ <  > "N" AND A$<>"n" THEN  CLS : GOTO 340
  61. 380   CLS: LOCATE 1: PRINT "ARE YOU READY TO START?"
  62. 390   PRINT "(YES OR NO)";: INPUT A$:A$=LEFT$(A$,1)
  63. 400   IF A$ = "Y"  OR A$="y" THEN 490
  64. 410   IF A$ <  > "N" AND A$<>"n" THEN 380
  65. 420   CLS : PRINT "WOULD YOU LIKE TO SEE THE INSTRUCTIONS  AGAIN?"
  66. 430   PRINT "(YES OR NO)";: INPUT A$:A$=LEFT$(A$,1)
  67. 440   IF A$ = "Y" OR A$="y" THEN 3480
  68. 450   IF A$ <  > "N" AND A$<>"n" THEN 420460  CLS : PRINT "WELL, I GUESS YOU JUST AREN'T READY FOR THIS TODAY!"
  69. 460   CLS : PRINT "WELL, I GUESS YOU JUST AREN'T READY FOR THIS TODAY!"
  70. 470   FOR DL = 1 TO 2000: NEXT DL
  71. 480   GOTO 1520
  72. 490   REM  START QUESTIONS
  73. 500   CLS 
  74. 510   LOCATE 20: PRINT N$;" HAS ";S;"   ";M$;" HAS ";T
  75. 520   LOCATE 5
  76. 525  C = C + 1
  77. 527  P =  INT ( RND (1) * 5) + 1
  78. 530   PRINT N$;", WHAT NUMERAL IS";
  79. 560   GOSUB 2330
  80. 570  Q = 1: REM    STUDENT #1 RESPONSE 
  81. 580   INPUT C$:Z3$=C$:GOSUB 10000:C$=Z3$
  82. 590   GOSUB 3750
  83. 600   GOTO 530
  84. 610   IF C$ = R$ THEN  GOTO 1480
  85. 620   GOSUB 2890
  86. 630   PRINT : PRINT 
  87. 635  R =  INT (5 *  RND (1)) + 1
  88. 638   IF R = P THEN 635
  89. 640   PRINT M$;", WHAT NUMERAL IS ";
  90. 660   GOSUB 2320
  91. 670  Q = 2: REM    STUDENT #2 RESPONSE
  92. 680   INPUT C$:Z3$=C$:GOSUB 10000:C$=Z3$
  93. 690   GOSUB 3750
  94. 700   GOTO 640
  95. 710   IF C$ = R$ THEN  GOTO 1500
  96. 720   GOSUB 2890
  97. 725   REM
  98. 730  GOSUB 9000
  99. 740   REM
  100. 750   REM
  101. 755   CLS
  102. 760   IF C <  > 5 THEN  GOTO 490
  103. 770   REM  IN CASE OF A TIE -
  104. 780   IF S = T THEN  GOTO 3020
  105. 790   REM  REPORT RESULTS
  106. 800   REM
  107. 810   REM
  108. 820   REM
  109. 830   REM
  110. 840   REM
  111. 860   REM
  112. 870   REM 
  113. 880   REM   
  114. 890   REM
  115. 900   REM
  116. 910   REM
  117. 920   REM
  118. 930   REM
  119. 940   REM
  120. 950   REM
  121. 960   REM
  122. 970   REM
  123. 980   REM
  124. 990   REM
  125. 1000   REM
  126. 1010   REM
  127. 1020   REM
  128. 1030   REM
  129. 1040   REM
  130. 1050   REM 
  131. 1060   REM 
  132. 1070   REM
  133. 1080   REM 
  134. 1090   REM
  135. 1100   REM
  136. 1110   GOTO 1330:PRINT  TAB( 3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV"
  137. 1120   PRINT  TAB( 3)"V"; TAB( 39)"V"
  138. 1130   PRINT  TAB( 3)"X"; TAB( 39)"X"
  139. 1140   PRINT  TAB( 3)"L"; TAB( 39)"L"
  140. 1150   PRINT  TAB( 3)"C"; TAB( 39)"C"
  141. 1160   PRINT  TAB( 3)"D"; TAB( 39)"D"
  142. 1170   PRINT  TAB( 3)"M"; TAB( 39)"M"
  143. 1180   PRINT  TAB( 3)"I"; TAB( 39)"I"
  144. 1190   PRINT  TAB( 3)"V"; TAB( 39)"V"
  145. 1200   PRINT  TAB( 3)"X"; TAB( 39)"X"
  146. 1210   PRINT  TAB( 3)"L"; TAB( 39)"L"
  147. 1220   PRINT  TAB( 3)"C"; TAB( 39)"C"
  148. 1230   PRINT  TAB( 3)"D"; TAB( 39)"D"
  149. 1240   PRINT  TAB( 3)"M"; TAB( 39)"M"
  150. 1250   PRINT  TAB( 3)"I"; TAB( 39)"I"
  151. 1260   PRINT  TAB( 3)"V"; TAB( 39)"V"
  152. 1270   PRINT  TAB( 3)"X"; TAB( 39)"X"
  153. 1280   PRINT  TAB( 3)"L"; TAB( 39)"L"
  154. 1290   PRINT  TAB( 3)"C"; TAB( 39)"C"
  155. 1300   PRINT  TAB( 3)"D"; TAB( 39)"D"
  156. 1310   PRINT  TAB( 3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV"
  157. 1320   REM
  158. 1330   CLS:LOCATE 10
  159. 1340   PRINT  TAB( 3)"WOULD YOU LIKE TO TRY AGAIN"
  160. 1350   PRINT "(YES OR NO)";: INPUT A$:A$=LEFT$(A$,1)
  161. 1360   IF A$ = "Y" OR A$="y" THEN 1390
  162. 1370   IF A$ <  > "N" AND A$<>"n" THEN 1330
  163. 1380   GOTO 1520
  164. 1390  C = 0:R = 0:S = 0:T = 0:A = 0
  165. 1400  B = 0:P = 0
  166. 1410   CLS : GOTO 510
  167. 1420   PRINT "IS THERE SOMEONE ELSE WAITING TO TRY?"
  168. 1430   INPUT A$:A$=LEFT$(A$,1)
  169. 1440   IF A$ = "Y" OR A$="y" THEN  GOTO 260
  170. 1450    : CLS : LOCATE 10
  171. 1460   PRINT "OK - COME AND SEE ME AGAIN SOON!"
  172. 1470   GOTO 3920
  173. 1480  S = S + 1
  174. 1490   GOTO 630
  175. 1500  T = T + 1
  176. 1510   GOTO 760
  177. 1520   LOCATE 12:PRINT "O.K., IS ANYONE ELSE WAITING TO TRY?"
  178. 1530   PRINT "(YES OR NO)";: INPUT A$ :A$=LEFT$(A$,1)
  179. 1540   IF A$ = "Y" OR A$="y" THEN RUN
  180. 1550   IF A$ <  > "N" AND A$<>"n" THEN 1520
  181. 1560   GOTO 3920
  182. 1570   CLS : LOCATE 7
  183. 1580   PRINT  TAB( 10)"IVXLCDMIVXLCDMIVXLCDM1V"
  184. 1590   PRINT  TAB( 10)"V"; TAB( 32)"V"
  185. 1600   PRINT  TAB( 10)"X"; TAB( 32)"X"
  186. 1610   PRINT  TAB( 10)"L"; TAB( 32)"L"
  187. 1620   PRINT  TAB( 10)"C  MEET  THE  ROMANS"; TAB( 32)"C"
  188. 1630   PRINT  TAB( 10)"D"; TAB( 32)"D"
  189. 1640   PRINT  TAB( 10)"M"; TAB( 32)"M"
  190. 1650   PRINT  TAB( 10)"D"; TAB( 32)"D"
  191. 1660   PRINT  TAB( 10)"IVXLCDMIVXLCDMIVXLCDM1V"
  192. 1670   FOR DL = 1 TO 300: NEXT DL
  193. 1680   LOCATE 5
  194. 1690   PRINT  TAB( 8)"IVXLCDMIVXLCDMIVXLCDMIVXLCD"
  195. 1700   PRINT  TAB( 8)"V"; TAB( 34)"V"
  196. 1710   PRINT  TAB( 8)"X"; TAB( 34)"X"
  197. 1720   PRINT  TAB( 8)"L"; TAB( 34)"L"
  198. 1730   PRINT  TAB( 8)"C"; TAB( 34)"C"
  199. 1740   PRINT  TAB( 8)"C"; TAB( 34)"C"
  200. 1750   PRINT  TAB( 8)"D    MEET  THE  ROMANS"; TAB( 34)"D"
  201. 1760   PRINT  TAB( 8)"M"; TAB( 34)"M"
  202. 1770   PRINT  TAB( 8)"I"; TAB( 34)"I"
  203. 1780   PRINT  TAB( 8)"V"; TAB( 34)"V"
  204. 1790   PRINT  TAB( 8)"X"; TAB( 34)"X"
  205. 1800   PRINT  TAB( 8)"L"; TAB( 34)"L"
  206. 1810   PRINT  TAB( 8)"IVXLCDMIVXLCDMIVXLCDMIVXLCD"
  207. 1820   FOR DL = 1 TO 300: NEXT DL
  208. 1830   LOCATE 3
  209. 1840   PRINT  TAB( 6)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVX"
  210. 1850   PRINT  TAB( 6)"V"; TAB( 36)"V"
  211. 1860   PRINT  TAB( 6)"X"; TAB( 36)"X"
  212. 1870   PRINT  TAB( 6)"V"; TAB( 36)"V"
  213. 1880   PRINT  TAB( 6)"X"; TAB( 36)"X"
  214. 1890   PRINT  TAB( 6)"L"; TAB( 36)"L"
  215. 1900   PRINT  TAB( 6)"C"; TAB( 36)"C"
  216. 1910   PRINT  TAB( 6)"D"; TAB( 36)"D"
  217. 1920   PRINT  TAB( 6)"M      MEET  THE  ROMANS"; TAB( 36)"M"
  218. 1930   PRINT  TAB( 6)"I"; TAB( 36)"I"
  219. 1940   PRINT  TAB( 6)"V"; TAB( 36)"V"
  220. 1950   PRINT  TAB( 6)"X"; TAB( 36)"X"
  221. 1960   PRINT  TAB( 6)"L"; TAB( 36)"L"
  222. 1970   PRINT  TAB( 6)"C"; TAB( 36)"C"
  223. 1980   PRINT  TAB( 6)"D"; TAB( 36)"D"
  224. 1990   PRINT  TAB( 6)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVX"
  225. 2000   FOR DL = 1 TO 300: NEXT DL
  226. 2010   LOCATE 1: PRINT 
  227. 2020   PRINT  TAB( 3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV"
  228. 2030   PRINT  TAB( 3)"V"; TAB( 39)"V"
  229. 2040   PRINT  TAB( 3)"X"; TAB( 39)"X"
  230. 2050   PRINT  TAB( 3)"L"; TAB( 39)"L"
  231. 2060   PRINT  TAB( 3)"C"; TAB( 39)"C"
  232. 2070   PRINT  TAB( 3)"D"; TAB( 39)"D"
  233. 2080   PRINT  TAB( 3)"M"; TAB( 39)"M"
  234. 2090   PRINT  TAB( 3)"I"; TAB( 39)"I"
  235. 2100   PRINT  TAB( 3)"V"; TAB( 39)"V"
  236. 2110   PRINT  TAB( 3)"X"; TAB( 39)"X"
  237. 2120   PRINT  TAB( 3)"L"; TAB( 39)"L"
  238. 2130   PRINT  TAB( 3)"C"; TAB( 39)"C"
  239. 2140   PRINT  TAB( 3)"D"; TAB( 39)"D"
  240. 2150   PRINT  TAB( 3)"M"; TAB( 39)"M"
  241. 2160   PRINT  TAB( 3)"I"; TAB( 39)"I"
  242. 2170   PRINT  TAB( 3)"V"; TAB( 39)"V"
  243. 2180   PRINT  TAB( 3)"X"; TAB( 39)"X"
  244. 2190   PRINT  TAB( 3)"L"; TAB( 39)"L"
  245. 2200   PRINT  TAB( 3)"C"; TAB( 39)"C"
  246. 2210   PRINT  TAB( 3)"D"; TAB( 39)"D"
  247. 2220   PRINT  TAB( 3)"IVXLCDMIVXLCDMIVXLCDMIVXLCDMIVXLCDMIV"
  248. 2240   LOCATE 6
  249. 2250   RETURN
  250. 2260   REM  SELECTION OF QUESTIONS
  251. 2320  P = R
  252. 2330   ON C GOTO 2340,2450,2560,2670,2780
  253. 2340   ON P GOTO 2350,2370,2390,2410,2430
  254. 2350   PRINT " VIII"
  255. 2360  R$ = "8": RETURN
  256. 2370   PRINT " XII"
  257. 2380  R$ = "12": RETURN
  258. 2390   PRINT " XV"
  259. 2400  R$ = "15": RETURN 
  260. 2410   PRINT " LX"
  261. 2420  R$ = "60": RETURN 
  262. 2430   PRINT " LVI"
  263. 2440  R$ = "56": RETURN 
  264. 2450   ON P GOTO 2460,2480,2500,2520,2540
  265. 2460   PRINT " XXII"
  266. 2470  R$ = "22": RETURN 
  267. 2480   PRINT " DCX"
  268. 2490  R$ = "610": RETURN 
  269. 2500   PRINT " LXXI"
  270. 2510  R$ = "71": RETURN 
  271. 2520   PRINT " CXV"
  272. 2530  R$ = "115": RETURN 
  273. 2540   PRINT " MCL"
  274. 2550  R$ = "1150": RETURN 
  275. 2560   ON P GOTO 2570,2590,2610,2630,2650
  276. 2570   PRINT " IX"
  277. 2580  R$ = "9": RETURN 
  278. 2590   PRINT " IV"
  279. 2600  R$ = "4": RETURN 
  280. 2610   PRINT " XL"
  281. 2620  R$ = "40": RETURN 
  282. 2630   PRINT " XC"
  283. 2640  R$ = "90": RETURN 
  284. 2650   PRINT " IL"
  285. 2660  R$ = "49": RETURN 
  286. 2670   ON P GOTO 2680,2700,2720,2740,2760
  287. 2680   PRINT " 36";" (IN    ROMAN)"
  288. 2690  R$ = "XXXVI": RETURN 
  289. 2700   PRINT " 52";" (IN    ROMAN)"
  290. 2710  R$ = "LII": RETURN 
  291. 2720   PRINT " 19";" (IN    ROMAN)"
  292. 2730  R$ = "XIX": RETURN 
  293. 2740   PRINT " 490";" (IN   ROMAN)"
  294. 2750  R$ = "XD": RETURN 
  295. 2760   PRINT " 655";" (IN   ROMAN)"
  296. 2770  R$ = "DCLV": RETURN 
  297. 2780   ON P GOTO 2790,2810,2830,2850,2870
  298. 2790   PRINT " 240"
  299. 2800  R$ = "CCXL": RETURN 
  300. 2810   PRINT " 1090"
  301. 2820  R$ = "MXC": RETURN 
  302. 2830   PRINT " 2010"
  303. 2840  R$ = "MMX": RETURN 
  304. 2850   PRINT " 2400"
  305. 2860  R$ = "MMCD": RETURN 
  306. 2870   PRINT " 3119"
  307. 2880  R$ = "MMMCXIX": RETURN 
  308. 2890   REM   ERROR MESSAGES
  309. 2900  X =  INT (3 *  RND (1))
  310. 2910   ON X GOTO 2920,2950,2980
  311. 2920   PRINT "OOPS, YOU MISSED THAT ONE!"
  312. 2930   PRINT "IT SHOULD HAVE BEEN ";R$
  313. 2940   RETURN 
  314. 2950   PRINT "NO, THINK CAREFULLY -"
  315. 2960   PRINT "THE RIGHT ANSWER IS ";R$
  316. 2970   RETURN 
  317. 2980   PRINT "SORRY, THAT'S WRONG - "
  318. 2990   PRINT "IT WOULD BE ";R$
  319. 3000   RETURN 
  320. 3010  : REM    STUDENT #2 RESPONSE 
  321. 3020   REM  - TIE BREAKER!!
  322. 3030   PRINT : PRINT "YOU BOTH DID VERY WELL!"
  323. 3040   PRINT : PRINT "HOW ABOUT ONE MORE QUESTION  TO TRY TO BREAK THE TIE!"
  324. 3050   PRINT : PRINT "YOU WILL BOTH HAVE THE SAME  QUESTION - WORK THE PROBLEM  AND TELL ME YOUR ANSWER!"
  325. 3060   FOR DL = 1 TO 1000: NEXT DL
  326. 3070  C = C + 1
  327. 3080   PRINT "YOUR QUESTION IS - "
  328. 3090  P =  INT (3 *  RND (1)) + 1
  329. 3100   ON P GOTO 3110,3140,3170
  330. 3110   PRINT : PRINT "     XXXVI + XCVIII= ?"
  331. 3120  R$ = "CXXXIV":H$ = "134"
  332. 3130   GOTO 3200
  333. 3140   PRINT : PRINT "     CXXXIV+XCIX= ?"
  334. 3150  R$ = "CCXXXIII":H$ = "233"
  335. 3160   GOTO 3200
  336. 3170   PRINT : PRINT "    CCXLVII+CLIV = ?"
  337. 3180  R$ = "CDI":H$ = "401"
  338. 3190   GOTO 3200
  339. 3200   PRINT : PRINT N$;", WHAT IS YOUR ANSWER?"
  340. 3210   INPUT C$
  341. 3220   PRINT : PRINT "NOW, ";M$;", WHAT DID YOU GET?"
  342. 3230   INPUT D$
  343. 3240   IF C$ = R$ THEN  GOTO 3370
  344. 3250   IF C$ = H$ THEN  GOTO 3370
  345. 3260   IF D$ = R$ THEN  GOTO 3320
  346. 3270   IF D$ = H$ THEN  GOTO 3320
  347. 3280   PRINT : PRINT " SORRY, YOU BOTH MISSED IT !"
  348. 3290   PRINT : PRINT "BUT THIS WAS GOOD PRACTICE!"
  349. 3300   FOR DL = 1 TO 1500: NEXT DL
  350. 3310   GOTO 3470
  351. 3320  T = T + 1
  352. 3330   PRINT : PRINT "GOOD WORK, ";M$
  353. 3340   PRINT : PRINT "    YOU GOT IT RIGHT ! !"
  354. 3350   FOR DL = 1 TO 1500: NEXT DL
  355. 3360   GOTO 3470
  356. 3370  S = S + 1
  357. 3380   IF D$ = R$ THEN  GOTO 3440
  358. 3390   IF D$ = R$ THEN  GOTO 3440
  359. 3400   PRINT " CONGRATULATIONS, ";N$
  360. 3410   PRINT : PRINT "      YOU WIN ! !"
  361. 3420   FOR DL = 1 TO 1500: NEXT DL
  362. 3430   GOTO 3470
  363. 3440  T = T + 1
  364. 3450   PRINT "YOU BOTH GOT IT RIGHT ! !"
  365. 3460   FOR DL = 1 TO 1500: NEXT DL
  366. 3470   GOSUB 9000
  367. 3474   GOTO 790
  368. 3480   CLS 
  369. 3490   PRINT : PRINT "I AM GOING TO ASK EACH OF YOU             TWO KINDS OF QUESTIONS - "
  370. 3500   GOSUB 3730
  371. 3510   PRINT : PRINT "IF I SHOW YOU A ROMAN NUMERAL           YOU SHOULD TELL ME WHAT                 YOU  THINK IT MEANS - LIKE THIS -"
  372. 3520   GOSUB 3730
  373. 3530   PRINT : PRINT "IF YOU SEE ";
  374. 3540   REM
  375. 3550   PRINT "XXIII -"
  376. 3560   REM
  377. 3570   PRINT : PRINT "YOU WOULD ENTER ";
  378. 3580   REM
  379. 3590   PRINT "23"
  380. 3600   REM
  381. 3610   GOSUB  9000
  382. 3640   CLS 
  383. 3650   PRINT : PRINT "IF I SHOW YOU A NUMBER LIKE  37,        YOU WOULD ENTER ";
  384. 3660   FOR DL = 1 TO 1000: NEXT DL
  385. 3670   SPEED= 50
  386. 3680   PRINT "XXXVII."
  387. 3690   SPEED= 255
  388. 3700   GOSUB 3730
  389. 3710   PRINT : PRINT : PRINT "YOU CAN TAKE TURNS ANSWERING MY         QUESTIONS AND I WILL KEEP SCORE.        GOOD LUCK!"
  390. 3720   GOTO 380
  391. 3730   FOR DL = 1 TO 2000: NEXT DL
  392. 3740   RETURN
  393. 3750   IF C$ = "" THEN C$ = " "
  394. 3755   FOR Z = 1 TO  LEN (C$):Z2$ =  MID$ (C$,Z,1):Z2 =  ASC (Z2$)
  395. 3760   IF  VAL (R$) = 0 THEN 3810
  396. 3770   IF Z2 =  > 48 AND Z2 <  = 57 THEN 3912
  397. 3772   PRINT "THAT'S NOT A VALID ANSWER"
  398. 3774   PRINT "TRY AGAIN"
  399. 3778   GOSUB 9000:RETURN
  400. 3810   IF Z2 = 73 OR Z2 = 86 OR Z2 = 88 OR Z2 = 76 OR Z2 = 67 OR Z2 = 68 OR Z2 = 77 THEN 3912
  401. 3860   PRINT "THAT'S NOT A VALID ANSWER!"
  402. 3890   GOSUB 9000
  403. 3910   RETURN
  404. 3912   NEXT Z
  405. 3913   REM
  406. 3914   ON Q GOTO 610,710
  407. 3920   CLS
  408. 3930  CHAIN "MENU",170: RUN
  409. 9000  REM
  410. 9010  AA$="Press any key to continue"
  411. 9020  AB$="Or press 'ESC' to end"
  412. 9030  LOCATE 23,20-(LEN(AA$)/2)
  413. 9040  PRINT AA$;
  414. 9050  LOCATE 24,20-(LEN(AB$)/2)
  415. 9060  PRINT AB$;
  416. 9070  II$=INKEY$:IF II$="" THEN 9070
  417. 9080  IF ASC(II$)=27 THEN 1390
  418. 9090  CLS:RETURN
  419. 10000  REM
  420. 10010  Z2$="":FOR VI=1 TO LEN(Z3$)
  421. 10020  Z1 =ASC(MID$(Z3$,VI,1))
  422. 10030  IF Z1 =>97 AND Z1 =<122  THEN Z2$=Z2$+CHR$(Z1-32):GOTO 10050
  423. 10040  Z2$=Z2$+CHR$(Z1)
  424. 10050  NEXT VI
  425. 10060  Z3$=Z2$
  426. 10070  RETURN
  427.