ZXTape! 0Created with Ramsoft MakeTZXRome  ?| " 56500:2:2::2:"":#0;0,0;4;6;1;" L O A D I N G ":"" p#0;0,0;6;0;"Spectrum adaptation by P.Rawling from an original by M.Edwardes " 20,0;:"" {Romestr @ h p>|p>|@H@ @/@y   ;~00<?& (B"& (B"@(@`a@1p wp8 ;pF@8lfl>,<(@"@8lfl>,<(@"*$*  *$0@>pxy" ?D@ =G@D2$2D2D<<@D2$2D2D<<$TG 0T"T P?pA |>PDh@s}<(>>@D"$ D"| >>@D"$ D"| >>*D8*8H8*"x08  <A0hs D  |>@D8߿&D2< <"B &D2< <"B DT`T!0T  ` Oc@?=8h00pDpǿ|8,p<w|p8,p<w|p@H2 2"f;0!8 y߃`xx`xx<@  0@?  ;@ ?_ @7ǟBx 69`s0p@8 8 xD p 1A ! IXq0p8c88f$? |"@"@>`  >b>H" p0p8c88I"p?H 0<D%?@|` I ?"" p0p8gx8I8p?@}%@?"8xp @D"p0p8gx8`I 9p@`@@%8|G D>  $=8?X" p0qp 8g8I@  @@\`x" @!!>y?8`pp8g?3 < @ @ `@0 0>pp8?p0qx ?8Dp0px?8A((>c < 48((>c < 48((p0p898***BA(D<D"$D"||@>D"$D"||p0p8Î8 *8*8*8<<"L"L$L"<<"L"L$L"Dp0p@88 `TTT((D<4|6f6((D<4|6f6((80?xaDBdDBd>y>>?p<<0>|8>|8hh`````````````hh`````````````hhhXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXhhXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXhhXXXXXXXXXXXXXX^^^XXXXXXXXXXXXXh`XXXXXXXXXXX^^^^^^XXXXXXXXXXXXX``XXXXXXXXXXX^^^^^^^^^^X^XXXXXXX``XXXXXXXXX^^^^^^^^^^^^^^XXXXXXX``XXXXXXXXX^^^^^^^^^^^^^^XXXXXXX``XXXXXXX^^^^X^^^^^^^^^^^XXXXXXX``XXXXXXXX^^XXXXXXXX^^^^^XXXXXXX``XXXXXXXXXXXXXXXXXXX^^^XXXXXXXX``XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX``XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX``XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX``XXOOOOOOOOOOOOOOOOOOOOOOOOOOXX``XXOOOOOOOOOOOOOOOOOOOOOOOOOOXX``XXOOOOOOOOOOOOOOOOOOOOOOOOOOXX`hXXOOOOOOOOOOOOOOOOOOOOOOOOOOXXhhXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXhhXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXhhh`````````````hh`````````````hhRome m^(#m^>*o^DOUBLE HEIGHT  236066\,14:236077\,250:LL,CN;X$:236077\,251:LL+1,CN;X$:236066\,181:236077\,219: TITLE  }CN=6:LL=0:X$=" THE FALL OF ROME ":6:0:6::3:7:5:6:0: !DELETE MAP MARKERS  TJ=126:4;0;1;X(J,2),X(J,1);" ":J: CLEAR TEXT  %17,0;S$;S$;S$;S$;S$;: 21,0;S$:"": DESTINATION  12 :"":P(7,2):236066\,12 :236077\,253:18,0;3;7;" !""#$%&'()*+,-./01 ";5;1;22;:236066\,181:236077\,219:J=17:JZ=N(L,J):JZJ=7:22 O1;P$(JZ);" ";:P(J,1)=X(JZ,1):P(J,2)=X(JZ,2) J:1;0;:J=17:P(J,1)P(J,2)1;4;3;P(J,2),P(J,1);"" J 0,0;1;7;" Enter your destination: ";1,0;Q$:NN=0:J=17:JZ=N(L,J):JZ=0J=7:30 "Q$=P$(JZ,13)NN=JZ {J:NN.3,0:#0;1,0;2;7;" Destination not available! ":100d:25 # 'ROMAN LOSSES  ( L3=2 -@R(L,L3)<1L3=L3+1:45-+10 *(L3=6) 2>R(L,L3)=R(L,L3)-1:RA=RA-2:RA>145- 7 ;ENEMY LOSSES  <&RA<2A(L,L3)<170F A2A(L,L3)=A(L,L3)-1:RA=RA-2:60< F OROMAN PROVINCES  P[L=126:R(L,2)+R(L,3)+R(L,4)+R(L,5)190Z UL:12 :18,0;"";3;7;" PROVINCES CONTROLLED BY ROME ":200:502:5520:21,0;" Continuing .....": Y!MARK CURRENT PROV.  Z=X(L,2),X(L,1);1;4;3;"": cPROV. STATUS  d12 :17,0;"________________________________";6;" Year ";YR;" ";3;7;" ";P$(L);" ";7;0;" Bal=";IX;0; f1;7;" SL's=";R(L,3);8;4;0;" ML's=";R(L,2);16;1;7;" CV's=";R(L,4);24;4;0;" AX's=";R(L,5);0'': iNUMBER INPUT  n\.1}L,10 :Z$="":#0;1,0;"? " o""111o pX$=:X$=""112p qX$=13 117u s3Z$=Z$+X$:#0;1,0;Z$:111o uZ$=""Z$=" " xMQ=0:I=1̱Z$:Z$(I)<480ůZ$(I)>579Q=1:I=Z$ yI:Q#0;1,0;2;7;" Numbers only please ":.3,0:100d:#0;1,0;S$:110n z |ENEMY STATUS  }FCN=6:LL=20:B=0:LL,B;2;7;" FOES " 2J=111 :T(L,J)0J:140 oJZ=F$(J):B=1:Q=CN+JZ+T(L,J)+4:Q>32 CN=0:LL=LL+1:LL>22160 NLL<221;LL,CN;" "CN;F$(J,2JZ+1);"=";T(L,J);"" \LL=22#0;1;0,CN;" "CN;F$(J,2JZ+1);"=";T(L,J);"" CN=Q:J <Q=CN:J=242:A(L,J)0150 JZ=F$(12 +(J/4)):B=1:Q=CN+JZ+A(L,J)+4:Q>32 CN=0:LL=LL+1:LL>22160 bLL<221;LL,CN;" "CN;F$(12 +(J/4),2JZ+1);"=";A(L,J);"" pLL=22#0;1;0,CN;" "CN;F$(12 +(J/4),2JZ+1);"=";A(L,J);"" 4CN=Q:J:B" ";7;" There are NONE "  K#0;1,0;2;7;" Press ENTER for the rest! " =""165 920,0;S$;S$;:"":LL=20:CN=6: POINTER  1:8:8:1:I=31-1:X(L,3),X(L,4):(X(NN,3)-X(L,3))/I,(X(NN,4)-X(L,4))/I 210:I=130 ZX(L,3),X(L,4):(X(NN,3)-X(L,3))/I,(X(NN,4)-X(L,4))/I )I:0:0:5:0: BEEPS  @9850z&:J=115:CN:.15~,CN+12 :J: JJ=14:.02{# =,0+3*J:.02{# =,6*J:J: Q.03{u\,0:.03{u\,12 :.03{u\,24:.03{u\,36$: .9860&:A=19 :C,D:C,D:A: LETTER INPUT  q.1}L,10 :23658j\,8:A$="":#0;1,0;"? " ""262 X$=:X$=""264  X$=13 275  3A$=A$+X$:#0;1,0;A$:262 A$=""A$=" " J=1̱A$:A$(J)<"A"A$(J)"Z"J=A$:J:.3,0:#0;1,0;2;7;1;" Letters only please ":100d:260 ,J: MAIN LOOP  LYR=YR+5:L=126:J=13:S(L,J)=0:J:L L=126:R(L,4)=0:R(L,5)=0:R(L,2)+R(L,3)<1R(L,1)=0:900 E10 :90Z:TT=0:J=111 :TT=TT+T(L,J):J IX=((I(L)-TT/5)*(R(L,2)+R(L,3))/(R(L,2)+R(L,3)+A(L,2)+A(L,4)))+R(L,1):IX<0IX=0 &220:B=0:R(L,2)100d:1;21,0;" Convert how many Mobile Legions";#0;0,0;1;"(ML's) to Static Legions (SL's) " +R(L,2)110n:B=Z$:B*2>IX#0;1,0;2;7;" You do not have enough money! ":.3,0:100d:555+ 0B>R(L,2)#0;1,0;2;7;" Not enough Mobile Legions! ":.3,0:100d:555+ :13 :R(L,2)=R(L,2)-B:IX=IX-B:R(L,3)=R(L,3)+B:IX=IX-R(L,3):IX<0R(L,3)=R(L,2)+IX:IX=0 N&B=R(L,2):R(L,2)=0 X&IX<3B=R(L,2)620l b=R(L,2)=R(L,2)+1:IX=IX-3:600X lIX<5670 ~100d:1;" Will you recruit a new Mobile ";#0;0,0;1;" Legion (ML) " v260:A$"Y"A$"N".3,0:#0;0,18;3;7;" Reply Y or N ":645 D13 :A$="Y"IX=IX-5:R(L,2)=R(L,2)+1 ,IX<4R(L,2)<3720 ~100d:1;" How many Cavalry (CV's) will ";#0;0,0;1;" you recruit " 110n:B=Z$:B*4>IX#0;1,0;2;7;" You do not have enough money! ":.3,0:100d:695 B>R(L,2)/3#0;1,0;2;7;" Only 1 CV to 3 Mobile Legions! ":.3,0:100d:695 +13 :IX=IX-B*4:R(L,4)=B ,IX<3R(L,2)<2770 ~100d:1;" How many Auxilii (AX's) will ";#0;0,0;1;" you recruit? " 110n:B=Z$:B*3>IX#0;1,0;2;7;" You do not have enough money! ":.3,0:100d:745 B>R(L,2)/2#0;1,0;2;7;" Only 1 AX to 2 Mobile Legions ":.3,0:100d:745 +13 :IX=IX-B*3:R(L,5)=B IX<18204  <100d:1;" How much money will you move ":"" 110n:B=Z$:B>IX#0;1,0;2;7;"You do not have that much money!":.3,0:100d:785  13 :B<18204  15:R(NN,2)+R(NN,3)<1#0;1,0;2;7;" That Province is not Roman! ":.3,0:80P:800  ' 175 *3IX=IX-B:S(NN,1)=S(NN,1)+B:770 4R(L,1)=IX PJ=12:NN=J+1*(J=2):A(L,J*2)<1970 fIX=((I(L)-TT/5)*A(L,J*2)/(R(L,2)+R(L,3)+A(L,2)+A(L,4)))+A(L,NN) *B=A(L,J*2):A(L,J*2)=0 (IX<2B=A(L,J*2)950 AA(L,J*2)=A(L,J*2)+1:IX=IX-2:930 MIX3A(L,J*2)=A(L,J*2)+1:IX=IX-3:950 A(L,NN)=IX:J VJ=111 :T(L,J)0T(L,J)=(T(L,J)*(*20+95_)/100d) J:L UL=126:R(L,1)=R(L,1)+S(L,1):S(L,1)=0:L LYL=126:10 :R(L,2)+R(L,4)+R(L,5)>0220 V<R(L,2)+R(L,4)+R(L,5)<11190 `;90Z:IX=R(L,1):100d:B=0:C=B:D=B oR(L,2)>021,0;1;"How many Mobile Legions (ML's) ";#0;0,0;1;" will you move ":110n:B=Z$:B+R(L,4)+R(L,5)<11190 tB>R(L,2)#0;1,0;2;7;"That is too many Mobile Legions!":.3,0:100d:1135o yR(L,4)>021,0;1;" Move how many Cavalry (CV's) ":"":110n:C=Z$:B+C+R(L,5)<11190 ~C>R(L,4)#0;1,0;2;7;" That is too many Cavalry! ":.3,0:100d:1145y R(L,5)>021,0;1;" How many Auxilii (AX's) will ";#0;0,0;1;" you move ":110n:D=Z$:B+C+D<11190 D>R(L,5)#0;1,0;2;7;" That is too many Auxilii! ":.3,0:100d:1155 15:175 R(L,2)=R(L,2)-B:R(L,4)=R(L,4)-C:R(L,5)=R(L,5)-D:S(NN,1)=S(NN,1)+B:S(NN,2)=S(NN,2)+C:S(NN,3)=S(NN,3)+D:1110V ]13 :J=111 :T(L,J)<26R(L,2)+R(L,3)>01210 :C=(*7)+1:D=(*7)+1:C0):Q .C=(*Z)+1:D=(*Z)+1:C0NN=J:J=11 ,KJ:NNQ$=F$(12 ,24)A(L,2)>0NN=12 6HNNQ$=F$(13 ,24)A(L,4)>0NN=13 @rNN#0;1,0;2;7;" Wrong Foe given! ":.3,0:100d:1560 JwRA=(*RA)+1:NN>11 B=(NN-11 )*2:A(L,B)=A(L,B)-(RA/2):A(L,B)<0A(L,B)=0 TCNN<12 T(L,NN)=T(L,NN)-RA:T(L,NN)<0T(L,NN)=0 h7J=242:A(L,J)<11680 r_RA=(*A(L,J))+1:R(L,2)+R(L,3)+R(L,4)+R(L,5)>040( .L3=6-J:60<:RA>0TL=TL+RA LJ:TT=0:J=111 :TT=TT+T(L,J):J:TT<11745 4RA=(*TT/2)+1:RA<11730 GR(L,2)+R(L,3)+R(L,4)+R(L,5)>040( OJ=242:L3=J:60<:J:TL=TL+(RA/(*8+8)) ;RA=(TT-TL)/TT:J=111 :T(L,J)=(RA*T(L,J)):J RX=01800 !B>0100d:125}  5530 <RX=0:L:10 :80P:YR<450500 GAME OVER  nRA=0:4:3::X$=" THE GAME IS OVER ":CN=6:LL=1:6:0:5 ڳ0,5;"";1,5;"";1,26;"";2,5;"";2,26;"";3,5;"" ߾230:1:7:4,1;"";5,1;" These Provinces are Roman ";6,1;" " ZI=0:Z=-1:L=126:R(L,2)+R(L,3)<12045 RTT=0:J=111 :TT=TT+T(L,J):J:TT=TT+A(L,2)+A(L,4) uTTI=1:Z=Z+1:7+(Z/3),1+10 *(Z-3*(Z/3));" ";P$(L);:RA=RA+I(L) 9L:IZ=Z+1:7,1;" NONE"; J31;8+(Z/3),1;" "  5:0:4;S$;" These Provinces are disputed    "; nI=0:Z=(Z/3)*3-1:L=126:R(L,2)+R(L,3)<12095/  RTT=0:J=111 :TT=TT+T(L,J):J:TT=TT+A(L,2)+A(L,4) *}TTI=1:Z=Z+1:13 +(Z/3),1+10 *(Z-3*(Z/3));" ";P$(L);:RA=RA+I(L)/2 /HL:IZ=Z+1:13 +(Z/3),1;" NONE"; 4K31;14+(Z/3),1;" " 9:6;0;"Press ENTER for the Final Report";X$ >w5:6::A$=RA:X$="YOU SCORED "+A$+" VICTORY POINTS":CN=1:LL=1:2:7:5 Dr236066\,150:236077\,249:2,12 ;A$:236066\,181:236077\,219 H4,1;"  The Empire had an initial  value of 240 Victory Points " M10 ,0;"                " R"       " W4:0:RA<100dX$="STRATEGIC DEFEAT":16,6;"The Empire will";17,14;"be destroyed." \RA>99cRA<120xX$="PARTIAL DEFEAT":16,6;"The Empire is still";17,5;"under heavy attack." f_RA>119wRA<140X$="HISTORIC RESULT":17,4;"The Empire has survived." pRA>139RA<160X$="PARTIAL SUCCESS":16,5;"The Empire is ready";17,12 ;"to expand again." zrRA>159X$="STRATEGIC VICTORY":16,6;"The incursions have";17,8;"been defeated!" CCN=(32 -X$)/2:LL=12 :1:7:5 T220:21,0;2;7;" Do you want to play again? "; A$=:A$=""2505 0:A$="Y"90102# \A$="N"#0;3;0;" ........... BYE BYE .......... ":300,:0 .3,0:2505  MAP  &5:5:64220:"": |CONT   220 54;7;" Press ENTER to continue ";A$  pINSTRUCTIONS  u7:''" In this game you command the resources of the Roman Empire in it's struggle for survival against the Barbarian tribes of the North."''" You must also battle with the Eastern Empires as they try to take advantage of your troubles." z'" The fate of Roman civilisationis in your hands!"''"Note that the map and names used in this game are as close as possible to the Roman originals.": 5520:7:'" There are 12 Turns, each equal to a five-year period. Each turnis divided into three phases: the income / expenditure phase, the movement phase, and the combat phase." " In each phase the player will be given various actions to perform in all Roman Provinces, one province at a time. These actions will vary according to the phase; and the situation in the province." '"N.B. When asked for the name of a foe or province you only need input the first 3 characters."'" All names and numbers must be ended by pressing ENTER.": 5520:7:''" In the income phase you receive an income from each province. This income is reduced by the presence of enemy tribes and armies in the province." ''" In the movement phase forces can be moved between provinces."'''" In the combat phase you can attack any one enemy in each province.": 5520:7:''" You have several different types of forces available:"'''" Mobile Legions (ML's) are yourmain force. You can only raise 1per province per turn. They cost 5 per turn to raise and 3 per turn to maintain." '" Static Legions (SL's) are created by converting Mobile Legions. They cost 2 to convertand 1 to maintain. They cannot be moved from the province in which they are created.": 5520:7:''" Auxiliaries (AX's) cost 3 to raise. 1 can be raised for every2 Mobile Legions in a province. They are disbanded at the end of each turn." '" Cavalry (CV's) cost 4 to raiseand 1 can be raised for every 3 Mobile Legions in a province. They are disbanded at the end ofeach turn but have double attackstrength." 1;20,0;" Do you want to be reminded of the map details? (Y or N) ":260:A$"Y"A$"N".3,0:6060  A$="N" 5000:L=126:17,0;"";3;7;" PROVINCE: ";P$(L);7;0;" INCOME: ";I(L);0; "";6;" PROVINCE OWNER - ";"ROME "L<14;:L>13 6;F$(L-13 ,2);0; O"":90Z:5520:10 :L: #'PROGRAM STARTS HERE  #(20,0;:"":236066\,181:236077\,219:"":#0;1,0;6;0;1;" S T O P T H E T A P E " #-bF=15:.1}L,30:.1}L,35#:.1}L,40(:.1}L,45-:F #2:Q$(3):S$(32 ):S(26,3):R(26,5):T(26,11 ):I(26):N(26,7):A(26,4):X(26,4):F$(13 ,11 ):P$(26,9 ):6005u #7TL=126:P$(L):L:L=113 :A$:F$(L)=±A$+A$:L:6015 #>> $FZb$(>8D D|>"*~ >" <" xDD8~D88$$BB<8DD<  >>*H0DHpHDp "~lTDDDDdTLD$BBB$|""< p$BBJ$x$$8$$v>B@<B|8DDDDD8ƂDD((DDDTlD((DD(8 B@ pp8T p .\xp ,2"2lDD<xp ,2""w<H0p .$8$n<j>**jl4$$f8DDD8l2"2,`6LDL4l2 p<@8x<f$$,DD((VTT|VD((Df$$<x|H$|0p p(?x?`??????|?? ????????? ????o?????????? ???????????? ?8a????>?????ǀ>p?????? ??\?????8??? \???<?  `?O;?@????ǟ?  ?I? H??0 `??>????????LLLLLLLLLLLLLLLTTTTTTTTTTTTTTTTTLLLLLLLLLLLLLLLLTTTTTLLlTTTTTTTTLLLTLLLLLLTTTTTTTTTTTLLLLTTTTTTTLLLLLLLLlTTTTTTTTTlLLLLLLLTTTTTTLLLLLLLTTTTTTTTTTTTLLLLLLLTTTTTTLLLLLLLTTTTTTTTTTTTLLLLLLTTTTTTTLLLLLLLLTTTTTTTTTTTLLLLLTTTTTTTTLLLLLLLLTTTLLlTTTTlLLTTTTTTTTTTTLLLLLLLLTTTLLLLTTTLLLlTTLLlTTTTTLLLLLLLLLLLLLLLLLLLLLLLLLLlTTTTTLLLLLTTTLLLLLLLLLLLLLLLLLLlTTTTTLLlllTLLLLLLLLLLLLLLLLLLLLTTTTTTLLllllLLLLLLLLLLLLLLLLLLLLTT\\\\LLlllLLLLLLLLLLLLLLLLLLLLLLLLLllLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLlLLLLLLLLTTTlLLLLLLLLLLLLLLLLLLLLLLLLLLlTTTTTlLLTLLLLLLLLLLLLLLLL,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,&."!@w#:G=(2:G=( 2>2Zbb$$>> DD||""~ <""xDDDD88888$BBBB<<< < $$FFZ((88DD>>**~>>"" < x~~DD8$$$88DDDD<((((Dxx$$$$<&&@@@xx$$"""~~""((8~~""((8&&@@NDDDD|||>>**DDHHppp llTTDDDddT$$BBB||""""<$$BBBxx$$$$8>>BB@@<DDDDDƂDDDDDDDDDD((DD((D||<""""||@@@&&"""$$xx8((""~~8(( ppNBB&&|DDDD||HH00pHHDD ""~~DDDDDTLLDDBBB$$< ppBJJ$$8$$$$vv<BB||88DDDDD88D((((DTTll((DD88 BBqIEEIqDD99TW4DDDD88NPNANNQ99Q^Q^AAAAA}! :H\???FB˧F#C P P P 3\MR8R \Wq !v><<<<~~??@BBJ2 q zz BBBBB<