F!<~B~>BB<<<><#B< <@BbBBB@b@BfBBBB#B88D888x888h8D@BB~B@><#B8<<< x@< < xT4u0=4 ^u0=u0+5 h e=e+1 m 390 rt(e)=-1e=e+1 |t(1)<1t(2)<1t(3)<1t(4)<1t(5)<1t(6)<13660L *e>fe=0:y0=y0+1:360h y0>o(e)360h y0=o(e)570:  770  1320(  1790  1550  2260  2710  3080  360h :a=1f  t$(a)'n$(a) ""ADEL SOLDATEN KERK MIDDENSTAND" ?1;n(a);8;p(a);15;q(a);23;m(a)  "SLAVEN LAND SCHATKIST" 21;s(a);10 ;l(a);22;k(a)'' a &'"Druk toets voor vervolg...":0 0 :J2:7:0::1;" *** SLECHT NIEUWS *** " ?1,5:1,5:.25~,5:.75@,5:1,8:.5,7:.5,5:.5,5:.5,4:1,5 D''t$(e)'n$(e)''"is zojuist gestorven", N't(e)=-1:y=(*8+1) X=y0>1450"op hoge leeftijd na lang bewind":660 bLy<3"aan longontsteking na een koude winter op een vochtig kasteel" g'y=3"na een val van het paard" l,y=5"aan de gevolgen van de pokken" vMy=4"aan een besmetting met tyfus na het drinken van onzuiver water" by=6"na te zijn aangevallen door de bende van Cartouche tijdens een reis door frankrijk" &y>6"aan voedselvergiftiging"  ''"Druk toets voor vervolg..."  0  2260  500  360h  iu=iu:  cu=cu:  su=su: k(e)=k(e): Pz=((*a+1)*s(e)/100d):z;" slaven geboren dit jaar":s(e)=s(e)+z: Rz=((*a+1)*s(e)/100d):z;" slaven gestorven dit jaar":s(e)=s(e)-z: $w=((*4+*5)/2)  (790+w*20) w$="DROOGTE HONGERSNOOD"  880p *!w$="SLECHT WEER ARME OOGST" 4 880p >&w$="NORMAAL WEER GEMIDDELDE OOGST" H 880p R w$="GOED WEER GOEDE OOGST" \ 880p f#w$="EXELLENT WEER GROTE OOGST" pr=(*502+1) z(r(e)=(r(e)*100d-r(e)*r)/100d ?x=l(e):y=(s(e)-d(e)*100d)*5:y<0y=0  y2y=2 y<8y=.8L &l=l*y:l=(l*10 ):l=l/10  z=6-w Lg=(z*3+(*5+1)+(*5+1))/5*y*20   #"ratten eten ";r;"% van uw graan" 'w$'" (";hu;" kilo)" $:k(e)<32766740 )r(e)<0r(e)=100d .#"GRAAN GRAAN PRIJS PRIJS SCHAT-" 8!"BEZIT VRAAG GRAAN LAND KIST" B}'r(e);6;du;13 ;(100d*g+.5)/100d;19;(100d*l+.5)/100d;25;k(e) L$"kilo kilo 1000kg hect. florijn" V `@j=((j(e)*300,-500)*t(e)):1110V+20*j(e) jj$="billijk" t 1200 ~j$="middelmatig"  1200  j$="streng"  1200  j$="wreed" 2y=150-g(e)-h(e)-i(e):y<1y=1 Ocu=((n(e)*180+q(e)*75K+m(e)*20)*y/100d+u(e)*100d) Vsu=((n(e)*502+m(e)*25+u(e)*10 )*y/100d*(5-j(e))/2) Ciu=(n(e)*250+u(e)*20+10 *j(e)*n(e)*y/100d) 4cu=(cu*g(e)/100d):cu<32760720 4su=(su*h(e)/100d):su<32760730 4iu=(iu*i(e)/100d):iu<32760710 ,"Bel. inkomsten: ";j+cu+su+iu;" florijnen" &'"IN/UITVOERBEL INKOMSTENBELASTING" "" ";g(e);"%";18;h(e);"%" "" ";cu;" Fl";18;su;" Fl"  '"WEELDEBELASTING JUSTITIE" " ";i(e);"%";18;j$ $" ";iu;" Fl";18;j;" Fl"  (*1:1:7::t$(e)'n$(e) -$.2~L,0:.4L,5 2 1030 < FC"1= koop graan 2= verkoop graan3= koop land 4= verkoop land" P#"Wat kiest u? (0= doorgaan): ";iu Ziu>41350F diu<1 n(1360P+iu*40() x#"Hoeveel graan wilt u kopen? ";iu +k(e)=k(e)-(iu*g/1000):r(e)=r(e)+iu :t$(e)'n$(e):1060$  1340< '"Hoeveel graan wilt u verkopen? ";iu /iu>r(e)'"Zoveel hebt u niet!"::1440 +k(e)=k(e)+(iu*g/1000):r(e)=r(e)-iu  1420 '"Hoeveel hectare wilt u kopen? ";iu l(e)=l(e)+iu:k(e)=k(e)-iu*l  1420 '"Hoeveel hectare wilt u verkopen?";iu Eiu>(l(e)-5000)'"Zoveel kunt u niet verkopen...":1520 l(e)=l(e)-iu:k(e)=k(e)+iu*l  1420 :t$(e)'n$(e) :1120` "?'"1= In/uitvoer 2= Ink. belasting3= Weeldebel. 4= Justitie" ,5"Welk punt wilt u wijzigen? (0= doorgaan): ";i 6i>41570" @i<11750 J(1600@+i*30) ^9"Geef de nieuwe in/uitvoerbelas- ting (0 tot 100%): ";i ci>100di=100d hi<0i=0 rg(e)=i:1550 |8"Geef de nieuwe inkomstenbelas- ting (0 tot 50%): ";i !i>502i<0i=5 h(e)=i:1550 3"Geef de nieuwe weeldebelasting (0 tot 25%): ";i !i<0i>25i=0 i(e)=i:1550 E"Justitie: 1=billijk, 2=middelma-tig, 3=streng, 4=wreed. Keuze? ";i  i>4i<1i=1 j(e)=i:1550 k(e)=k(e)+cu+su+iu+j #k(e)<0k(e)=k(e)*1.5@ &k(e)<(-10000'*t(e))3350   8"hoeveel graan wilt u gebruiken voor consumptie? ";gu Rgur(e)-r(e)/5"U moet minstens 20% behouden!":1800 &r(e)=r(e)-gu::t$(e)'n$(e): 0)z=gu/du-1:z>0z=z/2 :%z>.25~z=z/10 +.25~ D7zp=(502-g(e)-h(e)-i(e)):zp<0zp=zp*j(e) N6zp=(zp/10 ):zp>0zp=(zp+3-j(e)) X)z=z+zp/10 :z>.5z=.5 bgu32000}z=32000} zp=z:z=(*zp+1) -z;" Slaven komen naar de stad":s(e)=s(e)+z <zp=(z/5):z=(*zp+1):z>502z=502  m(e)=m(e)+z n(e)=n(e)+1 q(e)=q(e)+2 j(e)<32090* 4ju=(s(e)/100d*(j(e)-2)*(j(e)-2))  ju=((*ju+1)) s(e)=s(e)-ju  ;ju;" Slaven vluchten ten gevolge van de strenge justitie" * 2150f 4?x=(du-gu)/du*100d-9 :xp=x:x>65Ax=65A >"x<0xp=0:x=0 Ha=3:750 Ra=xp+8:760 \ 2040 fNz=(a(e)*75K):k(e)=k(e)+z:z>0"Uw marktopbrengst is: ";z;" Fl" p2s(e)<32766su=(s(e)):730:s(e)=su zgz=(d(e)*(557+(*250+1))):z>0k(e)=k(e)+z:"Opbrengst spinnerij : ";z;" Fl" >z=(p(e)*3):'"Betaalde soldij: ";z;" Fl":k(e)=k(e)-z "l(e)/1000>p(e)3410R !l(e)/500p(e)*2.43410R a 1#1;"Druk toets voor vervolg...";:0  *2:5:0::t$(e)'n$(e) Hlp=(l(e)/1000):lp<10 x=20:y=13 :2340$ Glp<30x=20:y=13 -(lp-10 )/2:2340$ Glp<502x=15:y=13 -(lp-30)/2:2340$ Glp<70Fx=10 :y=13 -(lp-502)/2:2340$ Flp<90Zx=5:y=13 -(lp-70F)/2:2340$ Glp<110nx=0:y=13 -(lp-90Z)/2:2340$ x=0:y=3 $#a$="":z=x31:a$=a$+" ":z .#i=y21:i,x;6;a$:i 8*p(e)-56z=6 j(2480 -z*10 ) tC13 ,25;2;6;"";14,25;"" ~+15,25;2;6;"" +16,25;2;6;"" *17,27;2;6;"" *17,24;2;6;"" +17,25;2;6;"" z=b(e):z>5z=5 2540 -(z*10 ) +14,21;1;6;"" +15,21;1;6;"" -16,20;1;6;"" -17,20;1;6;"" +17,21;1;6;"" -z=s(e)-d(e)*100d:z<1z=1 l(e)=0l(e)=1 ;z=z*5/l(e)*10 +1:z>10 z=10 (z=21-z*2:z31z=32 -x 27a=xx+z-1:19,a;2;6;"":a <z=d(e):z=02660d F31-z8a=8 $y0+2=o(e)t(e)=t(e)+1 t(e)a3280 t(e)=a  !b=1(t(e)+v(e)):t$(e):b t(e)=83330  a>10 a=10 a=a z=z+a  i=13:.2~L,0:.2~L,4:.4L,7:i:3:3::9 ,6;1;6;0;"HET SPEL IS UIT";13 ,0;t$(e),,n$(e),,,"heeft gewonnen!",, 0#1;"Druk toets voor vervolg...":0 #2260:500:3670V i=13:.4L,4:.4L,-5:.4L,0:i:0:2:7::t$(e)'n$(e)''"is bankroet. Geldschieters hebben uw bezittingen in beslag genomen" '#1;"Druk toets voor vervolg..." 4 0 >ga(e)=0:b(e)=0:c(e)=0:d(e)=0:l(e)=6000p:u(e)=1:k(e)=100d H Rz=7:a=1f \a=e3460 fp(a)p(z)z=a a z=0z=7 rz=7t$(7)="Baron ":n$(7)="Peppone van Monterana":au=(*9000(#+1001):3490 'au=((p(z)*1000-l(z)/3)) 8au>(l(e)-5000)au=((l(e)-5000)/2) 1't$(z)'n$(z)'"valt aan en bezet ";au;" hectare" l(z)=l(z)+au:l(e)=l(e)-au >z=(*40(+1):z>p(e)-15z=(p(e)-15) ;'t$(e)'n$(e)'"verloor ";z;" soldaten tijdens"'"de oorlog" p(e)=p(e)-z:2240 T1:5:0::2;7;'" * SANTA PARAVIA EN FIUMACCIO * " u'"U bent de regeerder van een ita-liaans staatje in de 15 de eeuw.Wanneer u goed regeert, verdientu hogere titels." T'"De speler die het eerst de titelvan koning of koningin behaalt, heeft gewonnen." s'"Uw levensduur hangt van allerleifactoren af, waardoor u soms niet lang genoeg leeft om te kunnen winnen." '"De computer tekent steeds een plattegrond van uw land.De ruim-te binnen de muur wordt groter, naarmate u meer land koopt."  0#1;"Druk toets voor vervolg...":0 w:"Het fort linksboven stelt uw verdediging voor. Wanneer het fort kleiner wordt, moet u uw leger uitbreiden." '"De ploeg rechtsboven geeft aan of al uw land in productie is. Wanneer hij daalt, hebt u gebrekaan slaven. U kunt hun aantal verhogen, door meer graan te verstrekken dan het minimum ge- vraagde. U lokt daarmee boven- dien meer slaven naar uw land." $Z"Verstrekt u minder graan dan ge-vraagd wordt, dan zal een aantalvan uw mensen sterven." .K'"Hoge belastingen brengen geld opmaar verminderen de economische groei." 87'" ";2;7;1;"Veel succes!" B4#1;"Druk toets voor vervolg...":0:: L2260:500 VR:9 ,4;"Het spel is uit";11 ,4;"Nog een spel (j/n)?":a$ ` a$="j" j 5000:n=07 i  "a"+n,i n n=07 i  "b"+n,i n #n=07:i:"c"+n,i:n #n=07:i:"d"+n,i:n #n=07:i:"e"+n,i:n #n=07:i:"f"+n,i:n &n=07:"g"+n,3:n "#n=07:i:"h"+n,i:n ,#n=07:i:"i"+n,i:n 6#n=07:i:"j"+n,i:n @#n=07:i:"k"+n,i:n J#n=07:i:"l"+n,i:n T#n=07:i:"m"+n,i:n ^#n=07:i:"n"+n,i:n  K1,3,17,145,155,255,110n,63? M0,128,16,18,178,254,236,248 K16,40(,68D,254,40(,40(,254,40( J24,36$,66B,90Z,36$,126~,36$,66B I0,0,24,568,124|,254,199,3 G0,14,30,14,30,14,6,30 I254,255,255,255,3,3,3,3 G0,0,0,192,557,15,31,63? I62>,110n,206,142,6,6,6,30 Q255,254,248,240,224,224,224,224 G255,127,31,15,7,7,7,7 L3,15,31,63?,127,127,255,255 Q192,240,248,252,254,254,255,255 e^ixPfZb` [ λ !!!!!!!!!!!&$!&$!!&$!!!A Koningin1 ;` P P P! v( vM G;JU!:!T` v>n?(D((($BZ$~$B8|7?>nΎ?8ll8ff|``8lvff|lf