home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / NEW-STATES-CAPS (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  14KB  |  463 lines
  1. 5 REM DONATED BY VITO DEVENERE
  2. 10 REM"[133]=SAVE"@0:CAPITALS",8
  3. 20 [151]53280,6:[151]53281,12:[153][199](28)
  4. 30 [134]S$(50),C$(50),F%(50)
  5. 40 Q(1)[178]13:Q(2)[178]15:Q(3)[178]11:Q(4)[178]11:Q(5)[178]50
  6. 50 D$(1)[178]"   CONGRATULATIONS -- PERFECT SCORE!!"
  7. 60 D$(2)[178]"    GREAT -- YOU ALMOST GOT THEM ALL"
  8. 70 D$(3)[178]"         FAIR -- KEEP PRACTICING"
  9. 80 D$(4)[178]"          BETTER LUCK NEXT TIME"
  10. 90 S$(1)[178]"WASHINGTON"     : C$(1)[178]"OLYMPIA"
  11. 100 S$(2)[178]"OREGON"         : C$(2)[178]"SALEM"
  12. 110 S$(3)[178]"CALIFORNIA"     : C$(3)[178]"SACRAMENTO"
  13. 120 S$(4)[178]"IDAHO"          : C$(4)[178]"BOISE"
  14. 130 S$(5)[178]"NEVADA"         : C$(5)[178]"CARSON CITY"
  15. 140 S$(6)[178]"UTAH"           : C$(6)[178]"SALT LAKE CITY"
  16. 150 S$(7)[178]"ARIZONA"        : C$(7)[178]"PHOENIX"
  17. 160 S$(8)[178]"MONTANA"        : C$(8)[178]"HELENA"
  18. 170 S$(9)[178]"WYOMING"        : C$(9)[178]"CHEYENNE"
  19. 180 S$(10)[178]"COLORADO"      : C$(10)[178]"DENVER"
  20. 190 S$(11)[178]"NEW MEXICO"    : C$(11)[178]"SANTA FE"
  21. 200 S$(12)[178]"ALASKA"        : C$(12)[178]"JUNEAU"
  22. 210 S$(13)[178]"HAWAII"        : C$(13)[178]"HONOLULU"
  23. 220 S$(14)[178]"NORTH DAKOTA"  : C$(14)[178]"BISMARCK"
  24. 230 S$(15)[178]"SOUTH DAKOTA"  : C$(15)[178]"PIERRE"
  25. 240 S$(16)[178]"NEBRASKA"      : C$(16)[178]"LINCOLN"
  26. 250 S$(17)[178]"KANSAS"        : C$(17)[178]"TOPEKA"
  27. 260 S$(18)[178]"MINNESOTA"     : C$(18)[178]"ST. PAUL"
  28. 270 S$(19)[178]"IOWA"          : C$(19)[178]"DES MOINES"
  29. 280 S$(20)[178]"MISSOURI"      : C$(20)[178]"JEFFERSON CITY"
  30. 290 S$(21)[178]"MICHIGAN"      : C$(21)[178]"LANSING"
  31. 300 S$(22)[178]"WISCONSON"     : C$(22)[178]"MADISON"
  32. 310 S$(23)[178]"ILLINOIS"      : C$(23)[178]"SPRINGFIELD"
  33. 320 S$(24)[178]"INDIANA"       : C$(24)[178]"INDIANAPOLIS"
  34. 330 S$(25)[178]"OHIO"          : C$(25)[178]"COLUMBUS"
  35. 340 S$(26)[178]"KENTUCKY"      : C$(26)[178]"FRANKFORT"
  36. 350 S$(27)[178]"WEST VIRGINIA" : C$(27)[178]"CHARLESTON"
  37. 360 S$(28)[178]"VIRGINIA"      : C$(28)[178]"RICHMOND"
  38. 370 S$(29)[178]"TENNESSEE"     : C$(29)[178]"NASHVILLE"
  39. 380 S$(30)[178]"NORTH CAROLINA": C$(30)[178]"RALEIGH"
  40. 390 S$(31)[178]"SOUTH CAROLINA": C$(31)[178]"COLUMBIA"
  41. 400 S$(32)[178]"MISSISSIPPI"   : C$(32)[178]"JACKSON"
  42. 410 S$(33)[178]"ALABAMA"       : C$(33)[178]"MONTGOMERY"
  43. 420 S$(34)[178]"GEORGIA"       : C$(34)[178]"ATLANTA"
  44. 430 S$(35)[178]"FLORIDA"       : C$(35)[178]"TALLAHASSEE"
  45. 440 S$(36)[178]"OKLAHOMA"      : C$(36)[178]"OKLAHOMA CITY"
  46. 450 S$(37)[178]"TEXAS"         : C$(37)[178]"AUSTIN"
  47. 460 S$(38)[178]"ARKANSAS"      : C$(38)[178]"LITTLE ROCK"
  48. 470 S$(39)[178]"LOUISIANA"     : C$(39)[178]"BATON ROUGE"
  49. 480 S$(40)[178]"PENNSYLVANIA"  : C$(40)[178]"HARRISBURG"
  50. 490 S$(41)[178]"NEW JERSEY"    : C$(41)[178]"TRENTON"
  51. 500 S$(42)[178]"NEW YORK"      : C$(42)[178]"ALBANY"
  52. 510 S$(43)[178]"CONNETICUT"    : C$(43)[178]"HARTFORD"
  53. 520 S$(44)[178]"RHODE ISLAND"  : C$(44)[178]"PROVIDENCE"
  54. 530 S$(45)[178]"MASSACHUSETTS" : C$(45)[178]"BOSTON"
  55. 540 S$(46)[178]"VERMONT"       : C$(46)[178]"MONTPELIER"
  56. 550 S$(47)[178]"NEW HAMPSHIRE" : C$(47)[178]"CONCORD"
  57. 560 S$(48)[178]"MAINE"         : C$(48)[178]"AUGUSTA"
  58. 570 S$(49)[178]"MARYLAND"      : C$(49)[178]"ANNAPOLIS"
  59. 580 S$(50)[178]"DELAWARE"      : C$(50)[178]"DOVER"
  60. 590 [143]
  61. 600 [143] ** MAINLINE PROGRAM **
  62. 610 [143]
  63. 615 [141] 4000
  64. 620 [141]2860
  65. 630 [153]"":[141]1080
  66. 640 [141]1730
  67. 650 OP[178][197](VL$)
  68. 660 [139]OP[178]6[176]VL$[178]"H"[167][141]2530:[137]630
  69. 670 [139]OP[178]7[176]VL$[178]"E"[137]2430
  70. 671 [139]OP[178]8 [167] [141] 5000
  71. 680 [139]OP[179]1[176]OP[177]8[167][141]2260:[137]640
  72. 690 [141]1230
  73. 700 [141]1730
  74. 710 [139]VL$[178]"E"[137]2430
  75. 720 OD[178][197](VL$)
  76. 730 [139]OD[179]1[176]OD[177]2[167][141]2260:[137]700
  77. 740 CR[178]0:IN[178]0:[129]I[178]1[164]50:F%(I)[178]0:[130]
  78. 750 [141] 1350
  79. 760 I[178][181]([187](.)[172]50[170]1)
  80. 770 [139]OP[178]1[175](I[177]13)       [137]760
  81. 780 [139]OP[178]2[175](I[179]14[176]I[177]28) [137]760
  82. 790 [139]OP[178]3[175](I[179]29[176]I[177]39) [137]760
  83. 800 [139]OP[178]4[175](I[179]40)       [137]760
  84. 810 [139]F%(I)[178]1[137]760
  85. 820 [153]"                "
  86. 830 [139]OD[178]1[167][153]""S$(I):[137]850
  87. 840 [153]""C$(I)
  88. 850 [141]1730
  89. 860 [139]VL$[178]"END"[176]VL$[178]"E"[137]2430
  90. 870 [139]OD[178]1[175]VL$[178]C$(I)[167][141]1930:F%(I)[178]1:CR[178]CR[170]1
  91. 880 [139]OD[178]2[175]VL$[178]S$(I)[167][141]1930:F%(I)[178]1:CR[178]CR[170]1
  92. 890 [139]OD[178]1[175]VL$[179][177]C$(I)[167][141]2120:F%(I)[178]1:IN[178]IN[170]1
  93. 900 [139]OD[178]2[175]VL$[179][177]S$(I)[167][141]2120:F%(I)[178]1:IN[178]IN[170]1
  94. 910 [139]CR[170]IN[179][177]Q(OP)[137]750
  95. 920 [141]1490
  96. 930 [141]1730
  97. 940 [139]VL$[178]"YES"[176][200](VL$,1)[178]"Y"[137]630
  98. 950 [137]2430
  99. 960 [143]
  100. 970 [143] ** SOUND EFFECTS **
  101. 980 [143]
  102. 990 [143] BELL SOUND
  103. 1000 [151]54296,15:[151]54277,0:[151]54278,247:[151]54276,17:[151]54273,40
  104. 1010 [151]54272,0:[129]Z[178]1[164]100:[130]:[151]54276,16:[142]
  105. 1020 [143] BUZZER SOUND
  106. 1030 [151]54296,15:[151]54277,45:[151]54278,165:[151]54276,33:[151]54273,6
  107. 1040 [151]54272,5:[129]Z[178]1[164]500:[130]:[151]54276,32:[151]54273,0:[151]54272,0:[142]
  108. 1050 [143]
  109. 1060 [143] ** OPTION SCREEN **
  110. 1070 [143]
  111. 1080 RO$[178]"":DE$[178]"[ ]":DL[178]24:MX[178]1
  112. 1090 [153]"LOAD          STATES AND CAPITALS"
  113. 1100 [153]""[163]31)"# OF"
  114. 1110 [153]"     SELECT AN OPTION:        STATES"
  115. 1120 [153]"       1 - WESTERN STATES       13"
  116. 1130 [153]"       2 - CENTRAL STATES       15"
  117. 1140 [153]"       3 - SOUTHERN STATES      11"
  118. 1150 [153]"       4 - NORTHEAST STATES     11"
  119. 1160 [153]"       5 - ALL STATES           50"
  120. 1170 [153]"       6 - INSTRUCTIONS"
  121. 1180 [153]"       7 - END PROGRAM"
  122. 1185 [153]"       8 - REVIEW STATES/CAPS"
  123. 1190 [142]
  124. 1200 [143]
  125. 1210 [143] ** ORDER SCREEN **
  126. 1220 [143]
  127. 1230 RO$[178]"":DE$[178]"[ ]":DL[178]23:MX[178]1:VL$[178]""
  128. 1240 [153]"LOAD           STATES AND CAPITALS":[153]
  129. 1250 [145]OP[141]2350,2360,2370,2380,2390
  130. 1260 [153]"    SELECT AN OPTION:"
  131. 1270 [153]"     1. YOU ARE GIVEN THE STATE AND"
  132. 1280 [153]"        ARE ASKED FOR THE CAPITAL"
  133. 1290 [153]"     2. YOU ARE GIVEN THE CAPITAL AND"
  134. 1300 [153]"        ARE ASKED FOR THE STATE"
  135. 1310 [142]
  136. 1320 [143]
  137. 1330 [143] ** DATA ENTRY SCREEN **
  138. 1340 [143]
  139. 1350 RO$[178]"":DE$[178]"[              ]":DL[178]17:MX[178]14:R$[178]""
  140. 1360 [153]"LOAD           STATES AND CAPITALS":[153]
  141. 1370 [145]OP[141]2350,2360,2370,2380,2390
  142. 1380 [139]OD[178]1[167][153]"  STATES    ASKED    CORRECT  INCORRECT":[137]1400
  143. 1390 [153]" CAPITALS   ASKED    CORRECT  INCORRECT"
  144. 1400 [153][163]3)Q(OP)[163]13)CR[170]IN [163]23)CR[163]33)IN
  145. 1410 [139]OD[178]1[167][153]"       STATE:                   ":[137]1430
  146. 1420 [153]"       CAPITAL:                   "
  147. 1430 [139]OD[178]1[167][153]"       CAPITAL:                  ":[137]1450
  148. 1440 [153]"         STATE:                  "
  149. 1450 [142]
  150. 1460 [143]
  151. 1470 [143] ** FINAL SCREEN **
  152. 1480 [143]
  153. 1490 RO$[178]"":DE$[178]"[   ]":DL[178]32:MX[178]3:VL$[178]""
  154. 1500 P[178][181](CR[173]Q(OP)[172]100)
  155. 1510 [153]"LOAD           STATES AND CAPITALS":[153]
  156. 1520 [145]OP[141]2350,2360,2370,2380,2390
  157. 1530 CR$[178][196](CR):Q$[178][201]([196](Q(OP)),2):P$[178][196](P)
  158. 1540 SC$[178]"YOUR SCORE:"[170]CR$[170]"/"[170]Q$[170]" ="[170]P$[170]"%"
  159. 1550 B[178]20[171][195](SC$)[173]2
  160. 1560 [153]""[163]B)SC$
  161. 1570 [139]P[178]1         [167] J[178]1
  162. 1580 [139]P[177]75[175]P[179]100 [167] J[178]2
  163. 1590 [139]P[177]33[175]P[179]76  [167] J[178]3
  164. 1600 [139]P[179]34        [167] J[178]4
  165. 1610 [129]N[178]1[164]3
  166. 1620 [153]"                                       "
  167. 1630 [129]T[178]1[164]300:[130]
  168. 1640 [153]""D$(J)
  169. 1650 [129]T[178]1[164]300:[130]
  170. 1660 [130]
  171. 1670 [129]T[178]1[164]1000:[130]
  172. 1680 [153]RO$"    DO YOU WISH TO PLAY AGAIN?  [   ]"
  173. 1690 [142]
  174. 1700 [143]
  175. 1710 [143] ** FIELD ENTRY SUBROUTINE **
  176. 1720 [143]
  177. 1730 CO[178]0:VL$[178]"":L[178]DL[170]1
  178. 1740 [153]RO$[163]DL)DE$
  179. 1750 [153]RO$[163]L);:[151]204,0
  180. 1760 [161]R$:[139]R$[178]""[137]1760
  181. 1770 [151]204,1
  182. 1780 [139](R$[178][199](157)[176]R$[178][199](20))[175]CO[178]0[137]1740
  183. 1790 [139]R$[178][199](20)[167][141]1870:[137]1750
  184. 1800 [139]R$[178][199](29)[176]R$[178][199](17)[176]R$[178][199](145)[137]1750
  185. 1810 [139]R$[178][199](148)[176]R$[178][199](157)[137]1750
  186. 1820 [139]R$[178][199](13)[175]CO[179][177]MX[167][153]" ":[142]
  187. 1830 [139]R$[178][199](13)[175]CO[178]MX[167][153]"]":[142]
  188. 1840 [139]CO[178]MX[137]1730
  189. 1850 [153]RO$[163]L)R$:VL$[178]VL$[170]R$:CO[178]CO[170]1:L[178]L[170]1
  190. 1860 [137]1750
  191. 1870 [153]RO$[163]L)" ":CO[178]CO[171]1:L[178]L[171]1:VL$[178][200](VL$,L[171]DL[171]1)
  192. 1880 [139]CO[170]1[178]MX[167][153]RO$[163]L[170]1)"]"
  193. 1890 [142]
  194. 1900 [143]
  195. 1910 [143] ** SUBROUTINE FOR CORRECT DISPLAY **
  196. 1920 [143]
  197. 1930 [129]M[178]1[164]3:[141]990:[141]1950:[130]
  198. 1940 [142]
  199. 1950 [153]""
  200. 1960 [153]"       WAIT     WAIT     WAIT     WAIT     WAIT     WAIT      "
  201. 1970 [153]"    WAIT     WAIT   WAIT  WAIT   WAIT  WAIT   WAIT  WAIT     WAIT       "
  202. 1980 [153]"    WAIT     WAIT   WAIT     WAIT     WAIT    WAIT   WAIT       "
  203. 1990 [153]"    WAIT     WAIT   WAIT  WAIT(null) (null)WAIT  WAIT(null) (null)WAIT  WAIT     WAIT       "
  204. 2000 [153]"       WAIT     WAIT  WAIT (null) WAIT  WAIT (null) WAIT     WAIT     WAIT    "
  205. 2010 [129]N[178]1[164]500:[130]
  206. 2020 [153]""
  207. 2030 [153]"                                       "
  208. 2040 [153]"                                       "
  209. 2050 [153]"                                       "
  210. 2060 [153]"                                       "
  211. 2070 [153]"                                       "
  212. 2080 [142]
  213. 2090 [143]
  214. 2100 [143] ** SUBROUTINE FOR INCORRECT DISPLAY **
  215. 2110 [143]
  216. 2120 [139]OD[178]1[167]B[178]20[171][195](C$(I))[173]2:[137]2140
  217. 2130 B[178]20[171][195](S$(I))[173]2
  218. 2140 [153]"":[141]1030
  219. 2150 [153]"        SORRY, CORRECT ANSWER IS ":[129] N[178]1[164]500:[130]
  220. 2160 [139]OD[178]1[167][129]N[178]1[164][195](C$(I)):[137]2180
  221. 2170 [129]N[178]1[164][195](S$(I))
  222. 2180 [129]Z[178]37[164]B[170]N[171]1[169][171]1
  223. 2190 [139]OD[178]1[167][153][163]Z)[202](C$(I),N,1);"CLOSEON":[137]2210
  224. 2200 [153][163]Z)[202](S$(I),N,1);"CLOSEON"
  225. 2210 [130]Z:[130]N:[129]N[178]1[164]2000:[130]N
  226. 2220 [142]
  227. 2230 [143]
  228. 2240 [143] ** ERROR MESSAGE **
  229. 2250 [143]
  230. 2260 [141]1030:[129]N[178]1[164]3
  231. 2270 [153]"                                "
  232. 2280 [129]T[178]1[164]300:[130]
  233. 2290 [153]"         *** INVALID OPTION ***"
  234. 2300 [129]T[178]1[164]300:[130]
  235. 2310 [130]:[142]
  236. 2320 [143]
  237. 2330 [143] ** SUBROUTINES FOR PRINTING OPTION DESCRIPTIONS **
  238. 2340 [143]
  239. 2350 [153]"             WESTERN STATES":[142]
  240. 2360 [153]"             CENTRAL STATES":[142]
  241. 2370 [153]"             SOUTHERN STATES":[142]
  242. 2380 [153]"            NORTHEAST STATES":[142]
  243. 2390 [153]"               ALL STATES":[142]
  244. 2400 [143]
  245. 2410 [143] ** END OF PROGRAM **
  246. 2420 [143]
  247. 2430 A$[178]"STOPBYE "[170]NA$
  248. 2431 [153]"LOAD"
  249. 2432 [141] 14000
  250. 2433 A[178][195](A$):[139]A[173]2[179][177][181](A[173]2)[167]A$[178]" "[170]A$:[137] 2433
  251. 2440 [129]N[178]1[164]A[173]2
  252. 2460 [153][163]19[171]N);[200](A$,N);[201](A$,N);"ON"
  253. 2461 [129]W[178]1[164]50:[130]W:[130]N
  254. 2470 [129]Z[178]1[164]500:[130]Z
  255. 2471 [153]""
  256. 2472 Y$[178]"PRINTFROM ST. PASCHAL'S SCHOOL"
  257. 2473 A[178][195](Y$):[139]A[173]2[179][177][181](A[173]2)[167]Y$[178]" "[170]Y$:[137] 2473
  258. 2474 [129]N[178]1[164]A[173]2
  259. 2475 [153][163]19[171]N);[200](Y$,N);[201](Y$,N);"ON"
  260. 2476 [129]W[178]1[164]50:[130]W:[130]N
  261. 2477 [129]Z[178]1[164]500:[130]Z
  262. 2481 [141] 4470
  263. 2490 [128]
  264. 2500 [143]
  265. 2510 [143] ** INSTRUCTIONS - PAGE 1 **
  266. 2520 [143]
  267. 2530 [153]"LOAD"[163]11)"STATES AND CAPITALS"
  268. 2540 [153]""[163]10)"INSTRUCTIONS - PAGE 1"
  269. 2550 [153]" THIS IS A GAME THAT TESTS YOUR"
  270. 2560 [153]" KNOWLEDGE OF STATES AND THEIR CAPITALS."
  271. 2570 [153]" YOU MAY CHOOSE WHICH OF FOUR GEOGRAPHIC"
  272. 2580 [153]"ON AREAS YOU WISH TO BE TESTED ON, OR YOU"
  273. 2590 [153]" MAY BE TESTED ON ALL 50 STATES."
  274. 2600 [153]" YOU CAN HAVE THE PROGRAM GIVE YOU THE"
  275. 2610 [153]" NAME OF A STATE AND ASK YOU FOR ITS"
  276. 2620 [153]" CAPITAL.  OR YOU CAN HAVE IT GIVE YOU"
  277. 2630 [153]" A CAPITAL AND ASK YOU FOR THE STATE."
  278. 2640 [153]"    ** PRESS <RETURN> FOR PAGE 2 **  "
  279. 2650 [161]A$:[139]A$[179][177][199](13)[137]2650
  280. 2660 [143]
  281. 2670 [143] ** INSTRUCTIONS - PAGE 2 **
  282. 2680 [153]"LOAD"[163]11)"STATES AND CAPITALS"
  283. 2690 [153]""[163]10)"INSTRUCTIONS - PAGE 2":[141]13000
  284. 2700 [153]"  ONE COMMAND MAY BE ENTERED FROM":[153]"  ANY PROMPT AT ANY TIME:"
  285. 2710 [153]"   END  - TERMINATES THE PROGRAM"
  286. 2720 [153]"  YOU MAY ENTER JUST THE FIRST LETTER":[153]"  OF THIS COMMAND."
  287. 2730 [153]"":[129]Z[178]1[164]2000:[130]Z
  288. 2740 A$[178]"GOOD LUCK PLAYING STATES AND CAPITALS!"
  289. 2750 A[178][195](A$):[139]A[173]2[179][177][181](A[173]2)[167]A$[178]" "[170]A$:[137]2750
  290. 2760 [129]N[178]1[164]A[173]2
  291. 2770 [153][163]20[171]N);[200](A$,N);[201](A$,N);"ON"
  292. 2780 [129]Z[178]1[164]50:[130]Z:[130]N
  293. 2790 [153]""
  294. 2800 [153]"      ** PRESS <RETURN> FOR MENU **   "
  295. 2810 [161]Z$:[139]Z$[179][177][199](13)[137]2810
  296. 2820 [142]
  297. 2830 [143]
  298. 2840 [143] ** TITLE PAGE **
  299. 2850 [143]
  300. 2860 [153]"LOADSTOP"
  301. 2861 Z$[178]"HI THERE "[170]NA$
  302. 2862 Z[178][195](Z$):[139]Z[173]2[179][177][181](Z[173]2)[167]Z$[178]" "[170]Z$:[137]2862
  303. 2863 [129]N[178]1[164]Z[173]2
  304. 2864 [153][163]19[171]N);[200](Z$,N);[201](Z$,N);"ON"
  305. 2865 [129]W[178]1[164]50:[130]W:[130]N
  306. 2866 [129]W[178]1[164]200:[130]W
  307. 2867 [153]""
  308. 2869 [153]"    STEP   WAIT      WAIT STEP  (null)WAIT      WAIT     WAIT STEP   "
  309. 2870 [153]"     WAIT       WAIT    WAIT   WAIT    WAIT    WAIT     "
  310. 2880 [153]"    (null)  (null)WAIT    WAIT       WAIT    WAIT      WAIT  (null)  (null)"
  311. 2890 [153]"        WAIT    WAIT    WAIT   WAIT    WAIT    WAIT        "
  312. 2900 [153]"       WAITSTEP    WAIT    WAIT   WAIT    WAIT       WAIT    WAITSTEP"
  313. 2910 [153]:[153]
  314. 2920 [153]"            STEP  (null)WAIT  (null)WAIT   WAIT    (null)"
  315. 2930 [153]"             WAIT   WAIT   (null)WAIT  WAIT  WAIT   "
  316. 2940 [153]"                WAIT  WAIT(null) (null) WAIT  WAIT   "
  317. 2950 [153]"             WAIT   WAIT  WAIT (null)  WAIT  WAIT   "
  318. 2960 [153]"             WAIT   WAIT  WAIT  (null) WAIT    WAITSTEP"
  319. 2970 [153]:[153]
  320. 2980 [153]" STEP   WAIT STEP  (null)WAIT    (null)WAIT    WAIT      WAIT STEP  (null)WAIT  WAIT   STEP   "
  321. 2990 [153]"  WAIT     WAIT   WAIT  WAIT   WAIT   WAIT     WAIT    WAIT   WAIT  WAIT    "
  322. 3000 [153]"  WAIT        WAIT    WAITSTEP   WAIT     WAIT       WAIT  WAIT   (null)  (null)"
  323. 3010 [153]"  WAIT     WAIT   WAIT  WAIT      WAIT     WAIT    WAIT   WAIT  WAIT       "
  324. 3020 [153]" (null)   WAIT  WAIT   WAIT  WAIT       WAIT    WAIT    WAIT   WAIT    WAIT    WAITSTEP"
  325. 3040 A$[178]"STOPPRESS SPACE BAR TO CONTINUE"
  326. 3041 [153]
  327. 3050 A[178][195](A$):[139]A[173]2[179][177][181](A[173]2)[167]A$[178]" "[170]A$:[137]3050
  328. 3060 [129]N[178]1[164]A[173]2
  329. 3070 [153][163]19[171]N);[200](A$,N);[201](A$,N);"ON"
  330. 3080 [129]Z[178]1[164]50:[130]Z:[130]N
  331. 3090 [141] 10010
  332. 3100 [142]
  333. 4000 [153]"LOAD"
  334. 4005 [153][163]9)"STOPST. PASCHAL'S SCHOOL"
  335. 4006 [153][163]9)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  336. 4007 [153][163]9)"STOPSTATES & CAPITALS QUIZ"
  337. 4008 [153][163]9)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  338. 4009 [129]J[178]1[164]40:[153]"SYS-";:[130]J:[153]""
  339. 4010 [133]"SYSWHAT IS YOUR NAME ";NA$
  340. 4020 [142]
  341. 4470 [153]""
  342. 4472 K$[178]"SEE YOU NEXT TIME--CHARLIE II"
  343. 4473 A[178][195](K$):[139]A[173]2[179][177][181](A[173]2)[167]K$[178]" "[170]K$:[137] 4473
  344. 4474 [129]N[178]1[164]A[173]2
  345. 4475 [153][163]19[171]N);[200](K$,N);[201](K$,N);"ON"
  346. 4476 [129]W[178]1[164]50:[130]W:[130]N
  347. 4477 [129]Z[178]1[164]500:[130]Z
  348. 4480 [153]:[153]
  349. 4490 [142]
  350. 5000 [153]"LOAD"
  351. 5001 [151]53281,15
  352. 5010 [153][163]6)"STOPREVIEW OF STATES & CAPITALS"
  353. 5020 [153][163]6)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSTOP"
  354. 5030 [153][163]11)"1)WESTERN STATES"
  355. 5040 [153][163]11)"SYS2)CENTRAL STATES"
  356. 5050 [153][163]11)"3)SOUTHERN STATES"
  357. 5051 [153][163]11)"CLR4)NORTHEAST STATES"
  358. 5070 [153][163]11)"5)ALL STATES"
  359. 5071 [153][163]11)"POKE6)RETURN TO MAIN MENU"
  360. 5075 [153][163]6)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSTOP"
  361. 5076 [153][163]7);
  362. 5080 [133]"STOP1,2,3,4,5 OR 6 ";RE
  363. 5085 [139]RE[179]1[176]RE[177]6[167] [141]9000
  364. 5086 [139]RE[178]1 [167] [141] 6000
  365. 5087 [139]RE[178]2 [167] [141] 6100
  366. 5088 [139]RE[178]3 [167] [141] 6200
  367. 5089 [139]RE[178]4 [167] [141] 6300
  368. 5090 [139]RE[178]5 [167] [141] 6400
  369. 5095 [139]RE[178]6 [167] [137] 630
  370. 5098 [129] J[178]1[164]1500:[130]J
  371. 5999 [137] 630
  372. 6000 [153]"LOAD"
  373. 6005 [153][163]7)"REVIEW OF WESTERN STATES"
  374. 6006 [153][163]7)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSTOP"
  375. 6007 [153]"STATES              CAPITALS"
  376. 6008 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  377. 6010 [129] I[178]1 [164] 13
  378. 6020 [153]S$(I)
  379. 6025 [153][163]20)"ON"C$(I)
  380. 6030 [130]I
  381. 6035 [141] 12000
  382. 6040 [142]
  383. 6100 [153]"LOAD"
  384. 6105 [153][163]8)"REVIEW OF CENTRAL STATES"
  385. 6106 [153][163]8)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSTOP"
  386. 6107 [153]"STATES              CAPITALS"
  387. 6108 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  388. 6110 [129] I[178]14[164] 28
  389. 6120 [153]S$(I)
  390. 6125 [153][163]20)"ON"C$(I)
  391. 6130 [130]I
  392. 6135 [141] 12000
  393. 6140 [142]
  394. 6200 [153]"LOAD"
  395. 6205 [153][163]7)"REVIEW OF SOUTHERN STATES"
  396. 6206 [153][163]7)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSTOP"
  397. 6207 [153]"STATES              CAPITALS"
  398. 6208 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  399. 6210 [129] I[178]29[164] 39
  400. 6220 [153]S$(I)
  401. 6225 [153][163]20)"ON"C$(I)
  402. 6230 [130]I
  403. 6235 [141] 12000
  404. 6240 [142]
  405. 6300 [153]"LOAD"
  406. 6305 [153][163]6)"REVIEW OF NORTHEAST STATES"
  407. 6306 [153][163]6)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSTOP"
  408. 6307 [153]"STATES              CAPITALS"
  409. 6308 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  410. 6310 [129] I[178]40[164] 50
  411. 6320 [153]S$(I)
  412. 6325 [153][163]20)"ON"C$(I)
  413. 6330 [130]I
  414. 6335 [141] 12000
  415. 6340 [142]
  416. 6400 [153]"LOAD"
  417. 6405 [153][163]10)"REVIEW OF ALL STATES"
  418. 6406 [153][163]10)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRSTOP"
  419. 6407 [153]"STATES              CAPITALS"
  420. 6408 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  421. 6410 [129] I[178]1 [164] 50
  422. 6411 [139] I[178]1 [167] [153][163]13)"SYSWESTERN STATES"
  423. 6412 [139] I[178]14[167] [153][163]13)"SYSCENTRAL STATES"
  424. 6413 [139] I[178]29[167][153][163]12)"SYSSOUTHERN STATES"
  425. 6414 [139] I[178]40[167][153][163]12)"SYSNORTHEAST STATES"
  426. 6420 [153]S$(I)
  427. 6425 [153][163]20)"ON"C$(I)
  428. 6426 [139] I[178]13 [167] [141]10000
  429. 6427 [139] I[178]28 [167] [141]10000
  430. 6428 [139] I[178]39 [167] [141] 10000
  431. 6430 [130]I
  432. 6435 [141] 11000
  433. 6436 [137] 5000
  434. 6440 [142]
  435. 9000 [153]"":[141]2260:[153]""[163]24)" "
  436. 9005 [137] 5076
  437. 9010 [142]
  438. 10000 [153][163]7)"STOPPRESS SPACE BAR TO CONTINUE"
  439. 10010 [161]AN$:[139]AN$[178]""[167]10010
  440. 10020 [139]AN$[179][177][199](32)[167]10010
  441. 10030 [139]AN$[178][199](32)[167]10040
  442. 10040 [142]
  443. 11000 [153][163]7)"STOPPRESS SPACE BAR FOR MENU"
  444. 11010 [161]AN$:[139]AN$[178]""[167]11010
  445. 11020 [139]AN$[179][177][199](32)[167]11010
  446. 11030 [139]AN$[178][199](32)[167]11040
  447. 11040 [142]
  448. 12000 [153][163]7)"STOPPRESS SPACE BAR FOR MENU"
  449. 12010 [161]AN$:[139]AN$[178]""[167]12010
  450. 12020 [139]AN$[179][177][199](32)[167]12010
  451. 12030 [139]AN$[178][199](32)[167]5000
  452. 12040 [142]
  453. 13000 [153]"  YOU CAN REVIEW THE STATES AT ANY"
  454. 13010 [153]"  TIME BY CHOOSING THE 'REVIEW' OPTION"
  455. 13020 [142]
  456. 14000 Z[178]1024:ZA[178]54272
  457. 14005 [129] J[178]1 [164] 100
  458. 14010 ZB[178][181]([187](1)[172]15)[170]1
  459. 14015 ZC[178][181]([187](1)[172]999)[170]1
  460. 14020 [151](Z[170]ZC),42:[151](Z[170]ZC[170]ZA),ZB
  461. 14025 [130] J
  462. 14030 [142]
  463.