ZXTape! 0Created with Ramsoft MakeTZX2j Roman EmpireMC Lothlorien Ltd"Mike Cohen Roger Lees Geoff Street1982EnglishStrategy5.50ROMRE b """A" 2:6:0::10 ;"ROMAN EMPIRE";3,0;" 1982 - M.C.Lothlorien";9 ,0;"Please consult the written notes":n=13:.5,1:n:2,-2 u(6):x(6):o(6):j(6):h(6):c$(11 ,10 ):s(6):k(6):l(10 ):m(10 ):e(10 ):t$(10 ,1):g(5):w(6):y(6):z(6):t(6):a(6):p(6):d(6):i(6) #c"1 Aegyptus","2 Gallia","3 Graecia","4 Hispania","5 Italia","6 Numidia":n=16:c$(n):n:3,3,4,2,5,2:n=16:k(n):n:"Brutus","Decius","Gaius","Lucius","Titus":n=711 :c$(n):g(n-6)=19-n:n:15,0;"Level 1,2 or 3?":r:r=r:r<1r>335# don=16:w(n)=0:x(n)=0:y(n)=0:z(n)=0:a(n)=0:p(n)=0:d(n)=0:i(n)=0:t(n)=0:s(n)=0:k(n)=k(n)+(*5)+r:j(n)=10 :h(n)=(*7500L)+7000X+(2000*r):o(n)=(*8)+r:u(n)=0:n:n=110 :l(n)=5000:m(n)=10 :e(n)=10 :t$(n)="0":n 2:6:0::"OPTIONS";,"PERIOD ";u(1);5,0;"1.LEGIONS";,,"2.COUNTRIES/ARMIES";,"3.ATTACK";,,"4.RETREAT";,,"5.CAMPAIGN REPORT";,"6.NEXT PERIOD";17,0;"Vics: ";u(2);,,"Defs: ";u(3) *o:o=o:o<1o>61008 4:n=16:o=n7199+(o*200) n:1000 U4:4::b=15:w(b)=0x(b)>0z(b)=z(b)+1 n=16:2:*20,*20;"":n:*20,(*20)+10 ;"":.1}L,n:n:b:90Z:0:7:1::n=16:s(n)=99c2200 s(n)02007 Kh(n)=(h(n)*1.05fff):o(n)=o(n)+1:j(n)=j(n)+1:2200 f(((*2)+1)*((p(n)+d(n)))(((*3)*(k(n)+o(n)))+(h(n)/(a(n)+1))))21004 ܓn,0;c$(n);" A VICTORY!":a(n)=a(n)-((h(n)/10 )*((j(n)+1)/10 )):u(2)=u(2)+1:a(n)<0a(n)=0 Sh(n)=h(n)-((a(n)/4)*((i(n)+3)/10 )):h(n)<0h(n)=0 Bd(n)=d(n)+1:o(n)=o(n)-1:o(n)<0o(n)=0 3 2150f 4n,0;c$(n);" A DEFEAT!":u(3)=u(3)+1:a(n)=a(n)-((h(n)/5)*((j(n)+2)/10 )):a(n)<0a(n)=0 >Sh(n)=h(n)-((a(n)/8)*((i(n)+2)/10 )):h(n)<0h(n)=0 CBo(n)=o(n)+1:d(n)=d(n)-1:d(n)<0d(n)=0 f.h(n)=0n,0;c$(n);"- CONQUERED" hEa(n)=0w(s(n))0n,0;c$(n);" ROMANS WIPED OUT!" i/i(n)=i(n)-1:i(n)<0i(n)=0 jYx(s(n))=a(n):y(s(n))=d(n):z(s(n))=i(n):j(n)=j(n)-1:j(n)<0j(n)=0 ph(n)02170z ssj(n)=0:o(n)=0:k(n)=0:a(n)=0:d(n)=0:i(n)=0:p(n)=0:w(s(n))=0 za(n)02200 {"x(s(n))=0y(s(n))=0 Lp(n)=0:d(n)=0:i(n)=0:x(s(n))=0z(s(n))=0 w(s(n))=0:s(n)=0 n Zbb=15:t(b)=0:b:l=110 :b=15:t$(l)="0"2410j [t$(l)b2409i \)m(l)=y(b):e(l)=z(b):t(b)=t(b)+1 ib jl o0n=16:h(n)=0s(n)=99c q/s(n)=99cn,0;c$(n);"- CONQUERED" tWn:8800`":b=16:l=110 :t$(l)="0"t$(l)="x"2520 )t$(l)=bl(l)=(x(b)/t(b)):2520 l(l)=0t$(l)="x" l:b (Rm=0:p=0:l=110 :m=m+l(l):t$(l)="0"e(l)=e(l)+1 -t$(l)"0"p=p+1 2l 4:e=0:n=16:s(n)=99ce=e+1 7n:m=09000(# =%p10 u(4)=(*6) > u(4)=39100# Ke=69200# Y!u(1)=u(1)+1: 3:0::"";6;"";13 ;"FE";17;"M";21;"E";25;"S"::n=110 :0;n;6;l(n);13 ;6;17;m(n);21;e(n);25;t$(n):n:8800`": 4::"No.";3;"COUNTRY";13 ;"";19;"FE";22;"M";25;"E";28;"S"::1:n=16:0;c$(n);12 ;h(n);19;k(n);22;o(n);25;j(n);28;s(n):n :0:"";3;"":z=031:8,z;"":z::2::n=15:n;2;c$(n+6);12 ;x(n);19;g(n);22;y(n);25;z(n);28;w(n):n::"Which (0-5)?" *b:b=b:b<0b>57605 #17,25;b:b=0 M18,0;" to be ADDED?(0-10) ":l:l=l:l=07700 ,l<1l>10 t$(l)"0"7617 Ώt$(l)=b:y(b)=(((y(b)*x(b))+(l(l)*m(l)))/(x(b)+l(l))):z(b)=((((z(b)*x(b))+(l(l)*e(l)))/(x(b)+l(l)))+.5):y(b)<0y(b)=0 z(b)<0z(b)=0 @x(b)=x(b)+l(l):m(l)=y(b):e(l)=z(b):w(b)=07600 6a(w(b))=x(b):d(w(b))=y(b):i(w(b))=z(b):7600 M18,0;" to be REMOVED?(0-10)":l:l=l:l=07740 < #+l<1l>10 t$(l)b7700 (8t$(l)="0":x(b)=x(b)-l(l):x(b)<11 x(b)=0 *x(b)>077302 ,(y(b)=0:z(b)=0:77357 2|m(l)=y(b):e(l)=z(b):y(b)=(((((x(b)+l(l)))*y(b))-(l(l)*m(l)))/(x(b))):z(b)=(((((x(b)+l(l)))*z(b))-(l(l)*e(l)))/(x(b))) 7y(b)<0y(b)=0 8z(b)<0z(b)=0 9w(b)=07600 :6a(w(b))=x(b):d(w(b))=y(b):i(w(b))=z(b):7600 s x"Country?(0-6)" {c:c=c:c=0 }!c<1c>67803{ s(c)99c7814 ;10 ,0;c$(c);"-already conquered!":7803{ s(c)=07818 45,0;c$(c);"-NOT POSSIBLE":7803{ "Which ?(0-5)"  b:b=b:b=07995; !b<0b>57819 x(b)07830 !" ";b;"-No troops":7819 w(b)=07850 '" ";b;"-Already engeged":7819 <w(b)=c:a(c)=x(b):d(c)=y(b):i(c)=z(b):s(c)=b:p(c)=g(b) ; @"From where?(0-6)" Jc:c=c:c=0 K!c<1c>68010J O(s(c)0s(c)99c8025Y T"No army there!":8010J YYw(s(c))=0:a(c)=0:d(c)=0:i(c)=0:s(c)=0:p(c)=0: "Country?(0-6)" c:c=c:c=0 !c<1c>68210 :,:a(c)=0d(c)=0:i(c)=0 D*h(c)=0o(c)=0:j(c)=0 Ec$(c);" REPORT ";s(c);5,4;"ROMANS";,"ENEMY";7,0;": ";a(c);,;h(c);,"M: ";d(c);,;o(c);,"E: ";i(c);,;j(c);,"FE: ";p(c);,k(c):8800`": 1500: "`,16,0;"Press a key":0: #(:"ALL TROOPS LOST" #Z:"PERIODS ";U(1);,,"CONQUESTS ";e;,,"CASUALTIES ";((60000`-m)/600X);,,"GENERALSHIP ";(((u(2)*100d/(u(2)+u(3)))+((m)/600X)+(e*100d/6))/3);" (pc.)";21,0;"ANOTHER GAME?(y/n)" #ir$:r$="y"1 #n #<:"ROME LEFT UNDEFENDED & SACKED BYBARBARIANS":9050Z# #0:"HAIL CAESAR! ROME SALUTES YOU.":9050Z# RE X(+ 8'X$D$"~@|@@~~@|@@@