7 PRINTUSING"Population ####. City owns #### acres.";P,A:PRINTUSING"Harvest was # bu/Ac - Rats ate #### bu";Y,E:PRINTUSING"You have #####, bushels in storage. ";S:IFZ=11THENINPUT"Press enter";Z$:GOTO34
8 Y=INT(10*RND(1))+17:PRINT"Land is selling at";Y;"bushels per acre"
9 PRINT@240,"";:INPUT"How many acres will you buy";Q:IF Q<0 THEN 33
10 IF Y*Q<=S THEN 11ELSEGOSUB30:GOTO9
11 IFQ=0THEN12ELSEA=A+Q:S=S-Y*Q:C=0:GOTO 15
12 GOSUB44:INPUT"How many do you wish to sell";Q:IFQ<0THEN33
13 IFA<=QTHENGOSUB31:GOTO12
14 A=A-Q:S=S+Y*Q:C=0
15 GOSUB44:INPUT"How many will you feed the people";Q:IFQ<0THEN33
16 IFQ>STHENGOSUB30:GOTO15
17 S=S-Q:C=1
18 PRINT@240,STRING$(79,32);:PRINT@240,"";:INPUT"How many do you wish to plant";D:IF D<0THEN 33ELSEIFD=0THEN23
19 IFD>ATHENGOSUB31:GOTO18
20 IFINT((D+1)/2)>STHENGOSUB30:GOTO18
21 IFD<=10*PTHEN23
22 PRINT@280,"There're only";P;"to tend the fields !";:GOSUB43:GOTO18
29 PRINT"Due to this extreme mismanagement you have not only been impeached, but shall he hung at noon!!":GOTO 41
30 PRINT@280,"Hammurabi, Think again";:GOSUB43:PRINT@280,"You only have";S;"bushels of grain";:GOSUB43:RETURN
31 PRINT@280,"But sir! You only have";A;"acres!";:GOSUB43:RETURN
32 C=INT(RND(1)*5)+1:RETURN
33 PRINT"Hammurabi ! I cannot do as you wish":GOTO41
34 CLS:PRINT"In your 10 year term of office":PRINTUSING"##.# percent of the population died ";P1:PRINTUSING"per year. A total of ### people died !!";D1:L=A/P:PRINT"You started with 10.0 acres per person":PRINTUSING"and ended with ##.#";L
35 IF P1>33 OR L<7 THEN 29
36 IF P1>10 OR L<9 THEN 39
37 IF P1>3 OR L<10 THEN 40
38 PRINT"Fantastic performance !!!":GOTO41
39 PRINT"A Rather poor performance. You will be":PRINT"tarred & feathered on your way out":GOTO 41
40 PRINT"Your performance wasn't bad. You may":PRINT"get re-elected !!."