n1? A@:\|BHD D@D@ 8B~B8 D<<<=`B<@@ <@@~fB@88@88xt B@88@8@x<8xZ@@DxD 0DD @xD@x0 D|DDD<B@@DDD xDu @Dx8D x@DD120xV$="THAT WAS AN UNOFFICIAL INPUT, SIR" 'I$<97aůI$>120x710 I$<97aůI$>120x  I$="" .1}L,0  475  #I$="m"V$="MOBILISE:":525  %I$="n"V$="NEW ORDERS:":525   I$="s"V$="RECCE:":525  !I$="r"V$="REPORT:":525  I$="k"2085% I$="q"706 I$="i"1505 I$="k"I$="i" !I$="k"I$="q"I$="i"525   I$"a"  &V$=V$+"ENTER DIVISION NUMBER (1-9) "  710 /=0ů>579ů<491535 F=-480 !V$=U$+" "+F &2A(F)=1V$=V$+S$+"REARMING AND GASSING UP" +4A(F)=2V$=V$+S$+"MOBILISED AWAITING ORDERS" 0,A(F)=3V$=V$+S$+"PRISONERS OR DEAD" 5#A(F)=4V$=V$+S$+"ON RECCE" :$A(F)=5V$=V$+S$+"MOVING UP" ?0A(F)=6V$=V$+S$+"RETREATING TO REGROUP" D3A(F)=1A(F)=3A(F)=6685 II$"r"605] N*V$=V$+" TANKS AVAILABLE: "+A(F+9 ) S6V$=V$+" TANKS DESTROYED: "+(186-A(F+9 )) X 710 ] I$="r" bI$="s"680 g+V$=" SEND MAP REFERENCE. (e.g. EA or dT)" l 710  q 1;A$ vAA$2V$="ONLY TWO LETTERS PLEASE":710:615g {A$="ZZ"("a"-33!) 7A$(1)>"e"A$(1)=(A$(1)-32 ) NA$(1)<"A"A$(1)>"e"(a$(1)>"Z"a$(1)<"a")625q =A$(2)>96`A$(2)=(A$(2)-32 ) ,A$(2)<"A"A$(2)>"T"625q 'A(F+72H)=(A$(1))-64@ >A$(2)<91[A(F+63?)=(A$(2))-64@ A(F)=5 $V$="O.K GENERAL. "+U$+F+" TO "+A$  710 I$="m"I$="n" GA(F)=2A(F)=5V$="O.K SIR. "+U$+" "+F+" GOING ON RECCE" ,A(F)=4V$=U$+F+" ALREADY ON RECCE" A(F)=1A(F)=4A(F)=6V$=V$+" UNSERVICEABLE: ARMOUR STILL OPERATIONAL "+A(F+9 )+" ARMOUR DESTROYED "+(186-A(F+9 ))  710 )A(F)=2A(F)=5A(F)=4  Av$="QUIT: Are you sure ?":710:1:0:="y"   V$=Q$+V$+H$  7 H=1̱V$-32 -1;21,0;V$(HH+31) HD=0ůV$(H+31)<65AůV$(H+31)>90Z740 0.03{u\+(*.025{L)-*.025{L,25 H V$=""  75K  64000 4:0:7 N=19 sA(N)<4A(N+36$)<1A(N+36$)>20A(N+45-)<1A(N+45-)>30795 A(N+81Q)=11;1;2;6;A(N+36$),A(N+45-)+1;"";0;A(N+36$),A(N+45-);7;1;"" XA(N+81Q)=01;7;1;A(N+36$),A(N+45-);"" \A(N+81Q)=01;7;1;A(N+36$),A(N+45-)+1;N (G(N)<1G(N+9 )<1)G(N+81Q)<1G(N+81Q)>20G(N+90Z)<1G(N+90Z)>30G(N+63?)<1815/  C1;5;0;G(N+81Q),G(N+90Z);"" %C1;5;0;G(N+81Q),G(N+90Z)+1;N /N 4BT>01;5;0;T(1),T(2);"" 9 >A(F)=6 C 710 H MR=(*100d)+1 R6G(X+63?)=0R>70FG(X+27)=B(X) W>G(X+63?)=0R>70FG(X+36$)=B(X+9 ) \9G(X+63?)=0R>70FG(X+63?)=1 a f M=M+1 kX=19 p 425 u/A(X+9 )=0A(X)=31305 z!A(X)=1R(X)=R(X)+1 R(X)=5A(X)=2 &R(X)=5A(X+27)=14 R(X)=5R(X)=0 3A(X)>3A(X+27)=A(X+27)-1 #A(X+27)<11200 Y=19 (A(X+36$)-G(Y+27))<2ƽ(A(X+45-)-G(Y+36$))<2G(Y)>0A(X+9 )>0A(X)>3E(X)=1 IG(Y)+G(Y+9 )=0A(X+9 )=0A(X)=61190 +E(X)=1A(X+36$)=G(Y+27) +E(X)=1A(X+45-)=G(Y+36$) ;E(X)=1G(Y)>0A(X+9 )>0955  1190 1,-502 BG(Y+81Q)=G(Y+27):G(Y+90Z)=G(Y+36$)+2 V$=U$+X+" ATTACKING "+R$+Y  710  502 I>01000 Z=19 a(A(X+36$)-A(Z+36$))<2ƽ(A(X+45-)-A(Z+45-))<2I=I+A(Z+9 ) A(X+81Q)=1 f(A(X+36$)-A(Z+36$))<2ƽ(A(X+45-)-A(Z+45-))<2A(Z+81Q)=1 Z  760 6A(X+9 )>0A(X+9 )=(A(X+9 )-) 6G(Y+9 )>0G(Y+9 )=(G(Y+9 )-) "G(Y+9 )<110753 "A(X+9 )<11030  1005  TOT=0  Z=19 =A(Z+81Q)=1A(Z+9 )>0TOT=TOT+1 CTOT=1A(Z+81Q)=1A(Z+9 )=(A(Z+9 )-) Z -TOT>0G(Y+9 )=(G(Y+9 )-) $"G(Y+9 )<110753 )TOT>01030 .TOT=01140t 3G(Y)>0G(Y)=(G(Y)-) 8H>(200-(G(Y)/2))/200A(X+9 )=(A(X+9 )-) =G(Y)<11140t B"A(X+9 )<11100L G 10753 L TOT=0 QZ=19 V=A(Z+81Q)=1A(Z+9 )>0TOT=TOT+1 [jTOT=1A(Z+81Q)=1ƥ>(200-(G(Y)/2))/200A(Z+9 )=(A(Z+9 )-) `Z eTOT>0G(Y)=(G(Y)-) jG(Y)<11140t oTOT>01100L tE(X)=0 v%A(X+9 )93]A(X)=5 y<A(X+9 )92\A(X)=6:A(X+81Q)=0 ~Z=19 .A(Z+81Q)=1A(Z+81Q)=0 tA(Z+9 )<1A(Z+9 )=0:G(Z)<1G(Z)=0:G(Z+9 )<1G(Z+9 )=0 Z  I=0 $A(X+9 )<1A(X)=6 *(G(Y)+G(Y+9 ))=0K=K+1  E(X)=0 Y HA(X+27)=5A(X)>3V$=U$+X+" GAS SITUATION CRITICAL" /A(X+27)=5A(X)>3710 2A(X+27)<1A(X)>3A(X)=6 =A(X)=6A(X+63?)=F$(X*4-3)-64@ ]A(X)=6ƯF$(X*4-2)>96`A(X+72H)=F$(X*4-2)-70F ]A(X)=6ƯF$(X*4-2)<91[A(X+72H)=F$(X*4-2)-64@ ]A(X+27)=0A(X)>3V$=U$+X+" RETREATING HAVE ONLY FUMES IN OUR GAS TANKS" /A(X+27)=0A(X)>3710 $A(X+9 )=0A(X)=3 /A(X+9 )=0A(X)<41305 yA(X)=6ƽ(A(X+63?)-A(X+36$))<2ƽ(A(X+72H)-A(X+45-))<2A(X+36$)=A(X+63?) yA(X)=6ƽ(A(X+63?)-A(X+36$))<2ƽ(A(X+72H)-A(X+45-))<2A(X+45-)=A(X+72H) GA(X+36$)=A(X+63?)A(X+45-)=A(X+72H)M(X)=1 )M(X)=1A(X)=6A(X)=1 =A(X)=4A(X+63?)=F$(X*4-1)-64@ MA(X)=4ƯF$(X*4)<91[A(X+72H)=F$(X*4)-64@ MA(X)=4ƯF$(X*4)>96`A(X+72H)=F$(X*4)-70F BA(X+36$)A(X+63?)A(X+36$)=A(X+36$)-1 BA(X+45-)A(X+72H)A(X+45-)=A(X+45-)-1 M(X)=0 X # 760 ( 425 -X=19 2<G(X+63?)>0G(X+72H)=G(X+72H)-1 7"G(X+63?)=0845M <#G(X+63?)=01495 A)(G(X)+G(X+9 ))=01490 F 425 K:G(X)=0G(X+9 )>0G(X+63?)=3 P:G(X+72H)<1G(X+63?)<4K=K+1 U.G(X+72H)<1G(X+63?)=4 ZGG(X+27)=G(X+45-)G(X+36$)=G(X+546)N(X)=1 _.N(X)=1G(X+63?)=2T=T+G(X) dkN(X)=1G(X+63?)=2V$=R$+X+" GAS DUMP CAPTURED. MEUSE IS CROSSED. ANTWERP UNDER ATTACK" i/N(X)=1G(X+63?)=2710 n0N(X)=1G(X+63?)=21400x s<.75@1410 xG(X+81Q)=G(X+27) }G(X+90Z)=G(X+36$) IN(X)=1G(X+63?)<3G(X+63?)=G(X+63?)+1 4G(X+63?)=1G(X+45-)=B(X+18) 4G(X+63?)=1G(X+546)=B(X+27) 1G(X+63?)=2G(X+45-)=T(1) 1G(X+63?)=2G(X+546)=T(2) 4G(X+63?)=3G(X+45-)=A(X+36$) 4G(X+63?)=3G(X+546)=A(X+45-) 1G(X+63?)=4G(X+45-)=O(1) 1G(X+63?)=4G(X+546)=O(2) KG(X+27)G(X+45-)G(X+27)=(G(X+27)-(1.5@*)) KG(X+36$)G(X+546)G(X+36$)=(G(X+36$)-(1.5@*)) \<.90ffffG(X+63?)<1G(X+81Q)>20G(X+81Q)=01490 SV$=R$+X+" STRENGTH REPORT "+G(X)+" TANKS "+G(X+9 )+" INFANTRY DIVISIONS"  710 N(X)=0 X I$="" -U=0:S=0:C=0:IN=0 21,0;H$ l=19  U=U+G(l) S=S+G(l+9 ) C=C+A(l+9 ) #G(l+63?)<3IN=IN+G(l) .A(l+81Q)=1A(l+81Q)=0  l I$"i"15851 %V$=(Q-C)+" U.S. TANKS DESTROYED " *V$=V$+(W-U)+" GERMAN TANKS DESTROYED " 4V$=V$+(P-S)+" GERMAN INFANTRY DIVISIONS ROUTED " ",V$=V$+T+" GERMAN UNITS ATTACKING ANTWERP" ' 710 , 19C=0T>(V-1)(T+IN)1K=18 @ 425 E 760 J 875k OV$="" TT>(V-1)C=0V$="YOU HAVE FAILED TO CONTAIN THE GERMAN ARDENNES OFFENSIVE. HITLER'S FORCES ARE TRIUMPHANT ":N$="" YtT+IN0V$="THE GERMANS ARE IN FULL ROUTE. WINSTON AND IKE WISH TO CONGRATULATE YOU PERSONALLY. ":N$="" ^C=0V$="DUE TO YOUR STUPIDITY YOU HAVE LOST EVERY DIVISION UNDER YOUR COMMAND. YOU HAVE BEEN RELIEVED OF DUTY PENDING A COURT MARTIAL " cK9 T=0V$=V$+" THE ENEMY DIVISIONS HAVE RUN OUT OF FUEL ALL DUE TO YOUR BRILLIANT DELAYING TACTICS. IKE AND WINSTON WISH TO SEE YOU PROMOTED. " h#V$=V$+T+" UNITS ARE IN ANTWERP" m#V$=V$+" PRESS ANY KEY TO RESTART" r 710 w=""1655w |  415 4:0: 4,9 ;"PANZER ATTACK";6,10 ;" R.Packer ";8,9 ;" T.Kitchener";10 ,13 ;127;"1984";17,7;" M.C.Lothlorien ";18,24;"";19,7;"Cheshire, England"  T=0 M(9 ) 'Q$=" " H$=" "  V=200 'N$=" ENTER ORDERS(OR'I'INTELLIGENCE)"  B(36$)  O(2) S$=" SITUATION: "  N(9 )  R(9 )   G(99c)  A(90Z)  W=0  T(2)  P=0  B(36$) O(1)=21 O(2)=33! FD=(*4)+1 @FD=1T(1)=1:FD=1T(2)=1 AFD=2T(1)=2:FD=2T(2)=10 AFD=3T(1)=13 :FD=3T(2)=1 AFD=4T(1)=17:FD=4T(2)=7 X=19  R1=30 R2=(*30)+1 B(X)=(*20)+1 B(X+9 )=R1 !%B(X+18)=(*20)+1 &B(X+27)=R2 +G(X)=(*270)+150 0 W=W+G(X) 5#G(X+9 )=(*3)+2 :P=P+G(X+9 ) ?-G(X+18)=((G(X)/4)+G(X+9 )) DG(X+72H)=45- IA(X)=1 NR(X)=4 S%A(X+9 )=(*93])+93] XA(X+27)=14 ]X bWV1800 g K=0 lQ=1674 qR$="Pz.DIVISION " v+F$="EQHTEWFSBPBJTVSYHLFNFAAAJSMSTBMASQNN" { E(9 )  M=0 U$="DIVISION " X=19 /A(X+36$)=F$(X*4-3)-64@ PF$(X*4-2)<91[A(X+45-)=F$(X*4-2)-64@ PF$(X*4-2)>96`A(X+45-)=F$(X*4-2)-70F X  I=0  D=1  1965 *j=144148:x=07 udg:j+x,udg x:j J0,0,480,127,60<,254,127,62> J0,0,4,254,30,255,255,126~ K0,16,568,238,108l,124|,198,0 J32 ,76L,122z,568,188,100d,8,0 J8,130,16,74J,17,138,84T,568 G61=,30,27,27,1,7,27,19 P96`,184,116t,186,117u,250,245,255 B7,15,0,0,0,0,0,0 G207,197,194,5,6,2,2,1  2085% 4:0 :10 ,0;"IF "; V;" GERMAN DIVISIONS REACH ","THE FUEL DUMP SO THEY MAY","ATTACK ANTWERP YOU WILL HAVE","LOST. DO YOU WANT TO CHANGE","THIS NUMBER?":18,0;"N.B. INPUT COORDINATES ACROSS THEN DOWN.":50 =""2025 "Y"Ʀ"y"2055 "ENTER CHOSEN NUMBER" 6a$:f=1̱a$:a$(f)<"0"a$(f)>"9"f=999 &f:f<2f>9992040 f=a$:f<12040 /F>W"THE GERMANS ARE RETREATING":2035 V=F  760  .V$="GEN. HODGES, GERMAN BREAK OUT ARDENNES "  710 4V$="CONTAIN GERMANS AT ALL COSTS, GEN. EISENHOWER"  710   %:4:0: * /!" KEY TO COMMANDS AND SYMBOLS" 9" m = Mobilise Divisions":" n = Changes Orders to...":" s = Division on recce":" r = Report Division status":" k = Display this list":" q = Quit game": >." ";7;1;"";7;1;6;;;4;0;" = U.S. Division"::" ";5;0;"";4;4;0;" = German Division"::" ";7;1;"";2;6;1;"";0;4;0;" = Combat"::" ";1;1;7;"8";0;4;0;" = Div. HQ"::" "; 5;0;1;"";4;0;0;" = Captured objective"::" ";6;2;1;"";4;0;0;" = Fuel Dump" C_'"N.B. Enter coordinates across and then down.":#0;" PRESS ANY KEY TO RETURN" H4:4 M 502 R=""2130R \M>1765 aM>0760 f w\d<"" G NA MMMMףMN1Ve3vC>,8   0ƀ|@00,0 >y`㻀`<|D@BB<|<|40<~0 @`<`BBBD@@BBH@fbBBBB@BBB$D8 8B88 pp?B`D8x8 B0?D@8`xDD8(8 @8`h@(8008@88'``88hB?xB|@B||@~p@ZRBBBB<BBB(< ?D@@T@x(~B@B@@NBBH@BJB|R|BBB<" Dx~l @B@Tll@3D @88π|B?D88@ @T ll@Pl8D8@TNx@BBBD@@BBBD@BFB@JDBB$Z$ D" D@B| @8B@T|H| B|0D X0DD@ ?@T | |>@H|~D@TBp`B|x@ ~T `8xx@0p(? ǀ8xT<8p8`  8<@0<p 0& ?`؀ `p~:` p0w`   8 p8 `8>x>8 B`0>`@Lp8D0x7 0@Q  p B|0 8p|BG0 <W B`x8  xp08Dz80x88DhH186 `h@/ xp8f8p`00Bb? DpB`88pl~@А@ @ `>0~@@D@@8 8DTp 8T`@?@DZ`8!8|R|{ @@DBW @@DЀlB@@<0pl 8p8@(@@ B`p?lxDTHC0T @@DBl`~0BJ? @@DB 8@D|B@@ |0@(@@d B| 0 |DTD 8!pT @> @DB|`?BF @@DB @D8B@xp>x@@ <?`? ؀8TBT ~8@p8`Bpap|Bp~`@8p<x@8p xa pHT`(`| 'Rlà  |Jx D8(lp&0lT Hl `@ x#J|l 8 DF qBDB|`'H|T ||@`@ !  <p BB <8x< CHT `x8i .Ӏ@  t8@`  `  0A0 80p `!8rP!!"! '&!'''8P!!r!!!'!O! ''!'''' 8%! !'% '!!' 8!! !'!!'!! !''!!'''&&&'' 8!!''''''!!OO '' OO%%%''& 8OO!'!!' !!' ' 8&!!!'' '!'! !''''!''&&&''' &&& 8 '''' O''!''' !!&&'&&&& 8!!! ''!'' ! ''' %''%hhh 8!!!!''''!'!! !!'''OO!''' % 8!' !!' !''!!!! '!'' %'''(8!!''''!''!' !!!'&"!'!'(8r!!!!''!''! '!"''' ' '%%%'(8!''! '''' ''%! !%% 8!yOO!!!''''! !!%!!! !!! 8!'!' !!!''!!!!''!!!!''!!! 8!!! !!r!'''!!''!!!%!'!!!!''!!! 8!!! !''!!'!!!!''%%!'''!!!!8!"! !''!'!OO!''&&' !''!! 8!O!!!''''!!!''O''!!'!! ?@ MR> P P  P33:`MM=X!@w# P P *{\B*=\s#r*=\q#p>2:\*{\B}RJS