Hamurabi Strategy Game

Description

By Michael Zinn, June 2019 in the SwissMicros Software Library - DM1x/DM1xL

Play as King Hammurabi and rule over your own city state in this resource management game. Keep your people fed and the acres planted with grain and hope that no plague kills off too many people. The game was written in 1968, you can find more information in this old "101 BASIC Games" book.

This game is a text based BASIC game. BASIC games work like this:
  1. Start the game with B
  2. When a complex number gets displayed you read the text with that number. E.g. "1c" means "HAMURABI". Press R/S to continue
  3. When a normal number gets displayed it just means that number. E.g. "6c" followed by "1" means "IN YEAR 1". Press R/S to continue
  4. If the display is blinking, enter a number and press R/S to continue.
Instructions:
Messages:
When the calculator shows a complex number, you read the text and then press R/S. You could print this on a tiny piece of paper so you can play the game on the go.
  1. HAMURABI
  2. CREATIVE COMPUTING MORRISTOWN, NEW JERSEY
  3. TRY YOUR HAND AT GOVERNING ANCIENT SUMERIA
  4. FOR A TEN-YEAR TERM OF OFFICE.
  5. HAMURABI: I BEG TO REPORT TO YOU,
  6. IN YEAR
  7. ,
  8. PEOPLE STARVED,
  9. CAME TO THE CITY,
  10. A HORRIBLE PLAGUE STRUCK! HALF THE PEOPLE DIED.
  11. POPULATION IS NOW
  12. THE CITY NOW OWNS
  13. ACRES.
  14. YOU HARVESTED
  15. BUSHELS PER ACRE.
  16. RATS ATE
  17. BUSHELS.
  18. YOU NOW HAVE
  19. BUSHELS IN STORE.
  20. LAND IS TRADING AT
  21. HOW MANY ACRES DO YOU WISH TO BUY
  22. HOW MANY ACRES DO YOU WISH TO SELL
  23. HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE
  24. HOW MANY ACRES DO YOU WISH TO PLANT WITH SEED
  25. BUT YOU HAVE ONLY
  26. PEOPLE TO TEND THE FIELDS! NOW THEN,
  27. YOU STARVED
  28. PEOPLE IN ONE YEAR!!!
  29. DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY
  30. BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU HAVE
  31. ALSO BEEN DECLARED NATIONAL FINK!!!!
  32. HAMURABI: THINK AGAIN. YOU HAVE ONLY
  33. BUSHELS OF GRAIN. NOW THEN,
  34. HAMURABI: THINK AGAIN. YOU OWN ONLY
  35. ACRES. NOW THEN,
  36. HAMURABI: I CANNOT DO WHAT YOU WISH.
  37. GET YOURSELF ANOTHER STEWARD!!!!!
  38. IN YOUR 10-YEAR TERM OF OFFICE,
  39. PERCENT OF THE
  40. POPULATION STARVED PER YEAR ON THE AVERAGE, I.E. A TOTAL OF
  41. PEOPLE DIED!!
  42. YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH
  43. ACRES PER PERSON.
  44. A FANTASTIC PERFORMANCE!!! CHARLEMAGNE, DISRAELI, AND
  45. JEFFERSON COMBINED COULD NOT HAVE DONE BETTER!
  46. YOUR HEAVY-HANDED PERFORMANCE SMACKS OF NERO AND IVAN IV.
  47. THE PEOPLE (REMAINING) FIND YOU AN UNPLEASANT RULER, AND,
  48. FRANKLY, HATE YOUR GUTS!!
  49. YOUR PERFORMANCE COULD HAVE BEEN SOMEWHAT BETTER, BUT
  50. REALLY WASN'T TOO BAD AT ALL.
  51. PEOPLE
  52. DEARLY LIKE TO SEE YOU ASSASINATED BUT WE ALL HAVE OUR
  53. TRIVIAL PROBLEMS.
  54. SO LONG FOR NOW.

Program Resources

Labels

Name Description
 B Hammurabi
 0
 1

Storage Registers

