ZX81 Listing for deathmaze.p


ZX81 program listing for **DEATH MAZE*SLR/1984**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17793
VARS  : 18586
E-LINE: 18587
STKBOT: 18587
STKEND: 18587


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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