Steer your ship with Z and X to avoid objects or capture fuel. Use M to break things.
PROG : 16509
D-FILE: 18131
VARS : 18924
E-LINE: 18925
STKBOT: 18925
STKEND: 18925
9999 means line number
PRINT means treat as KEYWORD P
1 REM *CANYON RAIDER*SLR/1983
5 CLS
10 LET S=0
20 LET M=3
30 LET A$=" ! ! "
40 LET B$=" ! ! "
50 LET C$=" ! ! "
60 LET D$="! !"
70 LET F=99
80 LET A=6
90 LET X=0
100 LET X$="!"
120 PRINT AT 5,13;"CANYON RAIDE
R"
121 PRINT AT 6,13;"PLANES:";M;
AT 7,13;"SCORE: ";S
122 PRINT AT 9,13;"PRESS TO STA
RT"
123 PAUSE 4E4
125 CLS
130 FOR V=1 TO 10
140 LET Y$=(A$ AND V=1)+(B$
AND (V=2 OR V=3 OR V=6 OR V=10)
)+(C$ AND (V=4 OR V=5 OR V=7 OR
V=9))+(D$ AND V=8)
160 PRINT AT 10,0;Y$;AT 1,A;X$;
AT 1,13;"F:";F
170 SCROLL
175 LET R=INT (RND*10+1)
180 PRINT AT 9,INT (RND*5+4);("
" AND R=2)+("O" AND R=5)+("F"
AND R=7)
190 LET A=A-(INKEY$="Z")+(
INKEY$="X")
200 IF INKEY$="M" THEN LET X=6
201 IF X>0 THEN LET X=X-1
205 IF X<>0 THEN LET X$="X"
206 IF X=0 THEN LET X$="!"
210 PRINT AT 1,A;
220 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
225 IF P THEN GOTO 300
230 LET F=F-1-(4 AND X$="X")
240 IF F<=0 THEN GOTO 400
250 NEXT V
260 GOTO 130
300 IF P=8 THEN GOTO 400
305 IF P<>171 AND X$<>"X" THEN
GOTO 400
310 IF X$="X" THEN LET S=S+(50
AND P=128)+(100 AND P=180)+(150
AND P=171)
315 IF X$<>"X" AND P=171 THEN
LET F=F+(20 AND F<80)+(99-F AND
F>=80)
320 GOTO 230
400 LET M=M-1
401 PRINT AT 5,13;"CANYON RAIDE
R"
405 PRINT AT 1,A;"ö";AT 4,15;"*
*CRASH**"
410 IF M=0 THEN GOTO 450
420 GOTO 70
450 PRINT AT 5,13;"CANYON RAIDE
R"
455 PRINT AT 6,13;"SCORE:";S
456 IF INKEY$<>"" THEN GOTO 456
460 PRINT AT 7,15;"GAME OVER"
465 LET A=SIN PI
470 PRINT AT 7,15;"GAME OVER"
475 LET A=SIN PI
480 IF INKEY$<>"" THEN RUN
490 GOTO 460
500 SAVE "CRDR"
510 RUN