100 C KING OF SUMERIA "HAMURABI" GAME; ORIGINAL DEC VERSION
 110 01.10 S P=95;S S=2800;S H=3000;S E=200;S Y=3;S A=1000;S I=5;S Q=1
 120 02.10 S D=0
 130 02.20 D 6;T !!!"LAST YEAR"!D," STARVED,
 140 02.25 T !I," ARRIVED,";S P=P+I;I (-Q)2.3
 150 02.27 S P=FITR(P/2);T !"**PLAGUE**"!
 160 02.30 T !"POPULATION IS"P,!!"THE CITY OWNS
 170 02.35 T A," ACRES."!!;I (H-1)2.5;T "WE HARVESTED
 180 02.40 D 3.2
 190 02.50 T !" RATS ATE "E," BUSHELS,YOU NOW HAVE
 200 02.60 T !S," BUSHELS IN STORE."!
 210 03.10 D 6;D 8;S Y=C+17;T "LAND IS TRADING AT
 220 03.20 T Y," BUSHELS PER ACRE;";S C=1
 230 03.30 D 4.3;A " BUY?"!Q;I (Q)7.2,3.8
 240 03.40 I (Y*Q-S)3.9,3.6;D 4.6;G 3.3
 250 03.50 D 4.5;G 3.3
 260 03.60 D 3.9;G 4.8
 270 03.70 S A=A+Q;S S=S-Y*Q;S C=0
 280 03.80 A !"TO SELL?"!Q;I (Q)7.2,3.9;S Q=-Q;I (A+Q)3.5
 290 03.90 S A=A+Q;S S=S-Y*Q;S C=0
 300 04.10 T !"BUSHELS TO USE
 310 04.11 A " AS FOOD?"!Q;I (Q)7.2;I (Q-S)4.2,4.7;D 4.6;G 4.1
 320 04.20 S S=S-Q;S C=1
 330 04.30 A !"HOW MANY ACRES OF LAND DO YOU WISH TO
 340 04.35 A !"PLANT WITH SEED? "D
 350 04.40 I (D)7.2;I (A-D)4.45;I (FITR(D/2)-S-1)4.65;D 4.6;G 4.3
 360 04.45 D 4.5;G 4.3
 370 04.50 D 7;T A," ACRES."!
 380 04.60 D 7;D 2.6
 390 04.65 I (D-10*P-1)5.1;D 7;T P," PEOPLE."!;G 4.3
 400 04.70 D 4.2
 410 04.80 D 6;T "YOU HAVE NO GRAIN LEFT AS SEED !!"!;S D=0
 420 05.10 S S=S-FITR(D/2);D 8;S Y=C;S H=D*Y
 430 05.20 D 8;S E=0;I (FITR(C/2)-C/2)5.3;S E=S/C
 440 05.30 S S=S-E+H;D 8;S I=FITR(C*(20*A+S)/P/100+1);S C=FITR(Q/20)
 450 05.40 S Q=FITR(10*FABS(FRAN()));I (P-C)2.1;S D=P-C;S P=C;G 2.2
 460 06.10 T !!"HAMURABI:  "%7
 470 07.10 I (C)7.2;S C=C-1;D 6;T "BUT YOU HAVE ONLY";R
 480 07.20 D 6;T !"GOODBYE!"!!;Q
 490 08.10 S C=FITR(5*FABS(FRAN()))+1