PROG : 16509
D-FILE: 18944
VARS : 19737
E-LINE: 19738
STKBOT: 19738
STKEND: 19738
9999 means line number
PRINT means treat as KEYWORD P
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