ZX81 Listing for vw.p


ZX81 program listing for V WATER BATTLE*SLR/1984

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18944
VARS  : 19737
E-LINE: 19738
STKBOT: 19738
STKEND: 19738


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM V WATER BATTLE*SLR/1984
  20 LET S=0
  30 LET RD=3
  40 CLS
  50 PRINT "                    
             óó´      !         
 !      ÷óó      òóó   !!!!!!!!!
!   óóñ               óó´!!!!!!÷
óó"
  60 LET A$=" /¹²"
  70 LET B$=" ±º² "
  80 LET X=15
  90 LET Y=11
 100 FOR A=12 TO 21
 110 PRINT AT A,0;"!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!"
 120 NEXT A
 130 LET E=0
 140 FOR A=12 TO 21
 150 PRINT AT 7,10;"**WAVE ";A-1
1;"**"
 155 PAUSE 100
 160 LET R=INT (RND*3*(INT (RD+.
5)))
 170 FOR B=1 TO R
 180 LET U=0
 190 LET I=U
 200 LET I1=U
 210 LET U1=U
 220 PRINT AT 7,10;"            
 ";AT 4,0;"                     
           "
 230 FOR C=0 TO 28
 240 PRINT AT 4,C;A$;AT Y,X;B$
 250 LET L$=INKEY$
 260 LET X=X-(L$="Z" AND X>0)+(L
$="." AND X<27)
 270 IF L$="M" AND I=0 THEN LET
I1=X+2
 280 IF L$="M" AND I=0 THEN LET
I=Y-1
 290 PRINT AT I,I1;" " AND I>0;
AT U,U1;" " AND U>0
 300 IF I>0 THEN LET I=I-1
 310 IF I=4 AND (C+1=I1 OR C+2=I
1 OR C+3=I1) THEN GOTO 410
 320 IF I=4 THEN LET I=0
 330 IF U=0 AND RND>.559 THEN
LET U=4
 340 IF U>0 THEN LET U=U+1
 350 IF U>0 THEN LET U1=C+2
 360 IF U=Y AND (X+1=U1 OR X+2=U
1 OR X+3=U1) THEN GOTO 700
 365 IF U=Y THEN LET U=0
 370 PRINT AT I,I1;"." AND I>0;
AT U,U1;"*" AND U>0
 380 LET S=S+1
 390 NEXT C
 400 GOTO 440
 410 LET E=E+1
 420 PRINT AT 4,C;"³óö";AT 7,10;
"**HIT**"
 430 LET S=S+15
 440 LET S=S+5
 445 PRINT AT U,U1;" " AND U>0
 450 NEXT B
 460 PRINT AT 4,0;"             
                   "
 470 PRINT AT Y,0;"             
                   "
 480 PRINT AT 8,8;"---WAVE OVER-
--"
 490 PRINT AT A,0;"ùùùùùùùùùùùùù
ùùùùùùùùùùùùùùùùùùù"
 500 PAUSE 100
 510 PRINT AT A,0;"             
                   "
 520 LET S=S+10
 530 LET Y=Y+1
 540 PAUSE 200
 550 PRINT AT 8,8;"             
  "
 560 NEXT A
 570 IF E<10 THEN GOTO 700
 580 PRINT AT 7,0;"YOU SAVED THE
 WATER,GOOD GOING**"
 590 LET S=S+100
 600 LET RD=RD-(.5 AND RD>1)
 610 PAUSE 200
 620 GOTO 40
 700 PRINT AT 7,0;"YOU LOST THE 
BATTLE, TOO BAD****YOUR SCOTE IS
 ";S;" POINTS."
 710 PRINT AT 10,0;"PRESS ENTER 
TO PLAY AGAIN*******"
 720 PAUSE 4E4
 730 RUN
 800 SAVE "VW"
 810 PRINT AT 6,13;" õ  µõ      
                    ´    ñ      
                    WATER       
                     µõµõ       
                    BATTLE      
                       ÷        
                      µõ"
 820 PRINT AT 14,7;"BY: STEVEN R
EID";AT 16,15;"(DESIGNED 1984)"
 830 PRINT AT 21,0;"PRESS ENTER 
TO PLAY*************"
 840 PAUSE 434
 850 RUN