home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 56 / 056.d81 / american datelin (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  20.5 KB  |  599 lines
  1. 1 print"[147]"
  2. 2 clr
  3. 3 v=53248:pokev+30,.:pokev+21,.
  4. 5 poke53280,0:poke53281,11
  5. 10 :
  6. 300 data172,032,208,202,142,032,208,165
  7. 310 data198,240,248,140,032,208,096
  8. 320 forj=679to693:readk:pokej,k:next
  9. 330 :
  10. 400 print"           [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:[153]"
  11. 510 a$="       [193][205][197][210][201][195][193][206] [200][201][211][212][207][210][217][160][196][193][212][197][204][201][206][197]        "
  12. 511 fora=len(a$)to1step-1
  13. 512 printmid$(a$,a,1):print"[145][148]";
  14. 513 forb=1to5:next
  15. 514 next:poke216,.
  16. 517 print"[145][144]"tab(8)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  17. 518 print""tab(8)"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  18. 519 print"[158]            [194]y: [210]oger [206]orton":print"             [195]opyright 1988"
  19. 520 print"       [195]hoose one: [159][210][146]egular [214]ersion"
  20. 521 printtab(19)"[159][193][146]dvanced [214]ersion"
  21. 523 sys679:getk$:ifk$=""then523
  22. 524 ifk$<>"r"andk$<>"a"then523
  23. 525 ifk$="r"thenprint"[145][145]"tab(19)"[158][210]egular [214]ersion"
  24. 526 n1$="250":n2$="500":ifk$="r"thengg=1:n1$="125":n2$="250"
  25. 527 ifk$="a"thenprinttab(19)"[158][193]dvanced [214]ersion
  26. 529 [141]15000
  27. 530 [141]4400
  28. 534 [139]gg[178]1[167][141]4100:[137]630
  29. 550 [151]53280,7:[151]53281,1
  30. 560 [153]"load"[163]16)"verify(NULL)len(NULL)(NULL)right$(NULL)chr$"
  31. 570 [153][163]3)"stop(NULL)(NULL)(NULL)(NULL) atn(NULL)(NULL)(NULL)val(NULL)"[163]24)"(NULL)(NULL)right$(NULL)(NULL)(NULL) (NULL)len(NULL)(NULL)valstr$"
  32. 572 [153][163]3)"clrusrusrusrusr usrusrusrusrusrusr"[163]24)"usrusrusrusrusrusrcloseusrusrusrusrusrusr"
  33. 575 [153]" valxact str$ate .......... 100-1000 (NULL)oints"
  34. 580 [153]" 1-5 years off ....... 75 (NULL)oints"
  35. 585 [153]" 6-10 years off ...... 50 (NULL)oints"
  36. 590 [153]" 11-20 years off ..... 30 (NULL)oints"
  37. 595 [153]" 21-30 years off ..... 20 (NULL)oints"
  38. 600 [153]" 31-40 years off ..... 10 (NULL)oints"
  39. 605 [153]" 41-50 years off ..... 5 (NULL)oints"
  40. 610 [153]" 51+ years offwait ....... chr$atn(NULL)val val(NULL)str$(NULL)!wait"
  41. 620 [153]"             stop(NULL)(NULL)val(NULL)(NULL) atn(NULL)(NULL) (NULL)val(NULL)"
  42. 621 [153]"             clrtab(tab(tab(tab(tab( tab(tab(tab( tab(tab(tab("
  43. 622 [151]649,10
  44. 625 [161]k$:[139]k$[178]""[167]625
  45. 630 [151]649,0:[151]53280,0:[151]53281,0
  46. 633 [153]"load"[163]13)"openpeek(NULL)(NULL)(NULL)(NULL) (NULL)(NULL)right$(NULL)(NULL)(NULL)"
  47. 634 [153][163]13)"frefrefrefrefre frefrefrefrefrefre"
  48. 635 [153]"    print(NULL)ou will receive a bonus of between"
  49. 637 [153]"clr"n1$"waitprint and clr"n2$"waitprint points every time one of the";
  50. 638 [153]"rockets destroys the flying saucer."
  51. 640 [151]649,10:[153]"          sys    (NULL)(NULL)val(NULL)(NULL) atn (NULL)val(NULL)"
  52. 641 [158]679:[161]k$:[139]k$[178]""[167]641
  53. 680 [153]"load":[151]53280,.:[151]53281,.
  54. 682 [151]2040,13:[151]2041,13:[151]2042,13:[151]2043,13:[151]2044,13
  55. 685 [151]2045,13:[151]2046,13
  56. 700 [129]i[178]0[164]8:[135]n:[151]832[170]i,n:[130]i:[129]i[178]9[164]51[169]3:[151]832[170]i,0:[151]833[170]i,127
  57. 702 [151]834[170]i,0:[130]i:[129]i[178]54[164]62:[135]n:[151]832[170]i,n:[130]i
  58. 705 [151]v[170]29,[194](v[170]29)[176]2[174]0
  59. 710 [151]v[170]39,7:[151]v[170]23,1
  60. 715 [151]v[170]40,6
  61. 716 [151]v[170]23,[194](v[170]23)[176]2[174]1:[151]v[170]29,[194](v[170]29)[176]2[174]1
  62. 720 [151]v[170]41,2:y[178]205:x[178]118:[151]v[170]4,x:[151]v[170]5,y
  63. 722 [151]v[170]23,[194](v[170]23)[176]2[174]2:[151]v[170]29,[194](v[170]29)[176]2[174]2
  64. 725 [151]v[170]42,5
  65. 728 [151]v[170]23,[194](v[170]23)[176]2[174]3:[151]v[170]29,[194](v[170]29)[176]2[174]3
  66. 731 [151]v[170]43,4
  67. 733 [151]v[170]23,[194](v[170]23)[176]2[174]4:[151]v[170]29,[194](v[170]29)[176]2[174]4
  68. 736 [151]v[170]44,3
  69. 740 [151]v[170]23,[194](v[170]23)[176]2[174]5:[151]v[170]29,[194](v[170]29)[176]2[174]5
  70. 745 [151]v[170]45,10
  71. 750 [151]v[170]23,[194](v[170]23)[176]2[174]6:[151]v[170]29,[194](v[170]29)[176]2[174]6
  72. 760 [151]v[170]27,[194](v[170]27)[176]2[174]0:[151]v[170]27,[194](v[170]27)[176]2[174]1:[151]v[170]27,[194](v[170]27)[176]2[174]2
  73. 762 [151]v[170]27,[194](v[170]27)[176]2[174]3:[151]v[170]27,[194](v[170]27)[176]2[174]4:[151]v[170]27,[194](v[170]27)[176]2[174]5
  74. 764 [151]v[170]27,[194](v[170]27)[176]2[174]6
  75. 800 [131]0,8,0,0,28,0,0,62,0
  76. 804 [131]0,8,0,0,28,0,0,62,0
  77. 810 [129]i[178]0[164]63:[135]n:[151]896[170]i,n:[130]i
  78. 813 [151]2047,14
  79. 820 [131]0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,20,0,0,170,0,2,170,128
  80. 822 [131]9,150,96,170,170,170,10,85,160,2,170,128,0,170,0,2,0,128,8,0
  81. 823 [131]32,42,0,168,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  82. 826 [151]v[170]27,[194](v[170]27)[176]2[174]7:[151]v[170]28,128
  83. 828 [151]v[170]46,5:[151]v[170]37,2:[151]v[170]38,2
  84. 900 qu[178]110:[134]dp(qu):nd[178]0
  85. 910 i[178][187]([171]ti)
  86. 1000 [153]"load":[140]:[151]v[170]21,1:[151]v[170]0,21:[151]v[170]1,205:[151]v[170]21,[194](v[170]21)[176]2[174]1
  87. 1001 [151]v[170]2,68:[151]v[170]3,205:[151]v[170]21,[194](v[170]21)[176]2[174]2:[151]v[170]4,115:[151]v[170]5,205
  88. 1002 [151]v[170]21,[194](v[170]21)[176]2[174]3:[151]v[170]6,162:[151]v[170]7,205
  89. 1003 [151]v[170]29,[194](v[170]29)[176]2[174]0
  90. 1004 [151]v[170]21,[194](v[170]21)[176]2[174]4:[151]v[170]8,209:[151]v[170]9,205
  91. 1006 [151]v[170]21,[194](v[170]21)[176]2[174]5:[151]v[170]16,[194](v[170]16)[176]2[174]5:[151]v[170]10,0:[151]v[170]11,205
  92. 1008 [151]v[170]21,[194](v[170]21)[176]2[174]6:[151]v[170]16,[194](v[170]16)[176]2[174]6:[151]v[170]12,49:[151]v[170]13,205
  93. 1009 [141]12000
  94. 1020 [153]"printlen(NULL)(NULL)(NULL)vallen(NULL) atn(NULL)(NULL)(NULL)val(NULL)      sys(NULL)(NULL)(NULL)(NULL) (NULL)len(NULL)(NULL)val"
  95. 1022 [153]"     absusrusrusrusrusrusrusrusrusrusrint      absusrusrusrusrusrusrusrusrusrusrusrint"
  96. 1024 [153]"     abs          int      abs           int"
  97. 1026 [153]"     absandandandandandandandandandandint      absandandandandandandandandandandandint"
  98. 1038 [141]9000
  99. 1039 [153]"waitandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandandand";
  100. 1040 [153]"open                                        ";
  101. 1041 [153]"open                                        ";
  102. 1042 [153]"waitusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr";
  103. 1045 [141]20000
  104. 1050 i[178][181]([187](1)[172]qu)[170]1:[139]dp(i)[178]1[167][137]1050
  105. 1060 r[178]0
  106. 1065 [140]
  107. 1070 dp(i)[178]1:i[178](i[172]2)[171]1:i[178]i[170]97
  108. 1090 [129]h[178]1[164]i:[135]qu$:[130]h:[135]an$
  109. 1100 [153]"open";
  110. 1101 t[178]6:[141]1108:[153]
  111. 1103 [129]j[178]1[164]15:[130]j
  112. 1104 [153]"cont":[137]1119
  113. 1108 s[178]54272:[129]m[178]s[164]s[170]23:[151]m,0:[130]
  114. 1109 [151]s[170]24,10:[139]t[167][153][163]t);
  115. 1110 [129]j[178]1[164][195](qu$):[151]s[170]1,23
  116. 1111 [139][200](qu$,1)[179][177]""[167]1113
  117. 1112 [153]" cmd";:[137]1114
  118. 1113 [153]" cmd";
  119. 1114 [151]s[170]6,240:[151]s[170]4,23
  120. 1115 [153][202](qu$,j,1);
  121. 1116 [151]s[170]6,0
  122. 1117 [151]s[170]4,0:[130]j:t[178]0:[153]:[142]
  123. 1119 [153]"                  systab(tab(tab(tab(":[151]214,7:[153]:[153]"def#";nd[170]1
  124. 1120 [151]19,64:[153]"clr          atnnswer: ";:[141]60500
  125. 1121 [139]ya$[178]"quit"[167][138]
  126. 1123 [139]ya$[179]"0"[176]ya$[177]"2000"[167][153]"                          ":[137]1120
  127. 1140 [153]"";an$
  128. 1143 [139]ya$[178]an$[167][137]3000
  129. 1145 b[178][197](ya$):a[178][197](an$)
  130. 1150 cc[178][182](a[171]b)
  131. 1160 [139]b[177]a[167]cc[178]b[171]a
  132. 1165 [139]cc[178]1[167][153]"(NULL)ou missed it by 1 year."
  133. 1170 [139]cc[177]1[167][153]"(NULL)ou missed it by";cc;"years."
  134. 1172 [139]gg[178]1[167][137]4300
  135. 1175 [139]cc[179][178]5[167][153]"(NULL)ou scored 75 points.":po[178]75:[141]6000
  136. 1178 [139]cc[177]5[175]cc[179][178]10[167][153]"(NULL)ou scored 50 points.":po[178]50
  137. 1180 [139]cc[177]10[175]cc[179][178]20[167][153]"(NULL)ou scored 30 points.":po[178]30
  138. 1183 [139]cc[177]20[175]cc[179][178]30[167][153]"(NULL)ou scored 20 points.":po[178]20
  139. 1185 [139]cc[177]30[175]cc[179][178]40[167][153]"(NULL)ou scored 10 points.":po[178]10
  140. 1188 [139]cc[177]40[175]cc[179][178]50[167][153]"(NULL)ou scored 5 points.":po[178]5
  141. 1191 [141]9000
  142. 1192 [139]cc[177][178]51[167][141]17000:[129]x[178]1[164]3500:[130]:[137]4000
  143. 1200 [139]ya$[179][177]an$[167][129]x[178]1[164]2000:[130]:[137]1275
  144. 1250 [139]ya$[178]an$[167]bo[178]0:[137]3000
  145. 1275 nd[178]nd[170]1:[129]x[178]1[164]1000:[130]
  146. 1280 [139]nd[178]15[167][137]4000
  147. 1282 [151]v[170]16,[194](v[170]16)[175](255[171]2[174]7)
  148. 1283 [141]23000
  149. 1285 [137]1000
  150. 3000 rr[178][187]([171]ti):rr[178][181]([187](1)[172]8)[170]1
  151. 3007 [153]"(NULL)right$chr$left$(NULL)!
  152. 3010 ifrr=1thengoto3100
  153. 3020 ifrr=2thengoto3150
  154. 3030 ifrr=3thengoto3200
  155. 3040 ifrr=4thengoto3250
  156. 3050 ifrr=5thengoto3300
  157. 3060 ifrr=6thengosub3350
  158. 3070 ifrr=7thengosub3400
  159. 3080 ifrr=8thengosub3450
  160. 3100 gosub3800:fory=205to0step-.9:pokev+1,y:next:gosub3900
  161. 3105 ifr=0thengosub13000
  162. 3110 ifgg=1thenpo=50:gosub9500:gosub9000
  163. 3115 ifgg<>1thenpo=100:gosub9500:gosub9000
  164. 3120 forx=1to2000:next:goto1275
  165. 3150 gosub3800:fory=205to0step-.9:pokev+1,y:next:gosub9500
  166. 3155 ifr=0thengosub13000
  167. 3160 fory=205to0step-.9:pokev+3,y:next
  168. 3165 ifr=0thengosub13000
  169. 3167 ifgg=1thenpo=100:gosub9550:gosub9000
  170. 3170 gosub3900:gosub9550
  171. 3180 ifgg<>1thenpo=200:gosub9000
  172. 3190 forx=1to2000:next:goto1275
  173. 3200 gosub3800:fory=205to0step-.9:pokev+1,y:next:gosub9500
  174. 3203 ifr=0thengosub13000
  175. 3205 fory=205to0step-.9:pokev+3,y:next
  176. 3207 ifr=0thengosub13000
  177. 3210 gosub9550
  178. 3215 fory=205to0step-.9:pokev+5,y:next
  179. 3217 ifr=0thengosub13000
  180. 3218 ifgg=1thenpo=150:gosub9600:gosub9000
  181. 3220 gosub3900:gosub9600
  182. 3225 ifgg<>1thenpo=300:gosub9000
  183. 3230 forx=1to2000:next:goto1275
  184. 3250 gosub3800:fory=205to0step-.9:pokev+1,y:next:gosub9500
  185. 3252 ifr=0thengosub13000
  186. 3255 fory=205to0step-.9:pokev+3,y:next:gosub9550
  187. 3257 ifr=0thengosub13000
  188. 3260 fory=205to0step-.9:pokev+5,y:next:gosub9600
  189. 3262 ifr=0thengosub13000
  190. 3265 fory=205to0step-.9:pokev+7,y:next:gosub3900
  191. 3267 ifr=0thengosub13000
  192. 3268 ifgg=1thenpo=200:gosub9650:gosub9000:gosub3900
  193. 3270 ifgg<>1thenpo=400:gosub9000:gosub9650
  194. 3280 forx=1to2000:next:goto1275
  195. 3300 gosub3800:fory=205to0step-.9:pokev+1,y:next:gosub9500
  196. 3302 ifr=0thengosub13000
  197. 3305 fory=205to0step-.9:pokev+3,y:next:gosub9550
  198. 3307 ifr=0thengosub13000
  199. 3310 fory=205to0step-.9:pokev+5,y:next:gosub9600
  200. 3312 ifr=0thengosub13000
  201. 3315 fory=205to0step-.9:pokev+7,y:next:gosub9650
  202. 3317 ifr=0thengosub13000
  203. 3320 fory=205to0step-.9:pokev+9,y:next:gosub3900
  204. 3322 ifr=0thengosub13000
  205. 3323 ifgg=1thenpo=250:gosub9700:gosub9000
  206. 3325 ifgg<>1thenpo=500:gosub9700:gosub9000
  207. 3330 forx=1to2000:next:goto1275
  208. 3350 gosub3800:fory=205to0step-.9:pokev+1,y:next:gosub9500
  209. 3352 ifr=0thengosub13000
  210. 3355 fory=205to0step-.9:pokev+3,y:next:gosub9550
  211. 3357 ifr=0thengosub13000
  212. 3360 fory=205to0step-.9:pokev+5,y:next:gosub9600
  213. 3362 ifr=0then gosub13000
  214. 3365 fory=205to0step-.9:pokev+7,y:next:gosub9650
  215. 3367 ifr=0thengosub13000
  216. 3370 fory=205to0step-.9:pokev+9,y:next:gosub9700
  217. 3372 ifr=0thengosub13000
  218. 3375 fory=205to0step-.9:pokev+11,y:next:gosub3900:gosub9750
  219. 3377 ifr=0thengosub13000
  220. 3378 ifgg=1thenpo=300:gosub9750:gosub9000
  221. 3380 ifgg<>1thenpo=600:gosub9750:gosub9000
  222. 3385 forx=1to2000:next:goto1275
  223. 3400 gosub3800:fory=205to0step-.9:pokev+1,y:next:gosub9500
  224. 3402 ifr=0thengosub13000
  225. 3405 fory=205to0step-.9:pokev+3,y:next:gosub9550
  226. 3407 ifr=0thengosub13000
  227. 3410 fory=205to0step-.9:pokev+5,y:next:gosub9600
  228. 3412 ifr=0then gosub13000
  229. 3415 fory=205to0step-.9:pokev+7,y:next:gosub9650
  230. 3417 ifr=0thengosub13000
  231. 3420 fory=205to0step-.9:pokev+9,y:next:gosub9700
  232. 3422 ifr=0thengosub13000
  233. 3425 fory=205to0step-.9:pokev+11,y:next:gosub9750
  234. 3427 ifr=0then gosub13000
  235. 3430 fory=205to0step-.9:pokev+13,y:next:gosub3900:gosub9800
  236. 3432 ifr=0thengosub13000
  237. 3433 ifgg=1thenpo=350:gosub9800:gosub9000
  238. 3435 ifgg<>1thenpo=700:gosub9800:gosub9000
  239. 3440 forx=1to2000:next:goto1275
  240. 3450 gosub3800:fory=205to0step-2.9:pokev+1,y:pokev+3,y:pokev+5,y:pokev+7,y
  241. 3460 pokev+9,y:pokev+11,y:pokev+13,y
  242. 3465 nk=int(rnd(1)*15)+1:poke53280,nk:next:poke53280,0
  243. 3466 ifr=0thengosub13000
  244. 3467 ifgg=1thenpo=500
  245. 3468 ifgg<>1thenpo=1000
  246. 3470 gosub3900:gosub9850:gosub9000:forx=1to2500:next:goto1275
  247. 3800 poke53278,0:poke54296,15:poke54277,127:poke54278,129:poke54276,129
  248. 3810 ford=1to10:fory=1to200step40:poke54273,y:poke53280,y:poke53281,y:nexty,d
  249. 3820 poke53280,0:poke53281,0:gosub10000:return
  250. 3900 poke54296,0:poke54277,0:poke54278,0:poke54276,0:return
  251. 4000 pokev+21,0:print"[147][150][217][207][213][210] [211][195][207][210][197]"
  252. 4002 forx=1to500:next:gosub4400
  253. 4005 print"[159]";ys
  254. 4007 ifnd=15thenprint"   [217]ou completed [193][204][204] of the questions!"
  255. 4008 forx=1to750:next
  256. 4010 print"[153][208]ress the [158][211][208][193][195][197] [194][193][210][146][153] to continue"
  257. 4013 sys679:getk$:ifk$=""then4013
  258. 4018 ifk$<>chr$(32)thengoto4010
  259. 4020 run
  260. 4100 poke53280,7:poke53281,1
  261. 4110 print"[147]"tab(15)"[156][211][195][207][210][201][206][199]"
  262. 4120 printtab(3)"[144][217][207][213][210][160][193][206][211][215][197][210]";:printtab(24)"[208][207][201][206][212][211] [211][195][207][210][197][196]"
  263. 4125 printtab(3)"[183][183][183][183] [183][183][183][183][183][183]";:printtab(24)"[183][183][183][183][183][183] [183][183][183][183][183][183]"
  264. 4130 print" [197]xact [196]ate .......... 50-500 [208]oints"
  265. 4135 print" 1-5 years off ....... 40 [208]oints"
  266. 4140 print" 6-10 years off ...... 25 [208]oints"
  267. 4145 print" 11-20 years off...... 20 [208]oints"
  268. 4150 print" 21-30 years off ..... 15 [208]oints"
  269. 4155 print" 31-40 years off ..... 10 [208]oints"
  270. 4160 print" 41-50 years off ..... 5 [208]oints"
  271. 4165 print" 51-100 years off .... 0 [208]oints"
  272. 4170 print" 101+ years off[146] ...... [199][193][205][197] [197][206][196][211]!"
  273. 4175 poke649,10:print"             [144][208][210][197][211][211] [193][206][217] [203][197][217]"
  274. 4176 print"             [156][163][163][163][163][163] [163][163][163] [163][163][163]"
  275. 4180 sys679:getk$:ifk$=""then4180
  276. 4185 return
  277. 4300 ifcc<=5thenprint"[217]ou scored 40 points.":po=40:gosub6000
  278. 4310 ifcc>5andcc<=10thenprint"[217]ou scored 25 points.":po=25
  279. 4320 ifcc>10andcc<=20thenprint"[217]ou scored 20 points.":po=20
  280. 4330 ifcc>20andcc<=30thenprint"[217]ou scored 15 points.":po=15
  281. 4340 ifcc>30andcc<=40thenprint"[217]ou scored 10 points.":po=10
  282. 4350 ifcc>40andcc<=50thenprint"[217]ou scored 5 points.":po=5
  283. 4360 ifcc>50andcc<=100thenprint"[217]ou scored 0 points.":po=0
  284. 4365 gosub9000
  285. 4370 ifcc>100thengosub17000:forx=1to3500:next:goto4000
  286. 4380 goto1200
  287. 4400 poke54296,15:poke54277,7:poke54278,150:poke54272,0:poke54273,90
  288. 4410 poke54276,17:forx=1to150:next:poke54276,0:poke54272,0:poke53273,0
  289. 4420 return
  290. 5000 data"[215]hen did [195]hristopher [195]olumbus make his  first trip to the [206]ew [215]orld?"
  291. 5001 data"1492"
  292. 5002 data"[212]he [205]ississippi [210]iver was discovered by [200]ernando de [211]oto in what year?
  293. 5003 [131]"1541"
  294. 5004 [131]"(NULL)asco (NULL)unez de peekalboa discovered the    (NULL)acific (NULL)cean in what year?"
  295. 5005 [131]"1513"
  296. 5006 [131]"right$n what year did (NULL)once de (NULL)eon discover asclorida?"
  297. 5007 [131]"1513"
  298. 5008 [131]"mid$amestown was first settled in what     year?"
  299. 5009 [131]"1607"
  300. 5010 [131]"right$n what year did the (NULL)ilgrims arrive on the '(NULL)ayflower?'
  301. 5011 data"1620"
  302. 5014 data"[201]n what year was the [211]tamp [193]ct          passed?"
  303. 5015 data"1765"
  304. 5016 data"[201]n what year was the [211]tamp [193]ct repealed by the [194]ritish [208]arliament?"
  305. 5017 data"1766"
  306. 5018 data"[212]he [212]ownshend [193]cts were passed in what  year?"
  307. 5019 data"1767"
  308. 5020 data"[201]n what year was the steam engine       invented by [202]ames [215]att?"
  309. 5021 data"1769"
  310. 5022 data"[212]he [194]oston [205]assacre occurred on [205]arch 5 of what year?"
  311. 5023 data"1770"
  312. 5024 data"[215]hen did the [194]oston [212]ea [208]arty           occur?"
  313. 5025 data"1773"
  314. 5026 data"[212]he [194]ritish [208]arliament passed the       [201]ntolerable [193]cts in what year?
  315. 5027 [131]"1774"
  316. 5028 [131]"(NULL)he peekattles of (NULL)exington and lenoncord    were fought in what year?"
  317. 5029 [131]"1775"
  318. 5030 [131]"(NULL)he peekattle of peekunker left$ill was fought in what year?"
  319. 5031 [131]"1775"
  320. 5032 [131]"right$n what year was the str$eclaration of     right$ndependence signed?"
  321. 5033 [131]"1776"
  322. 5034 [131]"(NULL)he (NULL)reaty of (NULL)aris (ending the atnmerican(NULL)evolution) was signed when?"
  323. 5035 [131]"1783"
  324. 5036 [131]"(NULL)he lenonstitutional lenonvention met       in what year?"
  325. 5037 [131]"1787"
  326. 5038 [131]"(NULL)hen did valli (NULL)hitney invent the cotton  gin?"
  327. 5039 [131]"1793"
  328. 5040 [131]"(NULL)he (NULL)hiskey (NULL)ebellion took place in whatyear?"
  329. 5041 [131]"1794"
  330. 5042 [131]"(NULL)aul (NULL)evere made his famous 'midnight   ride' in what year?"
  331. 5043 [131]"1775"
  332. 5044 [131]"right$n what year did (NULL)resident (NULL)eagan order an air attack on (NULL)ibya?"
  333. 5045 [131]"1986"
  334. 5046 [131]"right$n what year did the right$ranian left$ostage    lenrisis begin?"
  335. 5047 [131]"1979"
  336. 5048 [131]"chr$eorge (NULL)ashington was elected our first (NULL)resident in what year?"
  337. 5049 [131]"1789"
  338. 5050 [131]"right$n what year did atnmerica celebrate its  peekicentennial?"
  339. 5051 [131]"1976"
  340. 5052 [131]"(NULL)ichard (NULL)ixon became the first (NULL)residentto resign in what year?"
  341. 5053 [131]"1974"
  342. 5054 [131]"(NULL)hen was (NULL)andra str$ay (NULL)'lenonnor appointed  to the (NULL)upreme lenourt?"
  343. 5055 [131]"1981"
  344. 5056 [131]"(NULL)hen were the last atnmerican troops with-drawn from (NULL)outh (NULL)ietnam?"
  345. 5057 [131]"1973"
  346. 5058 [131]"(NULL)n mid$uly 20th of what year did atnmericans first land on the moon?"
  347. 5059 [131]"1969"
  348. 5060 [131]"right$n what year was (NULL)onald (NULL)eagan elected  as our 40th (NULL)resident?"
  349. 5061 [131]"1980"
  350. 5062 [131]"right$n what year was (NULL)artin (NULL)uther (NULL)ing     assassinated?"
  351. 5063 [131]"1968"
  352. 5064 [131]"(NULL)resident mid$ohn asc. (NULL)ennedy was           assassinated in what year?"
  353. 5065 [131]"1963"
  354. 5066 [131]"right$n what year did the lenuban (NULL)issile      lenrisis occur?"
  355. 5067 [131]"1962"
  356. 5068 [131]"(NULL)hen were atnlaska and left$awaii admitted to the (NULL)nion as states?"
  357. 5069 [131]"1959"
  358. 5070 [131]"(NULL)he first earth satellite ('(NULL)putnik')   was launched in what year?"
  359. 5071 [131]"1957"
  360. 5072 [131]"right$n what year was the (NULL)eace lenorps        founded?"
  361. 5073 [131]"1961"
  362. 5074 [131]"mid$onas (NULL)alk discovered the polio vaccine in what year?"
  363. 5075 [131]"1955"
  364. 5076 [131]"(NULL)he (NULL)orean (NULL)ar began in what            year?"
  365. 5077 [131]"1950"
  366. 5078 [131]"(NULL)he lenommunists came to power in lenhina   in what year?"
  367. 5079 [131]"1949"
  368. 5080 [131]"right$n what year did (NULL)orld (NULL)ar right$right$           end?"
  369. 5081 [131]"1945"
  370. 5082 [131]"right$n what year did atnmerica drop two atomicbombs on mid$apan?"
  371. 5083 [131]"1945"
  372. 5084 [131]"(NULL)hen did the str$-str$ay invasion of valurope   occur (during (NULL)orld (NULL)ar right$right$)?
  373. 5085 data"1944"
  374. 5086 data"[215]hen did the [202]apanese launch a sneak    attack at [208]earl [200]arbor?"
  375. 5087 data"1941"
  376. 5088 data"[201]n what year did [215]orld [215]ar [201][201]           begin?"
  377. 5089 data"1939"
  378. 5090 data"[212]he [211]ocial [211]ecurity [193]ct was passed by   [195]ongress in what year?"
  379. 5091 data"1935"
  380. 5092 data"[212]he stock market crashed and the [199]reat  [196]epression began in what year?
  381. 5093 [131]"1929"
  382. 5094 [131]"(NULL)he first motion picture with sound was made in what year?"
  383. 5095 [131]"1927"
  384. 5096 [131]"lenharles atn. (NULL)indbergh flew across the    atntlantic (NULL)cean in what year?"
  385. 5097 [131]"1927"
  386. 5098 [131]"right$n what year did the 19th atnmendment givewomen the right to vote?"
  387. 5099 [131]"1920"
  388. 5100 [131]"(NULL)orld (NULL)ar right$ came to an end in what      year?"
  389. 5101 [131]"1918"
  390. 5102 [131]"(NULL)he chr$ermans torpedoed the luxury liner  '(NULL)usitania' in what year?"
  391. 5103 [131]"1915"
  392. 5104 [131]"(NULL)orld (NULL)ar right$ began in what               year?"
  393. 5105 [131]"1914"
  394. 5106 [131]"right$n what year did the (NULL)right peekrothers flythe first airplane?"
  395. 5107 [131]"1903"
  396. 5108 [131]"ascrance gave the (NULL)tatue of (NULL)iberty to    atnmerica in what year?"
  397. 5109 [131]"1886"
  398. 5110 [131]"right$n what year did (NULL)homas valdison invent   the electric light bulb?"
  399. 5111 [131]"1879"
  400. 5112 [131]"atnlexander chr$raham peekell invented the      telephone in what year?"
  401. 5113 [131]"1876"
  402. 5114 [131]"(NULL)he chr$reat lenhicago ascire occurred in what year?"
  403. 5115 [131]"1871"
  404. 5116 [131]"(NULL)hen was our nation's first transcon-   tinental railroad completed?"
  405. 5117 [131]"1869"
  406. 5118 [131]"(NULL)hen was (NULL)resident atnndrew mid$ohnson       impeached but not convicted?"
  407. 5119 [131]"1868"
  408. 5120 [131]"atnlaska was purchased from (NULL)ussia for    $7,200,000 in what year?"
  409. 5121 [131]"1867"
  410. 5122 [131]"(NULL)he 13th atnmendment (ending slavery) was passed in what year?"
  411. 5123 [131]"1865"
  412. 5124 [131]"right$n what year did the lenivil (NULL)ar come to  an end?"
  413. 5125 [131]"1865"
  414. 5126 [131]"atnbraham (NULL)incoln was assassinated by mid$ohn(NULL)ilkes peekooth in what year?"
  415. 5127 [131]"1865"
  416. 5128 [131]"(NULL)he (NULL)(NULL)(NULL) atnffair with ascrance took place inwhat year?"
  417. 5129 [131]"1797"
  418. 5130 [131]"right$n what year were the atnlien and (NULL)editionatncts passed by lenongress?"
  419. 5131 [131]"1798"
  420. 5132 [131]"(NULL)he (NULL)ouisiana (NULL)erritory was purchased   from ascrance in what year?"
  421. 5133 [131]"1803"
  422. 5134 [131]"(NULL)he (NULL)ewis and lenlark valxpedition began in what year?"
  423. 5135 [131]"1804"
  424. 5136 [131]"(NULL)he (NULL)ar of 1812 began in what           year?"
  425. 5137 [131]"1812"
  426. 5138 [131]"atnndrew mid$ackson won the peekattle of (NULL)ew    (NULL)rleans in what year?"
  427. 5139 [131]"1815"
  428. 5140 [131]"right$n what year did the (NULL)nited (NULL)tates      purchase asclorida from (NULL)pain?"
  429. 5141 [131]"1819"
  430. 5142 [131]"(NULL)ur nation's oldest college, left$arvard,   was founded in what year?"
  431. 5143 [131]"1636"
  432. 5144 [131]"(NULL)he valrie lenanal was completed in what    year?"
  433. 5145 [131]"1825"
  434. 5146 [131]"(NULL)he first telegraph was put into        operation in what year?"
  435. 5147 [131]"1844"
  436. 5148 [131]"(NULL)he (NULL)exican (NULL)ar began in what           year?"
  437. 5149 [131]"1846"
  438. 5150 [131]"right$n what year was gold first discovered  in lenalifornia?"
  439. 5151 [131]"1848"
  440. 5152 [131]"(NULL)hen was the book '(NULL)ncle (NULL)om's lenabin'   published?"
  441. 5153 [131]"1852"
  442. 5154 [131]"(NULL)he (NULL)incoln-str$ouglas str$ebates took place  in what year?"
  443. 5155 [131]"1858"
  444. 5156 [131]"mid$ohn peekrown's raid at left$arpers ascerry took place in what year?"
  445. 5157 [131]"1859"
  446. 5158 [131]"right$n what year was atnbraham (NULL)incoln electedas our 16th (NULL)resident?"
  447. 5159 [131]"1860"
  448. 5160 [131]"(NULL)he lenivil (NULL)ar began in what             year?"
  449. 5161 [131]"1861"
  450. 5162 [131]"right$n what year did the peekattle of          chr$ettysburg take place?"
  451. 5163 [131]"1863"
  452. 5164 [131]"(NULL)he valmancipation (NULL)roclamation was issuedby (NULL)res. (NULL)incoln in what year?
  453. 5165 data"1863"
  454. 5166 data"[193]braham [204]incoln gave his [199]ettysburg     [193]ddress in what year?"
  455. 5167 data"1863"
  456. 5168 data"[204]eif [197]ricsson sailed to [206]orth [193]merica   in what year?"
  457. 5169 data"1001"
  458. 5170 data"[201]n what year did the [194]ritish [208]arliament pass the [211]ugar [193]ct?"
  459. 5171 data"1764"
  460. 5172 data"[212]homas [208]aine published his pamphlet     '[195]ommon [211]ense' in what year?"
  461. 5173 data"1776"
  462. 5174 data"[215]hen did the [194]ritish lose the [194]attle of [217]orktown to the [193]mericans?"
  463. 5175 data"1781"
  464. 5176 data"[201]n what year did [211]amuel [195]olt invent the revolver?"
  465. 5177 data"1835"
  466. 5178 data"[212]he [195]ompromise of 1850 was passed in    what year?"
  467. 5179 data"1850"
  468. 5180 data"[212]he [205]onroe [196]octrine was issued by [202]ames [205]onroe in what year?"
  469. 5181 data"1823"
  470. 5182 data"[212]he very first commercial radio broad-  cast was made in what year?"
  471. 5183 data"1920"
  472. 5184 data"[195]lara [194]arton established the [193]merican   [210]ed [195]ross in what year?"
  473. 5185 data"1881"
  474. 5186 data"[193]ndrew [202]ackson was elected our nation's 7th [208]resident in what year?"
  475. 5187 data"1828"
  476. 5188 data"[201]n what year was '[212]he [211]tar-[211]pangled     [194]anner' written?"
  477. 5189 data"1814"
  478. 5190 data"[215]hen did [194]enjamin [198]ranklin invent the   lightning rod?"
  479. 5191 data"1752"
  480. 5192 data"[201]n what year was '[207]ld [201]ronsides'        launched for the first time?"
  481. 5193 data"1797"
  482. 5194 data"[201]n what year was [208]resident [215]illiam      [205]c[203]inley assassinated?"
  483. 5195 data"1901"
  484. 5196 data"[201]n what year was [208]resident [202]ames [193].     [199]arfield assassinated?"
  485. 5197 data"1881"
  486. 5198 data"[212]he [211]an [198]rancisco earthquake, killing   452 people, occurred when?"
  487. 5199 data"1906"
  488. 5200 data"[201]n what year did the [213]nited [211]tates annex[200]awaii?"
  489. 5201 data"1898"
  490. 5202 data"[201]n what year did the very first [193]mericanpublic school open?"
  491. 5203 data"1647"
  492. 5204 data"[215]illiam [208]enn and the [209]uakers founded    [208]ennsylvania in what year?"
  493. 5205 data"1682"
  494. 5206 data"[204]ord [194]altimore founded the colony of    [205]aryland in what year?"
  495. 5207 data"1632"
  496. 5208 data"[201]n what year did the [193]ztec [201]ndians      surrender to [200]ernando [195]ortes?"
  497. 5209 data"1521"
  498. 5210 data"[212]he oldest [213].[211]. city ([211]t. [193]ugustine,    [198]lorida) was founded when?"
  499. 5211 data"1565"
  500. 5212 data"[212]he [210]oanoke [201]sland colony, which later  disappeared, was founded when?
  501. 5213 [131]"1585"
  502. 5214 [131]"right$n what year did mid$ames (NULL)glethorpe start the colony of chr$eorgia?"
  503. 5215 [131]"1733"
  504. 5216 [131]"right$n what year did mid$ohn (NULL)aul mid$ones' most  famous sea victory take place?
  505. 5217 data"1779"
  506. 5218 data"[197]lias [200]owe invented the sewing machine  in what year?"
  507. 5219 data"1846"
  508. 5220 data"[201]n what year did [196]aniel [194]oone lead      settlers into [203]entucky?"
  509. 5221 data"1775"
  510. 6000 bc=53248:mc=54272:pokemc+0,0:pokemc+1,0:pokemc+5,15:pokemc+6,15:w=20
  511. 6010 pokemc+24,10:forww=12to1step-1:pokebc+33,ww:pokemc+4,17:pokemc+1,w:w=w+5
  512. 6020 forxl=1to42:nextxl:pokemc+4,16:nextww:pokemc+24,0:poke53281,0
  513. 6030 return
  514. 9000 ys=ys+po+bo
  515. 9002 ifys<100thengoto9010
  516. 9004 ifys>=100andys<1000thenprint"";:printtab(27)"";ys:po=0
  517. 9005 ifys>=100andys<1000thenbo=0:return
  518. 9006 ifys>=1000thenprint"";:printtab(26)"";ys:po=0:bo=0:return
  519. 9010 print"";ys:po=0:bo=0:return
  520. 9500 ifgg=1thenprint"[129][217][207][213] [211][195][207][210][197][196] [158]50[146][129] [208][207][201][206][212][211]!":return
  521. 9510 print"[129][217][207][213] [211][195][207][210][197][196] [158]100[146][129] [208][207][201][206][212][211]!":return
  522. 9550 ifgg=1thenprint"[159][217][207][213] [211][195][207][210][197][196] 100[146][159] [208][207][201][206][212][211]!":return
  523. 9560 print"[159][217][207][213] [211][195][207][210][197][196] 200[146][159] [208][207][201][206][212][211]!":return
  524. 9600 ifgg=1thenprint"[156][217][207][213] [211][195][207][210][197][196] [153]150[146][156] [208][207][201][206][212][211]!":return
  525. 9610 print"[156][217][207][213] [211][195][207][210][197][196] [153]300[146][156] [208][207][201][206][212][211]!":return
  526. 9650 ifgg=1thenprint"[158][217][207][213] [211][195][207][210][197][196] 200[146][158] [208][207][201][206][212][211]!":return
  527. 9660 print"[158][217][207][213][160][211][195][207][210][197][196][160]400[146][158] [208][207][201][206][212][211]!":return
  528. 9700 ifgg=1thenprint"[149][217][207][213] [211][195][207][210][197][196] 250[146][149] [208][207][201][206][212][211]!":return
  529. 9710 print"[149][217][207][213] [211][195][207][210][197][196][160]500[146][149] [208][207][201][206][212][211]!":return
  530. 9750 ifgg=1thenprint"[217][207][213] [211][195][207][210][197][196] 300[146] [208][207][201][206][212][211]!":return
  531. 9760 print"[217][207][213] [211][195][207][210][197][196] 600[146] [208][207][201][206][212][211]!":return
  532. 9800 ifgg=1thenprint"[151][217][207][213] [211][195][207][210][197][196] [153]350[146][151] [208][207][201][206][212][211]!":return
  533. 9810 print"[151][217][207][213] [211][195][207][210][197][196] [153]700[146][151] [208][207][201][206][212][211]!!":return
  534. 9850 ifgg=1thenprint"[217][207][213] [211][195][207][210][197][196] 500[146] [208][207][201][206][212][211]!!!!!":return
  535. 9860 print"[217][207][213] [211][195][207][210][197][196] 1000[146] [208][207][201][206][212][211]!!!!!":return
  536. 10000 poke54277,129:poke54278,129:poke54276,129:poke54273,10:poke54272,60
  537. 10010 return
  538. 12000 k=int(rnd(1)*225)+30:poke2047,14
  539. 12010 pokev+21,peek(v+21)or2^7:pokev+14,k:pokev+15,50:goto12020
  540. 12020 return
  541. 13000 ifr=1thengosub14000
  542. 13002 ifpeek(53278)and129=129thenpoke2047,12:forx=50to255:pokev+15,x:next:r=1
  543. 13005 ifr=1thengosub14000
  544. 13020 poke53278,0:return
  545. 14000 bo=int(rnd(1)*250)+250
  546. 14001 ifgg=1thenbo=int(bo/2)
  547. 14005 print"[194][207][206][213][211] =[129]";bo;"[208][207][201][206][212][211]"
  548. 14007 print"[158][163][163][163]"
  549. 14010 po=po+bo
  550. 14020 return
  551. 15000 poke649,0:printchr$(147):poke53280,0:poke53281,0
  552. 15005 poke214,3:print:printtab(14)"[153][196][201][210][197][195][212][201][207][206][211]"
  553. 15010 poke214,5:print:print"    [154][197]ach game of [150][193][205][197][210][201][195][193][206][160][196][193][212][197][204][201][206][197]"
  554. 15015 print"[154]consists of a maximum of 15 questions."
  555. 15018 print"[217]ou will be given a famous event in"
  556. 15020 print"[193]merican history and asked to input"
  557. 15022 print"the year it happened.  [217]ou are awarded"
  558. 15025 print"points in relation to how close you"
  559. 15028 print"come to the right answer.  [212]he key to"
  560. 15030 print"a high score is hitting the correct"
  561. 15034 print"date right on the nose.  [201]f your"
  562. 15038 print"answer is too far off, the game will"
  563. 15040 print"end early (see next screen on"
  564. 15042 print"'[211]coring').  [201]f this happens, you will"
  565. 15045 print"not receive your full 15 questions."
  566. 15047 print"             [153][208][210][197][211][211][160][193][206][217][160][203][197][217]"
  567. 15050 poke649,10
  568. 15055 getk$:ifk$=""then15055
  569. 15060 poke649,0
  570. 15070 return
  571. 17000 poke54296,15
  572. 17001 poke54277,31:poke54278,208:poke54272,240:poke54273,4:poke54276,33
  573. 17010 forx=1to350:next:forx=1to100:next:poke54276,0:poke54272,0:poke54273,0
  574. 17020 return
  575. 20000 addr=1024:cl=55296
  576. 20020 q=7*rnd(9)+10
  577. 20030 fori=0toq:x=115*rnd(9):n=46:gosub21000:next
  578. 20040 fori=0to999:next:return
  579. 21000 pokeaddr+x,n:pokecl+x,n:return
  580. 23000 c1=23:c2=19:c3=24:c4=39:c5=59903
  581. 23010 forj=0toc1:c2$=c2$+chr$(32)+chr$(157)+chr$(17):next:c2$=c2$+chr$(145)
  582. 23020 forj=0toc2:ifj=0thenpoke781,c3:sysc5
  583. 23025 pokev+21,0
  584. 23030 poke781,j:sysc5:poke781,c3-j:sysc5
  585. 23040 next:print"[147]";:c2$="":return
  586. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  587. 60010 ifer<>63thenend
  588. 60020 poke53275,0:load"hello connect",8
  589. 60500 b$=chr$(20):poke198,.:print" [146]";:ya$="":fora=1to5
  590. 60510 rem
  591. 60511 rem
  592. 60514 geta$:ifa$=""then60511
  593. 60515 jj%=1:if(a$="q"ora$="u"ora$="i"ora$="t")and(a<5)then60560
  594. 60520 ifa$=chr$(13)thenprint"[157] ":return
  595. 60530 ifa$=b$anda>1thena=a-1:print"[157][157]  [157][157] [146]";:ya$=left$(ya$,a-1):goto60514
  596. 60540 ifa=5then60514
  597. 60550 ifa$<"0"ora$>"9"then60514
  598. 60560 print"[157]"a$" [146]";:ya$=ya$+a$:next
  599.