Your ship is sinking. Can you land it in the seaweed without crashing on the rocks? Use the arrows keys to move.
PROG : 16509
D-FILE: 17828
VARS : 18621
E-LINE: 18622
STKBOT: 18622
STKEND: 18622
9999 means line number
PRINT means treat as KEYWORD P
10 REM ****THE MONSTER****
BY: STEVEN REID (C)1984
20 GOSUB 320
30 LET X=10
40 PRINT AT Y-1,0;"
";AT Y,X;"±
²"
50 SCROLL
60 PRINT TAB (25*RND+2);"*";"!
" AND RND>.8;"!" AND RND<.5;"*"
70 LET L=CODE INKEY$-32
80 LET X=X-(L=1 AND X>0)+(L=4
AND X<30)
85 LET Y=Y-(L=3 AND Y>2)+(L=2
AND Y<12)
88 IF L=2 THEN PRINT AT Y-2,0;
"
";AT Y,X;"±²"
90 PRINT AT Y,X;
100 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
110 PRINT AT Y,X+1;
120 LET P2=PEEK (PEEK 16398+256
*PEEK 16399)
130 LET S=S+1+Y
140 IF P=0 AND P2=0 THEN GOTO 4
0
150 IF P=8 AND P2=8 THEN GOTO 2
00
160 IF P=151 AND P2=151 THEN
GOTO 250
170 IF P=151 OR P2=151 THEN
LET S=S-1
180 IF P=8 AND P2=8 THEN LET S=
S-10
190 GOTO 40
200 LET S=S+100
205 PRINT AT Y+2,0;" * LAN
DED...BONUS * "
207 LET L=SIN PI+SIN PI+SIN PI+
SIN PI
210 FOR A=1 TO 21
220 PRINT AT A,0;"
"
230 NEXT A
240 GOTO 40
250 PRINT AT Y-1,X;"¶´"
260 PRINT AT Y+1,0;" S
CORE:";S;" "
270 SCROLL
280 PRINT "BOOM**YOU CRASHED***
START AGAIN?"
290 PAUSE 4E4
300 IF INKEY$<>"N" THEN RUN
310 STOP
320 LET S=0
330 FOR B=1 TO 3
340 FOR A=1 TO 10
350 FAST
360 SLOW
370 PRINT AT 10,11;"READY****"
380 NEXT A
390 LET L=SIN PI
400 NEXT B
410 LET Y=2
420 CLS
430 RETURN
500 SAVE "MONSTER"
510 RUN