home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 September / Ahoy_Magazine_86-09_1986_Double_L.d64 / Larc-I (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  193 lines
  1. 0 rem *********************************
  2. 1 rem *                               *
  3. 2 rem * the larc-i mission   for c-64 *
  4. 3 rem *                               *
  5. 4 rem *    by joseph bedard           *
  6. 5 rem *       1533 river st           *
  7. 6 rem *       hyde park, ma  02136    *
  8. 7 rem *                               *
  9. 8 rem *********************************
  10. 9 poke53265,0:poke52,56:poke56,56:clr:poke53272,30:t=rnd(-ti)
  11. 10 print"[147]";:poke53280,2:poke53281,5:ifpeek(251)=1then20
  12. 11 print"[147]please wait:":poke1022,0:poke1023,0
  13. 12 forl=828to909:readt:pokel,t:next:sys828:poke53265,27
  14. 13 forl=49152to49528:readt:pokel,t:next
  15. 14 forl=232to239:forl1=0to39:pokel*64+l1,0:next:next
  16. 15 forl=232to239:forl1=40to63:readt:pokel*64+l1,t:next:next
  17. 16 forl=27to31:forl1=0to7:readt:poke14336+8*l+l1,t:next:next
  18. 17 forl=33to47:forl1=0to7:readt:poke14336+8*l+l1,t:next:next
  19. 18 forl=0to7:poke14840+l,peek(14608+l):next
  20. 19 forl=828to996:readt:pokel,t:next:poke251,1
  21. 20 poke53265,27:gosub300:print"[147]";:poke53270,216:poke53282,1:poke53283,2
  22. 21 v=53248:pokev,151:pokev+1,150:poke2040,232:pokev+2,151:pokev+3,153
  23. 22 poke2041,233:pokev+37,3:pokev+38,11:pokev+39,6:pokev+40,0:pokev+28,5
  24. 23 poke2042,234:poke2043,235:pokev+41,11:pokev+42,0:x=151:y=198:s=49522
  25. 24 pokes,4:pokes+1,0:pokes+2,31:pokes+3,0:pokes+4,24:pokes+5,2:pokes+6,2
  26. 25 forl=1to24:printspc(32)"[144]        ";:next:printspc(32)"       [146]";
  27. 26 poke2023,160:poke56295,0:gosub100:q=peek(v+30):q=peek(v+31)
  28. 27 deffnr(t)=int(rnd(1)*t):poke252,0:poke253,0:print""w$:print"[145]"s$
  29. 28 print""spc(15)"     ":printspc(15)"[145]     "
  30. 29 f1=1:f=-1:d=0:print""spc(32)"  heat  [157][157][157][157][157][157][157][157] seeker "
  31. 30 print"";:forl=1to4:printspc(32)"[158]        ";:next
  32. 31 print"";:forl=1to5:printspc(32)"        ";:next
  33. 32 print"";:forl=1to4:printspc(32)"[156]        ";:next
  34. 33 print""spc(32)"[158]distance"
  35. 34 print""spc(33)"[156]level":printspc(32)"[145]"lv
  36. 35 print""spc(32)" longest[157][157][157][157][157][157][157][157]distance";
  37. 36 hi=peek(1023)*256+peek(1022):printspc(32)""hi
  38. 37 p=54272:gosub400
  39. 38 pokep+5,15:pokep+6,240:pokep+1,100:pokep+4,129:pokep+24,6
  40. 39 poke986,60:poke991,3:sys984:pokev+21,15
  41. 40 iff1=1thenf1=0:goto59
  42. 50 f=f+1:iff>l1thenf=0:goto54
  43. 52 t=fnr(31):t1=fnr(5):print""spc(t)o$(t1):f1=1:goto59
  44. 54 print""w$""s$
  45. 55 forl=0to1:t=fnr(29):print""spc(t)"    "spc(t)"    ":next:f1=1
  46. 59 sys49152
  47. 60 q=peek(253):ifq=1then200
  48. 65 d=d+5:print"[158]"spc(32)d
  49. 70 ifl2>10thenforl=1tol2:next
  50. 75 goto40
  51. 100 w$="[154][[[\]^_^^][\\[^_][\]^__]]^^_^][["
  52. 101 s$="[129]'''()*+**)'(('*+)'()*++))**+*)''"
  53. 102 o$(0)="$[157][144]/":o$(1)="[151]#[157][129]."
  54. 103 o$(2)="[152]!?[157][157][129],-":return
  55. 200 poke986,49:poke991,234:sys984:pokev+21,3:pokev+28,0
  56. 201 gosub400:pokep+5,15:pokep+6,240:pokep+1,5:pokep+24,15:pokep+4,129
  57. 202 pokev+39,7
  58. 205 forl=236to239:poke2040,l:poke2041,l
  59. 206 fort=1to150:next:next:pokev+21,0
  60. 207 forl=15to0step-.1:pokep+24,l:next:pokep+4,128
  61. 220 fort=1to25:sys49152:next
  62. 230 print""spc(10)"%%%%%%%%%%%%":sys49152
  63. 231 print""spc(10)"%game  over[146]%":sys49152
  64. 232 print""spc(10)"%%%%%%%%%%%%":sys49152
  65. 233 print""spc(10)"&&&&&&&&&&&&":sys49152
  66. 234 forl=1to7:sys49152:next:forl=1to200:next
  67. 251 hi=peek(1023)*256+peek(1022)
  68. 252 ifd<=hithen260
  69. 253 t=int(d/256):t1=d-t*256:poke1023,t:poke1022,t1
  70. 254 gosub400:pokep+5,15:pokep+6,240:forl=1to15:pokep+1,40:pokep+4,33
  71. 255 print""spc(8)"congratulations!":fort=1to30:next:pokep+1,50
  72. 256 print""spc(8)"[158]congratulations!":fort=1to30:next
  73. 257 next:gosub400:print""spc(32)d
  74. 258 print""spc(6)"longest distance yet":forl=1to3000:next
  75. 260 goto20
  76. 300 gosub340:print""spc(9)"&&&&&&&&&&&&&&&&&&&&&&"
  77. 301 printspc(9)"%%%%%%%%%%%%%%%%%%%%%%"
  78. 302 printspc(9)"% the larc-i mission [146]%"
  79. 303 printspc(9)"%%%%%%%%%%%%%%%%%%%%%%"
  80. 305 print""spc(12)"by joseph bedard"
  81. 310 print""spc(13)"[159] enter  level "
  82. 315 print""spc(14)"[156]1[146][158]: easy"
  83. 320 print""spc(14)"[156]2[146][158]: moderate"
  84. 325 print""spc(14)"[156]3[146][158]: difficult"
  85. 327 poke198,0
  86. 330 geta$:ifa$<"1"ora$>"3"then330
  87. 335 t=val(a$):lv=t:l1=(4-t)*10+1:l2=100-t*30:return
  88. 340 print"[147]";
  89. 341 printspc(8)"[144]                        "
  90. 342 forl=1to19:printspc(8)"[144] "spc(22)" ":next
  91. 343 printspc(8)"[144]                        "
  92. 345 return
  93. 400 forl=ptop+23:pokel,0:next:pokep+24,15:return
  94. 59999 rem *** ml character transfer ***
  95. 60000 data173,14,220,41,254,141,14
  96. 60010 data220,173,24,208,41,14,10,10
  97. 60020 data133,167,169,208,133,252,173
  98. 60030 data0,221,41,3,73,3,10,10,10,10
  99. 60040 data10,10,5,167,133,254,165,1,41
  100. 60050 data251,133,1,169,0,133,251,133
  101. 60060 data253,168,162,8,177,251,145,253
  102. 60070 data200,208,249,230,252,230,254
  103. 60080 data202,208,242,165,1,9,4,133,1
  104. 60090 data173,14,220,9,1,141,14,220,96
  105. 60100 rem *** ml scroll data ***
  106. 60110 data174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  107. 60120 data118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
  108. 60130 data169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
  109. 60140 data116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
  110. 60150 data204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
  111. 60160 data145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
  112. 60170 data76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
  113. 60180 data193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
  114. 60190 data169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
  115. 60200 data16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
  116. 60210 data236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  117. 60220 data177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
  118. 60230 data234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
  119. 60240 data116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92
  120. 60250 data104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
  121. 60260 data32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
  122. 60270 data193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
  123. 60280 data133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
  124. 60290 data24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
  125. 60300 data120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
  126. 60310 data32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
  127. 60320 data5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0
  128. 60330 data4,1,1
  129. 60340 rem *** sprite data ***
  130. 60390 rem ship
  131. 60400 data8,0,0,38,0,0,170,128
  132. 60410 data3,166,176,15,85,124,21,247
  133. 60420 data213,0,85,64,0,0,0,0
  134. 60470 rem ship's shadow
  135. 60480 data4,0,0,21,0,0,85,64
  136. 60490 data1,85,80,5,85,84,21,85
  137. 60500 data85,0,85,64,0,0,0,0
  138. 60550 rem missle
  139. 60560 data0,0,0,4,0,0,8,0
  140. 60570 data0,8,0,0,8,0,0,8
  141. 60580 data0,0,59,0,0,251,192,0
  142. 60630 rem missle's shadow
  143. 60640 data0,0,0,4,0,0,4,0
  144. 60650 data0,4,0,0,4,0,0,4
  145. 60660 data0,0,21,0,0,85,64,0
  146. 60710 rem explosion i
  147. 60720 data0,0,0,0,0,0,0,0
  148. 60730 data0,10,0,0,40,0,0,0
  149. 60740 data0,0,0,0,0,0,0,0
  150. 60790 rem explosion ii
  151. 60800 data0,0,0,0,0,0,34,0
  152. 60810 data0,0,0,0,128,128,0,8
  153. 60820 data0,0,0,0,0,0,0,0
  154. 60870 rem explosion iii
  155. 60880 data0,0,0,32,0,0,0,128
  156. 60890 data2,0,0,0,0,32,0,32
  157. 60900 data0,0,0,128,0,0,0,0
  158. 60950 rem explosion iv
  159. 60960 data32,32,0,0,0,0,0,0
  160. 60970 data0,0,8,8,0,0,0,0
  161. 60980 data0,0,0,0,0,32,32,0
  162. 61070 rem *** character data ***
  163. 61080 data85,85,255,255,255,255,255,255
  164. 61090 data64,81,213,247,255,255,255,255
  165. 61100 data0,21,85,127,255,255,255,255
  166. 61110 data0,0,64,85,213,255,255,255
  167. 61120 data0,0,0,1,69,87,223,255
  168. 61130 data5,21,22,25,5,15,51,204
  169. 61140 data0,64,64,64,0,192,48,204
  170. 61150 data20,85,150,187,187,187,121,20
  171. 61160 data24,60,60,60,60,60,60,60
  172. 61170 data0,255,0,255,0,255,0,255
  173. 61180 data0,0,0,0,0,0,0,255
  174. 61190 data255,255,255,255,255,255,0,0
  175. 61200 data255,255,255,255,243,192,0,0
  176. 61210 data255,255,255,255,63,0,0,0
  177. 61220 data255,255,255,240,192,0,0,0
  178. 61230 data255,207,3,0,0,0,0,0
  179. 61240 data255,15,3,15,15,3,0,0
  180. 61250 data252,192,0,192,192,0,0,0
  181. 61260 data195,255,255,255,255,60,0,0
  182. 61270 data60,60,60,60,60,24,0,0
  183. 61280 rem *** ml routine ***
  184. 61290 data174,0,220,224,123,208,11,172,0,208,136,192,24,240,3,76,90,3,224,119
  185. 61300 data208,17,172,0,208,200,192,255,240,9,140,0,208,140,2,208,76,135,3,224
  186. 61310 data126,208,11,172,1,208,136,192,100,240,3,76,126,3,224,125,208,17,172,1
  187. 61320 data208,200,192,198,240,9,140,1,208,152,105,3,141,3,208,166,252,224,1,240
  188. 61330 data12,162,1,134,252,169,252,172,0,208,76,161,3,173,5,208,172,0,208,233
  189. 61340 data1,141,5,208,105,3,141,7,208,140,4,208,140,6,208,173,1,208,205,5
  190. 61350 data208,208,4,162,1,134,253,172,31,208,152,41,1,201,1,208,4,162,1,134
  191. 61360 data253,152,41,4,201,4,208,4,162,0,134,252,76,49,234,0
  192. 61370 data120,169,60,141,20,3,169,3,141,21,3,88,96
  193.