home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / STATES-AND-CAPS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.0 KB  |  337 lines
  1. 1 GOTO910
  2. 2 REM ** ML STOP KEY DISABLE **
  3. 3 PRINT"x[169]=[133][144][234][169][133][145][234]X` [234][255][169][255][133][155]LX[228]x[169]U[133][144][234][169][228][133][145][234]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. 25 :
  10. 30 :
  11. 35 [143]-----INPUT SECTION-----
  12. 40 :  UR$[178]"":UI$[178]""
  13. 42 :  [139] UL[178]0[167]UL[178]80
  14. 45 [153]"  CMDCMD";:[151]UC,0
  15. 50 :  [161]UI$:[139]UI$[178]""[167]50
  16. 55 :  [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  17. 60 :  [139]UI$[178][199](20)[167]105
  18. 62 :  [139] [195](UR$)[178][177]UL [167]50
  19. 65 :  [141]120:[143] CHECK FOR VALID CHARACTER
  20. 70 :  UR$[178]UR$[170]UI$
  21. 75 :  [153]UI$;
  22. 80 :  [137]50
  23. 85 [143]-----CHECK FOR HELP REQUEST-----
  24. 90 :  [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  25. 95 :  [139]UF[178]1[167][141]240
  26. 100 : UF[178]0:[153]:[142]
  27. 102 [143]-----CHECK DELETE-----
  28. 105 : [139][195](UR$)[179]1[167]50
  29. 110 : UR$[178][200](UR$,[195](UR$)[171]1)
  30. 115 : [153]"CMD  CMDCMD";:[137]50
  31. 120 [143]-----CHECK FOR VALID CHARACTERS-----
  32. 125 :  [139][195](US$)[178]0[167]150
  33. 130 :  [129]US[178]1[164][195](US$)
  34. 135 :    [139]UI$[178][202](US$,US,1)[167][142]
  35. 140 :  [130]
  36. 145 :  UI$[178]"":[142]
  37. 150 [143]-----STANDARD INPUT-----
  38. 152 :  [139][198](UI$)[178]46[167] [142]
  39. 155 :  [139]UI$[178][199](32)[167] [142]
  40. 160 :  [139][198](UI$)[179]48 [176] [198](UI$)[177]57[167]170
  41. 165 :  [142]
  42. 170 :  [139][198](UI$)[179]65 [176] [198](UI$)[177]90[167]180
  43. 175 :  [142]
  44. 180 :  [139][198](UI$)[179]193 [176] [198](UI$)[177]218[167]UI$[178]"":[142]
  45. 185 :  [139][194](UT)[178]12[176][194](UT)[178]21[167]UI$[178][199]([198](UI$)[171]128):[142]
  46. 187 :  [142]
  47. 190 :  UI$[178]"":[142]
  48. 195 :  UF[178]1:[143]-----HELP ROUTINE EXIT-----
  49. 197 :  [141]250
  50. 200 :  [141]245
  51. 205 :  [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  52. 210 :  UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  53. 215 :  UZ[178]1:UV%[178][194](UT)
  54. 216 :  [137]300
  55. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  56. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  57. 219 [153]"LOAD";
  58. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  59. 225 :  [151]UQ,UQ%(UQ[171]UB):[130]
  60. 230 :  [151]U1,U1%
  61. 232 :  [151]U2,U2%
  62. 233 :  [151]U4,U4%
  63. 234 :  [151]U3,U3%[171]1
  64. 235 :  [137]35
  65. 240 :  UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  66. 245 :  [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  67. 250 :  U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  68. 251 UJ$[178]US$:UJ[178]UL
  69. 252 :  UJ$[178]US$:UK$[178]UG$:UJ[178]UP:UK[178]UL
  70. 255 :  [142]
  71. 300 [143]-----MENU-----
  72. 301 :
  73. 302 :  [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  74. 303 :
  75. 305 :  [153]"LOAD                MENU"
  76. 310 :  [153]" --------------------------------------"
  77. 315 :  [153]"       1.   STATES AND CAPITALS QUIZ"
  78. 320 :  [153]"       2.   STUDENT INSTRUCTIONS"
  79. 325 :  [153]"       3.   TEACHER INSTRUCTIONS"
  80. 335 :  [153]"       4.   QUIT"
  81. 340 :  [153]" --------------------------------------"
  82. 345 :  [153]"       PRESS A NUMBER KEY (1-4) ";
  83. 350 :  UL[178]1:US$[178]"1234":[141]35:[143]---INPUT ROUTINE---
  84. 351 :  [139][195](UR$)[177]1[167]300
  85. 352 :  US$[178]""
  86. 355 :  [145][197](UR$)[141]1000,400,500,396
  87. 360 :  [137]300
  88. 395 [143]-----RE-ENABLE STOP KEY AND END-----
  89. 396 :  [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  90. 397 :  [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  91. 398 :  [153]"CONTLOAD":[128]
  92. 399 :  [141]875:[142]
  93. 400 [143]-----STUDENT INSTRUCTIONS-----
  94. 405 :  [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  95. 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST"
  96. 411 [141]1020:[141]850
  97. 412 :  [153]"    (null)EMEMBER TO HIT <RETURN> AFTER"
  98. 414 :  [153]"   TYPING YOUR ANSWER. (null)HIS TELLS"
  99. 416 :  [153]"   THE COMPUTER TO ACCEPT WHAT YOU"
  100. 418 :  [153]"   HAVE TYPED."
  101. 420 :  [153]"    (null)YPE <H> AT ANY TIME TO RETURN"
  102. 422 :  [153]"   TO THE MENU FOR HELP.  (null)OU WILL"
  103. 424 :  [153]"   BE RETURNED TO THE PLACE IN THE"
  104. 426 :  [153]"   PROGRAM WHERE YOU LEFT OFF AS"
  105. 428 :  [153]"   SOON AS THE OPTION FROM THE MENU"
  106. 430 :  [153]"   IS COMPLETE."
  107. 485 :  [141]835
  108. 490 :  [139]UZ[178]1[167][158]UP%:[137]217
  109. 499 :  [142]
  110. 500 [143]-----TEACHER INSTRUCTIONS-----
  111. 501 :  [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  112. 502 :  UP[178]0:UG$[178]"(null)EACHER RIGHT$NST.":[141]850
  113. 503 :  [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  114. 504 :  [153]"   THIS PROGRAM IS IN THE PUBLIC"
  115. 505 :  [153]"   DOMAIN.  RIGHT$F THIS IS NOT THE CASE"
  116. 506 :  [153]"   PLEASE CONTACT:"
  117. 507 :  [153]"      LENOMMODORE PEEKUSINESS (null)ACHINES"
  118. 508 :  [153]"          3370 (null)HARMACY ATNVE.
  119. 509 :  PRINT"          [193]GINCOURT, [207]NTARIO"
  120. 510 :  PRINT"          [195]ANADA   [205]1[215] 2[203]4"
  121. 511 :  PRINT"          (416) 499-4292"
  122. 512 UP=1:GOSUB 835:GOSUB 850:
  123. 513 PRINT"     [208]ROGRAM [206]AME: [211]TATES & CAPITALS
  124. 514 [153]"     (null)RITTEN PEEKY  : (null)NKNOWN
  125. 515 PRINT"     [213]PGRADED [194]Y : [212]OBY [215]ALKER"
  126. 516 PRINT"     [212]HIS PROGRAM WILL RUN ON ANY
  127. 519 [153]"         (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null)
  128. 520 PRINT"         [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210]
  129. 580 :  [141]835:[141]850:[141]10000
  130. 590 :  [139]UZ[178]1[167][158]UP%:[137]217
  131. 599 :  [142]
  132. 600 [143]-----PROGRAM MODIFICATION INST-----
  133. 601 :  [153]"LOAD":[151]UT,UL%
  134. 605 :  UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850
  135. 660 :  [141]835
  136. 690 :  [139]UZ[178]1[167][158]UP%:[137]217
  137. 699 :  [142]
  138. 700 [143]-----TO USE 8032 LOAD CBM4032-----
  139. 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  
  140. 720 PRINT"      LOAD THE 'CBM 4032' PROGRAM"
  141. 730 :  SYSUU+71
  142. 740 :  END
  143. 800 REM ** T I T L E   P A G E **
  144. 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6
  145. 804 FORI=1TO38:PRINT"[166][146]";:NEXT
  146. 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT
  147. 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT
  148. 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT
  149. 812 PRINT"[169]  [146]
  150. 814 [153]" WAIT   WAITSTEP
  151. 816 PRINT" [146]  [163][223]
  152. 818 [153]"(null)  WAIT
  153. 820 PRINT"C O M M O D O R E
  154. 822 [153]"EDUCATIONAL
  155. 824 PRINT"SOFTWARE
  156. 826 [143] ** COMMODORE LOGO **
  157. 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0
  158. 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828
  159. 830 :  T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0
  160. 832 :  [137]300
  161. 835 [143]-----SPACE BAR PRESS-----
  162. 840 :  [153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT"
  163. 844 :  [161]UI$:[139]UI$[179][177]" "[167]844
  164. 846 :  [142]
  165. 850 [143]-----PAGE DESIGN ROUTINE-----
  166. 852 :  UP[178]UP[170]1
  167. 855 :  [153]"LOAD"[200](UT$[170]UP$,21);[200](UG$[170]UP$,14);UP
  168. 860 :  [153]" --------------------------------------"
  169. 865 :  [153][200](UD$,24);[200](UP$,6);"HELP - PRESS   H <RETURN>"
  170. 870 :  [153]"":[142]
  171. 875 [143]-----PLEASE WAIT REMARK-----
  172. 880 :  [153][200](UD$,24);"           ONE MOMENT PLEASE...     "
  173. 885 :  [142]
  174. 900 [143]-----SET UP VARIABLES-----
  175. 901 :  UX$[178]"H":[134]UQ%(1000):UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024
  176. 902 :  UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:[151]50003,0
  177. 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048
  178. 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024
  179. 905 :  UD$[178]""
  180. 906 :  UP$[178]"                                       "
  181. 907 :  UT$[178]" (null)TATES & LENAPITALSCLOSE":[143] PLACE PROGRAM TITLE HERE!!!!!!!!!!!***
  182. 908 :  [142]
  183. 910 [143]-----SET VARIABLES-----
  184. 911 MX[178]51:[134]A(MX),B(4),C$(MX),S$(MX)
  185. 915 :  [141]900
  186. 917 :
  187. 920 [143]-----CHECK FOR 8032-----
  188. 925 :  [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE
  189. 930 :  [139][194](UB[170]40)[179][177]96[167][141]700
  190. 931 [143]-----MEMORY CHECK-----
  191. 932 :  [139] [184](0)[177]2000[167]937
  192. 933 :  [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH"
  193. 934 :  [153]"MEMORY TO RUN THIS PROGRAM !"
  194. 935 :  [158]UU[170]71
  195. 936 :  [128]
  196. 937 :  [153]"LOAD":[139][194](50003)[178]0[167]962
  197. 940 [143]-----BASIC 2.0  OR  4.0  OR  C-64 SETUP-----
  198. 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145
  199. 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133
  200. 943 [151]1104,145:[151]1105,234:[151]1082,234
  201. 945 :  [139][194](50003)[179][177]160[167]955
  202. 950 :  [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965
  203. 955 :  [139][194](50003)[179][177]1[167]990
  204. 960 :  [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965
  205. 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21
  206. 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141
  207. 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3
  208. 965 :  [158]UU[170]48:[143] DISABLE STOP KEY
  209. 970 :  [141]800:[143] TITLE
  210. 980 :  [137]300:[143] MENU
  211. 990 :  [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128]
  212. 1000 : [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143]-----PROGRAM STARTS HERE-----
  213. 1001 [153]"LOAD";:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  214. 1010 [137]1120
  215. 1020 [153]"LOAD":[151]UT,UL%:UP[178]0:[141]850:[153]"          (null)TATES AND CAPITALS"
  216. 1030 [153]"          TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(   ":[137]1140
  217. 1120 [153]"LOAD":[141]875:[140]:[129] I[178]1[164]MX:[135] S$(I),C$(I)
  218. 1121 S$(I)[178][199]([198]([202](S$(I),1,1))[170]128)[170][202](S$(I),2)
  219. 1122 C$(I)[178][199]([198]([202](C$(I),1,1))[170]128)[170][202](C$(I),2):[130]
  220. 1130 [129] I[178]1[164]MX:A(I)[178]0:[130]I:G[178]0:N[178]0:ZZ[178][171]1
  221. 1135 [137]1169
  222. 1140 [153]"   (null)HIS IS AN EDUCATIONAL QUIZ WHICH"
  223. 1150 [153]"   TESTS YOUR KNOWLEDGE OF THE PROPER"
  224. 1160 [153]"   STATES AND CAPITALS."
  225. 1161 [153]"   RIGHT$T WILL GIVE YOU EITHER MULTIPLE"
  226. 1162 [153]"   CHOICE OR FILL-IN THE BLANKS."
  227. 1163 [153]"   ASCOR FILL-IN QUESTIONS SPELL THE"
  228. 1164 [153]"   ANSWER EXACTLY AND USE (null)T.WAIT AS AN"
  229. 1165 [153]"   ABBREVIATION FOR (null)AINT.":[141]835:[142]
  230. 1169 UG$[178]"(null)TUDENT QUIZ
  231. 1170 PRINT"[147]":POKEUT,UL%:UP=0:GOSUB850:PRINT" [211]ELECT THE TYPE OF QUIZ:"
  232. 1180 PRINT"   1 - [205]ULTIPLE CHOICE QUESTIONS."
  233. 1190 PRINT"   2 - [198]ILL-IN THE BLANKS."
  234. 1195 PRINT" [215]HAT IS YOUR CHOICE? ";
  235. 1200 US$="H12":UL=1:GOSUB35
  236. 1210 IFUR$="2" THEN 1260
  237. 1250 X=1:GOTO 1300
  238. 1260 REM
  239. 1290 X=2
  240. 1300 GOSUB850:PRINT" [215]OULD YOU LIKE A QUIZ ABOUT"
  241. 1310 PRINT"   1 - [211]TATES"
  242. 1320 PRINT"   2 - [195]APITALS"
  243. 1330 US$="12H":PRINT" [215]HAT IS YOUR CHOICE? ";:GOSUB35
  244. 1340 Y=2:IFUR$="2" THEN Y=1:GOTO 1360
  245. 1360 REM PICK A STATE
  246. 1370 FOR I=1TO10:R=INT(RND(1)*MX)+1:IF A(R)<>2 THEN 1420
  247. 1380 NEXTI
  248. 1390 REM DON'T WASTE TIME PICKING ONE
  249. 1400 FOR R=1TOMX:IF A(R)<>2 THEN 1420
  250. 1410 NEXTR:GOTO1920
  251. 1420 ZZ=ZZ+1:RP=0:IF A(R)=1 THEN RP=1
  252. 1425 IFZZ>49THENGOSUB2030:GOTO1970
  253. 1430 IF X=1 THEN 1550
  254. 1440 REM ASK FOR FILL-IN ANSWERS
  255. 1450 GOSUB 2000:IF Y=2 THEN 1480
  256. 1460 A$=C$(R)
  257. 1470 GOSUB12000:PRINT" [212]HE CAPITAL OF "S$(R);" IS"
  258. 1471 GOTO1481
  259. 1480 GOSUB12000:A$=S$(R):PRINT" "C$(R);" IS CAPITAL OF"
  260. 1481 PRINT:PRINT:PRINT:PRINT:PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  261. 1490 PRINT"";:US$="":UL=20:GOSUB35:Z$=UR$
  262. 1530 IF Z$=A$ THEN GOTO 1800
  263. 1540 GOTO 1790
  264. 1550 REM ASK FOR MULTIPLE CHOICE
  265. 1560 REM THE VALUE OF C IS THE ANSWER
  266. 1570 C=INT(RND(1)*4)+1
  267. 1580 REM PICK 4 STATES FOR THE CHOICES
  268. 1590 FORI=1TO4:B(I)=INT(RND(1)*MX)+1:NEXTI
  269. 1600 B(C)=R
  270. 1610 REM MAKE SURE NONE ARE THE SAME
  271. 1620 IF B(1)=B(2) OR B(1)=B(3) OR B(1)=B(4) THEN 1590
  272. 1630 IF B(2)=B(3) OR B(2)=B(4) OR B(3)=B(4) THEN 1590
  273. 1640 GOSUB 2000:IF Y=2 THEN 1690
  274. 1650 REM PRINT CAPITAL CHOICES
  275. 1660 GOSUB12000:PRINT" [215]HAT IS THE CAPITAL OF ";S$(R);"?":A$=C$(R)
  276. 1670 PRINT"       (A) ";C$(B(1)):PRINT""TAB(7);"(B) ";C$(B(2))
  277. 1680 PRINT""TAB(7);"(C) "C$(B(3)):PRINT""TAB(7);"(D) "C$(B(4)):GOTO 1730
  278. 1690 REM PRINT STATE CHOICES
  279. 1700 GOSUB12000:PRINT" "C$(R);" IS THE CAPITAL OF":A$=S$(R)
  280. 1710 PRINT""TAB(7);"(A) ";S$(B(1)):PRINT"" TAB(7);"(B) ";S$(B(2))
  281. 1720 PRINT"";TAB(7)"(C) ";S$(B(3)):PRINT""TAB(7);"(D) ";S$(B(4))
  282. 1730 US$="ABCDH":PRINT" [215]HAT IS THE ANSWER? ";:GOSUB35
  283. 1770 Z=ASC(UR$)-ASC("A")+1
  284. 1780 IF Z=C THEN 1800
  285. 1790 A(R)=1:PRINT" [215]RONG, IT IS ";A$;".":GOTO 1820
  286. 1800 A(R)=2:N=N+1
  287. 1810 PRINT" [210]IGHT!"
  288. 1820 GOSUB835:G=G+1
  289. 1830 IF N<MX THEN 1360
  290. 1840 GOTO 1920
  291. 1900 PRINT" [201] WILL REPEAT MY QUESTION.":RP=1
  292. 1910 ON X GOTO 1640,1450
  293. 1930 PRINT"[147] [215]OULD YOU LIKE TO TRY AGAIN(Y/N)? ";
  294. 1940 US$="YN":GOSUB35
  295. 1950 IFUR$="Y" THEN GOTO 1130
  296. 1970 GOSUB850:PRINT"   [212]HANK YOU FOR PLAYING"
  297. 1980 PRINT"   [211]TATES AND [195]APITALS!!!!"
  298. 1990 GOSUB835:RETURN
  299. 2000 REM CHECK FOR REPEAT
  300. 2010 REM
  301. 2020 RETURN
  302. 2030 REM PRINT SCORE
  303. 2040 GOSUB850:IF N=0 OR G=0 THEN P=0: GOTO 2060
  304. 2050 P=INT(N*2+.5)
  305. 2060 PRINT"   [217]OUR SCORE IS";P;"%."
  306. 2070 PRINT"   [217]OU HAVE";N;"RIGHT IN";G;"TRIES"
  307. 2075 GOSUB835
  308. 2080 RETURN
  309. 2090 GOSUB850
  310. 2100 PRINT" [217]OU HAVE DONE ALL THE QUESTIONS."
  311. 2240 REM ***DATA***
  312. 2250 DATAALABAMA,MONTGOMERY,ALASKA,JUNEAU,ARIZONA,PHOENIX,ARKANSAS,"LITTLE [210]OCK"
  313. 2260 DATACALIFORNIA,SACRAMENTO,COLORADO,DENVER,CONNECTICUT,HARTFORD,DELAWARE
  314. 2270 DATADOVER,"DIST. OF [195]OLUM.",WASHINGTON,FLORIDA,TALLAHASSEE,GEORGIA
  315. 2280 DATAATLANTA,HAWAII,HONOLULU,IDAHO,BOISE,ILLINOIS,SPRINGFIELD,INDIANA
  316. 2290 DATAINDIANAPOLIS,IOWA,"DES [205]OINES",KANSAS,TOPEKA,KENTUCKY,FRANKFORT
  317. 2300 DATALOUISIANA,"BATON [210]OUGE",MAINE,AUGUSTA,MARYLAND,ANNAPOLIS,MASSACHUSETTS
  318. 2310 DATABOSTON,MICHIGAN,LANSING,MINNESOTA,"ST. [208]AUL",MISSISSIPPI,JACKSON
  319. 2320 DATAMISSOURI,"JEFFERSON [195]ITY",MONTANA,HELENA,NEBRASKA,LINCOLN,NEVADA
  320. 2330 DATA"CARSON [195]ITY","NEW [200]AMPSHIRE",CONCORD,"NEW [202]ERSEY",TRENTON,"NEW [205]EXICO"
  321. 2340 DATA"SANTA [198]E","NEW [217]ORK",ALBANY,"NORTH [195]AROLINA",RALEIGH
  322. 2350 DATA"NORTH [196]AKOTA",BISMARCK,OHIO,COLUMBUS
  323. 2360 DATAOKLAHOMA,"OKLAHOMA [195]ITY",OREGON,SALEM,PENNSYLVANIA,HARRISBURG
  324. 2370 DATA"RHODE [201]SLAND",PROVIDENCE,"SOUTH [195]AROLINA",COLUMBIA,"SOUTH [196]AKOTA"
  325. 2380 DATAPIERRE,TENNESSEE,NASHVILLE,TEXAS,AUSTIN,UTAH,"SALT [204]AKE [195]ITY",VERMONT
  326. 2390 DATAMONTPELIER,VIRGINIA,RICHMOND,WASHINGTON,OLYMPIA,"WEST [214]IRGINIA"
  327. 2400 DATACHARLESTON,WISCONSIN,MADISON,WYOMING,CHEYENNE
  328. 10000 REM MORE INSTRUCTIONS
  329. 10010 PRINT"   [212]HIS PROGRAM QUIZZES THE STUDENT"
  330. 10020 PRINT"   ON HIS KNOWLEDGE OF THE CAPITALS"
  331. 10030 PRINT"   AND STATES OF THE [213].[211]. [201]T WILL"
  332. 10040 PRINT"   PRODUCE FIFTY RANDOM QUESTIONS."
  333. 10060 PRINT"   [212]HESE QUESTIONS ARE EITHER"
  334. 10070 PRINT"   MULTIPLE CHOICE OR FILL IN THE"
  335. 10080 PRINT"   BLANK.":GOSUB835:RETURN
  336. 12000 GOSUB850:PRINT" [209]UESTION";ZZ+1,"[195]ORRECT ANSWERS";N:PRINT"":RETURN
  337.