Hit any key to clear the land, but don’t clear too much!
PROG : 16509
D-FILE: 17486
VARS : 18279
E-LINE: 18280
STKBOT: 18280
STKEND: 18280
9999 means line number
PRINT means treat as KEYWORD P
10 REM **1985**SLR/1985*******
20 LET S=0
30 FOR A=0 TO 4
40 PRINT AT A,0;"¸¸¸¸¸¸¸¸¸¸¸¸¸
¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸¸
"
50 NEXT A
60 PRINT AT 15,0;"1985:EARTH I
I"
70 LET A$="¸¹ ¹¸"
80 LET C$="ºº º ººº º ºº º
ººº ºººº ºº"
90 LET X=13
100 FOR G=100 TO 0 STEP -1
110 PRINT AT 1,X;A$;AT 4,0;C$
120 IF INKEY$<>"" THEN GOTO 300
130 LET C$=C$(32)+C$( TO 31)
140 IF RND>.8 THEN LET X=X+INT
(RND*3-1)
150 LET X=X+(X<0)-(X>27)
160 LET S=S+5
170 NEXT G
180 LET E=0
190 FOR H=1 TO 32
200 IF C$(H)="¸" THEN LET E=E+1
210 NEXT H
220 IF E<20 THEN GOTO 290
230 LET S=S+100
240 PRINT AT 17,0;"YOU REPLANED
THE EARTH.ALRIGHT**SCORE=";S
250 FOR H=1 TO 100
260 NEXT H
270 CLS
280 GOTO 30
290 PRINT AT 17,0;"YOU FAILED..
.ALL OVER NOW... SCORE=";S
292 PAUSE 4E4
295 CLS
298 RUN
300 IF C$(X+3)="¸" THEN GOTO 29
0
310 LET C$(X+3)=("º" AND C$(X+3
)=" ")+("¸" AND C$(X+3)="º")
320 LET S=S+10
330 GOTO 130
400 SAVE "1985"
410 RUN