home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 1 #8 / utv1n8s1.d64 / computer squares (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  12.4 KB  |  380 lines
  1. 10 ifpeek(40704)<>165thenpoke56,127:clr:load"0:draw",8,1
  2. 15 clr:sys 65418:poke 808,234
  3. 20 goto 505
  4. 25 fc=6:syspp
  5. 26 print"[147]   [195]omputer [211]quares plays like the"
  6. 27 print"popular [212].[214]. game show, "chr$(34)"[200][207][204][204][217][215][207][207][196]"
  7. 28 print"[211][209][213][193][210][197][211]"chr$(34)", which is a tic-tac-toe trivia game.
  8. 30 [153]"   (NULL)ine celebrities sit in the tic-tac-"
  9. 32 [153]"toe grid.  (NULL)ou pick the celebrity you"
  10. 34 [153]"want, the host will ask him a question"
  11. 36 [153]"and they will give an answer.  right$t is up"
  12. 38 [153]"to you to decide if the question has"
  13. 40 [153]"been answered truthfully or not.  right$f you";
  14. 42 [153]"are right your mark (either (NULL) or (NULL)) is"
  15. 44 [153]"placed in that square.  right$f you are wrong";
  16. 46 [153]"your opponent will have their mark"
  17. 48 [153]"placed in that square."
  18. 49 [141] 400
  19. 50 [153]"load(NULL)(NULL)valatn(NULL)val (NULL)(NULL)(NULL)val: (NULL)he only time your"
  20. 52 [153]"opponent's mark is not placed in your"
  21. 54 [153]"square is when this would cause him to"
  22. 55 [153]"win the game.  (NULL)his square must be"
  23. 56 [153]"earned by picking it on their turn."
  24. 58 [153]"(NULL)wo rounds are played (three if you are"
  25. 60 [153]"tied).  (NULL)ou win $500 per round and the"
  26. 62 [153]"grand winner gets to try and win a car."
  27. 64 [141] 400
  28. 67 [153]"load      (NULL)(NULL)atn(NULL)right$(NULL)chr$ len(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL) (NULL)(NULL)(NULL)atn(NULL)val(NULL)..."
  29. 69 [153]"   (NULL)imply follow the screen prompts to"
  30. 72 [153]"play.  (NULL)ost prompts require you to press";
  31. 74 [153]"one key; others require you to press"
  32. 76 [153]"the (NULL)val(NULL)(NULL)(NULL)(NULL) key after your selection."
  33. 80 [153]"(NULL)hen you are asked '(NULL)left$atn(NULL) (NULL)(NULL)val(NULL)(NULL)right$(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)"
  34. 82 [153]"(NULL)atn(NULL)(NULL) (NULL)(NULL) (NULL)(NULL)val' press (NULL)val(NULL)(NULL)(NULL)(NULL) for the"
  35. 84 [153]"standard set of questions.  right$f you have"
  36. 86 [153]"created your own question file with
  37. 88 print"'[209][213][197][211][212][201][207][206] [205][193][203][197][210]', then enter that file's";
  38. 89 print"name and press return."
  39. 90 print"   [201]f you are playing a solitaire game"
  40. 92 print"you can choose from among 3 computer"
  41. 94 print"players.  [212]he higher the number, the"
  42. 96 print"smarter the player."
  43. 100 poke198,0:print"[154]        [208]ress [211][208][193][195][197][194][193][210] to start"
  44. 110 gety$:ify$<>" "then110
  45. 115 fc=7:syspp
  46. 120 return
  47. 400 print"[154]      [208]ress [211][208][193][195][197][194][193][210] to continue.";:poke198,0
  48. 410 gety$:ify$<>" "then410
  49. 420 return
  50. 505 s=54272:fort=stos+24:poket,0:next:pokes+24,15
  51. 510 rd=0:pp=40704:pn$="title":la=32768:fc=0:syspp:print"[147]"
  52. 515 fc=1:syspp:fc=2:syspp
  53. 520 pokes+2,255:pokes+3,7:pokes+5,9:pokes+6,0
  54. 525 fory=1to10:pokes+1,18:pokes,104:pokes+4,65:foru=1to100:nextu:pokes+4,64
  55. 530 pokes+1,20:pokes,104:pokes+4,65:foru=1to100:nextu:pokes+4,64
  56. 535 pokes+1,22:pokes,104:pokes+4,65:foru=1to100:nextu:pokes+4,64
  57. 540 pokes+3,y:nexty
  58. 545 forw=830to945:reade:pokew,e:next
  59. 550 data169,2,162,176,160,3,32,189,255,169,1,162,8,160,0,32,186,255,32,192
  60. 555 data255,24,162,1,32,198,255,176,75,32,207,255,32,207,255,169,13,32,210,255
  61. 560 data32,207,255,32,207,255,32,207,255,133,252,32,207,255,133,251,165,144
  62. 565 data208,44,165,251,166,252,32,205,189,169,32,32,210,255,32,207,255,32,210
  63. 570 data255,174,141,2,208,251,166,145,224,127,240,15,32,207,255,105,0,208,235
  64. 575 data169,13,32,210,255,76,102,3,24,169,1,32,195,255,32,204,255,96,36,48
  65. 577 gosub 2500
  66. 578 get a$:if a$="y" then gosub 25:goto581
  67. 579 if a$="[140]" then 2600
  68. 580 if a$<>"n" then 578
  69. 581 poke198,0:print"[147]"tab(11)"[207]ne player or two?"
  70. 582 printtab(13)"([197]nter 1 or 2)"
  71. 585 geta$:ifa$<"1"ora$>"2" and a$<>"[140]" then585
  72. 587 if a$="[140]" then 2600
  73. 590 ifa$="2"then615
  74. 592 a4=val(a$)
  75. 595 poke198,0:printtab(8)"[145][145][193]re you male or female?"
  76. 597 printtab(13)"([197]nter [205] or [198])"
  77. 600 getb3$
  78. 601 if b3$="[140]" then 2600
  79. 603 if b3$<>"m" and b3$<>"f" then 600
  80. 605 se$="screen1":ifb3$="f"thense$="screen3"
  81. 610 goto650
  82. 615 printtab(10)"[145][145][193]re the two players:"
  83. 620 printtab(5)"1-[205]ale & [198]emale  2-[205]ale & [205]ale"
  84. 625 print"  3-[198]emale & [198]emale  ([197]nter 1, 2 or 3)";:poke198,0
  85. 630 geta7$:ifa7$="1"thense$="screen1":goto650
  86. 633 if a7$="[140]" then 2600
  87. 635 ifa7$="2"thense$="screen2":goto650
  88. 640 ifa7$="3"thense$="screen3":goto650
  89. 645 goto630
  90. 650 fort=1to500:next:print"[147]"
  91. 655 pn$=se$:fc=1:syspp:fc=2:syspp:r1=rd:r2=la
  92. 660 pn$="car":fc=1:syspp:rd=r2
  93. 665 dimb(9):dima$(199):dimr(49)
  94. 670 nn=-1
  95. 675 l1$="[147][144]":printl1$"[215]hat is player one's name?"
  96. 676 print">";:gosub2000:n1$=t$
  97. 680 ifa4<>1then715
  98. 685 poke198,0
  99. 690 printl1$tab(8)"[156][215]ho do you want to play?"
  100. 692 printtab(7)"1) [205]ary  2) [208]at  3) [211]hanna[144]
  101. 695 [161]q1$:[139]q1$[178]"1"[167]n2$[178]"(NULL)ary":[137]720
  102. 700 [139]q1$[178]"2"[167]n2$[178]"(NULL)at":[137]720
  103. 705 [139]q1$[178]"3"[167]n2$[178]"(NULL)hanna":[137]720
  104. 706 [139] q1$[178]"restore" [167] 2600
  105. 710 [137]695
  106. 715 [153]l1$"(NULL)hat is player two's name?":[153]">";:[141]2000:n2$[178]t$
  107. 720 [153]l1$"   (NULL)hat questions do you want to use?"
  108. 725 [153]" valnter questions name or (NULL)val(NULL)(NULL)(NULL)(NULL) for
  109. 730 print" regular questions":tt=1:t1=1:t2=2:m1=0:m2=0
  110. 732 print">";:gosub 2000:b$=t$:if b$="" then b$="q"
  111. 735 print"[147]"tab(15)"[200]ang on...":printtab(11)"[199]etting loaded..."
  112. 742 open 15,8,15,"i0"
  113. 745 open3,8,3,"0:"+b$:input#15,er:close3:close15:ifer<20then755
  114. 750 printl1$"[196][201][211][203] [197][210][210][207][210]!!!. [212]ry again.":forxx=1to3000:next:goto720
  115. 755 fc=6:syspp:open3,8,3,"0:"+b$
  116. 760 forb=0to199
  117. 765 input#3,a$(b):next
  118. 770 close3:fc=6:syspp
  119. 775 printl1$tab(7)"[205]ixing up the questions..."
  120. 780 forp=0to49:r(p)=p:next:x=ti:z=ti
  121. 785 op=peek(162):forp=1toop:z=int(rnd(ti)*50):x=int(rnd(ti)*50)
  122. 790 r=r(x):r(x)=r(z):r(z)=r:next
  123. 795 printl1$tab(6)"[207].[203]., player one you start.":tu=1
  124. 800 iftu=1thenprint" "n1$", pick a square for your [216]."
  125. 805 iftu=2anda4=1then1170
  126. 810 iftu=2thenprint" "n2$", pick a square for your [207]."
  127. 815 nn=nn+1:ifnn=49thennn=1
  128. 820 poke198,0
  129. 825 getg$:ifg$<"1"org$>"9"and g$<>"[140]" then825
  130. 827 if g$="[140]" then 2600
  131. 830 g=val(g$)
  132. 835 ifb(g)<>0thenprintl1$tab(5)"[211]orry, that one has been used.":goto800
  133. 840 printl1$tab(7)"[206]umber"g" the question is:"
  134. 845 print" "a$(r(nn)*4):forxx=1to5:gosub1760:next
  135. 850 ifa$(r(nn)*4+3)<>"+"thenprintl1$" "a$(r(nn)*4+3):forx=1to1000:next
  136. 855 ifa$(r(nn)*4+3)<>"+"thenprint" just kidding....[144]":forx=1to1500:next
  137. 860 mn=int(rnd(1)*2):printl1$" [201]'ll say..."a$(r(nn)*4+1+mn)
  138. 865 printtab(4)"[144][215]ell, do you agree, disagree or"
  139. 870 print"  want the question repeated? ([193]/[196]/[210])";:poke198,0
  140. 875 iftu=2anda4=1then1320
  141. 880 gete$
  142. 885 ife$="a"then925
  143. 890 ife$="d"then935
  144. 895 ife$="r"then905
  145. 897 if e$="[140]" then 2600
  146. 900 goto880
  147. 905 printl1$" [212]he question was:":print" "a$(r(nn)*4):forex=1to5:gosub1760:next
  148. 910 forex=1to50:next
  149. 915 printl1$" [212]he answer was: "a$(r(nn)*4+1+mn):forxx=1to5:gosub1760:next
  150. 920 goto865
  151. 925 ifmn=0thengosub1735:goto1030
  152. 930 goto940
  153. 935 ifmn=1thengosub1735:goto1125
  154. 940 gosub1720:printl1$" [211]orry, "a$(r(nn)*4+1):print" is the correct answer."
  155. 945 fory=1to2000:next
  156. 950 b(g)=3:zn=1:iftu=1thenzn=2
  157. 955 k1=zn:k2=zn:k3=3:gosub1625:ifwi=9then1005
  158. 960 k1=zn:k2=3:k3=zn:gosub1625:ifwi=9then1005
  159. 965 k1=3:k2=zn:k3=zn:gosub1625:ifwi=9then1005
  160. 970 iftu=1thenprintl1$tab(11)"[207] gets the square.":b(g)=2:gosub1770:goto980
  161. 975 printl1$tab(11)"[216] gets the square.":b(g)=1:gosub1780
  162. 980 fore=1to1500:next
  163. 985 gosub1060:pr$="x":iftu=1thenpr$="o"
  164. 990 fc=4:syspp:fc=5:syspp:fore=1to3000:next
  165. 995 gosub1670:ifwi=8orwi=7thengosub1370:goto1435
  166. 1000 goto1155
  167. 1005 iftu=1thenprintl1$tab(10)"[195]an't put an [207] there":printn2$
  168. 1010 iftu=1thenprinttab(4)"[217]ou'll have to earn that square":goto1025
  169. 1015 printl1$tab(10)"[195]an't put an [216] there":printtab(20-len(n1$)/2)n1$
  170. 1020 printtab(4)"[217]ou'll have to earn that square."
  171. 1025 forxx=1to3000:next:b(g)=0:goto1155
  172. 1030 b(g)=tu
  173. 1035 ke$=n1$:iftu=2thenke$=n2$
  174. 1040 printl1$" [214]ery good "ke$"!":forxx=1to2500:next
  175. 1045 iftu=1thengosub1780
  176. 1050 iftu=2thengosub1770
  177. 1055 gosub1060:goto1095
  178. 1060 ifg=1org=2org=3thenty=40
  179. 1065 ifg=4org=5org=6thenty=93
  180. 1070 ifg=7org=8org=9thenty=147
  181. 1075 ifg=1org=4org=7thentx=74
  182. 1080 ifg=2org=5org=8thentx=106
  183. 1085 ifg=3org=6org=9thentx=138
  184. 1090 return
  185. 1095 pr$="x":iftu=2thenpr$="o"
  186. 1100 fc=4:syspp:fc=5:syspp:ke$=n1$:iftu=2thenke$=n2$
  187. 1105 iftu=1thenprintl1$tab(11)"[216] gets the square.":gosub1780
  188. 1110 iftu=2thenprintl1$tab(11)"[207] gets the square.":gosub1770
  189. 1115 forxx=1to1000:next
  190. 1120 goto1145
  191. 1125 b(g)=tu
  192. 1130 printl1$"  [217]ou did good to disagree with that."
  193. 1135 print" [212]he correct answer is..."
  194. 1140 print" "a$(r(nn)*4+1):fore=1to2500:next:gosub1060:goto1095
  195. 1145 k1=tu:k2=tu:k3=tu:gosub1625:ifwi=9thengosub1370:goto1435
  196. 1150 gosub1670:ifwi=8orwi=7thengosub1370:goto1435
  197. 1155 iftu=1thentu=2:goto1165
  198. 1160 tu=1
  199. 1165 printl1$"[145]":goto800
  200. 1170 print"  "n2$", pick a square for your [207]. ":nn=nn+1:k1=2:k2=2:k3=0
  201. 1175 fore=1to3000:next
  202. 1180 ifb(1)=k1andb(2)=k2andb(3)=k3theng=3:goto1310
  203. 1185 ifb(1)=k1andb(2)=k3andb(3)=k2theng=2:goto1310
  204. 1190 ifb(1)=k3andb(2)=k1andb(3)=k2theng=1:goto1310
  205. 1195 ifb(4)=k1andb(5)=k2andb(6)=k3theng=6:goto1310
  206. 1200 ifb(4)=k1andb(5)=k3andb(6)=k2theng=5:goto1310
  207. 1205 ifb(4)=k3andb(5)=k2andb(6)=k2theng=4:goto1310
  208. 1210 ifb(7)=k1andb(8)=k2andb(9)=k3theng=9:goto1310
  209. 1215 ifb(7)=k1andb(8)=k3andb(9)=k2theng=8:goto1310
  210. 1220 ifb(7)=k3andb(8)=k1andb(9)=k2theng=7:goto1310
  211. 1225 ifb(1)=k1andb(4)=k2andb(7)=k3theng=7:goto1310
  212. 1230 ifb(1)=k1andb(4)=k3andb(7)=k2theng=4:goto1310
  213. 1235 ifb(1)=k3andb(4)=k1andb(7)=k2theng=1:goto1310
  214. 1240 ifb(2)=k1andb(5)=k2andb(8)=k3theng=8:goto1310
  215. 1245 ifb(2)=k1andb(5)=k3andb(8)=k2theng=5:goto1310
  216. 1250 ifb(2)=k3andb(5)=k1andb(8)=k2theng=2:goto1310
  217. 1255 ifb(3)=k1andb(6)=k2andb(9)=k3theng=9:goto1310
  218. 1260 ifb(3)=k1andb(6)=k3andb(9)=k2theng=6:goto1310
  219. 1265 ifb(3)=k3andb(6)=k1andb(9)=k2theng=3:goto1310
  220. 1270 ifb(1)=k1andb(5)=k2andb(9)=k3theng=9:goto1310
  221. 1275 ifb(1)=k1andb(5)=k3andb(9)=k2theng=5:goto1310
  222. 1280 ifb(1)=k3andb(5)=k2andb(9)=k2theng=1:goto1310
  223. 1285 ifb(3)=k1andb(5)=k2andb(7)=k3theng=7:goto1310
  224. 1290 ifb(3)=k1andb(5)=k3andb(7)=k2theng=5:goto1310
  225. 1295 ifb(3)=k3andb(5)=k1andb(7)=k2theng=3:goto1310
  226. 1300 ifk1=2thenk1=1:k2=1:goto1180
  227. 1305 g=int(rnd(1)*9)+1:ifb(g)<>0then1305
  228. 1310 printl1$tab(15)"[201]'ll pick"g:fore=1to3000:next
  229. 1315 goto840
  230. 1320 fore=1to3000:next:rg=10
  231. 1325 ifn2$="[208]at"thenrg=5
  232. 1330 ifn2$="[211]hanna"thenrg=3
  233. 1335 x=int(rnd(1)*rg):ifx<>1then1350
  234. 1340 e$="d":ifmn=0thene$="a"
  235. 1345 goto1355
  236. 1350 sd=int(rnd(1)*2):e$="a":ifsd=1thene$="d"
  237. 1355 ife$="a"thenprintl1$tab(16)"[201] agree.":goto1365
  238. 1360 printl1$tab(15)"[201] disagree."
  239. 1365 goto885
  240. 1370 be=54272
  241. 1375 pokebe+5,85:pokebe+6,85:pokebe+12,85:pokebe+13,85
  242. 1380 pokebe+24,15
  243. 1385 pokebe+4,33:pokebe+11,17
  244. 1390 pokebe+1,25:pokebe,30:pokebe+8,18:pokebe+7,209:fort=1to100:next
  245. 1395 pokebe+1,33:pokebe,135:pokebe+8,25:pokebe+7,30:fort=1to100:next
  246. 1400 pokebe+1,42:pokebe,62:pokebe+8,31:pokebe+7,165:fort=1to100:next
  247. 1405 pokebe+1,50:pokebe,60:pokebe+8,37:pokebe+7,162:fort=1to100:next
  248. 1410 fort=1to200:next
  249. 1415 pokebe+1,42:pokebe,62:pokebe+8,31:pokebe+7,165:fort=1to100:next
  250. 1420 pokebe+1,50:pokebe,60:pokebe+8,37:pokebe+7,162:fort=1to100:next
  251. 1425 fort=1to200:next:fort=15to0step-1:pokebe+24,t:next
  252. 1430 fort=54272to54272+24:poket,0:next:return
  253. 1435 tt=tt+1:forx=1to9:b(x)=0:next:ifwi=9then1465
  254. 1440 printl1$"[212]he winner is[144] ";:gosub1370:forx=1to500:next
  255. 1445 ifwi=8thenprintn2$:wh=2:gosub1770
  256. 1450 ifwi=7thenprintn1$:wh=1:gosub1780
  257. 1455 gosub1370
  258. 1460 printtab(8)"with the most squares!!":gosub1370:goto1530
  259. 1465 printl1$"  [199]ood going [144]";
  260. 1470 iftu=1thenprintn1$:wh=1:gosub1780
  261. 1475 iftu=2thenprintn2$:wh=2:gosub1770
  262. 1480 forx=1to2000:next:gosub1370:printl1$tab(7)"[217]ou win with 3 in a row at:"
  263. 1485 ifq1=1thenq1$="1-2-3"
  264. 1490 ifq1=2thenq1$="4-5-6"
  265. 1495 ifq1=3thenq1$="7-8-9"
  266. 1500 ifq1=4thenq1$="1-5-9"
  267. 1505 ifq1=5thenq1$="3-5-7"
  268. 1510 ifq1=6thenq1$="1-4-7"
  269. 1515 ifq1=7thenq1$="2-5-8"
  270. 1520 ifq1=8thenq1$="3-6-9"
  271. 1525 forx=1to2000:next:printtab(14)"[211][209][213][193][210][197][211] "q1$:gosub1370
  272. 1530 ifwh=2then1580
  273. 1535 rem
  274. 1540 m1=m1+500
  275. 1545 ifm1=1000orm1=1500then1790
  276. 1550 printtab(20-((15+len(n1$))/2))"[217]ou have $"m1"[157],"n1$
  277. 1555 printtab(10)"[199]et ready for round"tt;
  278. 1560 forx=1to2500:next:rd=r1:fc=2:syspp
  279. 1565 tx=1:ty=105:pr$="$"+str$(m1):fc=4:syspp:fc=5:syspp
  280. 1570 tx=35:pr$="$"+str$(m2):fc=4:syspp:fc=5:syspp:iftt=3then795
  281. 1575 tu=2:printl1$tab(8)"[207].[203]., player 2 you start":goto800
  282. 1580 rem
  283. 1585 m2=m2+500
  284. 1590 ifm2=1000orm2=1500then1790
  285. 1595 print" [217]ou have $"m2"[157], "n2$
  286. 1600 printtab(10)"[199]et ready for round"tt;
  287. 1605 forx=1to3000:next:rd=r1:fc=2:syspp
  288. 1610 ty=105:tx=35:pr$="$"+str$(m2):fc=4:syspp:fc=5:syspp
  289. 1615 tx=1:pr$="$"+str$(m1):fc=4:syspp:fc=5:syspp:iftt=3then795
  290. 1620 tu=2:printl1$tab(8)"[207].[203]., player 2 you start":goto800
  291. 1625 ifb(1)=k1andb(2)=k2andb(3)=k3thenwi=9:q1=1:return
  292. 1630 ifb(4)=k1andb(5)=k2andb(6)=k3thenwi=9:q1=2:return
  293. 1635 ifb(7)=k1andb(8)=k2andb(9)=k3thenwi=9:q1=3:return
  294. 1640 ifb(1)=k1andb(5)=k2andb(9)=k3thenwi=9:q1=4:return
  295. 1645 ifb(3)=k1andb(5)=k2andb(7)=k3thenwi=9:q1=5:return
  296. 1650 ifb(1)=k1andb(4)=k2andb(7)=k3thenwi=9:q1=6:return
  297. 1655 ifb(2)=k1andb(5)=k2andb(8)=k3thenwi=9:q1=7:return
  298. 1660 ifb(3)=k1andb(6)=k2andb(9)=k3thenwi=9:q1=8:return
  299. 1665 wi=1:return
  300. 1670 ifb(1)<>0andb(2)<>0andb(3)<>0andb(4)<>0then1680
  301. 1675 wi=1:return
  302. 1680 ifb(5)<>0andb(6)<>0andb(7)<>0andb(8)<>0andb(9)<>0then1690
  303. 1685 wi=1:return
  304. 1690 j=0:l=0:fore=1to9
  305. 1695 ifb(e)=1thenj=j+1
  306. 1700 ifb(e)=2thenl=l+1
  307. 1705 next
  308. 1710 wi=7:ifl>jthenwi=8
  309. 1715 return
  310. 1720 forl=54272to54295:pokel,0:next:poke54296,15
  311. 1725 poke54277,8:poke54278,255:poke54276,21:f2=255:forz=1to10:poke54287,f2
  312. 1730 forf1=250to0step-20:poke54273,f1:f2=f2-.4:nextf1:nextz:poke54278,15:return
  313. 1735 forl=54272to54295:pokel,0:next:poke54296,15
  314. 1740 poke54277,8:poke54278,255:poke54276,21:poke54287,40:forz=1to7
  315. 1745 forf1=150to0step-6:poke54273,f1:nextf1:forf1=0to255step20:poke54273,f1
  316. 1750 nextf1:nextz:poke54278,15
  317. 1755 forl=54272to54295:pokel,0:next:return
  318. 1760 s=54272:forl=0to24:pokes+l,0:next:pokes+1,130:pokes+5,9:pokes+15,30
  319. 1765 pokes+24,15:pokes+4,21:fort=1to400:next:pokes+4,20:return
  320. 1770 ifb3$="f"thenpoke62491,44:poke62555,31:return
  321. 1775 poke62490,1:poke62555,31:return
  322. 1780 ifb3$="f"thenpoke62491,110:poke62555,40:return
  323. 1785 poke62490,83:poke62555,40:return
  324. 1790 ifm1>m2thenme$=n1$:am=m1:goto1800
  325. 1795 me$=n2$:am=m2
  326. 1800 printl1$" [215]ell "me$",":print" [201]t looks like you won the game with a"
  327. 1805 print" total of $"am;:forx=1to1500:gosub1370:forx=1to1500:gosub1370
  328. 1810 printl1$" [204]et's go on and try to win a new [195][193][210]!!":forx=1to2500:next
  329. 1815 rd=r2:fc=2:syspp
  330. 1820 printl1$tab(9)"[208]ick a key, then a car."
  331. 1825 print" [201]f the key fits the car you pick, you":printtab(16)"win it!!"
  332. 1830 forx=1to6000:next
  333. 1835 poke198,0:printl1$"[156][208]ick a key  (1-5)[144]":ifa4=1andam=m2thengoto1935
  334. 1840 getk$
  335. 1845 ifk$<"1"ork$>"5"then1840
  336. 1850 poke198,0:printl1$"[208]ick a car  (1-5)[144]":ifa4=1andam=m2thengoto1945
  337. 1855 getc$
  338. 1860 ifc$<"1"ork$>"5"then1855
  339. 1865 printl1$"[144][207].[203]., let's try key "k$" in car "c$"..."
  340. 1870 forx=1to9:gosub1760:fory=1to300:nexty:nextx:ifint(rnd(1)*9)=5then1890
  341. 1875 gosub1720:printl1$"    [211]orry, that's not the right key."
  342. 1880 print" [211]o you don't get the car but you still"
  343. 1885 printtab(9)"have $"am"in cash!!!":goto1910
  344. 1890 gosub1735:printl1$tab(14)"[212][200][193][212]'[211] [201][212]!!!":printtab(10)"[217]ou won the new car."
  345. 1895 forx=1to3000:next
  346. 1900 printl1$"     [212]hat gives you $"am"in cash.":printtab(12)"[208][204][213][211] the new car."
  347. 1905 print"  [206]ot bad, "me$".";
  348. 1910 forx=1to7000:next:printl1$tab(15)"[199][193][205][197] [207][214][197][210]"
  349. 1915 printtab(11)"[208]lay again?  ([217]/[206])":poke198,0
  350. 1920 getg$:ifg$=""then1920
  351. 1925 if g$<>"n"then rd=r1:fc=2:syspp:goto670
  352. 1930 goto 2600
  353. 1935 forx=1to2000:next:y=int(rnd(1)*5)+1:print"[201]'ll pick number"y
  354. 1940 forx=1to2000:next:k$=str$(y):goto1850
  355. 1945 y=ti:forx=1to2000:next:y=int(rnd(1)*5)+1:print"[201]'ll pick number"y
  356. 1950 forx=1to2000:next:c$=str$(y):goto1865
  357. 2000 t$="":print"[164]";
  358. 2010 get a$:if a$="" then 2010
  359. 2020 a=asc(a$)
  360. 2025 if a=13 then print"[157] ":return
  361. 2026 if a=20 and t$="" then 2010
  362. 2027 if a=20 then print"[157][157]  [157][157][164]";:t$=left$(t$,len(t$)-1):goto 2010
  363. 2028 if a=140 then 2600
  364. 2030 if a<32 or a>218 then 2010
  365. 2040 if a>90 and a<193 then 2010
  366. 2050 if a=34 then 2010
  367. 2060 if len(t$)=35 then 2010
  368. 2070 t$=t$+a$
  369. 2080 print"[157] [157]"a$"[164]";
  370. 2090 goto 2010
  371. 2500 poke53280,0:poke53281,0
  372. 2510 print"[147]";
  373. 2530 print" [208]ublished by [211]oftdisk [208]ublishing, [201]nc."
  374. 2540 print"    [196]o you need instructions? ([217]/[206])";
  375. 2550 return
  376. 2600 fc=8:sys40704
  377. 2605 poke 646,peek(53281)
  378. 2610 print"[147]"
  379. 2620 load"0:upt.reboot",8
  380.