home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / GEOGRAPHY-TERMS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  14.0 KB  |  482 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X`
  4. 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111"
  5. 5 [153]"hhhhhhh`1"
  6. 6 [143] ** 4 - POP ML SUBROUTINE **
  7. 10 [143] **GENERAL INPUT ROUTINE **
  8. 15 :
  9. 20 [143] ** TO OUR BEST KNOWLEDGE THIS
  10. 21 [143]    PROGRAM IS FREE FOR
  11. 22 [143]    DUPLICATION IN CANADA.
  12. 23 [143]    IF YOU HAVE CONTARY
  13. 24 [143]    INFORMATION, PLEASE
  14. 25 [143]    CONTACT COMMODORE CANADA AND
  15. 26 [143]    EVERY EFFORT WILL BE MADE TO
  16. 27 [143]    WITHDRAW COPIES OF THIS
  17. 28 [143]    PROGRAM.
  18. 30 :
  19. 35 [143] +++ INPUT SECTION +++
  20. 40 [151]UO,0:UR$[178]"":UI$[178]""
  21. 42 [139]UL[178]0[167]UL[178]80
  22. 45 [153]"  CMDCMD";:[151]UC,0
  23. 50 [161]UI$:[139]UI$[178]""[167]50
  24. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  25. 60 [139]UI$[178][199](20)[167]105
  26. 62 [139] [195](UR$)[178][177]UL[167]50
  27. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  28. 70 UR$[178]UR$[170]UI$
  29. 75 [153]UI$;
  30. 80 [137]50
  31. 85 [143] +++ CHECK FOR HELP REQUEST +++
  32. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  33. 95 [139]UF[178]1[167][141]240
  34. 100 UF[178]0:[153]:[142]
  35. 102 [143] ++ CHECK DELETE ++
  36. 105 [139][195](UR$)[179]1[167]50
  37. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  38. 115 [153]"CMD  CMDCMD";:[137]50
  39. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  40. 125 [139][195](US$)[178]0[167]150
  41. 130 [129]US[178]1[164][195](US$)
  42. 135 [139]UI$[178][202](US$,US,1)[167][142]
  43. 140 [130]
  44. 145 UI$[178]"":[142]
  45. 150 [143] ** STANDARD INPUT **
  46. 152 [139][198](UI$)[178]46[167][142]
  47. 155 [139]UI$[178][199](32)[167][142]
  48. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  49. 165 [142]
  50. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  51. 175 [142]
  52. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  53. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  54. 187 [142]
  55. 190 UI$[178]"":[142]
  56. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  57. 197 [141]250
  58. 200 [141]245
  59. 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  60. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  61. 215 UZ[178]1:UV%[178][194](UT)
  62. 216 [137]300
  63. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  64. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  65. 219 [153]"LOAD";
  66. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  67. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  68. 230 [151]U1,U1%
  69. 232 [151]U2,U2%
  70. 233 [151]U4,U4%
  71. 234 [151]U3,U3%[171]1
  72. 235 [137]35
  73. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  74. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  75. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  76. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  77. 255 [142]
  78. 300 [143] ** MENU **
  79. 301 :
  80. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  81. 303 :
  82. 305 [153]"                MENU"
  83. 310 [153]" --------------------------------------"
  84. 315 [153]"       1.   BEGIN GEOG"
  85. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  86. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  87. 335 [153]"       4.   QUIT"
  88. 340 [153]" --------------------------------------"
  89. 345 [153]"       PRESS A NUMBER KEY (1-4) ";
  90. 350 UL[178]1:US$[178]"1234":[141]35:[143] INPUT ROUTINE
  91. 352 US$[178]""
  92. 355 [145][197](UR$)[141]1000,400,500,396
  93. 360 [137]300
  94. 395 [143] ** RE-ENABLE STOP KEY AND END **
  95. 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  96. 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  97. 398 [153]"CONTLOAD":[128]
  98. 399 [141]875:[142]
  99. 400 [143] ** STUDENT INSTRUCTIONS **
  100. 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  101. 410 UH[178]1:UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
  102. 456 [153]"  (null)HIS PROGRAM DEMONSTRATES 8 GEOGRAPHY"
  103. 457 [153]" TERMS USING A MAP AND GIVES A SHORT"
  104. 458 [153]" DEFINITION OF EACH .  ATNFTER YOU HAVE"
  105. 459 [153]" REVIEWED THESE TO YOUR SATISFACTION"
  106. 460 [153]" YOU ARE TESTED ON YOUR NEWLY ACQUIRED"
  107. 461 [153]" KNOWLEDGE .  ASCINALLY YOUR SCORE OUT OF"
  108. 462 [153]" 8 IS GIVEN AND YOU MAY EITHER REVIEW"
  109. 463 [153]" AGAIN OR QUIT.":[141]835:UH[178]1:[141]850
  110. 464 [153]"     RIGHT$F YOU WISH TO QUIT FROM THE TEST"
  111. 465 [153]" TYPE <Q> AND PRESS <RETURN>.  (null)YPING"
  112. 466 [153]" <Q> RETURNS YOU TO THE MENU AND CLEARS"
  113. 467 [153]" ALL VALUES AND VARIABLES."
  114. 468 [153]"     RIGHT$F AT ANYTIME YOU NEED HELP TYPE"
  115. 469 [153]" <H> AND PRESS <RETURN> TO GET BACK TO"
  116. 471 [153]" THE MENU.  ATNFTER YOU COMPLETE THE"
  117. 473 [153]" OPTION, YOU WILL RETURN TO THE PLACE"
  118. 475 [153]" WHERE YOU LEFT OFF."
  119. 485 [141]835
  120. 490 [139]UZ[178]1[167][158]UP%:[137]217
  121. 499 [142]
  122. 500 [143] ** TEACHER INSTRUCTIONS **
  123. 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  124. 502 UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
  125. 503 [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  126. 504 [153]"   THIS PROGRAM IS IN THE PUBLIC"
  127. 505 [153]"   DOMAIN.  RIGHT$F THIS IS NOT THE CASE"
  128. 506 [153]"   PLEASE CONTACT:"
  129. 507 [153]"      LENOMMODORE PEEKUSINESS (null)ACHINES"
  130. 508 [153]"          3370 (null)HARMACY ATNVE.
  131. 509 PRINT"          [193]GINCOURT, [207]NTARIO"
  132. 510 PRINT"          [195]ANADA   [205]1[215] 2[203]4"
  133. 511 PRINT"          (416) 499-4292"
  134. 512 UP=1:GOSUB 835:GOSUB 850:
  135. 513 PRINT"     [208]ROGRAM [206]AME: [199]EOG
  136. 514 [153]"     (null)RITTEN PEEKY  : CHR$EOFF (null)OULET
  137. 515 PRINT"     [213]PGRADED [194]Y : [195]HERYL [207]LDHAM
  138. 516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
  139. 517 PRINT"[145][145][145][145][145]      [213]PLOADED TO [199][197]NIE BY [197].[196][213][210][203][201][206]1 [146]"
  140. 518 PRINT"                [[205][207][206][212][193][206][193] [203][201][196]]        [146]"
  141. 519 PRINT"         [208][197][212] 64 [195][207][205][208][213][212][197][210]
  142. 520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  143. 521 GOSUB835
  144. 590 IFUZ=1THENSYSUP%:GOTO217
  145. 599 RETURN
  146. 600 REM ** PROGRAM MODIFICATION INST **
  147. 601 PRINT"[147]":POKEUT,UL%
  148. 605 UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
  149. 660 GOSUB835
  150. 690 IFUZ=1THENSYSUP%:GOTO217
  151. 699 RETURN
  152. 700 REM ** TO USE 8032 LOAD CBM4032 **
  153. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  154. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  155. 730 [158]UU[170]71
  156. 740 [128]
  157. 800 [143] ** T I T L E   P A G E **
  158. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  159. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  160. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  161. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  162. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  163. 812 [153]"STEP  WAIT
  164. 814 PRINT" [146]   [146][169]
  165. 816 [153]" WAIT  TAB((null)
  166. 818 PRINT"[223]  [146]
  167. 820 [153]"C O M M O D O R E
  168. 822 PRINT"EDUCATIONAL
  169. 824 [153]"SOFTWARE
  170. 826 REM ** COMMODORE LOGO **
  171. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  172. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  173. 830 T1$="":T2$="":T3$="":T4$="":I=0
  174. 832 GOTO300
  175. 835 REM ** SPACE BAR PRESS **
  176. 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  177. 844 GETUI$:IFUI$<>" "THEN844
  178. 846 RETURN
  179. 850 REM ** PAGE DESIGN ROUTINE **
  180. 852 UP=UP+1
  181. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  182. 860 PRINT" --------------------------------------"
  183. 864 IFUH<>0THEN870
  184. 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  185. 870 UH=0:PRINT"":RETURN
  186. 875 REM ** PLEASE WAIT REMARK **
  187. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  188. 885 RETURN
  189. 900 REM ** SET UP VARIABLES **
  190. 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  191. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
  192. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  193. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  194. 905 UD$=""
  195. 906 UP$="                                       "
  196. 907 UT$=" [199][197][207][199]        [160][160][160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  197. 908 RETURN
  198. 910 REM ** SET VARIABLES **
  199. 912 DIM N$(8),I$(8),CH(8)
  200. 915 GOSUB900
  201. 916 :
  202. 917 :
  203. 920 REM ** CHECK FOR 8032 **
  204. 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  205. 930 IFPEEK(UB+40)<>96THENGOSUB700
  206. 931 REM ** MEMORY CHECK **
  207. 932 IF FRE(0)>2000THEN937
  208. 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  209. 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
  210. 935 SYSUU+71
  211. 936 END
  212. 937 PRINT"[147]":IFPEEK(50003)=0THEN962
  213. 940 REM ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  214. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  215. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  216. 943 POKE1104,145:POKE1105,234:POKE1082,234
  217. 945 IFPEEK(50003)<>160THEN955
  218. 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  219. 955 IFPEEK(50003)<>1THEN990
  220. 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  221. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  222. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  223. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  224. 965 SYSUU+48:REM DISABLE STOP KEY
  225. 970 GOSUB800:REM TITLE
  226. 980 GOTO300:REM MENU
  227. 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  228. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
  229. 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,6
  230. 1002 REM **         BY          **
  231. 1003 REM **  CHERYL A. OLDHAM   **
  232. 1004 REM **     1982 07 03      **
  233. 1005 REM **OSHAWA,ONTARIO,CANADA**
  234. 1006 REM *************************
  235. 1130 POKEUT,UL%:GOTO 1270
  236. 1230 REM TITLE BEGINS
  237. 1240 R=1:CT=0:AT=0
  238. 1250 GOTO 1360
  239. 1270 N$(1)="[199]ULF"
  240. 1280 N$(2)="[211]TRAIT"
  241. 1290 N$(3)="[193]RM"
  242. 1300 N$(4)="[195]APE"
  243. 1310 N$(5)="[201]SLAND"
  244. 1320 N$(6)="[194]AY"
  245. 1330 N$(7)="[208]ENINSULA"
  246. 1340 N$(8)="[201]STHMUS"
  247. 1350 GOTO 1230
  248. 1360 BW$="BODY OF WATER"
  249. 1370 PL$="PIECE OF LAND"
  250. 1380 C$="CONNECTING TWO LARGER"
  251. 1390 BP$="BODIES OF WATER"
  252. 1400 PP$="PIECES OF LAND "
  253. 1410 NA$="NARROW"
  254. 1420 PR$="PROJECTING INTO THE"
  255. 1430 L$="LAND"
  256. 1440 W$="WATER"
  257. 1450 S$="NEARLY SURROUNDED BY"
  258. 1460 I$(1)="A "+BW$+" "+LEFT$(S$,17)+"  BY "+L$
  259. 1470 I$(2)="A "+NA$+" "+BW$+" "+C$+" "+BP$
  260. 1480 I$(3)="A "+NA$+" "+BW$+" "+LEFT$(PR$,10)+"   INTO THE "+L$
  261. 1490 I$(4)="A "+NA$+" "+PL$+" "+LEFT$(PR$,10)+"  INTO THE "+W$
  262. 1500 I$(5)="A "+PL$+" COMPLETELY       SURROUNDED BY "+W$
  263. 1510 I$(6)="A "+BW$+" "+PR$+" "+L$
  264. 1520 I$(7)="A "+PL$+" "+LEFT$(S$,6)+"        "+RIGHT$(S$,13)+" "+W$
  265. 1530 I$(8)="A "+NA$+" "+PL$+"          "+C$+" "+PP$
  266. 1540 REM INTRO
  267. 1541 UP=0:UG$="[201]NTRODUCTION"
  268. 1545 UH=1:GOSUB 850
  269. 1550 PRINT"        [195]64 WILL SHOW YOU A MAP."
  270. 1560 PRINT"    [207]N THE MAP LAND IS MARKED BY [166]"
  271. 1570 PRINT"           AND WATER IS BLANK."
  272. 1580 PRINT"     [195]64 WILL PUT AN * ON THE MAP"
  273. 1590 PRINT"  AND TELL YOU THE NAME BELOW THE MAP."
  274. 1600 GOSUB835
  275. 1630 GOSUB3360
  276. 1640 ON R GOTO 1800,3070
  277. 1650 PRINT"[147]            [208]RESS R[146] TO REVIEW."
  278. 1660 PRINT"           [208]RESS T[146] TO TRY TEST."
  279. 1670 PRINT"           [212]YPE IN YOUR CHOICE"
  280. 1671 PRINT"          AND PRESS <RETURN>. ";
  281. 1680 US$="QHTR":UL=1:GOSUB 35:Y$=UR$
  282. 1685 IF Y$="Q" THEN RETURN
  283. 1690 IF Y$="R" GOTO 1630
  284. 1700 IF Y$<>"T" GOTO 1680
  285. 1710 R=2:UP=1:UH=1
  286. 1715 GOSUB 850
  287. 1720 PRINT"    [195]64 WILL SHOW YOU THE MAP AGAIN"
  288. 1730 PRINT"          AND MARK IT WITH AN *"
  289. 1740 PRINT"             WHEN YOU SEE A"
  290. 1745 PRINT"        FLASHING CURSOR  [146] TYPE IN"
  291. 1750 PRINT"       THE NAME AND PRESS <RETURN>"
  292. 1760 GOSUB835
  293. 1790 GOSUB 1630:IFR=2ANDUR$="Q"THENRETURN
  294. 1800 REM LESSON
  295. 1810 FORI=1 TO 5
  296. 1820 PRINT"*"
  297. 1830 FOR X=1 TO 100:NEXT X
  298. 1840 PRINT" "
  299. 1850 FOR X=1 TO 100:NEXT X
  300. 1860 NEXT I
  301. 1870 PRINT"*"
  302. 1880 C=1:ON R GOSUB 2620,2740
  303. 1885 PRINT" "
  304. 1890 IF R=2 THENIFUR$="Q"THENRETURN
  305. 1900 IF R=2 GOTO 3100
  306. 1910 FOR I=1 TO 5
  307. 1920 PRINT"*"
  308. 1930 FOR X=1 TO 100:NEXT X
  309. 1940 PRINT" "
  310. 1950 FOR X=1 TO 100:NEXT X
  311. 1960 NEXT I
  312. 1970 PRINT"*"
  313. 1980 C=2:ON R GOSUB 2620,2740
  314. 1990 PRINT" "
  315. 1995 IF R=2 AND UR$="Q"THENRETURN
  316. 2000 IF R=2 GOTO 3100
  317. 2010 FOR I=1 TO 5
  318. 2020 PRINT"*"
  319. 2030 FOR X=1 TO 100:NEXT X
  320. 2040 PRINT" "
  321. 2050 FOR X=1 TO 100:NEXT X
  322. 2060 NEXT I
  323. 2070 PRINT"*"
  324. 2080 C=3:ON R GOSUB 2620,2740
  325. 2090 PRINT" "
  326. 2095 IF R=2 THEN IFUR$="Q"THEN RETURN
  327. 2100 IF R=2 GOTO 3100
  328. 2110 FOR I=1 TO 5
  329. 2120 PRINT"*"
  330. 2130 FOR X=1 TO 100:NEXT X
  331. 2140 PRINT"[166]"
  332. 2150 FOR X=1 TO 100:NEXT X
  333. 2160 NEXT I
  334. 2170 PRINT"*"
  335. 2180 C=4:ON R GOSUB 2620,2740
  336. 2190 PRINT"[166]"
  337. 2195 IF R=2 THEN IFUR$="Q"THENRETURN
  338. 2200 IF R=2 GOTO 3100
  339. 2210 FOR I=1 TO 5
  340. 2220 PRINT"*"
  341. 2230 FOR X=1 TO 100:NEXT X
  342. 2240 PRINT"[166]"
  343. 2250 FOR X=1 TO 100:NEXT X
  344. 2260 NEXT I
  345. 2270 PRINT"*"
  346. 2280 C=5:ON R GOSUB 2620,2740
  347. 2290 PRINT"[166]"
  348. 2295 IF R=2 THEN IFUR$="Q"THEN RETURN
  349. 2300 IF R=2 GOTO 3100
  350. 2310 FOR I=1 TO 5
  351. 2320 PRINT"*"
  352. 2330 FOR X=1 TO 100:NEXT X
  353. 2340 PRINT" "
  354. 2350 FOR X=1 TO 100:NEXT X
  355. 2360 NEXT I
  356. 2370 PRINT"*"
  357. 2380 C=6:ON R GOSUB 2620,2740
  358. 2390 PRINT" "
  359. 2395 IFR=2THENIFUR$="Q"THENRETURN
  360. 2400 IF R=2 GOTO 3100
  361. 2410 FOR I=1 TO 5
  362. 2420 PRINT"*"
  363. 2430 FOR X=1 TO 100:NEXT X
  364. 2440 PRINT"[166]"
  365. 2450 FOR X=1 TO 100:NEXT X
  366. 2460 NEXT I
  367. 2470 PRINT"*"
  368. 2480 C=7:ON R GOSUB 2620,2740
  369. 2490 PRINT"[166]"
  370. 2495 IFR=2THENIFUR$="Q"THENRETURN
  371. 2500 IF R=2 GOTO 3100        
  372. 2510 FOR I=1 TO 5
  373. 2520 PRINT"*"
  374. 2530 FOR X=1 TO 100:NEXT X
  375. 2540 PRINT"[166]"
  376. 2550 FOR X=1 TO 100:NEXT X
  377. 2560 NEXT I
  378. 2570 PRINT"*"
  379. 2580 C=8:ON R GOSUB 2620,2740
  380. 2590 PRINT"[166]"
  381. 2595 IFR=2THENIFUR$="Q"THENRETURN
  382. 2600 IF R=2 GOTO 3100
  383. 2610 GOTO 1650
  384. 2620 REM TEXT
  385. 2630 PRINT""
  386. 2640 PRINTN$(C);"-";I$(C)"."
  387. 2650 GOSUB835
  388. 2690 PRINT"                                        "
  389. 2700 PRINT"                                        "
  390. 2710 PRINT"                                       "
  391. 2720 PRINT"                                 "
  392. 2725 PRINT"                                 "
  393. 2730 RETURN
  394. 2740 REM TEST CHECK
  395. 2750 AT=1
  396. 2760 PRINT""
  397. 2765 PRINT"[209]UIT-PRESS Q RETURN[146]:[200]ELP-PRESS H RETURN[146]"
  398. 2767 PRINT""
  399. 2770 PRINT"[212]YPE THE NAME FOR * AND PRESS RETURN[146]    ? ";
  400. 2775 US$=""
  401. 2780 UL=18:GOSUB 35:K$=UR$:PRINT"[145]";
  402. 2785 IF K$="Q" THEN RETURN
  403. 2800 IF K$=N$(C) GOTO 3010
  404. 2810 AT=AT+1
  405. 2820 IF AT>=4 GOTO 2890
  406. 2830 IF N=1 THEN PRINT"   [206]O TRY AGAIN"
  407. 2840 IF N<>1THEN PRINT" [206]O TRY AGAIN"
  408. 2850 FOR J=1 TO 500:NEXT J
  409. 2860 IF N=1 THEN PRINT"[145]                                        "
  410. 2870 IF N<>1 THEN PRINT"[145]                                      "
  411. 2880 GOTO 2760
  412. 2890 IF N=1 THEN PRINT" [212]HE CORRECT NAME IS";
  413. 2900 IF N<>1THEN PRINT"   [212]HE CORRECT NAME IS";
  414. 2910 IF N=1 THEN PRINTN$(C)
  415. 2920 IF N<>1THEN PRINTN$(C)
  416. 2930 GOSUB835
  417. 2940 PRINT"                                        "
  418. 2950 PRINT"                                        "
  419. 2960 PRINT"                                        "
  420. 2970 PRINT"                                        "
  421. 2980 PRINT"                                        "
  422. 2990 PRINT"                                      "
  423. 3000 GOTO 3060
  424. 3010 IF N=1 THEN PRINT" [199]OOD
  425. 3020 [139] N[179][177]1[167] [153]" CHR$OOD!"
  426. 3030 [141]835
  427. 3040 [139] AT[178]1 [167] CT[178]CT[170]1
  428. 3050 [137] 2940
  429. 3060 [142]
  430. 3070 [143] RANDOM QUIZ
  431. 3080 CT[178]0:N[178]0
  432. 3090 [129] I[178]I [164] 8:CH(I)[178]0:[130] I
  433. 3100 N[178]N[170]1
  434. 3110 [139] N[177]8 [137] 3180
  435. 3120 E[178][181](8[172][187](TI)[170]1)
  436. 3130 [129] I[178]1 [164] N[171]1
  437. 3140 [139] E[178]CH(I) [137] 3120
  438. 3150 [130] I
  439. 3160 CH(N)[178]E
  440. 3170 [145] E [137] 1810,1910,2010,2110,2210,2310,2410,2510
  441. 3180 [143] SCORE
  442. 3183 UP[178]2
  443. 3185 [141] 850
  444. 3190 [153]""
  445. 3200 [153]"    (null)OU ANSWERED";CT;"OUT OF 8 QUESTIONS"
  446. 3210 [153]"               CORRECTLY."
  447. 3220 [139] CT[178]8 [137] 3320
  448. 3230 [139] CT[179]6 [137] 3300
  449. 3240 [153]"      CHR$OOD-BUT YOUR SHOULD REVIEW"
  450. 3250 [153]"      STR$O YOU WANT REVIEW NOW?(Y/N)";
  451. 3260 US$[178]"YN":UL[178]1:[141]35:Q$[178]UR$
  452. 3270 [139] Q$[178]"N" [137] 3340
  453. 3280 [139] Q$[179][177]"Y" [137] 3260
  454. 3290 R[178]1:N[178]0:CT[178]0:[137] 1630
  455. 3300 [153]"           (null)OU SHOULD REVIEW"
  456. 3310 [137] 3250
  457. 3320 [153][166]15)"VALXCELLENT!"
  458. 3330 [141] 835
  459. 3335 UR$[178]"Q":[142]
  460. 3340 [153]"LOAD"
  461. 3350 UR$[178]"Q":[142]
  462. 3360 [143] MAP #1
  463. 3372 [153]"LOADSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(    CHR$EOG (null)AP       "
  464. 3380 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(             SPC(     SPC(SPC(SPC("
  465. 3390 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(          SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC("
  466. 3400 [153]"SPC(SPC(SPC(SPC(SPC(     SPC(SPC(SPC(SPC(           SPC(SPC(   SPC(SPC(SPC(SPC("
  467. 3410 [153]"SPC(SPC(SPC(SPC(       SPC(SPC(SPC(                 SPC(SPC("
  468. 3420 [153]"SPC(SPC(SPC(SPC(        SPC(SPC(                  SPC("
  469. 3430 [153]"SPC(SPC(SPC(SPC(                            SPC("
  470. 3440 [153]"SPC(SPC(SPC(SPC(SPC(       SPC(SPC(       SPC(         SPC(SPC(SPC("
  471. 3450 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(SPC(      SPC(        SPC(SPC(SPC(SPC("
  472. 3460 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(    SPC(SPC(       SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  473. 3470 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(     SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  474. 3480 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(  SPC(SPC(SPC(SPC(SPC(   SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  475. 3490 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  476. 3500 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  477. 3510 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  478. 3520 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  479. 3530 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  480. 3540 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
  481. 3550 [142]
  482.