war i'bfk'0:0:0: '=0:0:"war":::::0:0:"WAR70" war @w|x|||D||??DH@D@dD????DH@@@T@??|||||L|?????????`d` `d ??????????`d`L`dL`d|||d|@ ??@p?`p?????^zpp<8<<??yppxx???????????????????????9ppppqpp<#Aqp7/s8 @u<<<6Gls8րkBBB@E5ɬw?qpuԀ+fB@8881Ìr8$Nw?px05ZBxDDD  0d?& ~~xpp<< )H  BBDxxx JpR@?~~pp8"D@?u ?BZD@@@ f??????????W|>p&)HdZZ@BB$D<< < 8 0u<$WAR70 3w *wp5w MIKE WHEELER 1983 P 58859 RSTAR=0 U "":"" _KF$=0+0:E=15:F$=F$+F$:E:F$=F$+F$(24) dao(2,9 ,4):N$(2,8):zero=0:one=1:two=2:W=zero f+23658j\,8:236099\,70F g<U(2):V(2):Z(2):44000:9900& iC9200#:STAR=STAR+one:STAR>oneF=one:1000:520 jwZ$=" " k*B$="":DAYS=zero:YA=ONE:YB=TWO:YC=ONE m:B=onetwo:5,5;B;7;"NAME OF ";("BLUE"B=one)+("RED "B=two);" COUNTRY?";7,5;"(MAXIMUM 8 CHAR'S)":N$(B):B ns$=6+480+6+480+2+24+1+4+1+6+1+6+1+6+1+6 sP$="":a$=s$:4500 x-y=14:a$=a$+a$:y:a$=a$+s$+S$ *200:x=one32 :y=one3 B$:P$=P$+(B$):y:x '220:Q$="":B(32 ,4) X=one32 :Y=one4 @B$:Q$=Q$+(B$):Y:X "250","20","2","235","41","0","245","73","2","225","103","0","187","100","2","153","119","0","132","148","2","112","127","1","177","77","1","139","92","1","165","142","0","214","63","1","89","158","2","122","173","0","94","132","1" "222","20","1","62","95","2","51","124","0","30","151","0","186","49","0","151","41","0","130","21","2","94","9","1","61","26","2","49","65","0","11","78","2","30","103","0","51","166","0","68","143","0","93","107","0","107","81","1","160","23","0" ܜ"2","0","0","16","3","0","1","0","4","0","2","12","0","0","3","5","11","4","9","6","7","11","5","10","14","11","6","8","0","7","0","30","5","20","0","0" "6","0","0","31","0","5","6","7","0","3","0","20","0","14","0","28","0","0","7","13","29","0","30","0","0","1","0","32","18","30","25","27","19","0","17","0" \"28","0","18","0","9","12","0","21","0","20","0","22","0","21","32","23","0","22","0","24" "25","0","23","0","17","0","24","27","27","25","0","0","0","17","26","0","0","13","29","19","28","15","0","0","15","8","31","17","30","10","0","0","0","16","0","22" =ONE;21,ZERO;"PRESS ANY KEY TO CONTINUE >":ZERO "25700D:Y1=7:Y=ONETWO:L=ONE9 @AO(Y,L,ONE)=Y1-TWO*(L<3)-4*(L>6):O(Y,L,TWO)=L JL:Y1=26:Y 7:ZERO:5150 Y=YAYBYC:Y  6500d ""540 qZERO,17;"STATUS/REGROUPA";ONE,17;"SAVE GAME S";TWO,18;"CONTINUE X" J$=:J$=""542  8310v !J$="S"800  #j$="X"680 &J$"A"540 0+8310v :0,17;"ARMY NO ?" 2J$=:J$=""5622 3&J$<491ůJ$>5795622 5<G=J$:K=one9 :O=Two3:o(y,K,O)=G574> 8O:K :}one;0,17;"ARMY NO. ";g;1,17;" WIPED OUT":RF=251:8490*!::650753,ZERO:540 ?RPP=(O(Y,K,one)-one)*3:one;8;8;one;P$(PP+one),P$(PP+two) @ 6600 B0,17;"GROUP = ";K;one;1,17;"ARMY NO. ";G;" ";2,18;ZERO;Z;" MEN":8200 :8300l CQ0,17;"CHANGE GROUP C";1,17;"EXIT X" DJ$=:J$=""580D E 8300l FIJ$="X"8;8;zero;one;P$(PP+one),P$(PP+two):540 HJ$"C"579C I%1,17;"NEW GROUP NO.? " JJ$=:J$=""586J K0L=J$-480:L9 L=K586J N4(O(Y,L,one)O(Y,K,one))o(y,l,one)zero650 X 5300 bvZ=41,17;"GROUP ";L;" FULL ":RF=88X:8490*!:650753,ZERO:8320 :579C l#5400:5150:540 1,17;"GROUPS NOT AT ";2,18;"SAME POSITION":RF=90Z:8490*!:650753,ZERO:8310v :579C  5150 W=one4 0,17;"ENTER GROUP NO.";1,17;"TO MOVE 1-9";2,18;"TO END MOVES 0";ONE;21,ZERO;"DAY ";DAYS+ONE;21,20;"MOVES LEFT";5-W ,L=-480:L9 701 F8310v :L=ZERO4;21,ZERO;Z$:W=5:777  O(Y,L,one)=zero8310v :one;0,17;"THIS GROUP NOT";1,17;"ON MAP":RF=89Y:8490*!:650753,ZERO:695 V=O(Y,L,one) PP=3*(V-one) 58;8;one;one;P$(PP+one),P$(PP+two) V0,17;"WHICH DIRECTION";1,17;"N/E/S/W " J$=:J$=""730 (J$"N"J$"E"J$"S"J$"W"733  8320 ;J=(J$="N")+two*(J$="E")+3*(J$="S")+4*(J$="W") PQ=4*(V-one) Q$(PQ+J)=00,17;"THIS DIRECTION";1,17;"NOT VALID":RF=250:8480 !:65209,3:730 X=Q$(PQ+J):5000 z=one5600:767 #O(Y,L,one)=x:O(Y,L,4)=ZERO  5150 W  Y:DAYS=DAYS+one  530 9I$="" >A2:7::10 ,10 ;zero;one;"SAVING GAME" H8F=zero:1000:Y=TWOYA=TWO:YB=ONE:YC=-1 fL"WAR"85U:"MWAR"58860,6394:"udg"65368X,160 pQ4,4;one;"REWIND TAPE ";6,4;"PRESS ANY KEY TO VERIFY" zzero:"WAR":"":"" :5,5;two;7;one;"GAME SAVED",7,7;"TYPE CLEAR 58859";8,2;"BEFORE RE-LOADING GAME"  C=one  A=onetwo 1035 +F  @I$=I$+U(A):I$=I$+V(A):I$=I$+Z(A):I$=I$+N$(A):1040  OU(A)=I$(C):V(A)=I$(C+one):Z(A)=I$(C+two):N$(A)=I$(C+3C+10 ) ,C=C+11 :D=one9 :E=one4 1055+F I$=I$+O(A,D,E):1060$  O(A,D,E)=I$(C) $ C=C+one .E:D:A:F=ONEI$="" 3 _I3 a7:7:zero: cBi1=twoM$="":a=6:2185:2185:2250 f"M$="":A=4:2185 p"M$="":A=6:2185 uDM$=""+(""i1one):a=5:i1=one7000X:2250 z 2225 /x=one4+*5:k=3+*26 j=*21 l=jj+two+*two k=k-two+*4 6A;l*(l18),k*(k30);M$(one+*3) l x  -x=5+10 *:j=10 +10 * $l=xx+two+*two:j=j-two+*4  a;l,j;M$(3+*3) l $3920P:4175O:6400  :a=onetwo M=oneu(a):B=ONE8 -7900:H$(PA+ONE)=82295 J7920:DM1=(*18)+ONE:DM2=(*3+ONE)+27*(A=TWO) #(DM1,DM2)=568+A2280 =a;DM1,DM2;c$(a,M,b,one):D$(PB+ONE)=DM1:D$(PB+TWO)=DM2 b:M A G1=zero:END=ZERO /A=I23-I2(i2=one)-(I2=two):M=oneu(a) B=one8  7920 -7900:H$(PA+one)=82380L $ 2710 )H$(PA+two)=zero23608 .@B=4ƯH$(PA+two)=3H$(PA+two)=4:2380L 32460:2500@ 8-H$(PA+4)=one3140D :2375G B=H$(PA+3)>zeroH$(PA+3)=(H$(PA+3)+one) GXB=3ƯH$(PA+two)=zeroƯH$(PA+3)=zeroH$(PA+6)=(H$(PA+6)+one) LEND>03850  NB:M `A b G1=G1+one e 2325 ~Ei=i+6*((c$(a,m,b,one))=145ů(c$(a,m,b,one))=147) C(c$(a,m,b,one))=144ů(c$(a,m,b,one))=1452450 'i=i+6*(D$(PB+two)ȯD$(PD+two))  'i=i+6*(D$(PD+two)ȯD$(PB+two))  XC$(A,m,B,two)>63?3-A;D$(PB+one),D$(PB+two);C$(A,m,B,two):2495 K=(C$(A,m,B,two)/8) J=C$(A,m,B,two)-(K*8) @C$(A,m,B,two)="8"J;D$(PB+one),D$(PB+two);" ":2495 ;J;D$(PB+one),D$(PB+two);E$((C$(A,m,B,two))-59;)  EB=3C$(A,M,B,ONE)=(148+(D$(PB+TWO)>D$(PB+4))) 2DM1=D$(PB+ONE):DM2=D$(PB+TWO):X1=DM1:Y1=DM2 H=one̯H$(PA+two):Z=ZERO 5DM1=D$(PB+3)DM2=D$(PB+4)2580 ;(D$(PB+4)-DM2)>(D$(PB+3)-DM1)2520 Sx1=DM1+(DM1D$(PB+3)X1>ONE):2525 Gy1=DM2+(DM2D$(PB+4)Y1>ONE) JH$(PA+ONE)>7DM2=1+29*(A=TWO)4300:2594" AT=(X1,Y1) $8100:Z=152590 DM1=X1:DM2=Y1 !MEL=ONE2600( :2595# h C$(A,m,B,TWO)=((DM1,DM2)) A;DM1,DM2;C$(A,m,B,ONE) #$D$(PB+ONE)=DM1:D$(PB+TWO)=DM2: (H$(PA+3)=ONE -@C=3-A:o=ONEu(C):D=ONE8:7910:7925 /-D$(PD+ONE)DM1ůD$(PD+TWO)DM226157 2H$(PC+3)=ONE:C$(A,m,B,TWO)=C$(C,O,D,ONE):H$(PA+TWO)=ZERO:H$(PC+TWO)=ZERO:H$(PA+7)=C:H$(PA+8)=D:H$(PA+11 )=o 4>one;DM1,DM2;"":rf=33!:8490*!:650753,zero 7D:o < P Z=Z+5 U#DM1=D$(PB+3)2655_ +Z Z#DM2=D$(PB+4)2670n +Z _2685} +Z d#X1=DM1+(DM1<18):2700 iX1=DM1-(DM1>ONE):2700 n s#Y1=DM2+(DM2<30):2700 xY1=DM2-(DM2>ONE):2700 } UX1=DM1+(DM1D$(PB+3)DM1>ONE):2700 UY1=DM2+(DM2D$(PB+4)DM2>ONE):2700 AT=(X1,Y1): /H$(PA+3)=7H$(PA+3)=ZERO sH$(PA+3)=ONEůH$(PA+3)=TWOůH$(PA+3)=4ůH$(PA+3)=5ůH$(PA+3)=6 'H$(PA+3)=33600: $H$(PA+ONE)=ONEH$(PA+ONE)=TWO: H$(PA+ONE)=9 1ONE;ONE;8;D$(PB+ONE),d$(PB+TWO);" " pa;21,ZERO;ONE;C$(A,M,B,3);" ";B$(PB+ONE);" off";"'s"ƯB$(PB+ONE)>ONE;" ";B$(PB+TWO);" other" H$(PA+3)=ZERO #b=33040 :2795 620,ZERO;"S R M F C X" J$=:J$=""2766 J$="F"2805 J$="R"2935w J$="M"2970 J$="S"H$(PA+TWO)=ZERO J$="C"B<33100 7J$"C"j$"X"J$"F"J$"M"J$"S"J$"R"2765 8350 2ZERO;ONE;8;D$(PB+ONE),D$(PB+TWO);" " 8340  C$(A,M,B,TWO)=61=J$="V":20,ZERO;"IN WATER - CAN'T FIRE":rf=90Z:8490*!:650753,zero:8350 :  B=3  8350 B=42885E H$(PA+TWO)=ZERO HZ=ZERO:C=3-A:o=ONEu(C):D=ONE8:7925:7910 PH$(PC+ONE)=8(H$(PC+3)>ZEROƯH$(PC+3)<4)28706 "18;ONE;ONE;D$(PD+ONE),D$(PD+TWO);" " ''20,ZERO;"FIRING HERE? Y/N" )K$=:K$=""2857) ,qK$="Y"H$(PA+4)=ONE:H$(PA+7)=C:H$(PA+8)=D:H$(PA+11 )=O:D=8:O=U(C):Z=ONE 128;ZERO;ONE;D$(PD+ONE),D$(PD+TWO);" " 6D:o ;Z=ZERO2840 @8350 : E{H$(PA+TWO)ZERO20,ZERO;"YOU MUST STOP FIRST!":RF=250:8490*!:650753,ZERO:J$="A":8350 : J"ANGLE? (0-12) ";g; OG12 2890J T.g(a,m,ONE)=(g*100d+.5)/100d Y#"RANGE? (20-100) ";G(A,m,TWO) ^6G(A,m,TWO)<20G(A,m,TWO)>100d2905Y cH$(PA+4)=ONE h7G(A,m,TWO)=(G(A,m,TWO)*100d+.5)/100d m |G1<9 %H$(PA+1)>72960 oH$(PA+2)=L(B):H$(PA+ONE)=9 :D$(PB+4)=(ZERO+32 *(A=TWO)):D$(PB+3)=D$(PB+ONE)  8350 =B=4ƯH$(PA+TWO)=ZEROH$(PA+TWO)=3:2997 `B<3H$(PA+TWO)=(TWO+(C$(A,M,B,ONE)=145)+(C$(A,M,B,ONE)=147)):2997 H$(PA+TWO)=l(b) ""2997 _20,ZERO;"DESTINATION Y COORD? A-R" K$=:K$=""3002 K$<"A"K$>"R"3002 D$(PB+3)=(K$-64@) 20,29;ONE;K$;"-" ""3014 '20,12 ;"X COORD? A-4" K$=:K$=""3017 K$<"1"K$>"Z"3017 K$>"4"K$<"A"3017 420,31;ONE;K$:8360 :8210 2D$(PB+4)=(K$-22-42**(K$>"4"))  620,ZERO;"C M R S X" K$=:K$=""3047 8350 K$="S"H$(PA+TWO)=ZERO: K$="R"2935w : K$="X" ,K$="M"H$(PA+TWO)=L(3):3075 K$="C"H$(PA+TWO)=(L(3)+3*(H$(PA+6)>ZERO)):H$(PA+6)=(H$(PA+6)-(H$(PA+6)>ZERO)):3075 3045  2997  !920,ZERO;"FORMATION? 1 2 3 4" ",J=-480:J43106" +0C$(A,M,B,ONE)=(143+J):H$(PA+TWO)=ZERO 0+A;D$(PB+ONE),D$(PB+TWO);C$(A,M,B,ONE) ?8350 : QH$(PA+4)=ZERO SB=43400T: XRc=h$(pa+7):d=h$(pa+8):o=h$(pa+11 ):7910:7925 ] 3310 ^sr=zero20,ZERO;A;one;"OUT OF RANGE":Z1=171:Z2=171:Z3=171:85004!:8350 : _sZ=ONE20,ZERO;"FIELD OF FIRE BLOCKED":Z1=171:Z2=171:Z3=171:85004!:8350 : ` 3185q bc=a:d=b:O=M:a=H$(PA+7):b=H$(PA+8):M=H$(PA+11 ):7900:7910:7920:7925:3185q :3295 goA=C:B=D:M=O:C=H$(PC+7):D=H$(PC+8):O=H$(PC+11 ):7900:7920:3295 : qJ=ONE+(B>4) v/B=3ůc$(a,m,b,TWO)=61=3290 { I=6 B<32410 K=H$(PC+5)+ONE R=ZERO3290 'E=ONE(B$(PB+ONE)+B$(PB+TWO))/i+ONE hF=((*6+ONE)-R(J,R,K)-(H$(PA+ONE)>7)-(H$(PA+ONE)>ZERO)-1.8ffff*(b<3d>4)) f(5-(b>4))H$(PC+9 )=(H$(PC+9 )+ONE):t=t-ONE H 'H$(PC+10 )=(H$(PC+10 )+t) E D1=D$(PB+ONE):D2=D$(PB+TWO) LZ1=287:Z2=269 :Z3=287+18*(B<3):H=ONEE/TWO Z8;ONE;ONE;D1,D2;" ":(85004!+(*4)):ZERO;ONE;8;D1,D2;" " H  P=C:Q=D:S=O:3705y: Z=ZERO ,H$(PA+5)=ZERO:H$(PC+5)=ZERO x=D$(PB+ONE)-D$(PD+ONE) y=D$(PB+TWO)-D$(PD+TWO) r=((x)^TWO+(y)^TWO) x1=D$(PD+ONE)+(x*(X>ONE)) y1=D$(PD+TWO)+(y*(Y>ONE)) 1(x1,y1)=568ū(X1,Y1)=61=3365RP 9(X1,Y1)<59;ū(X1,Y1)=184Z=ONE:3365% H$(PC+5)=ONE %<X1=D$(PB+ONE)-(X*(X>ONE)):Y1=D$(PB+TWO)-(Y*(Y>ONE)) *1(X1,Y1)=568ū(X1,Y1)=61=3380S@ ,9(X1,Y1)<59;ū(X1,Y1)=184Z=ONE:33771 /H$(PA+5)=ONE 1R<2Z=ZERO 4r63395T0 9 r=zero: CR=((R+ONE)/TWO): Wg(a,M,TWO)=g(a,M,TWO)/5 \7X=((D$(PB+ONE)-G(a,M,TWO)*(G(a,M,ONE)*/6))) f7Y=((D$(PB+TWO)+G(a,M,TWO)*(G(a,M,ONE)*/6))) kv6700,:z=ONE20,ZERO;ONE;"NOT ENOUGH CLEARANCE TO FIRE":8480 !:65209,3:8350 : mbD$(PB+ONE),D$(PB+TWO)+(A=ONE)-(A=TWO);ONE;ONE;8;8;(""A=TWO)+(""A=ONE) nA650753,4:Z2=171:85048!:650753,ZERO ocD$(PB+ONE),D$(PB+TWO)+(A=ONE)-(A=TWO);ZERO;8;8;ONE;(""A=TWO)+(""A=ONE) pv(*7)=320,ZERO;ONE;A;"GUN MISFIRES":rf=97a:8490*!:650753,zero:8350 : sS=3020-.5 u .05|L,S zS |X>18X30Y3590 ,c1=one+(at=58:):c2=two-(at=579) $C=c1c2:O=ONEU(C):D=ONE8 E7910:7925:(X=D$(PD+ONE))(Y=D$(PD+TWO))3540 D:O:C 3590`` H=ONE̯B$(PD+ONE) @(ONE+*6)>4H$(PC+9 )=(H$(PC+9 )+ONE) H H=ONE̯B$(PD+TWO) B(ONE+*6)>4H$(PC+10 )=(H$(PC+10 )+ONE) H p=C:q=D:S=O:3705y H$(PA+4)=ZERO   L20,ZERO;ONE;"MELEE":RF=30:8490*!:650753,30 !;8;8;ONE;ZERO;D$(PB+ONE),D$(PB+TWO);" " " 8350 $Me=ONE:c=H$(PA+7):d=H$(PA+8):O=H$(PA+11 ):36353 )ie=ZERO:c=a:d=b:O=M:a=H$(PA+7):b=H$(PA+8):M=H$(PA+11 ):36353:3675[ +2H$(PA+ONE)=8c$(c,O,d,TWO)=c$(a,M,b,TWO) .a=c:b=d:M=O:7900:c=H$(PA+7):d=H$(PA+8):O=H$(PA+11 ):3675[:7910:7920:7925:3680` 3?7910:7900:7920:H$(PC+ONE)>ZEROE=E+TWO 8B=3E=E+TWO =oX=ONE(B$(PB+ONE)+B$(PB+TWO))/(3-TWO*(b=3)-(C$(A,M,B,ONE)=145ůC$(A,M,B,ONE)=147)) BF=*6+ONE+E G>F>8H$(PC+9 )=(H$(PC+9 )+ONE):3665Q L4F>4H$(PC+10 )=(H$(PC+10 )+ONE) QX V [P=A:Q=B:S=M:3705y: `2H$(PA+3)=4:H$(PC+3)=5 jTH$(PA+TWO)=(l(b)*(H$(PA+ONE)8)):H$(PC+TWO)=(l(d)*(H$(PC+ONE)8)) oHD$(PB+4)=(31*(A=TWO)):d$(PD+4)=(31*(a=ONE)) t y7930:7940 6H$(PP+9 )>B$(PQ+ONE)H$(PP+9 )=B$(PQ+ONE) 8H$(PP+10 )>B$(PQ+TWO)H$(PP+10 )=b$(PQ+TWO) +B$(PQ+ONE)=(B$(PQ+ONE)-H$(PP+9 )) ,B$(PQ+TWO)=(B$(PQ+TWO)-H$(PP+10 )) 120,ZERO;P;c$(p,S,q,3);" losses:" 21,ZERO;P;7;H$(PP+9 );" OFFICER";("S"ƯH$(PP+9 )>ONE);" ";H$(PP+10 );" OTHER";("S"ƯH$(PP+10 )>ONE) 8210 :8370 B$(PQ+ONE)=ZEROB$(PQ+TWO)=ZERO21,ZERO;P;7;" WIPED OUT":3800:Z1=333M:Z2=269 :Z3=269 :85004!:8340 : :H$(PP+9 )=ZEROH$(PP+10 )=ZERO8340 : S((B$(PQ+3)+B$(PQ+4))/3)>(B$(PQ+ONE)+B$(PQ+TWO))3775 ZX=((B$(PQ+ONE)*4+B$(PQ+TWO))/(B$(PQ+3)*4+B$(PQ+4)))*10 X=X+(ONE+*5) X>73790l H$(PP+ONE)=ZERO3780 H$(PP+ONE)=9 :H$(PP+TWO)=L(Q):21,ZERO;P;7;ONE;" DEFEATED ":D$(PQ+4)=(32 *(P=TWO)):D$(PQ+3)=D$(PQ+ONE):Z3=333M:Z1=333M:Z2=333M:85004!:3790 #H$(PP+ONE)=ONE:H$(PP+TWO)=ZERO c21,ZERO;P;7;"MORALE LOW":Z1=269 :Z2=269 :Z3=269 :85004! -H$(PP+9 )=ZERO:H$(PP+10 )=ZERO 8340 : 6H$(PP+ONE)=8:X(P)=X(P)+ONE:H$(PP+TWO)=ZERO "X(P)=U(P)*8END=3-P !P1=A:Q1=B:M1=M:A=P:B=Q:M=S 7920:2460 A=P1:B=Q1:M=M1  7920 $D$(PQ+ONE)=ZERO:D$(PQ+TWO)=ZERO  9:6;7;1;END;"VICTORY TO ";N$(END) #.:RF=229:8490*!:650753,ZERO -&c=ONETWO:C;ONE;"GROUP NO. ";V(C) 2'O=ONEU(c):D=ONE8:7925 4 C1=B$(PD+ONE):C2=B$(PD+TWO) 7*7;c;C$(c,O,D,3);" ";C1+C2 <D:O Ac C7:7;0;"PRESS ANY KEY TO CONTINUE":ZERO F:5955C P1N=(U(ONE)U(ONE)>U(TWO))+(U(TWO)U(TWO)U(ONE)) Z1H$="":B$="":D$="":c$(TWO,n,8,17) fLA=ONEU(ONE)+U(TWO):H$=H$+F$:B$=B$+F$(32 ):D$=D$+F$(32 ):A k PAD=U(ONE) n.g(TWO,n,TWO):X(TWO):4015:6010z 4"LINE INFY ","CAVALRY ","ARTILLERY ","LIGHT INF" J Y<7:3:B=ZERO1919:A=ONE26 ^&B,A;(64@+A):A:A=ONE4 m#B,26+A;(480+A):A:B w.B=ZERO3131:A=118 |A,B;(64@+A) A:B MZERO,ZERO;" ";ZERO,31;" ";19,ZERO;" ";19,31;" " 0:7: JH$(PA+ONE)=8:X(A)=X(A)+ONE:H$(PA+TWO)=ZERO:dm1=ZERO:dm2=ZERO "X(A)=U(A)*8END=3-A  05r(2,3,2):L(8):E$(3) ND44000:A=ONETWO:B=ONE3:C=ONETWO:R(A,B,C):C:B:A XMTWO,3,3,4,4,5,ONE,TWO,TWO,3,TWO,3 bB=ONE8:L(B):B lA3,3,5,4,5,5,5,5 vB=ONE3:E$(B):B  "","",""  ':ONE;5;"VICTORY CONDITIONS:" ]:"CAPTURE OF YOUR ENEMY'S CAPITAL OR DESTRUCTION OF HIS ARMIES";" ENSURES VICTORY"  z=ZERO:A=ONE9 o(3-y,A,ONE)=xz=ONE: A: F 5700D ZA=ONETWO:B=ONE9 do(a,b,ONE)=ZERO5250 kPP=(O(A,B,ONE)-ONE)*3 nJ7;A;((176-P$(PP+two))/8),(P$(PP+one)/8);B B:A  Z=TWO3  O(Y,L,Z)=ZERO Z: T#O(Y,L,ONE)=O(Y,K,ONE):O(Y,L,Z)=G ^'Z=TWO3:O(Y,K,Z)=G5490r hZ r&Z=3O(Y,K,Z)=ZERO:5520 |O(Y,K,Z)=O(Y,K,Z+ONE) Z=Z+ONE:5490r L=K:5300 Z=TWOO(Y,K,ONE)=ZERO  [20,ZERO;ONE;"ENEMY SIGHTED":Z1=333M:Z2=269 :Z3=3051:85004! 2B=TWO3:O(3-Y,A,B)=ZERO5640 B 5900 : 65011 65025: %[V(Y)=L:V(3-Y)=A:U(3-Y)=B-TWO:I2=3-Y:I1=P$(3*(X-ONE)+3) *5300:U(Y)=Z-TWO:iw=w 4I3=X > 2143_ R C=ONETWO \+M=1U(C):K=V(C):B=18 fY7921:B$(PB+ONE)+B$(PB+TWO)>(S$(B*2)+S$(B*TWO-ONE))/35995k jB:6760h kM mC nl=v(3-a):k=v(a):w=iw rX64557:8700!:Y=3-I2:7:ZERO:Y:C$(ONE):D$="":B$="":H$="": &A=ONETWO:M=ONEU(A):B=ONE8 $C$(A,M,B,38)="NO " HB=TWOB>5C$(A,M,B,9 )=C$(A,M,B-ONE,9 ):6060 C$(A,M,B,9 ) N=V(A):C=O(A,N,M+ONE)  B>4C=B+4*(C-ONE) B<3C=C*TWO-(B=ONE) zC>9 D=(C/10 ):C=C-10 *D:C$(A,M,B,6)=(480+D):C$(A,M,B,7)=(480+C):6110 !C$(A,M,B,6)=(480+C) C$(A,M,B,TWO)="8" ?B<3C$(A,M,B,ONE)=(144+TWO*(A=ONE)):6160 ;B=3C$(A,M,B,ONE)=(148+(A=TWO)):6160 5B=4C$(A,M,B,ONE)=(149+a):6160 'C$(A,M,B,ONE)=(""A=ONE)+(""A=TWO) B:4020:M:A: k21,ZERO;A;7;"FORTIFIED POSITION - PLACE UNITS":RF=253:8490*!:650753,ZERO 3M=ONEU(A):B=ONE8:7900:7920 !H$(PA+ONE)=86395 /20,ZERO;C$(A,M,B,3):8370 $21,ZERO;"X COORD? A-R " !J$=:J$<"A"J$>"R"6347 ""6348 H21,13 ;J$;" Y COORD? ";("A-P"A=ONE)+("P-4"A=TWO) K$=:K$=""6350 D$(PB+ONE)=(J$-64@) K$<"1"K$>"Z"6350 K$>"4"K$<"A"6350 +(K$<"P"A=TWO)(K$>"P"A=ONE)6350 .D$(PB+TWO)=(K$-22-42**(K$>"4")) 621,28;K$:AT=(D$(PB+ONE),D$(PB+TWO)) AT>568AT<63?-(B>4)8370 :21,ZERO;"THIS POSITION OCCUPIED":RF=214:8490*!:650753,ZERO:8370 :6346 +a;D$(PB+ONE),D$(PB+TWO);c$(a,M,b,ONE) B:M: 2A1=3:6460< 9A1=ONE <2A=ONETWO:M=ONEU(A):S1=V(A):S2=O(A,S1,M+ONE) A+P=ONE+144*(A=TWO)+16*(S2-ONE) F'B=ONE8:7920:7900 P6489Y+A1 Z S2=0M=U(A):6497a [4A$(P)=B$(PB+ONE):a$(p+ONE)=B$(PB+TWO):6495_ \(B$(PB+ONE)=A$(P):b$(PB+TWO)=a$(p+ONE) ]B$(PB+ONE)+B$(PB+TWO)<(s$(b+b-one)+s$(b*two))/3H$(PA+ONE)=8:D$(PB+ONE)=ZERO:d$(PB+TWO)=ZERO:x(a)=x(a)+ONE:6495_ ^6b$(PB+3)=s$(b+b-ONE):b$(PB+4)=s$(b*TWO) _ P=P+TWO:B aM:A c up(3+15*(Y=TWO),7+9 *(Y=ONE))=7+8*(3-Y)Z(3-Y)=Z(3-Y)+ONE v"Z(3-Y)>38000@ xL=ONE9 zo(y,l,ONE)=ZERO6540 }hX=O(Y,L,ONE):P$(3*(X-ONE)+3)=TWOO(Y,L,4)=O(Y,L,4)+(O(Y,L,4)<3) ~9O(Y,L,4)=38400 :O(Y,L,4)=ZERO L  3Z=ZERO:PA=144*(Y-ONE)+16*(G-ONE)+ONE A=ONE16  Z=Z+A$(PA)  PA=PA+ONE A: ,(z=ZERO:x1=D$(PB+ONE):y1=D$(PB+TWO) 6 p=ONETWO @Nx1=x1+(D$(PB+ONE)x):y1=y1+(D$(PB+TWO)y) J1(x1,y1)=568ū(x1,y1)=61=6750^ Tz=ONE ^p: ra7;C;ONE;"ARMY ";O(C,K,M+ONE);" WIPED OUT ":rf=248:8490*!:650753,zero |#Y=C:G=O(C,K,M+ONE):5470^: ly=(*18)+3 vx=ZERO18 {j=(*3)+1 a;x,y;M$(j) My=13 Y=7Y=10 y=17Y=23x,y;ZERO;" "(j) y=y+(j=3) x  ?PA=(88X*PAD)*(A-ONE)+88X*(M-ONE)+11 *(B-ONE): ?PC=(88X*PAD)*(C-ONE)+88X*(O-ONE)+11 *(D-ONE): >PB=(32 *PAD)*(A-ONE)+32 *(M-ONE)+4*(B-ONE): >PB=(32 *PAD)*(C-ONE)+32 *(M-ONE)+4*(B-ONE): >PD=(32 *PAD)*(C-ONE)+32 *(O-ONE)+4*(D-ONE): ?PP=(88X*PAD)*(P-ONE)+88X*(S-ONE)+11 *(Q-ONE): >PQ=(32 *PAD)*(P-ONE)+32 *(S-ONE)+4*(Q-ONE): @0:7:zero: J%"CONGRATULATIONS TO ";N$(3-Y) OM65154,200:Z1=253:Z2=253:Z3=253:85004! T$"THE CAPITAL OF ";N$(Y);"IS YOURS" Y 85004! ^"AND ";N$(Y);"SURRENDERS" h-1;"YOUR CAMPAIGN TOOK ";DAYS;" DAYS" l65154,255 m9380$:X(ONE):Y(ONE) rh6;0;"ANOTHER GAME? (Y/>)";J$:J$="Y"65154,255:STAR=ZERO:95_ |  MEL=ZERO Z=15 AT=568 AT=59;-AMEL=ONE: 4AT=568+AAT>1272625A :8105 !B>4ůH$(PA+ONE)=9 2625A :8105 E=ONE100d:E: E=ONE502:E: l 3,21;Z$(8) v!2,18;Z$(14) !1,17;Z$(15) #0,17;Z$(15): 21,ZERO;Z$ 20,ZERO;Z$: 20,ZERO;Z$(28): 21,ZERO;Z$: 5300:E=TWOZ-ONE IpA=144*(Y-ONE)+16*(O(Y,L,E)-ONE)+ONE:a$(pApA+15)=s$ !E: ! MZ1=3051:Z2=3051:Z3=3051:65209,250:85004! !*:Z1=171:Z2=171:Z3=171:650753,RF !4(64897+Z1) !5(64897+Z2) !6(64897+Z3) !7(64897+Z1) !8(64897+Z2): ! C=ONETWO "4C:7::0,5;"STRATEGIC SUMMARY" " 10 ;N$(C):B=ONE9 " O(C,B,ONE)=ZERO8750." "ONE;"GROUP ";B; "*D=TWO3:O(C,B,D)=ZERO8750." "Y=C:G=O(C,B,D):6600 "58;"ARMY ";G;" STRENGTH ";ONE;Z;ZERO;" MEN" "$D ".:B:21,ZERO;ONE;"PRESS ANY KEY TO CONTINUE":ZERO "8C: #.9200#:E=ZERO7:L:"S"+E,L:E: #M20,97a,244,232,232,244,97a,20 $7:ZERO:ZERO $Ae=zero2121:c=zero30two:one;e,c;"*":c $3c=one31two:one;one;one;e,c;"*":c:e $ 9500% $(e=one60<:x(e)/4,y(e):e: %jX(69E):Y(60<):9600%:E=ONE60<:R$:X(E)=R$:E:E=ONE60<:R$:Y(E)=R$:E: %<".5",".5",".5",".5","ONE",".5","ONE",".5","ONE",".5","1.5","ONE",".5","1.5","ONE",".5",".5",".5",".5","ONE",".5","ONE",".5","ONE",".5","1.5","ONE",".5","1.5","ONE",".5","ONE",".5","1",".5","1",".5","1",".5","1",".5",".5",".5",".5","1",".5",".5",".5",".5","1.5","1.5","1.5","1.5",".5",".5",".5","1",".5","1.5","ONE" %"1","1","6","6","6","8","9","8","9","6","4","4","1","4","4","1","1","6","6","6","8","9","8","9","11","13","13","9","13","13","9","13","13","13","9","11","11","11","8","9","9","9","8","6","8","8","8","9","11","13","11","9","8","1","6","6","6","5","6","6" &COPYRIGHT &V"T",31:"T"+1,63?:"T"+2,112p:"T"+3,224 &^"T"+4,224:"T"+5,112p:"T"+6,63?:"T"+7,31 &R"U",0:"U"+1,15:"U"+2,15:"U"+3,3 &\"U"+4,1:"U"+5,0:"U"+6,127:"U"+7,127 &V"S",0:"S"+1,254:"S"+2,254:"S"+3,128 &`"S"+4,192:"S"+5,224:"S"+6,240:"S"+7,240 &0:0:7: &I0,3;2;7;1;"2ND PRIZE CAMBRIDGE AWARD" &)2,7;"PUBLISHED BY ";"" &3,22;"" &25,7;1;" 1983 M.Wheeler " &&9 ,7;"COPYRIGHT WARNING" &,,,,"CASES COMPUTER SIMULATIONS LTD ":"will rigorously protect the":"copyright, of WAR 70.Please note":"unauthorised copying, hiring,":"and lending of this software is":"strictly prohibited." &A21,3;6;1;"Press any key to continue" &=""9965& & taMWAR a@@  @   @ `@A@@@@ `   @`   @@ @ ?   @I$ @ @@@@ @` @`@  @  @@  ` @@ @@@ @ @@@€ @ ɀ  @  @ @?@@@ ?@~| L:@@IN @"  @8@@* p|@_@? $@@A     T@'@D $I$0@@$@@@@ @@ @ 08|@(@  @|  @|T @@ @@~@8@N  $@  #8@@@ T AU @~ @@@  @|' @@_ |" @@@ ~ <D@@Q @@ ~ @y@   o@@ @ ?  @ ?p @A@@@@@@  q@@ @@8Bq<ZA@@D@B p|*[K!XZ6 #B8:H\˧W_z{A!N+!}F+! F+N+}`DL&DH$!N+U!xOFFF#`DLDD-udg XҢ88xx8888<<88@@88D@88D?0HH0? @B$Á<<$$<`BZBB~!!~?pp?