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

Version management

Difference between version and

At line 1 changed one line
!!!Atari Kingdom CX4102
!!!Atari Kingdom CX4102 ; Copyright (C) 1980 Atari, Inc. ; please use with BASIC cartridge inserted
Atari Kingdom CX4102 is one of the first simulation game from Atari with a short source code, easy to read and understand. It is a good choice to get a first view into simulations.
!!CAS-images
* [Kingdom_side_A_with_instructions.cas] ; CAS-image of Kingdom with instructions
* [Kingdom_side_B_without_instructions.cas] ; CAS-image of Kindom without instructions
!!ATR-image
* [Kingdom_with_DOS_2.0S_(complete_cassette_import).atr] ; Atari Kingdom CX4102 complete cassette import on an ATR-image with DOS 2.0S
!!Manual
* [Atari_Kingdom_Manual.pdf] ; size: 561 KB ; Atari Kingdom CX4102 manual, 4 pages
!!Video with voice, music and data
* [Atari Kingdom cassette-Dual Track with voice, music and data|Atari_Kingdom-Dual_Track.mp4] ; size: 14.4 MB ; MP4-file taken from Youtube; main start from minute 1:10
!!Box-Images
[{Image src='Atari_Kingdom_Cover_1.jpg' width=375 height=506 }]
Atari Kingdom CX4102 box cover \\
\\
[{Image src='Atari_Kingdom_Back_1.jpg' width=375 height=505 }]
Atari Kingdom CX4102 box back \\
\\
!!Screenshots
[{Image src='1.jpg' width=433 height=284 }]
Atari Kingdom CX4102 1st screen - beginning of loading \\
\\
[{Image src='2.jpg' width=408 height=276 }]
Atari Kingdom CX4102 2nd loading from cassette side A with instructions \\
\\
[{Image src='3.jpg' width=411 height=275 }]
Atari Kingdom CX4102 instruction side 1 of 2 \\
\\
[{Image src='4.jpg' width=404 height=269 }]
Atari Kingdom CX4102 instruction side 2 of 2 \\
\\
[{Image src='5.jpg' width=406 height=272 }]
Atari Kingdom CX4102 main screen - 1st start\\
!!Advertising
[{Image src='Advertising1.jpg' width=528 height=833 }]
Atari Kingdom CX4102 Advertising 1\\
\\
[{Image src='Advertising4.png' width=488 height=171 }]
Atari Kingdom CX4102 Advertising 2\\
\\
[{Image src='Advertising3.jpg' width=478 height=278 }]
Atari Kingdom CX4102 Advertising 3\\
!!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."\\