170 Defend
150 IF RND<0.08 AND B<=LT THEN GOSUB 620 160 PEN 0:LOCATE A+1,B+1:PRINT CHR$(232) ;:LOCATE A+1,B+2:PRINT A$;:PEN 1
170 LOCATE A+1,B+3:CALL 360: LL=PEEK(367 ):IF LL=231 AND A$=" " THEN A$=CHR$(231) :C=C+I:M=1:LOCATE A+1,B+3:PRINT" ";
180 IF M=1 THEN B=B- INT(RND*3):GOTO 210 190 LOCATE A+1,B+3:CALL 360: LL=PEEK(367 ):IP LL=32 THEN B=B+INT(RND*2)
200 LOCATE A+1,B:CALL 360: LL=PEEK(367): IF LL<>32 THEN M=1:C=C+1
210 IF B<1 THEN B=I
220 IF C=8 OR B>17 THEN CLS:GOSUB 840:GO TO 110
230 A=A-1
240 IF A=-1 THEN A=31:M=0:IF A$=CHR$(231 ) THEN CAP=CAP+1:FOR XS=-3 TO 6:SOUND 2, (XS+20),3:NEXT:A$=" "
250 PEN 0:LOCATE 16,Y+1:PRINT B$;:PEN 1 260 Y=Y-(INKEY(2)=0 AND Y<=LT)+(INKEY(0) =0 AND Y>1)
270 IF INKEY(47)=0 THEN IF B$=CHR$(233)+ CHR$(234) THEN B$=CHR$(235)+CHR$(236):GO TO 290
280 IF INKEY(47)=0 THEN B$=CHR$(233)+CH R$(234)
290 PEN 3:LOCATE 16,Y+1:PRINT B$;:PEN 1 300 IF CAP=3 OR HL=10 THEN LOCATE 10,1:P RINT CAP;:GOTO 780
310 IF INKEY(9)=0 THEN GOSUB 330
320 GOTO 130
330 I=-119*(B$=CHR$(235)+CHR$(236))-136* (B$=CHR$(233)+CHR$(234)):J=(21-Y)*8+3
340 PLOT I*2+64,J*2+48,2
350 IF B$=CHR$(233)+CHR$(234) THEN SOUND 1,130,3:DRAWR 180,0,2:SOUND 1,90,3:PLOT I*2+64,J*2+48,0:DRAWR 180,0,0
360 IF B$=CHR$(235)+CHR$(236) THEN SOUND 1,I30,3:DRAWR -180,0,2:SOUND 1,90,3:PLO T I*2+64,J*2+48,0:DRAWR -180,0,0
370 IF Y=B AND((B$=CHR$(233)+CHR$(234) A ND A>16 AND A<29) OR(B$= CHR$(235)+CHR$( 236) AND A<15 AND A>2)) THEN IF A$=CHR$( 231) THEN GOTO 450 ELSE 390