home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 September / Ahoy_Magazine_85-09_1985_Double_L.d64 / superhero (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  197 lines
  1. 10 rem    superhero
  2. 20 rem    by j.c.hilty
  3. 30 rem    1036 barnsley dr.
  4. 40 rem    library,pa.,15129
  5. 100 print"[147]"
  6. 102 sr=0:alt=000
  7. 103 q=192:l=1141:c=28:cm=54272:m=0
  8. 105 v=53248:o=54272
  9. 108 poke 52,48:poke 56,48
  10. 110 poke 53281,6:poke 53280,2
  11. 120 print""tab(5)"       [223]"
  12. 130 print tab(5)"        [223]"
  13. 140 print tab(5)"[144]  [158]        [223][146] [144]  [223][144]   [223][144]   [223][144]   [223]"
  14. 150 print tab(5)"[144]  [158]       [144]  [223][144]   [144]     [144]    [144]   [223]"
  15. 160 print tab(5)"[144]  [158]     [144]   [158]  [144]  [158]  [144] [158]   [144] [158]   [144] [158]   "
  16. 170 print tab(5)"[144][223] [158]       [144] [158]  [144]  [158]  [144] [158] [144] [158] [144] [158]  [144]  [158] [144] [158] "
  17. 180 print tab(6)"[144][223][158]       [144] [158]  [144]  [158]  [144] [158]   [144] [158] [146] [144]  [158]   [144][223]"
  18. 190 print tab(10)"[144]  [158]  [144] [158]  [144]  [158]  [144] [158] [146] [144][223] [158]   [146][144][223][158] [146] [144][223][158] "
  19. 200 print tab(5)"[144]     [144]  [158]  [144] [158]      [146][144][223][158] "
  20. 210 print tab(5)"[144]      [144] [158]  [146][144][223][158]      "
  21. 220 print tab(5)"[144][223] [158]       "
  22. 230 print tab(6)"[144][223][158]       [146] [144] [223][144] [223][146] [144]    [223][146] [144]   [223][146]  [144]   [223]"
  23. 240 print tab(15)"[144] [158] [144] [158] [146] [144] [158]    [146] [144] [158]   [146]  [144] [158]   "
  24. 250 print tab(15)"[144] [158] [144] [158] [146] [144] [158] [144] [223][146]   [158] [144] [158] [146]  [144] [158] [144] [158] "
  25. 260 print tab(15)"[144] [158]   [146] [144] [158]   [146]  [144] [158]   [146]  [144] [158] [144] [158] "
  26. 270 print tab(15)"[144] [158] [144] [158] [146] [144] [158] [144]  [223][146] [144] [158] [144][146][223][158]  [146] [144] [158] [144] [158] "
  27. 280 print tab(15)"[144][223][158] [146][144][223][158] [146] [144][223][158]    [146] [144][223][158] [146] [144][223][158] [146] [144][223][158]   "
  28. 290 print
  29. 300 print tab(9)"save the space shuttle"
  30. 310 print tab(16)"press any key"
  31. 320 get a$:if a$="" then 320
  32. 330 print"":print""  tab(15)"please wait..."
  33. 340 print tab(15)"reading data"
  34. 370 for x=12288 to 12350
  35. 380 read a:poke x,a:next
  36. 390 for x=12352 to 12414
  37. 400 read a:poke x,a:next
  38. 410 for x= 12416 to 12478
  39. 420 read a:poke x,a:next
  40. 430 for x=12480 to 12542
  41. 440 read a:pokex,a:next
  42. 464 for x=828 to 973
  43. 466 read a:pokex,a:next
  44. 470 print"[147]"
  45. 480 poke 53280,0:poke 53281,0
  46. 490 poke 2040,194:poke 2041,195
  47. 500 poke v+39,6:poke v+40,1
  48. 510 poke v+0,70:poke v+1,80:poke v+2,70:poke v+3,140
  49. 530 poke v+29,3:poke v+23,3
  50. 540 poke v+28,1:poke v+37,10:poke v+38,2
  51. 550 print"":print"[159]"tab(12)"graphics   chart"
  52. 560 poke v+21,3
  53. 570 print""tab(12)"\      superhero"
  54. 580 print""tab(18)"spaceshuttle"
  55. 590 print""tab(12)"*[159]     zyptonite  meteor"
  56. 600 print""tab(14)"press any key"
  57. 610 get a$:if a$="" then 610
  58. 620 print"[147]":poke v+21,0
  59. 630 poke 53280,2:poke 53281,0
  60. 700 dima(3)
  61. 710 a(0)=2:a(1)=-80:a(2)=-2:a(3)=80
  62. 720 wl=160:hl=32:sc=1024:a=sc+81
  63. 740 for i=1 to 6
  64. 741 print      "               [146]                        "
  65. 742 next i
  66. 744 for i=1 to 9
  67. 745 print       "                                       "
  68. 746 next i
  69. 748 for i=1 to 8
  70. 750 print"               [146]                        "
  71. 760 next i
  72. 770 pokea,4
  73. 780 j=int(rnd(1)*4):x=j
  74. 790 b=a+a(j):if peek(b)=wlthenpokeb,j:pokea+a(j)/2,hl:a=b:goto 780
  75. 800 j=(j+1)*-(j<3):if j<>xthen790
  76. 810 j=peek(a):poke a,hl:ifj<4thena=a-a(j):goto 780
  77. 820 print"":print""tab(16)"[159]score"
  78. 830 print tab(17);sr
  79. 831 print""tab(16)"alt":print tab(16);alt
  80. 832 poke 2040,192
  81. 833 poke v+0,150:poke v+1,60:poke v+2,150:poke v+3,190
  82. 834 poke v+21,3
  83. 840 poke 1113,81 :poke 1113+cm,7
  84. 842 poke 1835,81:poke 1835+cm,7
  85. 844 poke 1825,81:poke 1825+cm,7
  86. 846 poke 1509,81:poke 1509+cm,7
  87. 848 poke 1599,81:poke 1599+cm,7
  88. 850 poke 1605,81:poke 1605+cm,7
  89. 852 poke 1137,81:poke 1137+cm,7
  90. 854 poke 1131,81:poke 1131+cm,7
  91. 856 poke 1857,81:poke 1857+cm,7
  92. 858 poke 1851,81:poke 1851+cm,7
  93. 860 poke 1141,28:poke 1141+cm,3
  94. 865 poke a,42:j=2
  95. 870 q=q+1:if q=195 then q=192
  96. 871 poke 2040,q
  97. 872 alt=alt+1
  98. 873 if alt=800then3500
  99. 875 print"":print"[159]" tab(16);alt
  100. 876 b=a+a(j)/2
  101. 877 if peek(b)=32thenpokeb,42:pokea,32:a=b:j=(j+2)+4*(j>1)
  102. 878 if peek(b)=81 then poke b,42:poke a,81:poke a+cm,7:a=b:j=(j+2)+4*(j>1)
  103. 879 if peek(b)=28 then 3000
  104. 880 j=(j-1)-4*(j=0)
  105. 881 sys(828):r=peek(254)-peek(253)
  106. 890 if r=0 then 870
  107. 900 w=peek(l+r)
  108. 910 if w=81 then 1500
  109. 920 if w<>32 then 870
  110. 930 l=l+r:poke l-r,32:poke(l-r)+cm,5
  111. 940 poke l,c:poke l+cm,3
  112. 950 goto 870
  113. 1500 m=m+1:if m=10 then 2500
  114. 1505 l=l+r:poke l-r,32
  115. 1510 pokel,c:pokel+cm,3
  116. 1520 gosub 2000
  117. 1530 print"":sr=sr+10:print"[159]"tab(17);sr
  118. 1540 goto 870
  119. 2000 for x=o to 0+24:poke x,0:next
  120. 2010 poke o,150:pokeo+1,200:pokeo+5,8:pokeo+6,248
  121. 2020 pokeo+24,15:pokeo+4,17
  122. 2030 for t=0to50:next
  123. 2040 pokeo+4,16
  124. 2050 for t=0to50:next
  125. 2060 pokeo+24,0
  126. 2070 return
  127. 2100 for x=o to o+24:pokex,0:next
  128. 2110 pokeo+24,15:pokeo+12,160:pokeo+13,252
  129. 2120 pokeo+8,80:pokeo+7,40:poke o+11,129
  130. 2130 for t=0to100:next
  131. 2140 pokeo+11,128:return
  132. 2500 print"[147]"
  133. 2502 print"[159]"tab(6)"congratulations"
  134. 2503 print"      play on!"
  135. 2504 for t=0 to 3000:next
  136. 2510 m=0
  137. 2520 sr=sr+100:alt=alt -200
  138. 2525 l=1141
  139. 2528 print"[147]"
  140. 2530 goto 710
  141. 3000 print"[147]"
  142. 3005 for t=1 to 30
  143. 3010 poke v+39,2:poke v+39,1:poke v+39,6
  144. 3020 next
  145. 3030 gosub 2100
  146. 3040 print"sorry,a zyptonite meteor crushed you."
  147. 3050 for t=0 to 3000:next
  148. 3060 goto 4000
  149. 3500 print "[147]"
  150. 3510 for t=1 to 20
  151. 3520 poke v+40,2:poke v+40,6:poke v+40,1
  152. 3530 next
  153. 3540 gosub 2100
  154. 3550 print"[159]the shuttle is 800 miles up--too late."
  155. 3560 for t=0 to 3000:next
  156. 3570 goto 4000
  157. 4000 print"[147]"
  158. 4005 poke v+21,0
  159. 4010 print"s c o r e  ";sr
  160. 4020 print"play again---y or n "
  161. 4030 get junk$:if junk$<>""then 4030
  162. 4040 get a$:if a$=""then 4040
  163. 4050 if a$="y" then 4060
  164. 4055 end
  165. 4060 print"[147]"
  166. 4070 m=0
  167. 4080 l=1141
  168. 4090 alt=000
  169. 4100 sr=0
  170. 4110 goto 710
  171. 6240 rem multicolor superhero x3
  172. 6250 data 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,12,160,0
  173. 6260 data 48,160,0,48,160,0,48,160,0,48,128,0,192,128,0,192,192,0
  174. 6270 data 192,192,0,192,128,0,192,128,0,0,128,0,0,128,0,0,192,0
  175. 6280 data 0,192,0,0,192,0,0,240,0
  176. 6290 data 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,14,160,0,50,170,64,50,170,64
  177. 6300 data 50,160,0,56,128,0,204,128,0,196,192,0,192,192,0,194,32,0
  178. 6310 data 194,32,0,8,8,0,8,8,0,48,12,0,48,12,0,12,12,0,0,15,0
  179. 6320 data 0,160,0,0,144,0,0,144,0,0,192,0,3,160,0,14,160,64,48,171,0,48,162,0
  180. 6330 data 48,164,0,48,136,0,192,128,0,192,192,0,192,192,0,194,32,0
  181. 6340 data 194,32,0,2,32,0,2,32,0,2,32,0,3,48,0,3,48,0,3,252,0
  182. 6350 rem spaceshuttle
  183. 6360 data 0,0,0,0,0,0,32,0,0,32,0,0,48,0,0,56,0,0
  184. 6370 data 63,255,192,63,255,224,61,85,48,63,255,56
  185. 6380 data 63,255,252,12,62,0,8,60,0,8,56,0,0,48,0
  186. 6390 data 0,32,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  187. 6450 rem ml joystick routine
  188. 6460 data 173,1,220,74,176,40,74,74,176,11,169,0
  189. 6470 data 133,254,169,41,133,253,76,182,3,74,176,11,169,0,133,254,169,39
  190. 6480 data 133,253,76,182,3,169,0,133,254,169,40,133,253,76,182,3,74,176
  191. 6490 data 39,74,176,11,169,39,133,254,169,0,133,253,76,182,3,74,176,11
  192. 6500 data 169,41,133,254,169,0,133,253,76,182,3,169,40,133,254,169,0
  193. 6510 data 133,253,76,182,3,74,176,11,169,0,133,254,169,1,133,253,76,182,3
  194. 6520 data 74,176,11,169,1,133,254,169,0,133,253,76,182,3,169,0,133,254
  195. 6530 data 133,253,173,1,220,74,74,74,74,74,176,7,169,1,133,80,76,203,3
  196. 6540 data 169,0,133,80,96,234,234
  197.