ZXTape! 0Created with Ramsoft MakeTZXAPOCALYPSE } P61999/:7:7:7:0:23624H\,00111111?:  "INTRO" 1:23689\,25 ( "APOCBIN" <23689\,25:"APOC1" WINTRO z@p`@80`>s`?@pp`@0@`3?_@pp`A0@`!>O@ 0`A0``?~`@ p0`0A8``~@p`0A|p`|0?0A|p```q`p8xx 0`9 9`>pB~<s `@G H@ H HI HH@@LJzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzrrrrrrrrrrrrrrrrrrjzzzzzzzzzzzzzrrrrbbbbbbbbbbrrrrjzzzzzzzzzzzzzrrrrrrrrrrrrrrrrrrjzzzzzzzzzzzzzrrrrrrrrrrrrrrrrrrjzzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzyyyyyyyyyyyyyyyyyyyyyyyzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzyyzzzzyyyyyyyyyyyyyyyzzzzzzzzzzzyyyyyyyyyyyyyyyyyyyyzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxAPOCBIN -Ҁ)n 652*K\(&n #^#V#v #~(~(#######>6Kx(<Y#+*4^#V>>z{~#~>6x(Y*4^#V>>z{~>6x(Y*4^#V>>z{~>6x(<Y>(_*4^#V>>z{~>6x(Y~0(*4^#V>>z{~*4##"4 :65201 X !~"4G!6X"KCx(y(̈́qK C*###"x(̈́qK C*###"x(y(̈́qKCC*Z"y(̈́qK C*###"qK C*###"y(̈́qKCC*Z"x(y(̈́qK C*###"x(̈́qK C*###"x(y(̈́q!W Y~'''*@@@w#*4^#V >>z{> > > > > > > > > *4##"4MWW\GWq !,v> *͎{<(6z' {%(-(/(0&(2(3(4(6(7#(-%-%%,-,$-$$,|0&8&}0.8."v>fffeAPOC1 %5%<!@w# x aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa  9500% .01z# =,*-502:12 ,22;1;"SELECT ";13 ,22;"MILLENNIUM":q=-480:q<1q>86 j.5,-20:year=(q-1)*1000+(*100d)*10 :803#:100d:399 d@0,0;"QUARTER ";qu;" APOCALYPSE ";year;" A.D.": Ea=1p:21,5*a-5;P$(a,1);P(a);" ";:a  |1:7:0:ci=0:l=14802:(y=(S$(l))-480x=(S$(l+1))-480)ci=l /l:ci=021,22;"UNKNOWN": B21,22;C$((ci+1)/2):1,-30: ,1:l=124 61yrɯ(S$(2*l-1))-480350^ @)xrɯ(S$(2*l))-480350^ E@v=121,0;"ALL FORCES LEAVING ";:340T JAv=221,0;"FORCES DESTROYED IN ";:340T O321,0;C$(l);" HAS FALLEN ":345Y TC$(l) Y<j=16:.3,-3:.4L,-7:j \G21,0;0;7;" " ^l:0: _X65200,10 :65201,10 :64678,10 :64679,10  803# ?13 ,22;"HOW MANY";14,22;"PLAYERS ? " C.01z# =,*-40(:I$=:I$502ƯI$524511  508 .5,-20 p=I$-480:pleft=p 516,26;p:.5,-20:802" &P(P):P$(P,10 ) +!15,22;"" 0 j=1P 5^13 ,22;"NAME OF ";14,22;"EMPIRE ";1;j:.5,-40( 723658j\,8 :BI$:P$(j,2)=I$:I$>9 .2~L,24:570: ?%17+j,23;P$(j,2) IA13 ,22;"SELECT ";14,22;"SYMBOL " Nn=155164 Qk17,n-133;1;n:.06|u\,*(n-170):20:17,n-133;1;n S""chos=n:605] Tn V 590N Xj:100d Z 23658j\,0:700 ]-k=1p:chos=P$(k,1)590N _k `P$(j,1)=n b'17+j,22;chos:100d l 600X 20:f=(*p)+1:800 :au=0 a13 ,22;1;"SELECT ";14,22;"EMPIRE ";15,22;"CENTRES" ]19,22;"PRESS 'a'";20,22;"FOR AUTO";21,22;"SELECTION"  co=1 j=124 ^yc=(S$(2*j-1))-480:xc=(S$(2*j))-480:O$(yc,xc)" "765 17,22;C$(j) au=1760 yc,xc;1;148 q=120:I$= I$=""755 eI$="a"au=1:I$="":803#:13 ,22;"AUTOMATIC";14,22;"SELECTION"  760 q yc,xc;0;148 6I$""(au=1ƥ<.2~L)co=24780  j:co24730  4999  >co=co+1:O$(yc,xc)=P$(f,1):yc,xc;P$(f,1) .E(f)=E(f)+(R$(yc,xc)):P(f)=E(f):200 0.1}L,10 :f=f+1:f>Pf=1 511 ,22;P$(f):j=(*24+1):  G1:0:0:0:11 ,22;7;P$(f) # j=12 $>J,22;" ":j=j+1:j<22804$ * 4e12 ,22;1;" REVENUE ";13 ,22;" ";13 ,25;E(f): >P20,22;1;1;"ERROR!!!!":1,502:100d: H p""880p z=""890z }I$=:  j=1l:23760\:j: 800 :12 ,22;"1 MAP";13 ,22;"2 +DATA";14,22;"3 NUKE MAP";15,22;"4 NUKESILO";16,22;"5 CONTINUE" AI$=:I$535ƯI$480.01z# =,10 :1226 #.01z# =,*-502:1220 "I=1I=0:1220 I$=""I=0:1220 I=0:q=I$-480 q=01200 q=54800 k1200+((q=1)*39')+((q=2)*300,)+((q=3)*400)+((q=4)*500)  1200  800   1300 A1:1:a:0:0:y,x;152:0 Amv=1Ʀ""I$=:mv=0:.1}L,30:7: &="1".01z# =,30:I=0  1="0"I=0:.01z# =,30:7: #.001wn,40(:65202 Ny=65201:x=65200:64678,x-1:64679,y-1 ( 9 :8:64680 : range=N$(y,x) 1,502:100d  yo=y:xo=x  800  /13 ,22;1;"RANGE: ";range J15,22;1;" SELECT ";16,22;" TARGET "  1510 ! yd=y:xd=x &.FP=(((yo-yd))^2+(((xo-xd))^2)) ( FP=FP *i19,22;1;"DISTANCE ";20,22;"TO TARGET ";21,22;1;FP ,1:200 .6(FP)>range2,502:803#:1815 : 800  ?1:1:13 ,22;"PRESS 'L'";14,22;"TO LAUNCH";15,22;"OR 'B' TO";16,22;"ABORT !!":0:0 D="b"set=0: I="l"1880X L.01z# =,*-30 N 1860D X 800  Zter=T$(y,x) `Oj=1502:.001wn,j:254,255:254,224:j bYj=50230-.2~L:.01z# =,j:254,255:254,224:j p 1907s r 2000 sa=(y,x)-8 {l=6:950 N$(yo,xo)=" "   k=1 tt=T$(y,x):loss=100d*(tt=0)+100d*(tt=7)+100d*(tt=5)+(75K+(*25))*(tt=6)+(75K+(*25))*(tt=4)+(502+(*25))*(tt=2) [D$(y,2*x-12*x)" "dn=D$(y,2*x-12*x):2017  dn=0 8D$(y,40(+x)" "sn=D$(y,40(+x):2020  sn=0 defc=0 8j=1P:O$(y,x)=P$(j,1)defc=j:2023 j (defc0P(defc)=P(defc)-R$(y,x) Hrev=R$(y,x):rev0rev=rev-1+(T$(y,x)="2"):R$(y,x)=rev 4(T$(y,x)="0"T$(y,x)="7")R$(y,x)>"1"R$(y,x)="1" 8dn=(dn-dn*loss/100d):sn=(sn-sn*loss/100d) dn<0dn=0 sn<0sn=0 0:ter=T$(y,x):ter=ter+(ter=0)*7:y,x;1;1;ter;"":.3,502:y,x;0;0;ter;"":.3,502:dn+sn=0defc0O$(y,x)=" ":y,x;ter;"" Rdefc0dn+sn0y,x;ter;P$(defc,1):P(defc)=P(defc)+R$(y,x) N$(y,x)" "N$(y,x)=" " 200:0 Idn+sn=0ter=5y,x;1;1;"";y,x;5;" " ]dn+sn=0ter=7y,x;7;"":R$(y,x)"0"v=2:yr=y:xr=x:300, =D$(y,2*x-12*x)=dn:D$(y,40(+x)=sn 4dn=0D$(y,2*x-12*x)=" " "sn=0D$(y,x+40()=" " 4 yo=y:xo=x >y=yo-1:x=xo-1 @y=0y=1 Ax=0x=1 C 2200 H*y=yo-1:x=xo:y=0y=1 M 2200 Ry=yo-1:x=xo+1 Sy=0y=1 Tx=21x=20 W 2200 \*y=yo:x=xo-1:x=0x=1 a 2200 f,y=yo:x=xo+1:x=21x=20 k 2200 py=yo+1:x=xo-1 qy=21y=20 rx=0x=1 u 2200 z,y=yo+1:x=xo:y=21y=20  2200 y=yo+1:x=xo+1 y=21y=20 x=21x=20  2200 %k=k-1 :k=01500 k=0y=yd:x=xd: 4y=K$(k,12):x=K$(k,34)  2010 defc=0 8j=1P:O$(y,x)=P$(j,1)defc=j:2205 j (defc0P(defc)=P(defc)-R$(y,x) tt=T$(y,x):loss=(75K+(*25))*(tt=0)+(75K+(*25))*(tt=7)+(25+(*502))*(tt=6)+(25+(*502))*(tt=4)+((*502)*(tt=2))+(502+(*502))*(tt=5) [D$(y,2*x-12*x)" "dn=D$(y,2*x-12*x):2216  dn=0 8D$(y,x+40()" "sn=D$(y,x+40():2218  sn=0 <dn=(dn-(dn*loss/100d)):sn=(sn-(sn*loss/100d)) dn<0dn=0 sn<0sn=0 ter=(T$(y,x)):ter=ter+(ter=0)*7:y,x;1;ter;1;"":.2~L,502:y,x;0;ter;0;"":.1}L,60<:dn+sn=0defc0O$(y,x)=" ":y,x;ter;"" GT$(y,x)"2"rev=R$(y,x):rev0rev=rev-1:R$(y,x)=rev Rdn+sn0defc0P(defc)=P(defc)+R$(y,x):y,x;ter;P$(defc,1) T200:dn+sn=0ter=5y,x;1;1;"";y,x;5;" " kdn+sn=0(ter=0ter=7)y,x;7;"":R$(y,x)"0"yr=y:xr=x:v=2:300, =D$(y,2*x-12*x)=dn:D$(y,40(+x)=sn ʭN$(y,x)" "K$(k,12)=y:K$(k,34)=x:k=k+1:N$(y,x)=" ":j=-50220:.05|L,j:j:l=4:950:k=8k=1 4dn=0D$(y,2*x-12*x)=" " "sn=0D$(y,40(+x)=" " N$(y,x)" "1907s Bj=15:254,255:254,224+j:j Ha=(y,x)-8:1:y,x;a;"":10 :y,x;a;"":0   end=0 800  7:0:1 [14,22;1;15,22;"1 CONCEDE";16,22;"2 REVENUE" 7nuke=117,22;1;"3 NUKES !" 6con=018,22;1;"4 SAVE " 4="1"Ŧ="2"(="3"nuke=1)I$=:3068 2880p:I$<491ůI$>5243055 !I$="3"nuke=03055 "con=1:c=f:q=I$-480 p3000 +((q=1)*5825)-((q=3)*1800)+((q=2)*1800)+((q=4)*6948$) 800  K13 ,23;6;1;"END OF";15,23;" TURN " 1:502:802" 13 ,22;"1 MAP";14,22;"2 +DATA";15,22;"3 MOVEMENT";16,22;"4 CONTEST?";17,22;"5 END TURN" -I$=:I$491ƯI$5353239 #.002xn,*502:3232 ?q=I$-480:q=5con=0:802":8900" q=36000p q=48800`" >3200 -((q=1)*1900l)-((q=2)*1700) 3210  800  7:1:0 È11 ,22;P$(f);12 ,22;"EMPIRE";13 ,22;"REVENUE";15,22;"SAVED: ";16,29;E(f) 17,22;"PRODUCED";18,29;P(f):E(f)=E(f)+P(f):19,22;"__________";21,22;"TOTAL: ";E(f) 100d:100d  5001 v 5100 | 800  }k15,22;"REVENUE";16,22;"LEFT: ";E(f):E(f)<41,0:100d: ~?12 ,22;"ANY MORE";13 ,22;"DEPLOYMENT" '="y".01z# =,10 :4982v ="n".01z# =,20: ,.01z# =,*-40(:1:4993 E(f)=(E(f)/p*qu)  800  ~13 ,22;1;6;"DEPLOYMENT";15,22;" PHASE ":j=-2003:.1}L,j:j 7:1:800   8204 14,22;"OPTIONS:";15,22;"0 OPTIONS";16,22;"1 MAP";17,22;"2 +DATA";18,22;"3 DEPLOY";19,22;"4 CONTINUE" BI$=:I$480ƯI$524.05|L,-20:5028  5021 2I=0:q=I$-480:q=05003 q=46100 U5000-((q=1)*3700t)-((q=2)*3500 )-((q=3)*20) E(f)<46100  800   5003  800   8204  l15,22;1;" SELECT ";16,22;"DEPLOYMENT";17,22;" REGION "  1510  800  $O$(y,x)P$(f,1)830>: " 8204 #?T$(y,x)"5"E(f)414,22;"1 ";Q$(1) $?T$(y,x)="7"E(f)815,22;"2 ";Q$(2) %MT$(y,x)"5"E(f)12 nuke=116,22;"3 ";Q$(3) &<E(f)<8T$(y,x)"5"t=1:q=1:5230n (QI$=:I$480ƯI$(502+(nuke=1)).01z# =,0:51757 +,.01z# =,*-20-20:5160( 7t=I$-480 : t=0 A313 +t,22;1;1;1;t FT$(y,x)="5"830>: P$T$(y,x)"7"t=2830>: U*20,22;1;" QUANTITY " ZE880p:I$480ƯI$579.1}L,30:5220d \ 5210Z dq=I$-480 f q=0.01z# =,0: n"20,22;"QUANTITY:";q xQ5240x+((t=1)*10 )+((t=2)*15)+((t=3)*19) ?D$(y,2*x-12*x)=" "r=0:5265 2r=D$(y,2*x-12*x):5265 -D$(y,40(+x)=" "r=0:5265 !r=D$(y,40(+x):5265 $N$(y,x)=" "r=0:5265  r=N$(y,x) r=r+q #t=1r>99c830>: "t1r>9 830>: IE(f)=E(f)-q*t*4:E(f)<0E(f)=E(f)+t*q*4:830>: 5290+t 2D$(y,2*x-12*x)=r:5295 !D$(y,40(+x)=r:5295  N$(y,x)=r b9 :8:64678,x-1:64679,y-1:64680:1:7: z 800  11 ,22;P$(f);12 ,22;"0 OPTIONS";13 ,22;"1 MAP";14,22;"2 +DATA";15,22;"3 MOVEMENT";16,22;"4 CONTINUE"  @I$=:I$480ƯI$524.1}L,30:6034 #.01z# =,*-40(:6025 I=0:q=I$-480 q=06010z q=43200 V6000p-((q=1)*4700\)-((q=2)*4500)+((q=3)*200)  6000p J800 :14,22;"1 DEPLOY";15,22;"2 MOVEMENT" <880p:J=I$-480:J<1J>26110 /5035*(J=1)+6130*(J=2) "800 :M$(20,20) X13 ,22;1;1;6;"MOVEMENT";15,22;" PHASE " 5j=120:M$(j)="aaaaaaaaaaaaaaaaaaaa":j  6000p B 800  LC11 ,22;P$(f);12 ,22;1;" MOVEMENT " VJ15,22;1;" SELECT ";16,22;" REGION " `1510:800  h xo=x:yo=y j#O$(y,x)=P$(f,1)6253m k 830> l mcD$(yo,2*xo-12*xo)" "xdvo=D$(yo,2*xo-12*xo):6255o nxdvo=0 o>D$(yo,40(+xo)" "xsho=D$(yo,40(+xo):6257q pxsho=0 qBfo=(xdvo0)+(xsho0)*2:fo=36259s r 6270~ sd800 :12 ,22;"SELECT";13 ,22;"FORCE TO";14,22;"BE MOVED" t8j=12:15+j,22;j;" ";Q$(j):j w 880p yfo=-480 |(=""fo<1fo>26265y ~+fqo=(xdvo*(fo=1)+xsho*(fo=2)) fqo06278  830>  @to=1+(T$(yo,xo)=5)+((T$(yo,xo)=7)*2) fo=1Z$=Q$(1) fo=2Z$=Q$(2) 800 :12 ,22;Z$;14,22;"1 MOVEMENT";16,22;"3 OCCUPY";17,22;"4 CHANGE";18,22;"5 OPTIONS":T$(y,x)"5"fo=115,22;"2 MARCH" 8fo=2T$(yo,xo)="5"15,22;"2 SAIL " S880p:mom=-480:mom<1mom>5.2~L,0:6290 0mom=3fqo<2830>:6290 mom=46210B mom=5 U800 :15,22;1;" SELECT ";16,22;"OBJECTIVE " 1510:800   xd=x:yd=y :move=((yo-yd))^2+(((xo-xd))^2):move=move dtpd=(T$(yd,xd)):mmax=(tpd=5)*9 +(tpd5)*7:M$(yd,xd)="a"M$(yd,xd)=mmax [tpo=(T$(yo,xo)):M$(yo,xo)="a"M$(yo,xo)=((tpo=5)*9 +(tpo5)*7) Wmo=M$(yo,xo):md=M$(yd,xd):md=mo-(tpd=2R$(yd,xd)"0")*2-(tpd2) md<0md=0 M$(yo,xo)=mo:M$(yd,xd)=md:md=0800 :15,22;1;"NO ";16,22;"MOVEMENT ";17,22;"POINTS ":1,502:100d: move>1.5@830>: "xd=xoyd=yo.3,502: bD$(yd,2*xd-12*xd)" "xdv=D$(yd,2*xd-12*xd):6319  xdv=0 =D$(yd,40(+xd)" "xsh=D$(yd,40(+xd):6321  xsh=0 )xdv+xsh=0fd=0:6332 0fo=1xdv0fd=1:6332 0fo=2xsh0fd=2:6332  fd=0 )fqd=(xdv*(fd=1)+xsh*(fd=2)) @td=1+(T$(yd,xd)=5)+((T$(yd,xd)=7)*2) ,oc=to-3+3*fo:dc=td+3*fd moveopt=W$(dc,oc)-480 moveopt=0830>: 6moveopt=7O$(yd,xd)P$(f,1)830>: 8O$(yd,xd)=P$(f,1)O$(yd,xd)=" "moveopt=1  800  Wmoveopt=2D$(yd,2*xd-12*xd)" "td3moveopt=5 v6365+((moveopt=3moveopt=6)*235)+((moveopt=4)*635{)+((moveopt=5)*935) 3O$(yd,xd)=P$(f,1)O$(yd,xd)=" "6367  830>: (mom=3q=fqo-1:6380  mom=2q=fqo:6380 $fqo=1q=1:6380 U12 ,22;Z$;13 ,22;"MOVEMENT";15,22;"HOW MANY ?" mv=1:1510 'I$491ƯI$5796377 !.05|L,-20:6373 q=I$-480:q<1 1fo=2q>xsho.5,0:6369 1fo=1q>xdvo.5,0:6369 715,22;1;"MOVING ";q;0;" " fqo=fqo-q:fqd=fqd+q -fqd>99cfo=1.5,0: ,fqd>9 fo=2.5,0: ofo=1D$(yo,2*xo-12*xo)=fqo:fqo=0D$(yo,2*xo-12*xo)=" " #Jfo=2D$(yo,40(+xo)=fqo:fqo=0D$(yo,40(+xo)=" " (ofo=1D$(yd,2*xd-12*xd)=fqd:fqd=0D$(yd,2*xd-12*xd)=" " -Jfo=2D$(yd,40(+xd)=fqd:fqd=0D$(yd,40(+xd)=" " .bD$(yo,2*xo-12*xo)" "xdv=D$(yo,2*xo-12*xo):64480 / xdv=0 0=D$(yo,40(+xo)" "xsh=D$(yo,40(+xo):64502 1 xsh=0 2(left=xdv+xsh:left064557 3^P(f)=P(f)-R$(yo,xo):O$(yo,xo)=" ":tpo=tpo+(tpo=0)*7:yo,xo;1;tpo;"" 4J200:tpo=5yo,xo;1;1;"";yo,xo;5;" " 5Ftpo=7yo,xo;7;"":v=1:yr=yo:xr=xo:300, 76a=(yd,xd)-8:yd,xd;1;a;P$(f,1) 8HO$(yd,xd)P$(f,1)P(f)=P(f)+R$(yd,xd):O$(yd,xd)=P$(f,1) P#200:5295:6248h 3O$(yd,xd)P$(f,1)O$(yd,xd)" "6605  6365 Kfo=1D$(yd,2*xd-12*xd)=" ".5,502: 8fo=2D$(yd,40(+xd)=" ".5,502: tpd=(T$(yd,xd)) defc=0 :j=1P:O$(yd,xd)=P$(j,1)defc=j:6620 j 3max=9 -(tpd=6)-((tpd=2)*4) fqo: >fo=2yo,xo;1;6;"";yd,xd;1;"" >fo=1yo,xo;1;6;"";yd,xd;1;"" (.5,502:502:800   12 ,22;2;1;" ATTACK ":j=minmax:12 +j,22;1;j;" ";G$(j):.01z# =,-10 -j:j .1}L,30:880p att=-480 att=32 20,22;2;1;"COMPUTER ";21,22;"OVERRIDE ":att=min+(*(max-min)):6683 attmaxattmin6690"  6678 ".4L,40(:800  'N12 ,22;4;9 ;1;12 ,22;" DEFENSE " (Pj=minmax:12 +j,22;1;j;" ";H$(j):.01z# =,-10 -j:j )8j=-200:.01z# =,j:j:.5,502 , 880p ;def=()-480 <def=32 20,22;1;4;0;"COMPUTER ";21,22;"OVERRIDE "::def=min+(*(max-min)):6719? =0defmaxdefmin.5,502:6720@ > 6715; @r=A$(att,def) E 800  F`j=10 100d5:254,255:254,237:1/j,j/3:j Ginv=1attdefinv=0:13 ,22;1;"INVASION !";15,22;0;"SECOND ";16,22;"LINE ";17,22;"DEFENSE ! ":3,30:6690" H inv=0 IKyo,xo;tpo;0;P$(f,1);yd,xd;0;tpd;P$(defc,1): J,tpo=0yo,xo;7;P$(f,1) K/tpd=0yd,xd;7;P$(defc,1) Ner=013 ,22;"ATTACK ";14,22;"SUCCESSFUL":cas=1:6750^ Ocatt=def13 ,22;"DEFENCE ";14,22;"SUCCESSFUL":cas=2:6750^ TE13 ,22;"CLOSE";14,22;"BATTLE":cas=3 ^ZcasA=(r*(cas=3))+(att*(cas=2)):casD=(att*(cas=1))+(att*(cas=3)) `casA>fqocasA=fqo acasD>fqdcasD=fqd b15,22;1;"ATTACK ";16,22;att;" ";G$(att);17,22;"DEFENCE ";18,22;def;" ";H$(def);19,22;0;"CASUALTIES";20,22;"ATT: ";casA;" ";21,22;"DEF: ";casD;" " rfqo=fqo-casA:fqd=fqd-casD 'fqd>99cfo=1fqd=99c %fqd>9 fo=2fqd=9 bfo=1D$(yo,2*xo-12*xo)=fqo:D$(yd,2*xd-12*xd)=fqd Cfo=1fqo=0D$(yo,2*xo-12*xo)=" " Cfo=1fqd=0D$(yd,2*xd-12*xd)=" " >fo=2D$(yo,40(+xo)=fqo:D$(yd,40(+xd)=fqd 0fo=2fqo=0D$(yo,xo+40()=" " 0fo=2fqd=0D$(yd,xd+40()=" " bD$(yd,2*xd-12*xd)" "xdv=D$(yd,2*xd-12*xd):6804  xdv=0 =D$(yd,xd+40()" "xsh=D$(yd,xd+40():6806  xsh=0 ^left=1:D$(yo,2*xo-12*xo)=" "D$(yo,40(+xo)=" "left=0 left=16813 CO$(yo,xo)=" ":P(f)=P(f)-R$(yo,xo):tpo0yo,xo;tpo;"" Rtpo=0tpo=7yo,xo;7;"":v=3:yr=yo:xr=xo:300, 6tpo=5yo,xo;1;"";yo,xo;5;" " Bleft=1xdv+xsh01510:y=yo:x=xo:6253m  200 <cas=21510:y=yo:x=xo:800 :6253m 4fqo=fqo-att:fqo<0att=att+fqo:fqo=0 P(defc)=P(defc)-R$(yd,xd) fo=1D$(yo,2*xo-12*xo)=(fqo):occfo=att:occfo<0occfo=0:D$(yd,2*xd-12*xd)=" ":6829 9fo=1D$(yd,2*xd-12*xd)=occfo Cfo=1fqo=0D$(yo,2*xo-12*xo)=" " tfo=2D$(yo,40(+xo)=(fqo):occfo=att:occfo<0occfo=0:D$(yd,40(+xd)=" ":6832 'fo=2D$(yd,40(+xd)=occfo 0fo=2fqo=0D$(yo,xo+40()=" " D$(yo,2*xo-12*xo)=" "D$(yo,xo+40()=" "left=0:O$(yo,xo)=" ":P(f)=P(f)-R$(yo,xo):tpo0yo,xo;1;tpo;"":7:.5,502:502:0  200 Sleft=0ưT$(yo,xo)=5yo,xo;1;1;"";yo,xo;5;" " oleft=0(T$(yo,xo)=0ŰT$(yo,xo)=7)yo,xo;7;"":v=1:yr=yo:xr=xo:300, occfo0P(f)=P(f)+R$(yd,xd):a=(yd,xd)-8:yd,xd;a;P$(f,1):O$(yd,xd)=P$(f,1):v=3:yr=yd:xr=xd:300,:a=0yd,xd;7;P$(f,1)  200  6240` b3O$(yd,xd)P$(f,1)O$(yd,xd)" "7020l d 6365 g linv=1:14,22;1;"INVASION !":.5,502:j=-32 0:.01z# =,*j:j:800 :6600 v 6240` T$(yd,xd)"5"830>: 3O$(yd,xd)=P$(f,1)O$(yd,xd)=" "6365 %D$(yd,xd+40()" "830>: fo=27326  830>  13 ,22;1;Q$(1);14,22;"WITHOUT ";15,22;"ESCORT ";16,22;"UNDER ";17,22;"ATTACK !" 1,-30 D$(yd,2*xd-12*xd)=" ":O$(yd,xd)=" ":yd,xd;7;1;"":.5,-20:yd,xd;1;"";yd,xd;0;5;" " 100d:1,0 Ifqo=D$(yo,40(+xo):mom=2:fo=2:800 :6365 2yd,xd;0;1;"";yd,xd;5;" "  6240` "e con=0 "hc=f+1:c>pc=1 "j 800  "kX11 ,22;P$(f);12 ,22;"ISSUES A ";13 ,22;"CHALLENGE" "lpleft=18968# "m0P$(c,1)=""c=c+1:c>pc=1 "nP$(c,1)=""8812l" "ycon=1800  "zV15,22;P$(c);16,22;"DO YOU ";17,22;"CONCEDE ?" "~*I$=:I$="n"f=c:800 :8905" "I$="y"8840" " 8830~" " 800  "@13 ,22;"PRESS 'c'";14,22;"TO CONFIRM" "880p:"c"8830~" " 800  "11 ,22;P$(c);12 ,22;"CONCEDES";13 ,22;"DEFEAT";15,22;"ALL FORCES";16,22;"ARE";17,22;"BEING";18,22;"WITHDRAWN" "ll=0:200 "@j=120:n=120:ll=18870" "#O$(j,n)P$(c,1)8870" "3.05|L,502:P(c)=P(c)-R$(j,n):200 "dD$(j,2*n-12*n)=" ":oo=1:D$(j,40(+n)=" ":j,n;ٰT$(j,n);"" " O$(j,n)=" " "2T$(j,n)="5"j,n;1;"";j,n;5;" " ",T$(j,n)="0"T$(j,n)="7"j,n;7;"" "n:j "P$(c,1)="" "E(c)=0 " 803# "pleft=pleft-1 "(pleft=1end=1:8961# "con=18900" "c=c+1:c>pc=1 " 8810j" "f=f+1:f>Pf=1 "P$(f,1)=""8903" "(pleft=1end=1:8950" "con=13000 ":12 ,22;"END OF";13 ,22;"QUARTER" "d7:j=1P:13 +2*j-1,22;P$(j);13 +2*j,24;P(j) #j #end18984# # 802" #%j=1P:P$(j,1)""v=j #j #z11 ,22;" ";13 ,22;7;"VICTORY!";14,22;"FOR";15,22;P$(v) # W17,22;"PRESS 'C'";18,22;"FOR NEW";19,22;"GAME" #="c"9500% # end=0:="2"1510 ##.01z# =,*-502:8974# #K880p:qu=qu+1:year=year+.25~:100d:quP880p #quP4999 # 3000 %V61999/:1:65200,10 :65201,10 :1:7: %:236099\,502:nuke=1:sg=0:mv=0:end=0:con=0:inv=0:qu=1:f=1:x=10 :y=10 %iA$(9 ,9 ):G$(9 ,7):H$(9 ,7):W$(9 ,6):K$(8,4) % >9540D%:I=19 :A$(I):G$(I):H$(I):W$(I):I %"C13 ,22;1;"LOAD DATA";14,22;"TAPE" %#16,22;"1 EUROPE";17,22;"2 G.B.";18,22;"3 CARIB.";19,22;"4 LONDON";20,22;"5 SAVEGAME" %$0q=-480:q<1q>59508$% %%7803#:13 ,22;"LOADING":9510&%+q %'!U$="EUROPE":V$="E":95200% %("U$="BRITAIN":V$="B":95200% %)$U$="CARIBBEAN":V$="C":95200% %*!U$="LONDON":V$="L":95200% %+14,22;"SAVEGAME":"CHAR":"Q$"Q$():"C$"C$():"S$"S$():"R$"R$():"T$"T$():"C"C():"O$"O$():"D$"D$():"N$"N$():"E"E():"P"P():"P$"P$():1:1::"MAP" %.xf=C(5):year=C(2):nuke=C(4):pleft=C(1):qu=C(3):P=C(6):con=1:3000 %0C$(24,10 ):S$(480,1):R$(20,20):T$(20,20):Q$(5,8):14,22;U$ %1"64301-=295255% %2"D"+V$+"$"D$() %3"M"+V$ 620000 %4 95299% %5*"M";3;"D"+V$+"$"D$() %6&*"M";3;"M"+V$+"1" 620000 %9#620022,1:620000 %;:I=120:R$(I)=D$(I):T$(I)=D$(I+20):I %AI=112 :S$(I+(12 *J))=D$((535+J),I):I:J %?}Q$(1)=D$(579,8):Q$(2)=D$(579,9 16):Q$(3)=D$(58:,8):9712% %D'"100000000","RECCE","PICKET","111900" %I("120000000","SORTIE","HARASS","711922" %N&"013000000","PROBE","PARRY","111922" %S("012400000","ADVANCE","BLOCK","343900" %X'"001250000","THRUST","STAND","777955" %])"000136000","ASSAULT","AMBUSH","343977" %b)"000013700","PINCER","COUNTER","999999" %g("000012480","STRIKE","DIG IN","777966" %l*"000001249","BLITZ !","FORTIFY","777966" %1:7 %n0,11 ;1;"APOCALYPSE":N$(20,20):D$(20,60<):O$(20,20) &j=124:D$(((S$(2*j-1))-480),(2*((S$(2*j))-480)-1)(2*((S$(2*j))-480)))=1:j & E(4):6 &kC(7):C(1)=pleft:C(2)=year:C(3)=qu:C(4)=nuke:C(5)=f:C(6)=P &ް"CHAR""a",21*8:"Q$"Q$():"C$"C$():"S$"S$():"R$"R$():"T$"T$():"C"C():"O$"O$():"D$"D$():"N$"N$():"E"E():"P"P():"P$"P$():"MAP":9995 ' ' $con=1:sg=0:800  ' s19,22;6;1;"PRESS : ";20,22;"2 MAP ";21,22;"C CONTINUE" ' ="1"Ŧ="2"1500 '="c"3000 ' 9996 '