Dogfight 257
530 AA=1:Q(1)=20:Q(2)=31
540 GOSUB
550 RETURN
560 REM COLLISION
570 LOCATE P(4)+1,P(3)+1:PEN 3:PRINT"*"; :PEN 1
580 FOR ZZ=1 TO 15:SOUND 1,ZZ*20,3:NEXT 590 LIVES=LIVES-1:LIVES2=LIVES2-1
600 IF LIVES<1 OR LIVES2<1 THEN GOSUB 80 0:GOTO 740
610 LOCATE P(4)+1,P(3)+1:PRINT" ";
620 A=1:AA=1:P(1)=20:P(2)=0:Q(1)=20:0(2) =31:P(3)=P(1):P(4)=P(2):Q(3)=Q(1):0(4)=0 (2)
630 GOSUB 800
640 GOTO 100
650 IF F=1 THEN LOCATE Q(2)+1,Q(1)+1:PEN 2:PRINT"*";:PEN 1
660 IF F=2 THEN LOCATE P(2)+1,P(1)+1:PEN 2:PRINT"*";:PEN 1
670 FOR L=1 TO 10:SOUND 1,90+L,3:NEXT 680 IF F=1 THEN LIVES2=LIVES2-1:IF LIVES 2=0 THEN 740
690 IF F=2 THEN LIVES=LIVES-1:IF LIVES=0 THEN 740
700 IF F=1 THEN Q(1)=20:Q(2)=31:AA=1 710 IF F=2 THEN P(1)=20:P(2)=31:A=1 720 GOSUB 800
730 GOTO 490
740 GOSUB 800: IF LIVES=0 AND LIVES2=0 TH EN LOCATE 5,19:PEN 2:PRINT"The result is a draw"
750 IF LIVES=0 AND LIVES2>0 THEN LOCATE 4,19:PEN 3:PRINT CHR$(24);"The computer is the winner";CHR$(24);:PEN 1
760 IF LIVES>0 AND LIVES2=0 THEN LOCATE 5,19:PRINT CHR$(24);"	YOU ARE THE WINN
ER	";CHR$(24);
770 LOCATE 5,21:PEN 2:PRINT CHR$(24);"PR ESS ANY KEY TO RESTART";CHR$(24);:PEN 1 780 IF INKEY$<>"" THEN 780
790 IF INKEY$="" THEN 790 ELSE RUN
800 PEN 3:LOCATE 1,22:PRINT CHR$(24);"PL YR LIVES:";LIVES;"	COMP.LIVES";LIVES
2;CHR$(24);:PEN 1: