10 REM *** CONVERTED FROM THE ORIGINAL FOCAL PROGRAM AND MODIFIED 20 REM *** FOR EDUSYSTEM 70 BY DAVID AHL, DIGITAL 30 REM *** MODIFIED FOR 8K MICROSOFT BASIC BY PETER TURNBULL 80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA" 85 PRINT "SUCCESSFULLY FOR A 10-YR TERM OF OFFICE.":PRINT 90 REM RANDOMIZE REMOVED 95 D1=0:P1=0 110 Z=0:P=95:S=2800:H=3000:E=H-S 120 Y=3:A=H/Y:I=5:Q=1 210 D=0 215 PRINT:PRINT:PRINT "HAMURABI: I BEG TO REPORT TO YOU,":Z=Z+1 217 PRINT "IN YEAR"Z","D"PEOPLE STARVED,"I"CAME TO THE CITY." 218 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 "RATS ATE"E"BUSHELS." 260 PRINT "YOU NOW HAVE"S"BUSHELS IN STORE.":PRINT 270 IF Z=11 THEN 860 310 C=INT(10*RND(1)):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:IF Q<0 THEN 850 322 IF Y*Q<=S THEN 330 323 GOSUB 710 324 GOTO 320 330 IF Q=0 THEN 340 331 A=A+Q:S=S-Y*Q:C=0 334 GOTO 400 340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL"; 341 INPUT Q:IF Q<0 THEN 850 342 IF QC/2 THEN 530 523 REM *** THE 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 *** HORRORS, A 15% CHANCE OF PLAGUE 542 Q=INT(10*(2*RND(1)-.3)) 550 IF P.45*P THEN 560 553 P1=((Z-1)*P1+D*100/P)/Z 555 P=C:D1=D1+D:GOTO 215 560 PRINT: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' !!":GOTO 990 710 PRINT "HAMURABI: THINK AGAIN. YOU HAVE ONLY" 711 PRINT S"BUSHELS OF GRAIN. NOW THEN," 712 RETURN 720 PRINT "HAMURABI: THINK AGAIN. YOU OWN ONLY"A"ACRES. NOW THEN," 730 RETURN 800 C=INT(RND(1)*5)+1 801 RETURN 850 PRINT: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 AVERAGE, I.E., A TOTAL OF" 865 PRINT D1"PEOPLE DIED!!":L=A/P 870 PRINT "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH" 875 PRINT L"ACRES PER PERSON.":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!":GOTO 990 940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV." 945 PRINT "THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND," 950 PRINT "FRANKLY, HATE YOUR GUTS!":GOTO 990 960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT" 965 PRINT "REALLY WASN'T TOO BAD AT ALL. "; 966 PRINT INT(P*.8*RND(1));"PEOPLE WOULD" 970 PRINT "DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR" 975 PRINT "TRIVIAL PROBLEMS." 990 PRINT:FOR N=1 TO 10:PRINT CHR$(7);:NEXT N 995 PRINT "SO LONG FOR NOW.":PRINT 999 END