Defend 171
380 RETURN
390 M=0:LOCATE A+1,8+1:PRINT CHR$(237);: SOUND 1,120,3:LOCATE A+1,B+1:PRINT CHR$( 24);CHR$(237);CHR$(24);
400 LOCATE A+1,B+1:PRINT CHR$(237);:SOUN
D	1,120,3:LOCATE A+1,B+1:PRINT CHR$(24); CHR$(237);CHR$(24);
410 LOCATE A+1,B+1:PRINT CHR$(237);:SOUN
D	1,120,3:LOCATE A+1,B+1:PRINT CHR$(24); CHR$(237);CHR$(24);:LOCATE A+1,B+1:PRINT "	-
"-9B=1+INT(RND*14):A=31
.
420 SC=SC+10
430 A$=" "
440 RETURN
450 SOUND 1,180,3:LOCATE A+1,B+1:PRINT C HR$(237);:SOUND 1,120,3:LOCATE A+1,B+1:P RINT CHR$(24);CHR$(237);CHR$(24);:LOCATE
A+1,B+1:PRINT " ";
460 F=0:FOR D=B+1 TO 19
470 LOCATE A+1,D+1:PRINT CHR$(231);:SOUN
D	1,20*D,3
480 F=F+1
490 LOCATE A+1,D+1:PRINT" ";
500 LOCATE A+1,D+2:CALL 360:CL=PEEK(367) :IF CL<>32 THEN 530
510 NEXT D
520 GOTO 570
530 0=RND:IF 0>0.35 AND F>9 THEN SC=SC+5 0*(SC>=50)+SC*(SC<50):FOR F=-30 TO 1:LOC ATE A+1,D+2:PRINT CHR$(237);:SOUND 1,F+4 0,1:NEXT F:LOCATE A+1,D+2:PRINT " ";:GOT
D	550
540 LOCATE A+1,D+2:PRINT CHR$(231); 550 IF 0<=0.35 THEN 580
560 M=0
570 A$=" ":A=31:B=INT(RND*14)+1:RETURN 580 FOR F=1 TO 4
590 LOCATE A+1,D+2:PRINT CHR$(231);:SOUN
D	1,180,3:LOCATE A+1,D+2:PRINT " ";:SOUN
D	1,120,3:LOCATE A+1,D+2:PRINT CHR$(231) ;:SOUND 1,180,3:LOCATE A+1,D+2:PRINT " " ;:SOUND 1,120,3:NEXT
600 LOCATE A+1,D+2:PRINT CHR$(231);