KINGDOM pd$1000:1500:2000 xy=15 02500 :4000:1500:4500 "PRESS ENTER";Z$:FL=0Y::"Your succes has been"'"outstanding, you have been"'"elected to another term in"'"office.":"PRESS ENTER";Z$:120x =:"Your failure has brought an"'"early end to your rule.": N68D,78N,95_,255,255,255,255,255 24,44,,124|,60<,24,28,58:,89Y,156,24,40(,72H,140,68D,196,12 131,224,24,7,7,24,224,131,128,70F,47/,255,255,47/,70F,128 D0,0,0,0,0,0,36$,126~ N24,153,219,90Z,90Z,255,255,255 $21010:N=06:M=07 .A:(97a+N)+M,A:M:N 8A$=147+148+" " BEB$(2,2):B$(1)=145:B$(2)=146 LP0,0,0,0,0,0,0:IN,DIN,PL,ST,PO,NP,TR V &0:7:1:0: (0,11 ;2;" KINGDOM " #N=-662:N1=N 'M=NN+1:9 +M,8+N1; 2P=116-2*N1:;1;" ";:P M:N "IN=01630^ ,:20,0;"INDUSTRY CONTINUES ";:DIN"TO GROW" 6S0:.5,30:502:P=(IN/25)+1:P1=(P/10 ) @P=P-10 *P1 J2Q=0P1:R=010 *(Q6P=6 gN=1P:M=3011 +N-1:R=12:12 +R,M;3;8;B$(R) *R:.02{# =,M+2*N:M:30:N %25:ST+PO=01780 ST=01720 Y20,0;ST;" PEOPLE DIED OF STARVATION";0:.5,30:502 PO=01740 Z20,0;po;" PEOPLE DIED FROM POLLUTION";0:.5,30:502 5P=((ST+PO)/25)+1:P>6P=6 ~N=1P:M=87-1:R=12:10 +R,M;4;B$(R):R:.3,2*M-2*N:M 15:11 ,7;" ":12 ,7;4;A$:.73333,0:15:M=70-1:12 ,M;4;A$:.02{# =,2*M-2*N:M:12 ,0;" " N "25:PL=01860D l20,0;"THE LAND WAS PLANTED";0:.5,30:502:PL1=(PL/25)+1 +PL2=(PL1/10 ):PL3=PL1-10 *PL2 7N=0PL2:M=010 *(N10 NP1=10 biN=1NP1:M=3017+N-1:R=12:12 +R,M;5;8;B$(R) lR:.02{# =,M:M:N vTR=01970 \20,0;TR;" TOURISTS VISITED THE COUNTRY";0:.5,30:502 7TR1=(TR/100d)+1:TR1>6TR1=6 PN=1TR1:RD=(5*):M=257-1:R=12 Q16+R,M;2+RD;B$(R):R:.02{# =,M+2*N:m=1615 m 017,7;" ";18,7;" ":N  #A=60000`+((-)*1000) B=500+((-)*10 ) C=0:D=2000  W=100d+((-)*10 ) V=10 +(*6)  b"You have a 5 year term of office"'"This is the state of your"'"country at the start of year ";Y R"Your country has ";D;" sq.miles"'"of land of which 1000 sq.miles"'"is unusable" AININ;" sq.Miles have already been"'"sold to foreign industry" "You have ";B;" countrymen" 0CC;" Foreign workers are also"'"living here" J"Land can be sold to foreign"'"industry at ";W;" Rods per sqaure"'"mile" D"Agriculture will cost ";V;" Rods"'"per sqaure mile to be planted" ($"Your treasure contains ";A'"Rods" 22"How many sq.miles of land will"'"you sell?";:H <]H>1000-IN0,0;("YOU ONLY HAVE ";1000-IN;" TO SELL");H:2620< FH P:"How many Rods will you spend on"'"your countrymen?";:I ZKI>A0,0;("YOUR TREASURE ONLY HAS ";A;'"RODS");I:2650Z dI n+"How many sq.miles will you"'"plant?";:J xLJ*V>A-I0,0;("YOU ONLY HAVE ";A-I;"RODS LEFT");J:2680x aJ>B*1.5@0,0;("EACH COUNTRYMAN CAN ONLY PLANT"'"1.5 SQ.MILES");J:2680x qJ>1000-IN-H0,0;("YOU ONLY HAVE ";1000-IN-H;" SQ.MILES"'"FOR PLANTING");J:2680x J <"How many Rods will you spend on"'"pollution control?";:K SK>A-I-J*V0,0;("YOU ONLY HAVE ";A-I-J*V;" RODS LEFT");K:2730  A1=A-I-V*J-K:A=A+H*W-I-V*J-K DIN=H:IN=IN+H PL=J -ST=(B-I/100d):ST<0ST=0 :PO=(IN/5-K/2500 )+(*10 )*(IN>0) PO<0PO=0 =NP=((I/100d-B)/10 +K/25-IN/502-PO-ST) NP<0NP=0 NP=(NP):B=B+NP-ST-PO $TR=(B-IN):TR<0TR=0 ,C=C+(H/2)+(*10 )*(H0) CR=1-IN/2000 "&A=A+(CR*PL*60<)+(TR*40() , :FL=0 ST+PO>0"YOU HAD TO PAY ";(9 *(ST+PO));" RODS IN"'"FUNERAL EXPENSES":A=(A-9 *(ST+PO)):A<0IN=IN+(A/W):A=0:"YOU HAD TO SELL LAND TO RAISE"'"THE CASH" /CR<.95s333"POLLUTION REDUCED THE HARVEST" CR<.8L"SERIOUSLY" d(CR*J);" SQ.MILES OF CROPS WERE"'"SUCCESFULLY HARVESTED AND SOLD"'"FOR ";(CR*J*60<);" RODS" 9TR"YOU GAINED ";(TR*40();" RODS FROM"'"TOURISM" \A1ST"YoU ALLOWED PEOPLE TO STARVE"'"WHEN THERE WAS MONEY IN THE"'"TREASURY":FL=1 {C>B"THERE ARE NOW MORE FOREIGN"'"WORKERS THAN NATIONALS IN YOUR"'"COUNTRY AND THERE ARE STAGING A"'"REVOLT":FL=1 aST+PO>100d"YOU HAVE ALLOWED MORE THEN ONE"'"HUNDERD PEOPLE TO DIE THIS YEAR":FL=1 mB<330J"DURING YOUR PERIOD IN OFFICE"'"YOUR POPULATION HAS FALLEN BY"'"MORE THAN A THIRD":FL=1  aibcdxwdv hi\j9klllrp ZA