Can you escape from the clutches of the monster Beo by making your way through its Death Maze?
PROG : 16509
D-FILE: 17793
VARS : 18586
E-LINE: 18587
STKBOT: 18587
STKEND: 18587
9999 means line number
PRINT means treat as KEYWORD P
10 REM **DEATH MAZE*SLR/1984**
20 PRINT "CAN YOU ESCAPE THE M
ONSTER BEO? I DARE YOU TO TRY...
"
30 PRINT AT 10,5;" ô ÷ ±² ´÷ õ
µ"
40 PRINT AT 11,5;"õµ ÷ ²± µõ ÷
´"
50 PRINT AT 12,5;" ñ ² õµ µõ õ
µ"
60 PRINT AT 14,10;"² ± ±² ó´ ÷
"
70 PRINT AT 15,10;"õ µ ²± ³ó ÷
"
80 PRINT AT 16,10;"õ µ õµ ²³ ²
"
90 PRINT AT 20,5;"BY:";AT 21,8
;"STEVEN REID"
100 PAUSE 400
110 CLS
120 PRINT "(Z) LEFT,(.) RIGHT,A
ND (M) BRAKE"
130 LET A$="óUó"
140 LET B$=" "
150 PAUSE 100
160 LET S=0
170 LET X=10
175 LET X2=0
180 LET Y=9
181 LET X3=X2
182 LET X4=X
190 SCROLL
195 PRINT "
";AT 21,0;
200 FOR A=1 TO 100
210 PRINT TAB Y;B$
220 PRINT AT X3,X4;" ";AT X2,
X;A$
221 LET X3=X2-1
222 LET X4=X
230 LET X=X-(INKEY$="Z" AND X>0
)+(INKEY$="." AND X<29)
240 LET X2=X2+(X2<20)-(2 AND (
INKEY$="M" AND X2>0))
250 FOR C=X TO X+2
260 PRINT AT X2,C;
280 LET P=PEEK (PEEK 16398+256*
PEEK 16399)
281 IF P=128 THEN GOTO 400
290 NEXT C
300 LET Y=Y+(INT (3*RND-1))
301 LET Y=Y+(Y<0)-(Y>23)
310 SCROLL
320 LET S=S+1+X2
330 NEXT A
340 PRINT "YEE MADE IT<><><>"
350 LET S=S+1000
370 PAUSE 200
380 CLS
390 GOTO 170
400 PRINT AT X3+1,X4;" ";AT X
2,X;"ºö!"
410 SCROLL
420 PRINT "CRASH---SCORE=";S
430 SCROLL
440 PRINT "** PRESS A KEY TO ST
ART AGAIN **"
450 PAUSE 4E4
460 CLS
470 RUN
500 SAVE "DEATHMAZE"
510 RUN