50 PRINT "ALL CAPITAL LETTERS MUST BE USED, PRESS CAPS LOCK KEY."
70 PRINT
100 PRINT "YOU ARE THE RULER OF THE ANCIENT KINGDOM OF SUMERIA."
101 PRINT "YOUR PEOPLE CALL YOU 'HAMURABI THE WISE'. YOUR TASK IS"
102 PRINT "TO DEVELOP A STABLE ECONOMY BY THE WISE MANAGEMENT OF"
103 PRINT "YOUR RESOURCES. YOU WILL BE BESET FROM TIME TO TIME"
104 PRINT "BY NATURAL EVENTS. THE ONLY HELP I CAN GIVE YOU IS THE "
105 PRINT "FACT THAT IT TAKES 2 BUSHELS OF GRAIN AS SEED TO PLANT"
106 PRINT "AN ACRE. MAY YOU JUDGE WELL, ALKNOWING HAMURABI."
107 PRINT "***********HAMURABI IS HERE***********"
108 RANDOMIZE TIMER
110 P=95
111 S=2800
112 H=3000
113 E=H-S
114 Y=3
115 A=H/Y
116 I=5
117 Q=1
210 D=0
215 PRINT
217 PRINT "LAST YEAR ";D;" PEOPLE STARVED, ";I;" CAME TO THE CITY"
218 P=P+I
227 IF Q>0 THEN GOTO 230
228 P=INT(P/2)
229 PRINT "HALF DIED OF THE PLAGUE"
230 PRINT "POPULATION IS NOW ";P
232 PRINT "CITY OWNS ";A;" ACRES, ";Y;" BUSHELS HARVESTED PER ACRE"
250 PRINT "RATS DESTROYED ";E;" BUSHELS. ";S;" BUSHELS IN STORE"
260 PRINT "DO YOU WISH TO ABDICATE ";
270 INPUT B$:PRINT
280 IF B$="NO" THEN GOTO 310
285 IF B$<>"YES" THEN GOTO 260
290 STOP
310 C=INT(10*RND)
311 Y=C+17
312 PRINT "LAND COST ";Y;" BUSHELS PER ACRE"
320 PRINT "BUY";
321 INPUT Q
322 IF Y*Q=10*P THEN GOTO 452
510 S=S-INT(D/2)
511 GOSUB 800
512 Y=C
513 H=D*Y
520 E=0
521 GOSUB 800
522 IF INT(C/2)<>C/2 THEN GOTO 530
523 E=INT(S/C)
530 S=S-E+H
531 GOSUB 800
532 I=INT(C*(20*A+S)/P/100+1)
540 C=INT(Q/20)
541 Q=INT(10*(2*RND-1))
550 IF P