Si tratta di colpire degli aerei che si trovano in volo casuale con dei missili lanciati da un mirino che, all'inizio, compare al centro dello schermo.
Ci si sposta in tutte le direzioni con le frecce di movimento e si spara con il tasto zero
10 Rem Combattimento aereo
20 cls: input"fornisci un intero :";f
30 for i=1 to f: y=RND(1): next
40 screen 1,1: data 24,24,60,255,255,60,66,0,0,8,8,8,28,62,28,0
50 for i= 1 to 2
60 a$="":for j= 1 to 8
70 read a: a$=a$+chr$(a)
80 next j
90 sprite$(i)=a$:next i
100 color 15,14,13: key off: cls
110 a=5:b=15
120 n=21
130 put sprite 1,(8*b,8*a),4,1
140 a=a+2*int(rnd(1)*2)-1
150 b=b+2*int(rnd(1)*2)-1
160 a$=inkey$
170 b=b-2*(a$=chr$(28))+2*(a$=chr$(29))
180 a=a-2*(a$=chr$(31))+2*(a$=chr$(30))
190 if b<0 or b>37 then b=abs(b-37)
200 if a<3 or a>22 then a=abs(a-22)
210 locate 15,9:print "* *":locate 15,10
215 print " X ":locate 15,11:print "* *"
220 if a$="0" or n<21 then gosub 240
230 goto 130
240 put sprite 2,(8*(26-n),8*n),8,2
245 put sprite 3,(8*(n+6),8*n),8,2
250 n=n-1
260 if n>9 then return
270 if (a=9 or a=10 or a=11) and (b=15 or b=16 or b=17) then print "VINTO!!!"
275 play "cde":end
280 put sprite 2,(0,209),8,2
285 put sprite 3,(0,209),8,2: goto 120