10 PRINT TAB(32);"HAMURABI"
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
30 PRINT
31 PRINT
32 PRINT
80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA"
90 PRINT "FOR A TEN-YEAR TERM OF OFFICE."
91 PRINT
95 D1=0
96 P1=0
100 Z=0
101 P=95
102 S=2800
103 H=3000
104 E=H-S
110 Y=3
111 A=H/Y
112 I=5
113 Q=1
.-----> 210 D=0
.------------> 215 PRINT
| | 216 PRINT
| | 217 PRINT "HAMURABI
| | 218 I BEG TO REPORT TO YOU,"
| | 219 3 Z=Z+1
| | 220 REM 217-218 ==> 221-222
| | 221 PRINT "IN YEAR";Z;",";D;" PEOPLE STARVED,";I;" CAME TO THE CITY,"
| | 222 P=P+I
| |.----- 227 IF Q>0 THEN 230
| || 228 P=INT(P/2)
| || 229 PRINT "A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED."
| |`----> 230 PRINT "POPULATION IS NOW";P
| | 232 PRINT "THE CITY NOW OWNS ";A;" ACRES."
| | 235 PRINT "YOU HARVESTED";Y;" BUSHELS PER ACRE."
| | 250 PRINT "THE RATS ATE";E;" BUSHELS."
| | 260 PRINT "YOU NOW HAVE ";S;" BUSHELS IN STORE."
| | 261 PRINT
.------------------ 270 IF Z=11 THEN 860
| | | 310 C=INT(10*RND(1))
| | | 311 Y=C+17
| | | 312 PRINT "LAND IS TRADING AT";Y;" BUSHELS PER ACRE."
| | |.----> 320 PRINT "HOW MANY ACRES DO YOU WISH TO BUY";
| | || 321 INPUT Q
|.----------------- 322 IF Q<0 THEN 850
|| | || 323 REM 322-324 ==> 324-326
||.---------------- 324 IF Y*Q<=S THEN 330
|||.-------------<> 325 GOSUB 710
|||| | |`----- 326 GOTO 320
||;|==============> 330 IF Q=0 THEN 340
|||| | | 331 A=A+Q
|||| | | 332 S=S-Y*Q
|||| | | 333 C=0
||||.-------------- 334 GOTO 400
||`|-----=========> 340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL";
|| ||| | | 341 INPUT Q
|+----------------- 342 IF Q<0 THEN 850
|| ||| | | 343 REM 342-344 ==> 344-346
|| |||.------------ 344 IF Q<A THEN 350
|| ||||.---------<> 345 GOSUB 720
|| |||||`---------- 346 GOTO 340
|| |||`-----------> 350 A=A-Q
|| ||| | | 351 S=S+Y*Q
|| ||| | | 352 C=0
|| |`-------------> 400 PRINT
|| | | | |.----> 410 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE";
|| | | | || 411 INPUT Q
|| | | |.---------- 412 IF Q<0 THEN 850
|| | | || || 418 REM *** TRYING TO USE MORE GRAIN THAN IS IN SILOS?
|| | | || ||.---- 420 IF Q<=S THEN 430
|| | | || .------<> 421 GOSUB 710
|| | | || | |`----- 422 GOTO 410
|| | | || | | `---> 430 S=S-Q
|| | | || | | 431 C=1
|| | | || | | 432 PRINT
|| | | || | | .-> 440 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";
|| | | || | | | 441 INPUT D
|| | | || |.------- 442 IF D=0 THEN 511
|| | | || ||| | 443 REM 442,444-447 ==> 444-448
|+----------------- 444 IF D<0 THEN 850
|| | | || ||| | 445 REM *** TRYING TO PLANT MORE ACRES THAN YOU OWN?
|| | | || ||| .--- 446 IF D<=A THEN 450
|| | | +---------<> 447 GOSUB 720
|| | | || ||| |+-- 448 GOTO 440
|| | | || ||| || 449 REM *** ENOUGH GRAIN FOR SEED?
|| | | || ||| `==> 450 IF INT(D/2)<=S THEN 455
|| +-------------<> 452 GOSUB 710
|| | | || ||| |+-- 453 GOTO 440
|| | | || ||| || 454 REM *** ENOUGH PEOPLE TO TEND THE CROPS?
|| | | || ||| `==> 455 IF D<10*P THEN 510
|| | | || ||| || 460 PRINT "BUT YOU HAVE ONLY";P;" PEOPLE TO TEND THE FIELDS! NOW THEN,"
|| | | || ||| |`-- 470 GOTO 440
|| | | || ||| `--> 510 S=S-INT(D/2)
|| | | || |`=====<> 511 GOSUB 800
|| | | || ||| 512 REM *** A BOUNTIFUL HARVEST!
|| | | || ||| 515 Y=C
|| | | || ||| 516 H=D*Y
|| | | || ||| 517 E=0
|| | | || |+-----<> 521 GOSUB 800
|| | | || |||.----- 522 IF INT(C/2)<>C/2 THEN 530
|| | | || |||| 523 REM *** RATS ARE RUNNING WILD!!
|| | | || |||| 525 E=INT(S/C)
|| | | || |||`----> 530 S=S-E+H
|| | | || |+-----<> 531 GOSUB 800
|| | | || ||| 532 REM *** LET'S HAVE SOME BABIES
|| | | || ||| 533 I=INT(C*(20*A+S)/P/100+1)
|| | | || ||| 539 REM *** HOW MANY PEOPLE HAD FULL TUMMIES?
|| | | || ||| 540 C=INT(Q/20)
|| | | || ||| 541 REM *** HORROS, A 15% CHANCE OF PLAGUE
|| | | || ||| 542 Q=INT(10*(2*RND(1)-.3))
|| | | || ||`------ 550 IF P<C THEN 210
|| | | || || 551 REM *** STARVE ENOUGH FOR IMPEACHMENT?
|| | | || || 552 D=P-C
|| | | || || .-- 553 IF D>.45*P THEN 560
|| | | || || | 554 REM 553,555 ==> 555-556
|| | | || || | 555 P1=((Z-1)*P1+D*100/P)/Z
|| | | || || | 556 P=C
|| | | || || | 557 D1=D1+D
|| | `------------- 558 GOTO 215
|| | || || `-> 560 PRINT
|| | || || 561 PRINT "YOU STARVED";D;" PEOPLE IN ONE YEAR!!!"
|| | || || .--> 565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
|| | || || | 566 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE"
|| | || || | 567 PRINT "ALSO BEEN DECLARED NATIONAL FINK!!!!"
|| | || || |.-- 568 GOTO 990
|| `-------------+> 710 PRINT "HAMURABI: THINK AGAIN. YOU HAVE ONLY"
|| || | ||| 712 REM 711-712 ==> 713-714
|| || | ||| 713 PRINT S;" BUSHELS OF GRAIN. NOW THEN,"
|| || | ||`< 714 RETURN
|| `---------+> 720 PRINT "HAMURABI
|| | | ||| 721 THINK AGAIN. YOU OWN ONLY";A;" ACRES. NOW THEN,"
|| | | ||`< 730 RETURN
|| | `-----+> 800 C=INT(RND(1)*5)+1
|| | ||`< 801 RETURN
|`----------------> 850 PRINT
| || 851 PRINT "HAMURABI: I CANNOT DO WHAT YOU WISH."
| || 855 PRINT "GET YOURSELF ANOTHER STEWARD!!!!!"
| |+-- 857 GOTO 990
`-----------------> 860 PRINT "IN YOUR 10-YEAR TERM OF OFFICE,";P1;" PERCENT OF THE"
|| 862 PRINT "POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF"
|| 865 PRINT D1;" PEOPLE DIED!!"
|| 866 L=A/P
|| 870 PRINT "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH"
|| 875 PRINT L;" ACRES PER PERSON."
|| 876 PRINT
+--- 880 IF P1>33 THEN 565
`--- 885 IF L<7 THEN 565
.---- 890 IF P1>10 THEN 940
+---- 892 IF L<9 THEN 940
|.--- 895 IF P1>3 THEN 960
|+--- 896 IF L<10 THEN 960
||| 900 PRINT "A FANTASTIC PERFORMANCE!!! CHARLEMANGE, DISRAELI, AND"
||| 905 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!"
||+-- 906 GOTO 990
`---> 940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV."
|| 945 PRINT "THE PEOPLE (REMIANING) FIND YOU AN UNPLEASANT RULER, AND,"
|| 950 PRINT "FRANKLY, HATE YOUR GUTS!!"
|+-- 951 GOTO 990
`--> 960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT"
| 965 PRINT "REALLY WASN'T TOO BAD AT ALL. ";INT(P*.8*RND(1));"PEOPLE"
| 970 PRINT "WOULD DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR"
| 975 PRINT "TRIVIAL PROBLEMS."
`-> 990 PRINT
991 FOR N=1 TO 10
992 PRINT CHR$(7);
993 REM 991 ==> 994
994 NEXT N
995 PRINT "SO LONG FOR NOW."
996 PRINT
999 END