Loadstar 17/017.d81/dogfight!

Commodore BASIC | 2022-08-26 | 3KB | 76 lines

5 POKE53280,6:POKE53281,14:PRINT"[147]              DOGFIGHT !!":PRINT
10 S1=256*PEEK(46)+PEEK(45)-319:S2=S1+54
20 PRINT"PLUG JOYSTICK IN PORT 2.  REMEMBER: THE"
25 PRINT"JOYSTICK CONTROLS [158]YOUR PLANE, AS SHOWN"
30 PRINT"BY THE MOVEMENT OF THE GUNSIGHT.  YOUR"
35 PRINT "SCORE IS 50 TIMES THE NUMBER OF KILLS,"
40 PRINT"LESS THE NUMBER OF SHOTS.  THE ENEMY"
45 PRINT"LOOKS LIKE THE PLANE BELOW. TO SCORE A"
50 PRINT"KILL YOU MUST BRING THE ENEMY PLANE"
55 PRINT"INTO YOUR SIGHT AND FIRE.  THE FIRST"
60 PRINT"HIT CAUSES THE PLANE TO ENLARGE; THE"
65 PRINT"SECOND HIT CAUSES IT TO EXPLODE."
70 PRINT"YOU START WITH 255 ROUNDS OF AMMO."
75 PRINT"PRESS 'R' WHEN READY."
80 FOR I = 16000 TO 16384 : POKE I,0 : NEXT
85 FOR J = 1 TO 5 : READ SP,B,E : POKE 2040 + SP, 250 + SP
90 FOR I = B TO E : READ N : POKE (250+SP)*64+I-1,N : NEXT I : NEXT J
95 POKE 53248,160 : POKE 53249,185 : POKE 53287,3
100 POKE 53250,160 : POKE 53251,185 : POKE 53288,3
105 POKE 53252,160 : POKE 53253,185 : POKE 53289,3
110 POKE 53254,160 : POKE 53255,185 : POKE 53290,3
115 POKE 53256,160 : POKE 53257,185 : POKE 53291,3
120 POKE 53269,1  : FOR M = 1 TO 125: NEXT
125 POKE 53269,2  : FOR M = 1 TO 125: NEXT
130 POKE 53269,4  : FOR M = 1 TO 125 : NEXT
135 POKE 53269,8  : FOR M = 1 TO 125: NEXT
140 POKE 53269,16 : FOR M = 1 TO 125: NEXT
145 POKE 53269,8 : FOR M = 1 TO 125 : NEXT
150 POKE 53269,4  : FOR M = 1 TO 125 : NEXT
155 POKE 53269,2  : FOR M = 1 TO 125: NEXT
160 GET AN$ : IF AN$ = "" THEN 120
165 S = 54272 : POKE S+12,32:POKE S+13,251:POKE S+8,15
170 PRINT"[147]":INPUT"LEVEL (1-10)";L:PRINT"[147]":PRINT:POKE 679,L:POKE 680,L+1
175 POKE 681,2*L : SYS S1
180 PRINT TAB(35) "TIME" "[157][157][157][157][157]" "SHOTS" "[157][157][157][157][157]" "KILLS";
185 TI$="000000": POKE 682,0 : KL = 0
190 POKE S+6,16 : POKE S+1,200 : POKE S+24,3 : POKE S+4, 129
195 POKE1479,112:POKE1480,114:POKE1481,110:POKE1519,107:POKE1520,87
200 POKE 1521,115 : POKE 1559,109 : POKE 1560,113 : POKE 1561,125
205 POKE 55751,1 : POKE55752,1 : POKE55753,1 : POKE 55791,1 : POKE 55792,1
210 POKE 55793,1 : POKE 55831,1 : POKE 55832,1 : POKE 55833,1
215 POKE 53269,0 : POKE 53271,0 : POKE 53277,0 : POKE 683,0
220 POKE251,INT(250*RND(1)):POKE252,INT(200*RND(1)+40)
222 POKE253,2:POKE254,4
225 IF(TI$="000200"ORPEEK(682)=255)THEN270
230 SYS S2
236 IF PEEK(683) = 2 THEN 295
240 IF PEEK (683) = 3 THEN 215
245 X = PEEK(251)+PEEK(679)*(PEEK(253)-2)
250 IF ((X<0) OR (X>255)) THEN 215
255 POKE 251,X:DEAD=FRE(9)
260 PRINT""TAB(34)MID$(TI$,2,3)":"RIGHT$(TI$,2):PRINTTAB(34)""PEEK(682)
262 PRINTTAB(35)""KL
265 GOTO 225
270 SC = KL*50 - PEEK(682)
275 PRINT"[147]""GAME OVER!  YOUR SCORE IS ";SC
280 INPUT "PLAY AGAIN"; AN$
285 IF AN$ = "Y" THEN PRINT"[147]" : GOTO 170
290 GOTO63000
295 POKE 53281,1 : FOR I=1 TO 75 : NEXT : POKE 53281,2 : POKE S+24,15
300 POKE S+11,129 : FOR I= 1 TO 75  : NEXT
305 POKE 53281,7 : FOR I = 1 TO 75 : NEXT : POKE S+11,128 : POKE S+24,3
310 POKE 53281,14 : KL = KL + 1:GOTO 215
1000 DATA 0,12,52,32,0,0,96,0,0,128,1,33,0,0,194,0,0,196,0,1,56,0,0,40,0
1005 DATA 0,56,0,0,64,0,0,128,0,1,0,0,2,0,0,4,0,0,12
1010 DATA 1,18,46,4,0,160,24,0,64,64,0,161,0,0,60,0,0,40,0,0,120,0,1,0,0,4
1015 DATA 0,0,16,0,0,96
1020 DATA 2,19,39,0,16,0,0,124,0,0,16,0,0,56,0,255,239,254,64,56,4,0,16,0
1025 DATA 3,16,48,64,0,0,48,10,0,4,4,0,1,10,0,0,120,0,0
1030 DATA 40,0,0,60,0,0,1,0,0,0,64,0,0,16,0,0,12,4,10,54
1035 DATA 8,0,0,12,0,0,2,0,0,1,9,0,0,134,0,0,70,0,0,57,0,0,40,0,0
1040 DATA 56,0,0,4,0,0,2,0,0,1,0,0,0,128,0,0,64,0,0,96
63000 REM  CONNECT TO LS
63002 POKE53248+21,0:POKE51200,0
63004 LOAD"PAYLOAD CONNECT",8