finish ( game -- )


Vocabulary
hamurabi.private

Inputs
gamean object


Outputs
None

Definition


: finish ( game -- )
dup #percent-died
"IN YOUR 10-YEAR TERM OF OFFICE, %d PERCENT OF THE\n" printf
"POPULATION STARVED PER YEAR ON AVERAGE, I.E., A TOTAL OF"
print
dup total-deaths>> "%d PEOPLE DIED!!\n" printf
"YOU STARTED WITH 10 ACRES PER PERSON AND ENDED WITH" print
dup #acres-per-person "%d ACRES PER PERSON\n" printf nl
leave nl "SO LONG FOR NOW." print ;