HAMURABI
FILE INFORMATION
FILENAME(S): HAMURABI
FILE TYPE(S): PRG
FILE SIZE: 6.2K
FIRST SEEN: 2025-11-30 01:08:28
APPEARS ON: 1 disk(s)
FILE HASH
7fe2253dd90f69695f71a7000d7261a627691f289b6457efaef806aded16a8df
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | HAMURABI | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4A 08 64 00 50 B2 39 35 3A 44 B2 30 3A 49 |..J.d.P.95:D.0:I|
00000010: B2 35 3A 50 31 B2 30 3A 44 31 B2 30 3A 5A B2 30 |.5:P1.0:D1.0:Z.0|
00000020: 3A 47 52 B2 32 38 30 30 3A 48 B2 33 30 30 30 3A |:GR.2800:H.3000:|
00000030: 45 B2 32 30 30 3A 51 B2 31 3A 59 45 B2 33 3A 41 |E.200:Q.1:YE.3:A|
00000040: B2 31 30 30 30 3A 50 4C B2 41 00 60 08 6E 00 44 |.1000:PL.A.`.n.D|
00000050: 31 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 22 |1$."..........."|
00000060: 00 79 08 78 00 44 32 24 B2 22 13 11 11 11 11 11 |.y.x.D2$."......|
00000070: 11 11 11 11 11 11 11 11 22 00 94 08 82 00 44 33 |........".....D3|
00000080: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............|
00000090: 11 11 11 22 00 D5 08 8C 00 43 31 24 B2 22 13 11 |...".....C1$."..|
000000A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 22 00 F9 08 9B 00 86 20 58 24 28 32 | "...... X$(2|
000000E0: 29 3A 58 24 28 31 29 B2 22 20 9D 22 3A 58 24 28 |):X$(1)." .":X$(|
000000F0: 32 29 B2 22 12 20 92 9D 22 00 31 09 9C 00 45 24 |2).". ..".1...E$|
00000100: B2 22 22 3A 81 20 58 39 B2 31 20 A4 20 34 30 3A |."":. X9.1 . 40:|
00000110: 45 24 B2 45 24 AA 22 20 22 3A 82 3A 81 20 58 39 |E$.E$." ":.:. X9|
00000120: B2 31 A4 34 30 3A 45 24 B2 45 24 AA 22 9D 22 3A |.1.40:E$.E$.".":|
00000130: 82 00 3C 09 A0 00 8D 20 35 31 30 30 00 7F 09 AA |..<.... 5100....|
00000140: 00 8F 20 50 3D 50 4F 50 55 4C 41 54 49 4F 4E 3B |.. P=POPULATION;|
00000150: 49 3D 49 4E 43 52 45 4D 45 4E 54 3B 50 31 20 41 |I=INCREMENT;P1 A|
00000160: 4E 44 20 44 31 20 41 52 45 20 52 55 4E 4E 49 4E |ND D1 ARE RUNNIN|
00000170: 47 20 54 4F 54 41 4C 53 3B 5A 3D 59 45 41 52 00 |G TOTALS;Z=YEAR.|
00000180: C6 09 B4 00 8F 20 47 52 3D 47 52 41 49 4E 3B 48 |..... GR=GRAIN;H|
00000190: 3D 48 41 52 56 45 53 54 3B 45 3D 45 41 54 45 4E |=HARVEST;E=EATEN|
000001A0: 20 42 59 20 20 20 52 41 54 53 3B 51 3D 50 4C 41 | BY RATS;Q=PLA|
000001B0: 47 55 45 20 50 41 52 41 4D 45 54 45 52 3B 59 45 |GUE PARAMETER;YE|
000001C0: 3D 59 45 49 4C 44 00 E7 09 BE 00 8F 20 41 3D 41 |=YEILD...... A=A|
000001D0: 43 52 45 41 47 45 3B 50 4C 3D 41 43 52 45 53 20 |CREAGE;PL=ACRES |
000001E0: 50 4C 41 4E 54 45 44 00 18 0A C8 00 5A B2 5A AA |PLANTED.....Z.Z.|
000001F0: 31 3A 99 22 93 C8 41 4D 55 52 41 42 49 3A 20 20 |1:."..AMURABI: |
00000200: C9 20 42 45 47 20 54 4F 20 52 45 50 4F 52 54 20 |. BEG TO REPORT |
00000210: 54 4F 20 59 4F 55 2C 22 00 40 0A D2 00 99 22 C9 |TO YOU,".@....".|
00000220: 4E 20 59 45 41 52 22 3B 5A 3B 22 2C 22 3B 44 3B |N YEAR";Z;",";D;|
00000230: 22 50 45 4F 50 4C 45 20 44 49 45 44 2C 22 3B 49 |"PEOPLE DIED,";I|
00000240: 00 5F 0A DC 00 99 22 43 41 4D 45 20 54 4F 20 54 |._...."CAME TO T|
00000250: 48 45 20 43 49 54 59 2E 22 3A 50 B2 50 AA 49 00 |HE CITY.":P.P.I.|
00000260: 6F 0A E6 00 8B 20 51 B1 30 20 A7 20 32 35 30 00 |o.... Q.0 . 250.|
00000270: A7 0A F0 00 50 B2 B5 28 50 AD 32 29 3A 99 22 C1 |....P..(P.2):.".|
00000280: 20 50 4C 41 47 55 45 20 53 54 52 55 43 4B 21 20 | PLAGUE STRUCK! |
00000290: 20 C8 41 4C 46 20 54 48 45 20 50 45 4F 50 4C 45 | .ALF THE PEOPLE|
000002A0: 20 44 49 45 44 2E 22 00 C2 0A FA 00 99 22 D0 4F | DIED."......".O|
000002B0: 50 55 4C 41 54 49 4F 4E 20 49 53 20 4E 4F 57 22 |PULATION IS NOW"|
000002C0: 3B 50 00 01 0B 04 01 99 22 D4 48 45 20 48 41 52 |;P......".HE HAR|
000002D0: 56 45 53 54 20 57 41 53 22 3B 59 45 3B 22 42 55 |VEST WAS";YE;"BU|
000002E0: 53 48 45 4C 53 2F 41 43 52 45 20 4F 56 45 52 22 |SHELS/ACRE OVER"|
000002F0: 3B 50 4C 3B A3 34 30 29 3B 22 41 43 52 45 53 2E |;PL;.40);"ACRES.|
00000300: 22 00 1E 0B 0E 01 99 22 D2 41 54 53 20 41 54 45 |"......".ATS ATE|
00000310: 22 3B 45 3B 22 42 55 53 48 45 4C 53 2E 22 00 31 |";E;"BUSHELS.".1|
00000320: 0B 18 01 8B 20 5A B2 59 52 AA 31 20 A7 32 30 30 |.... Z.YR.1 .200|
00000330: 30 00 6E 0B 22 01 50 52 B2 31 37 AA B5 28 BB 28 |0.n.".PR.17..(.(|
00000340: 31 29 AC 31 30 29 3A 99 22 CC 41 4E 44 20 49 53 |1).10):.".AND IS|
00000350: 20 54 52 41 44 49 4E 47 20 41 54 22 3B 50 52 3B | TRADING AT";PR;|
00000360: 22 42 55 53 48 45 4C 53 2F 41 43 52 45 22 00 7B |"BUSHELS/ACRE".{|
00000370: 0B 27 01 50 4C B2 30 3A 46 B2 30 00 B8 0B 2C 01 |.'.PL.0:F.0...,.|
00000380: 99 22 13 11 11 11 11 11 11 11 11 11 12 CC 41 4E |."............AN|
00000390: 44 92 20 12 20 20 20 20 20 20 20 20 20 20 C7 52 |D. . .R|
000003A0: 41 49 4E 20 20 20 20 20 20 20 20 20 92 20 12 20 |AIN . . |
000003B0: C1 43 52 45 53 20 92 22 00 F6 0B 36 01 99 22 13 |.CRES ."...6..".|
000003C0: 11 11 11 11 11 11 11 11 11 11 12 20 20 20 20 92 |........... .|
000003D0: 20 53 45 4C 4C 20 26 A0 53 54 4F 52 45 12 20 92 | SELL &.STORE. .|
000003E0: 46 45 45 44 20 50 45 4F 50 4C 45 20 12 50 4C 41 |FEED PEOPLE .PLA|
000003F0: 4E 54 45 44 92 22 00 2D 0C 3B 01 99 44 31 24 3B |NTED.".-.;..D1$;|
00000400: A3 33 39 29 3B 22 20 20 20 20 20 20 20 20 20 20 |.39);" |
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 54 0C | ".T.|
00000430: 40 01 99 44 31 24 3B A3 33 39 29 3B 41 3B A3 34 |@..D1$;.39);A;.4|
00000440: 37 29 3B 47 52 3B A3 36 30 29 3B 46 3B A3 37 31 |7);GR;.60);F;.71|
00000450: 29 3B 50 4C 00 7B 0C 4A 01 99 44 32 24 3B 22 C4 |);PL.{.J..D2$;".|
00000460: 4F 20 57 48 41 54 3F 22 3B C8 28 45 24 2C 33 32 |O WHAT?";.(E$,32|
00000470: 29 3B C9 28 45 24 2C 33 32 29 3B 00 9C 0C 54 01 |);.(E$,32);...T.|
00000480: 57 B2 B5 28 54 49 AD 32 30 29 3A 5A 43 B2 32 AA |W..(TI.20):ZC.2.|
00000490: 28 57 B2 B5 28 57 AD 32 29 AC 32 29 00 BC 0C 59 |(W..(W.2).2)...Y|
000004A0: 01 99 20 58 24 28 5A 43 29 3B 3A A1 20 43 24 3A |.. X$(ZC);:. C$:|
000004B0: 8B 20 43 24 B2 22 22 20 A7 33 34 30 00 C5 0C 5B |. C$."" .340...[|
000004C0: 01 99 43 24 3B 00 D7 0C 5E 01 8B 20 43 24 B2 22 |..C$;...^.. C$."|
000004D0: 48 22 20 A7 34 30 30 00 F2 0C 6D 01 8B 20 43 24 |H" .400...m.. C$|
000004E0: B2 22 46 22 20 A7 99 22 45 45 44 22 3A 89 20 35 |."F" .."EED":. 5|
000004F0: 30 30 00 0E 0D 72 01 8B 20 43 24 B2 22 50 22 20 |00...r.. C$."P" |
00000500: A7 99 22 4C 41 4E 54 22 3A 89 20 36 30 30 00 28 |.."LANT":. 600.(|
00000510: 0D 77 01 8B 20 43 24 B2 22 42 22 20 A7 99 22 55 |.w.. C$."B" .."U|
00000520: 59 22 3A 89 20 37 30 30 00 43 0D 7C 01 8B 20 43 |Y":. 700.C.|.. C|
00000530: 24 B2 22 53 22 20 A7 99 22 45 4C 4C 22 3A 89 20 |$."S" .."ELL":. |
00000540: 38 30 30 00 5E 0D 81 01 8B 20 43 24 B2 22 59 22 |800.^.... C$."Y"|
00000550: 20 A7 99 22 45 41 52 22 3A 89 20 39 30 30 00 68 | .."EAR":. 900.h|
00000560: 0D 86 01 89 20 33 30 30 00 8D 0D 90 01 99 44 32 |.... 300......D2|
00000570: 24 3B 22 C3 4F 4D 4D 41 4E 44 20 20 20 20 20 20 |$;".OMMAND |
00000580: C6 55 4E 43 54 49 4F 4E 22 3B 43 31 24 00 AE 0D |.UNCTION";C1$...|
00000590: 9A 01 99 22 C6 20 2D 20 20 20 20 20 C6 45 45 44 |...". - .EED|
000005A0: 20 50 45 4F 50 4C 45 20 47 52 41 49 4E 22 00 C8 | PEOPLE GRAIN"..|
000005B0: 0D A4 01 99 22 D0 20 2D 20 20 20 20 20 D0 4C 41 |....". - .LA|
000005C0: 4E 54 20 4C 41 4E 44 22 00 E0 0D AE 01 99 22 C2 |NT LAND"......".|
000005D0: 20 2D 20 20 20 20 20 C2 55 59 20 4C 41 4E 44 22 | - .UY LAND"|
000005E0: 00 F9 0D B8 01 99 22 D3 20 2D 20 20 20 20 20 D3 |......". - .|
000005F0: 45 4C 4C 20 4C 41 4E 44 22 00 1C 0E C2 01 99 22 |ELL LAND"......"|
00000600: D9 20 2D 20 20 20 20 20 C7 4F 20 54 4F 20 54 48 |. - .O TO TH|
00000610: 45 20 4E 45 58 54 20 59 45 41 52 22 00 3C 0E CC |E NEXT YEAR".<..|
00000620: 01 99 22 C8 20 2D 20 20 20 20 20 D0 52 49 4E 54 |..". - .RINT|
00000630: 53 20 54 48 49 53 20 54 45 58 54 22 00 5E 0E D6 |S THIS TEXT".^..|
00000640: 01 99 22 11 20 20 48 49 54 20 41 4E 59 20 4B 45 |..". HIT ANY KE|
00000650: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 75 |Y TO CONTINUE".u|
00000660: 0E E0 01 A1 20 43 24 3A 8B 20 43 24 B2 22 22 20 |.... C$:. C$."" |
00000670: A7 20 34 38 30 00 B5 0E EA 01 99 44 32 24 3B 22 |. 480......D2$;"|
00000680: 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 20 |......... |
00000690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 22 3B 43 31 24 00 BF 0E EF 01 89 20 33 30 30 00 |";C1$...... 300.|
000006C0: CF 0E F4 01 47 52 B2 47 52 AA 46 3A 46 B2 30 00 |....GR.GR.F:F.0.|
000006D0: 10 0F FE 01 99 43 31 24 3B 44 32 24 3B 22 11 C8 |.....C1$;D2$;"..|
000006E0: 4F 57 20 4D 55 43 48 20 47 52 41 49 4E 20 54 4F |OW MUCH GRAIN TO|
000006F0: 20 46 45 45 44 20 54 48 45 20 50 45 4F 50 4C 45 | FEED THE PEOPLE|
00000700: 3F 22 3B 3A 8D 20 31 30 30 30 30 3A 46 B2 41 4E |?";:. 10000:F.AN|
00000710: 00 1F 0F 03 02 8B 20 46 B3 30 20 A7 35 35 30 00 |...... F.0 .550.|
00000720: 3A 0F 08 02 8B 20 46 B3 B2 47 52 20 A7 20 47 52 |:.... F..GR . GR|
00000730: B2 47 52 AB 46 3A 89 33 30 30 00 42 0F 0D 02 46 |.GR.F:.300.B...F|
00000740: B2 30 00 7B 0F 12 02 99 44 32 24 3B 22 11 D9 4F |.0.{....D2$;"..O|
00000750: 55 20 44 4F 20 4E 4F 54 20 48 41 56 45 20 54 48 |U DO NOT HAVE TH|
00000760: 41 54 20 4D 55 43 48 20 47 52 41 49 4E 21 21 20 |AT MUCH GRAIN!! |
00000770: 20 20 20 20 20 22 3A 89 33 30 30 00 C7 0F 26 02 | ":.300...&.|
00000780: 99 43 31 24 2C 44 32 24 3B 22 C8 41 4D 55 52 41 |.C1$,D2$;".AMURA|
00000790: 42 49 3A 20 20 C9 20 43 41 4E 27 54 20 44 4F 20 |BI: . CAN'T DO |
000007A0: 54 48 41 54 3B 22 3A 99 22 47 45 54 20 59 4F 55 |THAT;":."GET YOU|
000007B0: 52 53 45 4C 46 20 41 4E 4F 54 48 45 52 20 53 54 |RSELF ANOTHER ST|
000007C0: 45 57 41 52 44 2E 22 00 DC 0F 30 02 81 20 49 B2 |EWARD."...0.. I.|
000007D0: 31 20 A4 20 32 30 30 30 3A 82 20 49 00 E7 0F 3A |1 . 2000:. I...:|
000007E0: 02 89 20 33 30 30 30 00 FC 0F 58 02 47 52 B2 47 |.. 3000...X.GR.G|
000007F0: 52 AA 2E 35 AC 50 4C 3A 50 4C B2 30 00 34 10 62 |R..5.PL:PL.0.4.b|
00000800: 02 99 43 31 24 3B 44 32 24 3B 22 11 C8 4F 57 20 |..C1$;D2$;"..OW |
00000810: 4D 41 4E 59 20 41 43 52 45 53 20 54 4F 20 50 4C |MANY ACRES TO PL|
00000820: 41 4E 54 3F 22 3B 3A 8D 20 31 30 30 30 30 3A 50 |ANT?";:. 10000:P|
00000830: 4C B2 41 4E 00 44 10 67 02 8B 20 50 4C B3 30 20 |L.AN.D.g.. PL.0 |
00000840: A7 35 35 30 00 5F 10 6C 02 8B 20 50 4C AC 2E 35 |.550._.l.. PL..5|
00000850: B1 47 52 20 A7 20 50 4C B2 30 3A 89 35 33 30 00 |.GR . PL.0:.530.|
00000860: 72 10 76 02 8B 20 50 4C B1 31 30 AC 50 20 A7 36 |r.v.. PL.10.P .6|
00000870: 36 30 00 92 10 80 02 8B 20 50 4C B3 B2 41 20 A7 |60...... PL..A .|
00000880: 20 47 52 B2 47 52 AB 2E 35 AC 50 4C 3A 89 20 33 | GR.GR..5.PL:. 3|
00000890: 30 30 00 CC 10 8A 02 99 43 31 24 3B 44 32 24 3B |00......C1$;D2$;|
000008A0: 22 11 D9 4F 55 20 44 4F 20 4E 4F 54 20 48 41 56 |"..OU DO NOT HAV|
000008B0: 45 20 54 48 41 54 20 4D 55 43 48 20 4C 41 4E 44 |E THAT MUCH LAND|
000008C0: 2E 22 3A 50 4C B2 30 3A 89 33 30 30 00 0E 11 94 |.":PL.0:.300....|
000008D0: 02 99 43 31 24 2C 44 32 24 3B 22 11 D9 4F 55 20 |..C1$,D2$;"..OU |
000008E0: 4F 4E 4C 59 20 48 41 56 45 22 3B 50 3B 22 50 45 |ONLY HAVE";P;"PE|
000008F0: 4F 50 4C 45 20 54 4F 20 47 52 4F 57 20 43 52 4F |OPLE TO GROW CRO|
00000900: 50 53 22 3A 50 4C B2 30 3A 89 20 33 30 30 00 42 |PS":PL.0:. 300.B|
00000910: 11 BC 02 99 43 31 24 3B 44 32 24 3B 22 11 C8 4F |....C1$;D2$;"..O|
00000920: 57 20 4D 55 43 48 20 4C 41 4E 44 20 54 4F 20 42 |W MUCH LAND TO B|
00000930: 55 59 3F 22 3B 3A 8D 20 31 30 30 30 30 3A 51 B2 |UY?";:. 10000:Q.|
00000940: 41 4E 00 51 11 C1 02 8B 20 51 B3 30 20 A7 35 35 |AN.Q.... Q.0 .55|
00000950: 30 00 79 11 C6 02 8B 20 51 AC 50 52 B3 B2 47 52 |0.y.... Q.PR..GR|
00000960: 20 A7 20 47 52 B2 47 52 AB 51 AC 50 52 3A 41 B2 | . GR.GR.Q.PR:A.|
00000970: 41 AA 51 3A 89 20 33 30 30 00 B3 11 D0 02 99 43 |A.Q:. 300......C|
00000980: 31 24 3B 44 32 24 3B 22 11 D9 4F 55 20 43 41 4E |1$;D2$;"..OU CAN|
00000990: 27 54 20 43 4F 56 45 52 20 54 48 45 20 50 55 52 |'T COVER THE PUR|
000009A0: 43 48 41 53 45 20 50 52 49 43 45 2E 22 3A 89 20 |CHASE PRICE.":. |
000009B0: 33 30 30 00 E8 11 20 03 99 43 31 24 3B 44 32 24 |300... ..C1$;D2$|
000009C0: 3B 22 11 C8 4F 57 20 4D 55 43 48 20 4C 41 4E 44 |;"..OW MUCH LAND|
000009D0: 20 54 4F 20 53 45 4C 4C 3F 22 3B 3A 8D 20 31 30 | TO SELL?";:. 10|
000009E0: 30 30 30 3A 51 B2 41 4E 00 F7 11 25 03 8B 20 51 |000:Q.AN...%.. Q|
000009F0: B3 30 20 A7 35 35 30 00 06 12 2A 03 8B 20 51 B1 |.0 .550...*.. Q.|
00000A00: 41 20 A7 36 34 30 00 1B 12 34 03 41 B2 41 AB 51 |A .640...4.A.A.Q|
00000A10: 3A 47 52 B2 47 52 AA 51 AC 50 52 00 36 12 3E 03 |:GR.GR.Q.PR.6.>.|
00000A20: 47 52 B2 47 52 AB 2E 35 AC 28 50 4C AB 41 29 AC |GR.GR..5.(PL.A).|
00000A30: 28 50 4C B1 41 29 00 54 12 48 03 50 4C B2 50 4C |(PL.A).T.H.PL.PL|
00000A40: AA 28 50 4C AB 41 29 AC 28 50 4C B1 41 29 3A 89 |.(PL.A).(PL.A):.|
00000A50: 20 33 30 30 00 6A 12 84 03 8B 20 50 4C B2 30 20 | 300.j.... PL.0 |
00000A60: AF 20 46 B2 30 20 A7 33 30 30 00 8E 12 88 03 8F |. F.0 .300......|
00000A70: 20 47 45 54 20 59 49 45 4C 44 20 46 49 47 55 52 | GET YIELD FIGUR|
00000A80: 45 20 46 4F 52 20 54 48 45 20 59 45 41 52 00 99 |E FOR THE YEAR..|
00000A90: 12 8B 03 8D 20 31 31 30 30 00 A2 12 8E 03 59 45 |.... 1100.....YE|
00000AA0: B2 43 00 C6 12 93 03 8F 20 47 45 54 20 41 20 48 |.C...... GET A H|
00000AB0: 41 52 56 45 53 54 20 41 4E 44 20 27 4D 55 4E 43 |ARVEST AND 'MUNC|
00000AC0: 48 45 44 27 20 23 00 D1 12 98 03 8D 20 31 32 30 |HED' #...... 120|
00000AD0: 30 00 DF 12 A2 03 47 52 B2 47 52 AB 45 AA 48 00 |0.....GR.GR.E.H.|
00000AE0: EA 12 AC 03 8D 20 31 30 35 30 00 0F 13 B1 03 8F |..... 1050......|
00000AF0: 20 47 45 54 20 41 20 50 4F 50 55 4C 41 54 49 4F | GET A POPULATIO|
00000B00: 4E 20 49 4E 43 52 45 4D 45 4E 54 20 28 49 29 00 |N INCREMENT (I).|
00000B10: 1A 13 B6 03 8D 20 31 33 30 30 00 36 13 BB 03 8F |..... 1300.6....|
00000B20: 20 49 46 20 51 3C 30 2C 2E 20 2E 20 2E 50 4C 41 | IF Q<0,. . .PLA|
00000B30: 47 55 45 21 21 21 00 49 13 C0 03 51 B2 B5 28 BB |GUE!!!.I...Q..(.|
00000B40: 28 31 29 AC 32 30 29 AB 32 00 6A 13 C5 03 8F 20 |(1).20).2.j.... |
00000B50: 43 20 49 53 20 23 20 4F 46 20 46 55 4C 4C 59 2D |C IS # OF FULLY-|
00000B60: 46 45 44 20 50 45 4F 50 4C 45 00 7C 13 CA 03 43 |FED PEOPLE.|...C|
00000B70: B2 B5 28 46 AD 32 30 29 3A 44 B2 30 00 8D 13 D4 |..(F.20):D.0....|
00000B80: 03 8B 20 50 B3 B2 43 20 A7 20 32 30 30 00 AA 13 |.. P..C . 200...|
00000B90: D9 03 8F 20 53 4F 20 44 20 4F 46 20 54 48 45 4D |... SO D OF THEM|
00000BA0: 20 44 49 45 44 2C 20 45 48 3F 00 B4 13 DE 03 44 | DIED, EH?.....D|
00000BB0: B2 50 AB 43 00 D8 13 E3 03 8F 20 49 4D 50 45 41 |.P.C...... IMPEA|
00000BC0: 43 48 20 54 48 45 20 4E 55 54 20 49 46 20 34 35 |CH THE NUT IF 45|
00000BD0: 2B 25 20 44 49 45 44 3B 00 EC 13 E8 03 8B 20 44 |+% DIED;...... D|
00000BE0: B1 2E 34 35 AC 50 20 A7 31 35 30 30 00 11 14 EB |..45.P .1500....|
00000BF0: 03 8F 20 4F 54 48 45 52 57 49 53 45 20 49 4E 43 |.. OTHERWISE INC|
00000C00: 52 45 4D 45 4E 54 20 42 4F 44 59 20 43 4F 55 4E |REMENT BODY COUN|
00000C10: 54 00 1D 14 ED 03 44 31 B2 44 31 AA 44 00 3F 14 |T.....D1.D1.D.?.|
00000C20: EF 03 8F 20 44 49 54 54 4F 20 46 4F 52 20 25 20 |... DITTO FOR % |
00000C30: 50 45 52 20 59 45 41 52 20 46 49 47 55 52 45 00 |PER YEAR FIGURE.|
00000C40: 5B 14 F2 03 50 31 B2 28 28 5A AB 31 29 AC 50 31 |[...P1.((Z.1).P1|
00000C50: AA 44 AC 31 30 30 AD 50 29 AD 5A 00 69 14 FC 03 |.D.100.P).Z.i...|
00000C60: 50 B2 43 3A 89 20 32 30 30 00 8A 14 15 04 8F 20 |P.C:. 200...... |
00000C70: 52 45 54 55 52 4E 20 52 41 4E 44 4F 4D 20 49 4E |RETURN RANDOM IN|
00000C80: 54 45 47 45 52 20 43 2E 2E 2E 00 A2 14 17 04 8F |TEGER C.........|
00000C90: 20 53 55 43 48 20 54 48 41 54 20 31 3C 3D 43 3C | SUCH THAT 1<=C<|
00000CA0: 3D 35 00 B6 14 1A 04 43 B2 B5 28 BB 28 31 29 AC |=5.....C..(.(1).|
00000CB0: 35 29 AA 31 3A 8E 00 C1 14 4C 04 8D 20 31 30 35 |5).1:....L.. 105|
00000CC0: 30 00 CE 14 56 04 48 B2 43 AC 50 4C 3A 8E 00 D9 |0...V.H.C.PL:...|
00000CD0: 14 B0 04 8D 20 31 30 35 30 00 FC 14 BA 04 45 B2 |.... 1050.....E.|
00000CE0: 30 3A 8B 20 43 AD 32 B2 B5 28 43 AD 32 29 20 A7 |0:. C.2..(C.2) .|
00000CF0: 20 45 B2 B5 28 47 52 AD 43 29 3A 8E 00 02 15 C4 | E..(GR.C):.....|
00000D00: 04 8E 00 21 15 14 05 49 B2 B5 28 43 AC 28 32 30 |...!...I..(C.(20|
00000D10: AC 41 AA 47 52 29 AD 50 AD 31 30 30 AA 31 29 3A |.A.GR).P.100.1):|
00000D20: 8E 00 62 15 DC 05 99 43 31 24 2C 44 32 24 3B 22 |..b....C1$,D2$;"|
00000D30: D9 4F 55 20 53 54 41 52 56 45 44 22 3B B5 28 31 |.OU STARVED";.(1|
00000D40: 30 30 AC 44 AD 50 29 3B 22 9D 25 20 4F 46 20 59 |00.D.P);".% OF Y|
00000D50: 4F 55 52 20 50 45 4F 50 4C 45 20 49 4E 20 4F 4E |OUR PEOPLE IN ON|
00000D60: 45 22 00 91 15 E6 05 99 44 32 24 3B 22 11 59 45 |E"......D2$;".YE|
00000D70: 41 52 2E 20 20 C4 55 45 20 54 4F 20 54 48 49 53 |AR. .UE TO THIS|
00000D80: 20 45 58 54 52 45 4D 45 20 4D 49 53 4D 41 4E 2D | EXTREME MISMAN-|
00000D90: 22 00 BC 15 F0 05 99 22 41 47 45 4D 45 4E 54 2C |"......"AGEMENT,|
00000DA0: 20 59 4F 55 20 48 41 56 45 20 4E 4F 54 20 4F 4E | YOU HAVE NOT ON|
00000DB0: 4C 59 20 42 45 45 4E 20 49 4D 2D 22 00 E9 15 FA |LY BEEN IM-"....|
00000DC0: 05 99 22 50 45 41 43 48 45 44 20 41 4E 44 20 54 |.."PEACHED AND T|
00000DD0: 48 52 4F 57 4E 20 4F 55 54 20 4F 46 20 4F 46 46 |HROWN OUT OF OFF|
00000DE0: 49 43 45 2C 20 42 55 54 22 00 21 16 04 06 99 22 |ICE, BUT".!...."|
00000DF0: 59 4F 55 20 48 41 56 45 20 41 4C 53 4F 20 42 45 |YOU HAVE ALSO BE|
00000E00: 45 4E 20 44 45 43 4C 41 52 45 44 A0 27 CE C1 D4 |EN DECLARED.'...|
00000E10: C9 CF CE C1 CC A0 A0 A0 C6 C9 CE CB 27 21 21 21 |............'!!!|
00000E20: 22 00 2C 16 0E 06 89 20 33 30 30 30 00 5B 16 D0 |".,.... 3000.[..|
00000E30: 07 99 22 CF 56 45 52 20 59 4F 55 52 22 3B 59 52 |..".VER YOUR";YR|
00000E40: 3B 22 59 45 41 52 20 54 45 52 4D 2C 20 41 4E 20 |;"YEAR TERM, AN |
00000E50: 41 56 45 52 41 47 45 20 4F 46 22 00 70 16 D5 07 |AVERAGE OF".p...|
00000E60: 50 31 B2 B5 28 50 31 AC 31 30 30 29 AD 31 30 30 |P1..(P1.100).100|
00000E70: 00 A2 16 DA 07 99 3B 50 31 3B 22 9D 25 20 4F 46 |......;P1;".% OF|
00000E80: 20 54 48 45 20 50 4F 50 55 4C 41 54 49 4F 4E 20 | THE POPULATION |
00000E90: 53 54 41 52 56 45 44 20 50 45 52 20 59 45 41 52 |STARVED PER YEAR|
00000EA0: 2C 22 00 CF 16 E4 07 99 22 49 2E 45 2E 2C 20 41 |,"......"I.E., A|
00000EB0: 20 54 4F 54 41 4C 20 4F 46 22 3B 44 31 3B 22 50 | TOTAL OF";D1;"P|
00000EC0: 45 4F 50 4C 45 20 53 54 41 52 56 45 44 2E 22 00 |EOPLE STARVED.".|
00000ED0: FD 16 EE 07 99 22 D9 4F 55 20 42 45 47 41 4E 20 |.....".OU BEGAN |
00000EE0: 57 49 54 48 20 31 30 20 41 43 52 45 53 20 50 45 |WITH 10 ACRES PE|
00000EF0: 52 20 43 41 50 49 54 41 A0 41 4E 44 22 00 33 17 |R CAPITA.AND".3.|
00000F00: F8 07 99 22 46 49 4E 49 53 48 45 44 20 57 49 54 |..."FINISHED WIT|
00000F10: 48 22 3B B5 28 31 30 AC 41 AD 50 29 AD 31 30 3B |H";.(10.A.P).10;|
00000F20: 22 41 43 52 45 53 20 50 45 52 20 43 41 50 49 54 |"ACRES PER CAPIT|
00000F30: 41 2E 22 00 45 17 02 08 8B 20 50 31 B1 32 35 20 |A.".E.... P1.25 |
00000F40: A7 32 36 30 30 00 57 17 0C 08 8B 20 41 AD 50 B3 |.2600.W.... A.P.|
00000F50: 38 20 A7 32 36 30 30 00 68 17 16 08 8B 20 50 31 |8 .2600.h.... P1|
00000F60: B1 33 20 A7 32 33 30 30 00 7B 17 20 08 8B 20 41 |.3 .2300.{. .. A|
00000F70: AD 50 B3 31 30 20 A7 32 33 30 30 00 A8 17 34 08 |.P.10 .2300...4.|
00000F80: 99 22 C1 20 4A 4F 42 20 56 45 52 59 20 57 45 4C |.". JOB VERY WEL|
00000F90: 4C 20 44 4F 4E 45 21 20 20 D9 4F 55 20 48 41 56 |L DONE! .OU HAV|
00000FA0: 45 20 54 52 55 4C 59 22 00 D7 17 3E 08 99 22 44 |E TRULY"...>.."D|
00000FB0: 45 46 49 45 44 20 54 48 45 20 4F 44 44 53 20 41 |EFIED THE ODDS A|
00000FC0: 4E 44 20 48 41 56 45 20 42 45 45 4E 20 41 20 54 |ND HAVE BEEN A T|
00000FD0: 52 45 4D 45 4E 2D 22 00 0C 18 48 08 99 22 44 4F |REMEN-"...H.."DO|
00000FE0: 55 53 20 41 44 4D 49 4E 49 53 54 52 41 54 4F 52 |US ADMINISTRATOR|
00000FF0: 2E 20 20 C3 4F 4E 47 52 41 54 55 4C 41 54 49 4F |. .ONGRATULATIO|
00001000: 4E 53 21 21 22 3A 89 20 33 30 30 30 00 3D 18 FC |NS!!":. 3000.=..|
00001010: 08 99 22 D4 48 45 20 57 4F 52 44 20 57 48 49 43 |..".HE WORD WHIC|
00001020: 48 20 44 45 53 43 52 49 42 45 53 20 59 4F 55 52 |H DESCRIBES YOUR|
00001030: 20 57 4F 52 4B 20 53 45 45 4D 53 22 3B 00 67 18 | WORK SEEMS";.g.|
00001040: 06 09 99 22 54 4F 20 42 45 20 27 55 4E 44 49 53 |..."TO BE 'UNDIS|
00001050: 54 49 4E 47 55 49 53 48 45 44 27 2E 20 20 D9 4F |TINGUISHED'. .O|
00001060: 55 20 57 45 52 45 22 00 93 18 10 09 99 22 42 45 |U WERE"......"BE|
00001070: 54 54 45 52 20 54 48 41 4E 20 53 4F 4D 45 2C 20 |TTER THAN SOME, |
00001080: 57 4F 52 53 45 20 54 48 41 4E 20 4F 54 48 45 52 |WORSE THAN OTHER|
00001090: 53 2E 22 00 AA 18 1A 09 51 B2 B5 28 2E 30 38 AC |S.".....Q..(.08.|
000010A0: BB 28 31 29 AC 50 31 AC 50 29 00 C4 18 1F 09 51 |.(1).P1.P).....Q|
000010B0: 31 B2 28 51 B1 50 29 3A 51 B2 28 51 AB 50 29 AC |1.(Q.P):Q.(Q.P).|
000010C0: 51 31 AA 51 00 F1 18 24 09 99 3B 51 3B 22 50 45 |Q1.Q...$..;Q;"PE|
000010D0: 4F 50 4C 45 20 57 4F 55 4C 44 20 4A 55 53 54 20 |OPLE WOULD JUST |
000010E0: 4C 4F 56 45 20 54 4F 20 53 45 45 20 59 4F 55 52 |LOVE TO SEE YOUR|
000010F0: 22 00 32 19 2E 09 99 22 54 48 52 4F 41 54 20 53 |".2...."THROAT S|
00001100: 4C 49 54 2C 20 42 55 54 20 57 45 20 41 4C 4C 20 |LIT, BUT WE ALL |
00001110: 48 41 56 45 20 4F 55 52 20 54 52 49 56 49 41 4C |HAVE OUR TRIVIAL|
00001120: 20 50 52 4F 42 4C 45 4D 53 2E 22 3A 89 20 33 30 | PROBLEMS.":. 30|
00001130: 30 30 00 60 19 28 0A 99 22 D9 4F 55 20 41 52 45 |00.`.(..".OU ARE|
00001140: 20 45 49 54 48 45 52 20 41 20 54 45 52 52 49 46 | EITHER A TERRIF|
00001150: 49 43 20 42 55 4E 47 4C 45 52 20 4F 52 20 41 22 |IC BUNGLER OR A"|
00001160: 00 8D 19 32 0A 99 22 48 4F 52 52 45 4E 44 4F 55 |...2.."HORRENDOU|
00001170: 53 20 42 52 55 54 45 21 20 20 C9 54 20 57 4F 55 |S BRUTE! .T WOU|
00001180: 4C 44 20 42 45 20 41 20 56 45 52 59 22 00 BA 19 |LD BE A VERY"...|
00001190: 3C 0A 99 22 47 4F 4F 44 20 49 44 45 41 20 54 4F |<.."GOOD IDEA TO|
000011A0: 20 4C 45 41 56 45 20 54 4F 57 4E 2E 20 20 D4 4F | LEAVE TOWN. .O|
000011B0: 20 53 45 45 20 59 4F 55 52 22 00 E6 19 46 0A 99 | SEE YOUR"...F..|
000011C0: 22 42 41 43 4B 20 57 4F 55 4C 44 20 47 4C 41 44 |"BACK WOULD GLAD|
000011D0: 44 45 4E 20 41 4C 4C 20 4F 46 20 55 53 2C 20 41 |DEN ALL OF US, A|
000011E0: 4C 4D 4F 53 54 22 00 0F 1A 50 0A 99 22 41 53 20 |LMOST"...P.."AS |
000011F0: 4D 55 43 48 20 41 53 20 50 55 54 54 49 4E 47 20 |MUCH AS PUTTING |
00001200: 41 20 4B 4E 49 46 45 20 49 4E 20 49 54 2E 22 00 |A KNIFE IN IT.".|
00001210: 2B 1A B8 0B 99 22 11 C8 49 54 20 41 4E 59 20 4B |+...."..IT ANY K|
00001220: 45 59 20 54 4F 20 45 58 49 54 22 00 43 1A C2 0B |EY TO EXIT".C...|
00001230: A1 20 43 24 3A 8B 20 43 24 B2 22 22 20 A7 20 33 |. C$:. C$."" . 3|
00001240: 30 31 30 00 70 1A CC 0B 99 22 93 11 11 11 11 11 |010.p...."......|
00001250: 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 20 |...... |
00001260: 53 4F 20 4C 4F 4E 47 20 46 4F 52 20 4E 4F 57 22 |SO LONG FOR NOW"|
00001270: 00 7B 1A D6 0B 89 20 36 30 30 30 00 8A 1A EC 13 |.{.... 6000.....|
00001280: 97 20 35 33 32 37 32 2C 32 33 00 AF 1A F6 13 99 |. 53272,23......|
00001290: 22 93 11 11 C4 4F 20 59 4F 55 20 4E 45 45 44 20 |"....O YOU NEED |
000012A0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 3F 22 3B 00 |INSTRUCTIONS?";.|
000012B0: C6 1A 00 14 A1 20 43 24 3A 8B 20 43 24 B2 22 22 |..... C$:. C$.""|
000012C0: 20 A7 35 31 32 30 00 DF 1A 0A 14 8B 20 43 24 B2 | .5120...... C$.|
000012D0: 22 4E 22 20 A7 99 43 24 3A 89 20 35 33 34 30 00 |"N" ..C$:. 5340.|
000012E0: F3 1A 14 14 8B 20 43 24 B3 B1 22 59 22 20 A7 35 |..... C$.."Y" .5|
000012F0: 31 32 30 00 FB 1A 19 14 99 43 24 00 2A 1B 1E 14 |120......C$.*...|
00001300: 99 22 93 CB 49 4E 47 44 4F 4D 20 49 53 20 41 20 |."..INGDOM IS A |
00001310: 53 49 4D 55 4C 41 54 49 4F 4E 2C 20 41 4C 42 45 |SIMULATION, ALBE|
00001320: 49 54 20 43 52 55 44 45 2C 22 00 57 1B 28 14 99 |IT CRUDE,".W.(..|
00001330: 22 4F 46 20 41 20 46 41 52 4D 49 4E 47 20 54 4F |"OF A FARMING TO|
00001340: 57 4E 20 49 4E 20 41 4E 43 49 45 4E 54 20 D6 22 |WN IN ANCIENT ."|
00001350: DA FE 9F D8 41 22 22 00 84 1B 32 14 99 22 D9 4F |....A""...2..".O|
00001360: 55 52 20 53 54 45 57 41 52 44 20 49 4E 20 C8 41 |UR STEWARD IN .A|
00001370: 4D 55 52 41 42 49 2C 20 41 4E 44 20 48 45 20 57 |MURABI, AND HE W|
00001380: 49 4C 4C 22 00 AF 1B 3C 14 99 22 52 45 50 4F 52 |ILL"...<.."REPOR|
00001390: 54 20 54 4F 20 59 4F 55 20 45 56 45 52 59 20 59 |T TO YOU EVERY Y|
000013A0: 45 41 52 2E 20 20 D9 4F 55 20 47 49 56 45 22 00 |EAR. .OU GIVE".|
000013B0: DD 1B 46 14 99 22 4F 52 44 45 52 53 20 41 53 20 |..F.."ORDERS AS |
000013C0: 54 4F 20 48 4F 57 20 4D 55 43 48 20 47 52 41 49 |TO HOW MUCH GRAI|
000013D0: 4E 20 54 4F 20 47 49 56 45 20 54 4F 22 00 0B 1C |N TO GIVE TO"...|
000013E0: 50 14 99 22 59 4F 55 52 20 50 45 4F 50 4C 45 2C |P.."YOUR PEOPLE,|
000013F0: 20 48 4F 57 20 4D 41 4E 59 20 41 43 52 45 53 20 | HOW MANY ACRES |
00001400: 4F 46 20 4C 41 4E 44 20 54 4F 22 00 3A 1C 5A 14 |OF LAND TO".:.Z.|
00001410: 99 22 50 4C 41 4E 54 2C 20 41 4E 44 20 48 4F 57 |."PLANT, AND HOW|
00001420: 20 4D 55 43 48 20 4C 41 4E 44 20 54 4F 20 42 55 | MUCH LAND TO BU|
00001430: 59 20 4F 52 20 53 45 4C 4C 22 00 66 1C 64 14 99 |Y OR SELL".f.d..|
00001440: 22 28 41 54 20 54 48 45 20 47 4F 49 4E 47 20 52 |"(AT THE GOING R|
00001450: 41 54 45 2C 20 4F 46 20 43 4F 55 52 53 45 29 2E |ATE, OF COURSE).|
00001460: 20 20 D9 4F 55 22 00 95 1C 6E 14 99 22 43 41 4E | .OU"...n.."CAN|
00001470: 20 4D 41 4E 49 50 55 4C 41 54 45 20 59 4F 55 52 | MANIPULATE YOUR|
00001480: 20 4F 52 44 45 52 53 20 41 4E 44 20 53 45 45 20 | ORDERS AND SEE |
00001490: 57 48 41 54 22 00 C4 1C 78 14 99 22 48 41 50 50 |WHAT"...x.."HAPP|
000014A0: 45 4E 53 20 57 48 45 4E 45 56 45 52 20 59 4F 55 |ENS WHENEVER YOU|
000014B0: 20 43 48 41 4E 47 45 20 41 4E 59 20 46 49 47 55 | CHANGE ANY FIGU|
000014C0: 52 45 2E 22 00 F0 1C 82 14 99 22 CF 4E 4C 59 20 |RE."......".NLY |
000014D0: 57 48 45 4E 20 59 4F 55 20 47 4F 20 54 4F 20 54 |WHEN YOU GO TO T|
000014E0: 48 45 20 4E 45 58 54 20 59 45 41 52 20 44 4F 22 |HE NEXT YEAR DO"|
000014F0: 00 1F 1D 8C 14 99 22 59 4F 55 52 20 4F 52 44 45 |......"YOUR ORDE|
00001500: 52 53 20 42 45 43 4F 4D 45 20 46 49 4E 41 4C 2E |RS BECOME FINAL.|
00001510: 20 20 D7 48 45 4E 20 59 4F 55 20 44 4F 2C 22 00 | .HEN YOU DO,".|
00001520: 47 1D 96 14 99 22 59 4F 55 20 4D 55 53 54 20 42 |G...."YOU MUST B|
00001530: 45 20 50 52 45 50 41 52 45 44 20 54 4F 20 54 41 |E PREPARED TO TA|
00001540: 4B 45 20 54 48 45 22 00 74 1D A0 14 99 22 43 4F |KE THE".t...."CO|
00001550: 4E 53 45 51 55 45 4E 43 45 53 21 20 20 C9 54 20 |NSEQUENCES! .T |
00001560: 54 41 4B 45 53 20 32 30 20 42 55 53 48 45 4C 53 |TAKES 20 BUSHELS|
00001570: 20 4F 46 22 00 9F 1D AA 14 99 22 47 52 41 49 4E | OF"......"GRAIN|
00001580: 20 54 4F 20 47 45 54 20 4F 4E 45 20 50 45 52 53 | TO GET ONE PERS|
00001590: 4F 4E 20 54 48 52 4F 55 47 48 20 54 48 45 22 00 |ON THROUGH THE".|
000015A0: CC 1D B4 14 99 22 59 45 41 52 2E 20 20 CF 4E 45 |....."YEAR. .NE|
000015B0: 20 50 45 52 53 4F 4E 20 43 41 4E 20 46 41 52 4D | PERSON CAN FARM|
000015C0: 20 54 45 4E 20 41 43 52 45 53 2C 22 00 F7 1D BE | TEN ACRES,"....|
000015D0: 14 99 22 41 4E 44 20 59 4F 55 20 48 41 44 20 42 |.."AND YOU HAD B|
000015E0: 45 54 54 45 52 20 42 45 20 52 45 41 44 59 20 46 |ETTER BE READY F|
000015F0: 4F 52 20 41 4E 59 22 00 22 1E C8 14 99 22 55 4E |OR ANY"."...."UN|
00001600: 45 41 54 45 4E 20 4F 52 20 55 4E 53 4F 4C 44 20 |EATEN OR UNSOLD |
00001610: 47 52 41 49 4E 20 54 4F 20 42 45 20 45 41 54 45 |GRAIN TO BE EATE|
00001620: 4E 22 00 4A 1E D2 14 99 22 42 59 20 52 41 54 53 |N".J...."BY RATS|
00001630: 2E 20 2D 2D C5 CE C4 20 CF C6 A0 C9 CE D3 D4 D2 |. --... ........|
00001640: D5 C3 D4 C9 CF CE D3 2D 2D 22 00 84 1E DC 14 99 |.......--"......|
00001650: 22 C8 4F 57 20 4D 41 4E 59 20 59 45 41 52 53 20 |".OW MANY YEARS |
00001660: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 |DO YOU WISH TO R|
00001670: 55 4C 45 3F 22 3B 3A 8D 20 31 30 30 30 30 3A 59 |ULE?";:. 10000:Y|
00001680: 52 B2 41 4E 00 91 1E F0 14 59 52 B2 B5 28 59 52 |R.AN.....YR..(YR|
00001690: 29 00 CC 1E FA 14 8B 59 52 B1 35 A7 99 22 11 54 |)......YR.5..".T|
000016A0: 59 50 45 20 27 48 27 20 46 4F 52 20 54 48 45 20 |YPE 'H' FOR THE |
000016B0: 48 45 4C 50 20 54 45 58 54 22 3A 81 20 49 39 B2 |HELP TEXT":. I9.|
000016C0: 31 20 A4 20 31 35 30 30 3A 82 3A 8E 00 F7 1E 04 |1 . 1500:.:.....|
000016D0: 15 99 22 C1 52 45 20 59 4F 55 20 54 48 41 54 20 |..".RE YOU THAT |
000016E0: 54 49 4D 49 44 3F 20 20 C2 45 20 52 45 41 53 4F |TIMID? .E REASO|
000016F0: 4E 41 42 4C 45 21 22 00 02 1F 18 15 89 20 35 33 |NABLE!"...... 53|
00001700: 34 30 00 08 1F 6F 17 90 00 17 1F 70 17 97 20 35 |40...o.....p.. 5|
00001710: 33 32 37 32 2C 32 31 00 1D 1F 71 17 80 00 23 1F |3272,21...q...#.|
00001720: 10 27 8F 00 2E 1F 1A 27 4D 34 24 B2 22 22 00 4E |.'.....'M4$."".N|
00001730: 1F 24 27 99 22 A6 9D 22 3B 3A A1 20 4D 35 24 3A |.$'."..";:. M5$:|
00001740: 8B 4D 35 24 B3 B1 22 22 A7 31 30 30 34 30 00 6F |.M5$.."".10040.o|
00001750: 1F 2E 27 99 22 12 A6 92 9D 22 3B 3A A1 20 4D 35 |..'."....";:. M5|
00001760: 24 3A 8B 4D 35 24 B2 22 22 A7 31 30 30 32 30 00 |$:.M5$."".10020.|
00001770: 8F 1F 38 27 8B 20 C6 28 4D 35 24 29 B2 31 33 20 |..8'. .(M5$).13 |
00001780: AF 20 4D 34 24 B2 22 22 20 A7 31 30 30 33 30 00 |. M4$."" .10030.|
00001790: A8 1F 42 27 8B 20 C6 28 4D 35 24 29 B3 B1 32 30 |..B'. .(M5$)..20|
000017A0: 20 A7 20 31 30 30 39 30 00 DE 1F 4C 27 8B 20 C3 | . 10090...L'. .|
000017B0: 28 4D 34 24 29 B1 B2 32 20 A7 20 4D 34 24 B2 C8 |(M4$)..2 . M4$..|
000017C0: 28 4D 34 24 2C C3 28 4D 34 24 29 AB 31 29 3A 99 |(M4$,.(M4$).1):.|
000017D0: 22 20 9D 9D 22 3B 3A 89 20 31 30 30 32 30 00 F2 |" ..";:. 10020..|
000017E0: 1F 56 27 8B 20 4D 34 24 B2 22 22 20 A7 31 30 30 |.V'. M4$."" .100|
000017F0: 33 30 00 0D 20 60 27 4D 34 24 B2 22 22 3A 99 22 |30.. `'M4$."":."|
00001800: 20 9D 9D 22 3B 3A 89 20 31 30 30 32 30 00 27 20 | ..";:. 10020.' |
00001810: 6A 27 8B 20 C6 28 4D 35 24 29 B2 31 33 20 A7 20 |j'. .(M5$).13 . |
00001820: 89 20 31 30 31 32 30 00 59 20 74 27 8B 28 C6 28 |. 10120.Y t'.(.(|
00001830: 4D 35 24 29 B3 34 38 20 B0 20 C6 28 4D 35 24 29 |M5$).48 . .(M5$)|
00001840: B1 35 37 29 AF 28 4D 35 24 B3 B1 22 2E 22 29 20 |.57).(M5$..".") |
00001850: A7 20 89 20 31 30 30 33 30 00 77 20 7E 27 4D 34 |. . 10030.w ~'M4|
00001860: 24 B2 4D 34 24 AA 4D 35 24 3A 99 4D 35 24 3B 3A |$.M4$.M5$:.M5$;:|
00001870: 89 20 31 30 30 32 30 00 8C 20 88 27 41 4E B2 C5 |. 10020.. .'AN..|
00001880: 28 4D 34 24 29 3A 99 22 20 22 3A 8E 00 99 20 60 |(M4$):." ":... `|
00001890: EA 9F 20 31 2C 38 2C 31 35 00 B1 20 6A EA A1 23 |.. 1,8,15.. j..#|
000018A0: 31 2C 58 24 3A 99 58 24 3B 3A 89 20 36 30 30 31 |1,X$:.X$;:. 6001|
000018B0: 30 00 00 00 |0... |
..J.D.P.95:D.0:I.5:P1.0:D1.0:Z.0:GR.2800
:H.3000:E.200:Q.1:YE.3:A.1000:PL.A.`.N.D
1$."...........".Y.X.D2$."..............
".....D3$."................".U...C1$."..
.............
"...... X$(2):X$(1)." .":X$(
2).". ..".1...E$."":. X9.1 . 40:E$.E$."
":.:. X9.1.40:E$.E$.".":..<. .. 5100...
.. P=POPULATION;I=INCREMENT;P1 AND D1 AR
E RUNNING TOTALS;Z=YEAR.F.... GR=GRAIN;H
=HARVEST;E=EATEN BY RATS;Q=PLAGUE PARA
METER;YE=YEILD...... A=ACREAGE;PL=ACRES
PLANTED...H.Z.Z.1:.".HAMURABI: I BEG TO
REPORT TO YOU,".@.R.."IN YEAR";Z;",";D;
"PEOPLE DIED,";I._...."CAME TO THE CITY.
":P.P.I.O.... Q.0 . 250.....P..(P.2):."A
PLAGUE STRUCK! HALF THE PEOPLE DIED.".
B...."POPULATION IS NOW";P......"THE HAR
VEST WAS";YE;"BUSHELS/ACRE OVER";PL;.40)
;"ACRES."......"RATS ATE";E;"BUSHELS.".1
.... Z.YR.1 .2000.N.".PR.17..(.(1).10):.
"LAND IS TRADING AT";PR;"BUSHELS/ACRE".{
.'.PL.0:F.0...,.."...........LAND. .
GRAIN . . ACRES ."...6..".
........... . SELL & STORE. .FEED PEO
PLE .PLANTED.".-.;..D1$;.39);"
".T.@..D1$;.
39);A;.47);GR;.60);F;.71);PL.{.J..D2$;"D
O WHAT?";H(E$,32);I(E$,32);...T.W..(TI.2
0):ZC.2.(W..(W.2).2)...Y.. X$(ZC);:. C$:
. C$."" .340.E.[..C$;.W.^.. C$."H" .400.
..M.. C$."F" .."EED":. 500...R.. C$."P"
.."LANT":. 600.(.W.. C$."B" .."UY":. 700
.C.|.. C$."S" .."ELL":. 800.^.... C$."Y"
.."EAR":. 900.H.... 300......D2$;"COMMA
ND FUNCTION";C1$......"F - FEED
PEOPLE GRAIN".H...."P - PLANT LAND"
......"B - BUY LAND"......"S - S
ELL LAND"...B.."Y - GO TO THE NEXT Y
EAR".<.L.."H - PRINTS THIS TEXT".^.V
..". HIT ANY KEY TO CONTINUE".U.... C$:
. C$."" . 480......D2$;".........
";C1$...
... 300.O...GR.GR.F:F.0......C1$;D2$;".H
OW MUCH GRAIN TO FEED THE PEOPLE?";:. 10
000:F.AN...... F.0 .550.:.... F..GR . GR
.GR.F:.300.B...F.0.{....D2$;".YOU DO NOT
HAVE THAT MUCH GRAIN!! ":.300.G.&.
.C1$,D2$;"HAMURABI: I CAN'T DO THAT;":.
"GET YOURSELF ANOTHER STEWARD."...0.. I.
1 . 2000:. I...:.. 3000...X.GR.GR..5.PL:
PL.0.4.B..C1$;D2$;".HOW MANY ACRES TO PL
ANT?";:. 10000:PL.AN.D.G.. PL.0 .550._.L
.. PL..5.GR . PL.0:.530.R.V.. PL.10.P .6
60...... PL..A . GR.GR..5.PL:. 300.L....
C1$;D2$;".YOU DO NOT HAVE THAT MUCH LAND
.":PL.0:.300......C1$,D2$;".YOU ONLY HAV
E";P;"PEOPLE TO GROW CROPS":PL.0:. 300.B
....C1$;D2$;".HOW MUCH LAND TO BUY?";:.
10000:Q.AN.Q.A.. Q.0 .550.Y.F.. Q.PR..GR
. GR.GR.Q.PR:A.A.Q:. 300...P..C1$;D2$;"
.YOU CAN'T COVER THE PURCHASE PRICE.":.
300... ..C1$;D2$;".HOW MUCH LAND TO SELL
?";:. 10000:Q.AN...%.. Q.0 .550...*.. Q.
A .640...4.A.A.Q:GR.GR.Q.PR.6.>.GR.GR..5
.(PL.A).(PL.A).T.H.PL.PL.(PL.A).(PL.A):.
300.J.... PL.0 . F.0 .300...... GET YIE
LD FIGURE FOR THE YEAR...... 1100.....YE
.C.F.... GET A HARVEST AND 'MUNCHED' #.Q
.... 1200.....GR.GR.E.H...... 1050......
GET A POPULATION INCREMENT (I)...... 13
00.6.... IF Q<0,. . .PLAGUE!!!.I...Q..(.
(1).20).2.J.E.. C IS # OF FULLY-FED PEOP
LE.|.J.C..(F.20):D.0...T.. P..C . 200...
Y.. SO D OF THEM DIED, EH?.....D.P.C.X..
.. IMPEACH THE NUT IF 45+% DIED;...... D
..45.P .1500...... OTHERWISE INCREMENT B
ODY COUNT.....D1.D1.D.?.... DITTO FOR %
PER YEAR FIGURE.[...P1.((Z.1).P1.D.100.P
).Z.I...P.C:. 200...... RETURN RANDOM IN
TEGER C......... SUCH THAT 1<=C<=5.....C
..(.(1).5).1:..A.L.. 1050.N.V.H.C.PL:..Y
.... 1050.....E.0:. C.2..(C.2) . E..(GR.
C):....D...!...I..(C.(20.A.GR).P.100.1):
..B....C1$,D2$;"YOU STARVED";.(100.D.P);
".% OF YOUR PEOPLE IN ONE"......D2$;".YE
AR. DUE TO THIS EXTREME MISMAN-"......"
AGEMENT, YOU HAVE NOT ONLY BEEN IM-"....
.."PEACHED AND THROWN OUT OF OFFICE, BUT
".!...."YOU HAVE ALSO BEEN DECLARED 'NAT
IONAL FINK'!!!".,.... 3000.[.P.."OVER
YOUR";YR;"YEAR TERM, AN AVERAGE OF".P.U.
P1..(P1.100).100...Z..;P1;".% OF THE POP
ULATION STARVED PER YEAR,".O...."I.E., A
TOTAL OF";D1;"PEOPLE STARVED."......"YO
U BEGAN WITH 10 ACRES PER CAPITA AND".3.
..."FINISHED WITH";.(10.A.P).10;"ACRES P
ER CAPITA.".E.... P1.25 .2600.W.... A.P.
8 .2600.H.... P1.3 .2300.{. .. A.P.10 .2
300...4.."A JOB VERY WELL DONE! YOU HAV
E TRULY".W.>.."DEFIED THE ODDS AND HAVE
BEEN A TREMEN-"...H.."DOUS ADMINISTRATOR
. CONGRATULATIONS!!":. 3000.=...."THE W
ORD WHICH DESCRIBES YOUR WORK SEEMS";.G.
..."TO BE 'UNDISTINGUISHED'. YOU WERE".
....."BETTER THAN SOME, WORSE THAN OTHER
S.".....Q..(.08..(1).P1.P).D...Q1.(Q.P):
Q.(Q.P).Q1.Q...$..;Q;"PEOPLE WOULD JUST
LOVE TO SEE YOUR".2...."THROAT SLIT, BUT
WE ALL HAVE OUR TRIVIAL PROBLEMS.":. 30
00.`.(.."YOU ARE EITHER A TERRIFIC BUNGL
ER OR A"...2.."HORRENDOUS BRUTE! IT WOU
LD BE A VERY"...<.."GOOD IDEA TO LEAVE T
OWN. TO SEE YOUR"...F.."BACK WOULD GLAD
DEN ALL OF US, ALMOST"...P.."AS MUCH AS
PUTTING A KNIFE IN IT.".+....".HIT ANY K
EY TO EXIT".C.B.. C$:. C$."" . 3010.P.L.
."............ SO LONG FOR NOW"
.{.V.. 6000...... 53272,23......"...DO Y
OU NEED INSTRUCTIONS?";.F.... C$:. C$.""
.5120...... C$."N" ..C$:. 5340...... C$
.."Y" .5120......C$.*....".KINGDOM IS A
SIMULATION, ALBEIT CRUDE,".W.(.."OF A FA
RMING TOWN IN ANCIENT V"Z..XA""...2.."YO
UR STEWARD IN HAMURABI, AND HE WILL"...<
.."REPORT TO YOU EVERY YEAR. YOU GIVE".
..F.."ORDERS AS TO HOW MUCH GRAIN TO GIV
E TO"...P.."YOUR PEOPLE, HOW MANY ACRES
OF LAND TO".:.Z.."PLANT, AND HOW MUCH LA
ND TO BUY OR SELL".F.D.."(AT THE GOING R
ATE, OF COURSE). YOU"...N.."CAN MANIPUL
ATE YOUR ORDERS AND SEE WHAT".D.X.."HAPP
ENS WHENEVER YOU CHANGE ANY FIGURE."....
.."ONLY WHEN YOU GO TO THE NEXT YEAR DO"
......"YOUR ORDERS BECOME FINAL. WHEN Y
OU DO,".G...."YOU MUST BE PREPARED TO TA
KE THE".T. .."CONSEQUENCES! IT TAKES 20
BUSHELS OF"......"GRAIN TO GET ONE PERS
ON THROUGH THE".L...."YEAR. ONE PERSON
CAN FARM TEN ACRES,"......"AND YOU HAD B
ETTER BE READY FOR ANY".".H.."UNEATEN OR
UNSOLD GRAIN TO BE EATEN".J.R.."BY RATS
. --END OF INSTRUCTIONS--"......"HOW MAN
Y YEARS DO YOU WISH TO RULE?";:. 10000:Y
R.AN.....YR..(YR).L....YR.5..".TYPE 'H'
FOR THE HELP TEXT":. I9.1 . 1500:.:.....
.."ARE YOU THAT TIMID? BE REASONABLE!".
..... 5340...O.....P.. 53272,21...Q...#.
.'.....'M4$."".N.$'."..";:. M5$:.M5$..""
.10040.O..'."....";:. M5$:.M5$."".10020.
..8'. F(M5$).13 . M4$."" .10030...B'. F(
M5$)..20 . 10090...L'. C(M4$)..2 . M4$.H
(M4$,C(M4$).1):." ..";:. 10020...V'. M4$
."" .10030.. `'M4$."":." ..";:. 10020.'
J'. F(M5$).13 . . 10120.Y T'.(F(M5$).48
. F(M5$).57).(M5$..".") . . 10030.W ~'M4
$.M4$.M5$:.M5$;:. 10020.. .'AN.E(M4$):."
":... `.. 1,8,15.. J..#1,X$:.X$;:. 6001
0...
> CLICK IMAGE PREVIEW FOR FULL MODAL