S :SANTA PARAVIA AND FIUMACCIOwRD((,2)):I1RD:DU(1):Id700:AJ,MQ,T,V,W:Y(0)1400"Sir ","Baron ","Count ","Marquis ","Duke ","Grand Duke ","Prince ","* H.R.H. King "_"Lady ","Baroness ","Countess ","Marquise ","Duchess ","Grand Duchess ","Princess ","* H.R.H. Queen ""Santa Paravia","Fiumaccio","Torricella","Molinetto","Fontanile","Romagna"ł+ SET UP MATRICES,:@86,"SANTA PARAVIA and FIUMACCIO-1@176,"Italia"::" A.D.1400 ":I14000::A6:A116:A$:@:" How many people want to play?"::" (Type a number from 1 to 6.)";:9000:F(A$):F1F6 :320ʃJ:A1F:T$(A)T:" Who is the ruler of "T$(A)^" ";: N$(A)!hN$(A)N$(A)" of "T$(A)Pr" Is "N$(A)" a man":" or a woman ";c|V(A)0: 12000{(A$,1)"W"V(A)8(A$,1)"w"V(A)8΄G(A)25:H(A)10:I(A)5:J(A)2:O(A)1420(((1)35)1)K(A)1000:L(A)10000:R(A)5000:T(A)1:U(A)1+N(A)4:P(A)25:Q(A)5:M(A)25:S(A)20001<A1FBRBV(A)T(A)]C1BhT$(A)oCvA:" Do you wish instructions?";:9000A$"N"A$"n"540ԅA$"Y"A$"y"͌10000QQ1510E:N48:@N,"1. Apprentice":@N40,"2. Journeyman":@N80,"3. Master":@N120,"4. Grand Master&@240," Enter level of play desired ( 1 - 4 )";:9000:U(0)(A$)0U(0)1U(0)1:U(0)4U(0)4DU(0)U(0)5׆W CONTROL ROUTINEXEE1bT(E)1EE1k TEST FOR END OF GAME AFTER DEATHPlT(1)1T(2)1T(3)1T(4)1T(5)1T(6)111000nvEFE0:Y(0)Y(0)1:600Y(0)O(E)600Y(0)O(E)11002000260040103000LJ5000ч6000ۇ7000600 COMPARISON ROUTINE5"Nbl.Sldr.Clgy.Mer.Serfs Land Treasury";:LA1F:T$(A)N$(A)0)N(A)4)P(A)9)Q(A)13)M(A)17)S(A)24)L(A)32)(K(A))@296,"";:9000$K OBITUARYL:" "(38,239)::" Very sad news.....": V" "T$(E)N$(E)" has died&`T(E)1:Y((1)8)1_jY(0)1450ͣ" of old age after a long reign.":1190tY4ͣ" of pneumonia after a cold winter in a drafty castle.";ʉ~Y5ͣ" in a smallpox epidemic.Y4ͣ" of typhoid after drinking contaminated water.FY6ͣ" after being attacked by robbers while traveling";fY6ͣ" of food poisoning.l@280," ";:9000:F1110005000Ɗ1000ϊ 600 MINOR SUBROUTINESI!(I!):C!(C!):(S!(S!):'2K(E)(K(E)):MZ(((1)A)1)S(E)100:Z0Z0Z%Z:1)Z%6)"Serfs BORN this year":S(E)S(E)Z%:Z(((1)A)1)S(E)100:Z0Z0Z%Z:1)Z%6)"Serfs DIE this year":S(E)S(E)Z%:S(E)0S(E)0 AGRICULTURAL CALCULATIONS<W((((1)5)1)(((1)6)1))2\W2020,2040,2060,2080,2100W$" DROUGHT.........FAMINE THREATENS2110W$" BAD weather.........POOR harvestƌ2110 W$" NORMAL weather...AVERAGE harvest2110& W$" GOOD weather........FINE harvest0*2110[4W$" EXCELLENT weather..GREAT harvestp= RATS EAT GRAIN>R((1)50)1HR(E)R(E)((R(E)100)(R(E)R))100Q GRAIN HARVESTRXL(E):Y(S(E)D(E)100)5:Y0Y0\YXXY fYR(E)2:YXXYkR(E)R(E)X2;pYW.5:H!XY:R(E)R(E)H!Ny GRAIN DEMAND}zD!N(E)100C(E)40M(E)30P(E)10S(E)5 PRICE OF LANDʎL(3W(((1)6)1)(((1)6)1)10)10:W1LL1ގH!1Y2:2210YD!H!:Y2Y2Y.8Y.8LLY:L(L10):LL102 PRICE OF GRAIN<Z6WkG(Z3(((1)5)1)(((1)5)1))5Y20q DISP. HARVEST (ALT. ENTRY- 2340)" Rats ate"R"% of your grain reserves."::" "W$::" HARVESTED "(H!)26)"Steres "; A$:A$""2305,$ K(E)32766 1330. :1)"Grain Grain Price Price Treasury";:" Reserve Demand Grain Land GoldB (R(E)) 8)D! 16)G 23)L 31)K(E)L " Steres Steres 1000St Hectare lorins":_ TAXES!` J(J(E)300500)T(E):J(E)2410,2430,2450,24703j J$"Very fair=t 2475N~ J$"ModerateX 2475f J$"Harshp 2475 J$"OUTRAGEOUS Y150G(E)H(E)I(E):Y1Y1 CALCULATE TAX YIELD C!(N(E)180Q(E)75M(E)20)(Y100)U(E)100& S!(N(E)50M(E)75U(E)10)(Y100)(5J(E))2U I!N(E)250U(E)20(10J(E)N(E))(Y100)x C!C!G(E)100:C!32760͌1310 S!S!H(E)100:S!32760͌1320 I!I!I(E)100:I!32760͌1300 " State Revenues = "JC!S!I!"Gold lorins7 " Customs Sales Income Justice":" Duty Tax Tax"c 2)G(E)"%"11)H(E)"%"19)I(E)"%"29)J$ 2)C!11)S!19)I!29)J"l. ' MANAGE HARVEST( :PP(40(T$(E))(N$(E)))2:@PP,T$(E)N$(E):15)"Year"Y(0):2 2300< !F " GRAIN(1)Buy(2)Sell...LAND(3)Buy(4)SellRP @296,"<#>or<0>";:9000:A$"0" :I!(A$)aU @280," ";vZ I!4I!1͈2640n I!2700,2750,2800,2850 " How much grain to BUY";I!ڔ K(E)K(E)(I!G1000):R(E)R(E)I! :PP(40(T$(E))(N$(E)))2:@PP,T$(E)N$(E);:2340 2620? " How much grain to SELL";I!h I!R(E)ͣ" YOU DON'T HAVE IT":2750 K(E)K(E)(I!G1000):R(E)R(E)I! 2720 " How many hectares to BUY";I!ߕ L(E)L(E)I!:K(E)K(E)(I!L) 2720" " How many hectares to SELL";I!E, I!(L(E)5000)ͣ" YOU CAN'T SELL THAT MUCH":2850g6 L(E)L(E)I!:K(E)K(E)(I!L)q@ 2720 DISPLAY TAXES :PP(40(T$(E))(N$(E)))2:@PP,T$(E)N$(E) 2400 "(1)Customs (2)Sales (3)Wealth (4)Justice"; @296,"<#>or<0>";:9000:I(A$)' I4Ͱ:30205 I13200N @240," ";:I(A$):i I3070,3110,3140,3170 "New Customs Duty (0 TO 100%)";I I100I100 I0I0 G(E)I:3000& "New Sales tax (0 to 50%)";I0 (I50)(I0)I5: H(E)I:3000*D "New Wealth tax (0 to 25%)";I@N (I0)(I25)I0QX I(E)I:3000b @120," JUSTICE:(1)Very fair (2)Moderate":" (3)Harsh (4)Outrageous";:9000:I(A$)ʘl (I4)(I1)I1ۘv J(E)I:3000 K(E)K(E)C!S!I!J INTEREST CHARGE$ K(E)0K(E)K(E)1.5: BANKRUPTCY TESTW K(E)(10000T(E))8000]n POPULATION@240," Grain reserves are"(R(E));:˙@280," ";:" GRAIN release for consumption";G! G!(R(E)5)ͣ@240," Release AT LEAST 20% of grain ":4015RG!(R(E)(R(E)5))ͣ@240," Keep AT LEAST 20% of grain ":4015R(E)R(E)G!::PP(40(T$(E))(N$(E)))2:@PP,T$(E)N$(E)ZG!D!1:Z0ZZ2Z.25ZZ10.25Z%50G(E)H(E)I(E):Z%0Z%Z%J(E) Z%Z%10:Z%0Z%Z%3J(E)%ZZ(Z%10):Z.5Z.59G!(D!1)4500GA7:1500UA3:1510"(G(E)H(E))35M(E)M(E)(((1)4)1)Λ,I(E)(((1)20)1)N(E)N(E)(((1)2)1)1:Q(E)Q(E)(((1)3)1)1^G!(D!D!.3)4300hZ%S(E)1000 rZ(G!D!)D!10E|ZZZ%(((1)25)1)(((1)40)1):Z32000Z32000_Z%Z:Z(((1)Z%)1)1)Z6)"Serfs MOVE to the city":S(E)S(E)Z:U(E)U(E).5ĜZ%Z5:Z(((1)Z%)1):Z50Z50ԜM(E)M(E)Z䜮N(E)N(E)1Q(E)Q(E)2 INJUSTICE PENALTYJ(E)34490>J%S(E)100(J(E)2)(J(E)2)TJ%(((1)J%)1)uS(E)S(E)J%:S(E)0 S(E)0J%0J%01)J%6)"Serfs FLEE harsh justice4900ɝ FOOD SHORTAGEX(D!G!)D!1009:X%X:X65X65:M(E)M(E)2X0 X%0:X0A3:1500DAX%8:1510:Z%1000U(E)U(E)2N4300$ZA(E)75:K(E)K(E)Z:Z0 " Your market earned..."24)(Z)30)"l.rentŞ.S(E)32766 S!S(E):1320:S(E)S!$8ZD(E)(55(((1)250)1)):Z0K(E)K(E)Z:" Your mills earned..."24)(Z)30)"l.rentmBZP(E)3:" You paid your soldiers"24)(Z)30)"lorins":K(E)K(E)Z|K INVASIONL(L(E)1000)P(E)8100Q(L(E)500)P(E)4980ƟVA1F:AE4970`P(A)(P(E)2.4)8100jt@296,"";:9000~ DRAW MAPHL%(L(E)1000):L%10 X80:Y27:5100kL%30X80:Y27(L%10):5100L%50X60:Y27(L%30):5100L%70X40:Y27(L%50):5100ԠL%90X20:Y27(L%70):5100L%110X1:Y27(L%90):5100X1:Y7ZX127:(Z,Y):Z0ZY47:(X,Z):ZO(P(E)5)(L(E)1000)5160 AX1X6:BY1Y5:(A,B):B:A:(X,Y1):(X2,Y1):(X4,Y1):(X6,Y1)(P(E)2)(L(E)1000)5160UAX7X10:BY1Y5:(A,B):B:A:(X8,Y1):(X10,Y1):(X3,Y2):(X7,Y4):(X1,Y1):(X9,Y1):(X,Y2):(X2,Y2):(X8,Y2):(X10,Y2)k(ZC(E)1:Z7Z72Z5250,5240,5230,5220,5210,5200,5180¢<A96110:(A,30):A:(102,30):(104,30)PA9699:B2429:(A,B):B:A ZA107110:B2429:(A,B):B:A7dB2224:(103,B):B:(102,23):(104,23)\nA101105:B2526:(A,B):B:Ats(101,25):(105,25)xA100106:B2729:(A,B):B:A:(102,29):(104,29)ţZB(E)2:Z0 5300Z10ʹ(80,33):(82,33):(96,33):(98,33):(81,32):(97,32)^Z8Z9:A8791:B3133:(A,B):B:A:(88,33):(90,32):(88,30):(90,30):(89,29)A(89Z)(89Z):B3436:(A,B):B:AA(90Z)(90Z)2:(A,35):A:(89,36)ѤZS(E)D(E)100:Z1Z1ZZ5L(E)101:Z10Z10Z(Z10)(45Y):Z(47Z)BA119127:(A,Z):A:(122,Z):(123,Z):(125,Z)uA1191272:(A,Z1):A:(118,Z1):(127,Z1)ZA(E)2:Z05500"Z((126X)2)Z((126X)2),AXXZ2:(A,39):(A1,39):(A1,40):(A1,41):A|ZD(E)2:Z05900Z(126X)Z126X:A127Z127:B4547:(A,B):B:AXA126Z1262:(A,46):Aj @108,"Year";y@150,""; @188,Y(0);%PP(40(T$(E))(N$(E)))2*@PP,T$(E)N$(E);4@281,"(ENTER)";:9000fo INVESTMENTSmp:PP(40(T$(E))(N$(E)))2:@PP,T$(E)N$(E):" State Purchases: (4)Cathedral 5000 l"z"(1)Market 1000 l (5)Soldiers 500 l"Ƨ"(2)Mill 2000 l (6)Status Report"(3)Palace 3000 l (7)Redraw Map" Your treasury has "(K(E))"Gold lorins2K(E)300008000Z@293,"<#>OR";:9000:I(A$)g:I1͍I6͌1000:6000:I6͌5000:6000I6200,6120,6300,6400,6500D(E)D(E)1ѨK(E)K(E)2000U(E)U(E).2560008A(E)A(E)1 BM(E)M(E)5 LK(E)K(E)10001VU(E)U(E).1;j6000KB(E)B(E)1gN(E)N(E)(((1)2)1)zK(E)K(E)3000U(E)U(E).56000C(E)C(E)1 Q(E)Q(E)(((1)6)1)ԩK(E)K(E)5000U(E)U(E)126000dS(E)506000nP(E)P(E)20:S(E)S(E)200xK(E)K(E)500:6000TW CALCULATE NEW TITLE\XZ0mbAA(E):7500~lAB(E):7500vAC(E):7500AD(E):7500AK(E)5000:7500̪AL(E)6000:7500ઞAM(E)50:7500AN(E)5:7500AP(E)50:7500AQ(E)10:75001AS(E)2000:7500DAU(E)5:7500hAZU(0)J(E)1:A(A):A8A8(Y(0)2)O(E)T(E)T(E)1T(E)A7490T(E)Aȫ B1(T(E)V(E)):T$(E):٫T(E)876009 ::" CONGRATULATIONS,":PP(40(N$(E)))2:@PP120,N$(E)::" you are now a "T$(E)I*B12000:OB^LA10A10i`A(A)sjZZAyt KING OR QUEENԬ:@81,"Game Over"::2)T$(E)N$(E)::30)" wins!":TL18000::묺5010:1000:11010? BANKRUPTCY1@::PP(40(T$(E))(N$(E)))2:@PP,T$(E)N$(E)"UE18)"is":12)">> BANKRUPT <<"J:" Creditors have....":10)" SEIZED much of your assets.^@296,"";:9000hA(E)0:B(E)0:C(E)0:D(E)0:L(E)6000:U(E)1:K(E)100:M(E)M(E)2:R(E)5000r" INVASION (FROM 4940)1Z0:A1F?AE8200SP(A)P(E)8200tP(A)(1.2(L(A)1000))8200P(A)P(Z)ZA Z0T$(0)" Baron ":N$(0)"Peppone of Monterana":A!(((1)9000)1)1000:8220 A!P(Z)1000L(Z)3 A!(L(E)5000)A!(L(E)5000)2& PP(408(T$(Z))(N$(Z)))2:@PP40,T$(Z)N$(Z)" INVADES":" and SEIZES"A!"HECTARES OF LAND!":: L(Z)L(Z)A!:L(E)L(E)A!ЯD Z(((1)40)1):ZP(E)15 ZP(E)15(N PP(406(T$(E))(N$(E)))2:@PP160,T$(E)N$(E)" LOSES":8)Z" SOLDIERS IN BATTLEOX P(E)P(E)Z:@296,"";:9000Ub p(#A$:A$""9000: :' INSTRUCTIONS':" Santa Paravia and Fiumaccio ":'" You are the ruler of a 15th century Italian city-state.If you rule well,you will receive higher titles. The first Player to become a king or queen wins. Life expectancy then was brief, so you may not live long enough to win.";:$' LT16000::B':" The computer will draw a map of your state. The size of the area in the wall grows as you buy more land. The size of the guard tower in the upper left cornerindicates the adequacy of your defenses.If it shrinks, equip more soldiers.";òL' LT16000::j':"If the horse and plowman is touching thetop wall,all your land is in production.Otherwise you need more serfs, who will migrate to your state if you distribute more grain than the minimum demand. t' LT16000::v':" If you distribute less grain, someof your people will starve, and you willhave a high death rate. High taxes raisemoney, but slow down economic growth."(42)" Press to begin game";'I$:I$""10160:(I$)1310160':QQ1:* END GAMEʴ*5000:1000+QQ0::@280," Game is OVER:pressfor new game.";: +9000:10'.A$:A$A$" "H.(A$,1)"M"(A$,1)"m"390i.(A$,1)"W"(A$,1)"w"390r.370