0 REM  -----------------------------
1 REM  -----------------------------
2 REM  ----                     ----
3 REM  ---- DOMINIK EISELE      ----
4 REM  ----                     ----
5 REM  ---- ALFRED-KUBIN-STR.13 ----
6 REM  ----                     ----
7 REM  ---- 5090 LEVERKUSEN 1   ----
8 REM  ----                     ----
9 REM  ---- WEST GERMANY        ----
10 REM ----                     ----
11 REM ---- TEL.0214/94695      ----
12 REM ----                     ----
13 REM -----------------------------
14 REM -----------------------------
15 REM ^ REM-ZEILEN NICHT ABTIPPEN ^
16 REM -----------------------------
17 PRINT"[147][144]";:(null)0,11,6:(null)4,1,1:PRINTCHR$(8),CHR$(142)
18 PRINT"                            MUSIK VON   "
20 PRINT"[176][174][176][174][176][174]      [176][174][176][174][176][174]          GERALD      "
21 PRINT"[221][173][189][173][189][221]      [221][173][189][173][189][221]     [204][186]   HANISCH     "
22 PRINT"[202][201]  [213][203]      [202][201]  [213][203]     [221][221]               "
23 PRINT" [221] [187][221]        [221][172] [221]      [221][221]               "
24 PRINT" [221] [190][221][176][174][176][174][176][174][176][174][221][188] [221]    [206][205][221][221]      [206][205]    [206]  "
25 PRINT" [221]  [173][189][173][189][173][189][173][189][173][189]  [221][205]  [206]  [205][221] [206][205]  [206]  [205]  [206]   "
26 PRINT"[206][205] [221] [187]          [172] [221][221] [206]    [205][206]  [205] [221][182] [221] [206]  "
27 PRINT"[205][221] [190] [172]  [213][201]  [187] [188] [221][221][206]          [205][221]  [221][206]     "
28 PRINT" [221]   [188]  [203][202]  [190]   [171][203]    [176][174][176][174][176][174][176][174][221][182] [221][176][174]    "
29 PRINT" [221]              [221]     [221][173][189][173][189][173][189][173][189]  [173][189][221]    "
30 PRINT" [221]      [213][201]      [221]     [221] [172]  [172]  [172]  [172] [221]    "
31 PRINT" [221]    [213][201][221][221][213][201]    [221]     [221]        [213][201]  [221]    "
32 PRINT" [173][192][192][192][192][177][177][177][177][177][177][192][192][192][192][189]     [173][192][192][192][192][192][192][192][192][177][177][192][192][189]    "
97 PRINT"*DOMINIK EISELE* PRAESENTIERT :"
99 PRINT"[149]+                                      +"
100 PRINT" [166]  [166]  [166][166]  [166][166][166][166][166] [166]  [166] [166][166][166][166]  [166][166]  [166][166][166][166] [166][166] "
101 PRINT" [166]  [166] [166]  [166] [166] [166] [166] [166]  [166] [166]  [166] [166]  [166] [166][166] [166] [166][166] "
102 PRINT" [166][166][166][166] [166][166][166][166] [166] [166] [166] [166]  [166] [166][166][166][166] [166][166][166][166] [166][166][166][166] [166][166] "
103 PRINT" [166]  [166] [166]  [166] [166] [166] [166] [166]  [166] [166] [166]  [166]  [166] [166][166] [166] [166][166] "
104 PRINT" [166]  [166] [166]  [166] [166] [166] [166] [166][166][166][166] [166]  [166] [166]  [166] [166][166][166][166] [166][166] ";
105 PRINT"+                                      +[146]";
106 RESTORE 200
107 (null)8
108 (null)
109 READ X,Y
110 (null)1,X,Y:(null)0:FORT=1TO5:NEXTT:(null)8
111 (null) (null) X=0:GOTO 850
200 DATA 810,25,810,25,810,50,822,25,822,25,822,50,870,25,870,25,870,25
201 DATA 870,12,810,112,798,25,798,25,798,50,784,25,784,25,784,50,770,25,770,25
202 DATA 770,25,770,12,770,37,810,25,834,18,854,6,864,18,881,6,897,25,897,12
203 DATA 897,63,881,25,881,12,881,63,870,25,870,25,870,25,870,12,810,112
204 DATA 864,25,864,25,881,25,881,25,897,25,897,12,870,38,870,25,897,11,897,11
205 DATA 897,11,897,11,881,25,881,25,864,25,810,12,864,62,1,1,0,0
850 GETR$:IFR$="+" THEN (null)8:(null)1,810,20:GOTO 860
855 GOTO 850
860 KA=15000:AA=0:BG=23000:EW=INT(257*RND(1))+500:LB=10000:JA=1:MP=0:KK=0:GM=0
870 KR=INT(10000*RND(1))+60000:BJ=0:MP=1:BB=0
871 PRINT"[147]ALTES SPIEL LADEN ?"
872 PRINT"(J/N)"
873 GETD$:IFD$="J"THEN(null)8:GOTO 15000
876 IFD$="N" THEN (null)8:(null)1,810,20:GOTO890
877 GOTO 873
890 GOSUB 1000
900 GOTO 890
1000 (null) 4,1,7:(null)0,1,1:PRINT"[147]"
1004 GOSUB 3000
1005 GOSUB 2000
1006 PRINT"[147]"KR"[158]SCHEFFEL KORN WERDEN ANGEBOTEN"
1007 PRINT"[158]ERNTEERTRAEGE :"INT(EE)"SCHEFFEL"
1008 PRINTVK"[158]% EURER KORNRESERVEN SIND VERFAULT"
1009 GOSUB 3000
1010 BK=EW*9
1011 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]";
1012 PRINT"[158]KORNRESERVEN (SCHEFFEL) --- [155]";INT(KA)
1020 PRINT"[158]BENOETIGTES KORN        --- [155]";INT(BK)
1030 PRINT"[158]KORNPREIS (TALER)       --- [155]";INT(KP)
1040 PRINT"[158]LANDPREIS (TALER)       --- [155]";INT(LP)
1050 PRINT"[158]LANDBESITZ (HEKTAR)     --- [155]";INT(LB)
1060 PRINT"[158]BARGELD (TALER)         --- [155]";INT(BG)
1070 PRINT"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][153]";
1081 PRINT"1 ----- KORN KAUFEN    -----  [207][183][183][183][183][183][183][183][183][183]";
1082 PRINT"2 ----- KORN VERKAUFEN -----  [180]WEITER  "
1083 PRINT"3 ----- LAND KAUFEN    -----  [180]MIT"CHR$(130)" [151]SPACE[153][146]"
1084 PRINT"4 ----- LAND VERKAUFEN -----  [204][175][175][175][175][175][175][175][175][175]";
1088 GET A$:IFA$=" " THEN (null)8:(null)1,900,10:GOTO 9000
1089 IFA$="1" THEN (null)8:(null)1,100,10:GOTO 5000
1090 IFA$="2" THEN (null)8:(null)1,150,10:GOTO 6000
1091 IFA$="3" THEN (null)8:(null)1,250,10:GOTO 7000
1092 IFA$="4" THEN (null)8:(null)1,340,10:GOTO 8000
1093 GOTO 1088
1100 RETURN
2000 REM --- KORNRESERVEN ---
2010 K1=KA/100
2015 VK=INT(100*RND(1))
2020 KO=K1*VK
2030 KA=KA-KO
2035 IF KA<=0 THEN KA=0
2040 RETURN
3000 IF BB=1 THEN PRINTW$:RETURN
3005 KP=INT(370*RND(1))+119
3010 IF KP<192 THEN W$=" TOLLES WETTER      SEHR REICHE ERNTE":HL=2
3020 IF KP>=192 AND KP<284THENW$=" GUTES WETTER        GEWOEHNLICHE ERNTE":HL=3
3030 IF KP>=284 AND KP<380 THEN W$=" REGEN            SCHLECHTE ERNTE":HL=4
3040 IF KP>=380 THEN W$=" DUERRE         HUNGERSNOT DROHT":HL=5
3050 LP=INT(70*RND(1))+19
3100 BB=1:RETURN
5000 INPUT"WIEVIEL KORN WOLLT IHR KAUFEN";KM
5001 IFAA=1ANDKR<=0THENPRINT"IHR BEKOMMT NUN KEIN KORN MEHR !!!!!![146]":GOTO 5010
5003 IF KR<=0 THEN KR=0
5005 IF KM<0 THEN 1006
5006 IFKM>KRTHENGOTO 5050
5007 KA=KA+KM:KR=KR-KM:BG=BG-KM*KP/1000
5010 (null)8:(null)1,900,15:FORT=1TO500:NEXTT
5020 GOTO 1006
5050 PRINT"SO VIEL KORN WIRD NICHT ANGEBOTEN ![146]":AA=1:GOTO5010
6000 INPUT"WIEVIEL KORN WOLLT IHR VERKAUFEN";KV
6010 IF KV>KA THEN PRINT"IHR HABT NICHT SO VIEL KORN !!![146]":GOTO 5010
6020 IF KV<0 THEN 1006
6035 KR=KR+KV:KA=KA-KV:BG=BG+KV*KP/1000
6040 GOTO 5010
7000 INPUT"WIEVIEL LAND WOLLT IHR KAUFEN";LW
7010 BG=BG-LW*LP/10
7020 LB=LB+LW
7025 IF LW<0 THEN 1006
7030 (null)8:(null)1,900,15:FORT=1TO500:NEXTT
7040 RETURN
8000 INPUT"WIEVIEL LAND WOLLT IHR VERKAUFEN";LV
8005 IF LV>LB THEN PRINT"SO VIEL LAND HABT IHR NICHT !!![146]":GOTO 7030
8010 BG=BG+LP*LV/10
8020 IF LV<0 THEN 1006
8030 LB=LB-LV
8040 GOTO 7030
9000 PRINT"[147]":(null) 0,1,1:(null)4,11,1
9005 PRINT"KORNVERTEILUNG"
9010 PRINT"O HAMURABI VON BABYLON ICH FRAGE"
9020 PRINT"EUCH, WIEVIEL KORN WOLLT IHR DEN"
9022 PRINT"HUNGERNDEN ZUR VERFUEGUNG STELLEN?"
9025 PRINT"IHR BESIZT"INT(KA)"SCHEFFEL KORN"
9026 PRINT"DIE BENOETIGTE KORNMENGE IST"INT(BK)
9027 PRINT"DIE EINWOHNERZAHL BETRAEGT"EW
9030 INPUT"BETRAG ";VS
9032 IF VS>KA THEN (null)8:(null)1,150,15:GOTO9000
9033 IF VS<0 THEN (null)8:(null)1,150,15:GOTO 9000
9035 KA=KA-VS
9040 VR=INT(VS/EW):TW=EW
9050 (null)8:(null)1,350,15:GOSUB 9500
9055 PRINT"WEITER MIT"CHR$(130)" SPACE[146]"
9070 GETS$:IFS$=" " THEN (null)8:(null)1,900,15:GOTO 9100
9080 GOTO 9070
9100 PRINT"[147]":(null)0,11,4:(null)4,11,6
9101 PRINT"O HAMURABI VON BABYLON"
9102 PRINT"ICH BERICHTE EUCH UEBER EURE STADT..    "
9103 PRINT"JAHR"JA
9105 PRINT""INT(TW)" [144]EINWOHNER SIND VERHUNGERT."
9110 IFSS=1 THEN PRINT""ZW"[144]EINWOHNER SIND ZUGEWANDERT"
9120 AG=INT(47*RND(1))+20
9130 PRINT"[158]"INT(AG)" [144]EINWOHNER WURDEN GEBOREN."
9140 AT=INT(47*RND(1))+20
9150 PRINT"[158]"INT(AT)" [144]EINWOHNER SIND IM ALTER GESTORBEN":EW=EW+AG-AT+ZW-TW
9151 PRINT"[158]EURE MARKTPLAETZE BRACHTEN"INT(MP*495):BG=BG+INT(MP*495)
9152 PRINT"[158]EURE KORNMUEHLEN BRACHTEN"INT(KK*589):BG=BG+INT(KK*589)
9153 PRINT"[158]EURE GR. KORNMUEHLEN BRACHTEN"INT(GM*678):BG=BG+(GM*678)
9154 PRINT"[144](ANGABEN IN TALERN)[158]"
9155 SV=SV+EW*2:IF SV<0 THEN SV=0
9156 PRINT"DAS VOLK ZAHLTE"SV"TALER STEUERN."
9157 BG=BG+SV
9158 SV=0
9160 PRINT"[144]WEITER MIT"CHR$(130)" SPACE[146]"
9170 GETC$:IFC$=" " THEN (null)8:(null)1,900,15:GOTO 17000
9180 GOTO 9170
9200 GOTO 10000
9500 FOR R=1 TO 8
9510 IF VR<=R THEN EW=INT(EW-(TW/(R+R))):TW=TW-EW:RETURN
9520 NEXTR
9530 IF VR=>9 ANDVR<=25THEN TW=0:RETURN
9540 FOR R=26 TO 20000
9550 IFR=VRTHEN ZW=INT((TW*(R/2))/98):EW=INT(EW+(TW*(R/2))/98):TW=0:SS=1:RETURN
9560 NEXTR
9600 RETURN
9700 PRINT"[147]":(null) 0,1,1:(null) 4,11,2
9705 PRINT"EINSAEHEN"
9710 PRINT"WEITERHIN O HAMURABI FRAGE ICH EUCH :"
9720 PRINT"WIEVIEL LAND WOLLT IHR EINSAEEN ?"
9730 PRINT"IHR BESIZT"LB"HEKTAR LAND."
9740 PRINT"IHR HABT"INT(BG)"TALER."
9745 PRINT"DAS EINSAEEN PRO HEKTAR LAND"
9746 PRINT"KOSTET"HL"TALER."
9750 INPUT"(HEKTAR) ";ES
9760 IF ES>LB THEN (null)8:(null)1,150,15:GOTO9700
9770 IF ES<0 THEN (null)8:(null)1,150,15:GOTO9700
9775 ZF=INT(24*RND(1))+72
9780 BG=INT(BG-HL*ES):KA=KA+(ES/HL)*ZF:EE=INT((ES/HL)*ZF):(null)8:(null)1,350,15
9785 PRINT"WEITER MIT"CHR$(130)" SPACE[146]"
9795 GETR$:IFR$=" " THEN (null)8:(null)1,900,15:GOTO 9800
9796 GOTO 9795
9800 PRINT"[147][144]":(null) 0,12,4:(null)4,1,4
9810 PRINT"O EDLER HAMURABI,"
9820 PRINT"UM DIE STAATSKASSE AUFZUBESSERN,"
9830 PRINT"WAERE ES VON VORTEIL EINNAHMEQUELLEN"
9840 PRINT"ZU ERRICHTEN."
9850 PRINT"EURE WAHL :"
9860 IFLB/(MP+KK+GM)<1000THENPRINT"IHR BENOETIGT MEHR BAULAND![146]":GOTO 9990
9959 PRINT"TALER"BG
9960 INPUT"WIEVIEL MARKTPLAETZE - 2000 TALER";TM
9961 MP=MP+TM
9962 BG=BG-TM*2000
9965 (null)8:(null)1,180,15
9969 PRINT"TALER"BG
9970 INPUT"WIEVIEL KORNMUEHLEN  - 3000 TALER";TK
9971 KK=KK+TK
9972 BG=BG-TK*3000
9975 (null)8:(null)1,250,15
9979 PRINT"TALER"BG
9980 INPUT"WIEVIEL GROSSE MUEHLEN - 5000 TALER";TG
9981 GM=GM+TG
9982 BG=BG-TG*5000
9985 (null)8:(null)1,300,15
9986 PRINT"TALER"BG
9990 KR=INT(10000*RND(1))+60000
9991 IF BG<0 THEN BJ=BJ+BG
9992 IF BJ<-90000 THEN 10000
9993 IF EW<500 THEN 10000
9994 IF JA=65 THEN 12000
9995 PRINT"S=SAVEN![146]"
9996 PRINT"WEITER MIT"CHR$(130)" SPACE[146]"
9997 IFR$="S" THEN BB=0:AA=0:SS=0:JA=JA+1:GOSUB 16000
9998 GETR$:IFR$=" " THEN BB=0:AA=0:SS=0:JA=JA+1:(null)8:(null)1,900,15:GOTO1000
9999 GOTO 9997
10000 FORT=1TO2000:NEXTT:PRINT"[147]":(null)0,1,1:(null)4,1,1
10005 PRINT"HAMURABI ICH MUSS EUCH SAGEN,DASS IHR"
10010 PRINT"EIN SCHLECHTER HERRSCHER WART."
10020 PRINT"EUER VOLK ZAEHLTE NACH"JA"JAHREN"
10030 PRINT""EW"MENSCHEN."
10040 PRINT"EUER LAND WAR"LB"HEKTAR GROSS UND"
10050 PRINT"EURE SCHATZKAMMER WAR MIT"
10060 PRINT""BG"TALERN GEFUELLT."
10070 PRINT"DOCH SCHAETZT EURE FAEHIGKEITEN SELBST"
10080 PRINT"EIN UND UEBERLEGT OB FUER EUCH EINE"
10090 PRINT"WIEDERWAHL IN FRAGE KOMMT....."
10095 GOSUB10500
10100 PRINT"(J[146]A/N[146]EIN)"
10110 GETF$:IFF$="J" THEN (null)8:(null)1,700,20:RUN
10120 IFF$="N" THEN (null)8:(null)1,200,20:PRINT"[147]":GOTO 13000
10130 GOTO10110
10500 RESTORE 10510
10505 (null)8
10510 (null)
10515 READ X,Y
10516 (null)1,X,Y:(null)0:FORT=1TO5:NEXTT:(null)8
10517 (null) (null) X=0:RETURN
10518 DATA 453,60,453,45,453,15,453,60
10519 DATA 488,45,345,15,453,45,345,15,453,45,345,15,453,120,1,1,0,0
12000 FORT=1TO2000:NEXTT:PRINT"[147]":(null)0,1,1:(null)4,1,1
12010 PRINT"HAMURABI VON BABYLON ICH SAGE EUCH"
12020 PRINT"NACHDEM IHR 65 JAHRE LANG DER STADT"
12030 PRINT"VORGESTANDEN HABT WIRD ES NUN"
12040 PRINT"SCHWER SEIN EINEN EBENBUERTIGEN"
12050 PRINT"NACHFOLGER ZU FINDEN."
12060 PRINT"IHR WART SEIT JAHRHUNDERTEN DER BESTE"
12065 PRINT"HERRSCHER UEBER B A B Y L O N !!!!!"
12070 PRINT"LANDBESITZ :"LB"HEKTAR."
12080 PRINT"BARGELD    :"BG"TALER."
12090 PRINT"EINWOHNER  :"EW
12091 GOSUB12500
12095 PRINT"SPACE[146] DRUECKEN..."
12100 GETAA$:IFAA$=" "THEN PRINT"[147]":(null)1,300,20:GOTO13000
12110 GOTO12100
12500 RESTORE12520:(null)8
12510 (null)
12515 READ X,Y
12516 (null)1,X,Y:(null)0:FORT=1TO4:NEXTT:(null)8
12517 (null) (null) X=0:RETURN
12520 DATA 596,20,596,20,704,20,739,20,770,40,704,10,685,10,643,20,784,20
12521 DATA 784,20,784,40,770,10,784,10,810,30,704,10,704,20,704,20,685,20
12522 DATA 704,20,739,100,596,10,596,10,596,20,704,20,739,20,770,40,704,10
12523 DATA 685,10,643,20,784,20,784,20,784,40,784,10,784,10,770,30,739,10,704,20
12524 DATA 596,20,685,20,739,20,704,100,810,20,834,20,834,20,834,20,834,20
12525 DATA 854,30,864,10,810,20,810,20,810,20,770,40,810,10,810,10,864,30
12526 DATA 810,10,810,20,810,20,784,20,770,20,739,100,810,10,810,10,834,20
12527 DATA 834,20,834,20,834,20,854,20,864,20,810,30,810,10,810,20,770,40
12528 DATA 810,10,810,10,864,30,810,10,810,20,810,20,784,20,770,20,810,100
12529 DATA 1,1,0,0
12590 END
13000 PRINT"!SPIELENDE![146]":FORT=1TO60:NEXTT:GOTO13000
14000 END
15000 REM --- LADEN ---
15010 OPEN 2,8,2,"0:HAM.SEQ.,S,R":OPEN15,8,15:INPUT#15,EN,EM$,ET,ES
15020 INPUT#2,AA,BB,BG,EE,EW,GM
15030 INPUT#2,JA,KA,KK,LB,MP,SS
15040 PRINT""
15041 IF EM$="OK"THENPRINT"OK":CLOSE2,8,2:CLOSE15:FORT=1TO1000:NEXTT:EM$="":GOTO 890
15042 IFEM$<>"OK"THENPRINT"DISK ERROR":CLOSE2:CLOSE15:FORT=1TO1000:NEXT:GOTO871
16000 REM --- SAVEN ---
16005 OPEN 2,8,2,"@:HAM.SEQ.,S,W"
16010 PRINT#2,AA:PRINT#2,BB:PRINT#2,BG:PRINT#2,EE:PRINT#2,EW:PRINT#2,GM
16020 PRINT#2,JA:PRINT#2,KA:PRINT#2,KK:PRINT#2,LB:PRINT#2,MP:PRINT#2,SS
16030 CLOSE2,8,2:PRINT""DS$:RETURN
17000 PRINT"[147]":(null) 0,1,1:(null)4,1,1
17005 (null)8:(null)1,400,60:FORT=1TO5:NEXTT:(null)1,500,70
17010 PRINT"WEITERHIN EREIGNETE SICH IN DIESEM JAHR:"
17022 PP=INT(8*RND(1))+1
17030 IF PP=1THEN PRINT"EURE FEINDE NAHMEN EUCH BEI EINEM":LB=LB-1000
17031 IFPP=1THENPRINT"RAUBZUG 1000 HEKTAR DES LANDES.":GOTO17090
17040 IFPP=2THENPRINT"EINE HUNGERSNOT BEDROHTE EURE BUERGER":EW=EW-50
17041 IFPP=2THENPRINT"UND NAHM EUCH WEITERE 50 EINWOHNER.":GOTO17090
17050 IFPP=3THENPRINT"DIE PEST ZOG UEBER DIE STADT UND NAHM":EW=EW-40
17051 IFPP=3THENPRINT"EUCH 40 STEUERZAHLER.":GOTO 17090
17060 IFPP=4THENPRINT"EIN SANDSTURM VERWUESTETE DIE STADT.":BG=BG-5000
17061 IFPP=4THENPRINT"FUER EINE SAEUBERUNG ZAHLT 5000 TALER.":GOTO 17090
17070 IFPP=5THENPRINT"IHR HABT DURCH EINE GEWONNENE SCHLACHT":LB=LB+1500
17071 IFPP=5THENPRINT"1500 HEKTAR LAND DAZU BEKOMMEN.":GOTO 17090
17080 IFPP>5THENPRINT"IHR HABT GLUECK,ES GESCHAH NICHTS"
17081 IFPP>5THENPRINT"BESONDERES.":GOTO 17090
17090 PRINT"WEITER MIT"CHR$(130)" SPACE[146]"
17091 GETC$:IFC$=" " THEN (null)8:(null)1,900,15:GOTO 9700
17092 GOTO 17091
18000 END