182 Dam Eaters 230 F=F+1:IF F=21 THEN 610 240 LOCATE G+1,F+1:CALL 360:K=PEEK(367): IF K<>32 THEN 390 250 PEN I:LOCATE G+1,F+1:PRINT CHR$(252) 260 NEXT I 270 IF N<3 THEN C=C+1:IF C=130 THEN N=N+ 1:C=0:LOCATE 9,18:PEN 3:PRINT"ENEMY REIN FORCEMENT";:PEN 1:FOR I=1 TO 30:SOUND 1, (I+100),3:NEXT:LOCATE 9,18:PRINT CHR$(18 ) 280 GOTO 130 290 LOCATE X(I)+1,Y(I)+1:PRINT" 300 Y(I)=Y(I)+1-(2 AND RND>0.5) 310 IF Y(I)=0 THEN Y(I)=20 320 IF Y(I)=21 THEN Y(I)=1 330 RETURN 340 LOCATE X(I),Y(I)+1:PEN 3:PRINT CHR$( 236);CHR$(237);:SOUND 1,190,3:LOCATE X( I),Y(I)+1:PRINT CHR$(237);CHR$(236);:SOU ND 1,230,5:PEN 1 350 LOCATE X(I),Y(I)+1:PRINT" 360 LOCATE X(I)-1,Y(I)+1:CALL 360:K=PEEK (367):IF K=143 THEN FL=1:RETURN 370 Y(I)=INT(RND*20)+I:X(I)=29 380 RETURN 390 LOCATE G,F+1:PEN 3:PRINT CHR$(236);C HR$(237);CHR$(236); 400 LOCATE G,F+1:PRINT CHR$(237);CHR$(23 6);CHR$(237);:SOUND I,120,3:PEN 1:LOCATE G,F+1:PRINT" "; 410 SC=INT(SC+S1*2+F/3):LOCATE 28,1:PRIN T MIDS(STR$(8C),2); 420 El=0 430 FOR I=1 TO N 440 IF F=Y(I) THEN IF G=X(I) OR G=X(I)+1 THEN 460 450 NEXT I 460 Y(I)=INT(RND*20)+1:X(I)=29 470 GOTO 130 480 PEN 2: FOR 0=2 TO 5:LOCATE O+1,Y(I)+ 1:PRINT CHR$(143):SOUND 1,90,3:NEXT 490 FOR 0=Y(I) TO 20:LOCATE 6,0+1:PRINT CHR$(143);:SOUND I,120,3:NEXT