Dam Eaters 183 500 FOR 0=20 TO 0 STEP -1:LOCATE 6,0+1:P RINT STRING$(27,143); 510 SOUND 1,180,3 520 LOCATE 5,0+1:CALL 360:K=PEEK(367):IF K=32 THEN LOCATE 5,0+1:PRINT CHR$(143) 530 LOCATE 4,0+1:CALL 360:K=PEEK(367):IF K=32 THEN LOCATE 4,O+1:PRINT CHR$(143) 540 NEXT 0 550 LOCATE 7,5:PEN 2:PRINT"You scored";S C;"Points.":PEN 1 560 IF SC>HS THEN LOCATE 7,7:PEN 3:PRINT "Well done! That's a new";:LOCATE 7,8:PR INT"High score!!":PEN 1:hs=sc 570 LOCATE 7,10:PRINT"The high-score is" ;HS 580 LOCATE 7,12:PRINT CHR$(24);"PRESS A KEY TO PLAY AGAIN";CHR$(24); 590 IF INKEY$<>"" THEN 590 600 IF INKEY$="" THEN 600 ELSE CLS:GOTO 110 610 LOCATE 6+1,21:PEN 3:PRINT CHR$(239); :PEN 1:SOUND 1,90,3:LOCATE 6+1,21:PRINT" 620 B=0:GOTO 130 630 LOCATE 7,1:PRINT"DAM EATERS 640 FOR F=29 TO 4 STEP -I:LOCATE F+1,3:P EN 2:PRINT CHR$(234);CHR$(235);" ";:SOUN D 1,(F*2+50),3:NEXT:PEN 1 650 LOCATE 4,3:PEN 3:PRINT CHR$(236);CHR $(237):SOUND 1,120,3:LOCATE 4,3:PRINT CH R$(237);CHR$(236):SOUND 1, 90,3: FOR P=I TO 400:NEXT:PEN 1:LOCATE 1,3:PRINT" 660 CLS:LOCATE 7,1:PEN 2:PRINT"D A M E ATERS ":PEN 1 670 LOCATE 1,6:PEN 3:PRINT"Can you preve nt the dam from being broken by the d am eaters? ":PEN 1 680 PRINT:PRINT"Release bombs from any o f the 3 cannons above the dam with the keys 1 to 3." 690 PEN 3:PRINT:PRINT"There are several more features which you will have to wai t to find out !!":PEN 1