home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / hopper (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  11.4 KB  |  456 lines
  1. 1 print"[147]":dimh(15),v(15):poke53280,0:poke53281,6:print"":dima(15)
  2. 2 poke54296,15
  3. 5 z$=""
  4. 10 bl$="                                       "
  5. 16 print"":poke53281,6:print"[147]"
  6. 19 gosub60000
  7. 20 s1$="[176][195][174]"
  8. 30 s2$="[194][194]"
  9. 40 s3$="[173][195][189]"
  10. 50 forx=1to15:readh(x),v(x):next
  11. 53 print"[147]":n=15
  12. 54 forp9=1to15
  13. 55 fory=1tov(p9):print"";:next
  14. 57 fory=1toh(p9):print"";:next:prints1$
  15. 58 fory=1toh(p9):print"";:next:prints2$;"[157][157]";chr$(64+p9)
  16. 59 fory=1toh(p9):print"";:next:prints3$
  17. 60 data 18,1,14,5,22,5,10,9,18,9,26,9,6,13,14,13,22,13,30,13,2,17,10,17,18,17
  18. 61 data 26,17,34,17
  19. 62 print"":next:printz$
  20. 80 print" [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][183][183][183][183][183][183][183][183][183][183][183][183][183]":print
  21. 82 print"              h o p p e r [146]            ":print
  22. 88 print"     << press a key to continue >>"
  23. 98 geta$:ifa$=""then98
  24. 99 rem
  25. 100 :
  26. 200 :
  27. 300 iffl=1then10400
  28. 400 goto9800
  29. 500 return
  30. 600 :
  31. 700 return
  32. 800 return
  33. 900 return
  34. 1000 return
  35. 1100 return
  36. 1105 :
  37. 1110 gosub800
  38. 1115 fori=1to100
  39. 1120 next
  40. 1125 gosub800
  41. 1130 n=n-1
  42. 1135 return
  43. 1200 gosub57000
  44. 1201 ifx1=1thenprint"";:goto1205
  45. 1202 print"[144]":print"":forq1=1tov(x1)-2:print"";:next
  46. 1205 forq1=1toh(x1):print"";:next:print"[144]";s1$
  47. 1207 forq1=1toh(x1):print"";:next:prints2$;"[157][157]";"";chr$(64+x1);"[144]"
  48. 1209 forq1=1toh(x1):print"";:next:prints3$
  49. 1210 print"":gosub57055
  50. 1215 ify1=1thenprint"";:goto1220
  51. 1217 print"":print"":forq1=1tov(y1)-2:print"";:next
  52. 1220 forq1=1toh(y1):print"";:next:print"";s1$
  53. 1225 forq1=1toh(y1):print"";:next:prints2$;"[157][157]";chr$(64+y1)
  54. 1230 forq1=1toh(y1):print"";:next:prints3$
  55. 1240 print"":gosub57060
  56. 1245 ifbl=1thenprint"";:goto1260
  57. 1247 print"[144]":print"":forq1=1tov(bl)-2:print"";:next
  58. 1260 forq1=1toh(bl):print"";:next:prints1$
  59. 1265 forq1=1toh(bl):print"";:next:prints2$;"[157][157]";"";chr$(64+bl);"[144]"
  60. 1270 forq1=1toh(bl):print"";:next:prints3$
  61. 1280 print""
  62. 1300 gosub1000:return
  63. 1400 ifc$="a"thena(1)=0:bl=1:return
  64. 1500 ifc$="b"thena(2)=0:bl=2:return
  65. 1600 ifc$="c"thena(3)=0:bl=3:return
  66. 1700 ifc$="d"thena(4)=0:bl=4:return
  67. 1800 ifc$="e"thena(5)=0:bl=5:return
  68. 1900 ifc$="f"thena(6)=0:bl=6:return
  69. 2000 ifc$="g"thena(7)=0:bl=7:return
  70. 2100 ifc$="h"thena(8)=0:bl=8:return
  71. 2200 ifc$="i"thena(9)=0:bl=9:return
  72. 2300 ifc$="j"thena(10)=0:bl=10:return
  73. 2400 ifc$="k"thena(11)=0:bl=11:return
  74. 2500 ifc$="l"thena(12)=0:bl=12:return
  75. 2600 ifc$="m"thena(13)=0:bl=13:return
  76. 2700 ifc$="n"thena(14)=0:bl=14:return
  77. 2800 ifc$="o"thena(15)=0:bl=15:return
  78. 2900 c=999:return
  79. 3000 ifa(1)=1and((a(2)=1anda(4)=0)or(a(3)=1anda(6)=0))thena(0)=1:return
  80. 3100 ifa(15)=1and((a(10)=1anda(6)=0)or(a(14)=1anda(13)=0))thena(0)=1:return
  81. 3200 ifa(11)=1and((a(12)=1anda(13)=0)or(a(7)=1anda(4)=0))thena(0)=1:return
  82. 3300 ifa(2)=1and((a(5)=1anda(9)=0)or(a(4)=1anda(7)=0))thena(0)=1:return
  83. 3400 ifa(3)=1and((a(5)=1anda(8)=0)or(a(6)=1anda(10)=0))thena(0)=1:return
  84. 3500 ifa(7)=1and((a(8)=1anda(9)=0)or(a(4)=1anda(2)=0))thena(0)=1:return
  85. 3600 ifa(12)=1and((a(13)=1anda(14)=0)or(a(8)=1anda(5)=0))thena(0)=1:return
  86. 3700 ifa(10)=1and((a(9)=1anda(8)=0)or(a(6)=1anda(3)=0))thena(0)=1:return
  87. 3800 ifa(14)=1and((a(9)=1anda(5)=0)or(a(13)=1anda(12)=0))thena(0)=1:return
  88. 3900 ifa(5)=1and((a(9)=1anda(14)=0)or(a(8)=1anda(12)=0))thena(0)=1:return
  89. 4000 ifa(8)=1and((a(5)=1anda(3)=0)or(a(9)=1anda(10)=0))thena(0)=1:return
  90. 4100 ifa(9)=1and((a(8)=1anda(7)=0)or(a(5)=1anda(3)=0))thena(0)=1:return
  91. 4200 z1=((a(2)=1anda(1)=0) or (a(5)=1 and a(6)=0))
  92. 4202 z2=((a(8)=1and a(13)=0)or (a(7)=1 and a(11)=0))
  93. 4205 ifa(4)=1andz1orz2thena(0)=1:return
  94. 4300 z1=((a(3)=1and a(1)=0) or (a(5)=1 and a(4)=0))
  95. 4302 z2=((a(9)=1and a(13)=0) or a(10)=1and a(15)=0)
  96. 4305 ifa(6)=1andz1orz2thena(0)=1:return
  97. 4400 z1=((a(14)=1and a(15)=0) or (a(12)=1 and a(11)=0))
  98. 4402 z2=((a(8)=1anda(4)=0)or(a(9)=1anda(6)=0))
  99. 4405 ifa(13)=1andz1orz2thena(0)=1:return
  100. 4500 a(0)=0:return
  101. 4600 ifa$<>"a"then4900
  102. 4700 ifb$="d"anda(4)=0anda(2)=1anda(1)=1thenbl=2
  103. 4705 ifb$="d"anda(4)=0anda(2)=1anda(1)=1thena(4)=1:a(2)=0:a(1)=0:return
  104. 4750 :
  105. 4800 ifb$="f"anda(6)=0anda(3)=1anda(1)=1thenbl=3
  106. 4805 ifb$="f"anda(6)=0anda(3)=1anda(1)=1thena(6)=1:a(3)=0:a(1)=0:return
  107. 4850 :
  108. 4900 ifa$<>"b"then5200
  109. 5000 ifb$="i"anda(9)=0anda(5)=1anda(2)=1thenbl=5
  110. 5005 ifb$="i"anda(9)=0anda(5)=1anda(2)=1thena(9)=1:a(5)=0:a(2)=0:d=80:return
  111. 5050 :
  112. 5100 ifb$="g"anda(7)=0anda(4)=1anda(2)=1thenbl=4
  113. 5105 ifb$="g"anda(7)=0anda(4)=1anda(2)=1thena(7)=1:a(4)=0:a(2)=0:return
  114. 5150 :
  115. 5200 ifa$<>"c"then5500
  116. 5300 ifb$="j"anda(10)=0anda(6)=1anda(3)=1thenbl=6
  117. 5305 ifb$="j"anda(10)=0anda(6)=1anda(3)=1thena(6)=0:a(10)=1:a(3)=0:return
  118. 5350 :
  119. 5400 ifb$="h"anda(8)=0anda(5)=1anda(3)=1thenbl=5
  120. 5405 ifb$="h"anda(8)=0anda(5)=1anda(3)=1thena(5)=0:a(8)=1:a(3)=0:return
  121. 5450 :
  122. 5500 ifa$<>"e"then5800
  123. 5600 ifb$="l"anda(12)=0anda(8)=1anda(5)=1thenbl=8
  124. 5605 ifb$="l"anda(12)=0anda(8)=1anda(5)=1thena(8)=0:a(12)=1:a(5)=0:return
  125. 5650 :
  126. 5700 ifb$="n"and a(14)=0anda(9)=1anda(5)=1thenbl=9
  127. 5705 ifb$="n"anda(14)=0anda(9)=1anda(5)=1thena(9)=0:a(14)=1:a(5)=0:return
  128. 5750 :
  129. 5800 ifa$<>"g"then6100
  130. 5900 ifb$="b"anda(2)=0anda(4)=1anda(7)=1thenbl=4
  131. 5905 ifb$="b"anda(2)=0anda(4)=1anda(7)=1thena(4)=0:a(2)=1:a(7)=0:return
  132. 5950 :
  133. 6000 ifb$="i"anda(9)=0anda(8)=1anda(7)=1thenbl=8
  134. 6005 ifb$="i"anda(9)=0anda(8)=1anda(7)=1thena(8)=0:a(9)=1:a(7)=0:return
  135. 6050 :
  136. 6100 ifa$<>"h"then6400
  137. 6200 ifb$="c"anda(3)=0anda(5)=1anda(8)=1thenbl=5
  138. 6205 ifb$="c"anda(3)=0anda(5)=1anda(8)=1thena(5)=0:a(3)=1:a(8)=0:return
  139. 6250 :
  140. 6300 ifb$="j"anda(10)=0anda(9)=1anda(8)=1thenbl=9
  141. 6305 ifb$="j"anda(10)=0anda(9)=1anda(8)=1thena(9)=0:a(10)=1:a(8)=0:return
  142. 6350 :
  143. 6400 ifa$<>"i"then6700
  144. 6500 ifb$="g"anda(7)=0anda(8)=1anda(9)=1thenbl=8
  145. 6505 ifb$="g"anda(7)=0anda(8)=1anda(9)=1thena(8)=0:a(7)=1:a(9)=0:return
  146. 6550 :
  147. 6600 ifb$="b"anda(2)=0anda(5)=1anda(9)=1thenbl=5
  148. 6605 ifb$="b"anda(2)=0anda(5)=1anda(9)=1thena(5)=0:a(2)=1:a(9)=0:return
  149. 6650 :
  150. 6700 ifa$<>"j"then7000
  151. 6800 ifb$="h"anda(8)=0anda(9)=1anda(10)=1thenbl=9
  152. 6805 ifb$="h"anda(8)=0anda(9)=1anda(10)=1thena(9)=0:a(8)=1:a(10)=0:return
  153. 6850 :
  154. 6900 ifb$="c"anda(3)=0anda(6)=1anda(10)=1thenbl=6
  155. 6905 ifb$="c"anda(3)=0anda(6)=1anda(10)=1thena(6)=0:a(3)=1:a(10)=0:return
  156. 6950 :
  157. 7000 ifa$<>"k"then7300
  158. 7100 ifb$="d"anda(4)=0anda(7)=1anda(11)=1thenbl=7
  159. 7105 ifb$="d"anda(4)=0anda(7)=1anda(11)=1thena(7)=0:a(4)=1:a(11)=0:return
  160. 7150 :
  161. 7200 ifb$="m"anda(13)=0anda(12)=1anda(11)=1thenbl=12
  162. 7205 ifb$="m"anda(13)=0anda(12)=1anda(11)=1thena(12)=0:a(13)=1:a(11)=0:return
  163. 7250 :
  164. 7300 ifa$<>"l"then7600
  165. 7400 ifb$="e"anda(5)=0anda(8)=1anda(12)=1thenbl=8
  166. 7405 ifb$="e"anda(5)=0anda(8)=1anda(12)=1thena(8)=0:a(5)=1:a(12)=0:return
  167. 7450 :
  168. 7500 ifb$="n"anda(14)=0anda(13)=1anda(12)=1thenbl=13
  169. 7507 ifb$="n"anda(14)=0anda(13)=1anda(12)=1thena(13)=0:a(14)=1:a(12)=0:return
  170. 7550 :
  171. 7600 ifa$<>"n"then7900
  172. 7700 ifb$="l"anda(12)=0anda(13)=1anda(14)=1thenbl=13
  173. 7707 ifb$="l"anda(12)=0anda(13)=1anda(14)=1thena(13)=0:a(12)=1:a(14)=0:return
  174. 7750 :
  175. 7800 ifb$="e"anda(5)=0anda(9)=1anda(14)=1thenbl=9
  176. 7805 ifb$="e"anda(5)=0anda(9)=1anda(14)=1thena(9)=0:a(5)=1:a(14)=0:return
  177. 7850 :
  178. 7900 ifa$<>"o"then8200
  179. 8000 ifb$="f"anda(6)=0anda(10)=1anda(15)=1thenbl=10
  180. 8005 ifb$="f"anda(6)=0anda(10)=1anda(15)=1thena(10)=0:a(6)=1:a(15)=0:return
  181. 8050 :
  182. 8100 ifb$="m"anda(13)=0anda(14)=1anda(15)=1thenbl=14
  183. 8105 ifb$="m"anda(13)=0anda(14)=1anda(15)=1thena(14)=0:a(13)=1:a(15)=0:return
  184. 8150 :
  185. 8200 ifa$<>"d"then8700
  186. 8300 ifb$="a"anda(1)=0anda(2)=1anda(4)=1thenbl=2
  187. 8305 ifb$="a"anda(1)=0anda(2)=1anda(4)=1thena(2)=0:a(1)=1:a(4)=0:return
  188. 8350 :
  189. 8400 ifb$="f"anda(6)=0anda(5)=1anda(4)=1thenbl=5
  190. 8405 ifb$="f"anda(6)=0anda(5)=1anda(4)=1thena(5)=0:a(6)=1:a(4)=0:return
  191. 8450 :
  192. 8500 ifb$="m"anda(13)=0anda(8)=1anda(4)=1thenbl=8
  193. 8505 ifb$="m"anda(13)=0anda(8)=1anda(4)=1thena(8)=0:a(13)=1:a(4)=0:return
  194. 8550 :
  195. 8600 ifb$="k"anda(11)=0anda(7)=1anda(4)=1thenbl=7
  196. 8605 ifb$="k"anda(11)=0anda(7)=1anda(4)=1thena(7)=0:a(11)=1:a(4)=0:return
  197. 8650 :
  198. 8700 ifa$<>"f"then9200
  199. 8800 ifb$="a"anda(1)=0anda(3)=1anda(6)=1thenbl=3
  200. 8805 ifb$="a"anda(1)=0anda(3)=1anda(6)=1thena(3)=0:a(1)=1:a(6)=0:return
  201. 8850 :
  202. 8900 ifb$="d"anda(4)=0anda(5)=1anda(6)=1thenbl=5
  203. 8905 ifb$="d"anda(4)=0anda(5)=1anda(6)=1thena(5)=0:a(4)=1:a(6)=0:return
  204. 8950 :
  205. 9000 ifb$="m"anda(13)=0anda(9)=1anda(6)=1thenbl=9
  206. 9005 ifb$="m"anda(13)=0anda(9)=1anda(6)=1thena(9)=0:a(13)=1:a(6)=0:return
  207. 9050 :
  208. 9100 ifb$="o"anda(15)=0anda(10)=1anda(6)=1thenbl=10
  209. 9105 ifb$="o"anda(15)=0anda(10)=1anda(6)=1thena(10)=0:a(15)=1:a(6)=0:return
  210. 9150 :
  211. 9200 ifa$<>"m"then9700
  212. 9300 ifb$="k"anda(11)=0anda(12)=1anda(13)=1thenbl=12
  213. 9305 ifb$="k"anda(11)=0anda(12)=1anda(13)=1thena(12)=0:a(11)=1:a(13)=0:return
  214. 9350 :
  215. 9400 ifb$="d"anda(4)=0anda(8)=1anda(13)=1thenbl=8
  216. 9405 ifb$="d"anda(4)=0anda(8)=1anda(13)=1thena(8)=0:a(4)=1:a(13)=0:return
  217. 9450 :
  218. 9500 ifb$="f"anda(6)=0anda(9)=1anda(13)=1thenbl=9
  219. 9505 ifb$="f"anda(6)=0anda(9)=1anda(13)=1thena(9)=0:a(6)=1:a(13)=0:return
  220. 9550 :
  221. 9600 ifb$="o"anda(15)=0anda(14)=1anda(13)=1thenbl=14
  222. 9602 ifb$="o"anda(15)=0anda(14)=1anda(13)=1thend=140
  223. 9605 ifb$="o"anda(15)=0anda(14)=1anda(13)=1thena(14)=0:a(15)=1:a(13)=0:return
  224. 9700 rem call illegal music
  225. 9705 printz$:print" illegal move [146]                "
  226. 9710 rem *** raspberry ***
  227. 9711 forii=54272to54295:pokeii,0:next
  228. 9715 vv=54272:poke vv+6,240:poke54296,15
  229. 9720 pokevv+1,4 :pokevv+5,0:pokevv+4,33
  230. 9725 fornn=1024 to 512 step -8
  231. 9730 poke vv+1,nn/256:poke vv,nn and 255
  232. 9735 nextnn
  233. 9740 pokevv+4,0
  234. 9745 rem *** end of raspberry ***
  235. 9750 goto10700
  236. 9800 poke198,0
  237. 9900 printz$;bl$:printbl$:printbl$:printbl$:printz$
  238. 9905 :
  239. 9910 :
  240. 9915 :
  241. 9920 :
  242. 9925 :
  243. 9930 :
  244. 9935 :
  245. 9940 :
  246. 9945 :
  247. 9950 :
  248. 9955 :
  249. 9960 :
  250. 10000 :
  251. 10005 :
  252. 10010 :
  253. 10015 :
  254. 10020 :
  255. 10025 :
  256. 10030 fori=1to15
  257. 10035 a(i)=1
  258. 10040 next
  259. 10045 b=4
  260. 10050 w=7
  261. 10055 n=15
  262. 10100 :
  263. 10200 :
  264. 10205 :
  265. 10210 :
  266. 10215 :
  267. 10220 :
  268. 10225 :
  269. 10230 :
  270. 10235 :
  271. 10240 :
  272. 10300 printz$
  273. 10305 :
  274. 10310 if fl=1then10400
  275. 10315 print"do you need instructions? (y/n) ";
  276. 10320 getd$:ifd$=""then10320
  277. 10325 printd$
  278. 10330 ifd$="y"thenfl=1:gosub11900:restore:goto53
  279. 10400 printz$;bl$:printbl$:printbl$:printbl$:printz$
  280. 10405 print"where do you want the first blank (a-o)";
  281. 10410 getc$:ifc$=""then10410
  282. 10415 printz$;bl$:printbl$:printbl$:printbl$:printbl$;z$
  283. 10420 gosub1400:gosub55000
  284. 10425 ifc=999then10600
  285. 10500 :
  286. 10505 fors=15to10step-1
  287. 10510 gosub700
  288. 10515 next
  289. 10520 n=n-1
  290. 10525 :
  291. 10530 fors=10to15
  292. 10535 gosub700
  293. 10540 next
  294. 10600 gosub3000:ifa(0)=0thenprintz$:goto11000
  295. 10700 printz$
  296. 10705 print"enter your move (from,to)      [157][157][157][157][157][157]";
  297. 10710 geta$:ifa$=""then10710
  298. 10715 printa$;",";
  299. 10720 getb$:ifb$=""then10720
  300. 10725 printb$:gosub50000
  301. 10800 gosub4600:n=n-1:gosub1200:goto10600
  302. 10900 goto63953
  303. 11000 printz$
  304. 11005 :
  305. 11010 print
  306. 11015 print"";
  307. 11020 :
  308. 11025 print"  game over  "
  309. 11030 :
  310. 11035 print"--------- no moves available ---------[146]"
  311. 11040 :
  312. 11045 fori=1to3000
  313. 11050 next
  314. 11055 printz$;bl$:printbl$:printbl$:printbl$:printz$
  315. 11100 ifn>=4thenprint
  316. 11105 ifn>=4thenprint"your score is not very good!!
  317. 11106 [139]n[177][178]4[167][153]"you had ";n[171]1;" white pieces left":[137]11600
  318. 11110 :
  319. 11200 [139]n[178]3[167][153]
  320. 11205 [139]n[178]3[167][153]"you have 3 left. that's about average."
  321. 11210 [139]n[178]3[167][153]:[137]11600
  322. 11215 :
  323. 11300 [139]n[178]2[167][153]
  324. 11305 [139]n[178]2[167][153]"very good! you got it down to just 2!"
  325. 11310 [139]n[178]2[167][153]:[137]11600
  326. 11315 :
  327. 11400 [139]n[178]1[175]a(13)[178]1[167][153]z$
  328. 11405 :
  329. 11410 [153]"!!!!!!!!!  you're a genius  !!!!!!!!!!"
  330. 11415 :
  331. 11420 [153]"nobody can do any better than this.wait"
  332. 11425 :
  333. 11430 [153]"i'll bet you can't do it again!"
  334. 11435 [141]1000
  335. 11440 [141]900
  336. 11445 [137]11600
  337. 11500 [139]n[178]1[167]
  338. 11505 [153]"";
  339. 11510 :
  340. 11515 [153]"  excellent!!  "
  341. 11520 :
  342. 11525 [153]"you left only one white letter- but it  isn't the letter 'm'!!";
  343. 11526 [153]" keep trying"
  344. 11600 [153]"another game? (y/n) ";
  345. 11605 [161]d$:[139]d$[178]""[167]11605
  346. 11610 :
  347. 11615 [139]d$[178]"y"[167] [140]:[153]"load":[129]i[178]1[164]15:a(i)[178]1:[137]50
  348. 11620 :
  349. 11625 :
  350. 11630 :
  351. 11635 :
  352. 11700 [139]d$[178]"n"[167][153]"load":[137]63953
  353. 11800 [153]z$:[137]11600
  354. 11900 [153]"load"
  355. 11905 :
  356. 11910 :
  357. 11915 :
  358. 11920 :
  359. 11925 :
  360. 11930 [153]" hopper wait":[153]:[153]
  361. 11935 :
  362. 11940 z3$[178]""
  363. 11945 [153]z3$
  364. 11950 :
  365. 12000 [153]
  366. 12005 [153]"  the object of hopper is to change as  many letters from white to";
  367. 12006 [153]" black as you can - hopefully leaving only the letter ";
  368. 12008 [153]"'m' as the last remaning white space on the board.":[153]
  369. 12100 :
  370. 12105 [153]"  when you first see the game board all of the letters will be";
  371. 12110 [153]" white.":[153]
  372. 12115 [153]"  since you need a blank space to begin";
  373. 12116 [153]" you will be given your choice where to  place the first blank."
  374. 12200 [153]
  375. 12205 [153]"  after choosing the first black space  the game begins."
  376. 12208 [153]:[153]"     << press a key to continue >>"
  377. 12209 [161]i$:[139]i$[178]""[167]12209
  378. 12210 [153]"load hopper wait":[153]
  379. 12215 [153]"  your moves are similar to those used  in checkers"
  380. 12300 [153]
  381. 12305 [153]"  you hop from one white letter over an adjacent white letter and";
  382. 12306 [153]" onto a black  space - then the white space you hopped over";
  383. 12308 [153]" will become black."
  384. 12400 [153]
  385. 12405 [153]"  when you see:"
  386. 12410 [153]
  387. 12415 [153]"'enter your move (from,to) '"
  388. 12500 [153]
  389. 12505 [153]"  you should press the letter of the    space you are hopping fro";
  390. 12510 [153]"m";:[153]
  391. 12515 [153]"  <<no need for you to press return>>wait"
  392. 12520 :
  393. 12525 [153]
  394. 12530 [153]"  then press the letter of the space youare hopping to";
  395. 12535 [153]
  396. 12600 [153]"   <<again no need for a return>>wait";:[153]".":[153]
  397. 12650 [153]"     << press a key to continue >>"
  398. 12652 [161]i$:[139]i$[178]""[167]12652
  399. 12675 [153]"load hopper wait":[153]""
  400. 12700 [153]
  401. 12705 [153]" every time your hopper hops a white    letter it will yell ";
  402. 12706 [153]"'bloooopppp!!!'"
  403. 12800 :
  404. 12805 [153]
  405. 12810 [153]"do you need to see the instructions     again? (y/n) ";
  406. 12815 [161]d$:[139]d$[178]""[167]12815
  407. 12820 [139]d$[179][177]"y"[175]d$[179][177]"n"[167]12815
  408. 12825 [139]d$[178]"y"[167][153]"load":[137]11900
  409. 12830 :
  410. 12900 :
  411. 12905 [153]"load"
  412. 12915 [153]z$
  413. 12920 :
  414. 12925 :
  415. 12930 [142]
  416. 13000 [153]z$
  417. 13100 [141]13300:x[178]80:[141]13300:x[178]130:[141]13300
  418. 13200 x[178]180:[141]13300:x[178]230:[141]13300:[142]
  419. 13300 [142]
  420. 50000 x1[178][198](a$)[171]64
  421. 50010 y1[178][198](b$)[171]64
  422. 50020 [142]
  423. 50030 [129]q1[178]1[164]h(bl):[153]"";:[130]:[153]s3$
  424. 50040 [153]""
  425. 50050 [142]
  426. 55000 [139]bl[178]1[167][153]"";:[137]55010
  427. 55005 [153]"stop":[153]"":[129]q1[178]1[164]v(bl)[171]2:[153]"";:[130]
  428. 55010 [129]q1[178]1[164]h(bl):[153]"";:[130]:[153];"stop";s1$
  429. 55020 [129]q1[178]1[164]h(bl):[153]"";:[130]:[153]s2$;"cmdcmd";"";[199](64[170]bl);"stop"
  430. 55030 [129]q1[178]1[164]h(bl):[153]"";:[130]:[153]s3$
  431. 55040 [153]""
  432. 55050 [142]
  433. 57000 [129]x[178]54272[164]54295:[151]x,0:[130]
  434. 57010 [143]   poke54296,15
  435. 57020 v[178]54272:z[178]54279
  436. 57022 [151]v[170]2,15:[151]v[170]3,255
  437. 57025 [151]z[170]2,15:[151]z[170]3,255
  438. 57030 [151]v[170]5,255:[151]v[170]6,255:[151]v[170]4,65
  439. 57035 [151]z[170]5,255:[151]z[170]6,255:[151]z[170]4,65
  440. 57040 [151]v,15
  441. 57045 [151]z,15
  442. 57050 [129]x[178]1[164]90 [169]3:[129]d[178]1[164]10:[130]d:[151]v[170]1,x:[130]:[151]v[170]4,0:[142]
  443. 57055 [129]x[178]0[164]90 [169]3:[129]d[178]1[164]10:[130]d:[151]z[170]1,90[171]x:[130]:[142]
  444. 57060 [151]z[170]4,0:[151]54296,15
  445. 57065 [151]54277,139:[151]54278,15:[151]v[170]4,33
  446. 57067 [151]v,5:[151]v[170]1,5:[142]
  447. 60000 [153]"load h o p p e r wait"
  448. 60010 [153]" by paul m. zelman"
  449. 60020 [153]"<<converted by alan gardner for c-64>>"
  450. 60030 [153]"<< press a key to continue >>"
  451. 60040 [151]198,0:[146]198,1:[161]a$:[142]
  452. 63953 [143]end
  453. 63995 [151]53280,0:[151]53281,0:[153]"stop";
  454. 63996 [153]"stoploadload"[199](34)"payload"[199](34)",8":[153]"run"
  455. 63997 [151]631,13:[151]632,13:[151]198,2
  456.