home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 37 / 037.d81 / 1000 miler (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  11.0 KB  |  391 lines
  1. 45 dimb$(106),c$(106),a$(7,2),s%(8,2),h%(8,2)
  2. 50 gosub2350
  3. 60 poke249,224:poke250,204:poke251,0:poke252,64:poke253,0:poke254,0
  4. 70 poke255,0:sys51462:sys51459
  5. 80 :
  6. 90 te=50759:sp$="[160]                                    ":s=54272
  7. 92 forx=stos+24:pokex,.:next:pokes+24,15
  8. 100 p1=1:p2=2:co=1:zy=1
  9. 110 :
  10. 120 s%(5,1)=1:s%(5,2)=1
  11. 130 fori=1to106:readb$(i):next:zz=106:gosub1150:poke53280,6
  12. 140 sh=48:xp=2:yp=0:gosub2220
  13. 150 syste,"200",267,25:syste,"200",267,137
  14. 160 syste,"0000",136,57:syste,"0000",136,169
  15. 170 fori=1to2:xx(i)=93:ml(i)=0
  16. 180 sl(i)=200:h%(2,i)=1:p(i)=1:m$(i)="000"
  17. 190 forl=1to6:a$(l,i)=c$(co):co=co+1:next:forl=1to6
  18. 200 ifleft$(a$(l,i),1)<>"3"then230
  19. 210 lf=val(mid$(a$(l,i),2,1)):s%(lf,i)=1:gosub1940
  20. 220 a$(l,i)=c$(co):co=co+1:goto200
  21. 230 next:p1=2
  22. 240 sh=46:xp=2:yp=0:gosub2220:sh=49:yp=14:gosub2220
  23. 250 next
  24. 260 p1=1
  25. 270 sh=47:xp=2:yp=14:gosub2220:sh=48:yp=0:gosub2220
  26. 280 a$(7,p1)=c$(co):gosub1130:ifleft$(a$(7,p1),1)<>"3"then300
  27. 290 lf=val(mid$(a$(7,p1),2,1)):s%(lf,p1)=1:l=6:gosub1940:goto280
  28. 300 ifp1=2andnp=1then550
  29. 310 ifnp=2thensyste,"hit any key to view cards",7*8,104:poke198,0:wait198,1:poke198,0
  30. 320 syste,sp$,16,104:gosub1790
  31. 330 syste,"(d)iscard  (p)lay card  (q)uit",4*8,104
  32. 340 gosub2190:syste,sp$,16,104
  33. 350 ifx$<>"p"andx$<>"q"andx$<>"d"then330
  34. 360 ifx$="q"then2080
  35. 370 syste,"which one (1-7) or 0 to end",4*8,104
  36. 380 poke198,0:wait198,1:gety$:syste,sp$,16,104
  37. 390 y=val(y$):remgetoffwhichone?
  38. 400 ify>7ory<1then330
  39. 410 gosub1820:ifx$<>"d"then430
  40. 420 b$(zy)=a$(y,p1):zy=zy+1:gosub700:goto650
  41. 430 le$=left$(a$(y,p1),1):lf=val(mid$(a$(y,p1),2,1))
  42. 440 fl=0:ifle$="4"andp(p1)=0andlf*25<=sl(p1)andml(p1)+lf*25<1001thenfl=1
  43. 450 iffl=1thenforl=1tolf:gosub1850:next:gosub700:goto650
  44. 460 fl=0:ifle$="1"andp(p2)=0ands%(lf,p2)=0thenfl=1
  45. 470 ifle$="1"andp(p2)=0ands%(2,p2)=0andlf=5andsl(p2)=200thenfl=1
  46. 480 iffl=1thenh%(lf,p2)=1:onlfgosub1470,1380,1550,1300,1630
  47. 490 iffl=1thengosub700:goto650
  48. 500 fl=0:ifle$="2"andh%(lf,p1)=1andlf<5thenfl=1
  49. 510 ifle$="2"andlf=5andh%(5,p1)=1andp(p1)=0thenfl=1
  50. 520 iffl=1thenh%(lf,p1)=0:onlfgosub1510,1420,1590,1340,1710
  51. 530 iffl=1thengosub700:goto650
  52. 540 fora=1to20:poke54296,.:poke54296,15:next:goto320
  53. 550 q=0:ifml(p2)-ml(p1)>299thengosub720:gosub800:gosub890:goto970
  54. 560 fl=0:ifp(p1)=1andml(p2)<701andml(p2)-ml(p1)<210thenfl=1
  55. 570 iffl=1thengosub890:gosub720:goto970
  56. 580 fl=0:ifp(p1)=1and(ml(p2)>700orml(p2)-ml(p1)>200)thenfl=1
  57. 590 iffl=1thengosub720:gosub890:goto970
  58. 600 fl=0:ifsl(p1)=75andml(p2)<801andml(p1)-ml(p2)>150thenfl=1
  59. 610 iffl=1thengosub890:gosub800:gosub720:goto970
  60. 620 fl=0:ifsl(p1)=75andml(p2)-ml(p1)>100thenfl=1
  61. 630 iffl=1thengosub720:gosub800:gosub890:goto970
  62. 640 gosub800:gosub720:gosub890:goto970
  63. 650 ifml(p1)=1000then2290:remwinner
  64. 660 ifp1=1thenp1=2:p2=1:sh=46:xp=2:yp=0:gosub2220:sh=49:yp=14:gosub2220:goto280
  65. 670 p1=1:p2=2
  66. 680 sh=47:xp=2:yp=14:gosub2220:sh=48:yp=0:gosub2220
  67. 690 goto280
  68. 700 a$(y,p1)=a$(7,p1):sh=40:xp=32:yp=11:gosub2220
  69. 710 return
  70. 720 ifp(p2)=1orq=1thenreturn
  71. 730 fory=1to7
  72. 740 lf=val(mid$(a$(y,p1),2,1)):fl=0
  73. 750 ifleft$(a$(y,p1),1)="1"ands%(lf,p2)=0thenfl=1
  74. 760 ifleft$(a$(y,p1),1)="1"andlf=5andsl(p2)=200ands%(2,p2)=0thenfl=1
  75. 770 iffl=1thenh%(lf,p2)=1:onlfgosub1470,1380,1550,1300,1630
  76. 780 iffl=1thenq=1:return
  77. 790 next:return
  78. 800 ifp(p1)=1orq=1thenreturn
  79. 810 hm=0:fory=1to7
  80. 820 lf=val(mid$(a$(y,p1),2,1))
  81. 830 ifleft$(a$(y,p1),1)="4"andlf*25<=sl(p1)then850
  82. 840 next:goto870
  83. 850 iflf*25>hm*25andml(p1)+lf*25<1001thenhm=lf:hc=y
  84. 860 goto840
  85. 870 ifhm=0thenreturn
  86. 880 forl=1tohm:gosub1850:next:y=hc:q=1:return
  87. 890 ifq=1thenreturn
  88. 900 fory=1to7
  89. 910 lf=val(mid$(a$(y,p1),2,1)):fl=0
  90. 920 ifleft$(a$(y,p1),1)="2"andh%(lf,p1)=1andlf<5thenfl=1
  91. 930 ifleft$(a$(y,p1),1)="2"andlf=5andh%(5,p1)=1andp(p1)=0thenfl=1
  92. 940 iffl=1thenh%(lf,p1)=0:onlfgosub1510,1420,1590,1340,1710
  93. 950 iffl=1thenq=1:return
  94. 960 next:return
  95. 970 ifq=1then1120
  96. 980 fory=1to7:lf=val(mid$(a$(y,p1),2,1))
  97. 990 ifleft$(a$(y,p1),1)="2"ands%(lf,p1)=1then1110
  98. 1000 next:fory=1to7:lf=val(mid$(a$(y,p1),2,1))
  99. 1010 ifleft$(a$(y,p1),1)="1"ands%(lf,p2)=1then1110
  100. 1020 next:fory=1to7:forx=1to7
  101. 1030 ifa$(y,p1)=a$(x,p1)thennc=nc+1
  102. 1040 next:ifnc>2thennc=0:goto1110
  103. 1050 nc=0:next:nc=0:fory=1to7
  104. 1060 ifleft$(a$(y,p1),1)="4"andval(mid$(a$(y,p1),2,1))*25<101then1110
  105. 1070 next:fory=1to7:forx=1to7
  106. 1080 ifa$(y,p1)=a$(x,p1)thennc=nc+1
  107. 1090 next:ifnc>1thennc=0:goto1110
  108. 1100 nc=0:next:nc=0:y=int(rnd(1)*7)+1
  109. 1110 b$(zy)=a$(y,p1):zy=zy+1
  110. 1120 gosub700:goto650
  111. 1130 co=co+1:ifco<>zz+1thenreturn
  112. 1140 zz=zy-1:zy=1:co=1
  113. 1150 syste,"shuffling the deck...",72,104
  114. 1152 fori=1tozz:r=int(rnd(1)*zz)+1
  115. 1160 :
  116. 1170 ifb$(r)<>"1"thenc$(i)=b$(r):b$(r)="1":nexti:syste,sp$,16,104:return
  117. 1180 r=r+1:ifr=zz+1thenr=1
  118. 1190 goto1170
  119. 1200 data4841,1427,2331,3136,2133,4343,4442,1230
  120. 1210 data1128,2235,2534,4442,4343,2235,1529,4244,4145,1326,4343,4442,2534
  121. 1220 data2331,1529,4145,4244,4244,4841,2133,1230,3338,2331,4343,4442,2432
  122. 1230 data1529,2432,2331,2235,4244,4442,4343,4442,4145,4244,1529,1128
  123. 1240 data2534,3237,1326,2235,4343,4841,4442,4145,1230,4244,2432,3439
  124. 1250 data2534,2235,1128,4442,4343,2534,2133,4145,4244,4442,4343,2432
  125. 1260 data2534,2331,2235,1230,1427,2235,1326,2235,2235,4343,4442,2331
  126. 1270 data2235,2133,1230,4145,4841,4442,4343,2133,2235
  127. 1280 data4145,2235,2432,2133,4244,4145,4244,4442,4145,1427,2235,2432
  128. 1290 data4244,4145,2235
  129. 1300 rem******flattire******
  130. 1310 gosub1380:p(p2)=1
  131. 1320 xp=3:yp=3+(p2-1)*14:goto10000
  132. 1330 :
  133. 1340 rem*****fixtheflat*****
  134. 1350 gosub1420:p(p1)=0
  135. 1360 xp=3:yp=3+(p1-1)*14:goto10035
  136. 1370 :
  137. 1380 rem****redlight*****
  138. 1390 p(p2)=1:forx=stos+24:pokex,0:next:pokes+24,15:p(p2)=1:gosub10190
  139. 1400 xp=30:yp=2+(p2-1)*14:sh=1:gosub2220
  140. 1405 fordl=1to200:next
  141. 1410 return
  142. 1420 rem****grnlight*****
  143. 1422 foraa=1to4:ifh%(aa,p1)<>0thenreturn
  144. 1423 next
  145. 1430 p(p1)=0:forx=stos+24:pokex,0:next:pokes+24,15:p(p1)=0:gosub10205
  146. 1440 xp=30:yp=2+(p1-1)*14:sh=2:ifsl(p1)=75thensh=50
  147. 1450 gosub2220
  148. 1455 fordl=1to200:next
  149. 1460 return
  150. 1470 rem****accident****
  151. 1480 gosub1380:p(p2)=1
  152. 1490 xp=8:yp=5+(p2-1)*14:goto10125
  153. 1500 :
  154. 1510 rem*****repairs*****
  155. 1520 gosub1420:p(p1)=0
  156. 1530 xp=8:yp=5+(p1-1)*14:goto10160
  157. 1540 :
  158. 1550 rem****nogas*****
  159. 1560 gosub1380:p(p2)=1
  160. 1570 xp=8:yp=2+(p2-1)*14:goto10055
  161. 1580 :
  162. 1590 rem*****fillup*****
  163. 1600 gosub1420:p(p1)=0
  164. 1610 xp=8:yp=2+(p1-1)*14:goto10090
  165. 1620 :
  166. 1630 rem*****speedlimit****
  167. 1640 sl(p2)=75:sh=50:xp=30:yp=2+(p2-1)*14:gosub2220:pokes+5,0:pokes+6,0
  168. 1645 xp=267:yp=25+(p2-1)*112
  169. 1650 forsl=200to75step-5:sl$=mid$(str$(sl),2)
  170. 1655 pokes+1,sl:pokes+4,17:pokes+4,0
  171. 1660 iflen(sl$)<3thensl$=" "+sl$:goto1660
  172. 1670 syste,sl$,xp,yp:syste,"   ",xp,yp
  173. 1680 next
  174. 1690 syste," 75",xp,yp
  175. 1700 return
  176. 1710 rem****endlimit*****
  177. 1720 sl(p1)=200:sh=2:xp=30:yp=2+(p1-1)*14:gosub2220:pokes+5,0:pokes+6,0
  178. 1725 xp=267:yp=25+(p1-1)*112
  179. 1730 forsl=75to200step5:sl$=mid$(str$(sl),2)
  180. 1732 pokes+1,sl:pokes+4,17:pokes+4,0
  181. 1740 iflen(sl$)<3thensl$=" "+sl$:goto1740
  182. 1750 syste,sl$,xp,yp:syste,"   ",xp,yp
  183. 1760 next
  184. 1770 syste,"200",xp,yp:sh=2:xp=30:yp=2+(p1-1)*14:gosub2220
  185. 1780 return
  186. 1790 rem*****drawcardshere*****
  187. 1800 xp=2:yp=11:fori=1to7:sh=val(right$(a$(i,p1),2)):gosub2220:xp=xp+5:next
  188. 1810 return
  189. 1820 rem*****getcardsoff*****
  190. 1830 xp=2:yp=11:fori=1to7:sh=40:gosub2220:xp=xp+5:next
  191. 1840 return
  192. 1850 rem*****mileagebox*****
  193. 1860 ml(p1)=ml(p1)+25:m$(p1)=mid$(str$(ml(p1)),2)
  194. 1870 iflen(m$(p1))<=3thenm$(p1)="0"+m$(p1):goto1870
  195. 1880 xp=16:yp=0+(p1-1)*14:t=20:ifrnd(1)<.1thent=57
  196. 1882 ifml(p1)=1000thent=51
  197. 1884 forx=stos+24:pokex,.:next
  198. 1890 forsh=ttot+5:poke54296,0:poke54296,15
  199. 1900 gosub2220:ift=51thenfordl=1to10:next
  200. 1910 next:ift=51thenfordl=1to1000:next:goto1930
  201. 1920 sh=20:gosub2220:syste,m$(p1),136,(p1-1)*112+57
  202. 1930 return
  203. 1940 xp=l*5+2:yp=11:fort=1to5:sh=40:gosub2220:sh=lf+35:gosub2220:next
  204. 1950 rem****blinkcard****
  205. 1960 iflf=1thensh=16:xp=3:yp=9+(p1-1)*14:gosub2220
  206. 1970 iflf=1thenifh%(1,p1)=1thenh%(1,p1)=0:gosub1510:goto2050
  207. 1975 rem    iflf=2thensys51459:print"[147]"lf,h%(2,p1),h%(5,p1):stop
  208. 1980 iflf=2thensh=17:xp=10:yp=9+(p1-1)*14:gosub2220
  209. 1990 iflf=2thenifh%(2,p1)=1thenh%(2,p1)=0:gosub1420
  210. 2000 iflf=2andh%(5,p1)=1thenh%(5,p1)=0:gosub1710:goto2050
  211. 2010 iflf=3thensh=18:xp=19:yp=9+(p1-1)*14:gosub2220
  212. 2020 iflf=3thenifh%(3,p1)=1thenh%(3,p1)=0:gosub1590:goto2050
  213. 2030 iflf=4thensh=19:xp=26:yp=9+(p1-1)*14:gosub2220
  214. 2040 iflf=4thenifh%(4,p1)=1thenh%(4,p1)=0:gosub1340:goto2050
  215. 2050 fort=1to50:next
  216. 2060 return
  217. 2070 :
  218. 2080 syste,"are you sure you want to quit [y/n]",16,104
  219. 2082 poke198,0:wait198,1:getx$
  220. 2090 ifx$<>"[217]"andx$<>"y"thensyste,sp$,16,104:goto320
  221. 2095 sys51459:print"[147]"
  222. 2100 ifml(p1)>ml(p2)thenprintspc(9)"[208]layer"p1"was winning.":goto2130
  223. 2110 ifml(p2)>ml(p1)thenprintspc(9)"[208]layer"p2"was winning.":goto2130
  224. 2120 printspc(8)"[194]oth players were tied."
  225. 2130 print""spc(10)"< [208]ress any key >"
  226. 2132 poke198,0:wait198,1:poke198,0
  227. 2134 restore:run
  228. 2160 i$="[193]"
  229. 2170 diml$(6,24)
  230. 2180 reminstructions
  231. 2190 poke198,0:wait198,1:getx$
  232. 2200 ifx$>"[192]"thenx$=chr$(asc(x$)-128)
  233. 2210 return
  234. 2220 remplotshp#shatxp,yp
  235. 2230 poke249,224:poke250,204
  236. 2240 poke251,0:poke252,64
  237. 2250 poke253,xp:poke254,yp
  238. 2260 poke255,sh:sys51462:ag=3.34
  239. 2270 return
  240. 2280 :
  241. 2290 remwehadawinner
  242. 2300 print"[147]":sys51459:sh=63:xp=0:yp=0:gosub2220:sys51459
  243. 2310 poke53280,6:gosub3000:print"[147]"
  244. 2320 sys51459:sys51459
  245. 2330 restore
  246. 2340 run
  247. 2350 remtitlescreen&options
  248. 2360 poke53281,1:poke53280,6
  249. 2370 print"[147]":print"[146]         [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  250. 2380 print"         {$7d}Loadstar Presents{$7d}[144] "
  251. 2390 print"         [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189][144] "
  252. 2400 print"                             "
  253. 2410 print
  254. 2420 print"  [154]                                   "
  255. 2430 print"  [160]         [176]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[174][154]           [144] "
  256. 2440 print"  [154]          {$7d} 1000 Miler {$7d} [154]          [144] "
  257. 2450 print"  [154]          [173]{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}[189] [154]          [144] "
  258. 2460 print"  [154]                         [154]          [144] "
  259. 2470 print"  [154]                                   [144] "
  260. 2480 print"  [154]     Written by Karen Middaugh     [144] "
  261. 2490 print"  [154]  [195]-64 conversion by [193]lan [199]ardner  [144] "
  262. 2500 print"  [154]                                   [144] "
  263. 2510 print"  [154]            (c) 1987               [144] "
  264. 2520 print"  [154]                                   [144] "
  265. 2530 print"                                      "
  266. 2540 print
  267. 2550 print"        [1] ==> Instructions"
  268. 2560 print"        [2] ==> Play Game"
  269. 2570 print"        [3] ==> Return to Loadstar"
  270. 2580 print
  271. 2590 print"        Make your choice..."
  272. 2600 print"";
  273. 2610 :
  274. 2620 poke198,0:wait198,1:getk$
  275. 2630 ifk$<>"1"andk$<>"2"andk$<>"3"then2620
  276. 2640 ifk$="3"then2900
  277. 2650 ifk$="1"then2800
  278. 2660 print"        [200]ow many players (1-2)?        "
  279. 2670 poke198,0:wait198,1:getk$
  280. 2680 ifk$<>"1"andk$<>"2"then2660
  281. 2690 np=val(k$)
  282. 2700 return
  283. 2800 reminstr
  284. 2810 open2,8,2,"1000miles.instr"
  285. 2820 print"[147]"spc(9)"** [212]housand [205]iler **[144]"
  286. 2830 get#2,a$:ifa$<>"\"anda$<>"#"thenprinta$;:goto2830
  287. 2832 print""spc(13)"<press a key>"
  288. 2833 poke198,0:wait198,1:poke198,0
  289. 2835 ifa$="\"then2820
  290. 2840 close2
  291. 2860 goto2350
  292. 2900 remreturntols
  293. 2901 poke56,160:clr
  294. 2910 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  295. 2912 ifer<>63thenprint"[147]":end
  296. 2914 load"hello connect",8
  297. 2915 end
  298. 3000 remanimatewinsequence
  299. 3010 v=53248
  300. 3020 xp=15:yp=198:pokev+21,0:pokev+39,7:pokev+16,1:pokev+29,0:pokev+23,0
  301. 3030 pokev+28,0
  302. 3040 pokev+40,1:poke1016+52224,4
  303. 3050 pokev,4:pokev+1,176
  304. 3070 forx=1to3
  305. 3080 gosub3150:remrun
  306. 3090 gosub3220:remjump
  307. 3100 nextx
  308. 3110 gosub3300:gosub10220
  309. 3120 sys51459:pokev+21,0
  310. 3130 return
  311. 3150 remrun
  312. 3160 i=5:gosub3360:i=6:gosub3360:xp=xp+8
  313. 3170 i=7:gosub3360:poke54296,15:poke54296,0:i=8:gosub3360:xp=xp+8
  314. 3180 i=9:gosub3360:xp=xp+8
  315. 3190 i=10:gosub3360
  316. 3200 return
  317. 3220 remjump
  318. 3230 i=5:gosub3360:xp=xp+8:i=11:gosub3360:i=12:gosub3360:i=13:gosub3360
  319. 3240 xp=xp+8:yp=yp-2:i=13:gosub3360
  320. 3250 i=14:yp=yp-2:gosub3360:i=15:yp=yp-2:gosub3360:xp=xp+8
  321. 3260 i=16:gosub3360:i=17:gosub3360:xp=xp+8
  322. 3270 i=18:gosub3360:i=19:gosub3150
  323. 3280 i=20:gosub3360
  324. 3290 return
  325. 3300 i=3:gosub3360:fordl=1to200:next
  326. 3310 i=2:gosub3360:pokev+1,yp-6:fordl=1to200:next
  327. 3320 i=1:gosub3360:pokev+1,yp-8:fordl=1to200:next
  328. 3330 i=0:gosub3360:pokev+1,yp-10:pokev+16,0:pokev,xp
  329. 3350 return
  330. 3360 remmoveit
  331. 3380 ifpeek(53266)>150then3380
  332. 3390 poke1017+52224,i
  333. 3400 pokev+2,xp:pokev+3,yp
  334. 3410 pokev+21,3
  335. 3420 return
  336. 10000 remflattire
  337. 10005 pokes,.:pokes+1,12:pokes+5,8:pokes+6,8:pokes+4,129:pokes+4,128
  338. 10010 sh=4:gosub2220
  339. 10015 pokes+7,.:pokes+8,128:pokes+12,34:pokes+13,29:pokes+11,129
  340. 10020 fork1=127to48step-1:pokes+8,k1:fork2=200to0step-100:pokes+7,k2:next
  341. 10025 pokes+11,128-(k1>125):next:pokes+4,.:sh=5:gosub2220:pokes+11,.:return
  342. 10030 :
  343. 10035 remsparetire
  344. 10040 pokes+5,66:pokes+6,.:fork1=50to75step2:pokes+1,k1:pokes+4,129:sh=4:gosub2220
  345. 10045 ford=.to100:next:pokes+4,128:next:pokes+4,.:sh=3:gosub2220:return
  346. 10050 :
  347. 10055 remoutofgas
  348. 10060 cc=1:sh=7
  349. 10065 pokes+5,.:pokes+6,.:fork1=200to20step-2:pokes+1,k1:pokes+4,17:pokes+4,.
  350. 10070 cc=cc+1:ifcc=15thencc=1:gosub2220:sh=sh+1
  351. 10075 next
  352. 10080 return
  353. 10085 :
  354. 10090 remgas
  355. 10095 cc=1:sh=11
  356. 10100 pokes+5,.:pokes+6,.:fork1=20to200step2:pokes+1,k1:pokes+4,17:pokes+4,.
  357. 10105 cc=cc+1:ifcc=15thencc=1:gosub2220:sh=sh-1
  358. 10110 next
  359. 10115 return
  360. 10120 :
  361. 10125 remaccident
  362. 10130 :
  363. 10135 pokes+5,9:pokes+6,.:pokes+1,3:pokes+2,.:pokes+3,.:fork2=100to50step-.33
  364. 10140 pokes,k2:pokes+4,81:k2=k2:pokes+4,80:next:x=atn(atn(4)):sh=14:gosub2220
  365. 10142 sh=15:gosub2220
  366. 10145 pokes,.:pokes+1,5:pokes+5,12:pokes+6,12:pokes+4,129
  367. 10150 fordl=.to2000:next:pokes+4,.:return
  368. 10155 :
  369. 10160 remrepairs
  370. 10165 :
  371. 10170 pokes+5,6:pokes+6,6:pokes+14,.:pokes+15,99:pokes,.:pokes+1,55
  372. 10172 sh=14:gosub2200
  373. 10175 fork1=.to250:ifrnd(1)<.1thenpokes+4,19:pokes+4,18
  374. 10180 next:pokes+4,.:fordl=.to200:next:sh=13:gosub2220:return
  375. 10185 :
  376. 10190 remstop
  377. 10195 pokes+5,9:pokes+6,9:pokes,.:pokes+1,32:pokes+4,17:pokes+4,16:return
  378. 10200 :
  379. 10205 remroll
  380. 10210 pokes+5,8:pokes+6,8:pokes,.:pokes+1,64:pokes+4,17:pokes+4,16:return
  381. 10215 :
  382. 10220 remcheer
  383. 10222 forx=stos+24:pokex,.:next:pokes+24,15
  384. 10225 pokes+5,0:pokes+6,252:pokes+11,0:pokes+12,252:pokes+19,0:pokes+20,252
  385. 10230 pokes+4,129:pokes+11,129:pokes+18,129
  386. 10235 pokes+1,100:pokes+8,100:pokes+15,200
  387. 10240 fordl=0to2800:next
  388. 10245 pokes+4,128:pokes+11,128:pokes+18,128:fordl=1to1500:next
  389. 10250 poke54296,0
  390. 10255 return
  391.