Name Description Name Description
 0  9
 1 .0
 2 .1
 3 .2
 4 .3
 5 .4
 6 I
 7

Flags

Number Description
8
9

Program

Line Display Key Sequence Line Display Key Sequence Line Display Key Sequence
000 275 45 .1 RCL . 1 550 30
001 42,21, 0 f LBL 0 276 43,30, 8 g TEST x<y 551 44 2 STO 2
002 31 R/S 277 22 25 GTO I 552 5 5
003 43, 5, 8 g CF 8 278 6 6 553 9 9
004 43 32 g RTN 279 3 3 554 3 3
005 42,21, 1 f LBL 1 280 2 2 555 16 CHS
006 22 25 GTO I 281 16 CHS 556 44 25 STO I
007 42,21,12 f LBL B 282 44 25 STO I 557 48 .
008 43, 4, 8 g SF 8 283 32 1 GSB 1 558 4 4
009 0 0 284 2 2 559 5 5
010 32 0 GSB 0 285 5 5 560 45 9 RCL 9
011 43, 4, 8 g SF 8 286 2 2 561 20 ×
012 1 1 287 16 CHS 562 45 2 RCL 2
013 32 0 GSB 0 288 44 25 STO I 563 43,30, 7 g TEST x>y
014 43, 4, 8 g SF 8 289 22 25 GTO I 564 22 25 GTO I
015 0 0 290 45 0 RCL 0 565 45 .4 RCL . 4
016 32 0 GSB 0 291 45 .1 RCL . 1 566 1 1
017 43, 4, 8 g SF 8 292 30 567 30
018 2 2 293 44 0 STO 0 568 45 .0 RCL . 0
019 32 0 GSB 0 294 45 .2 RCL . 2 569 20 ×
020 43, 4, 8 g SF 8 295 45 .3 RCL . 3 570 45 2 RCL 2
021 3 3 296 45 .1 RCL . 1 571 1 1
022 32 0 GSB 0 297 20 × 572 0 0
023 43, 4, 8 g SF 8 298 40 + 573 0 0
024 4 4 299 44 .2 STO . 2 574 20 ×
025 32 0 GSB 0 300 0 0 575 45 9 RCL 9
026 0 0 301 44 1 STO 1 576 10 ÷
027 44 3 STO 3 302 43, 4, 8 g SF 8 577 40 +
028 0 0 303 2 2 578 45 .4 RCL . 4
029 44 .0 STO . 0 304 3 3 579 10 ÷
030 0 0 305 32 0 GSB 0 580 44 .0 STO . 0
031 44 .4 STO . 4 306 43, 4, 9 g SF 9 581 45 1 RCL 1
032 9 9 307 31 R/S 582 44 9 STO 9
033 5 5 308 43, 5, 9 g CF 9 583 45 3 RCL 3
034 44 9 STO 9 309 44 .1 STO . 1 584 45 2 RCL 2
035 2 2 310 6 6 585 40 +
036 8 8 311 5 5 586 44 3 STO 3
037 0 0 312 1 1 587 0 0
038 0 0 313 16 CHS 588 6 6
039 44 .2 STO . 2 314 44 25 STO I 589 1 1
040 3 3 315 0 0 590 16 CHS
041 0 0 316 45 .1 RCL . 1 591 44 25 STO I
042 0 0 317 43,30, 8 g TEST x<y 592 22 25 GTO I
043 0 0 318 22 25 GTO I 593 43, 4, 8 g SF 8
044 44 5 STO 5 319 3 3 594 2 2
045 45 5 RCL 5 320 4 4 595 7 7
046 45 .2 RCL . 2 321 0 0 596 32 0 GSB 0
047 30 322 16 CHS 597 45 2 RCL 2
048 44 4 STO 4 323 44 25 STO I 598 32 0 GSB 0
049 3 3 324 45 .2 RCL . 2 599 43, 4, 8 g SF 8
050 44 .3 STO . 3 325 45 .1 RCL . 1 600 2 2
051 45 5 RCL 5 326 43 10 g x≤y 601 8 8
052 45 .3 RCL . 3 327 22 25 GTO I 602 32 0 GSB 0
053 10 ÷ 328 6 6 603 43, 4, 8 g SF 8
054 44 0 STO 0 329 2 2 604 2 2
055 5 5 330 1 1 605 9 9
056 44 6 STO 6 331 16 CHS 606 32 0 GSB 0
057 1 1 332 44 25 STO I 607 43, 4, 8 g SF 8
058 44 .1 STO . 1 333 32 1 GSB 1 608 3 3
059 0 0 334 3 3 609 0 0
060 44 2 STO 2 335 0 0 610 32 0 GSB 0
061 43, 4, 8 g SF 8 336 2 2 611 43, 4, 8 g SF 8
062 5 5 337 16 CHS 612 3 3
063 32 0 GSB 0 338 44 25 STO I 613 1 1
064 45 .4 RCL . 4 339 22 25 GTO I 614 32 0 GSB 0
065 1 1 340 45 .2 RCL . 2 615 8 8
066 40 + 341 45 .1 RCL . 1 616 1 1
067 44 .4 STO . 4 342 30 617 6 6
068 43, 4, 8 g SF 8 343 44 .2 STO . 2 618 16 CHS
069 6 6 344 1 1 619 44 25 STO I
070 32 0 GSB 0 345 44 1 STO 1 620 22 25 GTO I
071 45 .4 RCL . 4 346 43, 4, 8 g SF 8 621 43, 4, 8 g SF 8
072 32 0 GSB 0 347 2 2 622 3 3
073 43, 4, 8 g SF 8 348 4 4 623 2 2
074 7 7 349 32 0 GSB 0 624 32 0 GSB 0
075 32 0 GSB 0 350 43, 4, 9 g SF 9 625 45 .2 RCL . 2
076 45 2 RCL 2 351 31 R/S 626 32 0 GSB 0
077 32 0 GSB 0 352 43, 5, 9 g CF 9 627 43, 4, 8 g SF 8
078 43, 4, 8 g SF 8 353 44 2 STO 2 628 3 3
079 8 8 354 4 4 629 3 3
080 32 0 GSB 0 355 5 5 630 32 0 GSB 0
081 45 6 RCL 6 356 2 2 631 43 32 g RTN
082 32 0 GSB 0 357 16 CHS 632 43, 4, 8 g SF 8
083 43, 4, 8 g SF 8 358 44 25 STO I 633 3 3
084 9 9 359 0 0 634 4 4
085 32 0 GSB 0 360 45 2 RCL 2 635 32 0 GSB 0
086 45 9 RCL 9 361 43,30, 5 g TEST x=y 636 45 0 RCL 0
087 45 6 RCL 6 362 22 25 GTO I 637 32 0 GSB 0
088 40 + 363 6 6 638 43, 4, 8 g SF 8
089 44 9 STO 9 364 5 5 639 3 3
090 1 1 365 1 1 640 5 5
091 0 0 366 16 CHS 641 32 0 GSB 0
092 8 8 367 44 25 STO I 642 43 32 g RTN
093 16 CHS 368 0 0 643 42 36 f RAN #
094 44 25 STO I 369 45 2 RCL 2 644 5 5
095 0 0 370 43,30, 8 g TEST x<y 645 20 ×
096 45 .1 RCL . 1 371 22 25 GTO I 646 43 44 g INT
097 43,30, 7 g TEST x>y 372 3 3 647 1 1
098 22 25 GTO I 373 9 9 648 40 +
099 45 9 RCL 9 374 3 3 649 44 1 STO 1
100 2 2 375 16 CHS 650 43 32 g RTN
101 10 ÷ 376 44 25 STO I 651 43, 4, 8 g SF 8
102 43 44 g INT 377 45 0 RCL 0 652 3 3
103 44 9 STO 9 378 45 2 RCL 2 653 6 6
104 43, 4, 8 g SF 8 379 43 10 g x≤y 654 32 0 GSB 0
105 1 1 380 22 25 GTO I 655 43, 4, 8 g SF 8
106 0 0 381 6 6 656 3 3
107 32 0 GSB 0 382 3 3 657 7 7
108 43, 4, 8 g SF 8 383 2 2 658 32 0 GSB 0
109 1 1 384 16 CHS 659 8 8
110 1 1 385 44 25 STO I 660 1 1
111 32 0 GSB 0 386 32 1 GSB 1 661 6 6
112 45 9 RCL 9 387 3 3 662 16 CHS
113 32 0 GSB 0 388 4 4 663 44 25 STO I
114 43, 4, 8 g SF 8 389 6 6 664 22 25 GTO I
115 1 1 390 16 CHS 665 43, 4, 8 g SF 8
116 2 2 391 44 25 STO I 666 3 3
117 32 0 GSB 0 392 22 25 GTO I 667 8 8
118 45 0 RCL 0 393 4 4 668 32 0 GSB 0
119 32 0 GSB 0 394 1 1 669 45 .0 RCL . 0
120 43, 4, 8 g SF 8 395 7 7 670 32 0 GSB 0
121 1 1 396 16 CHS 671 43, 4, 8 g SF 8
122 3 3 397 44 25 STO I 672 3 3
123 32 0 GSB 0 398 45 .2 RCL . 2 673 9 9
124 43, 4, 8 g SF 8 399 45 2 RCL 2 674 32 0 GSB 0
125 1 1 400 2 2 675 43, 4, 8 g SF 8
126 4 4 401 10 ÷ 676 4 4
127 32 0 GSB 0 402 43 44 g INT 677 0 0
128 45 .3 RCL . 3 403 43 10 g x≤y 678 32 0 GSB 0
129 32 0 GSB 0 404 22 25 GTO I 679 45 3 RCL 3
130 43, 4, 8 g SF 8 405 6 6 680 32 0 GSB 0
131 1 1 406 2 2 681 43, 4, 8 g SF 8
132 5 5 407 1 1 682 4 4
133 32 0 GSB 0 408 16 CHS 683 1 1
134 43, 4, 8 g SF 8 409 44 25 STO I 684 32 0 GSB 0
135 1 1 410 32 1 GSB 1 685 45 0 RCL 0
136 6 6 411 3 3 686 45 9 RCL 9
137 32 0 GSB 0 412 4 4 687 10 ÷
138 45 4 RCL 4 413 6 6 688 44 7 STO 7
139 32 0 GSB 0 414 16 CHS 689 43, 4, 8 g SF 8
140 43, 4, 8 g SF 8 415 44 25 STO I 690 4 4
141 1 1 416 22 25 GTO I 691 2 2
142 7 7 417 4 4 692 32 0 GSB 0
143 32 0 GSB 0 418 4 4 693 45 7 RCL 7
144 43, 4, 8 g SF 8 419 5 5 694 32 0 GSB 0
145 1 1 420 16 CHS 695 43, 4, 8 g SF 8
146 8 8 421 44 25 STO I 696 4 4
147 32 0 GSB 0 422 1 1 697 3 3
148 45 .2 RCL . 2 423 0 0 698 32 0 GSB 0
149 32 0 GSB 0 424 45 9 RCL 9 699 6 6
150 43, 4, 8 g SF 8 425 20 × 700 0 0
151 1 1 426 45 2 RCL 2 701 3 3
152 9 9 427 43,30, 8 g TEST x<y 702 16 CHS
153 32 0 GSB 0 428 22 25 GTO I 703 44 25 STO I
154 6 6 429 43, 4, 8 g SF 8 704 3 3
155 6 6 430 2 2 705 3 3
156 5 5 431 5 5 706 45 .0 RCL . 0
157 16 CHS 432 32 0 GSB 0 707 43,30, 7 g TEST x>y
158 44 25 STO I 433 45 9 RCL 9 708 22 25 GTO I
159 1 1 434 32 0 GSB 0 709 6 6
160 1 1 435 43, 4, 8 g SF 8 710 0 0
161 45 .4 RCL . 4 436 2 2 711 3 3
162 43,30, 5 g TEST x=y 437 6 6 712 16 CHS
163 22 25 GTO I 438 32 0 GSB 0 713 44 25 STO I
164 1 1 439 3 3 714 7 7
165 0 0 440 4 4 715 45 7 RCL 7
166 42 36 f RAN # 441 6 6 716 43,30, 8 g TEST x<y
167 20 × 442 16 CHS 717 22 25 GTO I
168 43 44 g INT 443 44 25 STO I 718 7 7
169 44 1 STO 1 444 22 25 GTO I 719 7 7
170 45 1 RCL 1 445 45 .2 RCL . 2 720 0 0
171 1 1 446 45 2 RCL 2 721 16 CHS
172 7 7 447 2 2 722 44 25 STO I
173 40 + 448 10 ÷ 723 1 1
174 44 .3 STO . 3 449 43 44 g INT 724 0 0
175 43, 4, 8 g SF 8 450 30 725 45 .0 RCL . 0
176 2 2 451 44 .2 STO . 2 726 43,30, 7 g TEST x>y
177 0 0 452 6 6 727 22 25 GTO I
178 32 0 GSB 0 453 4 4 728 7 7
179 45 .3 RCL . 3 454 3 3 729 7 7
180 32 0 GSB 0 455 16 CHS 730 0 0
181 43, 4, 8 g SF 8 456 44 25 STO I 731 16 CHS
182 1 1 457 32 1 GSB 1 732 44 25 STO I
183 5 5 458 45 1 RCL 1 733 9 9
184 32 0 GSB 0 459 44 .3 STO . 3 734 45 7 RCL 7
185 43, 4, 8 g SF 8 460 45 2 RCL 2 735 43,30, 8 g TEST x<y
186 2 2 461 45 .3 RCL . 3 736 22 25 GTO I
187 1 1 462 20 × 737 7 7
188 32 0 GSB 0 463 44 5 STO 5 738 8 8
189 43, 4, 9 g SF 9 464 0 0 739 8 8
190 31 R/S 465 44 4 STO 4 740 16 CHS
191 43, 5, 9 g CF 9 466 6 6 741 44 25 STO I
192 44 .1 STO . 1 467 4 4 742 3 3
193 6 6 468 3 3 743 45 .0 RCL . 0
194 5 5 469 16 CHS 744 43,30, 7 g TEST x>y
195 1 1 470 44 25 STO I 745 22 25 GTO I
196 16 CHS 471 32 1 GSB 1 746 7 7
197 44 25 STO I 472 4 4 747 8 8
198 0 0 473 9 9 748 8 8
199 45 .1 RCL . 1 474 1 1 749 16 CHS
200 43,30, 8 g TEST x<y 475 16 CHS 750 44 25 STO I
201 22 25 GTO I 476 44 25 STO I 751 1 1
202 2 2 477 45 1 RCL 1 752 0 0
203 2 2 478 2 2 753 45 7 RCL 7
204 5 5 479 10 ÷ 754 43,30, 8 g TEST x<y
205 16 CHS 480 45 1 RCL 1 755 22 25 GTO I
206 44 25 STO I 481 2 2 756 43, 4, 8 g SF 8
207 45 .2 RCL . 2 482 10 ÷ 757 4 4
208 45 .3 RCL . 3 483 43 44 g INT 758 4 4
209 45 .1 RCL . 1 484 43,30, 6 g TEST x≠y 759 32 0 GSB 0
210 20 × 485 22 25 GTO I 760 43, 4, 8 g SF 8
211 43 10 g x≤y 486 45 .2 RCL . 2 761 4 4
212 22 25 GTO I 487 45 1 RCL 1 762 5 5
213 6 6 488 10 ÷ 763 32 0 GSB 0
214 2 2 489 43 44 g INT 764 8 8
215 1 1 490 44 4 STO 4 765 1 1
216 16 CHS 491 45 .2 RCL . 2 766 6 6
217 44 25 STO I 492 45 4 RCL 4 767 16 CHS
218 32 1 GSB 1 493 30 768 44 25 STO I
219 1 1 494 45 5 RCL 5 769 22 25 GTO I
220 8 8 495 40 + 770 43, 4, 8 g SF 8
221 5 5 496 44 .2 STO . 2 771 4 4
222 16 CHS 497 6 6 772 6 6
223 44 25 STO I 498 4 4 773 32 0 GSB 0
224 22 25 GTO I 499 3 3 774 43, 4, 8 g SF 8
225 2 2 500 16 CHS 775 4 4
226 5 5 501 44 25 STO I 776 7 7
227 2 2 502 32 1 GSB 1 777 32 0 GSB 0
228 16 CHS 503 45 1 RCL 1 778 43, 4, 8 g SF 8
229 44 25 STO I 504 2 2 779 4 4
230 0 0 505 0 0 780 8 8
231 45 .1 RCL . 1 506 45 0 RCL 0 781 32 0 GSB 0
232 43,30, 5 g TEST x=y 507 20 × 782 8 8
233 22 25 GTO I 508 45 .2 RCL . 2 783 1 1
234 45 0 RCL 0 509 40 + 784 6 6
235 45 .1 RCL . 1 510 20 × 785 16 CHS
236 40 + 511 45 9 RCL 9 786 44 25 STO I
237 44 0 STO 0 512 10 ÷ 787 22 25 GTO I
238 45 .2 RCL . 2 513 1 1 788 43, 4, 8 g SF 8
239 45 .3 RCL . 3 514 0 0 789 4 4
240 45 .1 RCL . 1 515 0 0 790 9 9
241 20 × 516 10 ÷ 791 32 0 GSB 0
242 30 517 1 1 792 43, 4, 8 g SF 8
243 44 .2 STO . 2 518 40 + 793 5 5
244 0 0 519 43 44 g INT 794 0 0
245 44 1 STO 1 520 44 6 STO 6 795 32 0 GSB 0
246 3 3 521 45 .1 RCL . 1 796 45 9 RCL 9
247 0 0 522 2 2 797 48 .
248 2 2 523 0 0 798 8 8
249 16 CHS 524 10 ÷ 799 20 ×
250 44 25 STO I 525 43 44 g INT 800 42 36 f RAN #
251 22 25 GTO I 526 44 1 STO 1 801 20 ×
252 43, 4, 8 g SF 8 527 1 1 802 43 44 g INT
253 2 2 528 0 0 803 32 0 GSB 0
254 2 2 529 36 ENTER 804 43, 4, 8 g SF 8
255 32 0 GSB 0 530 2 2 805 5 5
256 43, 4, 9 g SF 9 531 42 36 f RAN # 806 1 1
257 31 R/S 532 20 × 807 32 0 GSB 0
258 43, 5, 9 g CF 9 533 48 . 808 43, 4, 8 g SF 8
259 44 .1 STO . 1 534 3 3 809 5 5
260 6 6 535 30 810 2 2
261 5 5 536 20 × 811 32 0 GSB 0
262 1 1 537 43 44 g INT 812 43, 4, 8 g SF 8
263 16 CHS 538 44 .1 STO . 1 813 5 5
264 44 25 STO I 539 0 0 814 3 3
265 0 0 540 5 5 815 32 0 GSB 0
266 45 .1 RCL . 1 541 9 9 816 0 0
267 43,30, 8 g TEST x<y 542 16 CHS 817 32 0 GSB 0
268 22 25 GTO I 543 44 25 STO I 818 0 0
269 2 2 544 45 1 RCL 1 819 43, 4, 8 g SF 8
270 9 9 545 45 9 RCL 9 820 5 5
271 0 0 546 43,30, 8 g TEST x<y 821 4 4
272 16 CHS 547 22 25 GTO I 822 32 0 GSB 0
273 44 25 STO I 548 45 9 RCL 9 823 31 R/S
274 45 0 RCL 0 549 45 1 RCL 1