EMPIRER 21C230:1:7:236099\,502: Q10 ;"ROMAN EMPIRE";2,0;"COPYRIGHT - M.C.LOTHLORIEN","1982" ;7,0;"PLEASE REFER TO THE WRITTEN NOTES." dC$(10 ,12 ) iS$="0000000000" oC$(2)="02 AS.MINOR;" pC$(3)="03 DACIA 8" qC$(1)="01 AEGYPTUS;" rC$(4)="04 GALLIA 9" sC$(5)="05 GERMANIA;" tC$(6)="06 GRAECIA :" uC$(7)="07 HISPANIA;" vC$(9 )="09 ITALIA 9" wC$(10 )="10 NUMIDIA :" xC$(8)="08 ILLYRIA :" K(10 ) K(1)=3@ K(2)=3@ K(3@)=5 K(4)=2 K(5 )=3@ K(6@)=3@ K(7`)=2 K(8)=4 K(9)=5 K(10 )=4 515,0;"ENTER LEVEL REQUIRED (1,2 OR 3)" LE )LE<1LE>3LEɺLE186  F(10 ) C(10 ) J(10 ) H(10 ) O(10 ) N=110 O(N)=(*8)+LE F(N)=(*5 )+LE 1H(N)=(*9000 )+7000Z+(2000z*LE) C(N)=N J(N)=10 N e L(18) f E(18) g M(18) h R(18) iN=118 jR(N)=6@ mL(N)=5000@ tM(N)=10 ~E(N)=10 N X$(64@) T$="000000000000000000" G$(9 ,9 ) G$(1)="YOURSELF" G$(2)="ALBINUS" G$(3@)="BRUTUS" G$(4)="CASSIUS" G$(5 )="DECIUS" G$(6@)="ERMINIUS" G$(7`)="FLAVIUS" G$(8)="GRACCHUS" G$(9)="HORATIUS"  G(9) G(1)=6@ G(2)=5 G(3@)=4 G(4)=4 G(5 )=3@ G(6@)=3@ G(7`)=2  G(8)=2 "G(9)=1 &P$="000000000 " V W(9 ) W Y(9 ) X X(9 ) Y Z(9 ) fH$(9,8) gB=19 h H$(B)="0" jB  P(10 )  I(10 )  D(10 )  A(10 )  T(9)  Q(9) / PE=0 4 VI=0 9 DE=0 ^ GU=0 ` DEP=0 "OPTIONS";0,22;"PERIOD ";PE;5,6;"1.CHECK COUNTRIES";6,6;"2.CHECK LEGIONS";7,6;"3.CHECK GENERALS";8,6;"4.BUILD/CHANGE AN ARMY";  9 ,6;"5.MAKE AN ATTACK";10 ,6;"6.MAKE A WITHDRAWAL";11 ,6;"7.CHECK A CAMPAIGN";12 ,6;"8.FIGHT A FURTHER PERIOD";13 ,6;"9.RESIGNGET SCORE";16,0;"VICTORIES ";VI;17,0;"DEFEATS ";DE OP *OP<1OP>9 OPɺOP1008  6800+OP*200  @B=19 A.W(B)=0X(B)>0Z(B)=Z(B)+1 BZ(B)>10 Z(B)=10 CB N=110 S$(N)="C"2200 S$(N)02007z "H(N)=(H(N)*105R/100H) O(N)=O(N)+1 J(N)=J(N)+1 O(N)>10 O(N)=10 J(N)>10 J(N)=10 S$(N)="0"2200 {RES=(((*1.2)+.8L)*((6@+P(N)+D(N)))-((((*1.5@)+.5)*(K(N)+F(N)+O(N)))+(H(N)/(A(N)+1)))) 8RES0N,0;C$(N,11 );" A VICTORY" 6RES<0N,0;C$(N,11 );" A DEFEAT" RES<0DE=DE+1 ERES0A(N)=A(N)-((H(N)/10 )*((J(N)+1)/10 )) DRES<0A(N)=A(N)-((H(N)/5 )*((J(N)+2)/10 )) RES0VI=VI+1 A(N)<0A(N)=0 \200:A(N)=0W(S$(N))0N,0;C$(N,11 );" ROMANS WIPED OUT" DRES0H(N)=H(N)-((A(N)/4)*((I(N)+3@)/10 )) DRES<0H(N)=H(N)-((A(N)/8)*((I(N)+2)/10 )) H(N)0H(N)=0 ;H(N)=0N,0;C$(N,11 );" IS CONQUERED" X(S$(N))=A(N)  RES<0D(N)=D(N)-1 D(N)<0D(N)=0  RES0D(N)=D(N)+1 D(N)>10 D(N)=10 Y(S$(N))=D(N)  RES0O(N)=O(N)-1  RES<0O(N)=O(N)+1 O(N)>10 O(N)=10 O(N)<0O(N)=0 I(N)=I(N)-1 I(N)<0I(N)=0 J(N)=J(N)-1 J(N)<0J(N)=0 Z(S$(N))=I(N) H(N)02060 J(N)=0 F(N)=0 O(N)=0 K(N)=0 A(N)=0 D(N)=0  I(N)=0  P(N)=0  W(S$(N))=0  A(N)02200  &X(S$(N))=0Y(S$(N))=0 P(N)=0 D(N)=0 I(N)=0 &X(S$(N))=0Z(S$(N))=0 W(S$(N))=0  S$(N)="0" 4H(N)S$(N)="C" N M T(9 ) ZL=118 [!T$(L)="0"T$(L)="X"2410j aM(L)=Y(T$(L)-480) bE(L)=Z(T$(L)-480) c/T(T$(L)-480)=t(T$(L)-480)+1 jL L=118 !T$(L)="0"T$(L)="X"2520 /L(L)=(X(T$(L)-480)/T(T$(L)-480)) L(L)=0T$(L)="X" T$(L)"X"2520 R(L)=0 M(L)=0 E(L)=0 L & ME=0 ' PR=0 (L=118 ) ME=ME+L(L) *T$(L)="0"E(L)=E(L)+1 +E(L)>10 E(L)=10 -T$(L)"0"PR=PR+1 2L 4 CO=0 5N=110 6S$(N)="C"CO=CO+1 7N <ME=09000 =PR18GU=(*6@) >GU=3@91000 A#P$(1)"0"DEP=(*6@) BDEP=5 9120 KCO=10 9200 YPE=PE+1 Z  "ARMY ";B 5 ,0;"TROOPS = ";X(B);,,"MORALE = ";Y(B);,,"ENERGY = ";Z(B);,,"RATING = ";6@;,,"GENERAL= ";H$(B);,"STATUS = ";W(B) ;12 ,0;"DO YOU WISH TO ADD A LEGION ? (y/n)" A$ A$="y"3199 ;15,0;"DO YOU WISH TO REMOVE A LEGION ?(y/n)" B$ B$="y"3499 3600 ;15,0;"ENTER LEGION (1-18 OR 0 IF NO MORE)" L 'L<0L>18LɺL3201 L=03299N0 T$(L)"0"3200H 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)=03270L` A(W(B))=X(B) D(W(B))=Y(B) I(W(B))=Z(B) 15,0;X$ 3005 3020< 818,0;"ENTER LEGION (118 OR 0 IF NOMORE)" L L=03599` 'L<0L>18LɺL3501 T$(L)B3501 T$(L)="0" X(B)=X(B)-L(L) X(B)17X(B)=0 X(B)0Y(B)=0 X(B)0Z(B)=0 X(B)03551] M(L)=Y(B) E(L)=Z(B) 3Y(B)=(((((X(B)+L(L)))*Y(B))-(L(L)*M(L)))/(X(B))) 3Z(B)=(((((X(B)+L(L)))*Z(B))-(L(L)*E(L)))/(X(B))) Y(B)<0Y(B)=0 Z(B)<0Z(B)=0 W(B)=03557^P A(W(B))=X(B) D(W(B))=Y(B) I(W(B))=Z(B) (15,0;X$;X$;X$:3005 H$(B)"0 "3650d R18,0;"WHICH GENERAL DO YOU WISH TO APPOINT ? (1-9 OR 0 IF NONE)" V V=03650d &V<0V>9 VɺV3610 P$(V)"0"3610 Y(B)=Y(B)+5 Y(B)>10 Y(B)=10  P$(V)=B ! Q(B)=G(V) " H$(B)=G$(V) #W(B)0P(W(B))=Q(B) $W(B)0D(W(B))=Y(B) )(15,0;X$;X$;X$:3005 BWH$(B)"0 "18,0;"DO YOU WISH TO REMOVE THE GENERAL ? (y/n)" CH$(B)="0 "3800m DK$ EK$"y"3800 GH$(B)="0 " IQ(B)=0 JW(B)0P(W(B))=0 LY(B)=Y(B)-5 MY(B)<0Y(B)=0 NW(B)0D(W(B))=Y(B) OV=19 PP$(V)=BP$(V)="0" QV (15,0;X$;X$;X$:3005 7 <   "ATTACK ON: ";C$(N,11 ) N5,0;"WHICH ARMY ARE YOU ATTACKING WITH ? (1-9 OR 0 IF NONE)" B B=04150 &B<0B>9 BɺB4006 AH$(B)="0 "110,0;"ARMY ";B;" HAS NO GENERAL" H$(B)="0 "4006z` <X(B)=013P,0;"ARMY ";B;" HAS NO TROOPS" BW(B)08,0;"ARMY ";B;" IS ALREADY COMMITTED" 'W(B)0X(B)=04006z`  W(B)=C(N) >11 ,0;"ARMY ";B;" IS ATTACKING ";C$(N,11 )  A(N)=X(B)  D(N)=Y(B)  I(N)=Z(B)  P(N)=Q(B)  S$(N)=B , 200 6 h 75,0;"WITHDRAWAL FROM: ";C$(N,11 ) NS$(N)="0"S$(N)="C"5,0;"YOU HAVE NO ARMY IN ";C$(N,11 ) !S$(N)="0"S$(N)="C"4600 W(S$(N))=0 A(N)=0 D(N)=0 I(N)=0  S$(N)="0" P(N)=0 H(N)=0S$(N)="99"  200 * \  A(N)=0D(N)=0 A(N)=0I(N)=0 ?"CAMPAIGN IN ";C$(N,11 );": CURRENT POSITION" B5 ,0;"ROMAN FORCES";5 ,18;"ENEMY FORCES" 7,0;"TROOPS ";A(N);8,0;"MORALE ";D(N);9 ,0;"ENERGY ";I(N);10 ,0;"RATING 6";11 ,0;"LDR.AB ";P(N) #12@,0;"ARMY ";S$(N) H(N)=0O(N)=0 H(N)=0J(N)=0 7`,18;"TROOPS ";H(N);8,18;"MORALE ";O(N);9,18;"ENERGY ";J(N);10 ,18;"RATING ";K(N);110,18;"LDR.AB ";F(N) #18,0;"PRESS ANY KEY"  0 K P Xp"NO";3;"COUNTRY";13 ;"ARMY";20;"L";22;"R";24;"M";27;"E";30;"S" Y Z \N=110 ^N+2,0;C$(N,11 );N+2,13 ;H(N);N+2,20;(480+F(N));N+2,22;(480+K(N));N+2,24;O(N);N+2,27;J(N);N+2,30;S$(N) N !18,0;"PRESS A KEY"  0   1000z  Q"LEGION";8;"MEN";17;"R";21(;"M";25H;"E";29h;"S" ! %N=118 &N )}N+1,8;L(N);N+1,17;"6";N+1,21;M(N);N+1,25;E(N);N+1,29;T$(N) *N 4!21(,0;"PRESS A KEY" 5 0 P R 1000z "GENERAL ABILITY STATUS" N=19 YN+2,0;G$(N);N+2,12 ;(480+G(N));N+2,20;P$(N) N !18,0;"PRESS A KEY"  0   1000z  2"WHICH ARMY (1-9) DO YOU WISH TO BUILD/CHANGE ?" B 'B>0B<10 B=B3000 &B<1B>9 BɺB7605  1000z y z@"WHICH COUNTRY DO YOU WISH TO ATTACK ? (1-10 OR 0 IF NONE)" {N }'N<0N>10 NɺN7803{ N=07819tX US$(N)="C"10 ,0;C$(N̯C$(N,13 )-480);" IS ALREADY CONQUERED" S$(N)="C"7800x KS$(N)"0"5,0;"REINFORCEMENTS CAN'T GET THROUGH":200 S$(N)"0"7800x 'N>0N<11 N=N4000   1000z @ E;"WHICH COUNTRY DO YOU WISH WITHDRAW FROM ? (1-10)" JN K'N<1N>10 NɺN8010J L'N>0N<11 N=N4500 T 1000z  ?"IN WHICH COUNTRY DO WISH TO CHECK THE CAMPAIGN ? (1-10)" N 'N<1N>10 NɺN8210 'N>0N<11 N=N5000 & 1000z  1500; ! !4 1000z !;"YOU RESIGNED FINISHED YOUR LIFE ON CAPRI.":9050Z# #( #);"YOUR TROOPS HAVE BEEN ANNIHILATED - GAME OVER" #Z6,0;"RESULTS";9 ,0;"PERIODS ";PE'"VICTORIES ";VI'"DEFEATS ";DE'"CONQUESTS ";CO'"PC.CASUALTIES ";((90000/-ME)/900) #["GENERALSHIP ";(((VI*100d/(DE+VI))+((ME)/900)+(CO*10 ))/3);" (PC.)";20,0;"ANOTHER GAME ? (y/n)" #bK$ #c K$="y" #d # #T"YOU HAVE LEFT ROME UNDEFENDED AND BARBARIANS HAVE SACKED THE CITY - GAME OVER" # 9050 h # #A"YOU HAVE BEEN OUSTED BY REBELLION IN ROME - GAME OVER" # 9050 h # #P"HAIL CAESAR. YOU HAVE BROUGHT PEACE TO THE EMPIRE. ROME SALUTES YOU." # 9050 h } 01 AEGYPTUS;02 AS.MINOR;03 DACIA 804 GALLIA 905 GERMANIA;06 GRAECIA :07 HISPANIA;08 ILLYRIA :09 ITALIA 910 NUMIDIA :S 00000000005 @@ @@ 7