ZX81 Listing for crdr.p


ZX81 program listing for *CANYON RAIDER*SLR/1983

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18131
VARS  : 18924
E-LINE: 18925
STKBOT: 18925
STKEND: 18925


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

   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