256 Dogfight
220 IF RND>0.9 THEN AA=AA-1:IF AA=0 THEN AA=8
230 IF F>0 THEN GOSUB 360
240 IF P(1)>20 THEN P(1)=1
250 IF 0(I)>20 THEN 0(1)=1
260 IF P(1)<1 THEN P(1)=20
270 IF 0(1)<1 THEN Q(1)=20
280 P(1)=P(1)+D(A):P(2)=P(2)+D(A+8) 290 IF P(2)>31 THEN P(2)=1
300 IF P(2)<1 THEN P(2)=31
310 0(1)=0(1)+E(AA):0(2)=0(2)+E(AA+8) 320 IF Q(2)>31 THEN Q(2)=1
330 IF 0(2)<1 THEN Q(2)=31
340 G=-G
350 GOTO 100
360 REM FIRE
370 IF F=1 THEN X=FN A(P(2)):Y=FN B(P(1) ):Y=-Y
380 IF F=2 THEN X=FN A(Q(2)):Y=FN B(0(1) ):Y=-Y
390 IF F=I THEN XX=F(A):YY=F(A+8):XL=P(2 )+XX/8:YL=P(1)-YY/8
400 IF F=2 THEN XX=G(AA):YY=G(AA+8):XL=Q (2)+XX/8:YL=Q(1)-YY/8
410 CNT=0
420 XL=-XL*(XL>=1 AND XL<=31)-(XL>31)-31 *(XL<l)
430 YL=-YL*(YL>=1 AND YL<=2I)-(YL>21)-21 *(YL<l)
440 IF CNT>0 THEN PLOT X*2+64,Y*2+48,2:F OR ZZ=1 TO 5:SOUND 1,100,1:NEXT:PLOT X*2 +64,Y*2+48,0
450 LOCATE XL+1,YL+1:CALL 360: GG=PEEK(3 67):IF GG>230 THEN 650
460 CNT=CNT+I
470 X=X+XX:Y=Y+YY:XL=INT(XL+XX/8):YL=INT (YL-YY/8)
480 IF CNT<6 THEN 420
490 F=0:RETURN
500 PEN 2:LOCATE 0(2)+1,21:PRINT" ";:PEN 1
510 FOR X=1 TO 10:SOUND 1,X*10),3:NEXT:L OCATE 0(2)+1,21:PEN 0:PRINT" ";:PEN 1 520 LIVES2=LIVES2-1:IF LIVES2=0 THEN 740