Dogfight
Up in the wild blue yonder, you and the enemy ace are duelling above the clouds. Swoop down on the foe, hang on his tail, catch him unawares from below, with your trusty Brownings spitting leaden death. All good clean fun, but watch for the wraparound!
10 REM DOGFIGHT
20 REM ROBERT ERSKINE.
30 MODE 1:BORDER 4:INK 0,26:INK 1,1:INK 2,0:INK 3,6:WINDOW #1,1,40,1,25:PAPER #1 ,O:PEN #1,1:CLS #1
40 GOSUB 1290
50 GOSUB eaa
60 DIM P(4),0(4),G$(2),D(16),E(16),F(16) ,G(16)
70 GOSUB 920
80 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
90 GOSUB 800
100 REM MAIN LOOP
110 IF P(3)=Q(3) AND P(4)=Q(4) THEN GOSU B 560
120 LOCATE P(4)+1,P(3)+1:PRINT ' ";
130 IF P(1)<21 THEN LOCATE P(2)+1,P(1)+1 :PEN 3:PRINT CHRS(A+230):PEN 1:P(3)=P(1) :P(4)=P(2)
140 IF P(1)=Q(3) AND P(2)=Q(4) THEN GOTO 560
150 LOCATE 0(4)+1,0(3)+1:PRINT" ";
160 IF 0(1)<21 THEN LOCATE 0(2)+1,0(1)+1 :PRINT CHR$(AA+238);:0(3)=0(1):0(4)=0(2) 170 IF INKEY(47)=0 AND G=1 THEN F=1
180 IF RND>0.5 AND G=-1 AND ABS(P(1)-0(1 ))<7 AND ABS(P(2)-0(2))<7 THEN F=2
190 IF INKEY(0)=0 AND G=1 THEN A=A+1:IF A=9 THEN A=1
200 IF RND>0.9 THEN AA=AA+1:IF AA=9 THEN AA=1
210 IF INKEY(2)=0 AND G=1 THEN A=A-1:IF A=0 THEN A=8