This page (revision-7) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg 

This page was created on 13-Jun-2015 21:40 by Roland B. Wassenberg

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
7 03-Feb-2023 15:21 3 KB Roland B. Wassenberg to previous
6 13-Jun-2015 23:17 3 KB Roland B. Wassenberg to previous | to last
5 13-Jun-2015 23:10 3 KB Roland B. Wassenberg to previous | to last
4 13-Jun-2015 23:09 3 KB Roland B. Wassenberg to previous | to last
3 13-Jun-2015 23:05 3 KB Roland B. Wassenberg to previous | to last
2 13-Jun-2015 22:01 1 KB Roland B. Wassenberg to previous | to last
1 13-Jun-2015 21:40 25 bytes Roland B. Wassenberg to last Atari Kingdom CX4102

Page References

Incoming links Outgoing links
Atari Kingdom
Atari Kingdom

Version management

Difference between version and

At line 2 added 24 lines
!!Messages from the source code
300 IF RND(0)<0.03 THEN GOSUB 250:? " A plague! Half the people died!!":P=INT(P/2)\\
320 GOSUB 90:PRINT "ACRES TO SELL";:GOSUB 920:IF BAD THEN 320\\
370 GOSUB 90:PRINT "ACRES TO BUY";:GOSUB 920:IF BAD THEN 370\\
430 GOSUB 90:PRINT "BUSHELS FOR THE PEOPLE";:GOSUB 920:IF BAD THEN 430\\
470 GOSUB 90:PRINT "ACRES TO PLANT";:GOSUB 920:IF BAD THEN 470\\
540 GOSUB 90:PRINT "You have only ";P;" people!":GOSUB 30:GOTO 470\\
660 GOSUB 250:PRINT "You starved ";S;" people this year!"\\
670 ? "Due to this extreme mismanagement,"\\
680 ? "you have been thrown out of office":? "and declared National Fink!":GOTO 890\\
690 GOSUB 90:PRINT "You've only ";B;" bushels of grain!";:GOTO 30\\
700 GOSUB 90:PRINT "You've only ";A;" acres of land!!":GOTO 30:RETURN \\
720 GOSUB 200:GOSUB 250:? "In ";Y;" years of office, ";P1;"% of the":? "population starved on the average."\\
730 ? D1;" people died in total starting":L4=INT(A/P)\\
740 ? "with 10 acres/person and ending":? "with ";L4;" acres/person.":GOSUB 50\\
810 GOSUB 250:? "A fantastic performance!":? "Charlemange, Disraeli, and "\\
820 ? "Jefferson combined could not have ":? "done better!!":GOTO 870\\
830 GOSUB 250:? "Your heavy-handed performance ":? "smacks of Nero and Ivan IV. The"\\
840 ? "people find you an unpleasant ruler":? "frankly hate your guts!":GOTO 870\\
850 GOSUB 250:? "You could have done better."\\
860 ? INT(P*0.8*RND(0));" people would like to see you":? "assassinated."\\
This page (revision-7) was last changed on 03-Feb-2023 15:21 by Roland B. Wassenberg  Top