10 REM SUMER.ECB 15 REM ...*********************************** 20 REM ...*** *** 30 REM ...*** SUMER V3.5 L2 JOHN MELLOR *** 40 REM ...*** *** 50 REM ...*********************************** 60 PRINT "&K" 70 REM ...LAST UPDATED: 04/05/74 80 REM ...ADAPTED FROM: DICK'S VERSION ON VM/370 90 REM ... 100 REM ...************************************************** 110 REM ...* PROGRAM DOCUMENTATION BLOCK: * 120 REM ...A = INITIAL LAND OWNED - ACRES 130 REM ...A1 = DEFENSE BUDGET 140 REM ...A$ = RULER PERFORMANCE EVALUATIONS 150 REM ...B = PRE-INTEGERIZED BUDGET FIGURE 160 REM ...D = PEOPLE DEAD FROM STARVATION 170 REM ...D5 = PEOPLE DEAD FROM THE PLAGUE 180 REM ...D9 = CUMULATIVE DEATHS 190 REM ...E1 = ELECTION CONTRIBUTION 200 REM ...E2 = ELECTION FLAG (0 = NO ELECT, 1 = WIN, 2 = LOSS) 210 REM ...E5 = FIRST ELECTION FLAG 0 = NO ELECTION YET 220 REM ...E8 = CUMULATIVE ERROR COUNT 230 REM ...E9 = ERRORS THIS YEAR 240 REM ...F3 = RULER IS A FLOP FLAG (1= FLOP) 250 REM ...F6 = ACRES LEFT AFTER PROPOSED SALE OF LAND 260 REM ...F7 = NUMBER OF ACRES CAPABLE OF CULTIVATION 270 REM ...F9 = BRIBE TO PRIESTS 280 REM ...G1 = HUNGER FLAG (0 = NOT HUNGRY) 290 REM ...G2 = CUMULATIVE HARVEST QUALITY 300 REM ...H3 = GROSS HARVEST 310 REM ...I = NET STOREHOUSE BUSHELS 320 REM ...I1 = NUMBER OF IMMIGRANTS 330 REM ...I2 = INTEREST RATE 340 REM ...I5 = AMOUNT OF BRIBE FOR M5 350 REM ...J = RANDOM NUMBER 360 REM ...L = AMOUNT BORROWED FROM GONZOR AND ALL HIS FRIENDS... 370 REM ...N1 = ACRES PLANTED 380 REM ...N2 = HARVEST DENSITY IN BUSHELS/ACRE 390 REM ...N3 = NET HARVEST 400 REM ...N4 = PSSSTOCK THEFT 410 REM ...N5 = ACRES OWNED 420 REM ...N6 = PRICE OF LAND 430 REM ...N7 = NUMBER OF ACRES BOUGHT 440 REM ...N8 = NUMBER OF ACRES SOLD 450 REM ...N9 = FOOD ALLOCATION 460 REM ...P = POPULATION 470 REM ...P1 = PLAGUE FLAG (1 = PLAGUE) 480 REM ...Q = BUDGET QUANTITY INPUT 490 REM ...R = CURRENT YEAR NUMBER (ZERO ORIGIN INDEXING) 500 REM ...R9 = REVOLUTION FLAG (1 = NO REVOLUTION) 510 REM ...S = SCORE 520 REM ...T = PERFORMANCE SCORE GRADE POINTS 530 REM ...W = BAD WEATHER FLAG (1 = STORMS) 540 REM ...W0 = WHO WE BORROWED FROM (INDEX INTO Z$) 550 REM ...X = LOOP INDEX 560 REM ...Y = TOTAL NUMBER OF YEARS FOR THIS GAME 570 REM ...Z$ = LIST OF NAMES OF MONEYLENDERS 580 REM ... 590 DIM T(8) 600 DIM Z$(352),A$(128) 610 LET A$="GHASTLY " 620 LET A$=A$+"APPALLING " 630 LET A$=A$+"SLUGGISH AT BEST" 640 LET A$=A$+"SO-SO " 650 LET A$=A$+"GOOD " 660 LET A$=A$+"VERY GOOD " 670 LET A$=A$+"EXCELLENT " 680 LET A$=A$+"SUPER FANTASTIC " 690 LET Z$="IGNARP THE HAIRLESS " 700 LET Z$=Z$+"YGGDRASIL THE STRANGE " 710 LET Z$=Z$+"WILVILLE AND ORBUR " 720 LET Z$=Z$+"THUNDERMUG THE ODIFEROUS " 730 LET Z$=Z$+"GONZOR THE TOOTHLESS " 740 LET Z$=Z$+"SHOOGAR THE MAGICIAN " 750 LET Z$=Z$+"THE TREEFROG FINANCE COMPANY " 760 LET Z$=Z$+"TRAXLER THE WISE " 770 LET Z$=Z$+"ZARDOZ THE WICKED " 780 LET Z$=Z$+"THE THUMBSCREW COLLECTION AGENCY" 790 LET Z$=Z$+"DICKY THE TRICKY " 800 DATA 20,35,50,67,75,84,95,999 810 DATA 400,10,0,0,0,0,750,675,10,300,2.5,750,75,400,15,40,0,1,0,5 820 RESTORE 800 830 FOR L=1 TO 8 840 READ T(L) 850 NEXT L 860 READ A,D,E2,E5,E8,E9,H3,I,I1,N1,N2,N3,N4,N5,N6 870 READ P,R,R9,W,Y 880 LET D9=0 890 LET F3=0 900 LET L=0 910 LET G1=0 920 LET P1=0 930 LET G2=0 940 LET Q9=150 950 REM ... 960 REM ...CHANGE B$ TO W2 970 LET W2=W2+50*RND(0) 980 LET J=INT(RND(W2)*100+1) 990 LET J=RND(0)*J 1000 LET Z=J 1010 LET J=RND(INT(SQR(Z*Z+.5))) 1020 LET N6=INT(7*J+13) 1030 LET Y=INT(RND(0)*J*5)+8 1040 IF Y>4 THEN 1060 1050 LET Y=5 1060 PRINT "SUMER VERSION 1.35 (";Y;" YEARS)" 1070 PRINT 1080 PRINT 1090 PRINT "MY LORD AND MASTER;" 1100 PRINT "ABSOLUTE RULER OF SUMER;" 1110 PRINT "I, YOUR HUMBLE SERVANT, THE M5 MULTITRONIC UNIT;" 1120 PRINT "BEG TO REPORT ON THE STATE OF YOUR DOMAIN..." 1130 REM ... 1140 REM ...SUBSEQUENT YEARS LOOP BACK TO NEXT STATEMENT 1150 REM ... 1160 PRINT "IT IS NOW YEAR";R+1;" OF YOUR REIGN. LAST YEAR" 1170 PRINT D;" PE"; 1180 IF D=1 THEN 1210 1190 PRINT "OPLE"; 1200 GOTO 1220 1210 PRINT "RSON"; 1220 PRINT " DIED AND";I1;" IMMIGRANT"; 1230 IF I1=1 THEN 1250 1240 PRINT "S"; 1250 PRINT " CAME INTO YOUR DOMAIN" 1260 LET D9=D9+D 1270 IF I1>0 THEN 1300 1280 PRINT "(YOU'VE BEEN RECEIVING A BAD PRESS LATELY...)" 1290 GOTO 1390 1300 IF P1=1 THEN 1320 1310 GOTO 1390 1320 IF I1<2 THEN 1390 1330 PRINT "MOST REGRETTABLY, THEY BROUGHT WITH THEM A MYSTERIOUS PLAGUE" 1340 LET J=RND(0) 1350 LET D5=INT(I1/2+10*J*I1/P) 1360 LET D9=D9+D5 1370 LET P=P-D5 1380 PRINT " AND";D5;" PEOPLE DIED IN THE ENSUING EPIDEMIC." 1390 PRINT "THE PRESENT POPULATION OF SUMER IS THEREFORE";P;" "; 1400 IF G1=0 THEN 1430 1410 PRINT "HUNGRY SUBJECTS" 1420 GOTO 1440 1430 PRINT "LOYAL SUBJECTS" 1440 IF P>9 THEN 1490 1450 PRINT "WE WHO REMAIN HAVE DECIDED TO LEAVE FOR A HEALTHIER PLANET." 1460 PRINT "FRANKLY, MASTER, AS A RULER YOU ARE A FLOP" 1470 LET F3=1 1480 GOTO 5330 1490 PRINT : PAUSE 30 1500 IF Q9<150 THEN 1520 1510 LET N2=(150*150)/(Q9*Q9)*N2 1520 PRINT "THE PEASANTS NOW WEIGH ";Q9;" LBS." 1530 LET G2=G2+N2: LET H3=INT(H3) 1540 PRINT "WE PLANTED";N1;" OF YOUR";N5;" ACRES LAST YEAR" 1550 PRINT " AND HARVESTED";INT(N2*100)/100;" BUSHELS PER ACRE..." 1560 PRINT "THE TOTAL HARVEST WAS THEREFORE ";H3;" BUSHELS" 1570 IF W=0 THEN 1700 1580 IF H3=0 THEN 1610 1590 PRINT "BUT, UNFORTUNATELY, STORMS DESTROYED HALF YOUR CROP" 1600 LET G2=G2-N2/2 1610 LET W=0 1620 IF N4=0 THEN 1680 1630 PRINT "AND"; 1640 PRINT " THE PSSSTOCK"; 1650 IF N4=0 THEN 1730 1660 PRINT "S STOLE";N4;" BUSHELS" 1670 IF W=0 THEN 1740 1680 PRINT "- HOWEVER"; 1690 GOTO 1640 1700 IF N4=0 THEN 1630 1710 PRINT "BUT"; 1720 GOTO 1640 1730 PRINT " RAIDERS WERE SUCCESSFULLY REPELLED" 1740 IF L<=0 THEN 1950 1750 LET L=INT(((100+I2)*L)/100) 1760 IF I>=L THEN 1860 1770 IF I+(N5-P)*(N6/6)0 THEN 2110 1990 IF E1<0 THEN 2010 2000 IF E2=1 THEN 2030 2010 PRINT "HOWEVER, ALAS A RECENT COUP D'ETAT HAS DEPOSED YOU FROM OFFICE." 2020 GOTO 1460 2030 PRINT "LUCKILY, YOU MANAGED TO MAINTAIN YOUR DICTATORSHIP DURING THE YEAR." 2040 GOTO 2150 2050 PRINT "THUS YOU HAVE";I;" BUSHELS IN YOUR STOREHOUSE." 2060 PRINT "HOWEVER AND ALAS THIS IS LESS THAN THE ";L;" BUSHELS" 2070 PRINT "THAT YOU OWE ";Z$(32*(W0-1)+1,32*W0) 2080 PRINT " WE HAVE THEREFORE BEEN FORECLOSED" 2090 PRINT " ON YOUR HAPPY KINGDOM. YOU ARE DEPOSED." 2100 GOTO 1460 2110 IF E2=1 THEN 2140 2120 PRINT "ALAS YOU LOST THE ELECTION - IT THEREFORE SEEMS" 2130 GOTO 1460 2140 PRINT "LUCKILY, THE ELECTION GAVE YOU THE REQUIRED MAJORITY." 2150 LET E2=0 2160 PRINT 2170 REM ... 2180 REM ...TEST IF TERM OF OFFICE HAS EXPIRED 2190 REM ... 2200 IF R>=Y THEN 5220 2210 IF E9>1 THEN 2240 2220 IF R=INT(Y/2) THEN 2240 2230 GOTO 2550 2240 IF E5=0 THEN 2270 2250 PRINT "AGAIN" 2260 GOTO 2290 2270 PRINT "NOW"; 2280 LET E5=1 2290 PRINT "; A MOVEMENT IS AFOOT TO OUST YOU FROM OFFICE AND" 2300 PRINT "YOUR ADVISERS URGE YOU TO OBTAIN A MANDATE FROM THE PEOPLE." 2310 PRINT "SHOULD YOU DECIDE TO HOLD AN ELECTION;" 2320 PRINT "YOUR CAMPAIGN WORKERS MAY BE PAID IN BUSHELS OF GRAIN:" 2330 PRINT "NOW, "; 2340 PRINT "HOW MANY (IF ANY) BUSHELS DO YOU WISH TO " 2345 PRINT "DISTRIBUTE IN THIS MANNER? "; 2350 GOSUB 5020 2360 LET E1=Q 2370 LET E8=E8+E9 2380 LET E9=0 2390 LET E2=1 2400 IF E1=0 THEN 2550 2410 IF E1>0 THEN 2460 2420 PRINT "OH, MASTER THEFT FROM THY CAMPAIGN WORKERS" 2430 PRINT " IS A PUNISHABLE OFFENCE " 2440 GOSUB 5120 2450 GOTO 2340 2460 IF I>E1 THEN 2520 2470 PRINT "YOUR GENEROSITY, SIRE, IS A SOURCE OF CONTINUAL EMBARRASSMENT" 2480 PRINT "TO YOUR PEOPLE...(AT THIS JUNCTUREM YOU POSSESS A MERE,I;"BUSHELS)" 2490 LET E9=E9+INT(.5+RND(Q9+E9)) 2500 PRINT "PLEASE TELL ME AGAIN:" 2510 GOTO 2340 2520 PRINT "THANK YOU, SIRE...." 2530 PRINT "AN ELECTION WILL BE HELD TO STABILIZE CONFIDENCE IN YOUR REGIME." 2540 LET I=I-E1 2550 IF R>=1 THEN 2600 2560 PRINT "THE GODS DECREE THAT 1 BUSHEL IS REQUIRED TO PLANT ONE ACRE AND" 2570 PRINT "THE LAWS DECREE THAT ONE ACRE PER PERSON MUST BE SET ASIDE" 2580 PRINT " FOR NON-AGRICULTURAL USE" 2590 PRINT 2600 IF RND(0)*J*8>6 THEN 2620 2610 GOTO 2880 2620 PRINT "SOOTHSAYERS ARE PROPHESYING BAD WEATHER THIS SUMMER, MASTER." 2630 LET W=1 2640 IF I>2*P+N5+L+100 THEN 2880 2650 PRINT "THAT'S KIND OF A ROUGH BLOW, MASTER. IF YOU WISH, YOU MAY" 2660 PRINT "EMPLOY THE PRIESTS IN AN EFFORT TO WARD OFF THE BAD WEATHER." 2670 PRINT "NOW, HOW MANY (IF ANY) BUSHELS DO YOU WISH TO GIVE THE" 2680 PRINT "PRIESTS FOR THIS CEREMONY?" 2690 GOSUB 5020 2700 LET F9=Q 2710 IF F9>0 THEN 2750 2720 PRINT "DE PREESTS AIN'T GONNA LIKE BEIN TAXED, MASTER." 2730 LET E9=E9+INT(RND(0)*J+.5) 2740 LET F9=0 2750 IF F9=0 THEN 2880 2760 IF F9<=I THEN 2800 2770 LET E9=E9+INT(RND(0)*J+.5) 2780 PRINT "YOU AIN'T GOT THAT MUCH. I'M GONNA BLOW THE WHOLE WAD, MASTER." 2790 LET F9=I 2800 PRINT "THANK YOU, EMINENCE. THE PRIESTS WILL DO THEIR THING " 2810 REM ...CALC. CHANCES OF SUCCESSFUL RAIN DANCE 2820 LET W=1-(F9/P)*RND(0)*J 2830 LET W=INT(W) 2840 IF W>0 THEN 2860 2850 LET W=0 2860 IF W<1 THEN 2880 2870 LET W=1 2880 PRINT "THIS YEAR WE CAN BUY OR SELL LAND FOR";N6;" BUSHELS PER ACRE." 2890 IF 5*P12 THEN 2950 2940 PRINT "(THE PRICE IS RIGHT )" 2950 GOSUB 5020 2960 LET N7=Q 2970 IF N7=0 THEN 3020 2980 IF N7>0 THEN 3120 2990 PRINT "IT IS WRITTEN THAT THOU CANST NOT BUY A NEGATIVE NUMBER OF ACRES." 3000 LET E9=E9+INT(.5+RND(Q9+E9)) 3010 GOTO 2920 3020 PRINT "HOW MANY ACRES DO YOU WISH TO SELL?" 3030 IF N6<20 THEN 3050 3040 PRINT "(THE PRICE IS RIGHT )" 3050 GOSUB 5020 3060 LET N8=Q 3070 IF N8=0 THEN 3420 3080 IF N8>0 THEN 3230 3090 PRINT "IT IS WRITTEN THAT THOU CANST NOT SELL A NEGATIVE NUMBER OF ACRES." 3100 LET E9=E9+INT(.5+RND(Q9+E9)) 3110 GOTO 3020 3120 IF I-N6*N7=0 THEN 3200 3130 IF I-N6*N7>0 THEN 3380 3140 PRINT "MUCH THOUGH I WOULD LIKE TO EFFECT THIS TRANSACTION ON YOUR BEHALF;" 3150 PRINT "MASTER, IT WOULD COST";N6*N7;" BUSHELS -- WHICH IS" 3160 REM ...SEMICOLONS PUT IN STMT 3210 TO DELIMIT VARIABLE 3170 PRINT "MORE THAN THE";I;" BUSHELS IN YOUR STOREHOUSE." 3180 PRINT "THEREFORE, PLEASE RECONSIDER:" 3190 GOTO 3000 3200 PRINT "YOU WILL HAVE NO GRAIN LEFT IN THE STOREHOUSE FOR SEED." 3210 GOSUB 5130 3220 GOTO 3000 3230 IF N5-N8=0 THEN 3290 3240 IF N5-N8>P THEN 3350 3250 IF N5>N8 THEN 3310 3260 PRINT "GOOD GRIEF, MASTER. YOU HAVE ONLY";N5;" ACRES." 3270 GOSUB 5130 3280 GOTO 3100 3290 PRINT "HEAVENS, MASTER YOU WILL HAVE NO LAND LEFT " 3300 GOTO 3270 3310 LET F6=N5-N8 3320 PRINT "BY GOSH, MASTER IF";P;" PEOPLE ARE CRAMMED INTO ";F6;" ACRES;" 3330 PRINT "THERE WILL BE TROUBLE AT THE PALACE TONIGHT " 3340 GOTO 3270 3350 LET N5=N5-N8 3360 LET I=I+N6*N8 3370 GOTO 3400 3380 LET N5=N5+N7 3390 LET I=I-N6*N7 3400 PRINT "AS YOU KNOW, MASTER, THAT MEANS THERE ARE NOW";I;" BUSHELS" 3410 PRINT " STASHED IN THE STOREHOUSE." 3420 PRINT "HOW MANY BUSHELS OF GRAIN DO YOU WISH TO DISTRIBUTE AS FOOD?" 3430 GOSUB 5020 3440 LET N9=Q 3450 LET G1=0 3460 IF N9>=P THEN 3590 3470 LET G1=1 3480 IF N9>=0 THEN 3510 3490 PRINT "I KNOW NOT THE MEANING OF NEGATIVE NUMBERS, MASTER." 3500 GOTO 3630 3510 PRINT "TYRANT " 3520 LET R9=N9/P 3530 IF R9=0 THEN 3560 3540 PRINT "MANY "; 3550 GOTO 3570 3560 PRINT "ALL THY "; 3570 PRINT "PEOPLE WILL STARVE... I SHALL LEAD THE REVOLUTION " 3580 LET E8=E8+1 3590 IF I-N9=0 THEN 3650 3600 IF I-N9>0 THEN 3680 3610 PRINT "THINK, MASTER. YOU HAVE ONLY";I;" BUSHELS LEFT IN THE "; 3620 PRINT "STOREHOUSE" 3630 LET E9=E9+INT(.5+RND(Q9+E9)) 3640 GOTO 3420 3650 PRINT "YOU WILL HAVE NO GRAIN LEFT IN THE STOREHOUSE FOR SEED" 3660 PRINT "SURELY I MISHEARD YOU, MASTER. PRAY TELL ME AGAIN;" 3670 GOTO 3630 3680 LET Q9=Q9*((LOG(2+N9/P))/(LOG(6)))*(SQR(150/Q9)) 3690 IF N9>=2*P THEN 3720 3700 IF N9

