172 Defend
610 LOCATE A-1,D:PRINT"I'M OK!";:LOCATE A+1,D+1:PRINT CHR$(149);:FOR F=0 TO 300: NEXT:LOCATE A-1,D:PRINT"	"LOCATE
A+1,D+1:PRINT" ";:GOTO 560
620 IF A>15 THEN DIR=-80:STX=A*8-1 630 IF A<=15 THEN DIR=80:STX=A*8+8 640 PLOT STX*2+64,(21-B)*16+51,3:SOUND 1
,180,3:DRAWR 2*DIR,0,3
650 PLOT STX*2+64,(21-B)*16+51,0:SOUND 1
,180,3:DRAWR 2*DIR,0,0
660 IF B=Y THEN IF (A<27 AND DIR=-80) OR (A>4 AND DIR=80) THEN GOTO 680
670 RETURN
680 LOCATE 16,Y+1:PRINT " ";:A=15 690 PLOT 304,(21-Y)*16+51:DRAWR 14,0 700 Y=-Y*(Y>=3)-3*(Y<3)
710 FOR V= 1 TO 6
720 LOCATE A+V+1,Y+V/2+1:PRINT CHR$(233) ;:LOCATE A+V+1,Y-V/2+1:PRINT CHR$(234);: LOCATE A-V+1,Y+V/2+1:PRINT CHR$(235);:LO CATE A-V+1,Y-V/2+1:PRINT CHR$(236);
730 SOUND 1,80,3
740 LOCATE A+V+1,Y+V/2+1:PRINT" ";:LOCAT E A+V+1,Y-V/2+1:PRINT" ";:LOCATE A-V+1,Y +V/2+1:PRINT" ";:LOCATE A-V+1,Y-V/2+1:PR INT" ";
750 NEXT V
760 LI=LI-1
770 IF LI>0 THEN CLS: GOSUB 840:GOTO 110 780 FOR FF=-5 TO 5:FOR GG=5 TO 10:SOUND 2,FF+10*(15-GG),3:SOUND 1,GG*2,3:NEXT GG ,FF
790 PEN 2:LOCATE 8,11:PRINT CHR$(24);"G
A M E	O V E R";CHR$(24);:PEN 1:LOCATE
1,22:PEN 3:PRINT CHR$(24);"	PRESS ANY
KEY TO TRY AGAIN	";CHR$(24);:PEN 1
800 IF SC>HS THEN HS=SC
810 IF INKEYS<>""THEN 810
820 IF INKEYS="" THEN 830 ELSE CLS:GOTO 90
830 GOTO 810
840 HL=HL+2:Y=50:X=0
850 PLOT X*2+64,Y*2+48,2
860 A=INT(RND*20):B=INT(RND*20-RND*20)