ZX81 Listing for monster.p


ZX81 program listing for ****THE MONSTER****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17828
VARS  : 18621
E-LINE: 18622
STKBOT: 18622
STKEND: 18622


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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