ZX81 Listing for rv.p


ZX81 program listing for **RAIDER V*SLR/1984****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17729
VARS  : 18522
E-LINE: 18523
STKBOT: 18523
STKEND: 18523


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **RAIDER V*SLR/1984****
  20 LET S=0
  30 PRINT " RAIDER V           
 /SLR-1984/"
  40 LET A$=" ÷º´ "
  50 LET B$="³÷´³"
  60 DIM A(2)
  70 LET SP=5
  80 FOR X=1 TO 6
  90 LET A(2)=INT (RND*28)
 100 PRINT AT 21,0;"            
                    ";AT 5,0;"!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!  
  úúúú!!!!!!!!!!!!!!!!úúúú    "
 110 FOR G=7 TO 18
 120 FOR H=1 TO SP
 130 LET A(1)=A(1)-(INKEY$="Z"
AND A(1)>0)+(INKEY$="." AND A(1
)<27)
 140 PRINT AT 20,A(1);A$;AT G,A(
2);B$
 150 NEXT H
 160 LET Z=INT (RND*2)
 170 LET A(2)=A(2)-(Z=0 AND A(2)
>0)+(Z=1 AND A(2)<28)
 180 PRINT AT 20,A(1);A$;AT G,0;
"                               
 ";AT G+1,A(2);B$
 190 NEXT G
 200 FOR W=A(1)+1 TO A(1)+3
 210 PRINT AT 19,W;
 220 IF PEEK (PEEK 16398+256*
PEEK 16399)<>0 THEN GOTO 300
 230 NEXT W
 240 LET S=S+100+INT (RND*5*2)
 250 NEXT X
 260 PRINT AT 15,0;"YOU COMPLETE
D A WAVE, CONGRATES SCORE IS ";S
 270 PRINT "PRESS A KEY TO CONTI
NUE"
 280 PAUSE 4E4
 290 LET SP=SP-(SP>1)
 295 CLS
 298 GOTO 80
 300 PRINT AT 15,0;"YOU DIED, TO
 BAD...             SCORE IS ";S
 310 PRINT "PRESS A KEY TO BEGIN
 AGAIN..."
 320 PAUSE 4E4
 330 CLS
 340 RUN
 400 SAVE "RV"
 410 RUN