20) KING HAMMURABI (831 B)
To use: LOAD 8, RUN

10 REM
20 REM KING HAMMURABI
30 REM
40 LET A$="ACRES "
50 LET B$="BUSHELS "
60 LET M$="HOW MANY "
70 RANDOMISE
80 LET H=100
90 LET S=3000
100 LET A=1000
110 LET Y=0
120 PRINT "YOUR POPULATION: ";H
130 PRINT B$;"OF GRAIN: ";S
140 PRINT A$;"OF LAND: ";A
150 PRINT
160 LET L=5+RND(20)
170 PRINT "PRICE IS ";L;" ";B$;"PER ACRE"
180 PRINT M$;A$;"TO BUY? ";
190 INPUT V
200 IF V*L>S THEN LET V=S/L
210 PRINT V
220 IF V>0 THEN GOTO 280
230 PRINT M$;A$;"TO SELL? ";
240 INPUT V
250 IF V>A THEN LET V=A
260 PRINT V
270 LET V=-V
280 LET A=A+V
290 LET S=S-L*V
300 PRINT M$;B$;"FOR FOOD? ";
310 INPUT F
320 IF F>S THEN LET F=S
330 PRINT F
340 LET S=S-F
350 PRINT M$;B$;"FOR SEED? ";
360 INPUT P
370 IF P>S THEN LET P=S
380 LET S=S-P
390 IF P>2*A THEN LET P=2*A
400 IF P>25*H THEN LET P=25*H
410 LET R=RND(S/2)-1
420 LET C=RND(10*P)
430 LET S=S+C-R
440 LET D=H-F/10
450 IF D<1 THEN LET D=0
460 LET N=H/10+RND(H/10)-1
470 LET H=H-D+N
480 LET T=0
490 IF RND(6)=3 THEN LET T=H/8+RND(H/5)
500 LET H=H-T
510 CLS
520 LET Y=Y+1
530 PRINT "YEAR ";Y;" OF YOUR REIGN"
540 IF R>0 THEN PRINT "RATS ATE ";R;" ";B$
550 IF N>0 THEN PRINT N;" BABIES BORN"
560 IF D>0 THEN PRINT D;" PEOPLE STARVED"
570 IF T>0 THEN PRINT T;" DIED OF PLAGUE"
580 IF H>0 THEN GOTO 120
590 PRINT "GAME OVER"
600 STOP