diff --git a/assets/hamurabi.bas b/assets/hamurabi.bas
new file mode 100644
index 0000000..3e7566f
--- /dev/null
+++ b/assets/hamurabi.bas
@@ -0,0 +1,160 @@
+10 PRINT SPC(32);"HAMURABI"
+20 PRINT SPC(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+30 PRINT
+31 PRINT
+32 PRINT
+80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA"
+90 PRINT "FOR A TEN-YEAR TERM OF OFFICE."
+91 PRINT
+95 D1=0
+96 P1=0
+100 Z=0
+101 P=95
+102 S=2800
+103 H=3000
+104 E=H-S
+110 Y=3
+111 A=H/Y
+112 I=5
+113 Q=1
+210 D=0
+215 PRINT
+216 PRINT
+217 PRINT "HAMURABI:  I BEG TO REPORT TO YOU,"
+218 Z=Z+1
+219 PRINT "IN YEAR ";Z;", ";D;" PEOPLE STARVED, ";I;" CAME TO THE CITY,"
+220 P=P+I
+227 IF Q>0 THEN GOTO 230
+228 P=INT(P/2)
+229 PRINT "A HORRIBLE PLAGUE STRUCK!  HALF THE PEOPLE DIED."
+230 PRINT "POPULATION IS NOW ";P
+232 PRINT "THE CITY NOW OWNS ";A;" ACRES."
+235 PRINT "YOU HARVESTED ";Y;" BUSHELS PER ACRE."
+250 PRINT "THE RATS ATE ";E;" BUSHELS."
+260 PRINT "YOU NOW HAVE ";S;" BUSHELS IN STORE."
+261 PRINT
+270 IF Z==11 THEN GOTO 860
+310 C=INT(10*RND(1))
+311 Y=C+17
+312 PRINT "LAND IS TRADING AT ";Y;" BUSHELS PER ACRE."
+320 PRINT "HOW MANY ACRES DO YOU WISH TO BUY";
+321 INPUT Q
+322 IF Q<0 THEN GOTO 850
+323 IF Y*Q<=S THEN GOTO 330
+324 GOSUB 710
+325 GOTO 320
+330 IF Q==0 THEN GOTO 340
+331 A=A+Q
+332 S=S-Y*Q
+333 C=0
+334 GOTO 400
+340 PRINT "HOW MANY ACRES DO YOU WISH TO SELL";
+341 INPUT Q
+342 IF Q<0 THEN GOTO 850
+343 IF Q<A THEN GOTO 350
+344 GOSUB 720
+345 GOTO 340
+350 A=A-Q
+351 S=S+Y*Q
+352 C=0
+400 PRINT
+410 PRINT "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE";
+411 INPUT Q
+412 IF Q<0 THEN GOTO 850
+418 REM *** TRYING TO USE MORE GRAIN THAN IS IN SILOS?
+420 IF Q<=S THEN GOTO 430
+421 GOSUB 710
+422 GOTO 410
+430 S=S-Q
+431 C=1
+432 PRINT
+440 PRINT "HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED";
+441 INPUT D
+442 IF D==0 THEN GOTO 511
+443 IF D<0 THEN GOTO 850
+444 REM *** TRYING TO PLANT MORE ACRES THAN YOU OWN?
+445 IF D<=A THEN GOTO 450
+446 GOSUB 720
+447 GOTO 440
+449 REM *** ENOUGH GRAIN FOR SEED?
+450 IF INT(D/2)<=S THEN GOTO 455
+452 GOSUB 710
+453 GOTO 440
+454 REM *** ENOUGH PEOPLE TO TEND THE CROPS?
+455 IF D<10*P THEN GOTO 510
+460 PRINT "BUT YOU HAVE ONLY ";P;" PEOPLE TO TEND THE FIELDS!  NOW THEN,"
+470 GOTO 440
+510 S=S-INT(D/2)
+511 GOSUB 800
+512 REM *** A BOUNTIFUL HARVEST!
+515 Y=C
+516 H=D*Y
+517 E=0
+521 GOSUB 800
+522 IF INT(C/2)<>C/2 THEN GOTO 530
+523 REM *** RATS ARE RUNNING WILD!!
+525 E=INT(S/C)
+530 S=S-E+H
+531 GOSUB 800
+532 REM *** LET'S HAVE SOME BABIES
+533 I=INT(C*(20*A+S)/P/100+1)
+539 REM *** HOW MANY PEOPLE HAD FULL TUMMIES?
+540 C=INT(Q/20)
+541 REM *** HORROS, A 15% CHANCE OF PLAGUE
+542 Q=INT(10*(2*RND(1)-0.3))
+550 IF P<C THEN GOTO 210
+551 REM *** STARVE ENOUGH FOR IMPEACHMENT?
+552 D=P-C
+553 IF D>0.45*P THEN GOTO 560
+554 P1=((Z-1)*P1+D*100/P)/Z
+555 P=C
+556 D1=D1+D
+557 GOTO 215
+560 PRINT
+561 PRINT "YOU STARVED ";D;" PEOPLE IN ONE YEAR!!!"
+565 PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY"
+566 PRINT "BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE"
+567 PRINT "ALSO BEEN DECLARED NATIONAL FINK!!!!"
+568 GOTO 990
+710 PRINT "HAMURABI:  THINK AGAIN.  YOU HAVE ONLY"
+711 PRINT S;" BUSHELS OF GRAIN.  NOW THEN,"
+712 RETURN
+720 PRINT "HAMURABI:  THINK AGAIN.  YOU OWN ONLY ";A;" ACRES.  NOW THEN,"
+730 RETURN
+800 C=INT(RND(1)*5)+1
+801 RETURN
+850 PRINT
+851 PRINT "HAMURABI:  I CANNOT DO WHAT YOU WISH."
+855 PRINT "GET YOURSELF ANOTHER STEWARD!!!!!"
+857 GOTO 990
+860 PRINT "IN YOUR 10-YEAR TERM OF OFFICE, ";P1;" PERCENT OF THE"
+862 PRINT "POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF"
+865 PRINT D1;"PEOPLE DIED!!"
+866 L=A/P
+870 PRINT "YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH"
+875 PRINT L;"ACRES PER PERSON."
+876 PRINT
+880 IF P1>33 THEN GOTO 565
+885 IF L<7 THEN GOTO 565
+890 IF P1>10 THEN GOTO 940
+892 IF L<9 THEN GOTO 940
+895 IF P1>3 THEN GOTO 960
+896 IF L<10 THEN GOTO 960
+900 PRINT "A FANTASTIC PERFORMANCE!!!  CHARLEMANGE, DISRAELI, AND"
+905 PRINT "JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!"
+906 GOTO 990
+940 PRINT "YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV."
+945 PRINT "THE PEOPLE (REMIANING) FIND YOU AN UNPLEASANT RULER, AND,"
+950 PRINT "FRANKLY, HATE YOUR GUTS!!"
+951 GOTO 990
+960 PRINT "YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT"
+965 PRINT "REALLY WASN'T TOO BAD AT ALL. ";INT(P*0.8*RND(1));" PEOPLE"
+970 PRINT "WOULD DEARLY LIKE TO SEE YOU ASSASSINATED BUT WE ALL HAVE OUR"
+975 PRINT "TRIVIAL PROBLEMS."
+990 PRINT
+991 FOR N=1 TO 10
+992 PRINT EMIT(7;)
+993 NEXT
+995 PRINT "SO LONG FOR NOW."
+996 PRINT
+999 END