KING vv x6:6:6 "47999:23659k\,0  "" 21,0;:"" &KING P@AM/WUAUUA@?*T*wT`U@?BB<BB<><@<B< U__EU]UU_UU_UBBBBBB@DB@HbB@@BBDbB`_U@]뺫A@ UPU*T*T@U@B~BBBB@B||pR@<@BBBR@U_W?꺫]WU}UU7wUBBBBBB@BB@HJN@B~BJN` /UWꪯUP UAP ]pPUx?U @}^zUPZBBZBB@DB@DFBB@BBDFB@U_ꪻUWUWՃ_?UEUWU_ꯀWW$B<$<<~x|~B>B<><~B<?`*Uu_UT*wAT?*UpT PxU@?@U@`UUůU_U?U_W_U W?U_*xTEW@UQ^zU*P `P T@P U@??UQ(ުU{U? U P;U@UU@?U_UU@W_d&HUU @ U~@U~AU@?U_@@5U5WUW`?`TU*Q*P"@ /D T @?PU@(+U@?@@U*?;T@ X}_P?_(Q@wU_d &@ U?Ul6U_UU  7UW= W*`U@ @T*P)@ T*?T V!jP(oU@+UU+U X \:PU_UoUWH UU UmP _=US5U z^W @` `0@UP U?UU VjUP*(kT@ +U@uU@*x `TU_*@TUW( ꪀ?UU~~UP (U_  5U5UU@U_ P@X ` U*T@W*?Tv5 n @?4U,@AÀ UUUUUU_ %PU;XWU;`WG?W _U *UTUUUTU P*T bF*U@u@U Au@%UP AWꫂ0@ "@ DQUU_U C Un PXvUB`#uB_ w@PhUU@_ԀA+U@W@@   AD`"UPwի@@_@8UUU_UX _Wc`XUb&dF_`UW  ꪿UUPW` `@UPA@ @Qu@ WP4,UU@UU:oX\(W*T7?W( : \.Ut@A8UUUXUPU@/ 000000000000000000000000000000000000000000000000000000000000000000(((((((008880088800(((((((0000(((((((0888008880(((((((0000(((((((00008800880000(((((((0000(((((((00000000000008(((((((0000(((((((88888888888888(((((((0000(((((((88888888888888(((((((0000(((((((88888888888888(((((((0000(((((((88888888888888(((((((0000(((((((88888888888888(((((((0000(((((((8888888888888((((((((0000((((((((888888888888((((((((0000((((((((888888888888((((((((0000(((((((8888888888888((((((((0000(((((((8888888888888((((((((0000(((((((88888888888888(((((((0000((((((8888888888888888((((((0000((((((8888888888888888((((((0000((((((8888888888888888((((((0000000000088888888888888000000000000000000088888888888800000000000000000000000000000000000000000000000000000000000000000000000000KING BF&FYF0:0:0  9791?& AR(C,T)=T-((C+(C=0))/10 )-(C<0) !236099\,40(:**KING** 23658j\,8 1983 DAVID BAYLISS (&0:7:1:1: 2O4;"  SPECTRUM KING 48K 1983 DAVID BAYLISS " <""Skill Level (120 1 lowest)"' =&L$:6010z:L=061= >$L$<1ŰL$>2061= ? SL=L$:SL AU'"WILL GRAPHICS BE REQUIRED?":C$:C$:GRAPH=0:C$="Y"GRAPH=1:'"The graphics move across the bottom of your screen.If they pause on the left it means you have gained.If they remain on right it means you have lost a quantity of that item. Pressing 'y' removes the graphic(Thus allowing play to continue)" F=K=1000:S=1:N=0:J=10 :I=100d P ZkJ:S$(8,J):A=S8:S$(A):A:"SIR","BARON","VISCOUNT","EARL","MARQUIS","DUKE","PRINCE","KING" d"'"HOW MANY PLAYERS (1 TO 11)? "' n'L$:6010z:L=0110n o%L$<1ŰL$>11 110n s A=L$:A x'H$(A,2,22):A(A,17) 0130:B=1A:H$(B,1):B:"HERTFORD","DERBYSHIRE","YORKSHIRE","CORNWALL","GLOUCESTER","GLAMORGAN","ESSEX","KENT","BEDFORDSHIRE","WILTSHIRE","SOMERSET" d:"You will be asked for your names"'"and each player will be made"'"Knight of an English County." "You will each start the game"'"with 10 Kbushels (10000 bushels)"'"of grain,300 florins,1000 serfs"'"and 10000 hectares of land." "At the start of each round rats"'"will have eaten a percentage"'"of your grain store."'"You will then be credited with"'"a harvest of grain and the round"'"will commence"' Z"Any debts will be cleared at the"'"end of each round if possible"'"by the sale of land" as=press  WB=SA:"Who wishes to be knight of "'H$(B,1);:H$(B,2):H$(B,2):B B=SA:A(B,7)=300,:A(B,13 )=K*J:A(B,1)=K:A(B,2)=2:A(B,3)=125}:A(B,6)=K*J:A(B,8)=S:A(B,14)=2:B YOL=1399w YOL=YOL+S C=SA "A(C,8)=01150~ ҩGN=A(C,S)*J:RE=(*502):A(C,13 )=(A(C,13 )*((I-RE)/I)):YE=(A(C,6)*(S+*3)):PH=1.7Y+((*502))/J:GB=150+(*150) ;A(C,6)/A(C,S)>JYE=(YE*((A(C,S)*J)/A(C,6))) A(C,13 )=A(C,13 )+YE )1:1:7::1730 @"RATS EAT ";RE;"% OF YOUR GRAIN":"HARVEST ",YE/K;" KBUSHELS" A(C,7)=A(C,7):8,0;"GRAIN ",A(C,13 )/K;" "'"GRAIN NEEDED",GN/K;" "'"PRICE/KBUSHEL",GB;" "'"LAND / HEC",PH;" "'"LAND",A(C,6);" "'"MONEY",A(C,7);" "'''  AS=CLEAR X15,0;"1 BUY LAND","2 SELL LAND"'"3 BUY GRAIN","4 SELL GRAIN"'"0 CONT."; "'L$:6010z:L=0290" #L$>4290" $L$ ,L$="1"15906 6L$="2"1620T @L$="3"1660| JL$="4"1690 KL$"0"290" T:A(C,7)=A(C,7):8,0;"GRAIN ",A(C,13 )/K;" "'"GRAIN NEEDED",GN/K;" "'"PRICE/KBUSHEL",GB;" "'"LAND / HEC",PH;" "'"LAND",A(C,6);" "'"MONEY",A(C,7);" "''' U:"HOW MUCH GRAIN IS TO BE GIVEN TOTHE SERF POPULATION ?"; V'L$:6010z:L=0342V W7GL=L$:GL:GL*500>GNRES=1:3000 ^ GL*K>A(C,13 )0340T h"A(C,13 )=A(C,13 )-GL*K r OL=GL*K-GN |2SB=(((OL*)/(40000@)*A(C,8))*A(C,S)) 'SB>A(C,S)SB=SB/2:0390 cSM=OL/J*:SM=SM+200*(2-A(C,14)):SM=SM-A(C,15)-A(C,17):SM=(SM*) )ME=A(C,9 )*I+A(C,5)*J-(OL/I) )CE=(A(C,J)*200+(OL/2.5 )*) CCC=A(C,12 )*A(C,2)*(100d-A(C,17))/100d <NG=(A(C,2)-2)*502*A(C,15)/100d MEISP=(A(C,6)/K*HPS) 8A(C,S)=A(C,S)+SB+SM:A(C,S)Nres=3:3000 !A(C,7)=A(C,7)+ME+CE 3HPS<502SP=-(A(C,3)*(502-HPS))/I SOP=A(C,3)*J A(C,7)=A(C,7)-SOP A(C,6)=A(C,6)-SP $SP>A(C,6)SP=A(C,6)-I !SB=SB &:1730 0OL.95s333OL<-20000 Nƥ>.8LS;"STABBED TO DEATH BY MOTHER WITH STARVING CHILDREN":A(C,8)=N:200:1150~ :&SB>NSB;" SERFS ARE BORN THIS YEAR" D"SBNSM;" SERFS MOVE TO YOUR CITY":GRAPH=12530 X>SMN"YOUR MARKETS EARN YOU ";ME;"FL" l,CE>N"YOUR CRAFT SHOPS EARN YOU ";CE;"FL" vICC>0"CHURCH COLLECTIONS ";CC;"FL":A(C,7)=A(C,7)+CC GNG>0"NOBILITY 'GIFTS' ";NG;"FL":A(C,7)=A(C,7)+NG $"YOU PAID YOUR SOLDIERS ";SOP;"FL" ESP>NSP;" HECTARES OF LAND WERE STOLEN":GRAPH=12650Z ?SP200"SERFS REVOLT!!!":SD=A(C,S)/10 :SED=A(C,3)*10 :X=-2020:.01z# =,X:X:2510 :2590 4GA(C,3)=A(C,3)-SD:A(C,3)6A(C,S)=A(C,S)-SED:A(C,S)5841I RF=11460 \F=21490 fF=31520 pF=41550 zF=51750 a(C,7)=A(C,7)+SR 1:1:7   1730 A(C,7)=A(C,7) 3,0;"ASSETS:-"'"MONEY";R(A(C,7),16);" ";A(C,7)'"1 MARKETS";R(A(C,9 ),20);A(C,9 );" @1000"'"2 CRAFT SHOPS";R(A(C,10 ),20);A(C,10 );" @2000"'"3 MANSIONS";R(A(C,11 ),20);A(C,11 );" @4000"'"4 CHURCHES";R(A(C,12 ),20);A(C,12 );" @5000"'"5 SOLDIERS";R(A(C,3),20);A(C,3);" @8000" 10 ,0;"ENTER THE NUMBER OF THE ITEM TO PURCHASE ENTER 0 TO CONT "'" ";11 ,29; 'L$:6010z:L=0951 TB=L$:TB>5951 TB TB=11360P TB=21380d TB=31400x TB=41420 TB=51440 [RS=A(C,2):RS=RS+A(C,4)/3+A(C,11 )*2+A(C,12 )*2.2 [RS=RS+A(C,5)/J+A(C,S)/500+A(C,J)+A(C,9 )/2+A(C,6)/2000 91050:X=S8:RSV:RS>RSV*SLA(C,8)=X X ;N,5,J,15,20,40(,80P,160 $,A(C,8)>8A(C,8)=8 .WA(C,8)0S;S$(A(C,8));H$(C,2)'" OF ";H$(C,1);YOL;"AD" 8A(C,7)N1130j B"YOU HAVE A DEBT OF ";A(C,7):DEB=A(C,7)/30:DEB>A(C,13 )/KA(C,7)=A(C,7)+A(C,13 )/K:A(C,13 )=N:13302 L#A(C,13 )=A(C,13 )-DEB*J VA(C,7)=N `/A(C,6)=A(C,6):S;"DEBT CLEARED" j3"YOUR CITY..."'"NOBLES";R(A(C,2),20);A(C,2)'"CLERGY";R(A(C,4),20);A(C,4)'"MERCHANTS";R(A(C,5),20);A(C,5)'"SERFS";R(A(C,S),20);A(C,S)'"LAND(HECTARES)";R(A(C,6),20);A(C,6)'"MONEY";R(A(C,7),20);A(C,7) t AS=PRESS ~C ?C=SA:A(C,8)=8:1730:"WINS":1230 C +C=SA:X=S17:A(C,X)=A(C,X):X:C X=SA A(X,8)N0180 X %S;"GAME ENDS ALL DEAD":1230  C=1A [RS=A(C,2):RS=RS+A(C,4)/3+A(C,11 )*2+A(C,12 )*2.2 [RS=RS+A(C,5)/J+A(C,S)/500+A(C,J)+A(C,9 )/2+A(C,6)/2000 WA(C,8)0S;S$(A(C,8));H$(C,2)'" OF ";H$(C,1);YOL;"AD" SA(C,8)=0S;"GHOST ";H$(C,2)'" OF ";H$(C,1);YOL;"AD" RS;" PTS" C 8"SHALL I COPY?(Y/N)";D$:D$=89YůD$=121y  D"IS ANOTHER GAME TO BE PLAYED";:L$:L$:L$"NO"L$"N"10  5000 "HOW MANY ?"; (L$:6010z:L=01311  HOW=L$:HOW=HOW (+"MUST BE POSITIVE AND WHOLE!":1311 2=A(C,7)>A(C,6)*2res=2:3000 100d1460  0690 "NEW VALUE "; (L$:6010z:L=01491 A(C,16)=L$:L$ ;A(C,16)<0A(C,16)>100d1490  0690 "NEW VALUE "; (L$:6010z:L=01521 A(C,17)=L$:L$ ;A(C,17)<0A(C,17)>100d1520  0690 "HARSHNESS WITH FINES"; (L$:6010z:L=01551 A(C,14)=L$:L$ 9A(C,14)<0A(C,14)>41550 " 0690 , 0340T 6&"HOW MUCH LAND DO YOU WISH TO BUY?"; 7L$:6010z 8L=015917 9L=L$ @=A(C,7)=A(C,7)-PH*L:A(C,6)=A(C,6)+L E%GRAPH=1L>02630F J 0270 T"LAND TO BE SOLD? "; U(L$:6010z:L=01621U V L=L$:L ^$A(C,6)-L<01620T h>A(C,6)=A(C,6)-L:A(C,7)=A(C,7)+PH*L: m%L>0GRAPH=12650Z r 0270 |"GRAIN TO BE BOUGHT "; }(L$:6010z:L=01661} ~ G=L$:G AA(C,7)=A(C,7)-G*GB:A(C,13 )=A(C,13 )+K*G %G>0GRAPH=12550  0270 "GRAIN TO BE SOLD "; (L$:6010z:L=01691  G=L$:G !A(C,13 )-G*K0GRAPH=12570  0270 jA(C,8)00,0;S;S$(A(C,8));H$(C,2)'" OF ";H$(C,1);YOL;"AD":  <A=1"DECLARING WAR ON YOURSELF IS NOT ADVISABLE" W$(22):"UPON WHOM DO YOU WISH DO DECLARE WAR? ":W$:X=1A:W$H$(X,2)X:'"HE DOES NOT EXIST.THESE DO :-":X=1A:"";(H$(X,2)XC):X:1760 BA=X <BA=C"ATTACKING YOURSELF IS NOT CLEVER":1760 "OK":1860D MSC>A(BA,6)"Your apponent loses all his land":a(ba,8)=0 *SH>A(C,3)res=4:3000 \A(C,6)=A(C,6)+SC:A(BA,6)=A(BA,6)-SC:A(C,3)=A(C,3)-SH &6:1730:SH0"YOU LOST ";SH;" SOLDIERS" 0&"YOU GAINED ";SC;" HECTARES OF LAND" :&SH0GRAPH=12590 ;&SC0GRAPH=12630F ?*AS=PRESS:1:1::690 D:"An arrow belonging to you will appear to the left.It can be moved using keys 6&7. Arrows will move towards you from the right. These must be shot using the 0 key.Once an arrow passes you the battle is over.":sh=0 I L=PRESS N 2180 X b F=0 l SC=0 v QSC=0  P=10  OP=10 S1=*15 )A$=""  B$=""  QSC=SC/10 -(SC/10 ) QSC=QSC*10 21,0;SC !X=26-QSC4-1 N1=23560\ S1=S1+*2-1 S1>20S1=18 S1<1S1=3  S1,X;B$  OP=P FP=P+(N1=546)-(N1=557):P>20P<1P=21-P  !OP,4;" ";P,4;""; *S1,X;" " 4>N1=480SH=SH+1:P,4;A$:.01z# =,0 >+(S1,X)" "SC=SC+5*X:2150f H8N1=480P,4;" " RX \ f+P,4;" " p(X/4)+1;S1,X;B$ z 1940  2290 0:7:0  X=07 S1,S2,S3,S4,S5  "A"+X,S1  "B"+X,S2  "C"+X,S3  "D"+X,S4  "E"+X,S5 X )0,0,0,0,0 *4,32 ,0,0,5 +2,64@,0,0,10 3255,255,255,255,252 3255,255,255,255,252 $+2,64@,0,0,10 .*4,32 ,0,0,5 8)0,0,0,0,0 B serfgo Η63001,0:63004,128:63005,235:AS=CLEAR:AS=63000:O=132 :AS=RSCROLL:O=24500 O  SERFCOME 63001,24:63004,128:63005,235:AS=CLEAR:AS=63000:O=132 :AS=LSCROLL:O=24500 O: GRAINCOME 63001,24:63004,128:63005,237:AS=CLEAR:AS=63000:O=132 :AS=LSCROLL:O=24500 O: GRAINGO 63001,0:63004,128:63005,237:AS=CLEAR:AS=63000:O=132 :AS=RSCROLL:O=24500 O:  SOLDIERGO (63001,0:63004,128:63005,239:AS=CLEAR:AS=63000:O=132 :AS=RSCROLL:O=24500 -O: 2 SOLDIERCOME <63001,24:63004,128:63005,239:AS=CLEAR:AS=63000:O=132 :AS=LSCROLL:O=24500 AO: F LANDCOME P63001,24:63004,128:63005,241:AS=CLEAR:AS=63000:O=132 :AS=LSCROLL:O=24500 UO: ZLANDGO d63001,0:63004,128:63005,241:AS=CLEAR:AS=63000:O=132 :AS=RSCROLL:O=24500 iO: :DIE 1730 A(C,8)=0 ZRES=1"Excess food has made your serfs slovenly. You are therefore"'" bankrupted" @res=2"You cannot pay your debts so"'"you are bankrupt" cres=3"Your serf population has fallen too low you are therefore"'"relieved of your title" PRES=4"You have no protection and are murdered by an ambitious cousin" H AS=PRESS 1150~ PLUG E:"We hope you have enjoyed this game brought to you by GILSOFT." }''"For full details of GILSOFT software send S.A.E. to..."'"GILSOFT"'"30 Hawthorn Road, Barry,"'"South Glam."'"CF6 8LE"  5000 p L=0 zF=0:L=L$:L=0 %Q=1L:L$(Q)="."F=F+1 9(L$(Q)<"0"L$(Q)>"9")L$(Q)"."Q=L+1:L=0 Q:F>1L=0  @ % "KING" % "KING" %"KING"9750& %"TEA"60288,5248 %"PS"50000P,150 &  &r21,0;:"TEA"60288:21,0;:"PS"50000P:23659k\,2:l=50000P &?9800H&:63002,80P:W(MODE)=3:W(LINE)=16:W(COL)=0:W(HEIGHT)=8:W(LENGTH)=32 :W(DATA)=0 &@ 10 &HInitialise Graphics &R 9980& &\epress,wait,pup,pdown,pleft,pright,noise,explode,invert,lscroll,rscroll,uscroll,dscroll,clear,border &a#drsc,ursc,dlsc,ulsc,get,addr,play &fWmode=1:line=2:col=3:length=4:height=5:data=6 &p w(6):w(1)=3 &z*w(4)=32 :w(5)=22 &a$=255+255 & &65236,65283,64944,65110V,650786,65061%,64853U,64779 ,64538,64182,64110n,64324D,64263,64614f,64382~ 'U63888,63882,63876,63870~,63857q,63848h,65312 TEA AMxA O%0@ED @26C@`~ A 10ĊbP 0l0@!B ' XtH3q@>B2G@K?$z;7@"B@@JR$@ @B @*2'jBR Gq*1Gj L B?A1'@RH@$ ` @ x B !@0 E  `@@ p0 ,8? $Hp M  0? $c @81<À @f B*Ha R8,9$$H?8?À ! BE` 02$"(<  8"% B` `p=) $!!< e \BBq@BvpĂ @H]6 !1|G aH#?b#Ղ@0@1 xx)' a" ҄C@q x4a"2IH9D:q Kxc"$" 0OD' r?88Á *H Cp`!H0600=( V0zp7B!0@3*) ܀_Y|$2 | xH  @P0?KT]+#6$=  >KT]#+6$=  xGyO{ O~$|gzW+  6$|g+ { O~$|gzW#  6$|g# ͳ(  ͂ÖxGyO {͠͠O   ~S#wͳ(  {͠͠OF   ~S+wRz8{ ͳ(  zO{͠ ͠O G~S+wͳ(  X/{͠ ͠O G~S+wͳ~w# ~w$ ~w$  ~w# ~w$ |g#  yWyo&)))))X@~w$ |g#  ͳ(  .͠> _~W>_>8???_>'''w# Mͳ(  x͠> _~T/SW~Tw# M&i)))))XX#>! ># <# ># #(NF ^Vy00 x 0!8z({  ~!~dd*K\~ `  #~( #^#V#A###^V{({ 6#6:H\O~ W&n~B+| ##G! @[e\!A@G !HH!IO !PP!QW w#!@ # !W + !9[e\R#G!W[e\!VW P!OP !NO H!GH !FG @!@ 6#:H\!Zw#0!1&~# x  (xx@O Press any key to continue. >>BB<DHpHDB@@@@@~BfZBBBBbRJFBw"]\66 ͊v0N::\