home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / ROX (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.3 KB  |  201 lines
  1. 10 POKE53280,0:POKE53281,0:POKE56,48:CLR
  2. 20 FORX=0TO6:S(X)=192+X:NEXT X:V=53248
  3. 25 DIMSC$(10),SC(10):FORX=1TO10:SC$(X)="***[156]ROX[159]64[158]***":SC(X)=0:NEXT X
  4. 30 FORX=S(0)*64TOS(6)*64+64:POKEX,0:NEXTX
  5. 36 FORX=0TO50:READA:POKES(1)*64+6+X,A:NEXT X:POKE2041,S(1)
  6. 37 DATA64,20,1,16,170,4,11,255,224,21,85,88,148,0,22,144,0,6,144,0,6,144,0,6
  7. 38 DATA144,0,6,144,0,6,159,255,246,4,0,16,4,0,16,16,0,4,16,0,4,64,0,1,64,0,1
  8. 40 FORX=0TO7:READA:POKES(0)*64+25+X*3,A:NEXT X
  9. 45 DATA24,62,124,255,254,126,94,8
  10. 50 FORX=0TO56:READA:POKES(6)*64+X,A:NEXT X:POKE2046,S(6)
  11. 55 DATA2,0,0,2,0,0,2,0,0,20,0,0,8,16,0,20,255,0,226,0,128,4,124,64
  12. 56 DATA5,66,64,4,66,64,2,66,128,1,67,0,2,254,128,4,56,64,8,40,32,16,56,16
  13. 57 DATA16,40,16,16,56,16,56,40,56
  14. 60 FORX=0TO7:READA:POKES(2)*64+25+X*3,A:NEXT X:POKE 2042,S(2)
  15. 65 DATA192,224,118,56,24,20,2,0
  16. 67 FORX=0TO9:READG(X):NEXT X:DATA160,227,247,248,98,121,111,100,32,32
  17. 70 FORX=0TO7:READA:POKES(3)*64+25+X*3,A:NEXT X:POKE2043,S(3)
  18. 75 DATA8,20,28,28,28,28,42,8
  19. 80 FORX=0TO7:READA:POKES(4)*64+25+X*3,A:NEXT X:POKE2044,S(4)
  20. 85 DATA3,7,14,60,24,40,64,0
  21. 87 FORX=0TO7:READA:POKES(5)*64+25+X*3,A:NEXT X:POKE2045,S(5)
  22. 88 DATA66,0,4,32,0,34,128,16
  23. 90 VO=54296:WA=54276:AT=54277:H=54273:LO=54272:PH=54275:PL=54274:SU=54278
  24. 95 POKEVO,15:FI=0:A$="":KEY=197:POKEAT+14,32:POKESU+14,255
  25. 98 FORX=WATOWA+14STEP7:POKEX,17:POKEX,0:NEXT
  26. 100 GOSUB20000:PRINT"[147]":FORX=1TO18:PRINT"";:NEXT
  27. 110 PRINT"[158][185][162][185][175][185][162][185][162][175][162][185][175][185][175][164][164][162][183][183][183][183][183][146][162][185][175][175][185][164][185][175][185][164][185][185][175][164][185][175][185][175]";
  28. 120 PRINT"                                        [146]";
  29. 130 PRINT"LUNAR EVA MODULE #5... LANDING SITE SCAN";
  30. 132 FORII=1TO500:NEXTII
  31. 135 FORX=0TO30:POKE1104+RND(1)*600,46:NEXT:DA=25:PA=3:NH=0:PT=0
  32. 140 V=53248:CO=7:POKE2040,S(0):POKEV+16,0:POKEV+45,3:POKEV+21,127:AW=1
  33. 160 GOSUB5000:DF=5:CO=8:GOSUB7500
  34. 170 FORX=V+41TOV+43:POKEX,5:NEXT
  35. 180 POKEV+44,1
  36. 190 DF=DF+2:ROX=11:CO=CO-1
  37. 200 SX=180:SY=10:POKEV,SX:POKEV+1,SY:POKEV+39,CO:HI=0:ROX=ROX-1:IFROX=0THEN8000
  38. 210 XO=RND(1):IFRND(1)<.5THENXO=-XO
  39. 220 YO=.5:S=DF:IFS>20THENS=20
  40. 230 POKEWA,129:POKEH,200:POKELO,255:POKEVO,1:POKEV+30,0:POKEV+16,0
  41. 300 SX=SX+XO*(S/3):SY=SY+YO*S
  42. 305 IFSX>255ANDHI=0THENHI=1:POKEV+16,PEEK(V+16)+1:SX=0
  43. 310 POKEV,SX:POKEV+1,SY:IFSY>190THEN1000
  44. 315 IFFITHENGOSUB6000:IFERTHEN7000
  45. 320 S=S+.3:IFS>20THENS=20
  46. 330 POKEVO,S/2
  47. 340 IF(PEEK(V+30)AND65)=65THEN10000
  48. 400 P=PEEK(KEY):IFP<>64THEN3000
  49. 410 IF FITHENGOSUB6000:IFERTHEN7000
  50. 500 GOTO300
  51. 1000 T=SX+256*HI:SP=INT(T/8)-2:POKEV,0:POKEV+1,0:POKEV+16,0:POKEVO,15:POKEH,1
  52. 1010 POKEWA+14,0:FI=0:POKERY,0:FORZ=1TORND(1)*4:DA=DA-1:IFDA=0THEN12000
  53. 1016 GOSUB7500
  54. 1020 FORX=1TO10:POKEV+17,26:FORD=1TO10:NEXT:POKEV+17,27:POKEVO,15-(X/2)
  55. 1030 FORD=1TO10:NEXTD,X
  56. 1040 Q=1784+SP:P=PEEK(Q):IFP=32THENQ=1824+SP:P=PEEK(Q):POKEWA,0
  57. 1050 GR=0:FORX=0TO9:IFP=G(X)THENGR=X:X=10
  58. 1060 NEXT X:POKEQ,G(GR+1):NEXT Z
  59. 1100 GOTO200
  60. 3000 IFFITHEN4000
  61. 3005 IFP<>31ANDP<>28ANDP<>39THEN4000
  62. 3010 IFP<>31THEN3100
  63. 3020 MX=164:MY=170:RX=V+4:RY=V+5:XC=-1:N=4:GOTO3500
  64. 3100 IFP<>28THEN3200
  65. 3110 MX=164:MY=170:RX=V+6:RY=V+7:XC=0:N=8:GOTO3500
  66. 3200 IFP<>39THEN4000
  67. 3210 MX=164:MY=170:RX=V+8:RY=V+9:XC=1:N=16
  68. 3500 FORX=V+4TOV+9:POKEX,0:NEXT:POKERX,MX:POKERY,MY:H2=0:N=N+1
  69. 3505 POKEWA+14,129:POKEH+14,255-MY:POKEV+16,HI
  70. 3510 FI=1:GOTO410
  71. 4000 IFP=10THEN4500
  72. 4002 IFP=41THEN4700
  73. 4005 IFP<>60ORPA=0THEN410
  74. 4006 PA=PA-1:POKEWA,19:POKEVO,15:MX=SX:MY=SY
  75. 4010 FORX=1TO30:POKE53281,3:POKEH,29:POKE53281,0:POKEH,200:NEXT:GOSUB7500
  76. 4020 GOTO7000
  77. 4500 POKEV+21,64:POKEWA,129:POKEWA+7,0:POKEWA+14,0:POKEVO,0
  78. 4505 PRINT"[150]***  M I S S I O N     A B O R T E D ***"
  79. 4510 FORX=1TO15STEP.3:POKEVO,X:YY=YY-.05*X:POKEV+13,YY:NEXT X
  80. 4520 POKEWA,17:POKEWA+7,17:POKEH,32:POKEH+7,33:POKELO,YY:POKELO+7,YY+10
  81. 4530 YY=YY-.75:POKEV+13,YY:POKEH,255-YY:POKEH+7,249-YY:IFYY>6THEN4530
  82. 4540 GOTO11000
  83. 4700 PRINT"[144]   *** PAUSE MODE - 'P' TO RESTART ***"
  84. 4705 POKE53281,1:IFPEEK(KEY)<>64THEN4700
  85. 4710 IFPEEK(KEY)<>41THEN4710
  86. 4715 IFPEEK(KEY)<>64THEN4715
  87. 4720 POKE53281,0:PRINT"                                      ":GOTO410
  88. 5000 POKEAT,32:POKESU,255:POKEAT+7,32:POKESU+7,255:POKEH,17:POKELO,3
  89. 5001 POKEVO,15:POKEWA,17:POKEWA+7,17
  90. 5002 POKEH+7,16
  91. 5005 POKELO+7,3:POKEPH,8:POKEPL,8
  92. 5010 YY=3:L=S(6)*64+13:POKEV+12,168
  93. 5020 POKEL,16:POKEL-3,16:FORX=1TO8:YY=YY+.3:POKEV+13,YY:POKELO,YY:POKELO+7,YY
  94. 5025 NEXTX
  95. 5030 GOSUB5500:IFYY>175THEN5060
  96. 5040 POKEL,0:POKEL-3,0:FORX=1TO8:YY=YY+.3:POKEV+13,YY:POKELO,YY:POKELO+7,YY
  97. 5050 NEXT X:GOTO5020
  98. 5060 PRINT"       [150]RETRO THRUSTERS FIRING...[146]        ";
  99. 5061 FORII=1TO300:NEXTII
  100. 5062 POKEWA,129:POKEWA+7,129:POKEH,7:FORX=15TO1STEP-.08:POKEVO,X:GOSUB5500
  101. 5065 YY=YY+.04:POKEV+13,YY:NEXT X
  102. 5067 PRINT"     *** PLANETFALL SUCCESSFUL ***      ";
  103. 5070 POKEWA,17:POKEWA+7,0
  104. 5080 POKEVO,15:FORX=1TO5:PRINT"[150]0":POKEH,20:FORDL=1TO100:NEXT
  105. 5090 PRINT"0":POKEH,0:FORDL=1TO100:NEXT:NEXT
  106. 5100 PRINT"                     "
  107. 5110 FORDL=1TO1000:NEXT:PRINT"[144]METEOR SHOWER... MAN ALL ROCKET STATIONS";
  108. 5115 POKEWA,17:FORX=1TO9:POKE53281,X:FORZ=0TO40STEP.5
  109. 5120 POKEH,Z:NEXT Z:NEXT X:POKE53281,0
  110. 5200 PRINT"                                        ";:RETURN
  111. 5500 PRINT"[156]ALTITUDE[146]  [159]";185-INT(YY);"[147] "
  112. 5510 RETURN
  113. 6000 MX=MX+XC*8:IFMX>255THENMX=MX-255:POKEV+16,PEEK(V+16)+16
  114. 6010 MY=MY-8:IFMY<50THENPOKERY,0:FI=0:POKEWA+14,0:RETURN
  115. 6020 POKERX,MX:POKERY,MY:ER=0:POKEH+14,255-MY:POKEVO,15
  116. 6025 IF(PEEK(V+30)ANDN)=NTHEN6200
  117. 6100 RETURN
  118. 6200 ER=1:POKEWA+14,0:PT=PT+AW*100:GOTO7500
  119. 7000 POKEH,6:POKEVO,15:POKEV+1,0:POKERY,0:NH=NH+1:POKEWA,129
  120. 7005 IFHI=1THENPOKEV+16,32
  121. 7010 FORX=15TO0STEP-.3:POKEV+10,SX:POKEV+11,SY:POKEVO,X:POKEV+29,32:POKEV+23,32
  122. 7020 POKEV+10,SX:POKEV+11,SY+4:POKEVO,X:POKEV+29,0:POKEV+23,0:NEXT X
  123. 7030 POKEV+11,0:FI=0:GOTO200
  124. 7500 PRINT"[156]SCORE:";PT;"[157]   [159]PANICS:";PA;"[157] ";
  125. 7505 PRINT"  [156]HIGH:";SC(1)
  126. 7506 C$="[156]":IFDA<10THENC$="[150]"
  127. 7507 X=FRE(0):REM AVOIDS GARBAGE COLLECTION
  128. 7508 IFDA=0THENPRINT"  ":RETURN
  129. 7510 PRINT"[158]% DAMAGE:";C$;:FORX=1TODA:PRINT"[208]";:NEXT X:PRINT"[146] ";:RETURN
  130. 8000 PRINT"[144]      ROX ATTACK";AW;"[157] COMPLETED!!"
  131. 8010 PRINT"        BONUS OF 100 *";AW
  132. 8020 PT=PT+AW*100:POKEVO,15:POKEWA,33:FORX=0TO10:POKE53281,RND(1)*16:FORY=0TO60
  133. 8030 POKEH,Y:NEXTY:NEXTX:POKEWA,0:POKE53281,0
  134. 8040 PRINT"                                       "
  135. 8045 PRINT"                         ":GOSUB7500
  136. 8050 AW=AW+1:IFAW<7THEN190
  137. 8060 GOTO15000
  138. 10000 PRINT"[147]     *** MOON BASE DONE IN !! ***       "
  139. 10010 POKEV+21,32:POKEWA,129:POKEH,RND(1)*254:FORX=15TO0STEP-.1
  140. 10020 POKEV+10,170:POKEV+11,180:POKEV+23,0:POKEV+29,0:POKEVO,X
  141. 10030 POKEV+10,166:POKEV+11,174:POKEV+23,2:POKEV+29,32:POKEV,0:NEXT X
  142. 10040 POKEV+21,0:POKEWA,0:BL=1
  143. 11000 PRINT"[147]YOUR SCORE WAS .. ";PT
  144. 11005 POKEWA,0:POKEWA+7,0:POKEWA+14,0
  145. 11010 PRINT"TO THIS IS ADDED A BONUS FOR YOUR";INT(NH*100/60)
  146. 11020 PRINT"PERCENT SHOOTING ACCURACY."B1=INT((NH/60)*5000)
  147. 11030 PRINT"BONUS:";B1:PT=PT+B1
  148. 11040 IFBL=1THENBL=0:GOTO11100
  149. 11050 PRINT"AND AN ADDITIONAL BONUS- FOR FINISHING"
  150. 11060 PRINT"WITH AN INTACT MOON BASE!!"
  151. 11070 PRINT"BONUS: 5000 PTS.":PT=PT+5000
  152. 11100 PRINT"[158]YOUR FINAL SCORE WAS THUS[159]";PT
  153. 11110 FORX=0TO20:GETA$:NEXT X:Z=0:FORX=1TO10:IFPT>SC(X)THENZ=X:X=11
  154. 11120 NEXT X:IFZ=0THEN11500
  155. 11130 PRINT"ENTER TEXT FOR SCORE TABLE:";
  156. 11140 INPUTA$:IFLEN(A$)>15THENA$=LEFT$(A$,15)
  157. 11150 IFZ=10THEN11200
  158. 11160 FORX=9TOZSTEP-1:SC(X+1)=SC(X):SC$(X+1)=SC$(X):NEXT X
  159. 11200 SC(Z)=PT:SC$(Z)=A$:FI=0
  160. 11500 PRINT"[147][158]ROX-64 ALL TIME BEST"
  161. 11510 PRINT"[156][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  162. 11520 FORX=1TO10:PRINT"[159]#";X;TAB(10);"";SC(X);TAB(23);"[158]";SC$(X)
  163. 11530 NEXT X:X=FRE(0)
  164. 11540 PRINT"     PRESS 'SPACE' FOR A NEW GAME"
  165. 11550 P=PEEK(KEY):IFP<>60THEN11550
  166. 11560 GOTO100
  167. 12000 PRINT"      ***EXCESS SEISMIC ACTIVITY***":GOSUB7500
  168. 12010 POKEWA,129:POKEH,5:FORX=15TO0STEP-.07:POKEV+17,26:FORD=1TO10:NEXT
  169. 12020 POKEV+17,27:FORD=1TO10:NEXT:POKEVO,X:NEXT X:GOTO 10000
  170. 15000 POKEV+21,66:POKEV+28,2:POKEV+37,7:POKEV+38,2
  171. 15005 PRINT"MISSION COMPLETED. MOTHERSHIP BONUS 5000"
  172. 15010 POKEV+23,2:POKEV+29,2:POKEV+40,4:POKEVO,15:POKEWA,33:POKEWA+7,33
  173. 15015 PT=PT+5000:GOSUB7500
  174. 15020 POKEH,2:POKEH+7,2:POKELO,1:POKELO+7,6:POKEV+3,70
  175. 15030 FORX=0TO156STEP.2:POKEV+2,X:CL=CL+.3:IFCL>15THENCL=0
  176. 15040 POKEV+40,CL:POKEV+37,15-CL:NEXT X
  177. 15060 POKEWA+14,129:FORX=15TO0STEP-.1:YY=YY-.05*(15-X):POKEV+13,YY:POKEV+38,X
  178. 15065 NEXT X:POKEWA+14,17
  179. 15070 YY=YY-.75:POKEV+13,YY:POKEH+14,200-YY:IFYY>77THEN15070
  180. 15080 POKEV+38,2:POKEWA+14,0
  181. 15090 FORX=156TO226STEP.2:POKEV+2,X
  182. 15095 YY=YY-.2:POKEV+13,YY:POKEV+12,X+12:CL=CL+1:IFCL>15THENCL=0
  183. 15096 POKEV+40,CL:POKEV+37,15-CL
  184. 15100 POKEV+3,227-X:NEXT X:GOTO11000
  185. 20000 PRINT"[147]  [158][209][209][209][209]   [209][209][209]  [209]   [209]     [209][209][159][209][209][156][209] [158][209]   [209]   "
  186. 20010 PRINT"  [158][209]   [209] [209]   [209]   [209]       [156][209]     [209]   [209]"
  187. 20020 PRINT"  [158][209][209][209][209]  [209]   [209]   [209]       [156][209][209][158][209][209][209] [209][209][209][209][159][209]  "
  188. 20030 PRINT"  [158][209] [209]   [209]   [209]  [209] [209]      [209]   [209]     [156][209]"
  189. 20040 PRINT"  [158][209]  [209]   [209][209][209]  [209]   [209]     [209][209][209][209][209]     [158][209] "
  190. 20060 PRINT"[153]DEFEND YOUR LUNAR MODULE BY FIRING OFF"
  191. 20070 PRINT"ROCKETS TO INTERCEPT INCOMING METEORS."
  192. 20080 PRINT"TOO MANY GROUND IMPACTS RESULT IN AN"
  193. 20085 PRINT"EARTHQUAKE! SURVIVE 60 METEORS FOR BONUS"
  194. 20090 PRINT"AND RESCUE BY MOTHERSHIP!"
  195. 20100 PRINT"[158]CONTROLS: [159]V,B,N [158]FIRE ROCKETS. [159]SPACE BAR"
  196. 20110 PRINT"[158]ACTIVATES PANIC DESTRUCTOR. [159]A[158] TO ABORT!!"
  197. 20120 FORX=53248TO53248+16:POKEX,0:NEXT
  198. 20130 PRINT"PRESS [159]P[158] TO PAUSE. ";:PRINT"[150]PRESS [159]S[150] TO START GAME[146]";
  199. 20140 IFPEEK(197)<>13THEN20140
  200. 20150 RETURN
  201.