Random demo
Random software
Random picture
Entry name:
 Kingdom 
Publisher/Developer:

BELLCOM - Public Domain Library
(Software library)
  • Category:

    Games
  • Media format:

    Tape
  • Maximum players:

    1
  • Programming language:

    Atari BASIC
Kingdom Kingdom
Listing 1
10GRAPHICS0:POKE65,3:GOTO100
20FORZ9=1TO10:NEXTZ9:RETURN
30FORZ9=1TO500:NEXTZ9:RETURN
40PRINT"KINGDOM";:POSITION27,1:PRINT"tm";:RETURN
50GOSUB90:PRINT"PRESSRETURN";:GOSUB900:RETURN
60IFP=0THENL4=0:RETURN
70L4=A/P:RETURN
80SOUND2,100,100,100:GOSUB20:SOUND2,0,0,0:RETURN
90POSITION2,22:?B0$:POSITION3,22:RETURN
100DIMB0$(38),B1$(38),I$(40),B$(10)
110SETCOLOR2,2,6:SETCOLOR1,0,0:POKE82,2:SETCOLOR4,2,6:POKE83,38:POKE752,3
120B$=""
130FORI=1TO36:B0$(LEN(B0$)+1)="":B1$(LEN(B1$)+1)="":NEXTI
140GOTO260
150POSITION2,3:FORZ9=1TO11:PRINT"";B1$(1,34);"":NEXTZ9:RETURN
160RESTORE:FORZ9=1TO9:READI$:POSITION31-LEN(I$),Z9+3:PRINTI$;:NEXTZ9:RETURN
170DATA,,,,
180DATA,,
190DATA
200IFT>1THENPOSITION29,1:?"TERM";T
210POSITION32,4:PRINTB$;Y:POSITION32,5:PRINTB$;S:POSITION32,6:PRINTB$;C
220POSITION32,7:PRINTB$;P:POSITION32,8:PRINTB$;A
230POSITION32,9:PRINTB$;YH:POSITION32,10:PRINTB$;R:IFB<0THENB=0
240POSITION32,11:?B$;B:POSITION32,12:PRINTB$;L:RETURN
250POSITION2,15:FORZ9=1TO6:PRINTB0$(1,36):NEXTZ9:POSITION2,15:RETURN
260GOSUB40:GOSUB150:GOSUB160
270D1=0:P1=0:Y=0:P=100:B=3000:H=3000:R=0:T=1:YH=3:A=1000:C=0:S=0
280IFYR=10THEN720
290Y=Y+1:YR=YR+1
300IFRND(0)<0.030000000000000002THENGOSUB250:?"Aplague!Halfthepeopledied!!":P=INT(P/2)
310X=INT(10*RND(0)):LETL=X+17:GOSUB200
320GOSUB90:PRINT"ACRESTOSELL";:GOSUB920:IFBADTHEN320
330GOSUB250:IFI0<=ATHEN350
340GOSUB700:GOTO320
350IFI0=0THEN370
360A=A-I0:B=B+(L*I0):X=0:GOTO420
370GOSUB90:PRINT"ACRESTOBUY";:GOSUB920:IFBADTHEN370
380GOSUB250
390IFL*I0<=BTHEN410
400GOSUB690:GOTO370
410A=A+I0:B=B-(L*I0):X=0
420GOSUB200
430GOSUB90:PRINT"BUSHELSFORTHEPEOPLE";:GOSUB920:IFBADTHEN430
440IFI0<=BTHEN460
450GOSUB690:GOTO430
460B=B-I0:X=1:GOSUB200:Q=I0
470GOSUB90:PRINT"ACRESTOPLANT";:GOSUB920:IFBADTHEN470
480IFI0=0THEN560
490IFI0<=ATHEN510
500GOSUB700:GOTO470
510IFINT(I0/2)<=BTHEN530
520GOSUB690:GOTO470
530IFI0<=10*PTHEN550
540GOSUB90:PRINT"Youhaveonly";P;"people!":GOSUB30:GOTO470
550B=B-INT(I0/2)
560GOSUB710:H=I0*X:R=0:YH=X:GOSUB710
570IFINT(X/2)<>X/2THEN590
580R=INT(B/X)
590B=B-R+H
600GOSUB710:C=INT(X*(20*A+B)/P/100+1):X=INT(Q/20):S=0
610IFP<XTHENP=X+C:GOTO280
620S=P-X:D1=D1+S
630GOSUB250:IFS>0.45*PTHENP=P-S:GOSUB200:GOSUB60:GOTO660
640P1=INT(((Y-1)*P1+S*100/P)/Y)
650P=P-S+C:GOTO280
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
710X=INT(RND(0)*5)+2: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
750IFP1>33THENGOSUB250:GOTO670
760IFL4<6THENGOSUB250:GOTO670
770IFP1>10THEN830
780IFL4<7THEN830
790IFP1>3THEN850
800IFL4<10THEN850
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."
870T=T+1:GOSUB90:PRINT"CONTINUE";:GOSUB900:IFI$(1,1)="Y"THENYR=0:GOTO280
880IFI$<>"N"THEN870
890GOSUB90:PRINT"PRESSSTARTFORREPLAY":PRINT"PRESSANYKEYTOEND":POKE764,255
895GOSUB990:GOTO895
900POKE764,255:POKE752,0:M1=PEEK(85):GOSUB80
910POSITIONM1,22:?B0$(36-M1);:POSITIONM1,22:?"?";:GOSUB950:INPUTI$:POKE752,3:GOTO90
920BAD=0:GOSUB900:TRAP940:I0=VAL(I$):IFI0<>INT(I0)ORI0<0THEN940
930RETURN
940BAD=1:RETURN
950IFPEEK(53279)=6THENRUN
960IFPEEK(764)=255THEN950
970?"";:RETURN
980STOP
990IFPEEK(53279)=6THENRUN
995IFPEEK(764)=255THEN990
999CLR:GRAPHICS0:TRAP40000:POKE764,255:END	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!