home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / hopper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  12KB  |  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