ZXTape! 0Created with Ramsoft MakeTZXSTRATEGY 1ww Dy w65286:1:1:1::#0;4;7;1;" L O A D I N G ":"" #0;0,0;"Spectrum adaptation by P.Rawling";1,0;4;7;1;" L O A D I N G " 23689\,25:"""a" (&23689\,25:""65287 223689\,25:"" S @+F B$ @ B$ A`"$""@" "@("@ "@$"DB"@$"G@$ 0#E00#0 0 ( @ ( A`#@$#"@#" "@0@"@ "@$"B!"@$"@"@$ >>>? 0 @ 0 @H#@$#@C "@?@"A@$"B!"@'"@$?#?#@@??#@H @$ @@ "@@"B@"@$"A H"@( ""@$||"@$"@"@D@"@$"@"D1 @$ @"@"G@$"@$"AD"@0#"@$  "@$"@"@D@"@$"@#"c @$ @"@"D@$?@$"@AD"@?#@$A@AA"@$"@"@!B@"@$"@>"?@$#G"@?"D@$ @$"@AD"@$ @$?C?@?C?C"$"@"b "@'"@"@$"DB"@$"D@$ @("D("( (@HP@HH?  (?(  ? D ?(0(  ?f B P?^ ! ?^?!?f?@??? (0 @??????????ϟ?88ϟ??w??π癀???~癀>?????Ç?? XG <<<??8hؾhnؘXxxnؾhn@@@@`@@@@< P+KR @~ l8hl Y#0;1,0;6;0;1;" S T O P T H E T A P E " 2F=15:.1}L,30:5:F gP(8,4):Y(14,4):C(3,3):A(8,2):M$(8,11 ) 7I=18:Z$:M$(I)=±Z$+Z$:I:S$(32 ) (Q"Stirling","Collins","Thompson","Newman","McDowell","Howie","Wood","Adam-Smith" 2I=18:P(I,1)=10 :P(I,4)=1:P(I,2)=I:P(I,3)=3-2*(I=(I/2)*2):I 579Q=1:I=Z$ xI: 5000 900 650 1880X STOP=0 1130j 1370Z R21,0;3;7;"Have you any orders to give Sir":540 0Z=0:ANS1Z=1::270 1730 650 1880X  2420t  3040 "L=18:Z=1L=8 6;18,0;S$;S$;S$;S$;L,0;5;0;1;S$;S$;L+1,9 ;"End of turn ";GO;". "'S$ c21,0;3;7;" Do you want to end the game? ";:GO=GO+1:540 "EANS=1STOP=370r:FU=(GO/5):1::3106 'Z=1650 ,STOP=0190 6STOP @FU=1:PVP=PVP-100d J0:2:2::4,0;6;"*******************************";5,0;"*";S$(29);"*";6,0;"* ";1;1;" YOU HAVE LOST THE WAR SIR ";0;0;" *";7,0;"* ";1;1;" YOU HAVE LOST THE WAR SIR ";0;0;" *";8,0;"*";S$(29);"*";9 ,0;"*******************************" T 370r ^FU=2^DK h0:1:1::2,0;6;"*******************************";3,0;"*";S$(29);"*" m4,0;6;"*";1;2;"THE REDS HAVE ASKED FOR PEACE";0;0;"*";5,0;"*";1;2;"THE REDS HAVE ASKED FOR PEACE";0;0;"*" pn6,0;6;"*";S$(29);"*";7,0;"*";S$(29);"*";8,0;"* ";4;1;" YOU HAVE WON THE WAR SIR! ";6;0;" *";9 ,0;"* ";4;1;" YOU HAVE WON THE WAR SIR! ";6;0;" *";10 ,0;"*";S$(29);"*";11 ,0;"*******************************" rX=0:Y=0 |;J=13:C(J,1)>0X=X+C(J,1) J X=X+CR ;J=18:P(J,1)>0Y=Y+P(J,1) J PVP=((PVP+Y-X)*FU) 'Z=15:STOP=370rZ=8 L=PVP:Z,3;3;7;;"########################";Z+1,3;"# Your score was 0000 ";Z+1,25-L;PVP;26;"#";Z+2,3;"########################" FSTOP=370rL=145-5:.05|L,L:L:502 pSTOP=320@V=-10 -25-3:.2~L,V/5:.2~L,V:V:1,-28:502 gSTOP=350^Z=2282:L=1168:.02{# =,Z+L:L:Z:502 P20,1;5;0;" Do you want to play again ":540 ANS=120 ]20,0;4;7;" ........... BYE BYE .......... ":300,:0 &YORN  0"ANS=0:23658j\,8 :n"":.1}L,10 :#0;1,0;4;7;1;" Key ""Y"" or ""N"" " ?A$=:A$=""575? D"":A$="Y"ANS=1: NA$"N"570: X DISPLAY  6:6:0: " ";:236066\,7:236077\,254:" !";34";"#$%&'()":236066\,0:236077\,60< I=115 7;(64@+I);4;1;" " I M0,44,:255,0:156,45-:0,130: u0,25;" MORALE";1,22;" UNITS ";2,20;"ARMY  " .3,20;"   " %I=18:L=P(I,4) ,3+I,20;"   " P(I,1)>03+I,20;" ";I;"  ";P(I,1);" ";3+I,28;" ";P(I,4);" "(3-L) I /12 ,20;"   " HL=SUP:14,20;1;"SUPPLIES ";SUP;" "(3-L)  FL=PR:15,20;1;"RESERVES ";PR;" "(3-L) I=114  ,N=2:Y(I,1)=0N=7 *FY(I,3),2*Y(I,2)-1;1;4;N;"" 4 I:7 >GO=0GO=1: \I=18 fpP(I,1)>0P(I,3),2*P(I,2)-1;1;4;1;"";(147+I) pI z 7: INITIAL  .1}L,10 :23658j\,8:#0;1,0;3;7;1;" Do you want random Cities ? " A$=:A$=""925 "":A$"Y"1010 I=114 <X=(*9 )+1:Y=(*15)+1:F=0  J=1I /Y(J,2)=XY(J,3)=YJ=I:F=1 J:F=1950  Y(I,2)=X:Y(I,3)=Y I p.1}L,10 :#0;1,0;3;7;1;" Do you want random Armies ? " A$=:A$=""1015 A$"Y"1090B I=18 <X=(*9 )+1:Y=(*15)+1:F=0  J=1I /P(J,2)=XP(J,3)=YJ=I:F=1 $J:F=11030 . P(I,2)=X:P(I,3)=Y 8I L.1}L,10 :#0;0,0;4;7;1;" Select level of difficulty 1 (easy) to 5 (hard) " N3D$=:D$=""D$<"1"D$>"5"űD$>11102N QDK=D$ VRR1=(DK/2)+2:R2=((DK-1)/2)+1:CR=CR+100d*DK ` jENEMY MOVE  ~_17,0;6;S$;S$;S$;S$;S$;19,0;1;" Scouts returning Sir." %.1}L,0:K=13 "C(K,1)>01190 CR21350F yCR>2C(K,1)=(*((CR/2)))+1:CR=CR-C(K,1):C(K,2)=K*3:C(K,3)=0 WC(K,1)<10 CR>10 CR=CR-10 :C(K,1)=C(K,1)+10 0Y=C(K,3)+1:F=0:MAX=0 -J=C(K,2)-1C(K,2)+1 !J<1J>9 1280 &TMAX=0:YC=J:XC=Y:1670 RL=18:P(L,3)=YP(L,2)=JP(L,1)>0F=1 :P(L,2)=JP(L,3)=Y+1TMAX=TMAX+1 2L:F=1J=C(K,2)+1:1280 ,TMAX=TMAX+3:TMAX>MAXMAX=TMAX:X=J J:F=11350F  2MAX=0X=C(K,2)-2+(*3) !X<1X>9 1290  J=13 (JC(J,2)=XC(J,3)=YC(J,1)>0F=1:J=3 2J:F=11350F < C(K,2)=X:C(K,3)=Y A\K>119,0;1;"Scouts report coming through Sir":.1}L,0 FK P ZENEMY ATTACK  dQ19,0;1;"Scouts report coming through Sir":.1}L,0 nZ=0:K=13 x"C(K,1)01650r 4UNIT=-1:MAX=0:Y=C(K,3)+1 -J=C(K,2)-1C(K,2)+1 !J<1J>9 1480 [F=0:TMAX=0:YC=J:XC=Y:1670:F=1TMAX=TMAX+10 :F=0 xTUNIT=-1:L=18:P(L,2)=JP(L,3)=YP(L,1)>0TMAX=TMAX+P(L,1):TUNIT=L L %TMAX>MAXMAX=TMAX:UNIT=TUNIT:X=J J MAX=01650r &C(K,1)>MAX*21510 :CR-MAX*2-10 +C(K,1)<01650r LCR=CR-MAX*2-10 +C(K,1):C(K,1)=MAX*2+10 3Z=01:1::0:Z=1 rK+3;S$;" ";2;7;" ENEMY ATTACKING SQUARE ";(Y+64@);X;" ";K+3;0;" ";S$ CLOSS=(*((MAX*MAX/C(K,1)))):PLOSS=(*((C(K,1)/2))):C(K,1)=C(K,1)-CLOSS:UNIT=-11600@ P(UNIT,1)=P(UNIT,1)-((PLOSS*2)/(P(UNIT,4)+1)):K+3;1;" BATTLE REPORT: ";0;S$(16):P(UNIT,1)<1P(UNIT,1)=0:3180l :1540 eK+3;" LOSSES TO ARMY";UNIT;" = ";((PLOSS*2)/(P(UNIT,4)+1));31;" " )MOR=0:PLOSS2*CLOSSMOR=-0.5 MP(UNIT,4)<1MOR=-0.5P(UNIT,4)=0:1570" %P(UNIT,4)=P(UNIT,4)+MOR "2P(UNIT,4)>2P(UNIT,4)=2 ,?J=X:F=0:YC=J:XC=Y:1670:F=01620T 1F=0:PLOSS=0 61P(UNIT,1)<0PLOSS=-P(UNIT,1) @PLOSS>10 1610J E;K+3;" CITY HOLDING OUT ":1620T JiY(SF,1)=1:PVP=PVP-20:K+3;" CITY AT ";(Y+64@);X;" HAS FALLEN " TMK+3;" ESTIMATED ENEMY LOSSES = ";(*(2*CLOSS));31;" " ^KC(K,1)>502CR=CR+C(K,1)-502:C(K,1)=502 rTK:Z=0:7,0;1;S$;"NO ENEMY MOVEMENTS REPORTED SIR.";S$ | CITY  I=114 SY(I,2)=YCY(I,3)=XCY(I,1)=0F=1:SF=I:I=14 I  LOGISTIC  "TSUP=0:I=114 *Y(I,1)=0TSUP=TSUP+10 I 5:7:4: w1,7;6;0;S$(18);2,7;" LOGISTICS REPORT ";3,7;S$(18) 6,0;1;S$;" Resource points available ";TSUP;31;" ";S$;" Reserves available ...... ";PR;31;" ";S$;" Supplies in stock ....... ";SUP;31;" ";S$ 16,1;3;1;" How many new units reqd Sir? ";18,1;0;" (";R1;" points per unit,remaining ";19,1;" points are used for supplies)" !:.1}L,10 :Z$:110n:Q=11825! #"110n:Q=11825! &R=Z$:R*R1>TSUP21,1;2;" WE ONLY HAVE ";TSUP;" POINTS SIR. ":.5,-15:1;" Try again ";Z$:1827# :TSUP=TSUP-R*R1:PR=PR+R DdTSUP>0SUP=SUP+(TSUP/R2):16,1;3;S$(30);17,1;" We now have enough supplies ";18,1;S$(30);19,1;S$(30);19,2;"for attacks by ";SUP;" units Sir.";20,1;S$(30);21,0;5;S$:.1}L,32 :.1}L,32 :200 N XPLAYER MOVE  lF=0:K=13 vJ=18 (P(J,2)-C(K,2))<3ƽ(P(J,3)-C(K,3))<3C(K,3)>0F=1:C(K,3),2*C(K,2)-1;4;2;1;"" J:K F=1F=0:20,0;1;7;"Scouts report Red units as shown":.1}L,0:300,:20,0;6;S$ ,I=18:A(I,1)=0:I Z=0:19,0;3;"Which Army will you give orders for Sir? (enter Army's number or 0 if you have no more orders)":.1}L,10 IZ=1#0;1,0;1;" Try again ":Z=0 ""1972 K$=:K$=""1975 "" K=K$ K=480 BK<491K>568Z=1:.5,-15:1970 ڏK=K-480:A(K,1)017,0;2;"ARMY";K;" HAS ORDERS ALREADY SIR.":.5,-15:Z=1:1970 P(K,1)017,0;2;"ARMY";K;" HAS BEEN WIPED OUT SIR.":.5,-15:Z=1:1970 AA(K,1)=1:6;17,0;S$;S$;S$;S$;S$ (19,0;1;" ARMY";K;" (General ";M$(K,2̯M$(K,1)+1);"): ";21,0;3;"Options:(1) Reduce Strength ";#0;0,0;3;7;" (2) Increase Strength ";6;" ";3;7;" (3) Move " Z$=:Z$=""2043  'Z$<"1"Z$>"3"űZ$>12040  OPT=Z$  )"":6;19,0;S$;S$;S$ *2060 +502*OPT >p.005y# =,40(:3;7;(" Reduce str. of ARMY";K;" by ");Z$:110n:Q=12110> HzNUM=Z$:NUMP(K,1).5,-15:19,0;2;" You cannot disband armies Sir ":2110> RO6;19,0;S$;S$;S$:P(K,1)=P(K,1)-NUM:PR=PR+NUM \8;8;K+3,25;" ";K+3,25;P(K,1);15,29;1;" ";15,29;PR f 1960 pr.005y# =,40(:3;7;(" Increase str. of ARMY";K;" by ");Z$:110n:Q=12160p zrNUM=Z$:NUM>PR.5,-15:2;19,0;" Not enough reserves Sir. ":2160 p O6;19,0;S$;S$;S$:P(K,1)=P(K,1)+NUM:PR=PR-NUM  2140\ J1=0:F=0 F=5.5,-15 {.005y# =,40(:21,0;1;"Move ARMY";K;" ";3;" (press ""S"" to stop)":23658j\,8 ""2225 Z$=:Z$=""2230 <18,0;6;S$;S$;S$;S$:Z$="S"1960 &Z$<"5"Z$>"8"F=5:2215 DX=P(K,2)+(Z$="8")-(Z$="5"):Y=P(K,3)+(Z$="6")-(Z$="7") ހX<1X>9 Y<1Y>15F=5:18,0;2;" You cannot move off the map ":2215 F=0:J=13:C(J,2)=XC(J,3)=Y18,0;2;" The Enemy are at ";(64@+Y);X;" Sir. ":J=3:F=5 J:F=52215 J=18 P(J,2)=XP(J,3)=YJKP(J,1)>018,0;2;" ARMY";J;" is at ";(64@+Y);X;" Sir. ":J=8:F=5 J:F=52215 J=114 $Y(J,2)=XY(J,3)=YY(J,1)=118,0;2;" Enemy hold City at ";(64@+Y);X;" Sir. ":J=14:F=5 .J:F=52215 8VF=0:YC=P(K,2):XC=P(K,3):1670:A$=" ":F=1A$="" B}4;F*7;1;P(K,3),2*P(K,2)-1;A$;Y,2*X-1;1;"";(147+K) L P(K,2)=X:P(K,3)=Y V'J1=J1+1:J1=12215 ` 1960 j tPLAYER ATTACK  ~SUP=0 6;17,0;S$;S$;S$;S$;S$;18,0;1;" We have supplies to attack with ";SUP;" units.";31;" "''3;" Will you attack Sir? ":540 ANS1 6;18,0;S$;S$;S$;S$;19,0;3;" Where will we attack Sir? ":.005y# =,40(:3390> K6;19,0;S$;S$;S$:KF=-1:SF=-1:ES=0 K=13 C(K,2)=XC(K,3)=YC(K,1)>018,0;1;"Enemy Army - strength ";C(K,1);" at ";(64@+Y);X;" ":.1}L,0:ES=C(K,1):KF=K K K=114 جY(K,2)=XY(K,3)=YY(K,1)=1SF=K:ES=ES+10 :19,0;1;"Enemy City at ";(64@+Y);X;", strength = ";ES:.1}L,0 K ES0.5,-15:19,0;2;"NO ENEMY AT ";(64@+Y);X;" SIR !":1:200:2440 CK=18:A(K,1)=-1:A(K,2)=0:K &PS=0:JJ=1:ACTS=0 .1}L,10 :#0;0,0;3;7;" Enter No. of attacking Army ";6;" ";3;7;" (or 0 to end attack) " Z$=:Z$=""2580 "":110n:A=Z$ (A=02750 2+A>8.5,-15:2570 FF=0:K=1JJ:A(K,1)=A21,0;2;"ARMY";A;" already attacking Sir.":.5,-15:1:200:21,0;6;S$:K=JJ:F=6 PK:F=62570 ZP(A,1)0.5,-15:21,0;2;"ARMY";A;" HAS BEEN WIPED OUT SIR":1:200:21,0;6;S$:2570 d(P(A,2)-X)>1Ž(P(A,3)-Y)>1.5,-15:21,0;2;"ARMY";A;" IS TOO FAR AWAY SIR":1:200:21,0;6;S$:2570 n320,0;6;S$;S$:A(JJ,1)=A x.005y# =,40(:0,0;3;7;(" How many units of ARMY";A;" ";6;" ";3;" will attack ");6;" ";Z$ 6110n:Q=1.5,-15:2680x AU=Z$ AU>P(A,1).5,-15:21,0;2;"THEY ONLY HAVE ";P(A,1);" UNITS SIR":200:21,0;6;S$:2680x AU>SUP.5,-15:21,0;2;"We can only supply ";SUP;" units Sir":200:21,0;6;S$:2680x SUP=SUP-AU:A(JJ,2)=AU:ACTS=ACTS+AU:PS=PS+(AU*P(A,4)):JJ=JJ+1:14,29;1;8;8;" ";14,29;SUP 6;18,0;S$;S$;S$;S$;19,0;2;"Enemy Str. ";ES;" ";6;" ";1;" Attack Str. ";PS:2570 PS=0 CPS=1ACTS=1PLOSS=1:CLOSS=0:2780 IPLOSS=(*((ES*ES/PS))):CLOSS=(*PS):PLOSSACTSPLOSS=ACTS-1 *MOR=0:CLOSS0PLOSS=PLOSS-1:A(K,2)=A(K,2)-1:P(A(K,1),1)=P(A(K,1),1)-1 "K:PLOSS>02830 ,1K=1JJ:A(K,1)=-12880@ 6o3+A(K,1),25;8;8;" ";3+A(K,1),25;P(A(K,1),1) @K J1K=1JJ:A(K,1)=-12940| O]P(A(K,1),4)<1MOR=-0.5P(A(K,1),4)=0:2930r T5P(A(K,1),4)=P(A(K,1),4)+MOR ^BP(A(K,1),4)>2P(A(K,1),4)=2 ryL=P(A(K,1),4):8;8;3+A(K,1),29;P(A(K,1),4);" "(3-L) |K KF=-12980 P$="":SF=-1P$=" " C(KF,1)=C(KF,1)-CLOSS:C(KF,1)020,0;4;0;1;" ENEMY ARMY HAS BEEN WIPED OUT ":.1}L,22:.1}L,32 :CLOSS=-C(KF,1):C(KF,3),2*C(KF,2)-1;4;1;7;P$:2980 j20,0;4;0;1;" LOSS TO ENEMY = ";CLOSS:.1}L,32 :CLOSS=0 SF=-13000 CLOSS10 21,0;4;0;1;" ENEMY STRONGHOLD HAS FALLEN ";:.1}L,22:.1}L,32 :Y(SF,1)=0:PVP=PVP+20:3000 T21,0;3;" ENEMY STRONGHOLD HOLDING OUT ";:.3,-10 250 (18,0;6;S$;S$;S$;S$ ZSUP>020,0;3;" Any more attacks Sir? ":540:2450  ASSES  [JJ=0:J=13:C(J,3)=15C(J,1)>0STOP=320@ "C(J,1)>0JJ=1 J JJ=0STOP=350^ 5J=18:P(J,1)>0JJ=2 &J 0JJ2STOP=320@ :6J=114:Y(J,1)=0JJ=3 DJ NJJ3STOP=320@ XGO<63170b ]aCR*DK+C(1,1)+C(2,1)+C(3,1)<*(650-CR)STOP=350^ b lWIPEOUT  vK+3;" ";2;7;1;" ARMY";UNIT;" WIPED OUT ";:K+3;" - General ";M$(UNIT,2̯M$(UNIT,1)+1);" "; N=(*3)+1 K+3;"shot for cowardice."N=1;"killed in action. "N=2;"sent to salt mines."N=3;" "(10 -M$(UNIT,1))  >COORDS  H23658j\,8 R521,0;3;" Letter ";1;"?"; \""3420\ fY$=:Y$=""3430f p/Y$<"A"Y$>"O".5,-15:3430f z:.01z# =,40(:Y=Y$-64@:8;3;Y$ ""3455 63;21,15;" Number ";1;"?"; Y$=:Y$=""3480 /Y$<"1"Y$>"9".5,-15:3480 0.01z# =,40(:X=Y$:8;3;X ""3505 20: INSTRUCTIONS  23658j\,8:ANS=0:#0;1,0;1;3;7;" Do you want INSTRUCTIONS ? " A$=:A$=""5002 &580D:ANS1GO=1:  6000p D6;0''''" DO YOU WANT INSTRUCTIONS AGAIN ":540 ANS=15010 61;18,0;S$:GO=1:1: |CONT  >4;7;1;" Press ENTER to continue ";A$  pINSTRUCTIONS  1:7:5: A4;1;1,3;" INSTRUCTIONS FOR WARGAME " ''" You are the Commander of the armed forces of ";6;0;" THE WESTERN ";1;" ";6;" ALLIANCE ";1;7;" and your task is to repel the invasion about to be mounted by the ";2;" REDS ";1;", your neighbours to the North." ''" You have 8 armies to defend the West with, and 14 cities from which to draw supplies. Armies and Cities can be placed at random or to a set pattern." %''" Let's have a look at the map.."  5500|  650 _1;7;4,8;"M A P";6,9 ;"O F";8,6;"THE WEST" ~0:17,0;7;"";:" = a friendly City. ";2;"";:" = an enemy held City (none shown yet)" U"The Enemy move on from the top of the screen and always move forward (ie down)" .5500|:17,0;S$;S$;S$;S$;S$ v17,0;"The co-ordinates of points are given as a letter then a number eg - the flashing City is at L6." =1;1;7;1;12 ,11 ;"" $N20,0;"You start with 10 units per armyand 20 units in reserve." . 5500| 81:7:5: B%'" ";3;" SEQUENCE OF PLAY: " G_'" FIRST TURN ONLY - You move (see later), every other turn starts with the Red move." L'" REDS MOVE - They only move 1 square at a time, and always attack Western units or cities in their path. They bring up reserves very fast." V,''" ";3;" ALLOCATION OF RESOURCES " `'" Each turn you get 10 resource points for each City you hold. You may use points to raise reserves or as attack supplies." t5500|: y'" ";3;" YOUR MOVE ";1;" You may give one order to each Army (changing its strength or moving it)."''" You move Armies with keys 5 - 8"''" Armies can move 1 or 2 squares" {a" up,down,left or right. You can have only 1 Army per square,but may put an Army into a City." ~''" ";3;" ATTACK "; " To attack the Enemy an Army must be in a square next to him. Any number of Armies can attack each using all or some of their units,but you must have enough supplies for each attacking unit." 5500|: '''" ";3;" VICTORY CONDITIONS " '" The Reds win if they reach the bottom edge of the map, or if they capture all your Cities, or if they destroy all your Armies." '" You win by destroying enough of their forces to make them ask for peace, but your score depends on how many Cities you hold at the end and how many units you have lost." 5500|: ''" ";3;" MORALE " '" Red morale is always the same but Western morale can be as high as 2 (ie twice as strong in a fight) or as low as 0 (ie able to defend themselves a bit but useless in attack)" ’'" A Western Army will improve its morale if it beats off an attack with little loss, or it destroys an Enemy Army with little loss." 5500|: #''" ";3;" GENERAL POINTS " '" Armies which are reduced to 0 strength are counted as having been wiped out."''" Cities have a defence strength of ten."''" Reds are stupid. They always ignore Western Armies that get behind them or on their flank." 5500|:go=0: 'B" ""A",21*8:" "65287,80P:" "1 ZuvPnxy vD1nzp toa maniuniloslossuqrFu-o 9ct&a&P Y7K              2 ZU] Stirling Collins Thompson Newman McDowell Howie Wood Adam-SmithZ Adam-Smith# A .