Use Z (left) and . (right) to stay on course (closest to 0) and not crash.
PROG : 16509
D-FILE: 18230
VARS : 19023
E-LINE: 19024
STKBOT: 19024
STKEND: 19024
9999 means line number
PRINT means treat as KEYWORD P
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