=0 THEN 3850 3810 PRINT "I KNOW NOT THE MEANING OF NEGATIVE NUMBERS, MASTER." 3820 PRINT "PRAY TELL ME AGAIN;" 3830 LET E9=E9+INT(.5+RND(Q9+E9)) 3840 GOTO 3770 3850 LET F7=N5-P 3860 IF F7>=N1 THEN 3910 3870 PRINT " YOU DON'T HAVE THAT MUCH LAND, MASTER." 3880 LET E9=E9+INT(.5+RND(Q9+E9)) 3890 PRINT " BUT I'LL GIVE YOU ANOTHER CHANCE TO MAKE GOOD" 3900 GOTO 3770 3910 IF N1>F7/3 THEN 3940 3920 PRINT "YOUR DISTASTE FOR AGRICULTURE NEVER FAILS TO AMAZE ME, SIRE" 3930 LET E9=E9+INT(.5+RND(Q9+E9)) 3940 IF N1>F7 THEN 3960 3950 IF I>=N1 THEN 4120 3960 IF F7>I THEN 4020 3970 PRINT "COME NOW, MASTER..." 3980 PRINT "SUMER CURRENTLY HAS ONLY";F7;" ACRES CAPABLE OF CULTIVATION" 3990 IF N1>N5 THEN 3830 4000 PRINT "(YOUR PEOPLE HAVE TO LIVE SOMEWHERE)" 4010 GOTO 3830 4020 PRINT "THINK, MASTER YOU HAVE ONLY";I;" BUSHELS LEFT IN THE STOREHOUSE." 4030 PRINT "(REMEMBER: ONE BUSHEL PER ACRE)" 4040 IF N1-I<20 THEN 3830 4050 LET W0=INT(RND(F6+F7+H3+I+P+6+J)*11+1) 4060 PRINT "HOWEVER, YOUR NEIGHBOR ";Z$(32*(W0-1)+1,32*W0) 4070 LET I2=INT(25+25*(RND(0))+INT(50*W0/11)) 4080 LET L=N1-I 4090 PRINT " HAS AGREED TO LEND YOU THE NECESSARY ";L;" BUSHELS AT A" 4100 PRINT " MODEST RATE OF ";I2;"% INTEREST" 4110 LET I=I+L 4120 IF 40*P>N1 THEN 4190 4130 PRINT "YOUR";P;" PEOPLE ARE GOING TO BE HARD-PRESSED TO PLANT" 4140 PRINT N1;" ACRES THIS SPRING, MASTER, WATCH OUT " 4150 LET N9=N9+N1-50*P 4160 LET N9=50*P 4170 IF N9>0 THEN 4190 4180 LET N1=0 4190 LET I=I-N1 4200 IF I<1 THEN 4370 4210 PRINT "AND HOW MANY OF YOUR";I;" BUSHELS DO YOU WISH TO SPEND" 4220 PRINT " ON PROTECTING YOUR GRAIN FROM THE PSSSTOCKS?" 4230 GOSUB 5020 4240 LET A1=Q 4250 IF A1>=0 THEN 4300 4260 PRINT "NEGATIVE NUMBERS REMAIN A COMPLETE MYSTERY TO ME, MASTER;" 4270 PRINT "CAN YOU PLEASE GIVE ME THAT FIGURE AGAIN?" 4280 LET E9=E9+INT(.5+RND(Q9+E9)) 4290 GOTO 4230 4300 IF I>=A1 THEN 4430 4310 PRINT "THOU, MASTER, ART TRULY AFRAID OF THE MIGHTY PSSSTOCKS" 4320 IF I=0 THEN 4400 4330 PRINT "HOWEVER THOU HAST A MERE";I;" BUSHELS" 4340 PRINT "REPOSING IN A CORNER OF YOUR STOREHOUSE..." 4350 PRINT "I SHALL PRESUME UPON YOUR DESIRE TO BLOW IT ALL ON THE OUTER" 4360 PRINT "WALLS, RATHER THAN LET IT FALL INTO THE HANDS OF THE ENEMY." 4370 LET A1=I 4380 LET I=0 4390 GOTO 4440 4400 PRINT "BUT THIS YEAR THY FEARS ARE UNFOUNDED;" 4410 PRINT "FOR THOU HAST LEFT NO GRAIN IN THE STOREHOUSE FOR THE THIEVES." 4420 GOTO 4370 4430 LET I=I-A1 4440 IF E2=0 THEN 4530 4450 LET J=RND(0) 4460 IF J>.5 THEN 4490 4470 LET J=1-J 4480 REM ...CALC. CHANCE OF SURVIVING NEXT YR. WITH CONTRIB. OF E1 4490 IF R9<.5 THEN 4510 4500 IF 2.5*J+E1/P+P/40>3 THEN 4530 4510 LET E2=2 4520 REM ...CALC. HARVEST 4530 LET J=RND(0) 4540 LET N2=3.5*J+1.5 4550 LET N3=INT(N2*N1) 4560 IF Q9<150 THEN 4580 4570 LET N3=N3*((150*150)/(Q9*Q9)) 4580 LET H3=N3 4590 IF W=0 THEN 4610 4600 LET N3=INT(H3/2) 4610 LET J=RND(0) 4620 REM ...CALCULATE N4: PSSSTOCK THEFT 4630 LET N4=I*I/(2*(I+A1+1))-A1*J+(N3-8*A1)/(10-N2-E9) 4640 IF N4>20 THEN 4660 4650 LET N4=0 4660 LET N4=INT(N4) 4670 LET I=I+N3-N4 4680 REM ...CALCULATE I1: NUMBER OF IMMIGRANTS 4690 LET I1=R9*(N5^2*SQR(A1+N9)/(A*P^1.5)-4*E9-2*E8) 4700 LET I1=INT(I1) 4710 IF I10 THEN 4850 4840 LET D=0 4850 IF P>D THEN 4910 4860 LET D=(P-1)*(5+J+E9)/(6+E9) 4870 PRINT "UNDER YOUR RULE, MASTER, YOUR PEOPLE ARE FAST SICKENING" 4880 IF E8<2 THEN 4910 4890 PRINT "AND THE INTELLIGENTSIA ARE COMMITTING SUICIDE;" 4900 PRINT "RATHER THAN SUFFER THE RESULTS OF YOUR MISTAKES" 4910 LET D=INT(D) 4920 LET P=P-D+I1 4930 REM ...CALC. PRICE OF LAND 4940 LET J=RND(0)*J 4950 LET N6=11*J+11 4960 LET N6=INT(N6) 4970 PRINT 4980 PRINT " (A YEAR PASSETH.....)" 4990 PRINT 5000 LET R=R+1 5010 GOTO 1160 5020 REM ...SUBROUTINE TO READ ONE BUDGET FIGURE 5030 INPUT "---=>",B 5040 LET Q=INT(B) 5050 IF Q=B THEN 5100 5060 PRINT "LAND O'GOSHEN,MASTER, FRACTIONS MY POOR LITTLE CPU REELS" 5070 PRINT "PLEASE GIVE ME THAT NUMBER AGAIN, OH GREAT ONE" 5080 LET E9=E9+INT(.5+RND(Q9+E9)) 5090 GOTO 5030 5100 IF Q=-73 THEN 5570 5110 RETURN 5120 REM ...SUBROUTINE TO DEDUCT 10% OF STOREHOUSE GRAIN FOR SILLY MISTAKES 5130 LET I5=I/10 5140 LET I5=INT(I5) 5150 PRINT "FOR A GIFT OF BUT";I5;" BUSHELS, I GUARANTEE THAT NO-ONE SHALL" 5160 PRINT "EXPOSE YOUR STUPIDITY BEFORE THE POPULACE." 5170 PRINT 5180 REM ... 5190 LET I=I-I5 5200 PRINT "THANK YOU, SIRE. NOW, PRAY TELL ME AGAIN;" 5210 RETURN 5220 PRINT "HONOURED MASTER, I AND YOUR";P;" LOYAL SUBJECTS;" 5230 IF D9<12*Y THEN 5260 5240 PRINT "HAVING SUFFERED FOR";R;" YEARS UNDER YOUR REIGN;" 5250 GOTO 5270 5260 PRINT "HAVING PROSPERED FOR";R;" YEARS UNDER YOUR REIGN;" 5270 PRINT "HAVE ALL DECIDED TO EMIGRATE AND JOIN THE" 5280 IF P>50 THEN 5310 5290 PRINT "JANITORIAL DEPARTMENT" 5300 GOTO 5320 5310 PRINT "RESEARCH AND DEVELOPMENT DEPARTMENT" 5320 PRINT "THAT WE MIGHT LEARN TO BE AS WISE AS THEE..." 5330 PRINT 5340 GOSUB 5580 5350 PRINT 5360 PRINT "FAREWELL" 5370 PRINT : PAUSE 100 5380 PRINT 5390 PRINT "SCORE BREAKDOWN" 5400 PRINT "---------------" 5410 PRINT 5420 LET C1=INT(P*.8+.5)-22 5430 PRINT "POPULATION";C1 5440 LET C2=INT(I/40+0.5) 5450 PRINT "GRAIN ";C2 5460 LET C3=INT(N5/20+0.5) 5470 LET C4=-INT(E8/2+0.5) 5480 PRINT "HUNGER ";-INT(G1*9+0.5) 5490 PRINT "YEARS ";-INT(Y*4+0.5)+36 5500 PRINT "HARVEST ";-INT((G2/(R+1))*3+0.5)+7 5510 PRINT "FLOP ";-INT(F3*50+0.5) 5520 PRINT "DEATHS ";-INT((D9/(R+1))*1.5+0.5)+10 5530 PRINT "---------- ---" 5540 PRINT "TOTAL ";INT(S) 5550 PRINT 5560 LET J=RND(0)*J 5570 GOTO 5640 5580 LET S=P*.8+I/40+N5/20-E8/2-G1*9-Y*4-(G2/(R+1))*3-F3*50-(D9/(R+1))*1.5+8 5590 FOR X=1 TO 8 5600 IF S