Logo .0 1;2,2;" ";3,3;" ";4,3;" " 1;6,4;" ";7,4;" ";8,4;" Ltd" (10 ,12 ;1;"PRESENTS" (@12 ,13 ;"BARON";12 ,13 ;1;"_____" 214,0;"For the SINCLAIR ZX ";2;"S";6;"P";4;"E";5;"C";2;"T";6;"R";4;"U";5;"M";0;" 48K" 7.19,9 ;1;"SWITCH OFF TAPE" <621,5;1;"Press ENTER to continue" Ff=16 Pf;2,2;" ";3,3;" ";4,3;" " Zf;;6,4;" ";7,4;" ";8,4;" Ltd" _'.01z# =,0:.01z# =,10 d""130 nf x 70F f>3f=f-3 f;1;1,1;" ";2,1;" ";3,1;" ";4,1;" " 1;f;;5,1;" ";6,1;" ";7,1;" ";8,1;" Ltd" |19,0;" ";" ";" " =18,1;1;"Please switch on tape recorder" ""  '*"Logo"1:.2~L,3:"Logo" FBARON ZQZQq\Q 6:6:0: 236099\,35#  9100#  'z$=" " Rv$=1+7+13 +17+27+34"+40(+46. 5x$="5SPEAR5SWORD3BOW9CROSS-BOW6MUSKET5RIFLE5LASER0" 0,13 ;"BARON";13 ;"";4,3;"A GAME FOR 14 PLAYERS";21,1;"PLEASE ";1;"INPUT";0;" NUMBER OF PLAYERS" =""30 (p=-480 *20,0;z$;z$ -Ae=110 :.02{# =,-20:.02{# =,-10 :e <p>4p<120 F17,12 ;p;" PLAYER";("S"(p>1)) Pla=400:z(10 ,p):a(2,p):b(2,p):c(2,p):d(2,p):e(2,p):f(2,p):g(2,p):l(2,p):m(2,p):n(2,p):o(2,p):q(p):b$(p,15) ܄10 ,3;"HOW MANY TURNS DO YOU WISH";1;"THE GAME TO CONTINUE (550)";20,7;"ENTER NUMBER THEN",c$ y$ &.2~L,30:.2~L,10 end=0 20,0;z$;z$ i=1̱y$ en=y$(i)-480 "en>9 en<0220 end=end*10 +en "i '%end<5end>502220 ,G10 ,0;z$;z$;10 ,6;"PLAYING FOR ";end;" MOVES" 6 i=1p ;f(1,p)=1 @X12 +i,0;"PLAYER ";i;" ";1;i;9 ;"INPUT NAME(15 CHR$ MAX)" A5;20,0;c$;i;0;"" Jb$(i) O20,0;z$;z$ T-12 +i,8;i;" ";b$(i);" " ^_a(1,i)=1500:b(1,i)=70F:d(1,i)=100d:c(1,i)=-1 a/e=3020-1:.025{L,e:e i j=1end ak=10 +(*10 )  i=1p ,l(1,i)>0l(1,i)=0 i  i=1p z=(*p)+1 $"l(1,z)>01050 8l(1,z)=i Bi L i=1p V#o(1,i)>-11140t `i j 9500% t i=1p yt=l(1,i) ~#o(1,t)=-13000 7:7:0:  1170  1180 v2,10 ;"GAME MOVE ";j;10 ;"";(""(j>9 ));5,0;"GREETINGS BARON ";b$(t) t;10 ,10 ;" ";10 ;" ";10 ;" ";10 ;" ";10 ;"";10 ;"";0;"";7;"" t;;10 ;"";0;" ";7;"";10 ;"";0;" ";7;"";0;""  .73333,7+t*2:.2~L,7+t*2:.2~L,7+t*2:.3,9 +t*2::.3,7+t*2:.3,9 +t*2:.73333,11 +t*2:;21,0;c$ =""1181 9.2~L,30:.2~L,20:.2~L,30  j>19900& o0,1;T;"";0;"BARONY OF ";B$(T);T;" ";1;"";0;  6500d C18,0;T;"";0;  8000@ q=13 19,0;z$;z$ O(c(1,t)0q=2)(e(1,t)=0q=3)1308 20,3;1;"INPUT";0;" BUSHELS TO FEED YOUR ";0;("WORKERS.EACH NEEDS 2 BUSHELS"q=1);("MERCENARIES.EACH NEEDS 4 BUSHELS"q=2);("SLAVES.EACH NEEDS 1 BUSHEL"q=3)  6000p bb=o$ bba(1,t)1280  8300l 19,0;1;"YOU ONLY HAVE ";a(1,t);" BUSHELS";0:e=115:.02{# =,-15:.02{# =,-25:e  1240 a(1,t)=a(1,t)-bb @bb=(bb/(1+(3*(q=2))+(1*(q=1)))) 19,0;z$;z$;z$ 10 +(q=2)+(2*(q=3)),0;"YOU HAVE FED ";bb;(" WORKER"q=1);(" MERCENAR"q=2);(" SLAVE"q=3); ("S"((d(1,t)1q=1)(e(1,t)>0q=3)));("Y"(c(1,t)=1q=2));("IES"(q=2c(1,t)>1)) S(q=1(d(1,t)<5))(q=2(c(1,t)<5))1290   >.66(((q=1(bb+1/(d(1,t)+1)<.5))(q=2(bb+2/(c(1,t)+2)<.8L)))9000(#  Ba(2,t)=0:b(2,t)=0:c(2,t)=0 'q=3bb5) .1;"A MERCENARY COSTS ";cc;" DUBLOONS" =""1930 P.03{u\,25:.03{u\,30:.03{u\,35#:.03{u\,40( 19,0;z$;z$ ="Y"Ŧ="y"1960 z$ ="N"Ŧ="n"2005  1920 Gkh=(5m(1,t)5)+(m(1,t)m(1,t)>5) cc=(a(1,t)/kh) 19,0;1;"YOU CAN AFFORD ";cc;" MERCENARIES";:e=115:.02{# =,-15:.02{# =,-25:e G20,0;1;"INPUT";0;" NUMBER OF MERCENARIES " -c(1,t)=-1c(1,t)=0  6000p mm=o$ 19,0;z$;z$;z$ bmm*((5m(1,t)5)+(m(1,t)m(1,t)>5))>a(1,t)1956 ac(1,t)=c(1,t)+mm:f(1,t)=f(1,t)+mm*m(1,t)+(c(1,t)/5) ca(1,t)=a(1,t)-mm*((5m(1,t)5)+(m(1,t)m(1,t)>5))  6500d 717,0;"YOU HAVE HIRED ";o$;" MERCENARIES" "c(1,t)021004 \19,0;"DO YOU WISH TO INVEST IN ARMS";10 ;1;"Y(ES) N(O)";0 ""2014 =""2015 P.03{u\,25:.03{u\,30:.03{u\,35#:.03{u\,40( ="n"Ŧ="N"2090* "y"Ʀ"Y"2010 ^19,0;z$;z$;z$;20,4;1;"INPUT";0;" AMOUNT OF DUBLOONS"  6000p o$a(1,t)2026 o$>a(1,t)19,0;1;"YOU ONLY HAVE ";a(1,t);" DUBLOONS";0:e=120:.02{# =,-15:.02{# =,-25:e  2020 19,0;z$;z$;z$ f(1,t)=f(1,t)+o$ a(1,t)=a(1,t)-o$ +m(1,t)=(f(1,t)/c(1,t))  6500d *19,0;z$;z$;z$  7500L i j14000 j 9500%  8,6;"PLEASE WAIT A SECOND";10 ,0;"I'M JUST CALCULATING THE RESULTS";12 ,7;"OF ANY CONFLICTS."  z=1p  x=1p ҂z(10 ,x)=zz(7,z)=z(7,z)+z(8,x)*((m(1,x)(m(1,x)>5))+(5(m(1,x)<6))) uz(10 ,x)=zz(6,z)=c(1,z)*((m(1,z)(m(1,z)>5)+(5(m(1,z)<6)))) x 9(4*z(6,z))+6>z(7,z)4105  Bc(1,z)=0:m(1,z)=0:f(1,z)=0  x=1p 'z(10 ,x)=0z=x44000 >z(10 ,x)zo(1,z(10 ,x))<044000 q(x)=(*(z(8,x)*((.73333(z(7,z)>z(6,z)z(7,z)<4*z(6,z)+6))+(1z(7,z)>z(6,z))+(.4L(z(7,z)>z(6,z)*4+6))))) &q(x)>z(8,x)q(x)=z(8,x)  z(8,x)=z(8,x)-q(x) z(5,x)=(a(1,z)(z(9 ,x)=3))+(b(1,z)(z(9 ,x)=2))+(d(1,z)(z(9 ,x)=1)) "z(5,x)=(z(5,x)*((1(z(6,x)>4*z(7,x)))+(.5(z(6,x)4*z(7,x)z(6,x)z(7,x)))+(.1}L(z(6,x)"9"o$(k)<"0"6000p k  d*2,0;Z$;Z$;Z$;Z$;Z$;Z$;Z$;Z$ iNU=(((F(1,T)/502)/(C(1,T)+(C(1,T)=0))))+1 jU>7U=7 n2,0;T;"";"";0;"FOOD/MONEY ";T;"";31;"";0;"LAND ";T;"";31;"";0;"MERCENARIES";T;""; sHC(1,T)>0T;31;"";0;"ARMED WITH ";T;""; x<T;31;"";0;"WORKERS ";T;"";31; }HE(1,T)>0T;"";0;"SLAVES ";T;"";31; (T;"" 3,14;A(1,T);" DUBLOON/BUSH";4,14;B(1,T);" ACRES";5,14;(C(1,T)+(C(1,T)<0));6,14; \C(1,T)>0X$((V$(U)+1)(V$(U+1))-1);"S";7,14; 77-(C(1,T)<1),14;D(1,T) ME(1,T)>08-(C(1,T)<1),14;E(1,T)  "c(1,t)<6p<2 ԡ19,0;" DO YOU WISH TO ATTACK ANOTHER";0;"BARON. ";1;"INPUT";0;" NUMBER OF";0;"BARON TO BE ATTACKED OR N=NONE" =14,5;1;"BARON TO BE ATTACKED";0;  z=1p 'o(1,z)=-1t=z6650 (1;(z+480);0;b$(z); z =""6670 z(10 ,t)=-480 <.02{# =,10 :.02{# =,20:.02{# =,10 :14,0;z$;z$;z$;z$;19,0;z$;z$;z$ Mz(10 ,t)=(("n")-480)z(10 ,t)=(("N")-480)6690"  6700, "z(10 ,t)=0 ' ,Cz(10 ,t)=tz(10 ,t)<1z(10 ,t)>p6612 6514,0;"YOU ATTACKED ";b$(z(10 ,t)) @19,3;"DO YOU WISH TO RAID BARON";3;b$(z(10 ,t));" TO CAPTURE";3;"1=SLAVES 2=LAND 3=DUBLOONS" J=""6730J M<.02{# =,10 :.02{# =,20:.02{# =,10 O19,0;z$;z$;z$ Tz(9 ,t)=-480 ^7z(9 ,t)<1z(9 ,t)>36720@ h19,3;1;"INPUT";0;" MERCENARIES TO SEND";2;"YOU HAVE ";c(1,t);" BUT 5 ARE NEEDED";4;"TO DEFEND YOUR INTERESTS" r 6000p w19,0;z$;z$;z$ |z(8,t)=o$ /z(8,t)>c(1,t)-56760h 15,0;"WITH ";z(8,t);" MEN TO CAPTURE ";("SLAVES"(z(9 ,t)=1));("LAND"(z(9 ,t)=2));("DUBLOONS"(z(9 ,t)=3)) (c(1,t)=c(1,t)-z(8,t)  6500d ]e=14:3:.15~,-20:.07}\(,-15:.1}L,-25:e  b19,0;z$;z$;z$ l20,0;1;"INPUT";0;" BUSHELS TO PLANT( WORKERS ";("AND SLAVES "e(1,t)>0);"CAN PLANT 2 BUSHELS)" v 6000p bb=o$ %bb>b(1,t)*87130 6bb>((d(1,t)+e(1,t))*2)7120 bb>a(1,t)7110 c11 +(c(1,t)>0)+(e(1,t)>0),0;"YOU HAVE PLANTED ";bb;" BUSHELS" g(1,t)=bb a(1,t)=a(1,t)-bb  6500d  ʶ19,0;z$;1;19,0;"YOU CAN ONLY AFFORD ";a(1,t);" BUSHELS";0:e=115:.02{# =,-15:.02{# =,-25:e:7030v (cc=(d(1,t)+e(1,t))*2 ث19,0;z$;19,0;1;"YOU CAN ONLY PLANT ";cc;" BUSHELS";0:e=115:.02{# =,-15:.02{# =,-25:e:7030v ߼19,0;z$;19,0;1;"LAND WILL SUPPORT ";B(1,T)*8;" BUSHELS";0:e=115:.02{# =,-15:.02{# =,-25:e:7030v Vrn=(*6)+1 `le=3-(j/(end/3)) jg(2,t)=((g(1,t)*le)(rn<3))+((g(1,t)*(le+2))(rn>2rn<6))+((g(1,t)*(le+4))(rn=6)) o7g(2,t)=g(2,t)-(*(g(2,t)/4)) t(a(1,t)=a(1,t)+g(2,t) ~*(*6)+1<67610 *z(1,t)=(*(g(2,t)/3)) (a(1,t)=a(1,t)-z(1,t) (g(2,t)=g(2,t)-z(1,t) *(*6)+1<67700 *z(2,t)=(*(d(1,t)/3)) *z(3,t)=(*(c(1,t)/4)) "z(4,t)=(*(e(1,t))) (d(1,t)=d(1,t)-z(2,t) (c(1,t)=c(1,t)-z(3,t) (e(1,t)=e(1,t)-z(4,t)  @19,0;"DO YOU WISH TO BUY OR SELL LAND";6;1;"B=BUY S=SELL N=NO";0;1;"EACH ACRE IS WORTH ";ak;" DUBLOONS" J=""8010J Tg$= U<.01z# =,20:.01z# =,15:.01z# =,10 Yg$="E"g$="e"9000(# ^19,0;z$;z$;z$ h7g$"n"g$"N"g$"s"g$"S"g$"b"g$"B"8000@ rg$="n"g$="N" 20,0;z$;20,0;1;"INPUT";0;" NUMBER OF ACRES ";("TO BUY"(g$="b"g$="B"));("TO SELL"(g$="s"g$="S")) /1;"EACH ACRE IS WORTH ";ak;" DUBLOONS"  6000p lk=o$  da=0  m=1p da=da+b(1,m) m +(g$="b"g$="B")la-da08230& 2(g$="b"g$="B")(lk*ak>a(1,t))8150 /(g$="s"g$="S")(lk>b(1,t))8158 &(g$="b"g$="B")da+lk>la8154  8164 cc=(a(1,t)/ak)-1 ؞19,0;z$;19,1;1;"YOU CAN ONLY AFFORD ";cc;" ACRES";0:e=115:.02{# =,-15:.02{# =,-25:e  8110 ܯ19,0;z$;19,1;1;"THERE ARE ";la-da;" ACRES LEFT TO BUY";0:e=115:.02{# =,-15:.02{# =,-25:e:8110 19,0;z$;19,5;1;"YOU ONLY HAVE ";b(1,t);" ACRES";0:e=115:.02{# =,-15:.02{# =,-25:e:8110 g$="s"g$="S"8180 !a(1,t)=a(1,t)-lk*ak b(1,t)=b(1,t)+lk  8200 !a(1,t)=a(1,t)+lk*ak b(1,t)=b(1,t)-lk  6500d 19,0;z$;z$;z$  &19,0;z$;z$;z$;20,5;1;"NO LAND IS LEFT TO BUY";0:e=115:.02{# =,-15:.02{# =,-25:e 0m=1400 :""8270N Dm N E19,0;1;"YOU ONLY HAVE ";a(1,t);" BUSHELS"   #( #2&1,5;"BARON ";b$(t);5;"";4,0;"YOUR REIGN HAS NOT BEEN FULL OF";0;" BENEFIT TO YOUR SUBJECTS WHO";0;"HAVE EXERCISED THEIR RIGHT AND";0;"IMPALED YOU ON YOUR PORTCULLIS.";5;1;"YOUR GAME IS NOW OVER";0 #< 1175 #AD19,5;"YOUR SCORE=";a(1,t)+15*b(1,t) #Fo(1,t)=-1 #G.6,-10 :5:.6,-10 :5:.1}L,-10 :.6,-10 :.6,-7:.1}L,-8:.6,-8:.1}L,-10 :.6,-10 :.1}L,-11 :.6,-10 #K21,0;c$ #M""9037M# #P=""9040P# #U21,0;z$ #Z 3000 #main baron scenario #)c$=" PRESS ENTER TO CONTINUE " #"0,10 ;"" #"1,10 ;" " #"2,10 ;" " #"3,10 ;" " #"4,10 ;"" #)6,6;" S.R.MANSFIELD 1983" #;6,6;1;"____________________";0 #S8,1;"BARON is a simulation game for";1;"up to 4 players." #p1;"The game is based in the year";1;"1089 and you are in command of";1;"your own barony." #}1;"You are responsible for feeding";1;"your subjects,planting crops";1;"and fending off other barons." #ȥ17,1;"YOUR OBJECTIVE IS TO OBTAIN THE";1;"HIGHEST SCORE BY FAIR MEANS OR";1;"FOUL.";17,1;1;"______________";0 #620,0;"To give up at any time press 'E'" #21,0;c$ #=""9185# # %&7:9 :7: %0{0,13 ;1;"BARON";0;4,6;"BARON";24;"SCORE";6;"";24;"" %592,2;"THE SCORES AFTER ";j-1;" MOVES" %: i=1p %Di=1i=34+i*2,0;i;b$(i);0;25;1;a(1,i)+15*b(1,i);0 %Ei=2i=44+i*2,0;i;b$(i);0;25;1;1;a(1,i)+15*b(1,i);0;0 %Ni %Xt20,7;1;"TO STOP PRESS";0;" 'N'";3;1;"TO PLAY AGAIN PRESS";0;" 'Y'" %b=""9570b% %l="Y"Ŧ="y" %v="N"Ŧ="n" % 9570b% &x0,5;"BARON ";b$(t);2,3;1;"DURING YOUR LAST YEARS RULE";0;0;t;"":a=318:a,0;t;"";a,31;"":a:;t;"";0;4,3;a(2,t);" WORKERS ";("STARVED TO DEATH"(a(2,t)>0));("WERE BORN"(a(2,t)<1)) &Mb(2,t)>05,3;b(2,t);" MERCENARIES DESERTED" &Mc(2,t)>06,3;c(2,t);" SLAVES WERE EXECUTED" &;8,3;"YOU HARVESTED ";g(2,t);" BUSHELS" &Ԓz(1,t)>09 ,4;"BUT RATS ATE ";z(1,t);" BUSHELS";10 ,7;"LEAVING ";g(2,t)-z(1,t);" BUSHELS" &,z(3,t)<0z(3,t)=0 &֌z(2,t)>011 ,1;"PLAGUE HAS KILLED ";z(2,t);" WORKERS";12 ,6;"AND ";z(3,t);" MERCENARIES " &Gz(4,t)>013 ,6;"AND ";z(4,t);" SLAVES" &z(10 ,t)>014,1;"YOU ATTACKED ";b$(z(10 ,t));15,3;"AND CAPTURED ";z(5,t);(" DUBLOONS"(z(9 ,t)=3));(" SLAVES"(z(9 ,t)=1));(" ACRES"(z(9 ,t)=2)) &Jz(10 ,t)>016,2;"AND LOST ";q(t);" MERCENARIES" &pl(2,t)>0m(2,t)>0n(2,t)>017,3;"YOU WERE ATTACKED AND LOST" &Al(2,t)>018,9 ;l(2,t);" WORKERS" &?m(2,t)>018,9 ;m(2,t);" ACRES" &Bn(2,t)>018,9 ;n(2,t);" DUBLOONS" &ޑ.3,2:.3,7:.3,7:.3,2:.3,2:.6,11 :.3,7:.3,2 &^:.3,0:.3,-1:.3,-3:.3,-5:.3,2 &21,0;c$ &=""9983& '(.02{# =,0:.02{# =,5: 'l(2,t)=0 'm(2,t)=0 'n(2,t)=0 'z=110 'z(z,t)=0 'z '  '  ' -:"BARON"1:1,0:"BARON" '7:7:0