10 REM THE SUMER GAME (HAMURABI)
20 REM NICHT OPTIMIERTE 1:1-UEBERSETZUNG DES FOCAL-PROGRAMMS
30 REM  DECUS LIBRARY NR. 5
40 REM ERWEITERUNG MIT VARIABLEN SD SE SH EP ZUR GESAMTAUSWERTUNG
1100 P=95:S=2800:H=3000:E=200:Y=3:A=1000:I=5:Q=1
1102 T=0:SD=0:SE=0:SH=0:EP=0
2000 GOTO 2100
2100 D=0
2200 GOSUB 6000:PRINT"LASS MICH, OH MEIN GEBIETER, DAMIT"
2201 T=T+1
2202 PRINT"BEGINNEN, DASS IM",T,". JAHRE",D
2204 PRINT "DES HUNGERS STARBEN,",:SD=SD+D
2206 PRINT"(INSGESAMT ",SD,")"
2250 PRINT I,"LEUTE KAMEN DAZU,":P=INT(P+I+.5)
2252 IF Q>0 THEN GOTO 2300
2270 P=INT(P/2+.5):PRINT"DIE HAELFTE DES VOLKES STARB AN DER PEST."
2300 PRINT"UND ES LEBEN JETZT",P," SUMERER IN DER STADT."
2302 PRINT"DER STADT GEHOEREN",
2350 PRINT A," MORGEN LAND.":IF H<1 GOTO 2500
2352 PRINT"WIR ERNTETEN",
2400 GOSUB 13200:PRINT"DIE ERNTE BETRUG",H," PUD.":SH=SH+H
2402 PRINT E,:SE=SE+E
2500 PRINT" PUD GETREIDE WURDEN VON DEN RATTEN GEFRESSEN,"
2502 PRINT"SO HABEN WIR NOCH",
2600 S=INT(S+.5):PRINT S," PUD IM SPEICHER."
2602 PRINT"GERUHST DU, OH HERRSCHER, WEITERZUREGIEREN? "
2700 INPUT"(JA ODER NEIN)";Q$:IF Q$ = "NEIN" THEN 7400
2800 IF Q$="JA"THEN 3100 ELSE 2700
3000 GOTO 3100
3100 GOSUB 6000:GOSUB 8000:Y = C+17
3102 PRINT"IN DIESEM JAHRE BETRAEGT DER BODENPREIS",
3200 GOSUB 13200
3300 INPUT"WIEVIEL MORGEN GERUHST DU ZU KAUFEN";Q
3302 IF Q<0 THEN 7200
3304 IF Q=0 THEN 3800
3400 IF(Y*Q-S)<0 GOTO 3900
3402 IF(Y*Q-S)=0 GOTO 3600
3404 GOSUB 14600:GOTO 3300
3500 GOSUB 14500:GOTO 3300
3600 GOSUB 13900:GOTO 4800
3700 A=A+Q:S=S-Y*Q:C=0
3800 INPUT"ZU VERKAUFEN";Q:IF Q < 0 GOTO 2700
3802 IF Q=0 GOTO 3900
3804 Q=-Q:IF (A+Q) < 0 GOTO 3500
3900 GOSUB 13900
4000 GOTO 4100
4100 PRINT"WIEVIEL PUD GETREIDE WUENSCHST DU ZU VERTEILEN"
4110 INPUT"ALS NAHRUNG";Q:IF Q < 0 GOTO 7200
4112 IF (Q-S) < 0 GOTO 4200
4114 IF (Q-S)=0 GOTO 4700
4116 GOSUB 14600:GOTO 4100
4200 GOSUB 14200
4300 INPUT"WIEVIEL MORGEN SOLLEN BESAET WERDEN";D
4400 IF D<0 GOTO 7200
4402 IF A<D GOTO 4450
4404 IF INT(D/2-S-1)<0 GOTO 4650
4406 GOSUB 14600:GOTO 4300
4450 GOSUB 14500:GOTO 4300
4500 GOSUB 14500
4600 GOSUB 14600
4650 IF (D-10*P-1) < 0 GOTO 5100
4652 GOSUB 7000:PRINT P," MENSCHEN.":GOTO 4300
4700 GOSUB 14200
4800 GOSUB 6000:PRINT"DU HAST KEIN KORN IM SPEICHER GELASSEN,"
4900 PRINT "ES IST KEIN SAATGUT VORHANDEN.":D=0
5000 GOTO 5100
5100 S=S-INT(D/2):GOSUB 8000:Y=C:H=D*Y
5200 GOSUB 8000:E=0:IF (INT((C/2)-C/2)) < 0 GOTO 5300
5202 E=S/C
5300 S=S-E+H:GOSUB 8000:I=INT(C*(20*A+S)/P/100+1):C=INT(Q/20)
5400 Q=INT(10*RND(1)):IF P-C < 0 GOTO 2100
5402 D=P-C:P=C:GOTO 2200
6000 GOTO 6100
6100 PRINT:PRINT "HAMURABI:"
6999 RETURN
7000 GOTO 7100
7100 IF C<0 GOTO 7200
7101 C=C-1:GOSUB 6000
7102 PRINT"BEDENKE, O HERR, ES SIND NUR":RETURN
7200 PRINT "ICH STREIKE, MEIN GEBIETER!"
7300 PRINT" SUCHE DIR EINEN ANDEREN DIENER!"
7400 EP=100*SE/SH
7402 PRINT"IN",T," JAHREN DER HERRSCHAFT HAST DU",SD," MENSCHEN"
7404 PRINT"VERHUNGERN LASSEN UND",SE," PUD GETREIDE AN"
7406 PRINT"DIE RATTEN VERFUETTERT, DAS SIND",EP," PROZENT DES
7408 PRINT"GEERNTETEN GETREIDES.
7410 PRINT"                                SALAAM ALEIKUM":END
8000 GOTO 8100
8100 C=INT(5*RND(1))+1
8999 RETURN
13200 PRINT Y," PUD JE MORGEN;":C=1:RETURN
13900 A=A+Q:S=S-Y*Q:C=0:RETURN
14200 S=S-Q:C=1:RETURN
14500 GOSUB 7000:PRINT A," MORGEN.":RETURN
14600 GOSUB 7000:PRINT S," PUD IM SPEICHER.":RETURN
TURN
14200 S=S-Q:C=1:RETURN
14500 GOSUB 7000:P