home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Educational / WORLD-CAPITALS (.txt) < prev   
Commodore BASIC  |  2019-04-13  |  11KB  |  344 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 CONTRARY
  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. 33 [143]    CAPITALS
  20. 34 [143]    UPDATED - J.F. MUNRO                    DURHAM B OF E, JULY,1982
  21. 35 [143] +++ INPUT SECTION +++
  22. 40 [151]UO,0:UR$[178]"":UI$[178]""
  23. 42 [139]UL[178]0[167]UL[178]80
  24. 45 [153]"  CMDCMD";:[151]UC,0
  25. 50 [161]UI$:[139]UI$[178]""[167]50
  26. 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85
  27. 60 [139]UI$[178][199](20)[167]105
  28. 62 [139] [195](UR$)[178][177]UL[167]50
  29. 65 [141]120:[143] CHECK FOR VALID CHARACTER
  30. 70 UR$[178]UR$[170]UI$
  31. 75 [153]UI$;
  32. 80 [137]50
  33. 85 [143] +++ CHECK FOR HELP REQUEST +++
  34. 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE
  35. 95 [139]UF[178]1[167][141]240
  36. 100 UF[178]0:[153]:[142]
  37. 102 [143] ++ CHECK DELETE ++
  38. 105 [139][195](UR$)[179]1[167]50
  39. 110 UR$[178][200](UR$,[195](UR$)[171]1)
  40. 115 [153]"CMD  CMDCMD";:[137]50
  41. 120 [143] ++ CHECK FOR VALID CHARACTERS ++
  42. 125 [139][195](US$)[178]0[167]150
  43. 130 [129]US[178]1[164][195](US$)
  44. 135 [139]UI$[178][202](US$,US,1)[167][142]
  45. 140 [130]
  46. 145 UI$[178]"":[142]
  47. 150 [143] ** STANDARD INPUT **
  48. 152 [139][198](UI$)[178]46[167][142]
  49. 155 [139]UI$[178][199](32)[167][142]
  50. 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170
  51. 165 [142]
  52. 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180
  53. 175 [142]
  54. 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142]
  55. 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142]
  56. 187 [142]
  57. 190 UI$[178]"":[142]
  58. 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++
  59. 197 [141]250
  60. 200 [141]245
  61. 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2)
  62. 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD"
  63. 215 UZ[178]1:UV%[178][194](UT)
  64. 216 [137]300
  65. 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK
  66. 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220
  67. 219 [153]"LOAD";
  68. 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3)
  69. 225 [151]UQ,UQ%(UQ[171]UB):[130]
  70. 230 [151]U1,U1%
  71. 232 [151]U2,U2%
  72. 233 [151]U4,U4%
  73. 234 [151]U3,U3%[171]1
  74. 235 [137]35
  75. 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142]
  76. 245 [153][200](UD$,24);"                       HELP COMING WAIT  ":[142]
  77. 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4)
  78. 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL
  79. 255 [142]
  80. 300 [143] ** MENU **
  81. 301 :
  82. 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8
  83. 303 :
  84. 305 [153]"                MENU"
  85. 310 [153]" --------------------------------------"
  86. 315 [153]"       1.   BEGIN WORLD CAPITALS"
  87. 320 [153]"       2.   STUDENT INSTRUCTIONS"
  88. 325 [153]"       3.   TEACHER INSTRUCTIONS"
  89. 330 [153]"       4.   MODIFICATION OF PROGRAM"
  90. 335 [153]"       5.   QUIT"
  91. 340 [153]" --------------------------------------"
  92. 345 [153]"       PRESS A NUMBER KEY (1-5) ";
  93. 350 UL[178]1:US$[178]"12345":[141]35:[143] INPUT ROUTINE
  94. 352 US$[178]""
  95. 355 [145][197](UR$)[141]1000,400,500,600,396
  96. 360 [137]300
  97. 395 [143] ** RE-ENABLE STOP KEY AND END **
  98. 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399
  99. 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14
  100. 398 [153]"CONTLOAD":[128]
  101. 399 [141]875:[142]
  102. 400 [143] ** STUDENT INSTRUCTIONS **
  103. 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0
  104. 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
  105. 460 [153]" (null)OTE:CMDCMD(null)O ADVANCE FROM ONE QUESTION"
  106. 470 [153]" TO THE NEXT PRESS THE (null)(null)ATNLENVAL BAR."
  107. 475 [153]"    RIGHT$F AT ANY TIME YOU WISH TO VIEW"
  108. 480 [153]" THE MENU PRESS <H> <RETURN>."
  109. 481 [153]"    (null)RESS <RETURN> AFTER EACH ENTRY."
  110. 485 [141]835
  111. 490 [139]UZ[178]1[167][158]UP%:[137]217
  112. 499 [142]
  113. 500 [143] ** TEACHER INSTRUCTIONS **
  114. 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
  115. 502 UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
  116. 503 [153]"      (null)O THE BEST OF OUR KNOWLEDGE,"
  117. 504 [153]"   THIS PROGRAM IS IN THE PUBLIC"
  118. 505 [153]"   DOMAIN.  RIGHT$F THIS IS NOT THE CASE"
  119. 506 [153]"   PLEASE CONTACT:"
  120. 507 [153]"      LENOMMODORE PEEKUSINESS (null)ACHINES"
  121. 508 [153]"          3370 (null)HARMACY ATNVE.
  122. 509 PRINT"          [193]GINCOURT, [207]NTARIO"
  123. 510 PRINT"          [195]ANADA   [205]1[215] 2[203]4"
  124. 511 PRINT"          (416) 499-4292"
  125. 512 UP=1:GOSUB 835:GOSUB 850:
  126. 513 PRINT"     [208]ROGRAM [206]AME: [215]ORLD [195]APITALS
  127. 514 [153]"     (null)RITTEN PEEKY  : (null)NKNOWN
  128. 515 PRINT"     [213]PGRADED [194]Y : [202]AMES [205]UNRO
  129. 516 [153]"     (null)HIS PROGRAM WILL RUN ON ANY
  130. 517 PRINT"[145][145][145][145][145]      [213]PLOADED TO [199][197]NIE BY [197].[196][213][210][203][201][206]1 [146]"
  131. 518 PRINT"                [[205][207][206][212][193][206][193] [203][201][196]]        [146]"
  132. 519 PRINT"         [208][197][212] 64 [195][207][205][208][213][212][197][210]
  133. 520 [153]"         LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
  134. 580 GOSUB835
  135. 590 IFUZ=1THENSYSUP%:GOTO217
  136. 599 RETURN
  137. 600 REM ** PROGRAM MODIFICATION INST **
  138. 601 PRINT"[147]":POKEUT,UL%
  139. 605 UH=1:UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
  140. 606 PRINT"    [212]HIS PROGRAM MAY BE MODIFIED SO"
  141. 607 PRINT"   ONLY CERTAIN AREAS OF THE WORLD"
  142. 609 PRINT"   ARE REPRESENTED OR ELSE ADDITIONAL"
  143. 611 PRINT"   COUNTRIES MAY BE ADDED."
  144. 615 UH=1:GOSUB835:GOSUB850
  145. 620 PRINT"  [212]O ADD OR CHANGE THE COUNTRIES IN"
  146. 621 PRINT" THIS PROGRAM, YOU MAY ALTER THE DATA"
  147. 622 PRINT" STATEMENTS THAT ARE FOUND IN"
  148. 623 PRINT" LINES 1610-1800. [201]N THE DATA, THE"
  149. 624 PRINT" COUNTRIES ARE ALWAYS FOLLOWED BY"
  150. 626 PRINT" THEIR CAPITALS."
  151. 660 GOSUB835
  152. 690 IFUZ=1THENSYSUP%:GOTO217
  153. 699 RETURN
  154. 700 REM ** TO USE 8032 LOAD CBM4032 **
  155. 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032  
  156. 720 [153]"      LOAD THE 'CBM 4032' PROGRAM"
  157. 730 [158]UU[170]71
  158. 740 [128]
  159. 800 [143] ** T I T L E   P A G E **
  160. 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
  161. 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
  162. 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
  163. 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
  164. 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
  165. 812 [153]"STEP  WAIT
  166. 814 PRINT" [146]   [146][169]
  167. 816 [153]" WAIT  TAB((null)
  168. 818 PRINT"[223]  [146]
  169. 820 [153]"C O M M O D O R E
  170. 822 PRINT"EDUCATIONAL
  171. 824 [153]"SOFTWARE
  172. 826 REM ** COMMODORE LOGO **
  173. 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
  174. 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
  175. 830 T1$="":T2$="":T3$="":T4$="":I=0
  176. 832 GOTO300
  177. 835 REM ** SPACE BAR PRESS **
  178. 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
  179. 844 GETUI$:IFUI$<>" "THEN844
  180. 846 RETURN
  181. 850 REM ** PAGE DESIGN ROUTINE **
  182. 852 UP=UP+1
  183. 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  184. 860 PRINT" --------------------------------------"
  185. 864 IFUH<>0THEN870
  186. 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS   H <RETURN>"
  187. 870 UH=0:PRINT"":RETURN
  188. 875 REM ** PLEASE WAIT REMARK **
  189. 880 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     "
  190. 885 RETURN
  191. 900 REM ** SET UP VARIABLES **
  192. 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
  193. 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
  194. 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
  195. 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
  196. 905 UD$=""
  197. 906 UP$="                                       "
  198. 907 UT$=" WORLD CAPITALS[160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
  199. 908 RETURN
  200. 910 REM ** SET VARIABLES **
  201. 911 UG$="    PAGE#":DIMA$(100),B$(220):C$="":Y$="":F$="":X=0:Z=0:I=0
  202. 912 CO=0:Q=0:N=0:C=0:R=0:T0=0:JK=0
  203. 915 GOSUB900
  204. 920 REM ** CHECK FOR 8032 **
  205. 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  206. 930 IFPEEK(UB+40)<>96THENGOSUB700
  207. 931 REM ** MEMORY CHECK **
  208. 932 IF FRE(0)>2000THEN937
  209. 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
  210. 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
  211. 935 SYSUU+71
  212. 936 END
  213. 937 PRINT"[147]":IFPEEK(50003)=0THEN962
  214. 940 REM ** BASIC 2.0  OR  4.0  OR  C-64 SETUP **
  215. 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
  216. 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
  217. 943 POKE1104,145:POKE1105,234:POKE1082,234
  218. 945 IFPEEK(50003)<>160THEN955
  219. 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
  220. 955 IFPEEK(50003)<>1THEN990
  221. 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
  222. 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
  223. 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
  224. 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
  225. 965 SYSUU+48:REM DISABLE STOP KEY
  226. 970 GOSUB800:REM TITLE
  227. 980 GOTO300:REM MENU
  228. 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
  229. 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
  230. 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,14
  231. 1002 REM**********************
  232. 1003 REM**MENU ADDED AND PGM**
  233. 1004 REM**   MODIFIED BY    **
  234. 1005 REM**   JAMES MUNRO    **
  235. 1006 REM**   1982 06 30     **
  236. 1007 REM** OSHAWA , ONTARIO **
  237. 1008 REM************************
  238. 1010 REM* REVISED AND UPGRADED *
  239. 1012 REM* FOR COMMODORE 64 BY  *
  240. 1014 REM*      DEREK LEE       *
  241. 1016 REM*      JULY 27/82      *
  242. 1018 REM************************
  243. 1101 SE$=" WHAT IS THE NAME OF THE CAPITAL CITY OF"
  244. 1119 RESTORE:PRINT"[147]":N=-1:C=0:RI=0:W=0:POKEUT,UU%:GOSUB875
  245. 1120 FOR I=1 TO 100
  246. 1130 READ A$(I),B$(I)
  247. 1140 IFA$(I)="999"THENT0=I-1:I=101
  248. 1150 NEXT I
  249. 1151 UP=0:UG$="QUIZ":GOSUB850
  250. 1160 PRINT" THIS PROGRAM WILL TEST YOUR KNOWLEDGE"
  251. 1170 PRINTTAB(7)" OF WORLD CAPITAL CITIES."
  252. 1180 PRINT" AFTER EACH STATE PLEASE TYPE THE"
  253. 1190 PRINT" APPROPRIATE NAME THEN PRESS <RETURN>."
  254. 1191 PRINT" TO SKIP A COUNTRY,PRESS <N> <RETURN>."
  255. 1210 PRINT" WHICH WOULD YOU LIKE TO START WITH? --"
  256. 1220 PRINT"      1[146] GIVEN THE CAPITALS"
  257. 1222 PRINT"      2[146] GIVEN THE COUNTRIES"
  258. 1223 PRINT" ?";
  259. 1225 UL=1:US$="12H":GOSUB35:Z$=UR$
  260. 1226 GOSUB875
  261. 1230 IFZ$="1"THEN1940
  262. 1240 IFQ=1THEN1970
  263. 1245 N=-1
  264. 1250 N=N+1:C=C+1
  265. 1260 I=INT(T0*RND(1))+1
  266. 1270 IF A$(I)="*"THEN 1260
  267. 1280 CO=CO+1
  268. 1290 F$=A$(I):A$(I)="*"
  269. 1300 Q=0
  270. 1309 UP=N:UG$=" QUESTION #":GOSUB850
  271. 1310 PRINT SE$
  272. 1320 PRINTTAB(6)F$;"? ";
  273. 1330 UL=20:US$="?QWERTYUIOPLKJHGFDSAZXCVBNM ":GOSUB35:Z$=UR$:PRINT
  274. 1331 IFZ$="Q" THEN RETURN
  275. 1340 IFB$(I)=Z$THEN1410
  276. 1350 IFZ$<>"N"THENGOTO1380
  277. 1360 IFCO=T0GOTO1900
  278. 1370 GOTO2070
  279. 1380 PRINT"    INCORRECT.....TRY AGAIN":W=W+1
  280. 1390 Q=Q+1:IFQ>2THEN1809
  281. 1400 GOTO1310
  282. 1410 RI=RI+1:PRINT"[147]":IFC=0THENC=1:R=INT(4*RND(1))
  283. 1420 IFR=1THEN1470
  284. 1430 IFR=2THEN1480
  285. 1440 IFR=3THEN1490
  286. 1450 IFR=4THEN1500
  287. 1460 PRINT"   CORRECT..YOU'RE A GENIUS!":GOTO1530
  288. 1470 PRINT"   RIGHT ON!":GOTO1530
  289. 1480 PRINT"   ALL RIGHT!":GOTO1530
  290. 1490 PRINT"   VERY GOOD!!!":GOTO1530
  291. 1500 PRINT"   YOU'RE TOO MUCH"
  292. 1530 PRINT"   YOUR SCORE IS";RI;" CORRECT
  293. 1540 [153]"   AND "W" WRONG."
  294. 1550 [153]"   DO YOU WISH TO CONTINUE(Y/N)? ";:UL[178]1:US$[178]"YNH":[141]35:C$[178]UR$
  295. 1560 [139]C$[178]"Y"[167][137]1590
  296. 1570 [139]C$[178]"N"[167][137]1875
  297. 1590 [139]CO[178]T0[137]1900
  298. 1600 [137]1250
  299. 1610 [131]AFGHANISTAN,KABUL,ANGOLA,LUANDA,ALGERIA,ALGIERS,ARGENTINA,BUENOS AIRES
  300. 1620 [131]AUSTRALIA,CANBERRA,AUSTRIA,VIENNA,BELGIUM,BRUSSELS,BOLIVIA,SUCRE
  301. 1630 [131]BRAZIL,BRASILIA,BULGARIA,SOFIA,BURMA,RANGOON,CAMBODIA,PHNOM PENH
  302. 1640 [131]CANADA,OTTAWA,CHILE,SANTIAGO,COLUMBIA,BOGOTA,COSTA RICA,SAN JOSE
  303. 1650 [131]CUBA,HAVANA,CYPRUS,NICOSIA,CZECHOSLOVAKIA,PRAGUE,DENMARK,COPENHAGEN
  304. 1660 [131]DOMINICAN REPUBLIC,SANTO DOMINGO,EQUADOR,QUITO,EGYPT,CAIRO
  305. 1670 [131]EL SALVADOR,SAN SALVADOR,ETHIOPIA,ADDIS ABABA,FINLAND,HELSINKI
  306. 1680 [131]FRANCE,PARIS,WEST GERMANY,BONN,EAST GERMANY,BERLIN,GREECE,ATHENS
  307. 1690 [131]GUATEMALA,GUATEMALA CITY,GUYANA,GEORGETOWN
  308. 1700 [131]ICELAND,REYKJAVIK
  309. 1710 [131]INDIA,NEW DELHI,IRAN,TEHRAN,IRAQ,BAGHDAD,IRELAND,DUBLIN
  310. 1720 [131]ISRAEL,JERUSALEM,ITALY,ROME,JAMAICA,KINGSTON,JAPAN,TOKYO,JORDAN,AMMAN
  311. 1730 [131]KENYA,NAIROBI,LEBANON,BEIRUT,LIECHTENSTEIN,VADUZ,LUXEMBOURG,LUXEMBOURG
  312. 1740 [131]MALTA,VALLETTA,MEXICO,MEXICO CITY,MOROCCO,RABAT,NETHERLANDS,AMSTERDAM
  313. 1750 [131]NEW ZEALAND,WELLINGTON,NICARAGUA,MANAGUA,NIGERIA,LAGOS,NORWAY,OSLO
  314. 1760 [131]PARAGUAY,ASUNCION,PERU,LIMA,POLAND,WARSAW,PORTUGAL,LISBON,SPAIN,MADRID
  315. 1770 [131]SUDAN,KHARTOUM,SWEDEN,STOCKHOLM,SWITZERLAND,BERN,SYRIA,DAMASCUS
  316. 1780 [131]THAILAND,BANGKOK,TURKEY,ANKARA,UGANDA,KAMPALA,SOVIET UNION,MOSCOW
  317. 1790 [131]UNITED STATES,WASHINGTON D C
  318. 1800 [131]UNITED KINGDOM,LONDON,URAGUAY,MONTEVIDEO,VENEZUELA,CARACAS
  319. 1801 [131]YUGOSLAVIA,BELGRADE
  320. 1809 [141]835:[141]850
  321. 1810 [153]" I GUESS YOU REALLY DIDN'T KNOW IT!"
  322. 1830 [153]" THE CORRECT ANSWER IS ";B$(I);"."
  323. 1840 [153]" TAKE GOOD NOTE OF IT FOR FUTURE USE!"
  324. 1850 [141]835
  325. 1870 [137]1250
  326. 1875 [139]CO[178]T0[137]1900
  327. 1880 [142]
  328. 1900 [153]"LOAD       YOU HAVE EXHAUSTED MY"
  329. 1901 [153]"       SUPPLY OF COUNTRIES."
  330. 1902 [153]"       NUMBER CORRECT "C:[153]"       NUMBER INCORRECT"W:[141]835
  331. 1930 [142]
  332. 1940 [140]
  333. 1950 Q[178]1
  334. 1960 [129] I[178]1 [164] 100
  335. 1970 [135] B$(I),A$(I)
  336. 1980 [139]B$(I)[178]"999"[167]T0[178]I[171]1:[137]2000
  337. 1990 [130] I
  338. 2000 SE$[178]" WHAT COUNTRY HAS AS IT'S CAPITAL "
  339. 2010 [137]1250
  340. 2060 [131]999,999
  341. 2070 JK[178]JK[170]1
  342. 2071 [139]JK[177]60[167][137]1900
  343. 2072 N[178]N[170]1:[137]1260
  344.