APOCALYPSEq i s I65199:1,502:1:7:1::sel=0 P2,5;1;" STOP THE TAPE ";3,5;"FOR INFORMATION" }20,0;1;"TO CONTINUE : PRESS ANY KEY FOR INFORMATION : KEY 'i' ":1,-20:800  ="i"sel=1 i:sel=121,6;1;"STOP THE TAPE":j=-200:.1}L,j:j:12 sel=11:7:0::2,5;1;"START THE TAPE ";3,5;"AND PRESS A KEY":""7  sel=1Ʀ=""8 j1:1:0:0::20,0;:"":1:7:sel=04000 a$(700) p21,6;1;"STOP THE TAPE":j=-3020:.02{# =,j:j:.8L,-20:20 7:0:0,0;" CREDITS Original Game Design:Mike Hayes.Original Playtesters:Albie Fiore,Steve Jackson,Ian Livingstone, Tim Olsen,John Olsen,Rick Olsen and Colin Reynolds (All of the Games Workshop Development Team)";7;1;" Computer Games Development Team: Dino(Game system Conversion) Joey(Most of the hard work and " 7:1:"sweat in the game) Administration:Mary and Rachel Playtesters:Woof !,Simon GoodwinStanley Gee,Nick Hoare,Eric of the wounded Digit, and others. Thanks to C.N.D.,Mass Micros,theGames Workshop,Sandy,Cathy, Duncan,Spyder and Nuke. " 221,5;1;"ANY KEY TO CONTINUE" ""  17  l=0 9a$(132 )="ALSO AVAILABLE FROM RED SHIFT IS" 9a$(33!63?)=" A COLLECTION OF VARIOUS OTHER " a$(64@171)="MAPS DESIGNED TO ALLOW THE SEASONED APOCALYPSE PLAYER TO EXPERIMENT WITH ALL OF THE MAJOR AREAS OF CONFLICT" a$(172340T)=" IN THE WORLD. A NUMBER OF SCENARIOS COVER WARFARE FROM THE ANCIENT WORLD TO THE DISTANT FUTURE. EACH INCLUDES ADDITIONAL RULES AND PREDEPLOYED FORCES ON CUSTOMISED MAPS" a$(341U)=". IF YOU WANT TO KNOW MORE ABOUT THE APOCALYPSE PROJECT THEN CONTACT YOUR NEAREST RETAILER OR RED SHIFT DIRECT AT OUR SHOP IN NORTH LONDON : CONFLICT 12c MANOR RD., STOKE NEWINGTON, LONDON NI6 5SA. OR PHONE 01-800-1333" J=310-1  l=l+1 21,j;a$(1l) .05|L,-3  .5 j x=1 /21,0;a$(xl):.05|L,-3 .5 x=x+1:l=l+1 x=590N3900< 3010 <-21,4;1;"START THE TAPE" F1,-20:502 :20,6;7;1;" TEL : 01-800-1333" D21,0;1;"LOADING APOCALYPSE";20,0; "" eALOADING 1 @ 307> <0< x 0>08y0 q `008008  0F0000<0<000 >0<7|x3<00000 ? 00p00 8 80?010 0  < xpqc8x `9| )`B~<s  `<B|~x~@<<<~@<<<<<<<B@D@B@@8(BBB@@F(BFF(BBBB|B<~|@<B< |@JB@@R>BRR>D@DBB@@DBB@@bBbbBBBBB~x@~ <><<<~~<><<<><<<<:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::9:::::::::9:::::::::::::::::::::99:9:::::99::9:::::::::::::::::999999999999999999::::::::::::::9999999999999999999::::::::::::::::99:9:999:999:9::::::::::::::::::99::::::9999:::::::::::::::::::::99999999999:::::::::::::::::9999999999999999999::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::99::::999999999999999:::::::::::99999999999999999999999::::???????????????????????:::::::::HAPOCALYPSE%<!@zw# x aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa :236099\,502:nuke=1:sg=0:mv=0:end=0:con=0:inv=0:qu=1:f=1:x=10 :y=10 .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: _8x1=x+1:x2=x-1:y1=y+1:y2=y-1 az=(y,x)-200:z1=(y,x2)-8:z2=(y,x1)-8:z3=(y2,x2)-8:z4=(y2,x)-8:z5=(y2,x1)-8:z8=(y1,x2)-8 b)z6=(y1,x)-8:z7=(y1,x1)-8 L4,25;z;" ";5,25;" ";6,25;" " M4,22;z1;" ";5,22;" ";6,22;" " M4,28;z2;" ";5,28;" ";6,28;" " M1,22;z3;" ";2,22;" ";3,22;" " M1,25;z4;" ";2,25;" ";3,25;" " M1,28;z5;" ";2,28;" ";3,28;" " M7,22;z8;" ";8,22;" ";9 ,22;" " M7,25;z6;" ";8,25;" ";9 ,25;" " M7,28;z7;" ";8,28;" ";9 ,28;" "   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  803# iau=0:19,22;"PRESS 'a'";20,22;"FOR AUTO";21,22;"SELECTION" @j=-2010 :.1}L,j:="a"au=1:708 pj:au=013 ,22;1;"SELECT ";14,22;"EMPIRE ";15,22;"CENTRES" Bj=10 30:.1}L,j:j:="a"au=1:708 10:f=(*p)+1:800 :710 w802":14,22;1;"AUTOMATIC ";15,22;"SELECTION ";16,22;"OF CENTRES":  co=1 j=124 ^yc=(S$(2*j-1))-480:xc=(S$(2*j))-480:O$(yc,xc)" "750 18,22;C$(j) qyc,xc;1;1;"":yc,xc;0;1;P$(f,1):.02{# =,j:yc,xc;0;0;"" 1="a"au=1:708:1,-20 5""(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 f=f+1:f>Pf=1 Dn=-40(0:.02{# =,n:n:1:100d:800  j=(*24+1):  G1:0:0:0:11 ,22;7;P$(f) #=b=12 21:b,22;1;" ":b: >a20,22;1;1;"ERROR!!!!":1,502:100d:0:0 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" -I$=:I$535ƯI$4801226 #.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 11:a:y,x;0;0;"#":0 Smv=1Ʀ""I$=:mv=0:.1}L,30:7:1:0: %="1".1}L,30:I=0  9="0"I=0:.1}L,30:7:1: 65202  y=65201:x=65200 <:a=(y,x)-8:a:1:y,x;1;1;"#" > 351_ u(="2"I=1I=1:1400x w 1270 x1="1"I=0:.1}L,30:1270 }9 :5,26;z;1;1;O$(y,x);0;0;4,25;D$(y,2*x-12*x);5,25;N$(y,x);6,25;D$(y,40(+x) z3:y1x12,23;z3;O$(y2,x2);1,22;D$(y2,2*(x2)-12*(x2));2,22;N$(y2,x2);3,22;D$(y2,40(+x2) y12,26;z4;O$(y2,x);1,25;D$(y2,2*x-12*x);2,25;N$(y2,x);3,25;D$(y2,40(+x) y1x202,29;z5;O$(y2,x1);1,28;D$(y2,2*(x1)-12*(x1));2,28;N$(y2,x1);3,28;D$(y2,40(+x1) x15,23;z1;O$(y,x2);4,22;D$(y,2*x2-12*x2);5,22;N$(y,x2);6,22;D$(y,40(+x2) x205,29;z2;O$(y,x1);4,28;D$(y,2*x1-12*x1);5,28;N$(y,x1);6,28;D$(y,40(+x1) y20x18,23;z8;O$(y1,x2);7,22;D$(y1,2*x2-12*x2);8,22;N$(y1,x2);9 ,22;D$(y1,40(+x2) y208,26;z6;O$(y1,x);7,25;D$(y1,2*x-12*x);8,25;N$(y1,x);9 ,25;D$(y1,40(+x) y20x208,29;z7;O$(y1,x1);7,28;D$(y1,2*x1-12*x1);8,28;N$(y1,x1);9 ,28;D$(y1,40(+x1) o="n".1}L,30:20,22;"LOCATION :":250:1,-30:500:800  ="r".1}L,30:21,22;1;0;7;"REVENUE: ";R$(y,x):1,0:500:800  =""1427 0:383:1  I=1  1270  800   I=1  1300 @ 800  C nu=0 Jj=120 L(="0".1}L,20:nu=0: N&="4".1}L,30:1700 T*N$(j)" "1650r Yj \nu=0800  ^_nu=015,22;1;6;"NO NUKES !":.5,502:100d: h 1610J r-n=120:N$(j,n)" "1655w un v wa=(j,n)-8 21:j,n;a;1;"":.1}L,502 ,k=15*N$(j,n):.02{# =,k:k j,n;a;0;"":0  nu=1   0  800  13 ,22;"SET CURSOR";14,22;"TO NUKE ";15,22;"SILO THEN ";16,22;"PRESS '0' ";17,22;"WHEN SET "  880p  1510 0O$(y,x)P$(f,1)N$(y,x)=" "830>: range=N$(y,x) 1,502:100d  yo=y:xo=x  800  /13 ,22;1;"RANGE: ";range 15,22;"SET CURSOR";16,22;"TO TARGET";17,22;"PRESS '0'";18,22;"WHEN SET":880p  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  con=0 ?end=0:j=-200:f:.1}L,j:f+3:j 800  f:7:0:1 ]14,22;"OPTIONS:";15,22;"1 CONCEDE";16,22;"2 REVENUE" -nuke=117,22;"3 NUKES!" 4="1"Ŧ="2"(="3"nuke=1)I$=:3068 #.01z# =,*-40(:3051 "con=1:c=f:q=I$-480 W3000 +((q=1)*5825)-((q=3)*1800)+((q=2)*1800) 800  K13 ,23;6;1;"END OF";15,23;" TURN " Fj=0-30-2:f:.1}L,j:f+1:j: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) 2,-40(:502  :j=-1503:f:.1}L,j:f+1:j f: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"4982v  ="n" ,.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  712 ,22;"REVENUE:";13 ,22;E(f) 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 #.01z# =,*-40(: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  O11 ,22;P$(f);12 ,22;"REVENUE";13 ,22;E(f)  14,22;"SET CURSOR";15,22;"TO YOUR ";16,22;"DEPLOYMENT";17,22;"REGION AND";18,22;"PRESS '0' ";19,22;"WHEN SET "  1510  800  $O$(y,x)P$(f,1)830>: "P11 ,22;P$(f);12 ,22;"REVENUE:";13 ,22;E(f) #?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 '.5,-502 (OI$=:I$480ƯI$(502+(nuke=1))1,0:51757 +!.05|L,-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 ?" Z@I$=:I$480ƯI$579.1}L,30:5220d \!.05|L,-20:5210Z dq=I$-480 fq=0.5,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>: P5280+((t=1)*5)+((t=2)*10 )+((t=3)*15) IE(f)=E(f)-q*t*4:E(f)<0E(f)=E(f)+t*q*4:830>: !20,22;" " 2D$(y,2*x-12*x)=r:1510  IE(f)=E(f)-t*q*4:E(f)<0E(f)=E(f)+t*q*4:830>: !D$(y,40(+x)=r:1510  IE(f)=E(f)-t*q*4:E(f)<0E(f)=E(f)+t*q*4:830>: N$(y,x)=r:1510  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" (20,22;1;"OPTION ?" @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  800  X13 ,22;1;1;6;"MOVEMENT";15,22;" PHASE "  j=-1503:f .1}L,j:f+1 j:j=120:f )M$(j)="aaaaaaaaaaaaaaaaaaaa":f+1 j:f  6000p B 800  L811 ,22;P$(f);12 ,22;"MOVEMENT" V14,22;"SET CURSOR";15,22;"TO YOUR ";16,22;"REGION AND";17,22;"PRESS '0' ";18,22;"WHEN SET " `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":fo=115,22;"2 MARCH" 8fo=2T$(yo,xo)="5"15,22;"2 SAIL " S880p:mom=-480:mom<1mom>5.2~L,0:6290 ;mom=3fqo<2830>:800 :6290 mom=46210B mom=5 14,22;"SET CURSOR";15,22;"TO YOUR ";16,22;"DEST. AND ";17,22;"PRESS '0' ";18,22;"WHEN SET "  1510  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:1510: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 413 ,22;Z$;14,22;;"ATTACK" 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   6j=minmax:12 +j,22;1;j;" ";G$(j) j  880p att=-480 |att=32 20,22;1;"COMPUTER ";21,22;"OVERRIDE ":att=min+(*(max-min)):6683 attmaxattmin6690"  6678 ".4L,502:800  'F11 ,22;1;P$(defc);12 ,22;"DEFENSE ? " (9j=minmax:12 +j,22;1;j;" ";H$(j):j )8j=-200:.05|L,j:j:.5,502 , 880p ;def=()-480 <~def=32 20,22;1;"COMPUTER ";21,22;"OVERRIDE "::def=min+(*(max-min)):6719? =0defmaxdefmin.5,502:6720@ > 6715; @r=A$(att,def) E 800  FWj=225:254,255:254,237:1/j,j+20: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 b 15,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=1con=0:3000 ":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"802":9505!% # end=0:="2"1510 ##.01z# =,*-502:8974# #K880p:qu=qu+1:year=year+.25~:100d:quP880p #quP4999 #>21,31;1;7;1;"S":880p # I$="S"sg=1:9948& #802":3000 %65200,10 :65201,10 :20,0;:"LOADING 2 ":20,0;:"LOADING 3 ":3:1:7: %":13 ,22;"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";21,22;1;"E" %$Cq=-480:q<0q>5.2~L,502:9508$% %%7803#:13 ,22;"LOADING":9510&%+q %& 9563[% %'t14,22;"EUROPE":"CE$"C$():"SE$"S$():"RE$"R$():"TE$"T$():1:1::"ME":9712% %(u14,22;"BRITAIN":"CB$"C$():"SB$"S$():"RB$"R$():"TB$"T$():1:1::"MB":9712% %)w14,22;"CARIBBEAN":"CC$"C$():"SC$"S$():"RC$"R$():"TC$"T$():1:1::"MC":9712% %*t14,22;"LONDON":"CL$"C$():"SL$"S$():"RL$"R$():"TL$"T$():1:1::"ML":9712% %+-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":f=C(5):year=C(2):nuke=C(4):pleft=C(1):qu=C(3):P=C(6):8950" %N 9580l% %[ 802" %\13 ,22;"PRESS";14,22;"'X' FOR";15,22;"EXPANSION";16,22;"OR 'C' TO";17,22;"CONTINUE" %]="c"802":9506"% %_\="x"802":20,22;"EXPANSION";21,22;"LOADING":"EXPANSION" %a 9564\% %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):3 &wsg=1C(7):C(1)=pleft:C(2)=year:C(3)=qu:C(4)=nuke:C(5)=f:C(6)=P &޼sg=1"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 ' ' sg=0:800  ' s19,22;6;1;"PRESS : ";20,22;"2 DATA ";21,22;"C CONTINUE" ' ="1"Ŧ="2"1500 '="c"3000 ' 9996 ' yx c#"avinouarteef09eax`easopqztr dsq  ovpmapqoveopefaxatinatmteaasasang,]os1eeiigemolefn͕aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaavegamoV 100000000120000000013000000012400000001250000000136000000013700000012480000001249; 111900711922111922343900777955343977999999777966777966BnefD RECCE SORTIE PROBE ADVANCETHRUST ASSAULTPINCER STRIKE BLITZ !D PICKET HARASS PARRY BLOCK STAND AMBUSH COUNTERDIG IN FORTIFYdv shccfhoefvoeY a iZ# %1112111311141212131213131314 (}Y~LZuk -ARMY NAVY NUKES &p< LENINGRAD OSLO RIGA GLASGOW COPENHAGENDUBLIN WARSAW LONDON AMSTERDAM BERLIN KIEV BREST PARIS PRAGUE ODESSA MILANO BELGRADE MARSEILLE MADRID LISBON ROMA ISTANBUL GIBRALTA ATHENS 501C2;4A545;627@86888<8D:4:8:=;D<;<@=9>4?2?ffffLOADING 3 *͎{<(2z' {%(-(/(0&(2(3(4(6(7-%-%%,-,$-$$,|0&8&}0.8."v>2>5>:>??C@=A4BCCB|B|<@fBBH@DfBBbBbBBBB@ZBBp|(ZBBRBRBBBB@B~|H@BBBJ~J|B|~@BB@D@BBBFBFDBDB@BB@B~B<BBBBBBbBDBB|BR@(B|B~J@BDBBFB                                                              8888888888888888888888888888888888888888888888888888888888888888CB$ )M INVERNESS ABERDEEN GLASGOW EDINBORO. LON'DERRY NEWCASTLE BELFAST DONEGAL HULL LIVERPOOL M'CHESTER LEEDS DUBLIN SHEFFIELD LIMERICK CORK BIRM'HAM CARDIFF LONDON BRISTOL SOTON DOVER PLYMOUTH CALAIS SB$ 5)M703<4=7;7<979>:9;6;@<=<>5?6?>@<@AA=B?BBC;CCRB$ )M0000000000000000000000000001001110000000000000101003000000000000000000004000000000000000100020000000000000000022200000000000000001670000000900000000002001000000000001321010051000000000011260000121000000011312100020250000000111110010785100000000111600002051110000013010000012211110000004200000182211100011100001251222900000000000000061122101000000000001116115010000000011510000004100000000000000000111TB$ )M5555555555555555555555555554524445555555555555454227555555555555555552227555555555555555422265555555555555555266655555555555555554775555555355555555556224555555555554764542274555555555544675522464555555544746455562675555555444445545700455555555444755226204445555540242555246644445552227655522406644455544455554674666755555555555555574466454555555555524447447545555555544745555557455555555555555555444MB @MB<|D~BB|B|<@fBBH@DfBBbBbBBBB@ZBBp|(ZBBRBRBBBB@B~|H@BBBJ~J|B|~@BB@D@BBBFBFDBDB@BB@B~B<BBBBBBbBDBB|BR@(B|B~J@BDBBFB                                                    8888888888888888888888888888888888888888888888888888888888888888CC$ "À DALLAS ATLANTA HOUSTON N.ORLEANS MIAMI NASSAU MONTERREY HAVANA S.DOMINGO SAN JUAN P.A.PRINCEMEXICO C. KINGSTON VERACRUZ BELIZE GUATAMALA S.SALVADORCARACAS MANAGUA PANAMA C. SAN JOSE BOGATA CALI QUITO SC$ 5"Ӏ70131834375;5=617;7B7D8A919>:4:7<6<7=?:@AA?C?RC$ "Ҁs3383323532200000000033333232220000000200223933800220000000002230000002200000000012200000007040000000422000000000000000001200000002922220250412200222000000005200812002200020270100001114224000000000000011111222220000000030000005522200000022370000000242000033222200000000022252222222000000000422022222210000000000000022722100000000000002422211000000000000022111110000001000002261111100000000000021111111TC$ "Ԁs6606646064455555555566666464445555555455446766755445555555554465555554455555555524455555557575555555044555555555555555552455555554744445475724455444555555557455024554455545475255552227447555555555555522222444445555555565555557744455555544675555555474555566444455555555544474444444555555555744544444425555555555555544044255555555555554744422555555555555544222225555552555554402222255555555555542222222MC @VB<|D~BB|B|<@fBBH@DfBBbBbBBBB@ZBBp|(ZBBRBRBBBB@B~|H@BBBJ~J|B|~@BB@D@BBBFBFDBDB@BB@B~B<BBBBBBbBDBB|BR@(B|B~J@BDBBFB                                           8888888888888888888888888888888888888888888888888888888888888888CL$ )M P.M.H.Q. TOTT'HAM HIGHGATE RED SHIFT HAMPSTEAD WEMBLEY HACKNEY LIV. ST. PADD'TON TRAF.SQ. TOWER G. W. BUCK.PAL. I. O. D. VICTORIA WESTMIN. WATERLOO LOND. BR. H'SMITH GR'NWICH BATT'SEA BRIXTON WIMBLEDON CRYST.PAL.SL$ 5)M70374?6:7?87919@;><6<:9>;>=>??6@DA:C=D5D@RL$ )M1001100000000020100020000000002222221000020000611200002120000020022220000051000000202000000000210001100201000400002010010012001100001090010100202051000001200010520002000000002400122100002010000020122020000002222006202000200006112822224200005000000822220000003020000000629070700000222224222200020000000000900000002022000400000000050200002222100000000002001100001111000011206000000011114000020000040000TL$ )M4224422222222262422262222222226666664222262222044622226462222262266662222204222222626222222222642224422624222022226242242246224422224202242422626204222224622242062226222222226022466422226242222262466262222226666220626222622220446066667622220222222066665552557262222222067572752525666667666652262222525525522255226266222722522525272622226666422222522226224422224444222244620222222244440222262222202222ML @MB<|D~|B>@x>B<<|<|D<fBBH@DBB@DbB@BBBH@ZBBp|(|B@BR@<BBBp<B~|H@BB@BJN|~|HBB@D@BB@DFBB@BDDBBB@B~|<>~x>B<<@BBB<<|~~<<~B|~<@B@@@B@bB@@<B||<@|RB|<|@@@@J|@BD@@BB@FD@B<B~~<<~BB~<                                                                      8888888888888888888888888888888888888888888888888888888888888888