*NAME KINGDOM  TITLE :WINDOW d dhC: d\E n dPG x y=1 5 " dDI: t`O: d\E: tTQ WAIT: fl=0 y: : "Your success has been outstanding."'"You have been elected to another term in office.": WAIT: Dx@ J : "Your failure has brought an early end to your rule.": RESET:  in,din,pl,st,po,np,tr L 0,0,0,0,0,0,0 V  DISPLAY @ in=0 D^F 3J "Industry continues ";: din "to grow"; +Op= (in/25+1): p1= (p/10): p=p-10*p1 ^ din=0 : tZF 'h ", bringing more foreign workers" rp= (din/20)+1 | p>6 p=6 PAUSE : st+po=0 dtF  st=0 txF ) ;st;" people died of starvation. ";  po=0 : dLF ( ;po;" people died from pollution." %p= ((st+po)/25)+1: p>6 p=6 PAUSE : pl=0 DDG  "The land was planted. "; &PAUSE : "The crops grew." D np=0 DvG 2NPAUSE : ;np;" people joined the country. "; (Xnp1= (np/10)+1: np1>10 np1=10 v tr=0 : trG + ;tr;" tourists visited the country."; 'tr1= (tr/100)+1: tr1>6 tr1=6 PAUSE   INIT a=60000+ (((1)-(1))*1000) b=500+ (((1)-(1))*10) c=0: d=2000  INPUT  w=100+ (((1)-(1))*10)  v=10+ ((1)*6)  A "This is the state of your country at the start of year ";y J in ;in;" sq. miles have already been sold to foreign industry." $ "You have ";b;" countrymen. "; : c ;c;" foreign workers are also living there."; I '"Land can be sold to foreign industry at ";w;" Rods per sq. mile." G "Agriculture will cost ";v;" Rods per square mile to be planted." 7( "Your treasury contains ";a" Rods.":STATUS:WAIT 82 '"How many sq. miles of land will you sell ";: h P< h>1000-in "You only have ";1000-in;" to sell."'"Try again ";:h: T|J >P "How many Rods will you spend on your countrymen ";: i JZ i>a "Your treasury only has ";a;"Rods. Try again ";: i: DZJ 0n "How many sq. miles will you plant ";: j Mx j*v>a-i "You only have ";a-i;" Rods left. Try again ";:j: DxJ [ j>b*1.5 "Each countryman can only plant 1.5 sq. miles. Try again ";: j: DxJ c j>1000-in-h "You only have ";1000-in-h;" sq. miles for planting. Try again ";:j: DxJ a k=a-i-j*v: "Leaving ";k;" rods."'"How much do you want to spend on pollution control";: k Q k>a-i-j*v "You only have ";a-i-j*v;" Rods left. Try again ";:k: tjJ PAUSE   RESULTS "a1=a-i-v*j-k: a=a+h*w-i-v*j-k din=h : in=in+h pl=j #st= (b-i/100): st<0 st=0 )po= (in/5-k/2500)+ ((1)*10)*(in>0)  po<0 po=0 (np= ((i/100-b)/10+k/25-in/50-po-st)  np<0 np=0 np= (np): b=b+np-st-po tr= (b-in): tr<0 tr=0 "c=c+ (h/2)+ ((1)*10)*(h<>0) cr=1-in/2000 "a=a+ (cr*pl*60)+ (tr*40) ,  CONSEQUENCES fl=0  st+po>0 '"You had to pay "; (9*(st+po));" Rods in funeral expenses. ";: a= (a-9*(st+po)): a<0 in=in+ (a/w): a=0: "You had to sell land to raise the cash."; PAUSE 4 cr<.95 '"Pollution reduced the harvest ";  cr<.8 "seriously"; X '; (cr*j);" sq. miles of crops were harvested and sold for "; (cr*j*60);" Rods." PAUSE ; tr "You gained "; (tr*40);" Rods from tourism." e a1 st "You allowed people to starve when there was money in the treasury.": fl=1:PAUSE  c>b "There are now more foreign workers than nationals in your country and"'"they are staging a revolt.": fl=1:PAUSE d st+po>100 "You have allowed more than one hundred people to die this year.": fl=1:PAUSE b b<330 "During your term of office, the population fell by more than 33%.": fl=1:PAUSE   PAUSE =0: : >=100   WAIT 3 20,7) (1)"BPress SPACE to continue"(1)"B"; : (10)=(32) ; (13);" ";   p STATUS z (1)"2I2": / (1)"3+TR Status "(1)"3-TR";  "Year : ";y  "Countrymen : ";b  "Foreigners : ";c  "Land value : ";w  "Planting cost: ";v  "Land sold : ";in  "Treasury : ";a  (1)"2I1": X WINDOW )b 1,"7","#","1",32,32,32+70,32+8,0 ,g 1,"7","#","2",32+71,32,32+20,32+8,3 Rl 1,67,1:"2I2"::(1)"3+TR STATUS "(1)"3-TR"(1)"2I1":1,"S": @ RESET )J 1,"7","#","1",32,32,32+92,32+8,0 T (1);"3+SC" ^ (# TITLE O2# (1)"B KINGDOM - converted from the ZX Spectrum by S.Marsh"(1)"B" H<# "You have been elected the ruler of a small country for a term of" IF# "5 years. At the moment, it is a wholly agricultural economy with " JP# "1000 sq miles of useable land. Each year, you have the opportunity" DZ# "to sell some land to Industry which will help raise revenue." Gd# "However, this is likely to cause pollution which may damage the" =n# "crops as well as reduce the tourist trade. Good Luck!" x#WAIT #