Defend 173
870 X=X+A:Y=Y+B
880 IF X>251 THEN 920
ow) IF Y<10 OR Y>60 THEN X=X-A:Y=Y-B:GOT 0 860
900 DRAWR A*2,B*2,2
910 GOTO 860
920 FOR X=0 TO 24 STEP 3
930 A=INT(RND*6+X)
940 F=20
950 FOR B=4 TO 21
960 LOCATE A+1,B+1:CALL 360:CL=PEEK(367) :IF CL<>32 THEN LOCATE A+1,B+1:PRINT CHR $(231);:B=B+2
970 NEXT B,X
980 FOR F=11 TO 17:FOR Y=0 TO 31:LOCATE Y+1,F+1:CALL 360:CL=PEEK(367):IF CL<>32 THEN LT=F-1:GOTO 1000
990 NEXT Y,F
1000 Y=5:C=0
1010 B$=CHR$(233)+CHR$(234)
1020 A=31:B=1
1030 A$=" ":C$=STRING$(10,143)
1040 M=0
1050 LOCATE 2,22:PRINT" ";
1060 IF LI=2 THEN LOCATE 2,22:PRINT CHR$ (233);CHR$(234);
1070 RETURN
low SC=0:CAP=0:C=0
1090 HL=0:LI=2
1100 RETURN
1110 SYMBOL AFTER 230
1120 SYMBOL 231,28,28,8,62,8,8,20,34 1130 SYMBOL 232,0,24,60,66,255,126,66,10
1140 SYMBOL 233,0,0,199,204,255,255,3,0 1150 SYMBOL 234,0,0,240,24,255,252,224,0 1160 SYMBOL 235,0,0,15,24,255,63,7,0 1170 SYMBOL 236,0,0,227,51,255,255,192,0 1180 SYMBOL 237,196,9,176,6,208,74,145,1 0
1190 RETURN
1200 PEN 3:PRINT CHR$(24);"
DEFEND	";CHR$(24);:P
EN 1