Land your ship in as few moves and as much as possible.
PROG : 16509
D-FILE: 17584
VARS : 18377
E-LINE: 18378
STKBOT: 18378
STKEND: 18378
9999 means line number
PRINT means treat as KEYWORD P
1 REM **LANDER 2**SLR/1983***
2 LET S=0
3 LET T=1
4 REM HI SCORE=601
5 LET C$=" ±²ö"
6 LET D$=" õ!"
7 LET E$=" ´÷¶"
10 PRINT TAB 10;"SPACE LANDER"
11 LET H=INT ((7*RND+5)-1)*3
15 PRINT AT 9,H;">¸"
16 PRINT AT 10,H;">¸"
17 PRINT AT 11,H;">¸"
20 LET B=0
25 LET C=0
30 INPUT A
40 LET B=B+A
50 FOR X=C TO B
55 PRINT AT 9,X;C$
56 PRINT AT 10,X;D$
57 PRINT AT 11,X;E$
58 NEXT X
59 LET C=B
60 IF B+4>=H THEN GOTO 80
61 LET T=T+1
70 GOTO 30
80 IF B+4>H THEN GOTO 120
90 PRINT AT 10,B-2;"¸óó"
100 PRINT AT 13,9;"TOUCH DOWN"
110 IF T=1 THEN LET S=S+INT (20
*RND+4)
111 LET S=S+20-T
112 IF T=2 THEN LET S=S+INT (15
*RND+3)
113 IF T=3 THEN LET S=S+INT (10
*RND+2)
114 IF T=4 THEN LET S=S+INT (5*
RND+1)
115 PAUSE 100
116 CLS
117 GOTO 3
120 LET C$=" ²÷!"
130 LET D$=" öµ "
140 LET E$=" ´±¶"
150 PRINT AT 9,B;C$
160 PRINT AT 10,B;D$
170 PRINT AT 11,B;E$
180 PRINT AT 13,9;"**CRASH***"
185 PRINT ,,"SCORE=";S
190 PRINT ,,,,,,"PRESS ENTER TO
START"
200 IF INKEY$="" THEN GOTO 200
210 IF INKEY$=CHR$ 227 THEN
STOP
215 IF INKEY$=CHR$ 0 THEN GOTO
200
220 RAND
230 CLS
240 GOTO 1
300 SAVE "LANDER2"
310 RUN