Run the trench using the 5 and 8 keys and land your ship to destroy the COMPUTACT.
PROG : 16509
D-FILE: 17796
VARS : 18589
E-LINE: 18590
STKBOT: 18590
STKEND: 18590
9999 means line number
PRINT means treat as KEYWORD P
10 REM **COMPUTACT**SLR/1984**
20 LET S=0
30 CLS
40 DIM A$(384)
50 LET B$="óVó"
60 LET X=0
70 LET Y=10
80 FOR A=0 TO 11 STEP 2
90 LET A$((A*32)+1 TO (A*32)+6
4)="¸¸¸¸¸¸¸¸¸¸ ¸¸¸¸¸¸
¸¸¸¸ ¸¸¸¸¸¸¸¸¸¸¸¸
"
100 NEXT A
105 DIM C$(32)
110 LET C$=" ºº¹¹
"
120 PRINT AT 21,0;C$;AT 9,0;A$;
AT X,Y;B$;AT X-1,0;"
" AND X<10
130 LET X=X+1
140 IF X=21 THEN GOTO 200
150 LET Y=Y+(INKEY$="8" AND Y<3
1)-(INKEY$="5" AND Y>0)
160 IF X>8 AND (Y<10 OR Y>21)
THEN GOTO 300
170 LET A$=A$(33 TO )+A$( TO 32
)
175 LET V=INT (RND*2)
180 LET C$=((C$(2 TO )+C$(1))
AND (C$(11)=" " AND V))+((C$(32
)+C$( TO 31)) AND (C$(22)=" "
AND NOT V))+(C$ AND (C$(11)<>"
" OR C$(22)<>" "))
190 GOTO 120
200 FOR X=11 TO 22
210 IF C$(X)="º" AND X-1=Y
THEN GOTO 230
215 NEXT X
220 GOTO 300
230 LET S=S+INT (RND*10*100)
240 PRINT AT 10,0;"YOU LANDED D
IRECTLY...CONGRATS.."
250 PAUSE 400
260 FOR X=1 TO 20
270 PRINT AT INT (RND*22),INT (
RND*32);"º"
280 NEXT X
290 GOTO 30
300 PRINT AT 2,12;"SCORE=";S
310 PRINT AT 10,0;"YOU CRASHED.
.TOO BAD.PLAY AGAIN?"
320 IF INKEY$="Y" THEN RUN
330 PRINT AT 10,0;"YOU CRASHED.
.TOO BAD.PLAY AGAIN?"
340 GOTO 310
500 SAVE "COMPUTACT"
510 RUN