mirror of
https://github.com/jscrane/Apple1.git
synced 2024-12-27 20:31:00 +00:00
...
This commit is contained in:
parent
b9fdf4884f
commit
6f002618bc
@ -5,15 +5,12 @@ LOMEM=768
|
||||
80 PRINT "TRY YOUR HAND AT GOVERNING ANCIENT"
|
||||
82 PRINT "SUMERIA SUCCESSFULLY FOR A 10-YEAR TERM"
|
||||
85 PRINT "OF OFFICE."
|
||||
|
||||
95 D1=1:P1=0
|
||||
|
||||
100 Z=0:P=95:S=2800:H=3000:E=H-S
|
||||
110 Y=3:A=H/Y:I=5:Q=1
|
||||
210 D=0
|
||||
215 PRINT : PRINT : PRINT "HAMURABI: I BEG TO REPORT TO YOU,"
|
||||
216 Z=Z+1:PRINT "IN YEAR ";Z;", ";D;" PEOPLE STARVED,": PRINT I;" CAME TO THE CITY."
|
||||
|
||||
218 P=P+I
|
||||
227 IF Q>0 THEN 230
|
||||
228 P=P/2
|
||||
|
@ -53,3 +53,4 @@
|
||||
: 20 20 28 59 2F 4E 29 20 00 04 A9 7D 8D 04 06 A9 09 8D 05 06 A9 1C 8D 0A 06 20 01 06 60 42 55 52
|
||||
: 4E 20 4F 55 54 20 4F 46 20 52 41 4E 47 45 2E 20 20 20 20 20 42 55 52 4E 20 3F A9 AD 8D 04 06 A9
|
||||
: 09 8D 05 06 A9 0A 8D 0A 06 20 01 06 60 43 4F 4E 54 52 4F 4C 20 4F 55 54 FF
|
||||
0300R
|
||||
|
@ -70,3 +70,4 @@
|
||||
: 75 14 04 66 11 05 56 21 0B 55 24 0F 42 25 06 43 99 03 02 63 25 0B 25 41 05 54 24 0E 72 01 00 36
|
||||
: 46 04 52 25 07 55 22 06 43 33 0F CC 99 03 07 74 14 01 52 52 04 36 23 0E 53 06 00 75 41 04 31 25
|
||||
: 06 52 22 07 55 34 0F 44
|
||||
0300R
|
||||
|
Loading…
Reference in New Issue
Block a user