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