ZX81 Listing for blaster.p


ZX81 program listing for **BLASTER**SLR/1985****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17703
VARS  : 18496
E-LINE: 18497
STKBOT: 18497
STKEND: 18497


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **BLASTER**SLR/1985****
  15 CLS
  20 LET S=0
  25 LET Z=.5
  30 LET A$=" * "
  40 LET B$=" <O>"
  50 FOR A=1 TO 4
  60 PRINT AT A-1,0;"           
                     "
  70 PRINT AT A-1,INT (RND*32);"
."
  80 PRINT AT A-1,INT (RND*32);"
."
  90 PRINT AT A-1,INT (RND*32);"
."
 100 NEXT A
 110 LET R=INT (RND*3)
 120 LET X=15
 130 FOR G=0 TO 28 STEP Z
 140 PRINT AT R,G;B$;AT 3,X;A$
 150 IF B$="." THEN LET B$=" "
 160 LET B$(1)=" .  "(INT (RND*4
+1))
 170 LET X=X-(INKEY$="Z" AND X>0
)+(INKEY$="." AND X<29)
 180 LET S=S+10
 190 IF INKEY$="M" AND RND>.6
THEN GOTO 230
 200 NEXT G
 210 PRINT AT R,29;"   "
 220 PRINT AT 4,0;"             
                   ";AT 4,0;"BLA
STER**YOU DIED.SCORE:";S;AT 1,0;
"***   PRESS A KEY TO START   **
*"
 225 IF INKEY$<>"" THEN RUN
 226 GOTO 225
 230 IF X+1>G AND X+1<G+4 THEN
GOTO 250
 240 GOTO 200
 250 PRINT AT R,G+1;"  ."
 260 LET S=S+25
 270 PRINT AT 4,0;"             
                   ";AT 4,0;"BLA
STER**GOOD SHOT.SCORE:";S
 280 FOR H=1 TO 100
 290 NEXT H
 300 PRINT AT 4,9;"CONTINUE ON W
ARRIOR    "
 310 FOR H=1 TO 50
 320 NEXT H
 330 PRINT AT 4,0;"             
                   "
 340 IF Z<.85 THEN LET Z=Z+.01
 350 GOTO 50
 400 SAVE "BLASTER"
 410 RUN