ZXTape! 2 Next WarAssassinA. Young1984 War Simulator6.00NoneQPerfect TZX sampled from the original cassette by Church of the Latter-Day SpeccyFCRASH #8; "A superior, slick war game for the purist, sole player" 65% Next War&&Qd( 65121a  on code B62>,9 ,237,71G,237,94^,201  check break 255,243,197,213,229,245,62>,127,219,254,31,212,170,254,241,225,209,193,251,201  -1  i=65122b1e5CP (z:z=-180P 2i,z <i Fbreak pressed P127,32 ,65A,115s,115s,97a,115s,115s,105i,110n,32 ,83S,111o,102f,116t,119w,97a,114r,101e,32 ,491,579,568,513 Z17,05,01,33!,102f,06,205,181,03,62>,02,205,01,22,205,107k,13 ,17,146,254,01,24,00,205,60<,32 ,205,222,21,201 d -1 ni=651701e5CP xz:z=-11000 i,z:i 65122b "" Next WarZZQ\ NEXT WAR  1983 A YOUNG  }0:.3,0:0:0::1:8:8:21,0;" ":23659k\,0:"" 21,0;" "::"" /8,0;" ":23659k\,2:"" assassin @Cr??>?0??">0?`<<<<<<>B?"<<~B<|~? <!B@@B@@b! ?"@B@BBB@?!'?ߞB<p~~J!"B@B~|@?BBBBBBF!"BB@ZBD@(B<B#?$<<@$BB~??c">?$???$ x8??$ p8$  x=8x888x88?$x?xD D@DD@$p>?8?|D x8xD8 ?$ cp7?8x @@D??$p?8@ 3?? ??>???>Ͽ?#?>|߿?w8>?~߿>? w?>?>?|~?}?><??py??p::::::::::::::::::::::::::::::::::::888888888888888888::::::888888888888888888:888:::8888888888888888:888:::::::888888:88::::::::888888:8::::::::8888888::::::::::8888888::::::::::8888888:::::::::888888888888888888:::::::888888888888888888::::::8888>88888888888888::::::::8888>9<88:8:: :88889<888:8:::89888899888:99:88888888898888898888888:98888888888899988898888888:98888888888888898898888888:98888888888888888888888888:98888888888888>88898888888:98888888888888<88898888888:::::::::::::::::::::::::88888888888888888888888888888888888888888888888888888888 nextwar PH ? ~|??@???>>? 8?@ p `|R`}z<?AEDB<B @D?BBBFBBBP~ ?BB<<<<kw@ AD~<?|?ACA~`{k  np? !@~{~@?{> ?@!A A@` ~m>ͻ뻼A<ݷ !??~@#C A  @zm???<w߽p>@G@x8zw/o ~@m x@?wx#;wo8p ~?@ k2 Co wmxAo @~~;kA9o~^@ @?--------------------------------***********************((((*****////////////////////////((******))))))))))))))))))))))))((******(((((((((((((((((((((((((((*****(((((((((((((((((((((((((((((((((((00000(((((((((((((((((((((((0(0(((((((((((((((((((((00000((((((((((((((((((((0000000(((((((((((((((((((((0(0000((((((((((((((((((((000000000000(((((((((((((((((((0000(((((((((((((((((((0000000000(((((((((((((((((((((0(((((((((((((((((((((((((((0(((((((((((((((((((((((((((((0(((((((((((((((((((((((((((((0(((((((((((((((((((((((((((((0((((((((((((((((((((((((((((00(((((((((((((((((((((( 0000000 000000000 0000000  NEXTWAR bD21,0;:"""a",168:5:0:0:  10 ""3 =""4 a$=:a$=""3 .05|L,20: ##0;"Any key to continue": r=1300,:r: p(25,6) 0  c(40(,3) nush=25 fu(10 ,4):rei=20+(*11 ):eo=20:ew=21:col=7:ecol=2 gdisa=1.93w =p:rb=0:e=1:o=0:ecm=o:necm=o:timc=o:minf=o:tim=e:vic=o:def=o bg=o:bugx=o:cnu=o:rf=o:cot3=o:gud=o:coth=o:rn=o:nuc=o:evic=o:twop=o:opt=7700:tpu=o:inv=o:fre=o:for=o:art=20:inf=100d:tan=inf:heli=inf Lrelo=o:minp=o:fort=o:py=o:px=o:n(8,2):pa=8:minf=o 5300:8600! ,="y":ew,o;" INITIALISING " m$(672) m=e̺(*10 +15) !"n$=""((*10 +e)) "te=(*538+67C) #f=-64@64@32 $n=-22 %<.3m$(te+f+n)=n$ &n:f 'm ("bh=om$(374v)=""31 )o,o;m$(640) + p$="" ,rn=e9500% -f=e24 /%f>17-(bh=o)*760< 2cp(f,e)=2e2+1e2d*(p$(f)="")+2e2*(p$(f)="")+(*1e2d)-1e2d*(p$(f)="") 7Cbh=ep(f,e)=250+80P*(p$(f)="")+2e2*(p$(f)="") 2) @Mpx=px1+((a$="2"a$="4"a$="8")px1<31)-((a$="1"a$="3"a$="5")px1>o) E  800  py1=10 :px1=16 #py1,px1;8;8;e;"" -fort=2eo,o;"Minefield placement F" 7fort=eeo,o;"Fortification placement .F to place"  300, +a$="f"py,px;e;8;8;"": 1e;8;8;py1,px1;"";e;py,px;"" py1=py:px1=px  410 X"my=p(q,2):mx=p(q,3) [0dx=(u(uc,4)-mx):dy=(u(uc,3)-my) ]dy=dy+(dy=o):dx=dx+(dx=o) _#<.521004:615g b 7500L g7uco=o:b=32 +ecoluco=e:2800 :1707 l/my,mx;m$(my*32 +mx+e);col;ty,tx;p$(q) q"p(q,2)=ty:p(q,3)=tx v 1707  800   tim=tim+e  900  4: !o,o;m$(640) #9f=eminf:n(f,e),n(f,2);1;cot3;e;"":f $o,144:o;255,o % cot3=e &f=e25 'p(f,e)o813- *'p(f,2),p(f,3);col;p$(f) -f 1inv=e840H 2 f=ebug 3c(f,e)o830> 4(c(f,2),c(f,3);ecol;c$(f) >f Hpy1=10 :px1=16 R 1x(40():y(40():x$(25,11 ) eo,o;bug;"*";eo,o; c=1bug ""; c(c,e)<2e2987 )necm=ex(c)=(*25+e):985 bh=eƥ<.2~L987 x(c)=25:dq=100d )<.06|u\*(e+(bh=3))985 9bh=4c(c,2)>16ƥ<.6985 f=25e-1 p(f,e)o975 Fte1=(c(c,2)-p(f,2)):te2=(c(c,3)-p(f,3)) <p(f,2)3te1>4975  te=te1+te2 te9 p(q,6)=p(q,6)-10 p(q,e)o1200 ="y" Lmv=2+2*(p$(q)="")+4*(p$(q)="")-(p$(q)="")+(p$(q)="") )ew,o;"UNIT STRENGTH MORALE MOVE: " W#0;q;3;col;p$(q);8;p(q,e);18;(.5+p(q,4));" " *p(q,2),p(q,3);e;col;p$(q) $py1=p(q,2):px1=p(q,3) w=emv  ew,29;mv+e-w;" "  w<10 ew,31;" "  4 .a$<"1"a$>"f"1040 0ew,29;"" 2Ua$="c"p$(q)""w=1mv=10 :p(q,6)=10 :cc=cc+e:1030 3'x$(q,w)=a$:a$="a"a$="f"1130j 5 a$="b"f=wmv:x$(q,f)="a":f 7a$="b"a$="d"1140t B 3106 Qn$=m$(py*32 +px+e) V0p(q,6)>9 n$" "n$""1130j Wn$=""p$(q)""1130j X3(n$=""n$="")(p$(q)=""p$(q)="")1130j Z>n$=""(p$(q)=""p$(q)=""p$(q)=""p$(q)="")1130j [n$=""p$(q)=""1130j \n$=""p$(q)""w=w+1 `Gpy1,px1;4;e;p$(q):py1=py:px1=px:py1,px1;e;col;e;p$(q) jw tHpy1,px1;4;e;o;p$(q);p(q,2),p(q,3);col;e;p$(q)  .25~,o q  1500 Heo,o;"Unit ";(96`+z-535*(z>26));" entered minefield"  b=32 6c(z,e)=(c(z,e)*.9ffff-502):6005u:pa: +eo,o;"NATO unit ";q;" entered minefield"  b=32  *p(q,e)=(p(q,e)*.9ffff-502):pa: ecm=o15906 ,:eo,o;"Warsaw Pact using ECM " pa:ecm=(>.73333) ,f=e25:x$(f)=x$((*25+e)):f 6="y" @.800 :w=110 -3*(cc=o) Aeo,o;"Phase ";w Buc=e EIt=e25+(bug-25)*(bug>25):q=t:q>251980 Gq>u(uc,2)bg=euc=uc+e Jcm=o Op(q,e)o1980 T n$=x$(q,w) Yn$=" "1980 ^ n$="f"2800 :1707 ctminf<8w=en$="e"p$(q)=""minf=minf+e:n(minf,e)=p(24,2):n(minf,2)=p(24,3) hIn$="a"p(q,4)=p(q,4)+.75@*(e+(p$(q)="")):1980 mWp$(q)""n$="d"(w=ep$(q)="")p(q,6)=p(q,6)+e+(p$(q)=""):1720 rn$="m"600X w6px1=p(q,3):py1=p(q,2):a$=n$:315;  b=(py,px) )b=32 +ecol2800 :1707 b=33!1310 v$=m$(py*32 +px+e) b32 1980 0p(q,6)>9 v$" "v$""1980 v$=""p$(q)""1980 3(v$=""v$="")(p$(q)=""p$(q)="")1980 >v$=""(p$(q)=""p$(q)=""p$(q)=""p$(q)="")1980 v$=""p$(q)=""1980 p(q,2),p(q,3);4;m$(p(q,2)*32 +p(q,3)+e):p(q,2)=py:p(q,3)=px:p(q,2),p(q,3);col;p$(q) $p(q,5)=p(q,5)-10 .3,14 Tp(q,6)=2p(q,6)=o:m$(p(q,2)*32 +p(q,3)+e)="" ew,29;" " w>6+gud2150f t>bug2150f z=t cm=e y(q)ox(q)o2150f  dp=x(q) =bh=3p(25,3)=c(z,3)-e+(<.5) c$(z)=""6600 "dy=(p(dp,2)-c(z,2))  "dx=(p(dp,3)-c(z,3)) *Uc(z,2)+dy=p(dp,2)c(z,3)+dx=p(dp,3)2980 :2140\ ,"my=c(z,2):mx=c(z,3) -ty=my:tx=mx .dx=dx+(dx=o):dy=dy+(dy=o) 2%<.25~7500L:2115C 321004:2115C 4l=dy-1*dydy*-1 5m=dx-1*dxdx*-1 9b=(my+l,mx+m) :H((my+l)*32 +mx+m+e)>om$(32 *(my+l)+mx+m+e)=""2110> ;Xb=32 b=33!(cm=ob=32 +ecol)(cm=eb=32 +col)ty=my+l:tx=mx+m: >m:l Ctx>31tx=31 D txoecol;c(z,2),c(z,3);c$(z) aLinv=ec(z,2),c(z,3);m$(c(z,2)*32 +c(z,3)+e) gt h+w<7nuc=2cot1=o:9400$ i6nuc<2ƥ<.2~Lw<8cot1=o:6092 j6nuc=2w<8ƥ<.6cot1=e:6092 k$nuc2ƥ<.38400 nMeo,o;" ":w p 4000 !p$(q)=""p$(q)=""5500| f=ebug jc(f,e)>oƽ(p(q,2)-c(f,2))<1.5@ƽ(p(q,3)-c(f,3))<1.5@t2=q:3000 f " ,n=e25 1p(n,e)o2875; 6c(c(z,2)-p(n,2))<1.5@ƽ(c(z,3)-p(n,3))<1.5@x(z)=n:2980 ;n @ t2=q q=x(q) f=z Tres1=p(q,e)*(5+3*(p$(q)=""))/c(f,e)/(2+3*(c$(f)="")+gud) 6res2=(p(q,4)+6)*p(q,5)/20000 N 3n$=m$(p(q,2)*32 +p(q,3)+1) 3w$=m$(c(f,2)*32 +c(f,3)+1) Fcm=eres2=res2+.5*(n$=""n$="")+(n$="")+1.5@*(n$="") Fcm=ores2=res2-.5*(w$=""w$="")-(w$="")-1.5@*(w$="") #rest=res1+res2-4-2*cm rest>o3100 dte=96`+f-58:*(f>26):eo,o;"UNIT ";q;p$(q);" DEFEATED BY UNIT ";(te);c$(f);" " c=eo-rest Lp(q,2)<19ƫ(p(q,2)+e,p(q,3))=32 c(f,2),c(f,3);o;m$(c(f,2)*32 +c(f,3)+e);p(q,2),p(q,3);ecol;c$(f);p(q,2)+e,p(q,3);col;p$(q):.1}L,15:c(f,2)=p(q,2):c(f,3)=p(q,3):p(q,2)=p(q,2)+e:p(q,6)=o c p(q,e)=(p(q,e)-c(f,e)/100d*(12 +(p(q,4)<8)*(8-p(q,4))/2+(c$(f)="")*2)*(e+3*(p(q,6)>9 ))):def=def+e "c(f,e)=(c(f,e)-p(q,e)*.1}L) Cp(q,4)=p(q,4)-3:p(q,4)26):eo,o;"UNIT ";q;p$(q);" VICTORIOUS OVER ";(te);c$(f);" " rest>4rest=4  c=e̺rest !c(f,2)>o(c(f,2)-e,c(f,3))=32 c(f,2)=c(f,2)-e:c(f,2)+e,c(f,3);o;m$(c(f,2)*32 +c(f,3)+33!);c(f,2),c(f,3);ecol;c$(f):.1}L,16 #c &p(q,e)=(p(q,e)-c(f,e)/100d*(6+(p(q,4)<8)*(8-p(q,4))/2+(c$(f)=""))*(e+3*(p(q,6)>9 ))):vic=vic+e 'p(q,4)=p(q,4)+e+e +"c(f,e)=(c(f,e)-p(q,e)*.2~L) 0 3050 f=10 80P8 "e;2;127,87W,f f  7  9001)# bugx=bug bug=(bug/2) f=bug+e40( c(f,e)=o:c(f,2)=o f tez=5+(*4) f=tez23 =p(f,e)=o:p(f,2)=19:p(f,3)=(*32 ) f cnu=18-tez  Hnuc2cnu>orf=ecnu=cnu-e:6120:<.48u[3600 pa "bug5p(f,6)=o w4p(f,e)>op(f,2),p(f,3);col;e;p$(f) xf:teo3780 ~<eo,o;"Battlegroup ";u;" ";p$(u(u,e)u(u,2));" " /ew,o;"First order ? ":3 0a$"c"a$"m"a$"a"a$"f"a$"d"3712 o$=a$ \o$="c"eo,25;"C-mode":f=u(u,e)u(u,2):p(f,6)=10 :f:3710~ !ew,o;"Second order ?":3 )a$"m"a$"a"a$"f"a$"d"3720 n$=a$ :o$="m"n$="m"ew,o;"F to place destination":401 "u(u,3)=py:u(u,4)=px q=u(u,e)u(u,2) p(q,e)o3770 Lmv=2+2*(p$(q)="")+4*(p$(q)="")-(p$(q)="")+(p$(q)="") $p(q,6)=10 mv=10 w=emv2  x$(q,w)=o$ x$(q,w+e)=n$ o$="d"n$="d"3770 w q f=u(u,e)u(u,2) 1p(f,e)>op(f,2),p(f,3);col;p$(f) f u  1500 Minf=inf+2e2:tan=tan+300,:heli=heli+160:art=art+10  144000:nuc=2ƥ<.07}\(3300 disa=disa*1.93w =p:<(disa/100d)ml=e:te=(*7+e):("6010608060306130614061706180"(te*4-3te*4)):disa=1.93w =p:pa rf=e:3600:7: ,:<.4Ltim<87200 :pa: !:<.55 6000p:pa: K:10 ,o;"Victories ";vic;" Defeats ";def'"Turn ";tim;" out of ";tia /bh=3"Pact have exited ";evic;" units" f=e25 "p(f,4)>eop(f,4)=eo  p(f,4)o) f \(tim/6ɺ(tim/6)nuc=2)(bh=5tim<20)4051:4335 ȁart=art+2+(*4):inf=100d+inf+(*40():tan=75K+(*20)+tan:heli=30+(*10 )+heli ml=otan=tan+150 bh=43800 timrei3800 (tim/5=(tim/5)3800  bh=oart=o 4051:4330 coms=502 comn=(inf/coms) inf=inf-coms*comn cde=144:9600% uno=o comn>o5000 inf=inf+coms*comn coms=30 comn=(tan/coms) "tan=tan-comn*coms 'cde=145:9600% )uno=e ,comn>o5000 /tan=tan+comn*coms @coms=40( Jcomn=(heli/coms) Obh=o4335 Theli=heli-comn*coms Ycde=146:9600% [ uno=2 ^comn>o5000 cheli=heli+comn*coms h uno=3 rcoms=5 |comn=(art/coms) art=art-comn*coms cde=155:9600%  uno=4 art=art+comn*coms  Q:f=ebug:c(f,e)=(c(f,e)+(35#-c(f,2))*(e+(bh=3)/2)):f  7700 8nuc=eƥ<.07}\(:nuc=2:"Pact use nukes":pa Ynuc=oƥ<.003xDnuc=2::10 ,0;"NUCLEAR AGREEMENT BROKEN":pa  790 0:nuc2twop=obh3p(25,e)o9e3(# :>tott1=o:f=ebug:tott1=tott1+c(f,e):f:tott13nop=e Xf [ tim>tiabh=39200# ]tim>tia8580! bnop=o9200# d1tott1<1500timp(b,e)>800 inf=inf+p(b,e)-800 :p(b,e)=800   comn=comn-e ct+e,o;(96`+ct);"/";b;")";6;p$(b);8;p(b,e);14;(.5+p(b,4));18;p(b,5);26;eo-p(b,2);30;p(b,3)+e o,11 ;comn;" "  comno  5040 Pa$= Z/(a$<"a"ůa$>96`+cosp)a$"0"5200P \.12}u[,18 db=a$-96`: :2,4;"Scenario choice "''''" Base defense 1"'" Surprise attack 2"'" NATO last stand 3"'" Reality 4"'" NATO counterattack 5"'" User designed 6"  3 a$<"1"a$>"6"5310 a$="6"6300 b=a$ Xa$="00010000002000001001111101000241101011105010010000"(b*10 -9 b*10 ) bh=a$(e):rn=a$(2):rb=a$(3):for=a$(4):inv=a$(5):fre=a$(6):rf=a$(7):ml=a$(8):bg=a$(9 ):nuc=a$(10 )  6430 |Cp(q,5)<300,eo,o;"Not enough ammo to fire ! ": }Ap(q,4)<4eo,o;"Too tired to fire! ": %p(q,2),p(q,3);e;p$(q) -eo,o;"|Which column A-G ? N to cancel"  5700D jtar=14p(q,2),p(q,3);col;p$(q);eo,o;" ":1980 tarx=p(q,3)-4+tar ""5525 .eo,o;"|Which line A-G ? "  5700D tary=p(q,2)-4+tar 7tarx31tary195500| 'p(q,2),p(q,3);col;p$(q) #p(q,4)=p(q,4)-2 "p(q,5)=p(q,5)-p(q,e) tarb=o  f=ebug -tarx=c(f,3)tary=c(f,2)tarb=f f nuc25630 3eo,o;"Standard or nuclear shells S/N ":3 a$"s"a$"n"5623 coth=(a$="n") nush=nush-(a$="n") tarb=oeo,o;"MISSED!! ":f=e5:tary,tarx;"*":tary,tarx;".":tary,tarx;7;" ":tary,tarx;o;m$(tary*32 +tarx+e):f:5636 tarb=o1130j vf=e5:tary,tarx;"*":3:tary,tarx;".":3:tary,tarx;" ":3:tary,tarx;ecol;c$(tarb):f ,coth=enuc=2ƥ<.3533339350$  tarb=o 'c(tarb,e)=c(tarb,e)-(p(q,e)/5)  c(tarb,e)oc(tarb,2),c(tarb,3);o;m$(c(tarb,2)*32 +c(tarb,3)+e):c(tarb,2)=o:y(tarb)=o  c(tarb,2)>op(q,e)>200(c(tarb,2)-e,c(tarb,3))=32 c(tarb,2)=c(tarb,2)-e:c(tarb,2)+e,c(tarb,3);o;m$(c(tarb,2)*32 +c(tarb,3)+33!);c(tarb,2),c(tarb,3);ecol;c$(tarb)  *eo,o;"Death and destruction!!! "  Da$= N&a$"n"(a$<"`"a$>"g")5700D S.1}L,17 Xtar=a$-96` b p 7,O; q'6000p+10 *((*19+E)) t!py1,px1;m$(32 *py1+px1+e) ub=o v"c(b,e)oc(b,2)=o:x(b)=o w2c(b,e)>oc(b,2),c(b,3);ecol;c$(b) x zte=(*23+e) {'"NATO UNIT ";te;" REQUIRED ELSEWHERE" |Fp(te,e)=o:p(te,2)=19:p(te,3)=p(25,3) } 3"EXTRA SUPPLIES MADE AVAILABLE FOR NATO FORCES" 8F=e25:P(F,5)=P(F,5)+500:F: ""NATO ARTILLERY SHELLS SHORTAGE" ?F=e25:p$(f)=""P(F,5)=P(F,5)-1000 f: ,"EXTRA INFANTRY REINFORCEMENTS FOR NATO" INF=INF+200  ""EXTRA NATO TANK REINFORCEMENTS" TAN=TAN+200  bh=o6091 A"EXTRA HELICOPTER REINFORCEMENTS FOR NATO":heli=heli+1e2d  bh=o6091 /"EXTRA NATO GUNS AVAILABLE":art=art+20  8"PACT RECEIVE A FRESH UNIT AND MASSIVE REPLACEMENTS" *F=ebug:C(F,e)=(C(F,e)*1.25 ):F bug=40(6089  bug=bug+e Ac(bug,3)=(*32 ):c(bug,e)=300,+(*100d)   7200   800  nz=(<.5)*cot1:b$="Airstrike available Air delivered nuke "(cot1*28+ecot1*28+28):eo,o;b$:6106:"| Guide to target : F to fire ":401:b=o 1i=ebug:px1=c(i,3)py1=c(i,2)b=i @i:b=onuc<2eo,o;"Missed ": b=o6098 8c(b,e)=c(b,e)-((*10 )+100d)-cot1*250 8800`":nz=e9345$ 86004t:ew,o;" ": bh=5 "NATO BASE REINFORCED" &p(25,e)=p(25,e)+25  Fcot1=eeo,25;" 1 MT 5 MT "(nz*6+enz*6+6)  p(23,e)>o  ab=23 ."NATO PARACHUTE UNIT ARRIVES":pa:800  "p(ab,e)=300,+(*100d)  p$(ab)="" (eo,o;"Place drop zone (F) " L404:p(ab,3)=px:p(ab,2)=py:py,px;col;4;p$(ab)  -te=o:f=24e-1:p(f,e)ote=f  f:te=o 'te>o"NATO REINFORCING UNIT ARRIVES" Pp(te,e)=2e2+1e2d*(p$(te)="")+2e2*(p$(te)="")+(*1e2d) Mp(te,2)=19:p(te,3)=(*32 ):p(te,4)=12  !"PACT REINFORCED BY TASK FORCE" 2tez=(*6+4):te=o:t2=(*32 ) f=e40( %te>tezc(f,e)>2006138 Mc(f,e)=2e2+(*2e2)+2e2*(c$(f)="")+1e2d*(c$(f)="") Rc(f,3)=t2:c(f,2)=o:nuc=2c(f,3)=(*20+5) f>bugbug=f  te=te+e f  "NATO FLANK COLLAPSES" te=31*(<.5) 4f=bug+ebug+e+(*7):f>40(6145 Mc(f,e)=2e2+(*2e2)+2e2*(c$(f)="")+1e2d*(c$(f)="") -c(f,2)=(*20):c(f,3)=te f>bugbug=f f   "NATO REINFORCED BY A BRIGADE" 2tez=(2+3*):te=o:t2=(*32 ) f=e24  te>tezp(f,e)>o6156   cp(f,e)=2e2+1e2d*(p$(f)="")+2e2*(p$(f)="")+(*1e2d)-1e2d*(p$(f)="")  1p(f,3)=t2:p(f,2)=19:te=te+e  f   3"NATO PARA BRIGADE ARRIVES ":pa:800  +i=2023:p(i,e)>o6164 ab=i:6115 i pa   gud=e L"Pact forces withdraw":pa:"and send the guards in";:gud=e" again" gud=e /c$="" bug=25 f=e25  Lc(f,e)=450:c(f,2)=4:c(f,3)=(*25+5) !f "tia=tia+10 # $ ecm=e: .2necm=e:"NATO ECM AVAILABLE FOR NEXT TURN":pa:  *2,5;"CHOOSE GAME SITUATION" 5,o;" POINT DEFENSE 1"'" LIMITED PACT RAID 2"'" PACT ATTACK 3"'" CITY DEFENSE 4"'" MASS ONSLAUGHT 5"'" NATO ATTACK 6"  3 a$<"1"a$>"6"6330  bh=a$-e 011 ,o;"Nato brigade or task force (b/t)"  3 a$"b"a$"t"6346 a$="t"rn=e 012 ,o;"Pact division or taskforce (d/t)"  3 a$"d"a$"t"6353 a$="t"rb=e ,13 ,0;"Fortifications (Y/N) ?"  3 a$"y"a$"n"6361 a$="y"for=e "14,o;"Unseen foe (Y/N) ?"  3 a$"y"a$"n"6366 a$="y"inv=e #15,o;"Free set up (Y/N) ?"  3 a$"y"a$"n"6374 a$="y"fre=e 016,o;"Battlegroups or single units B/S"  3 a$"b"a$"s"6391 a$="b"bg=e $17,o;"Nuclear option Y/N ?"  3 a$"y"a$"n"6400 a$="y"nuc=e %18,o;"Slow build up (Y/N) ?"  3 a$"y"a$"n"6406 a$="y"rf=e ,19,o;"Master/Novice level ? (M/N)"  3 a$"m"a$"n"6416 a$="n"ml=o a$="m"ml=e )eo,o;"Minefields initially placed Y/N"  3 a$"y"a$"n"6421 a$="y"minp=e gud=(<.2~L):gud=erb=o ndf=6-minp+2*bh+rb-for-2*fre+4*inv+2*rn+2*nuc+2*gud+3*(bg+ml) !tia=10 +df*3 "rei>tiarei=tia-2 #ml=odisa=o ( dc$="" nf=e40( xte=(*6+e) c$=c$+""(te) f   dp=x(q) ](c(z,2)-p(dp,2))>2.5 Ž(c(z,3)-p(dp,3))>2.5 2056 .eo,o;"UNIT ";dp;" SHOT AT " x(z)=o /n$=m$(p(dp,2)*32 +p(dp,3)+e) Ҍp(dp,e)=(p(dp,e)-c(z,e)/100d*(8-2*(n$="")-3*(n$="")-5*(n$="")-2*(p$(dp)="")+2*(p$(dp)=""))) (tary=p(dp,2):tarx=p(dp,3) sf=e5:tary,tarx;"*":3:tary,tarx;".":3:tary,tarx;" ":3:tary,tarx;col;p$(dp):f op(dp,e)op(dp,2),p(dp,3);o;m$(p(dp,2)*32 +p(dp,3)+e):p(dp,2)=19  2140\ , f=ebug 1@c(f,3)=(*32 ):c(f,2)=(*5+12 ) 6f @f=e17 E(p(f,e)=500-250*(p$(f)="") JGp(f,2)=19:p(f,4)=16:p(f,5)=4000 Of T<p(24,2)=19:p(25,2)=19 Y f=e24 p(f,e)o6815 %p(f,2)=8+(*5+e) $p(f,3)=14+(*5) f  f=ebug 8c(f,2)=(*20):c(f,3)=(*32 ) O(c(f,2)-11 )<4ƽ(c(f,3)-16)<46825 f   4 o,o;m$(640) Deo,o;"UNIT POSITIONS USE KEYS 1-8","IGNORING TERRAIN F TO PLACE" Hbh3p(25,2),p(25,3);col;p$(25) py1=10 :px1=16 f=e24 p(f,e)=o6980D ="y" ##0;f;") ";p$(f);" ";p(f,e)  404 :py1=py:px1=px @"p(f,2)=py:p(f,3)=px Abh=5py=19 Bpy,px;col;p$(f) Df I Y 800  Z c=enofor bfort=e:404:fort=o m$(py*32 +px+e)="" 4;py,px;"" c   800   c=e8 !fort=2:404:fort=o n(c,e)=py:n(c,2)=px minf=c py,px;1;"" c   $"NATO TRANSPORT COPTERS AVAILABLE" #Q:"ENOUGH HELICOPTERS TO AIRLIFT ONE INFANTRY UNIT UP TO 600 MEN TEN SQUARES" $""7204$ %250:800  '?eo,o;"KEYS 5-8 TO MOVE p-PICK d-DROP"'"N-not to use copters" *'py1=19:px1=p(25,3) 4&8;8;py1,px1;e;e;"" >mvp=10 :tpu=o H 3051 pa$="p"7370 u a$="n" za$="d"7430 &py1,px1;8;8;o;e;"" &tpuo((px1px)(py1py))mvp=mvp-e py1=py:px1=px &py1,px1;8;8;e;e;"" mvp=o7430  7240H 6tpu>oew,o;"UNIT ALREADY CARRIED ":7240H f=e24 J(p$(f)=""p$(f)=""p$(f)="")py1=p(f,2)px1=p(f,3)tpu=f f =p(f,e)>600Xtpu=o:eo,o;"UNIT TOO LARGE":7240H 6ew,o;"Unit ";tpu;" picked up ":7240H ;tpu=oew,o;"No unit carried ":7240H (p(tpu,2)=py1:p(tpu,3)=px1 $'p(tpu,4)=p(tpu,4)-2 . 8 Qm=dx-1*dxdx*-1 `l=dy-1*dydy*-1 bH((my+l)*32 +mx+m+e)>om$(32 *(my+l)+mx+m+e)=""7550~ jb=(my+l,mx+m) tXb=32 b=33!(cm=ob=32 +ecol)(cm=eb=32 +col)ty=my+l:tx=mx+m: ~l:m  0u(10 ,4):u$="abcfgjkmnopqrstwxxyy" f=e10 :t=e2 *u(f,t)=u$(f*2-2+t)-96` t:f f=e10 5te=12 +(*6):te1=4+(*24) t=u(f,e)u(f,2) #p(t,2)=te:p(t,3)=te1 t:f  :"OPTIONS"'"a) ASK HIGHER COMMAND FOR AID"'"b) EXAMINE MAP"'"c) DETAILED ANALYSIS OF ENEMY"'"d) ROUGH ANAYSIS OF ENEMY"'"e) REPEAT INSTRUCTIONS" 7"f) ROUGH ANALYSIS OF NATO FORCES"'"g) NONE OF ABOVE" 'nuc=e"h) INITIATE NUCLEAR EXCHANGE" (tim>19 ,o;"i) SAVE GAME" timc=time,o;"*" inv=e3,o;"*" *eo,o;"Options marked * are not useable" # 3 (a$<"a"a$>"i"7715# )a$="f"7880 *a$="g"4339 +'a$="h"nuc=enuc=2:7700 ,:a$="b"cot3=e:800 :7:3:cot3=o:opt -a$="c"inv=eopt 2opt+40(*(a$-96`) <te=tim-timc:timc=tim > ?4>(te^2/25)"DEMAND REFUSED":pa:opt Bte=(*6) F10 ,o;"REQUEST GRANTED" G7755K+te K6120:200:opt L-6040:6050:4051:pa:opt M6190.:pa:opt N5"BASE REINFORCED":p(25,e)=100d:pa:opt OH"A SPECIAL OBSERVER IS SENT TO INSPECT YOUR COMMAND RECORD":pa:opt P4"NATO ATTACK TO EAST DRAWS RED UNITS AWAY":co=o QBf=ebug:c(f,3)<9 co=co+e:c(f,e)=o:c(f,2)=o Rco=6opt S f:pa:opt opt 800 :7  f=ebug c(f,e)o7850 (c(f,2),c(f,3);e;o;c$(f) te=f-58:*(f>26) '20,5;(96`+te);") " Y20,8;(c(f,e)/100d);"-";100d+(c(f,e)/100d)*100d;" "  100d 1c(f,2),c(f,3);4;ecol;c$(f) Uinv=ec(f,2),c(f,3);4;m$(c(f,2)*32 +c(f,3)+e) f opt :f=ebug:(96`+f-58:*(f>26));" ";:n=ee+(c(f,e)/1e2d)*(c(f,e)<1300):(c(f,2)=o);c$(f);:n:" ",:f M18,o;"Inverse units are regrouping or arriving on the Pact baseline" 244000:eo,o;"Total Pact strength = ";tott1 7:3 :opt  :tott3=o Xf=e25:p(f,e)>of;" "(e+(f<10 ));:n=ee+(p(f,e)/100d):p$(f);:n " ", tott3=tott3+p(f,e) f &eo,o;"TOTAL NATO STRENGTH = ";tott3 7:3 :opt  8600! opt |tim<2opt  3"NEXT GAME"8070:"NEXT WAR""a",168 relo=e opt "":0:opt lte1=e {f=e25 $te=(*(24+(nuc=2))+e) p(te,e)>o f te1=o: 8300l te=258400 te1=o $ty=p(te,2):tx=p(te,3) (p(te,e)=p(te,e)-(*10 +20) ty,31;8;e;"" f=31e-1 ty,f-e;8;e;"" f=tx+e8460 ! f ty,o;e;8;"" 3p(te,e)op(te,e)=o:ty,tx;m$(ty*32 +tx+e)  ! c=e12 !Pe;ty,tx;7;"";ty,tx;2;"*";ty,tx;6;".";ty,tx;col;"" ! c !% ! !,f=e60<:"Pact wins ";:f:9001)# !:9 ;"*N*E*X*T**W*A*R*" !"Game length ";tia;" turns" !$bh=2"Warsaw Pact attack,"; !1bh=e"Warsaw Pact reconnaisance in force,"; !;bh=o"Point defense,small NATO force defends its base"; !/bh=5"Nato attack weakened Pact front" !7bh=4"Mass assault by Warsaw Pact forces"; !jbh=3"City defense.If the Warsaw Pact exit 5 units from the south edgeof the map then NATO loses" !<bh<5" NATO reinforcements increase Turn ";rei !_rf=e"Nato must rush forces into a lightly held sector to hold off a growing Pact threat" !:bh3twop=o"Pact must destroy NATO base to win" !S"The NATO forces must force the Pact forces back across the lineor destroy them" !>rb=e"Pact force is a hastily assembled Task Force" !Igud=e"Pact force is the elite - 11th Guards Tank Division " !2rn=e"Nato force is the remnants of a division" !4fre=e"NATO has advance warning enough to deploy" !2inv=e"Pact using effective camouflage and ECM" !Ifor=e"Battle is over ";4+bh*4;" NATO prepared positions" "Bnuc=o"Nuclear weapons outlawed by international agreement" "2nuc=e"No agreement banning Nuclear weapons" "8"Difficulty factor is ";df "= "Gtim>o7:3 "J 0 "L "dtx=px:ty=py "f"boty,tx;4;ecol;c$(b) "g ty,o;8;8;e;"" "jf=e31 "tty,f-e;8;e;"" "|f=tx8840" "~f "ty,31;e;"" " "c=e12 "@e;ty,tx;7;"";ty,tx;2;"*";ty,tx;6;"." "boty,tx;ecol;e;c$(b) "c " cot1=ee;ty,tx;7;"" " #( #)@15,o;"YOU SURVIVED ";tim;" TURNS"'"ANOTHER GAME ?(y)" #* tim>tia"You ran out of time" #+Gbh=3evic>43,o;"Pact exited enough units to win" #,7bh4p(25,e)df*2+2nuc2);df*2+3;"+";12 ;"Decisive" $J 9001)# $tarb=b $tary=py:tarx=px $m$(32 *tary+tarx+e)="" $tarboc(tarb,e)=o $tx=tarx:ty=tary $!ty,tx;7;4;e;"" $ 9444$ $ty,tx;4;"" $ $ 8300l $ te1=o $9tx=p(te,3)-e+(*3):tx>31tx19ty=19 $ o,tx;e;8;8;"" $f=oty-1 $,e;8;8;f,tx;"";f+e,tx;"" $f $)eo,o;"Rocket nuke impacts " $!ty,tx;4;e;7;"" $ 9444$ $m$(32 *ty+tx+e)="" $ ty,tx;"" $ $9470$:f=e25 $p(f,e)o9448$ $(p(f,2)-ty)<1.5@ƽ(p(f,3)-tx)<1.5@p(f,1)=(p(f,1)/2):9461$:p(f,4)=p(f,4)-8:m$(p(f,2)*32 +p(f,3)+e)=""p(f,e)=(p(f,e)*1.5@):p(f,4)=p(f,4)+5 $Bp(f,2)=typ(f,3)=txp(f,e)=o:p(f,2)=19 $f:ty=o9470$: $f=e40( $c(f,e)o9454$ $p(c(f,2)-ty)<1.5@ƽ(c(f,3)-tx)<1.5@c(f,e)=(c(f,e)/2):c(f,e)<75Kc(f,e)=o $Bcot1=oc(f,2)=tyc(f,3)=txc(f,e)=o:c(f,2)=o $f $9470$: $2p(f,e)<502p(f,e)=o:p(f,2)=19 $ $%tx=otx=31ty=oty=19 $}e;8;tx*8+4,172-ty*8,8:e;8;tx*8+4,172-ty*8,11 : %p$="" %!f=e23 %&te=(*6+e) %0p$=p$+""(te) %:f %? p$=p$+"" %I % b(15) %co=e %f=e25 %p$(f)=cdeb(co)=f:co=co+e %f % cosp=co-e % '  '3:"NEXT WAR B"1:"NEXT WAR""a",168 nextwar X8N@@ ap 8~>>~|>A*#TH"()&">*"*>00~|(T8R *QHN~BB~|88888 @>~