8-Bit Software Online Conversion
:0.$.FC - Listing
10REM**** FC *****
15DUMMY=RND(-TIME)
20MODE7:PRINTTAB(0,2)CHR$132CHR$157CH
R$141" Initialising...."
30PRINTTAB(0,3)CHR$132CHR$157CHR$141"
Initialising...."
40PRINTTAB(0,6)" How many bombers abl
e to hit LONDON ?"':INPUTNN
50IFNN>150THENPRINT" Come on, come on
, do play the game!"':INPUTNN
60IFNN<>0THENPRINTTAB(0,14)" ROGER. O
nly ";NN;" bombers are allowed"
70IFNN=0THENPRINTTAB(0,14)" ROGER. ";
NN;" bombers are allowed"
80PRINTTAB(0,15)" to hit London befor
e the game is lost."''
85FORZZ=1TO3000:NEXT
90T=0:TB=0:TE=0:FU=0:TF=108:M=0:RF=0:
BM=0:CR=0:A%=0:B%=0:E%=0:F%=0:L%=0
100DIMM(9),N(9),R(9),O(2),G(9,9),F(9,9
),T(2),B(9,4),E(9),FL(9)
110S$="STATUS :":R$=" RAIDER: ":U$="
SQUADRON ":A$=""
120DIMF$(9),B$(1,6),N$(9),Y$(9),V$(9)
130F$(1)="R1235Q3005":N$(1)="LYMPNE":Y
$(1)="SPITFIRES":V$(1)="No. 32"
140F$(2)="R2238Q4040":N$(2)="HAWKINGE"
:Y$(2)="HURRICANES":V$(2)="No. 610"
150F$(3)="R3465Q6040":N$(3)="MANSTON":
Y$(3)="HURRICANES":V$(3)="No. 264"
160F$(4)="Q9967Q3070":N$(4)="EASTCHURC
H":Y$(4)="HURRICANES":V$(4)="No. 600"
170F$(5)="Q6856R1010":N$(5)="WEST MALL
ING":Y$(5)="SPITFIRES":V$(5)="No. 141"
180F$(6)="Q7664Q1001":N$(6)="ROCHESTER
":Y$(6)="SPITFIRES":V$(6)="No. 65"
190F$(7)="Q4261Q8010":N$(7)="BIGGIN HI
LL":Y$(7)="HURRICANES":V$(7)="No. 245"
200F$(8)="Q3358Q6003":N$(8)="KENLEY":Y
$(8)="SPITFIRES":V$(8)="No. 111"
210F$(9)="Q3263R3080":N$(9)="CROYDON":
Y$(9)="HURRICANES":V$(9)="No. 85"
220O(1)=11:O(2)=0:T(1)=4:T(2)=8
230FORX=1TO9
240R1=RND(10)+4:R2=RND(10)+4
250B(X,1)=R1:B(X,2)=1:B(X,3)=R2:B(X,4)
=4
260G(X,1)=RND(75)+1:TB=TB+G(X,1)
270G(X,2)=RND(15)+1:TE=TE+G(X,2)
280G(X,3)=((G(X,1)/4)+G(X,2))
290G(X,9)=42:F(X,1)=1:R(X)=4:F(X,2)=12
:F(X,4)=14
300NEXTX
310CLS:PRINTTAB(5,1)" FIGHTER COMMAND.
"'
320PRINTTAB(5)" COMMAND CHECK:-"'
390VDU23;8202;0;0;0;
410FORX=1TO9
420IFMID$(F$(X),1,1)="Q"THENF(X,5)=VAL
(MID$(F$(X),2,2))/10
430IFMID$(F$(X),1,1)="R"THENF(X,5)=VAL
(MID$(F$(X),2,2))/10+10
440F(X,6)=VAL(MID$(F$(X),4,2))/10
450NEXTX
460PRINTTAB(5)" COMMUNICATIONS CHANNEL
S OPENED..."'
480PROChalfscreen
481GOTO1550
490G$=INKEY$(125):IFG$<>""THENGOSUB510
500RETURN
510PRINT" ENTER COMMAND ";:INPUTI
$:PRINT
520IFI$="S"THENPRINT" SCRAMBLE...SCRAM
BLE...SCRAMBLE..."'
530IFI$="C"THENPRINT" CHANGE COURSE"'
540IFI$="P"THENPRINT" PATROL SQUADRON"
'
550IFI$="R"THENPRINT" REPORT SQUADRON
STATUS"'
560IFI$="M"THEN2480
570PRINT" ENTER SQUADRON NUMBER (1-9)
";:INPUTA$:PRINT
580IFASC(A$)<49ORASC(A$)>57THEN570
590IFLEN(A$)>1THEN570
600A=ASC(A$)-48
610IFI$="B"THENPRINT" RETURN SQUADRON
TO BASE"'
615IFI$="B" GOTO1470
620PRINTU$,A$:PRINT
630PRINT"LOCATION: "N$(A)
640PRINT"SQUADRON: "V$(A)
650PRINT"AIRCRAFT: "Y$(A)
660FORZZ=1TO900:NEXT
670IFF(A,1)=3THEN700
680IFF(A,5)<10ANDF(A,6)>.6THENPRINT"PO
SITION: TQ";F(A,5)*10;F(A,6)*10
690IFF(A,5)>9.9ANDF(A,6)>.9THENPRINT"P
OSITION: TR";INT(F(A,5)-10)*10;F(A,6)*10
700IFF(A,1)=1THENPRINTS$;" REFUELLING
AT BASE"
710IFF(A,1)=2THENPRINTS$;" ON STANDBY"
720IFF(A,1)=3THENPRINTS$;" OUT OF OPE
RATION!!"
730IFF(A,1)=4THENPRINTS$;" ON PATROL"
740IFF(A,1)=5THENPRINTS$;" ON MISSION"
750IFF(A,1)=6THENPRINTS$;" RETURNING F
OR REFUELLING"
760PRINT:PRINT"AIRCRAFT AVAILABLE: ";F
(A,2)
770PRINT"AIRCRAFT MISSING: ";12-F(A,
2):PRINT
780IFF(A,1)=1ORF(A,1)=3ORF(A,1)=6THEN9
70
790IFI$="R"THEN990
800IFI$="P"THEN950
810PRINT"INPUT TARGET CO:ORDS (eg. TQ4
073)"
820INPUTB$:PRINT
830FORZZ=1TO500:NEXT
840IFMID$(B$,2,1)="Q"THENF(A,8)=VAL(MI
D$(B$,3,2))/10
850IFMID$(B$,2,1)="R"THENF(A,8)=VAL(MI
D$(B$,3,2))/10+10
860F(A,9)=VAL(MID$(B$,5,2))/10
870IFMID$(B$,1,1)<>"T"THEN810
880IFMID$(B$,2,1)<>"Q"THEN890ELSE920
890IFMID$(B$,2,1)<>"R"THEN810
900IFLEN(B$)>6THEN810
910IFLEN(B$)<6THEN810
920F(A,1)=5
930PRINT" ROGER. ";U$;" ";A$;" TO ";B$
'
940IFI$="S"ORI$="C"THEN990
950IFF(A,1)=2ORF(A,1)=5THENPRINT" ROGE
R. ";U$;" ";A;" ON PATROL."
960IFF(A,1)=4THENPRINT" ALREADY PATROL
LING"'
970IFF(A,1)=1ORF(A,1)=3ORF(A,1)=6THENP
RINT" UNABLE TO COMPLY."
980IFF(A,1)=2ORF(A,1)=5THENF(A,1)=4:PR
INT
990RETURN
1000PRINTU$;" ";X;" A T T A C K I N G
.."''
1010IFRF>0THEN1050
1020FORZ=1TO9
1030IFABS(F(X,5)-F(Z,5))<.6ANDABS(F(X,6
)-F(Z,6))<.6THENRF=RF+F(Z,2)
1040NEXTZ
1050F(X,7)=F(X,2)+RF
1060IFF(X,2)<0THENF(X,2)=0
1070IFG(Y,1)<0THENG(Y,1)=0
1080IFG(Y,2)<0THENG(Y,2)=0
1090G(Y,3)=(G(Y,2)+G(Y,1)/4)
1100IFFL(Y)=1THEN1120
1110IFG(Y,3)=0ORG(Y,1)=0ORF(X,2)=0THEN1
170
1120IFG(Y,2)=0THEN1170
1130IFF(X,2)=0THEN1180
1140CR=F(X,7)/G(Y,3)
1150IFCR<=.5THEN1190
1160IFFL(Y)=1THEN1190
1170IFG(Y,3)=0ORG(Y,1)=0THENPRINT:PRINT
U$;" ";X;" W I T H D R A W I N G.."':FL(
Y)=1:GOTO1450
1180IFF(X,2)=0THENPRINT:PRINTU$;" ";X;"
RADIO CONTACT LOST"':FL(Y)=1
1185IFF(X,2)=0 GOTO1450
1190IFCR<=.4ANDRND(1)>.75THENF(X,2)=F(X
,2)-1
1200IFCR<=.5ANDRND(1)>.23THENG(Y,1)=G(Y
,1)-1
1210IFCR<=.6ANDRND(1)>.65THENG(Y,2)=G(Y
,2)-1
1220IFCR>.5ANDCR<1ANDRND(1)>.6THENF(X,2
)=F(X,2)-1
1230IFCR>.4ANDCR<1ANDG(Y,1)>0ANDRND(1)>
.25THENG(Y,1)=G(Y,1)-1
1240IFCR>.5ANDCR<1ANDRND(1)>.7THENG(Y,2
)=G(Y,2)-1
1250IFCR=1ANDRND(1)>.7THENF(X,2)=F(X,2)
-1
1260IFCR=1ANDRND(1)>.33THENG(Y,1)=G(Y,1
)-1
1270IFCR=1ANDRND(1)>.5THENG(Y,2)=G(Y,2)
-1
1280IFCR>1ANDCR<2ANDRND(1)>.85THENF(X,2
)=F(X,2)-1
1290IFCR>1ANDCR<2ANDRND(1)>.25THENG(Y,1
)=G(Y,1)-1
1300IFCR>1ANDCR<2ANDRND(1)>.33THENG(Y,2
)=G(Y,2)-1
1310IFCR>=2ANDCR<5ANDRND(1)>.85THENF(X,
2)=F(X,2)-1
1320IFCR>=2ANDCR<5ANDRND(1)>.1THENG(Y,1
)=G(Y,1)-1
1330IFCR>=2ANDCR<5ANDRND(1)>.2THENG(Y,2
)=G(Y,2)-1
1340IFCR>=5ANDRND(1)>.9THENF(X,2)=F(X,2
)-1
1350IFCR>=5THENG(Y,1)=G(Y,1)-1
1360IFCR>=5THENG(Y,2)=G(Y,2)-1
1370IFG(Y,1)<=0THENG(Y,1)=0
1380IFG(Y,2)<=0THENG(Y,2)=0
1390IFG(Y,1)=1ANDF(X,2)=3THENF(X,2)=2AN
DG(Y,1)=0
1400IFG(Y,1)=0ANDG(Y,2)=1ANDF(X,2)=3THE
NF(X,2)=2ANDG(Y,2)=0
1415PRINTTAB(0,18)STRING$(37," ")
1420PRINTTAB(0,18)" BOMBERS ";G(Y,1);TA
B(13,23)" ESCORTS ";G(Y,2);TAB(26,23)" F
IGHTERS ";F(X,2)
1430FORZZ=1TO350:NEXT
1440GOTO1010
1450E(X)=0:RF=0:F(X,1)=6
1460RETURN
1470F(A,1)=6:PRINT
1480PRINT" ROGER.... ":PRINTU$;" ";A;"
RETURNING TO ";N$(A)
1490PRINT:GOTO990
1500RR=RND(100)
1510IFG(XY,8)=0ANDRR>70THENG(XY,4)=B(XY
,1)
1520IFG(XY,8)=0ANDRR>70THENG(XY,5)=B(XY
,2)
1530IFG(XY,8)=0ANDRR>70THENG(XY,8)=1
1540RETURN
1550M=M+1
1560FORX=1TO9
1570GOSUB490
1580IFF(X,2)=0ORF(X,2)=3THEN1930
1590IFF(X,1)=1THENR(X)=R(X)+1
1600IFR(X)=5THENF(X,1)=2
1610IFR(X)=5THENF(X,4)=14
1620IFR(X)=5THENR(X)=0
1630IFF(X,1)>3THENF(X,4)=F(X,4)-1
1640IFF(X,1)<4THEN1740
1650FORY=1TO9
1660IFABS(F(X,5)-G(Y,4))<.6ANDABS(F(X,6
)-G(Y,5))<.6ANDG(Y,1)>=0ANDF(X,2)>0THENE
(X)=1
1670IFG(Y,1)+G(Y,2)=0ORF(X,2)=0ORF(X,1)
=6THEN1720
1680IFE(X)=1THENF(X,5)=G(Y,4)
1690IFE(X)=1THENF(X,6)=G(Y,5)
1700IFE(X)=1ANDG(Y,1)=0ANDF(X,2)>0ANDG(
Y,2)>0THENFL(Y)=1:GOSUB1000
1710IFE(X)=1ANDG(Y,1)>=0ANDF(X,2)>0THEN
FL(Y)=0:GOSUB1000
1720E(X)=0
1730NEXTY
1740IFF(X,4)=5THENPRINTU$;" ";X;" FUEL
LEVEL LOW."'
1750IFF(X,4)<1ANDF(X,1)>3THENF(X,1)=6
1760IFF(X,1)=6ANDMID$(F$(X),1,1)="Q"THE
NF(X,8)=VAL(MID$(F$(X),2,2))/10
1770IFF(X,1)=6ANDMID$(F$(X),1,1)="R"THE
NF(X,8)=VAL(MID$(F$(X),2,2))/10+10
1780IFF(X,1)=6THENF(X,9)=VAL(MID$(F$(X)
,4,2))/10
1790IFF(X,4)=0THENPRINTU$;" ";X;" RETUR
NING FOR FUEL"'
1800IFF(X,2)=0THENF(X,1)=3
1810IFF(X,2)=0ORF(X,1)<4THEN1930
1820IFF(X,1)=6ANDABS(F(X,8)-F(X,5))<.6A
NDABS(F(X,9)-F(X,6))<.6THENF(X,5)=F(X,8)
1830IFF(X,1)=6ANDABS(F(X,8)-F(X,5))<.6A
NDABS(F(X,9)-F(X,6))<.6THENF(X,6)=F(X,9)
1840IFF(X,5)=F(X,8)ANDF(X,6)=F(X,9)THEN
M(X)=1
1850IFM(X)=1ANDF(X,1)=6THENF(X,1)=1
1860IFF(X,1)=4ANDMID$(F$(X),6,1)="Q"THE
NF(X,8)=VAL(MID$(F$(X),7,2))/10
1870IFF(X,1)=4ANDMID$(F$(X),6,1)="R"THE
NF(X,8)=VAL(MID$(F$(X),7,2))/10+10
1880IFF(X,1)=4THENF(X,8)=VAL(MID$(F$(X)
,9,2))/10
1890IFF(X,5)<F(X,8)THENF(X,5)=F(X,5)+.5
1900IFF(X,5)>F(X,8)THENF(X,5)=F(X,5)-.5
1910IFF(X,6)<F(X,9)THENF(X,6)=F(X,6)+.5
1920IFF(X,6)>F(X,9)THENF(X,6)=F(X,6)-.5
1930M(X)=0
1940IFF(X,1)<4THEN1970
1950IFF(X,5)<10ANDF(X,6)>.9ANDM/2<>INT(
M/2)THENPRINTU$;" ";X;" AT TQ";F(X,5)*10
;F(X,6)*10
1960IFF(X,5)>10.9ANDF(X,6)>.9ANDM/2<>IN
T(M/2)THENPRINTU$;" ";X;" AT TR";(F(X,5)
-10)*10;F(X,6)*10
1970PRINT:NEXTX
1980GOSUB490
1990IFM/2=INT(M/2)THEN1550
2000FORXY=1TO9
2010IFG(XY,8)>0THENG(XY,9)=G(XY,9)-1
2020IFG(XY,8)=0THENGOSUB1500
2030IFG(XY,8)=0THEN2300
2040IF(G(XY,1)+G(XY,2))=0THEN2290
2050GOSUB490
2060IFG(XY,1)=0ANDG(XY,2)=0THENG(XY,8)=
3
2070IFG(XY,9)<1ANDG(XY,8)<4THENFU=FU+1
2080IFG(XY,9)<1THENG(XY,8)=4
2090IFG(XY,4)=G(XY,6)ANDG(XY,5)=G(XY,7)
THENN(XY)=1
2100IFN(XY)=1ANDG(XY,8)=2THENT=T+G(XY,1
)
2110IFN(XY)=1ANDG(XY,8)=2THENPRINTR$;"
";XY;" HAS REACHED LONDON"'
2120IFN(XY)=1ANDG(XY,8)<3THENG(XY,8)=G(
XY,8)+1
2130IFG(XY,8)=1THENG(XY,6)=B(XY,3)
2140IFG(XY,8)=1THENG(XY,7)=B(XY,4)
2150IFG(XY,8)=2THENG(XY,6)=T(1)
2160IFG(XY,8)=2THENG(XY,7)=T(2)
2170IFG(XY,8)=3THENG(XY,6)=F(XY,5)
2180IFG(XY,8)=3THENG(XY,7)=F(XY,6)
2190IFG(XY,8)=4THENG(XY,6)=O(1)
2200IFG(XY,8)=4THENG(XY,7)=O(2)
2210IFG(XY,4)<G(XY,6)THENG(XY,4)=G(XY,4
)+.5
2220IFG(XY,4)>G(XY,6)THENG(XY,4)=G(XY,4
)-.5
2230IFG(XY,5)<G(XY,7)THENG(XY,5)=G(XY,5
)+.5
2240IFG(XY,5)>G(XY,7)THENG(XY,5)=G(XY,5
)-.5
2250IFRND(1)<.35OR(G(XY,4)>9.9ANDG(XY,4
)<11)ORG(XY,5)<1THEN2290
2260IFG(XY,4)<10THENPRINTR$;" ";XY;" SI
GHTED AT TQ";G(XY,4)*10;G(XY,5)*10
2270IFG(XY,4)>=10THENPRINTR$;" ";XY;" S
IGHTED AT TR";(G(XY,4)-10)*10;G(XY,5)*10
2280IFG(XY,4)<15THENPRINT" BOMBERS ";G(
XY,1);" ESCORTS ";G(XY,2):PRINT
2290N(XY)=0
2300NEXTXY
2310FORZZ=1TO500:NEXT
2320BM=0:EM=0:FM=0
2330FORX=1TO9
2340BM=BM+G(X,1):EM=EM+G(X,2):FM=FM+F(X
,2)
2350NEXTX
2360PRINT:PRINTTF-FM;" British fighters
lost."
2370PRINTTB-BM;" German bombers destroy
ed."
2380PRINTTE-EM;" German escorts destroy
ed."
2390PRINTT;" Bombers have hit LONDON."'
2400IFFU=9ORT>NNTHENGOSUB2450:CHAIN"FCD
EF"
2410IFNN>=BMTHENGOSUB2450:CHAIN"FCWIN"
2420FORZZ=1TO500:NEXT
2430GOSUB490
2440GOTO1550
2450L%=T:F%=TF-FM:B%=TB-BM:E%=TE-EM:A%=
NN:FORZZ=1TO700:NEXT
2460RETURN
2470END
2480VDU26:CLS:PRINTTAB(10,0)" STATUS RE
PORTS"
2490PRINTTAB(0,2)" SQUADRON"TAB(14,2)"
STATUS"
2500FORA=1TO9
2510IFF(A,1)=1THENV$=" REFUELLING AT BA
SE"
2520IFF(A,1)=2THENV$=" ON STANDBY AT BA
SE"
2530IFF(A,1)=3THENV$=" OUT OF OPERATIO
N"
2540IFF(A,1)=4THENV$=" ON PATROL"
2550IFF(A,1)=5THENV$=" ON MISSION"
2560IFF(A,1)=6THENV$=" RETURNING FOR RE
FUELLING"
2570PRINTTAB(0,A+2)" No ";A;"."TAB(6,A+
2)" ";F(A,2);TAB(9,A+2)" LEFT"TAB(14,A+2
);V$
2580NEXTA
2590PRINTTAB(3,13)" RAIDERS - CURRENT
LOCATIONS"
2600FORO=1TO9
2610M$=" RAIDER "
2620IF(G(O,4)>9.9ANDG(O,4)<11)ORG(O,5)<
1THENPRINTTAB(0,O+13);M$;O;TAB(9,O+13);"
UNKNOWN AT PRESENT":GOTO2670
2630IFG(O,1)=0ANDG(O,2)=0THENPRINTTAB(0
,O+13);M$;O;TAB(9,O+13);" RAIDER DESTRO
YED":GOTO2670
2640IFG(O,4)<10THENPRINTTAB(0,O+13);M$;
O;TAB(9,O+13);" TQ";G(O,4)*10;G(O,5)*10;
TAB(16,O+13);" "G(O,1);TAB(20,O+13)" BOM
BERS ";G(O,2);TAB(31,O+13)" ESCORTS"
2650IFG(O,4)>=10THENPRINTTAB(0,O+13);M$
;O;TAB(119,O+13);" TR";(G(O,4)-10)*10;G(
O,5)*10;TAB(16,O+13);" "G(O,1);TAB(20,O+
13)" BOMBERS ";G(O,2);TAB(31,O+13)" ESCO
RTS"
2660IFG(O,4)>=15THENPRINTTAB(0+14);M$;O
;TAB(11,O+13);"UNKNOWN AT PRESENT"
2670NEXTO
2680PRINTTAB(0,23)" PRESS 'C' TO CONTIN
UE OR 'M' FOR MAP"
2690A$=GET$
2700IFA$="C"THENCLS:PROChalfscreen:PRIN
TTAB(0,18)" REPORT COMPLETED":A$="":GOTO
490
2710IFA$="M"THEN2730
2720IFA$<>"M"ANDA$<>"C"THEN2690
2730MODE5:VDU23;8202;0;0;0;
2740VDU24,70;20;1210;824;
2750VDU28,1,4,18,1
2760VDU23,237,60,36,60,4,4,0,0,0
2770VDU23,236,60,4,8,16,16,0,0,0
2780VDU23,235,56,32,60,36,60,0,0,0
2790VDU23,234,60,32,60,4,60,0,0,0
2800VDU23,224,4,4,68,127,68,4,4,16
2810VDU23,226,60,36,36,44,60,2,0,0
2820VDU23,227,56,36,56,40,36,0,0,0
2830VDU23,228,124,16,16,16,16,0,0,0
2840VDU23,229,24,36,36,36,36,24,0,0,0
2850VDU23,225,60,36,60,36,60,0,0,0
2860VDU23,230,16,48,16,16,56,0,0,0
2870VDU23,231,60,4,60,32,60,0,0,0
2880VDU23,232,60,4,28,4,60,0,0,0
2890VDU23,233,32,32,40,60,8,0,0,0
2900VDU19,1,4,0,0,0
2910VDU19,0,4,0,0,0
2920COLOUR134:COLOUR4:CLS
2930GCOL0,3:CLG
2940PRINTTAB(1)"Sector TQ/TR Map"'
2950PRINT"S/tatus C/ontinue"
2960MOVE70,20:FORP=1TO4:READV,U:DRAWV,U
:NEXT
2970GCOL0,2:FORP=100TO700STEP100:MOVEP,
824:READV,U:DRAWV,U:NEXTP
2980GCOL0,3:MOVE800,824:PLOT21,800,20
2990GCOL0,2:FORP=900TO1100STEP100:MOVEP
,824:READV,U:DRAWV,U:NEXTP
3000FORP=100TO800STEP100:MOVE70,P:READV
,U:DRAWV,U:NEXTP
3010GCOL0,2:MOVE140,824:FORP=1TO9:READV
,U:DRAWV,U:NEXT
3020MOVE160,824:FORP=1TO9:READV,U:DRAWV
,U:NEXT
3030MOVE740,800:FORP=1TO12:READV,U:DRAW
V,U:NEXT
3040MOVE340,824:FORP=1TO7:READV,U:DRAWV
,U:NEXT
3050MOVE320,824:FORP=1TO59:READV,U:DRAW
V,U:NEXT
3060GCOL0,3:VDU5:Z$=CHR$224:MOVE100,680
:PRINTZ$:MOVE105,580:PRINTZ$:MOVE210,580
:PRINTZ$:MOVE440,580:PRINTZ$:MOVE550,680
:PRINTZ$
3070MOVE752,720:PRINTZ$:MOVE1100,750:PR
INTZ$:MOVE995,365:PRINTZ$:MOVE890,365:PR
INTZ$
3080MOVE230,260:PRINTCHR$228:MOVE330,26
0:PRINTCHR$226:MOVE930,560:PRINTCHR$228:
MOVE1030,560:PRINTCHR$227
3090C=232:FORV=70TO470STEP100:MOVEV,50:
PRINTCHR$C:C=C+1:NEXTV
3100MOVE570,50:PRINTCHR$225:MOVE670,50:
PRINTCHR$237
3110C=229:FORV=770TO1170STEP100:MOVEV,5
0:PRINTCHR$C:C=C+1:NEXTV
3120C=230:FORV=110TO710STEP100:MOVE1165
,V:PRINTCHR$C:C=C+1:NEXTV:MOVE1165,810:P
RINTCHR$225
3130GCOL0,2:MOVE115,640:PRINTCHR$237:MO
VE110,540:PRINTCHR$225:MOVE232,540:PRINT
CHR$236:MOVE529,650:PRINTCHR$235
3140MOVE410,540:PRINTCHR$234:MOVE740,74
0:PRINTCHR$233:MOVE1110,778:PRINTCHR$232
:MOVE1010,390:PRINTCHR$231:MOVE930,340:P
RINTCHR$230
3150VDU4:RESTORE
3160A$=GET$
3170IFA$="S"THENMODE7:VDU23;8202;0;0;0;
:GOTO2480
3180IFA$="C"THENMODE7:VDU23;8202;0;0;0;
:GOTO2700
3190IFA$<>"C"ORA$<>"S"THEN3160
3200DATA1210,20,1210,824,70,824,70,20
3210DATA100,20,200,20,300,20,400,20,500
,20,600,20,700,20,900,20,1000,20,1100,20
3220DATA1210,100,1210,200,1210,300,1210
,400,1210,500,1210,600,1210,700,1210,800
3230DATA115,780,140,765,190,765,180,770
,175,800,195,810,220,780,280,800,290,824
,145,800,145,790,150,790,160,820,180,824
,200,823,220,800,260,810,275,824
3240DATA730,780,750,760,720,740,750,700
,750,665,800,685,850,675,850,720,870,730
,850,770,760,780,740,800
3250DATA340,790,390,760,420,787,440,795
,460,780,480,790,500,824
3260DATA320,780,350,760,400,740,430,770
,490,760,520,800,570,790,640,807,660,797
,675,785,640,740,600,730,540,720,540,700
,520,680,560,680
3270DATA580,700,640,720,700,700,680,750
,710,775,725,760,700,740,730,700,730,650
,820,670,860,660,900,680,920,680,960,710
,1000,725,1070,725,1100,730,1160,745
3280DATA1200,745,1200,720,1180,680,1160
,680,1130,700,1120,640,1150,650,1170,600
,1200,530,1200,500,1180,460,1140,420,110
0,390,1060,360,1100,340,960,320
3290DATA950,300,950,240,970,140,955,120
,940,140,850,180,760,100,700,80,560,20
3300DEFPROChalfscreen
3305PRINTTAB(0,21)STRING$(39,"`")
3310PRINTTAB(0,22)" C=CHANGE COURSE. S
=SCRAMBLE SQUADRON"
3320PRINTTAB(0,23)" B=RETURN TO FIELD M
=MAP AND STATUS"
3330PRINTTAB(0,24)" R=REPORT STATUS P
=PATROL SQUADRON"
3340VDU28,1,19,38,0
3350ENDPROC