T >?!\D:\a6812345mu0 iB(AF+S(X))*((*Z(S))+.9ffff)FS*((*Z(G))+.8L)7789sh j 9150 k 7846u0 m 91000 t 7846u0 }0AFS(X)Z(S)Z(G)T(X)LZ(S)Z(G)7820t` ~ 6500K  7846u0  6600N@  9900  9000 @ 0 A BN=110 C.A$(N)="A"Z=Z+(T(N)/2)+(S(N)*5 ) D.A$(N)="A"P=P+(T(N)/2)+(S(N)*5 ) E.A$(N)="S"H=H+(T(N)/2)+(S(N)*5 ) F.A$(N)="S"I=I+(T(N)/2)+(S(N)*5 ) GN HZ=Z+(TA*10 ) IP=P+(TA*5 ) JI=I+(TS*15p) K F=I/3@ L B=I/3@ M D=I/3@ NH=H+(TS*10 ) O"SPARTA HAS: ";H;" ";T$(1);1,14`;F;" PELTASTS";2,14`;B;" ARCHERS";3@,14`;D;" CAVALRY" P8,0;"ATHENS HAS: ";Z;" ";T$(1);110,2;"YOU HAVE ";P;" OTHER TROOPS AND MUST DECIDE HOW TO SPLIT THESE AMONGST PELTASTS,ARCHERS AND CAVALRY." Q17,0;"PELTASTS?" RW SW>P8018z T17,14`;W U18,0;"ARCHERS?" VU WU>P-W8022z X18,14`;U Y V=P-(W+U) Z319,0;"CAVALRY";19,14`;V \200:4:4: `<2;"SPARTANS";21,0;1;"ATHENIANS" hN=310-1 m 2 r29 ,N;""D/1000N;" "D/1000425T9090 #2 #3 #43"SPARTA HAS DECIDED TO LAUNCH HERFINAL ATTACK..." #5N=130p #6N #7 8000z #TA=TA+5 #TS=TS+5 #H=H*1.02\) #I=I*1.02\) #Z=Z*1.03 = #P=P*1.03 = # 1000z #TA=TA-(AF/6@) #S(X)=S(X)*.65&fff #TS=TS-(FS/8) #M17,5 ;"YOUR JOINT FLEET IS BEATEN.";N$(X);" HAS JOINED SPARTA." # A$(X)="S" # #TA=TA-(AF/6@) #TS=TS-(FS/9) #S(X)=S(X)*.8L #G17,0;N$(X);" HAS JOINED SPARTA AND DEFEATED YOUR FLEET" # A$(X)="S" # #TA=TA-(AF/9) #S(X)=S(X)*.8L #TS=TS-(FS/6@) # 9600 # #TA=TA-(AF/8) #TS=TS-(FS/6@) #S(X)=S(X)*.73333 # 9700 # #/17,0;N$(X);" HAS JOINED SPARTA." # A$(X)="S" # #@AF*((*Z(S))+.9ffff)S(X)*((*2)+.8L)92308 #TA=TA-(S(X)/9) #S(X)=S(X)*.73333 #V17,0;"YOU HAVE DEFEATED ";N$(X);" AND THEY HAVE JOINED YOUR ALLIANCE." # A$(X)="A" $  $TA=TA-(S(X)/5 ) $S(X)=S(X)*.75@ $F18,0;N$(X);" HAS DEFEATED YOU AT SEAAND JOINED SPARTA." $ A$(X)="S" $! $"@M*((*Z(S))+.8L)<(L+T(X))*((*Z(G))+.9ffff)9280 $'Z=Z-(M/18) $(P=P-(M/18) $)H=H-(L/8) $*I=I*.8L $+T(X)=T(X)*.73333 $, 9700 $? $@Z=Z-(M/14`) $AP=P-(M/14`) $BH=H-(L/9) $CI=I*.9ffff $DT(X)=T(X)*.8L $FL17,0;N$(X);" AND SPARTA HAVE JOINED FORCES AND DEFEATED YOU." $G A$(X)="S" $S $YH=H-(T(X)*.2~L) $ZI=I-(T(X)*.2~L) $^ $=M*((*Z(S))+1)S(X)*((*2)+1)>BB<DHpHDB@~BfZBBBBbRJFB~B<<<|@~<<~|~~~|<B~B|>~BB@@BBBbb@@BbBBB/BBBDBBBfB@BB@BB@b(BBBB@@B@@B@@@BBB@BB@bB|@BBBRR|<BRBBB/@BB(B@~Z@@B~@BB|RB<B@|B<|B|||BB~|BB|R|@@B|BJJ@~JB~|/@B||NB>B@@BB@B|@J>B<|@@~@|@@@|BB@B|@J@@@B@BFF@BBFZBD/BB@DBBBB@BB@BD@FB@@@@BB@D@@@DBB@ZD@F@~~<@BB$BB/<<@B>~B><<~@~~B<~B~@~B<B~$B>~BB<~<~B~|@~B~@<<|< KbB@@@b@B@@B@@(BBBBKRB|<|R|B@|B|@BB KJB@@J@|@@B@@<B|KFB@B@F@D@@$@@@BDBKB<~<~B~B~~~~>~3@3@ 'H$=" " 'F$=" " 'B$=" " 'D$=" " $O$=" "  I="A""A"+7:A:I,A:I  I="C""C"+7:A:I,A:I  I="H""H"+7:A:I,A:I  I="P""P"+7:A:I,A:I dE$(6@,13P) eE$(1)="NICIAS" fE$(2)="PERICLES" gE$(3@)="CLEON" hE$(4)="CIMON" iE$(5 )="ARCHIDAMUS" jE$(6@)="CALLICRATIDAS" xG$(7`,110) yG$(1)="ALCIBIADES" zG$(2)="DEMOSTHENES" {G$(3@)="CONON" |G$(4)="AGESILAUS" }G$(5 )="LYSANDER" ~G$(6@)="BRASIDAS" G$(7`)="GYLIPPUS" T$(3@,8) T$(1)="HOPLITES" T$(2)="OTHERS" T$(3@)="TRIREMES" N$(10 ,8) N$(1)="ARGOS" N$(2)="CORCYRA" N$(3@)="CORINTH" N$(4)="ELIS" N$(5 )="MANTINEA" N$(6@)="MEGARA" N$(7`)="PLATAEA" N$(8)="POTIDAEA" N$(9)="SYRACUSE" N$(10 )="THEBES" A$(10 ) N=110 A$(N)="-" N T(10 ) T(1)=6000; T(2)=0 T(3@)=9000 T(4)=2000z T(5 )=3000; T(6@)=3000; T(7`)=2000z T(8)=5000@ T(9)=9000 T(10 )=9000 S(10 ) S(1)=0 S(2)=120p S(3@)=1804 S(4)=50H S(5 )=0 S(6@)=80 S(7`)=0 S(8)=80 S(9)=150 S(10 )=0 Z=12000; P=12000; TA=300 H=26000K +(1000z*T) I=8000z+(1000z*T) TS=140 +(10 *T)  Y(13P) Y(1)=4 Y(2)=5 Y(3@)=2 Y(4)=3@ Y(5 )=2+T Y(6@)=4  Z(7`) Z(1)=3@ Z(2)=5 Z(3@)=4 Z(4)=2+T Z(5 )=5 Z(6@)=4 Z(7`)=2+T # S=1 $ Q=1 % E=1 & G=1 ,Y=431 W  1: "OPTIONS";0,18;"YEAR ";Y;" BC.";5 ,1;"DISPLAY:1.ATHENS";7`,9;"2.SPARTA";9,9;"3.OTHER STATES";110,9;"4.PASS ANOTHER YEAR";15p,9;"5.COMMIT YOUR TROOPS TOA FINAL BATTLE WITH SPARTA" LO M!O<1O>5 1100 N QO=17000Z VO=27100] [O=3@7200a \O=47300d ]Y>420R1001z@ ^ 8000z C=1Y(Q)=Y(Q)-1 Y(Q)<1Y(Q)=1 C1Z(S)=Z(S)-1 Z(S)<1Z(S)=1 (A=2A=3@Y(E)=Y(E)-1 Y(E)<1Y(E)=1 (A<2A>3@Z(G)=Z(G)-1 Z(G)<1Z(G)=1  p!A=2A=3@6004; q)R=(Y(Q)*(*1))-(Z(G)*(*1)) r t?R=(Y(Q)*((*1)+.6))-(Y(E)*((*1)+.5)) u d=T(X)*((*2)+1)AF*((*Z(S))+1)1A<4A$(X)"-"A>3@X=9A>3@H<3000;A>3@T(X)<999yK=1 K=1US=US+1 US=60p9010 K=17301d( A>17320d %FS=((*(TS*.6))+TS*.4L) L"SPARTA HAS SENT A FLEET OF ";FS;" TRIREMES UNDER ";G$(G);" TO ";N$(X)  7350e A>3@7330e E=(*2)+5 5"SPARTA HAS SENT ";E$(E);" AS AN ENVOY TO ";N$(X)  7350e "L=((*(H*.73333))+H*.3) I"SPARTA HAS SENT AN ARMY OF ";L;" MEN UNDER ";G$(G);" TO ";N$(X) 5 ,0;"COUNTER-MEASURES:";7`,3@;"SEND:1.AN ENVOY";8,8;"2.AN ARMY(500-";Z;")";9,8;"3.A FLEET(20-";(TA*.6);")" C !C<1C>3@7352e $C=3@S(X)=07352e C>17545k 13P,0;"WHO?(1-4)" Q !Q<1Q>47405gh  6000;  13P,12@;E$(Q) A=17450h A>3@7500j` R<07440h  9750X  7540k  9170H  7540k R<07470ip  9500p ) 7540k . 9170H K 7540k OR>0T(X)>L7520k QK16,0;E$(Q);" HAS BEEN TORTURED.";N$(X);" HAS JOINED SPARTA." RY(Q)=Y(Q)-1 T A$(X)="S" V 7540k `.T(X)<(*(L*.5))+L*.57530kP c 9300P dT(X)=T(X)*.9ffff e A$(X)="A" fC16,0;N$(X);" HAS ROUTED THE SPARTANSAND JOINED YOU." i 7540k jT(X)=T(X)*.73333 k 9300P l 6513K t 9900 w 9000 yC>27700p z {!X=2X=97352e ~#13P,0;"HOW MANY MEN?" M M<500zM>Z7551k 13P,21(;M %15p,0;"COMMANDER(1-3)?" S !S<1S>3@7555l 15p,21(;G$(S) A=17610m A>3@7650o MT(X)Z(S)T(X)Z(S)T(X)Z(S)Y(E)9750X  7696p  9350  7696p -18,0;N$(X);" REMAINS NEUTRAL"  7696p &MTA*.67705p 13P,21(;AF  %15p,0;"COMMANDER(1-3)?" !S #!S<1S>3@7713q &15p,21(;G$(S) (A=17770r )A>3@7800s 3AF