!""16)"KINGDOM"@ BY T.VOROS & L.SCHNEIDERf VERS 1.2 12/28/73 REF PCC V4N2 EDIT/REFORMAT-PET 8K; F.PILLSBURY 5/2/78; REVISE +INSTRUCTIONS 6/14/78 3000 RANDOMIZET1(59464):I0T1:R(1):I13)"INSTRUCTIONS?";#O$:O$""185O$"Y"3005OR(Z1)((Z1)(1))fL(Z2)R(100)Z2ndY0yiL01E6nL13sN0R(75)75xL2R(250)250}N1R(3000)2000L30:N20Y0"IN THE BEGINNING OF YOUR REIGN:"::160:"REPORT FOR YEAR";Y4""P"THE POPULATION IS",N0n"ACRES OF LAND OWNED",L2"BUSHELS IN STORAGE",N1:"REAL ESTATE MARKET:""THE PRICE OF LAND IS";L1;"BUSHELS PER ACRE":"HOW MANY ACRES TO BUY";BB(B):B02020B0270+AN1BL19A0260h"YOUR STORAGE IS ONLY";N1;"BUSHELS!":215yN1A:L2L2B B033014);:"TO SELL";CC(C):C02020"C0335'AL2C:A03151:"YOU ONLY OWN";L2;"ACRES!":270;L2A:N1N1CL1:(BC)0350bJ"TRANSACTION RESULTS: LAND";L2;"ACRES":,,"GRAIN";N1;"BUSHELS"zO(L2N1L0)02010TN10490Y^"HOW MANY BUSHELS FOR FOOD";N2hN2(N2):N202020rAN1N2:A0390|"YOUR STORAGE IS ONLY";N1;"BUSHELS!":350#N1A:N10490J"HOW MANY ACRES TO BE PLANTED";L3bL3(L3):L302020pL30500(L2L3)0440"YOU ONLY OWN";L2;"ACRES!":400(2N0L3)0455"YOUR POPULATION IS ONLY";N0;"PEOPLE!":400 AN13L3:A0475:"YOUR STORAGE IS ONLY";N1;"BUSHELS!":400MN1A:N10500:"YOUR STORAGE IS NOW EMPTY...GOOD LUCK!":3000YY1N3R(N033)N4R(N042)N5N0(N210)N50560 N50590AR(3N52)':"**FOOD SURPLUS** POPULATION INCREASE";A:30000!N50<&N3N3AE+590_0(L(5(N52)))0590x5AR((N5N1)(2N0))?:"***FOOD RIOTS*** ";A;"BUSHELS LOST":3000DN1N1ANL(10)0620SA(N03)R(N022) ]:"***PLAGUE*** ";A;"DIED":3000bN4N4A)lL(10)0670aqAR(N05)(N05):BR(N120)(N120):CR(L250)}:"***HUNS ATTACK***",A;"PEOPLE KILLED":,,B;"BUSHELS TAKEN,,C"ACRES DESTROYED":3000N4N4A:N1N1B:L2L2CL(15)0705AR(20)10:BR(N0250)506:"***BORDER EXPANSION***"]"YOU GAINED";A;"PEOPLE;";B;"ACRESg3000{N3N3A:L2L2BN0N0N3N4N5N002015:"VITAL STATISTICS:":" BIRTHS AND IMMIGRATION ";N3" DIED OF STARVATION ";N5'" DIED OF NATURAL CAUSES ";N4S:" NET CENSUS CHANGE: ";N3N5N4]3000oL(10)0760AR(N120)(N120):"***THEFT***",A;"BUSHELS STOLEN":3000N1N1AL(10)0785AR(L210)(L220) :"**EARTH QUAKE**",A;"ACRES DESTROYED":3000, L2L2A>L(15)0810ZAR(100(L2100))500 :"**GRAIN SHIPMENT ARRIVES** ";A;"BUSHELS":3000%N1N1A*L(15)0835/L1R(2)19:"***DROUGHT***">860CL(15)0855HL1R(3)7R:"***RAIN***":860'WL1R(4)3C\AL1L3:BR(A2):CABKp:XuA0910z"THE HARVEST WAS";L1;"BUSHELS/ACRE"{" FOR A TOTAL OF",A;"BUSHELS"" LOST TO RATS",B;"BUSHELS"" NET HARVEST WAS",C;"BUSHELS"N1N1C:130E"THE HARVEST WAS";L1;"BUSHELS/ACRE":"FOR A TOTAL OF";A;"BUSHELS."N900"CONGRATULATIONS!! YOU NOW RULE THE WORLD":2050"***DISASTER*** THE POPULATION IS ZERO!":2050"YOU GOOFED! NO NEGATIVE NUMBERS.":"YOUR REIGN LASTED";Y;"YEARS."("TRY AGAIN?";<O$:O$""2210NO$"Y":25a:"GOODBYE!g w I11000: I11000:: "MINIMUM FOOD IS 10 BUSHELS PER PERSON" "AN ACRE REQUIRES 3 BUSHELS FOR PLANTING" "A SUBJECT CAN PLANT 2 ACRES/YEAR"B "OVERFEEDING (MORE THAN 20 BUSHELS OVER)"f "MAY INCREASE THE POPULATION." "UNDERFEEDING (MORE THAN 20 BUSHELS" "UNDER) MAY RESULT IN FOOD RIOTS." "OTHER EVENTS OCCUR AT RANDOM AND MAY" "INTERACT."% "LAND PRICE VARIES FROM 3 TO 6 BUSHELS"_ "PER ACRE EXCEPT WHEN RAIN OR DROUGHT":"OCCURS. ";  "IF YOU DO NOT WANT TO BUY  "(OR SELL) LAND, ENTER '0'.  "WHEN READY, PRESS ANY KEY." & O$:O$""3110!0 "YOU MUST HAVE A TOTAL WEALTH OF A"3!: "MILLION UNITS (ACRES + BUSHELS) TO WIN."S!D "STRATEGY IS UP TO YOU!!"w!N "WHEN READY, PRESS ANY KEY."!X O$:O$""3160! $