ZX81 Listing for jf.p


ZX81 program listing for **JET FLYER**SLR/1984**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18230
VARS  : 19023
E-LINE: 19024
STKBOT: 19024
STKEND: 19024


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **JET FLYER**SLR/1984**
  11 PRINT "GUIDE YOUR PLANE OVE
R THE LAND  WHILE KEEPING YOUR J
ET ON COURSESO AS NOT TO HIT THE
 HANGER     WALLS..."
  12 PRINT ,,,,"PRESS ENTER TO B
EGIN..."
  13 PAUSE 4E4
  14 CLS
  20 LET S=0
  30 LET T=100
  40 LET C=0
  50 LET B=500
  60 LET X=5
  70 LET Y=1
  80 LET X1=5
  90 LET Y1=13
 100 FOR A=T TO 0 STEP -1
 105 FAST
 110 PRINT AT 0,0;"!!!!!!!!!!!!!
!!                 !            
 !                 !            
 !                 !      *     
 !                 !            
 !                 !            
 !                 !!!!!!!!!!!!!
!!                 COURSE:";C;" 
  "
 120 PRINT "TIME REMAINING:";A;"
 "
 130 GOSUB 300
 160 IF RND>.7 THEN LET C=C+(
INT (3*RND-1))
 165 SLOW
 170 LET L$=INKEY$
 180 LET X=X-(L$="Z" AND X>1
AND (X1=5 AND Y=1))+(L$="."
AND X<5)
 190 LET X1=X1-(L$="." AND X1>1
AND (X=5 AND Y1=13))+(L$="Z"
AND X1<5)
 200 LET Y=Y+(2 AND (L$="." AND
Y<9 AND Y1=13))-(2 AND (L$="Z"
AND Y>1))
 210 LET Y1=Y1-(2 AND (L$="Z"
AND Y1>5 AND (Y=1 AND X<5)))+(2
AND (L$="." AND Y1<13))
 230 IF L$="Z" THEN LET C=C-(X1=
5 AND X<5)
 240 IF L$="." THEN LET C=C+(X=5
AND X1<5)
 280 NEXT A
 290 GOTO 500
 300 LET A1=X-X1
 310 LET B1=Y-Y1
 320 LET C1=(A1 AND ABS A1>=ABS
B1)+(B1 AND ABS B1>ABS A1)
 330 IF C1=0 THEN LET C1=0.1
 340 FOR F=0 TO C1 STEP SGN C1
 350 PRINT AT X+A1/C1*-F,Y+B1/C1
*-F;" "
 360 NEXT F
 370 RETURN
 400 PRINT AT 3,7;"X";AT 12,0;"C
RASHED INTO WALL OF HANGER***  S
CORE=";S
 401 SLOW
 410 PRINT ,,,,"PRESS ENTER TO B
EGIN..."
 420 PAUSE 4E4
 430 CLS
 440 RUN
 500 PRINT AT 11,0;"TIMES UP..."
 510 LET S=S+50+INT (RND*5+1*5)
 520 IF C<-2 OR C>2 THEN GOTO 40
0
 530 LET S=S+T
 540 LET T=T+(10 AND T<500)
 550 PRINT "YOU MADE IT, KEEP UP
 THE GOOD   WORK FLYER..."
 560 PAUSE 4E4
 570 CLS
 580 GOTO 40
 600 SAVE "JF"
 610 RUN