Can you land your ship without crashing? Use 5 and 8 to steer left and right.
PROG : 16509
D-FILE: 17484
VARS : 18277
E-LINE: 18278
STKBOT: 18278
STKEND: 18278
9999 means line number
PRINT means treat as KEYWORD P
10 REM ****LANDER****
BY:STEVEN REID 1984
20 FOR A=10 TO 20
30 PRINT AT A,0;"
"
40 NEXT A
50 DIM A$(2,8)
60 LET Y1=1
70 LET Y2=10
80 LET ME=6
90 LET A$(1)=" !!úú!! "
100 LET A$(2)=" !!ùù!! "
110 LET I=1
120 PRINT AT Y1-1,0;"
";AT Y1,Y2
;"³¹³";AT 10,ME;A$(I)
130 LET Y1=Y1+1
140 LET Y2=Y2-(INKEY$="5" AND Y
2>0)+(INKEY$="8" AND Y2<28)
150 GOSUB 280
160 LET ME=ME+RND AND (ME>0
AND ME<28)
170 LET I=I-(I=2)+(I=1)
180 IF Y1=10 THEN GOTO 200
190 GOTO 120
200 PRINT AT 9,0;"
"
210 PRINT AT 10,ME;A$(I);AT 10,
Y2;"³¹³"
220 IF Y2<ME+1 OR Y2+2>ME+6
THEN GOTO 250
230 PRINT AT 12,3;"YOU DID IT<>
<>"
240 GOTO 310
250 PRINT AT 12,3;"BOOM***YOU C
RASHED..."
260 PRINT AT 10,Y2;"öñö"
270 GOTO 310
280 LET RND=INT (RND*2)
290 LET RND=RND-(RND=0)
300 RETURN
310 PAUSE 4E4
320 IF INKEY$<>"N" THEN RUN
330 STOP
400 SAVE "LANDER"
410 RUN