B I IhI 100d 58579 .23675{\,238:23676|\,255 1:7:1  110 ,2;"PLEASE WAIT FOR MAP TO LOAD" ("MAP" 2A=58580 723658j\,0 <N:A,N F A=A+1 KA<5860360< P33!,0,64@,17,238,228,1,0,27,237,176,201,33!,238,228,17,0,64@,1,0,27,237,176,201 Z58580 d n 8000@ x LOOP 23658j\,0 I$= 21,0;N$ I$=0 CI$<97aůI$>120xV$="USE LOWER CASE LETTERS ONLY, SIR" "I$<97aůI$>120xMESS I$<97aůI$>120x I$="" .1}L,0 160  I$="s"V$="SCRAMBLE " I$="c"V$="CHANGE COURSE " I$="p"V$="PATROL " I$="r"V$="REPORT " I$="q"100d I$="k"9000(# I$="i"9500% I$="x"1900l I$="k"I$="i"I$="q"I$="x" &V$=V$+"ENTER SQUADRON NUMBER (1-9) " MESS /=0ů>579ů<491195 A=-480 I$="b"10808 V$=U$+" "+A 5F(A,1)=1V$=V$+S$+"REFUELLING AT BASE" -F(A,1)=2V$=V$+S$+"ON STANDBY" 3F(A,1)=3V$=V$+S$+"OUT OF OPERATION" ,F(A,1)=4V$=V$+S$+"ON PATROL" -F(A,1)=5V$=V$+S$+"ON MISSION" ";F(A,1)=6V$=V$+S$+"RETURNING FOR REFUELLING" ,FF(A,1)=1F(A,1)=3F(A,1)=6CANT 1I$"r"330J 6-V$=V$+" AIRCRAFT AVAILABLE: "+F(A,2) @6V$=V$+" AIRCRAFT MISSING: "+(10 -F(A,2)) EMESS J I$="r" T I$="p"ACK ^7V$=" INPUT DESTINATION CO-ORDINATES. (e.g. Bd or HG)" h MESS r 1;A$ s1A$2V$="ONLY TWO LETTERS PLEASE":MESS tA$2350^ |&F(A,8)=(A$(1))-64@ =A$(2)>96`F(A,9 )=(A$(2))-70F =A$(2)<91[F(A,9 )=(A$(2))-64@ F(A,1)=5 V$="ROGER. "+U$+A+" TO "+A$ MESS I$="s"I$="c" OF(A,1)=2F(A,1)=5V$="ROGER."+U$+" "+A+" ON PATROL" 6F(A,1)=4V$=U$+A+" ALREADY PATROLLING" pF(A,1)=1F(A,1)=3F(A,1)=4F(A,1)=6V$=V$+" UNABLE TO COMPLY" MESS AF(A,1)=2F(A,1)=5F(A,1)=4   V$=Q$+V$+H$  7 H=1̱V$-32 -1;21,0;V$(HH+31) KBEEP=0ůV$(H+31)<65AůV$(H+31)>90Z550& N=14 *C((V$(H+31))-64@,N),25 N &H +V$="" , 502 0 :58592 ?5:1:7 DN=19 NwF(N,1)<4F(N,5)<1F(N,5)>20F(N,6)<1F(N,6)>30620l XF(N,10 )=11;7;1;F(N,5),F(N,6);"";F(N,5),F(N,6)+1;0;7;N bMF(N,10 )=07;1;F(N,5),F(N,6);"" gQF(N,10 )=07;1;F(N,5),F(N,6)+1;N l(G(N,1)<1G(N,2)<1)G(N,10 )<1G(N,10 )>20G(N,11 )<1G(N,11 )>30G(N,8)<1640 v:7;2;G(N,10 ),G(N,11 );"" {:7;2;G(N,10 ),G(N,11 )+1;N N BT>01;0;2;T(1),T(2);" "  21,0;Q$ .1;21,0;U$;X;" ATTACKING"  502 RF>0740 Z=19 _(F(X,5)-F(Z,5))<2ƽ(F(X,6)-F(Z,6))<2RF=RF+F(Z,2) F(X,10 )=1 b(F(X,5)-F(Z,5))<2ƽ(F(X,6)-F(Z,6))<2F(Z,10 )=1 Z PRINT 6F(X,2)>0F(X,2)=(F(X,2)-) 6G(Y,2)>0G(Y,2)=(G(Y,2)-) )G(Y,2)<1880p  %F(X,2)<1800   750  TOT=0 !Z=19 *=F(Z,10 )=1F(Z,2)>0TOT=TOT+1 4CTOT=1F(Z,10 )=1F(Z,2)=(F(Z,2)-) >Z H-TOT>0G(Y,2)=(G(Y,2)-) R%G(Y,2)<1880p \TOT>0800  fTOT=01000 p6G(Y,1)>0G(Y,1)=(G(Y,1)-) zP>(100d-(G(Y,1)/2))/100dF(X,2)=(F(X,2)-) (G(Y,1)<11000 !F(X,2)<1930  880p  TOT=0 Z=19 =F(Z,10 )=1F(Z,2)>0TOT=TOT+1 rTOT=1F(Z,10 )=1ƥ>(100d-(G(Y,1)/2))/100dF(Z,2)=(F(Z,2)-) Z -TOT>0G(Y,1)=(G(Y,1)-) &G(Y,1)<11000 TOT>0930 E(X)=0 -F(X,1)=6:F(X,10 )=0 Z=19 .F(Z,10 )=1F(Z,10 )=0  F(Z,2)<1F(Z,2)=0:G(Z,1)<1G(Z,1)=0:G(Z,2)<1G(Z,2)=0 Z  RF=0 $,F(X,2)<1F(X,1)=6 )4(G(Y,1)+G(Y,2))=0FU=FU+1 . 8F(A,1)=6 B!V$="ROGER. "+U$+A+" RETURNING" LMESS V `R=(*100d)+1 j<G(X,8)=0R>70FG(X,4)=B(X,1) t<G(X,8)=0R>70FG(X,5)=B(X,2) ~7G(X,8)=0R>70FG(X,8)=1   M=M+1 X=19 INK ;F(X,2)=0F(X,1)=31560 )F(X,1)=1R(X)=R(X)+1 $R(X)=5F(X,1)=2 %R(X)=5F(X,4)=14 R(X)=5R(X)=0 9F(X,1)>3F(X,4)=F(X,4)-1 (F(X,4)<11350F Y=19 (F(X,5)-G(Y,4))<2ƽ(F(X,6)-G(Y,5))<2G(Y,1)>0F(X,2)>0F(X,1)>3E(X)=1  [G(Y,1)+G(Y,2)=0F(X,2)=0F(X,1)=613302 )E(X)=1F(X,5)=G(Y,4) )E(X)=1F(X,6)=G(Y,5) (=E(X)=1G(Y,1)>0F(X,2)>0ATT 2E(X)=0 <Y FGF(X,4)=5F(X,1)>3V$=U$+X+" FUEL LEVEL LOW" P1F(X,4)=5F(X,1)>3MESS ZAF(X,4)<1F(X,1)>3F(X,1)=6 d=F(X,1)=6F(X,8)=F$(X)(1)-64@ nVF(X,1)=6ƯF$(X)(2)>96`F(X,9 )=F$(X)(2)-70F xVF(X,1)=6ƯF$(X)(2)<91[F(X,9 )=F$(X)(2)-64@ QF(X,4)=0F(X,1)>3V$=U$+X+" RETURNING FOR REFUELLING" 1F(X,4)=0F(X,1)>3MESS ,F(X,2)=0F(X,1)=3 ;F(X,2)=0F(X,1)<41560 {F(X,1)=6ƽ(F(X,8)-F(X,5))<2ƽ(F(X,9 )-F(X,6))<2F(X,5)=F(X,8) {F(X,1)=6ƽ(F(X,8)-F(X,5))<2ƽ(F(X,9 )-F(X,6))<2F(X,6)=F(X,9 ) CF(X,5)=F(X,8)F(X,6)=F(X,9 )M(X)=1 9M(X)=1F(X,1)=6F(X,1)=1 =F(X,1)=4F(X,8)=F$(X)(3)-64@ VF(X,1)=4ƯF$(X)(4)<91[F(X,9 )=F$(X)(4)-64@ VF(X,1)=4ƯF$(X)(4)>96`F(X,9 )=F$(X)(4)-70F >F(X,5)F(X,5)>F(X,8)F(X,5)=F(X,5)-1 >F(X,6)F(X,6)>F(X,9 )F(X,6)=F(X,6)-1 M(X)=0 "X 'PRINT ,INK 6X=19 @9G(X,8)>0G(X,9 )=G(X,9 )-1 JG(X,8)=0FEED T$G(X,8)=01890b ^3(G(X,1)+G(X,2))=01880X hINK rAG(X,1)=0G(X,2)>0G(X,8)=3 |:G(X,9 )<1G(X,8)<4FU=FU+1 ,G(X,9 )<1G(X,8)=4 CG(X,4)=G(X,6)G(X,5)=G(X,7)N(X)=1 5N(X)=1G(X,8)=2T=T+G(X,1) CN(X)=1G(X,8)=2V$=R$+X+" HAS REACHED TARGET" )N(X)=1G(X,8)=2MESS /N(X)=1G(X,8)=21715 <.75@1720 G(X,10 )=G(X,4) G(X,11 )=G(X,5) FN(X)=1G(X,8)<3G(X,8)=G(X,8)+1 1G(X,8)=1G(X,6)=B(X,3) 1G(X,8)=1G(X,7)=B(X,4) /G(X,8)=2G(X,6)=T(1) /G(X,8)=2G(X,7)=T(2) 1G(X,8)=3G(X,6)=F(X,5) 1G(X,8)=3G(X,7)=F(X,6) /G(X,8)=4G(X,6)=O(1) /G(X,8)=4G(X,7)=O(2) GG(X,4)G(X,6)G(X,4)=(G(X,4)-(1.6L*)) &GG(X,5)G(X,7)G(X,5)=(G(X,5)-(1.6L*)) :[<.90ffffG(X,8)<1G(X,10 )>20G(X,10 )=01880X DZV$=R$+X+" STRENGTH REPORT "+G(X,1)+" BOMBERS "+G(X,2)+" FIGHTER ESCORTS" NMESS XN(X)=0 bX gI$="" l0BM=0:EM=0:FM=0:IN=0 q21,0;H$ vl=19 BM=BM+G(l,1) EM=EM+G(l,2) FM=FM+F(l,2) *G(l,8)<3IN=IN+G(l,1) .F(l,10 )=1F(l,10 )=0 l I$"x"2000 (V$=(TF-FM)+" BRITISH FIGHTERS LOST " .V$=V$+(TB-BM)+" GERMAN BOMBERS DESTROYED " .V$=V$+(TE-EM)+" GERMAN ESCORTS DESTROYED " )V$=V$+T+" BOMBERS HAVE REACHED TARGET" MESS  <FM=0T>(NN-1)(T+IN)(NN-1)FM=0V$="YOU HAVE FAILED TO DEFEND YOUR COUNTRY. YOU WILL PRESENT YOURSELF AT THE WAR OFFICE IMMEDIATELY ":N$="" „T+IN0V$="NOT ENOUGH BOMBERS REMAIN TO FULFILL THE MISSION. THE A.M. WISHES TO CONGRATULATE YOU PERSONALLY. ":N$="" DFM=0V$="YOU HAVE LOST EVERY SQUADRON UNDER YOUR COMMAND. " @FU=9 V$=V$+" THE ENEMY SQUADRONS HAVE RUN OUT OF FUEL " (V$=V$+T+" BOMBERS REACHED THE TARGET" #V$=V$+" PRESS ANY KEY TO RESTART" MESS =""3035  110n @1:7: E4,7;"Battle of Britain";6,7;127;" R.Erskine 1982";17,5;"Microgame Simulations";19,6;"Cambridge England" J T=0 KM1=.03{u\ LM2=.09}8Q MLOOP=1170 NINK=130 OMESS=480 PRET=10808 QATT=670 RACK=420 SPRINT=570: TM(9 ) UFEED=1120` VCANT=430 W'Q$=" " XH$=" " YNN=100d Z'N$=" ENTER COMMAND(OR 'x' FOR TALLY)" ^F$(9 ,4) hB(9 ,4) r O(2) |S$=" STATUS: " } 8061} ~C(26,4) X=126 Y=14 C(X,Y) Y X M1,M2,0,0,M2,M1,M1,M1,M2,M1,M2,M1,M2,M1,M1,0,M1,0,0,0,M1,M1,M2,M1,M2,M2,M1,0,M1,M1,M1,M1,M1,M1,0,0,M1,M2,M2,M2,M2,M1,M2,0,M1,M2,M1,M1,M2,M2,0,0,M2,M1,0,0,M2,M2,M2,0,M1,M2,M2,M1,M2,M2,M1,M2,M1,M2,M1,0,M1,M1,M1,0,M2,0,0,0,M1,M1,M2,0,M1,M1,M1,M2,M1,M2,M2,0,M2,M1,M1,M2,M2,M1,M2,M2,M2,M2,M1,M1  N(9 )  R(9 )  G(9 ,11 ) F(9 ,10 )  TB=0  T(2)  TE=0 F$(9 ,4) B(9 ,4) O(1)=22 O(2)=33! RA=(*3)+1 @RA=1T(1)=1:RA=1T(2)=1 ARA=2T(1)=2:RA=2T(2)=10 @RA=3T(1)=1:RA=3T(2)=5 X=19 R1=(*30)+1 &R2=(*30)+1 0B(X,1)=20 :B(X,2)=R1 DB(X,3)=10 NB(X,4)=R2 X$G(X,1)=(*40()+1 bTB=TB+G(X,1) l$G(X,2)=(*15)+1 vTE=TE+G(X,2) 4G(X,3)=((G(X,1)/4)+G(X,2)) G(X,9 )=45- F(X,1)=1 R(X)=4 F(X,2)=10 F(X,4)=14 X TBNN8210 FU=0 TF=90Z R$="RAIDER " F$(1)="MWTA" F$(2)="LZLC" F$(3)="EdLI" F$(4)="DTCA" F$(5)="GKTW" F$(6)="EMSA" !F$(7)="FDTO" !F$(8)="GANI" !4F$(9 )="EARQ" !R E(9 ) !\ M=0 !fU$="SQUADRON " !pX=19 !z'F(X,5)=F$(X)(1)-64@ !AF$(X)(2)<91[F(X,6)=F$(X)(2)-64@ !AF$(X)(2)>96`F(X,6)=F$(X)(2)-70F !X ! RF=0 !BEEP=0 ! 8640! !X=07 !AA ! "A"+X,AA !BB ! "B"+X,BB !X !ߏ0,0,16,16,16,84T,254,254,16,16,16,16,568,568,0,0 !,10 ,7;"DO YOU WANT SOUND?" !=""8675! !="Y"Ŧ="y"BEEP=1 !""8694! !312 ,3;"DO YOU WANT INSTRUCTIONS?" "=""8700! "="Y"Ŧ="y"9500% " 9000(# "7:0 ":10 ,0;"IF "; NN;" BOMBERS REACH THEIR","TARGET YOU WILL HAVE LOST. DO","YOU WANT TO CHANGE THIS NUMBER?":502 " =""8735" "!"Y"Ʀ"y"8750." """ENTER CHOSEN NUMBER" "#A "%8A>TB"THERE ARE NOT ENOUGH BOMBERS":A>TB8738"" "&NN=A ".PRINT #,V$="FIGHTER COMMAND RED ALERT: STAND BY. " # MESS #%V$="COMMUNICATIONS CHANNELS OPENED" #MESS #' #(:1:7: #) #200,2;"KEY TO COMMANDS AND SYMBOLS" #< :502 #F" s = Scramble a squadron":" c = Change course to...":" p = Squadron on pre-set patrol":" b = Return to base":" r = Report squadron status":" i = Display instructions":" k = Display this list":" q = Quit game": #P" ";7;1;"";7;1;6;1;;7;" = British squadron"::" ";7;2;"";4;1;7;" = German squadron"::" ";7;1;1;"";0;7;7;1;0;" = Combat"::" ";0;6;8;1;7;" = Airfield"::" "; 0;2;1;" ";1;7;0;" = Bombed target" #d3:21,4;"PRESS ANY KEY TO RETURN" #s1:5 #t 502 #x""9100# # 9080x# #M>1PRINT # %7:1 % %&#0,8;"INSTRUCTIONS": %++"Please scroll when prompted"::502 %0 "Nine German bomber squadrons","with fighter escorts (named","raider 1 to raider 9) are flyingby varying routes to one of","three possible targets. As the","commander of 9 RAF squadrons","your mission is to intercept the enemy before they reach their","target.": %:t"The last known positions of the","enemy are plotted on the map","plus the present positions of","your own.": %D^"Enemy squadron routes and the","target are chosen randomly at","the start of each game. ": %N2"Your squadrons can be Scrambled","and sent to intercept the enemy along their estimated routes.","If an RAF squadron comes within 1 square of an enemy flight it","will lock on and attack. Each","squadron can be reinforced by","having the reinforcing squadron within 1 square of the attackingsquadron.": %X"Squadrons will return","automatically to base when they","run out of fuel. Returning or","refuelling squadrons are out of","action until they are ON STANDBYagain. Enemy squadrons carry","long range fuel tanks.": %bl"If a fighter squadron has a","chance encounter with a raider","it will attack on its own","initiative.": %ly"German squadrons have up to 55","planes each (including escorts)","and all British squadrons have","10 planes each.": %v!"Knowing only the last known","positions of German squadrons","it is easy to lose track of themYou could experiment with","various strategies like","saturating an area with fightersforming a cordon, etc. Do not","waste time intercepting","squadrons which have already hittheir target.": %"To communicate with a squadron","input a command (list given","later). You may sometimes have","to depress the key for a few","seconds before getting a","response. Sometimes only one keyis necessary and sometimes you","will have to enter co-ordinates","followed by ENTER. Enter left ","hand co-ordinate first, then ","from the top row using upper or","lower case as indicated on the","map": %"Remember that you start out witha total of 90 aircraft whilst","the enemy have up to 495.","Sometimes the game will be over very quickly because the number","of enemy bombers remaining are","not enough to fulfill victory ","conditions.": %Z"Squadrons which have just been","in combat will return for","refuelling immediately.": %"Although your squadrons can","travel a fair distance before","running low on fuel, they will","only be effective when operatinglocally and have time to chase.","you may wish to divide the area","up into sectors to aid your","strategy.": %}"N.B. If you accidently break therunning of the program, enter","RETURN. If this does not work","try entering GOTO LOOP.": %"PRESS ANY KEY TO CONTINUE" % 502 %=""9665% %M>0PRINT % ;MAP @ `<|D@BB<|<|B @?NBBBBD@@BBBD@BFB@JDBB$Z$ D" D@B~BBD?~@BB@BBBB|D@<B?B<BH@B?f(b?B~p?@ZRBBBH@<BJB?BBD@@?BFB?B><B~~B>B<??|<|<BBB@?BBB<|R|?@JD??B@<?B<??888888888888888888888888888888888!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!8!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!88888888888888888888888888888888((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((