home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / CHOPPER-MAURADE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  10.4 KB  |  270 lines
  1. 10 POKE 55,125:POKE56,61:FORN=54272TO54296:POKEN,0:NEXTN
  2. 20 PRINTCHR$(147):V=53248:GOSUB1530
  3. 30 POKEV+33,14:POKEV+32,0
  4. 570 REM SET UP SCREEN
  5. 580 PRINTCHR$(147)CHR$(149)
  6. 590 FORN=1TO21:PRINT"":NEXT:PRINT"[164][175][185][175][164][175][185][162][185][162][185][162][185][175][164][175][185][175][164][175][185][162][162][162][162][185][175][185][175][164][175][185][175][164][175][185][162][162][185][175]"
  7. 600 POKE V+37,1:POKEV+38,0:POKEV+39,9:POKEV+40,2:POKEV+41,6
  8. 610 POKEV+42,2:POKEV+43,14:POKEV+44,15:POKEV+45,14:POKEV+46,6
  9. 620 POKEV,30:FORN=8TO16:POKEV+N,0:NEXT
  10. 630 POKEV+23,0:POKEV+29,0
  11. 640 POKE 2040,246:POKE2041,251:POKE2042,252:POKE2043,253:POKE2044,254
  12. 650 POKE 2046,254:POKE2047,255:POKE V+28,223
  13. 660 SQ=54272
  14. 670 POKESQ+1,1:POKESQ,12:POKESQ+4,17:POKESQ+24,15:POKESQ+5,0:POKESQ+6,240
  15. 675 POKE SQ+12,15:POKESQ+13,96:POKESQ+7,129
  16. 680 FORY=1TO80:POKE56215+Y,9:POKE1943+Y,160:NEXTY
  17. 690 FORN=1056TO1896STEP40:POKEN,160:POKE54272+N,0:NEXT
  18. 700 FORN=1897TO1903:POKEN,160:POKE54272+N,0:NEXT
  19. 710 POKE214,3:PRINTCHR$(144):POKE211,34:PRINT"SCORE:"
  20. 712 POKE 214,7:PRINT:POKE211,34:PRINT"DIST:"SPC(35)"999"
  21. 713 POKE214,11:PRINT:POKE211,34:PRINT"LIVES:"SPC(36)"3"
  22. 720 POKE214,15:PRINT:POKE211,34:PRINT"HI:"SPC(36)HI
  23. 730 POKE V+2,5:POKEV+4,5:POKEV+6,5:FORN=0TO2:POKE251+N,0:NEXT
  24. 740 DS=1002:SC=0:LI(1)=3:POKE683,0
  25. 760 POKE 54276,32:POKE54276,33:POKE V+1,100:POKE 681,0:POKEV+21,255:POKE787,0
  26. 770 SYS 1006:SYS49152:SYS50256
  27. 780 SYS 50134:SYS49264
  28. 790 IFPEEK(680)>0THEN POKE SQ+11,128:POKESQ+11,129:SN=14:POKE680,0
  29. 795 SN=SN-1.8:IFSN<8THENPOKESQ+11,128
  30. 796 IFSN>7THENPOKESQ+8,SN
  31. 810 SYS 1006
  32. 815 SYS 49355:IFPEEK(251)=1THENSC=SC+300:GOSUB 891
  33. 820 IFPEEK(252)=1THENSC=SC+400:GOSUB 891
  34. 830 IFPEEK(253)=1THENSC=SC+200:GOSUB 891
  35. 840 SYS1006:SYS49152:SYS49264
  36. 845 DS=DS-3
  37. 852 IF DS=-3THEN 900
  38. 853 POKE 214,8:PRINTCHR$(144):POKE211,34:PRINTDS;CHR$(157)" "
  39. 855 SYS1006:SYS49264
  40. 860 IF PEEK(787)=1THEN1380
  41. 890 GOTO 770
  42. 891 POKE214,3:PRINTCHR$(144):POKE211,33:PRINTCHR$(17)SC:RETURN
  43. 900 PRINTCHR$(19):FORN=1TO19:PRINT:NEXT:POKE SQ+11,128
  44. 905 PRINTCHR$(30)CHR$(18);:FORN=1TO40:PRINT" ";:NEXT
  45. 910 POKEV+21,241:POKEV+8,0:POKEV+12,0:POKE679,0:POKE787,0
  46. 920 B1=0:BM=0:B2=0:C=0:POKE2044,11:POKE2046,11
  47. 930 FORN=1TO100:FORM=1TO10:NEXT:POKEV,PEEK(V)+1:NEXT
  48. 940 SYS 1006:SYS50294:SYS50299:SYS50280:SYS50256
  49. 960 IF PEEK(787)=0THEN 970
  50. 961 POKEV+8,0:POKEV+12,0:POKEV+15,0:DS=300:POKE2044,254:POKE2046,254
  51. 963 FORN=0TO3:POKE251+N,0:NEXT:GOTO 1380
  52. 970 IF(PEEK(56320)AND16)<>0THEN1010
  53. 980 IF BM<5THEN1010
  54. 990 IF B1=0THENPOKE V+8,PEEK(V)-3:POKEV+9,PEEK(V+1)+8
  55. 995 IFB1=0THENPOKE2044,254:BM=0:B1=1:GOTO1010
  56. 1000 IF B2=0THENPOKE V+12,PEEK(V)-3:POKEV+13,PEEK(V+1)+8:POKE2046,254:BM=0:B2=1
  57. 1010 BM=BM+1
  58. 1020 IFB1=0THEN1060
  59. 1030 SYS 50294:IFPEEK(V+9)<220THEN1060
  60. 1040 POKEV+43,15:POKE2044,11:POKEV+28,207:POKEV+8,PEEK(V+8)+12:POKE2044,250
  61. 1050 FORN=1TO40:NEXT:POKE V+43,14:POKE2044,11:POKEV+28,223:B1=0:POKEV+8,0
  62. 1060 IFB2=0THEN1100
  63. 1070 SYS 50299:IFPEEK(V+13)<220THEN 1100
  64. 1080 POKEV+45,15:POKE2046,11:POKEV+28,159:POKEV+12,PEEK(V+12)+12:POKE2046,250
  65. 1090 FORN=1TO40:NEXT:POKE V+45,14:POKEV+12,0:POKE2046,11:POKEV+28,223:B2=0
  66. 1100 SYS50294:SYS50299
  67. 1105 PRINTCHR$(19)CHR$(154)PEEK(V+30)
  68. 1110 IF C=1AND(PEEK(V+30)AND129)=128THEN1140
  69. 1120 IF C=0ANDINT(RND(1)*99)=5THENC=1:POKEV+14,255:POKEV+15,213
  70. 1130 SYS 50280:IFC=1ANDPEEK(V+14)<4THEN 1260
  71. 1131 GOTO940
  72. 1140 POKE V+8,0:POKEV+12,0:POKE53248+28,1
  73. 1145 POKE SQ+24,15:POKESQ+4,129:POKESQ+1,1:POKESQ+0,2
  74. 1150 FORN=1TO255:POKE V+46,N:NEXT
  75. 1160 POKE V+28,1:POKEV+46,15:POKE2047,250:POKESQ+1,2:POKEV+8,0:POKEV+9,0
  76. 1170 FORN=1TO200:NEXT:POKE2047,249:POKESQ+1,3
  77. 1180 POKE 2047,248:FORN=1TO200:NEXT:POKESQ+1,3
  78. 1190 POKE2047,249:FORN=1TO200:NEXT:POKESQ+1,2:POKE2047,250:POKESQ+1,1
  79. 1200 SC=SC+LI(1)*1000+5000:POKE214,3:PRINTCHR$(144):POKE211,33:PRINTCHR$(17)SC
  80. 1201 POKEV+21,0
  81. 1210 POKE214,4:PRINT:POKE211,9:PRINT"CONGRATULATIONS,":POKE 2047,255:POKESQ+4,0
  82. 1215 PRINT:PRINTTAB(7)"YOU SAVED THE WORLD!"
  83. 1220 POKE214,9:PRINT:PRINTTAB(8)"PLAY AGAIN (Y/N)?"
  84. 1225 IFSC>HITHENHI=SC:POKE214,16:PRINT:PRINTTAB(33);HI
  85. 1230 IFPEEK(197)=25 THENPOKE254,15:PRINT:GOSUB1660:GOTO570
  86. 1240 IFPEEK(197)<>39THEN 1230
  87. 1250 POKE 198,0:POKE 2,0:SYS 2
  88. 1260 POKEV+8,5:POKEV+12,5:POKEV+14,5:POKEV,30:POKE2044,254:POKE2046,254
  89. 1270 POKE214,21:PRINTCHR$(149):PRINT"[164][175][185][175][164][175][185][162][185][162][185][162][185][175][164][175][185][175][164][175][185][162][162][162][162][185][175][185][175][164][175][185][175][164][175][185][162][162][185][175]"
  90. 1280 DS=300:FORN=0TO4STEP2:POKE53250+N,255:POKE251+N/2,0:NEXT:POKEV+21,127
  91. 1290 GOTO770
  92. 1379 FORN=1TO100:NEXT:RETURN
  93. 1380 LI(1)=LI(1)-1:POKESQ+11,128:POKE SQ+124,15:POKESQ+4,129:POKESQ+1,1:POKESQ,2
  94. 1390 POKE V+10,PEEK(V):POKEV+11,PEEK(V+1):POKEV,0
  95. 1400 POKE2045,250:GOSUB1379:POKE2045,249:GOSUB1379:POKE2045,248:GOSUB1379
  96. 1410 POKE2045,249:GOSUB1379:POKE2045,250:GOSUB1379:POKEV+21,0          
  97. 1430 POKE 1580,LI(1)+48
  98. 1435 POKE SQ,2:POKESQ+4,128
  99. 1440 IF LI(1)=0THEN 1500
  100. 1445 POKE214,8:PRINTCHR$(144):PRINTTAB(8)"GET READY PILOT!"
  101. 1450 WAIT 56320,16,255
  102. 1451 POKE214,21:PRINTCHR$(149):PRINT"[164][175][185][175][164][175][185][162][185][162][185][162][185][175][164][175][185][175][164][175][185][162][162][162][162][185][175][185][175][164][175][185][175][164][175][185][162][162][185][175]"
  103. 1470 POKE V+1,100:POKEV,30:POKEV+11,0:POKEV+28,143+16+64:POKESQ+4,32
  104. 1480 POKESQ+4,32:POKESQ+4,33:FORN=1392TO1407:POKEN,32:NEXT
  105. 1490 POKE V+2,5:POKEV+4,5:POKEV+6,5:POKEV+21,255:POKE787,0
  106. 1495 FORM=0TO2:POKE251+M,0:NEXT:GOTO770
  107. 1500 POKE 214,7:PRINTCHR$(144):PRINTTAB(11)"GAME OVER":FORN=1TO1000:NEXT
  108. 1510 WAIT 56320,16,255:GOTO1220
  109. 1530 POKE 53280,15:POKE53281,0:POKE V+21,0
  110. 1535 FORX=50000TO50048:READA:POKEX,A:NEXT
  111. 1536 PRINT"  [221] WRITTEN BY: ARTHUR III           [221]
  112. 1537 [153]"  (null) RELEASED INTO PUB.DOM.           (null)
  113. 1538 PRINT"  [221] ON 12/10/86                      [221]
  114. 1539 [153]"  (null)                                  (null)
  115. 1540 PRINT"  [221] IF YOU ENJOY THIS GAME, PLEASE   [221]
  116. 1541 [153]"  (null) SEND $15, $10, OR                (null)
  117. 1542 PRINT"  [221] WHATEVER YOU CAN AFFORD TO:      [221]
  118. 1544 [153]"  (null)   KING ARTHUR III                (null)
  119. 1545 PRINT"  [221]   P.O. BOX 579                   [221]
  120. 1546 [153]"  (null)   DUNEDIN, FL 33528              (null)
  121. 1547 PRINT"  [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  122. 1550 PRINTTAB(11)"CH[158]OPPER[160][156]MARA[158]UDER":POKE682,255
  123. 1555 POKE214,19:PRINT:PRINTTAB(8)CHR$(5)"USE JOYSTICK IN PORT #2"
  124. 1560 SYS50000:FORX=50049TO50314:READA:POKEX,A:NEXT
  125. 1565 FORX=828TO1005:READA:POKEX,A:NEXT
  126. 1570 FORX=690TO703:READA:POKEX,A:NEXT:FORX=49152TO49499:READA:POKEX,A:NEXT
  127. 1580 FORN=704TO766:POKEN,0:NEXT:POKE 54287,255:POKE54290,128
  128. 1590 FORN=15744TO16382:READ A:POKE N,A:NEXTN
  129. 1620 POKE 254,21:PRINTCHR$(5)
  130. 1621 GOSUB 1660
  131. 1630 SYS690:FORX=1006TO1018:READA:POKEX,A:NEXT
  132. 1650 RETURN
  133. 1660 PRINTTAB(11)"SKILL LEVEL(1-3)"
  134. 1670 WAIT 198,255:GETA$:IFVAL(A$)>3ORVAL(A$)<1THEN1670
  135. 1680 A=VAL(A$):A=4-A:POKE 50120,A:RETURN
  136. 2035 REM        SCROLL ROUTINE
  137. 2040 DATA120,169,93,141,20,3,169,195,141,21,3,88,96,238,170,2
  138. 2050 DATA 173,170,2,208,25,169,253,141,170,2,234,174,210,217,160
  139. 2060 DATA 61,185,148,217,153,149,217,136,192,46,208,245
  140. 2070 DATA 142,195,217,76,49,234,162,0,232,232,189,1,208
  141. 2080 DATA 201,216,144,9,173,27,212,157,1,208,76,133,195
  142. 2090 DATA201,51,176,9,173,27,212,157,1,208,76
  143. 2100 DATA 133,195,224,6,208,221,173,1,208,201,44
  144. 2110 DATA 176,8,169,44,141,1,208,76,49,234,201,230
  145. 2120 DATA 144,5,169,230,141,1,208,76,49,234,238,171,2,173,171,2
  146. 2130 DATA 201,3,240,3,76,208,3,169,0,141,171,2,76,105,3
  147. 2131 DATA162,0,181,251,201,1,208,15,169,15,157,40,208,169,249,157
  148. 2132 DATA 249,7,246,251,76,21,196,201,2,208,5,169,248,76,229,195,201,3
  149. 2133 DATA 240,233,201,4,208,5,169,250,76,229,195,201,5,208,14,169,0
  150. 2134 DATA 149,251,169,3,141,2,208,169,11,157,249,7,232,224,3,240
  151. 2135 DATA 9,238,14,196,238,14,196,76,216,195,169,2,141,14
  152. 2136 DATA 196,96,173,172,2,41,16,201,16,208,5,169,1,141,88
  153. 2137 DATA2,173,172,2,41,64,201,64,208,5,169,2,141
  154. 2138 DATA88,2,173,172,2,41,15,141,87,2,76,129,195
  155. 2139 DATA 174,1,208,173,141,2,41,1,201,1,208
  156. 2140 DATA 11,169,255,141,171,2,142,1,208,76,83
  157. 2150 DATA 196,96,173,14,208,201,4,144,6,206
  158. 2151 DATA 14,208,206,14,208,96,162,9,76,125
  159. 2152 DATA 196,162,13,189,0,208,201,220,176,6,254,0
  160. 2153 DATA 208,254,0,208,96
  161. 2157 REM      STOP-INTERRUPT ROUTINE
  162. 2158 DATA 173,248,7,201,247,240,5,169,247,76,74,3,169,246,141,248,7,173
  163. 2159 DATA 0,220,41,15,201,14,208,6,206,1,208,206,1,208,201,13,208,6,238
  164. 2160 DATA 1,208,238,1,208,76,193,195,162,0,206,6,208,206
  165. 2170 DATA2,208,206,4,208,232,224,1,240,245,224,2,240,244,162,0,160
  166. 2180 DATA 0,232,200,200,224,4,208,3,76,208,3,185,0,208,201,4
  167. 2190 DATA 176,239,138,105,250,157,248,7,169,0,149,250,173,27,212,153,1
  168. 2195 DATA 208,132,2,224,1,208,7,169,2,160,2,76,190,3,224,2,208,7,169
  169. 2200 DATA 6,160,4,76,190,3,169,9,160,8,132,190,157,39,208
  170. 2210 DATA 173,28,208,5,190,141,28,208,164,2,76,129,3,173,1
  171. 2211 DATA 208,201,214,176,12,173,30,208,141,172,2,41
  172. 2212 DATA 1,201,1,208,5,169,1,141,19,3,32,22,192,76,41,196
  173. 2215 REM     STOP-INTERRUPT SET UP
  174. 2220 DATA 120,169,60,141,20,3,169,3,141,21,3,88,96,32
  175. 2225 REM     SCREEN SCROLL ROUTINE
  176. 2230 DATA 174,112,7,160,5,185,108,7,136,153,108
  177. 2231 DATA 7,200,200,192,44,208,243,142,151,7,96
  178. 2232 REM     MISSLE ROUTINES
  179. 2233 DATA165,254,201,255,240,2,230,254,173,167,2,41,2,201,2,240
  180. 2234 DATA 37,173,167,2,41,1,201,1,240,1,96,173,8,208,105,2,141
  181. 2235 DATA8,208,201,253,176,1,96,173,167
  182. 2236 DATA2,41,2,141,167,2,169,0,141
  183. 2237 DATA8,208,96,173,12,208,105,2,141
  184. 2238 DATA12,208,201,253,176,3,76,39,192
  185. 2239 DATA173,167,2,41,1,234,234,234
  186. 2240 DATA 234,234,141,167,2,169,0,141
  187. 2241 DATA 12,208,76,39,192,173,30,208,165,254,201,15,144
  188. 2242 DATA 9,173,0,220,41,16,201,0,240,1
  189. 2243 DATA 96,173,167,2,41,2,201,2,240,28,169,0,133,254
  190. 2244 DATA238,167,2,238,167,2,173,0,208,105,10,141,12,208,173,1,208,141
  191. 2245 DATA13,208,238,168,2,96,173,167,2
  192. 2246 DATA41,1,201,0,240,1,96,169,0
  193. 2247 DATA133,254,238,167,2,173
  194. 2248 DATA0,208,105,10,141,8,208,173,1
  195. 2249 DATA208,141,9,208,238,168,2,96
  196. 2250 DATA173,88,2,201,1,208,93,173,167
  197. 2251 DATA2,45,207,192,205,207,192,208
  198. 2252 DATA82,162,0,173,87,2,41,2,205,227
  199. 2253 DATA192,208,35,169,250,157,249,7
  200. 2254 DATA169,15,157,40,208,173,28,208,41,253
  201. 2255 DATA141,28,208,169,1,149,251,173
  202. 2256 DATA167,2,41,254,141,167,2,169,0
  203. 2257 DATA141,8,208,232,224,3,240,20,173
  204. 2258 DATA227,192,109,227,192,141,227,192,169
  205. 2259 DATA255,237,227,192,141,247,192,76
  206. 2260 DATA223,192,169,253,141,247,192,169
  207. 2261 DATA2,141,227,192,173,207,192,201,2,240
  208. 2262 DATA16,238,207,192,169,253
  209. 2263 DATA141,3,193,169,12,141,10,193
  210. 2264 DATA76,203,192,206,207,192,169,254,141
  211. 2265 DATA3,193,169,8,141,10,193,173,28,208,9,1,141,28,208,96
  212. 3256 REM       CHOPPER SPRITE #1
  213. 3270 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  214. 3280 DATA 21,64,0,0,64,20,2,188
  215. 3285 DATA 32,10,191,42,10,191,42,170,170,10,170,170,0,10,168,0,3,48
  216. 3290 DATA 0,3,51,0,63,252,0,0,0,0,0,0,0,0,0,0,0,0,0
  217. 3300 REM       CHOPPER SPRITE #2
  218. 3310 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  219. 3315 DATA85,0,0,64,80,2,188,32,10,191,32
  220. 3320 DATA10,191,42,170,170,10,170,170,0,10,168
  221. 3325 DATA0,3,48,0,3,51,0,63,252,0,0,0,0,0,0
  222. 3330 DATA0,0,0,0,0,0,0
  223. 3335 REM     BIG EXPLOSION SPRITE
  224. 3340 DATA3,231,224,7,247,254,31,220,62,60
  225. 3345 DATA63,222,59,253,230,119,246,253,247,142
  226. 3350 DATA253,239,122,187,254,250,219,254,183
  227. 3355 DATA 87,247,173,93,238,186,219,238,199,215
  228. 3360 DATA234,255,86,219,124,214,219,155,188
  229. 3365 DATA92,247,108,63,255,220,15,124,60,15,225
  230. 3370 DATA248,1,231,224
  231. 3371 REM     MEDIUM EXPLOSION SPRITE
  232. 3375 DATA0,0,127,224,31,255,240,63,248,120,127,247,188,255,193,220
  233. 3380 DATA255,252,110,247,14,111,238,127,175
  234. 3385 DATA239,239,247,239,220,247,239,191,118,239
  235. 3390 DATA189,190,239,187,191,230,231,239
  236. 3395 DATA246,127,239,255,125,207,127,123,31,127
  237. 3400 DATA147,254,63,255,252,15,255,248,1,249,248
  238. 3401 REM     SMALL EXPLOSION SPRITE
  239. 3405 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  240. 3410 DATA255,0,3,255,128,7,39,128,7,121,192,14
  241. 3415 DATA207,192,13,117,192,15,94,192,15,96
  242. 3420 DATA192,7,173,192,7,179,192,3,255,128
  243. 3423 DATA0,255,0,0,62,0,0,0,0,0,0,0,0
  244. 3425 REM      JET SPRITE
  245. 3430 DATA0,0,0,0,0,0,0,0,0,0,0,240,0,1,240
  246. 3435 DATA15,234,248,170,170,250,0,42,168,0,0,0,0
  247. 3440 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  248. 3445 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  249. 3450 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,15
  250. 3455 DATA0,0,60,0,250,170,3,250,170,15,250
  251. 3460 DATA170,170,170,191,10,170,170,2,170,170,0
  252. 3463 DATA170,170,0,0,60,0,0,15,0,0,0,0,0,0
  253. 3465 REM     CRUISER SPRITE
  254. 3470 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,255,15
  255. 3475 DATA255,252,0,12,48,0,90,168,1,90,168
  256. 3480 DATA5,90,168,42,170,168,170,170,168,42,170
  257. 3485 DATA160,0,192,192,15,255,240,3,255
  258. 3490 DATA252,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  259. 3495 REM     MISSLE SPRITE
  260. 3500 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  261. 3505 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,160,0,0,168,0,0,154
  262. 3510 DATA 0,0,150,0,0,154,0,0,168,0,0,160,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  263. 3515 REM     COMPUTER BUILDING SPRITE
  264. 3520 DATA 0,0,0,0,0,0,0,0,0,0,0,0,3,255
  265. 3525 DATA 255,15,255,254,63,255,250,21,85,90,21,85
  266. 3530 DATA 90,25,101,154,25,101,154,25,101,154,21,85,90,21,85,90
  267. 3540 DATA 21,85,90,21,85,90,25,125,90,25,125,90,21,125
  268. 3541 DATA 90,21,125,90,21,125,90
  269. 3550 DATA 173,0,220,41,15,201,14,240,3,238,1,208,96
  270.