stadhouder 9 * STADHOUDER VAN FLIPFLOPLAND *  :  a(7) #$0:0:7:0 ( 3500 2 : <*** SPELREGELS *** F7:0:0 P Z#"**STADHOUDER VAN FLIPFLOPLAND**" d n" -VERKORTE INSTRUCTIE-" x Q"U BENT VOOR EEN PERIODE VAN MAXIMAAL 14 JAAR STADHOUDER VAN FLIPFLOPLAND."  "VOOR EEN GOED BELEID MOET U PROBEREN UW VOLK OP UW HAND TE HOUDEN.DAARBIJ DIENT U OOK UW BEZITTINGEN UIT TE BREIDEN."  ]"U MOET ER REKENING MEE HOUDEN, DAT ELKE INWONER ZO'N 5 TINS GRAAN VERORBERT PER JAAR."  "TEN OVERVLOEDE WIJS IK U EROP, DAT DE PRIJZEN VAN GROND EN MARKTPLAATSEN NIET BEINVLOEDBAARZIJN.DE PRIJZEN WORDEN DOOR DE CONJUNCTUUR BEPAALD." >#1;1,0;"UW DIENAAR (DRUK [ENTER])" 0    : *** INITIALISEREN ***  A=14 A1=360h/A  C=0  H=0  B1=0  D=0  Q=0 B=(*500)+500  B2=0 X=(*5)+7 !V=(B*X*(+1))+2000 M=(V/8000@)+1 J=(*900)+10 T=(*7)+1  R=(*B) R<5530 &$G=(*B/2+B/2)*4 0A(7)=G :W=(*100d)+1 DW1=(*100d)+1 NP1=(*502)+502 XP2=(*600X)+300, b 680 lF$="" v'D$=" " 'E$=" "   : +*** VARIABELEN MET EEN WAARDE VULLEN ***  G1=1  V1=-1 I=16 A(I)=0 I   : * BEREKENING EFFECTEN * 'D$=" " 'E$=" "  J=J+1 * PRIJSONTWIKKELING *  * VETTE/MAGERE JARENCYCLUS * * T=T+1 4TA840H > T=1 HX=A1*T R!F=(X*(3.1457IS&/180)) \%* PRIJSONTWIKKELING LANDBOUWGROND * f7X=1+.5*F+.5*(W1-35#)/100d pP=P1 z9P1=P1*.45ffff+P1*X*.353333+P1*(+.4L)*.2~L P1=((P+P1)/2) P1>0940 (P1=((P+(*502+1))/2) !* PRIJSONTWIKKELING BOUWMARKT * P=P2 7P2=P2*.45ffff+P2*.353333+P2*(+.4L)*.2~L X= P2=(X*P+(1-X)*P2) P2>01010 P2=(*500)+300, * WEER IN JAAR J * W1=W W=(*100d)+1 F$="DROOG " W<40(1100L F$="REDELIJK" $W<70F1100L .F$="GOED " 8* OPBRENST GROND * B* DRIESLAGSTELSEL * LX=G1-G*2/3 VX01130j `G1=G1-(*G1) j8Q=(*G1/3*10 )+G1*2/3*10 t* INVLOED WEER * ~&X=(W1*.2~L+.8L*W)/100d X>.4L1180 X=X-.4L Q=(Q*(2+(X-.5))) *** RATTEN *** * AANWAS RATTEN * G1<.0001sQXG1=1 .X=(+V/(M*8000@)+Q/10 /G1)/3 * RATTEN EXPLOSIE * V=01280 C/V>.02{# =1280 >.25~1280 X=X+ R1=(R/2*X)  R=R+R1/2 * SCHADE VOORRAAD *  X=(*R) (V=V-(*X*3) 2* SCHADE GEWAS * <X=R-X FQ=Q-(*X*3) PQ01380d Z Q=0 dV01400x n V=0 xR=(R+R1/2)  V=(V+Q)  1710 ** BEVOLKINGS-ONTWIKKELING ** * OVERLEDEN OUDERDOM * X=(*.1}L*B)  B1=B1-X B=B-X D=D+X * GEBOORTEN * SX=((*.73333+.3)*B/5*(1+W1/100d-.4L)*(1+V1)) B=B+X  B1=B1+X * EPIDEMIE * V1<-.2~L1570" X=(W+W1)/2 ,((R*)/B1)(X>25)1630^ "'D$="ER IS EEN EPIDEMIE UITGEBROKEN !" 'E$="" ,$X=(*70F+30)/100d 6D=(X*8) @ B1=B1-D JB=B-D T* BEPALING GROEIPERC. * ^.B2=(B1/(B-B1)*1000+.5)/10 hB2-.1}L1670 r'E$=" DE BEVOLKING LOOPT TERUG !! " | H=2  680   : "*** VOLDOENDE RUIMTE MARKT *** V/M8000@1760 X=V-M*8000@ V=M*8000@ R=(R+*X/5) 5D$="EEN DEEL VAN DE OPBRENST VERROT":E$="BUITEN !"   : *** GENOEG GRAAN ***  H=0 YV18400 C16,0;"ZOVEEL GRAAN IS ER NIET OP DE MARKTPLAATS !" & H=1 0 : : D*** GENOEG GROND *** N H=0 XXG1920 b116,0;"ZOVEEL GROND BEZIT U NIET !" v H=1   : *** RATTEN-KONTROLE = 5 ***  "HOEVEEL TINS BESTR.MIDDEL?";Y Y<01960  1790 H01960 V=V-Y '** RATTENAFNAME I.V.M. BESTRIJDING **  C=C+Y $R=R-((*.3+.73333*Y/V)*R)  R/M>60<21004 *R=(*60<)*M 4A(5)=1 > H : R*** GROND KOPEN = 1 *** p "HOEVEEL HA WILT U KOPEN ? ";X X<02160p X=02320 Y=X*P1  1790 H02160p ** TRANSACTIE ** G=G+X V=V-Y ** AANTAL INWONERS PER HA ** Y=X*(*4)+1  B1=B1+Y B=B+Y A(1)=1  $ : .*** GROND VERKOPEN = 2 *** B" HOEVEEL HA VERKOPEN ? ";X VX<02370B `X=02500 j 1870N tH02370B *** TRANSACTIE *** G=G-X V=X*P1+V A(2)=1   : *** MARKTPLAATS = 3 *** $"HOEVEEL (0-3) PLAATSEN BOUWEN?";X (%(X<0)(X>3)2570 2* GENOEG TINS JA/NEE * <Y=X*P2*10 F 1790 PH02570 Z** TRANSACTIE ** dV=V-Y nM=M+X xA(3)=1   : ** VOEDSEL GEVEN = 4 ** "HOEVEEL TINS GEVEN ? ";Y Y<02750 ** GENOEG GRAAN ** 1790 H02750 ** ONDERVOEDING ? ** V1=(Y-B*5)/(B*5) V102880@ "'D$="DIT KAN TOT ONDERVOEDING LEIDEN!" ,V1>-.32880@ 6 V1=V1- @V=V-Y JA(4)=1 T ^ : h** LAND INZAAIEN = 6 ** "HOEVEEL HA INZAAIEN ? ";X X<02960 1870N H02960 * VOLDOENDE ZAAIGOED * Y=(X) 1790 H02960 G1=X V=V-Y A(6)=1   : &*** BESLISSING *** 0o:1;"1=KOPEN 4=VOEDSEL GEVEN 2=VERKOPEN 5=RATTENBESTRIJD.3=MARKT BOUWEN 6=ZAAIEN 0=STOP" bK v%(K0)(K>6)3220 A(K)=13220 (2160pK=1)+(23608 K=2)+(2560 K=3)+(2740 K=4)+(1940K=5)+(2950 K=6)   : *** UITVOER ***  7:0 -1;" STADHOUDER VAN FLIPFLOPLAND " 7:0 :18;"JAAR :";J "BEVOLKING :";B; 18;"GROEI:";B2;"%" "AANTAL DODEN:";D; 18;"WEER :";F$ 6:1 :"RATTEN-POPULATIE :";R "GRONDBEZIT IN HA :";G "PRIJS PER HA :";P1 * 5 4:"VOORRAAD TINS GRAAN :";V >" OPBRENGST :";Q H R"AANTAL MARKTPLAATSEN:";M \%" BOUWPRIJS:";P2*10 f pD$ zE$   : **** STUURMODULE **** *** INSTRUCTIE ***" 70F *** INITIALIZEREN *** 400 N=114 *** UITVOER *** 3250 *** BESLISSING *** 31200 K03550 *** BEREKENING ***  760 H236408 $ N=14 .2E$="UW AUTORITEIT WORDT NIET LANGER AANVAARDT !" 8N B*** UITVOER *** L 3250 V*** RESULTAAT *** `H=23800 j0X=(G/A(7)*1000+.5)/10 tD$=" EEN KNAP HEERSER" ~#E$="HET GRONDGEBIED IS VERGROOT " X>10 3780 D$=" EEN MATIG HEERSER" #E$="HET GRONDGEBIED IS VERGROOT " X>03780 D$=" EEN SLECHT HEERSER" $E$="HET GRONDGEBIED IS VERKLEIND " D$ E$:"MET ";(X);" %" 'Q$=" " I=13 Q$ I  m