ZXTape! 0Created with Ramsoft MakeTZXoverlord  ." "feudal" 6:6 19,3;"" $"t",0:"t"+1,00001000:"t"+2,00011100:"t"+3,00011100:"t"+4,00111110> $Z"t"+5,00111110>:"t"+6,01111111:"t"+7,00011000 $"m",0:"m"+1,00001000:"m"+2,00010100:"m"+3,00011100:"m"+4,00111110> $Z"m"+5,00111110>:"m"+6,01111111:"m"+7,01111111 $i"h",0:"h"+1,001100000:"h"+2,01001000H:"h"+3,10000100 $q"h"+4,0:"h"+5,00001100 :"h"+6,00010010:"h"+7,00100001! $i"i",0:"i"+1,01000001A:"i"+2,00101010*:"i"+3,00011100 $x"i"+4,00111110>:"i"+5,01011101]:"i"+6,00011100:"i"+7,00010100 $i"p",0:"p"+1,01001001I:"p"+2,01111110~:"p"+3,01110111w $x"p"+4,01100011c:"p"+5,001101106:"p"+6,00010100:"p"+7,00001000 $i"n",0:"n"+1,001110008:"n"+2,00001100 :"n"+3,00001110 $x"n"+4,00010010:"n"+5,00100010":"n"+6,01000000@:"n"+7,10000000 $p"f",00010000:"f"+1,01110000p:"f"+2,11111000:"f"+3,01111000x $q"f"+4,00100100$:"f"+5,00000010:"f"+6,00000001:"f"+7,0 $p"b",00100000 :"b"+1,01100000`:"b"+2,11100000:"b"+3,10111110 $x"b"+4,00111101=:"b"+5,00111101=:"b"+6,00100100$:"b"+7,00100100$ $p"c",10011001:"c"+1,10011001:"c"+2,11111111:"c"+3,11111111 $x"c"+4,11010101:"c"+5,11010101:"c"+6,11111111:"c"+7,11111111 $R"s",00010000:"s"+1,001110008:"s"+2,001110008 $ޖ"s"+3,01111100|:"s"+4,01101100l:"s"+5,01111100|:"s"+6,11111111:"s"+7,11111111 $p"a",00111100<:"a"+1,00111111?:"a"+2,00111100<:"a"+3,00100000 $x"a"+4,00100000 :"a"+5,00111100<:"a"+6,00111100<:"a"+7,11111111 $T"d",0:"d"+1,0:"d"+2,0:"d"+3,0 $x"d"+4,00011100:"d"+5,00111110>:"d"+6,01111111:"d"+7,11111111 $"j",00111100<:"j"+1,01111110~:"j"+2,11111111:"j"+3,11111111:z=47:"j"+z,0:z $p"e",01000000@:"e"+1,01000000@:"e"+2,01001100L:"e"+3,01101100l $x"e"+4,01011110^:"e"+5,01001101M:"e"+6,01001101M:"e"+7,00001101 $i"g",0:"g"+1,01010000P:"g"+2,01001000H:"g"+3,01101101m $x"g"+4,01111101}:"g"+5,00111111?:"g"+6,00111111?:"g"+7,00011110 $i"k",0:"k"+1,00011000:"k"+2,00101110.:"k"+3,01000101E $x"k"+4,01100100d:"k"+5,11101110:"k"+6,11111001:"k"+7,01000000@ % "FEUDAL" $Afeudal ` ,U  x><><@~<||~<~B<  ~~Bx<@<B~|@<|xDBB@@BbB@BBB@@@b@  @@BDB@BB@B@BBDB@B@|BRB<BBB|<|R<?  ||BBB@BB|B@BBBBN~@@~J~~||@@J?  @@BB~@BB@|@B|BDBB@@BFBBB@D@B@FB?  @@BDB@B$@D@BDDx><>B~@BBB<>B@B~<~B< @~<xB~<~B~<Bx ??< ??????B<<||>B0p`0p`0p`0p`??????BB@DBBBFDBBDDBBBB8888??????B<<@B><<<<<<<??????< >>>>????????????????????????????????????|~~Bx<@????????????B8<8h@@BDB@????????????B DD T||BBB@???????????????? | DD 579er=1 a:v$="i"er=2 # (z=031:"_";:z: 2_:7:e:t$(e);n$(e):s$(e),"November ";y:0,160:255,0:0 r(v)x=r(v)/2 z=s(v)*5 zxva=z z>xva=x v(v)=(va*6*w) v prices <xa=0:xb=0:xc=0:xd=0:xe=0 ,z=14:d(z)=1183 <xa=xa+l(z):xb=xb+s(z):xc=xc+v(z):xd=xd+h(z):xe=xe+r(z) z Uxa=xa+.01z# =:xb=xb+.01z# =:xc=xc+.01z# =:xd=xd+.01z# =:xe=xe+.01z# = ipl=((xb/(xa/5)+(xb*10 /xc))*20+(*10 +5))/10 :pl<1pl=1 pl>12 pl=12 pg=((((xb*20/xe)*20+*10 )*(xa*4/xe))/10 )/10 :pg=pg*((1-w)+.73333):w1pg=pg-.5 pg>1pg=1 pg<.06|u\pg=.06|u\ dps=((((xa/f)/100d)/((xd/f)+20)+4)*100d)/100d:ps<.5ps=.5 ps>10 ps=10 (pw=ps/2.5 +(*10 )/10 /pf=pg*9 +(*10 )/10 +.2~L pf>3pf=3 .e=e+1:e>4e=0:150 e=1y=y+1 "n$(e)(1)=""d(e)=1 9v=0:z=14:d(z)=1v=v+1 z:v=46800 d(e)=1195 !q(e)>0q(e)=q(e)-1 Ѐws=(h(e)/5):it=s(e)*i(e)/100d:tt=m(e)*t(e)/2:wt=w(e)*b(e):k(e)=k(e)+(ws*pw)+(f(e)*pf)+it+tt+wt:treasury %zr=0:z(e)=0275 =z=1z(e):e=1zr=zr+(*2000+2500 ) -e=2zr=zr+(*1000+2000) +e=3zr=zr+(*400+600X)  -e=4zr=zr+(*2500 +2500 ) z:k(e)=k(e)+zr Lk(e)=k(e)-((x(e)*100d)+(p(e)*40()):e=1v=2000*z(e) e=2v=800 *z(e) e=3v=200*z(e) "e=4v=1200*z(e) ' k(e)=k(e)-v , population 6>85004!:v=s(e):z=(s(e)/502)+(*(s(e)/100d)) @d>g(e)z=z+(d-g(e))/20 E+sd=z:sd>s(e)-10 sd=s(e)-10 Js(e)=s(e)-sd T8sb=(s(e)/502)+(*(s(e)/502)):s(e)=s(e)+sb ^_m=(((g(e)-d)/40()*(+.5)):i(e)>29m=(m-(s(e)/100d)*(i(e)-29)) h9i(e)<19m=(m+(s(e)/1000)*(19-i(e))) r>k(e)>s(e)m=(m+((k(e)-s(e))/1000)*(s(e)/1000)) w(m<-(s(e)-10 )m=-(s(e)-10 ) |+s(e)=s(e)+m:s(e)<10 s(e)=10 os=v:c=s(e)-v Mr=(*35#+1+r(e)/5000):r(e)=r(e)-(r(e)*r/100d):rot r(e)=r(e)+v(e) $o=0:h(e)=0450 D(*25)=1o=(*40(+30)/100d:disease Evd=h(e)*(*10 )/100d:o>0vd=vd+h(e)*o:sheep dead h(e)=(h(e)-vd) /ve=h(e)/10 :h(e)=(h(e)+ve):sheep born wl=(h(e)/5) <fl=(x(e)*100d):w=(g(e)/7):w*5+38600! d(e)=1195 &!q(e)>0582F:bandit +k(e)<1500582F 0.v=.01z# =:k(e)>0v=k(e)/1000 :iv=((((l(e)+.01z# =)/3000 +v+(m(e)+.01z# =)/60<+(b(e)+.01z# =)/30)/((p(e)+.01z# =)*2))*lv):iv>5iv=5:invasion D%iv>(*4+1)8700! Fk(e)0598V H>zz=(k(e)/1000):zz>(*7)+12 5500| Nd(e)=1195 Vz(e)=0660 Xndl=0:ds=(*19):ds=1dl=(z(e)*(*502+25)/100d):dl<1dl=1 ]Qds=1z(e)=z(e)-dl:8850":0:6900+e*100d:disaster b9e=1z=(*4500)+1500:specialrevenue l)e=2z=(*1000)+2000 v'e=3z=(*400)+600X )e=4z=(*2500 )+2500 sr=z(e)*z:85004! <h(e)>(l(e)-502)*2h(e)=(l(e)-502)*2 _j=((((s(e)-h(e)/502)*5)/(l(e)-h(e)/2))*100d):j>100dj=100d j<1j=1 !z=t(e):z>491z=z*2 Tm(e)=(f(e)+ws)/12 +zr/500:m(e)=(m(e)+(m(e)/4-m(e)*z/100d)) m(e)<0m(e)=0 !z=w(e):z>491z=z*2 nb(e)=p(e)/5+k(e)/2000+l(e)/5000+c(e)*4:b(e)=(b(e)+(b(e)/4-b(e)*z/100d)) b(e)<0b(e)=0 z=b(e)*2+m(e):titles  x=1 z<49900& z>25*lvx=8 z>502*lvx=16 z>70F*lvx=24 z>90Z*lvx=32 z>120x*lvx=40( z>150*lvx=480 z>180*lv8900" !x=x+a(e):t$(e)=a$(xx+7) 2o>02:6500d:7:disease  85004! 502:display K2;"GRAIN (in bushels)":"STORED DEMAND HARVEST ROT" Kr(e):5,9 ;d:5,18;v(e):5,27;r;"%" \:"SHEEP FARMLAND % in production":h(e):8,9 ;l(e):8,18;j;"%" ;:"PEASANTS","BORN DIED":s(e),sb:11 ,22;sd )m>0m;" peasants have moved in." +m<0m;" peasants have moved out."  m=0 ;2;"PRICES. Items sell for 1/2 price":"LAND/ac GRAIN/b SHEEP FLOUR/sk":"`";pl;"-";f(pl);"s":15,8;"`";pg;"-";f(pg);"s","`";ps;"-";f(ps);"s":15,24;"`";pf;"-";f(pf);"s" :2;"(1)";:"Buy land.",:2;"(2)";:"Sell land.",:2;"(3)";:"Buy grain.",:2;"(4)";:"Sell grain.":2;"(5)";:"Buy sheep.",:2;"(6)";:"Sell sheep." P:f>120,0;2;"(7)";:"Buy land from another state." 62;1;"Make your choice.(0 if finished)" ,0,136:255,0:0,128:255,0:0,112p:255,0:0,104h:255,0:0,88X:255,0:0,80P:255,0:0,568:255,0:0,480:255,0 69E,143:0,-15:140,143:0,-15:212,143:0,-15:61=,120x:0,-15:132,120x:0,-15 167,80P:0,16:112p,80P:0,16:63?,480:0,15:127,480:0,15:183,480:0,15:0,72H:255,0 3v$="":v$=:v$>47/Ưv$<568770 v$="i"7500L:700  760 2v=v$:.05|L,35#:v=01000 +70F:760+v*20:720  a17,0;"How many acres will you buy?":v$:20:er=170F:780  #er=27500L:700 v=v$:z=v*pl  950 v$="n"700 %k(e)=k(e)-z:l(e)=l(e)+v:700  b17,0;"How many acres will you sell?":v$:20:er=170F:800  %#er=27500L:700 *#v=v$:v>l(e)-502945 /950:v$="n"700 10l(e)=l(e)-v:k(e)=k(e)+v*pl/2:700 4c17,0;"How many bushels will you buy?":v$:20:er=170F:8204 9#er=27500L:700 >v=v$:z=v*pg C950:v$="n"700 E%r(e)=r(e)+v:k(e)=k(e)-z:700 Hb17,0;"How much grain will you sell?":v$:20:er=170F:840H M#er=27500L:700 Rv=v$:v>r(e)945 W950:v$="n"700 Y0r(e)=r(e)-v:k(e)=k(e)+v*pg/2:700 \a17,0;"How many sheep will you buy?":v$:20:er=170F:860\ a#er=27500L:700 fv=v$:z=v*ps k950:v$="n"700 m%h(e)=h(e)+v:k(e)=k(e)-z:700 pb17,0;"How many sheep will you sell?":v$:20:er=170F:880p u#er=27500L:700 zv=v$:v>h(e)945 950:v$="n"700 0h(e)=h(e)-v:k(e)=k(e)+ps*v/2:700 f=1700 a16,0;"From which player will you buy?":z=14:d(z)=1906 z=e906 z;".";t$(z);n$(z) z 521,0;2;1;"Press number." v$="":v$=:v$=""909 ?.05|L,35#:20:er=170F:900 #er=27500L:700 'z=v$:z<1z>4909 z=e909 d(z)=1909 ^70F:16,0;" ":"How much land will you buy?" %v$:20:er=1918 #er=27500L:700 /x=(v$):x=x:x:x>l(z)-502945 #"At what price per acre(in `'s)?" %v$:20:er=1926 #er=27500L:700 .v=(v$):v=v:950:v$="n"700 <l(z)=l(z)-x:l(e)=l(e)+x:k(z)=k(z)+(v*x):k(e)=k(e)-(v*x)  700 0"You don't have enough!":200:700 J2;v,:1;"Verify?";:"(n=no any":," other key=yes)":v$="" v$=:v$=""960  .05|L,35#:70F: t70F:17,0;"How much grain are you going to distribute?":v$:20:er=11000 #er=27500L:700 @v=v$:v>r(e)"You don't have enough!":200:1000 950:v$="n"1000 r(e)=r(e)-v:g(e)=v  Z5,0;" ":5,0;r(e):0,128:255,0  h(e)=01100L 70F:17,0;"How many sheep are you going to slaughter for food?":"(press enter for 0)":v$:v$=""v$="0"1110V "20:er=11040 $er=27500L:1040 $@v=v$:v>h(e)"You don't have enough!":200:1040 )950:v$="n"1040 .#h(e)=h(e)-v:g(e)=g(e)+v*10 3X8,0;" ":8,0;h(e):0,96`:255,0 L 100d VN502::11 ;2;"REVENUES":6;"SACKS PRICE EARNED" `i"WOOL ";ws:6,14;"`";pw;"-";f(pw);"s":6,22;"`";(pw*ws);"-";f(pw*ws);"s" jo"FLOUR ";f(e):7,14;"`";pf;"-";f(pf);"s":7,22;"`";(pf*f(e));"-";f(pf*f(e));"s" t:z(e);:e=1" mines"; ve=2" woodmills"; xe=3" stud farms"; ze=4" quarries"; |6" earned ":9 ,22;"`";zr;"-";f(zr);"s" ~X:2;12 ;"TAXES"::"INCOME TAX @";i(e);"%":13 ,22;"`";it 8"SALES TAX @";t(e);"%":14,22;"`";tt 8"WEALTH TAX @";w(e);"%":15,22;"`";wt 0,128:255,0:0,120x:255,0:0,112p:255,0:0,72H:255,0:0,64@:255,0:0,568:255,0:0,480:255,0 44,,112p:0,23:104h,112p:0,23:104h,480:0,24:170,480:0,87W 40(:18,0;2;1;" CHANGE TAXES (press 0 to 3) ":2;"0";:"=No change",2;"1";:"=Income tax":2;"2";:"=Sales tax",2;"3";:"=Wealth tax"  v$="":v$=:v$=""1165 6.05|L,35#:20:er=11165 $er=27500L:1110V +v=(v$):v<0v>31165 v=02200 !70F:v=12000 v=22010 v=32020 S18,0;"CHANGE INCOME TAX (1 to 100%)":21004:i(e)=v:1110V R18,0;"CHANGE SALES TAX (1 to 100%)":21004:t(e)=v:1110V S18,0;"CHANGE WEALTH TAX (1 to 100%)":21004:w(e)=v:1110V 4"Enter new tax level." >&v$:20:er=12110> H$er=27500L:1110V R,v=(v$):v<1v>100d2110> \ x(e)=02500 T70F:18,0;"How much grain will you grind for flour this year?" *"(Up to ";(x(e)*1400x);" bushels)" &v$:20:er=12220 $er=27500L:1110V ov=v$:v>r(e)v>x(e)*1400x70F:18,0;"You don't have enough!":200:2200 @70F:18,0;"";:950:v$="n"2200  r(e)=r(e)-v:f(e)=(v/7) č502::2;3;"ANNUAL MAINTENANCE COSTS":w=0:40(:p(e);" Platoons @ `40":6,22;"`";p(e)*40( C:x(e);" Windmills @ `100":8,22;"`";x(e)*100d T:z(e);:e=1" mines @ `2000":w=z(e)*2000:10 ,22;"`";w Me=2" Woodmills @ `800":w=z(e)*800 :10 ,22;"`";w Me=3" Stud farms @`200":w=z(e)*200:10 ,22;"`";w Ne=4" Quarries @ `1200":w=z(e)*1200:10 ,22;"`";w C:c(e);" Castle @ `500":12 ,22;"`";c(e)*500  2;"sections" b40(:15,14;"TOTAL `";x(e)*100d+p(e)*40(+c(e)*500+w:40( &168,40(:0,88X (O19,0;2;1;" Press any key to continue. ":v$="" 2v$=:v$=""26102 <(.05|L,35#:v$="i"7500L 51:7:7::5:state display Kx=201:z=012 :x,z:255-x,0:x=x+1:z Lx=214:z=13 30:x,z:255-x,0:x=x+2:z 74:18,0;"":"":"":"" 73:0,0;"":"":"":"" f0,26;"":1,28;"":2,29;"":3,31;"" -z=14:d(z)=131200 <z:vx=(l(z)/150):vy=vx:vx>128vx=128 vy>88Xvy=88X vy<35#vy=35# vx<60<vx=60< 3z=1vx,175:0,-vy:-vx,0 0z=20,vy:vx,0:0,-vy <z=4255,175-vy:-vx,0:0,vy &3z=3255,vy:-vx,0:0,-vy 0z :-z=14:d(z)=13800 ?(x=4:z:x(z)=03200 A#vx=x(z):vx>15vx=15 D 3900< Nv=1vx:"";:v %x=5:p(z)=03300 #vx=p(z):vx>15vx=15 #3900<:v=1vx:"";:v %x=6:z(z)=03400H #vx=z(z):vx>15vx=15 +3900<:v=1vx:z=1""; z=2""; z=3""; z=4""; v H%x=3:c(z)=03800 J#vc=c(z):vc>13 vc=13 Mvx=vc:vx>5vx=5 R!z=1z=4vy=3 W"z=3z=2vy=20 \&z=1z=2vy,4;""; p*z=3z=4vy,27-vx;""; vx=vc:vx>5vx=5 >v=1vx:"";:vc=vc-1:v:vc=03800 5vy=vy-1:c(z)>10 vc<53510 3420\ &z=1z=2vy,4;"" 'z=3z=4vy,26;"" 'vc=vc-1:vc=03800 &z=1z=2vy,8;"" 'z=3z=4vy,22;"" 'vc=vc-1:vc=03800 !z=11,6;"" "z=218,6;"" #z=318,24;"" "z=41,24;"" z 7"Press enter";z$:4000 <z=1x,0;""; F$z=211 +x,0;""; P(z=311 +x,32 -vx;""; Zz=4x,32 -vx;""; d I502::"FARMLAND",l(e);" acres.":"SUPPORTERS",b(e):"TRADERS",m(e) s"SOLDIERS",p(e);" platoons":2;" (cost `80)"," (`40 to retire)":"WINDMILLS",x(e):2;" (cost `800)" e"CASTLE sections",c(e):2;" (cost `1000)":e=1"MINES",z(e):2;" (cost `6000)" 7e=2"WOODMILLS",z(e):2;" (cost `3000)" 8e=3"STUD FARMS",z(e):2;" (cost `1000)" 6e=4"QUARRIES",z(e):2;" (cost `5000)" d2;"Items sell for half their cost":120x,64@:2;0,86V:40( j"1.Buy windmill","2.Sell windmill":"3.Buy castle","4.Sell castle":"5.Equip platoon","6.Retire platoon" 'e=1"7.Buy mine","8.Sell mine" /e=2"7.Buy woodmill","8.Sell woodmill" /e=3"7.Buy studfarm","8.Sell studfarm" +e=4"7.Buy quarry","8.Sell quarry" 8:2;1;" Press 1 to 8, 0 to finish. " "72;0,64@:2;255,0 , v$="":v$=:v$=""4140, 66.05|L,35#:20:er=14140, @$er=27500L:4000 Jv=v$:v=0195 Ov=14200h Tv=24300 Yv=344000 ^v=44500 `v=54600 bv=64700\ dv=74800 fv=84900$ g 4140, h4x(e)=x(e)+1:k(e)=k(e)-800 :4000 x(e)=04140, 4x(e)=x(e)-1:k(e)=k(e)+400:4000 05c(e)=c(e)+1:k(e)=k(e)-1000:4000 c(e)=04140, 4c(e)=c(e)-1:k(e)=k(e)+500:4000 rs(e)<3070F:16,0;"You don't have enough peasants!":z=1100d:z:4000 Gp(e)=p(e)+1:k(e)=k(e)-80P:s(e)=s(e)-20:4000 \p(e)=04140, fGp(e)=p(e)-1:k(e)=k(e)-40(:s(e)=s(e)+20:4000 4z(e)=z(e)+1:e=1k(e)=k(e)-6000p !e=2k(e)=k(e)-3000 !e=3k(e)=k(e)-1000 !e=4k(e)=k(e)-5000  4000 $z(e)=04140, .4z(e)=z(e)-1:e=1k(e)=k(e)+3000 8!e=2k(e)=k(e)+1500 B e=3k(e)=k(e)+500 L!e=4k(e)=k(e)+2500 V 4000 ` 195 yx:0:z::z:z=09 :z,0;v;b$:z:v=72H:zx=0:zy=36$:z=96`:5495w Av=144:zx=111o:zy=183:z=96`:5495w 4:11 ,23;"":12 ,21;"":13 ,24;"":17,0;"":" ":"":"" [12 ,11 ;"":11 ,12 ;"":10 ,2;"":" " h0:20,29;"":19,8;"":19,30;"":18,25;"" e1:9 ,25;"":13 ,3;"":12 ,8;"":11 ,6;"" A3:15,15;"":14,15;" " 5:w=.733337 x=252255:x,72H:-2,0:-20,-24:-60<,-24:-20,0:-10 ,-8:-15,-4:-10 ,-8:x Xz=40(:x=96`:v=04:x,v:z,0:x=x+3:z=z-6:v  /z=18:208,152,z:z: wAx=zxzy6:x,z:z=z+1:v,0:v=v-12 :x: | 8850" U0:5,16;" ":z=68:z,16;"":z 9 ,9 ;"":62>,102f:0,10 :36$,0:0,-10 :-36$,0:8,8;2;"SOLD":0,96`:255,0 10 ,2;"Creditors have sold your possesions, any extra monies will be returned to you.":v=zz/40(:l$="1":6000p /l=(l(e)*v):l>l(e)-502l=l(e)-502 +l(e)=l(e)-l:2;l;" acres of land." sk(e)=k(e)+((pl*l/2)+p*20+ca*400+x*300,+(ps*h/2)):e=1k(e)=k(e)+z*2500 #e=2k(e)=k(e)+z*1200 "e=3k(e)=k(e)+z*400 !e=4k(e)=k(e)+21004 /k(e)<-25000a+(*5000)5610 q(e)=3:6190. |2::1:z=05:z,0;b$:z:z=69 :z,0;0;b$:z:0:8851" 7:5400:0:170,150,1:z=169171:z,148:-2,-3:0,-2:z:0,-5:167,143:0,-5 9170,146:2,-2:0,-6 u15,2;e;t$(e);n$(e):2;e;s$(e):" has been driven starving and":" destitute from the land." d(e)=1:6190. px=(x(e)*v):x>x(e)x=x(e) z*x(e)=x(e)-x:p=(p(e)*v):p>p(e)p=p(e)  p(e)=p(e)-p z=(z(e)*v):z>z(e)z=z(e) *z(e)=z(e)-z:h=(h(e)*v):h>h(e)h=h(e) -h(e)=h(e)-h:ca=(c(e)*v):ca>c(e)ca=c(e) c(e)=c(e)-ca K4;"You lost the following:"::2;p;" platoons of soldiers": q2;x;" windmills":2;h;" sheep":2;ca;" castle sections":2;z;:e=1" mines." e=2" woodmills." e=3" studfarms." e=4" quarries." $l$="1"l$="":5560 )l$="2"l$="":87520" .:6;1;"Press enter";z$:1:7:: 8t2::1;" THE BLACK DEATH HAS STRUCK! ":q(e)=3:v=(((*502)+20)*s(e)/100d) ="v>s(e)-10 v=s(e)-10 Bhsd=sd+v:s(e)=s(e)-v:10 ,10 ;"YOU HAVE LOST"::10 ;v;" PEASANTS.":c=c+v:200 Lz=64@70F:z,152:128,-128:5:z:z=194200:z,152:-128,-128:5:z:6190. d|8850":3:7,24;"":6,24;" ":4:6,2;"":"":"" n0:8,10 ;" ":15;"";21;"";29;"":5;"";12 ;"";25;"":0,80P:255,0 x13 ,12 ;2;"DISEASE!"::2;"An outbreak of foot and mouth disease has infected your sheep.":6190. O5:::1;2;" ALL PLAYERS HAVE BEEN DEPOSED! ":8983# X 7090 Z11 ,4;"":10 ,5;"":9 ,4;"":47/,86V,3:568,86V,3:0,72H:255,0:15,8;2;"MINE EXPLOSION!" b502:0:2:8,16;1;"":9 ,16;1;"":10 ,16;1;"" lz=120:.01z# =,-z:z:20:7090:0:2:10 ,16;"":9 ,17;"":0:7 T17,5;dl;" mines destroyed":5;z(e);" mines remain":6190. j1:7,15;"":z=810 :z,15;"";0;"";1;"":z: W2:8,16;"":9 ,16;"":10 ,16;"": 4:z=611 :x=031:z,x;"":x:z:0:40(:14,10 ;2;"FOREST FIRE!":70F Xx=031:z=611 :z,x;2;"":x>1z,x-2;"^" z:x \16,5;dl;" woodmills destroyed":5;z(e);" woodmills remain":6190.  4:6,0;"":" ":"":1:7,20;"";1;2;"";7;"":8,20;"":9 ,20;"";0;2;"";1;"" *9 ,15;"";9 ,28;"";11 ,12 ;"";21;"";31;"":z=99c101e2:159,z:-34",0:-24,-16:152,0:-24,16:-46.,0:z 4d4:10 ,16;"";10 ,25;"";10 ,27;"":0::40( R14,5;2;"HORSES SUFFER A PLAGUE!"::4;dl;" stud farms have to":8;"be destroyed"::4;z(e);" remain":6190. Z10 ,0;"":40(::13 ,10 ;2;"EARTH TREMORS!":70F 73I,126~:-24,-8:5:z=491502:z,118v:80P,-1:5:z:z=129132:z,117u:-24,-16:5:z:z=105i108l:z,101e:64@,-4:5:z ;z=169180:z,97a:-30,-17:z ^15,5;dl;" quarries are destroyed":5;z(e);" quarries remain":6190. L@:0:4:10 ;3;"INFORMATION":40( Vo6;"You must save 2 bushels of grainfor each acre you wish to sow.":"1 peasant can farm 5 acres. " [q6;"You must keep 50 acres for grain":"If you don't have enough land tosupport your sheep they will die" `|6;"1 acre will support 2 sheep. ":"5 sheep yield 1 sack of wool.":;6;"1 windmill grinds 1400 bushels. " j9"7 bushels of grain grind to give 1 sack of flour." M6;"1 peasant eats 20 bushels/year or he eats 1 sheep/year. " N"A platoon consists of 20 men.":6;"It costs `40 to retire a platoon" |"The printed flour price is the":2;"SALE";0;" price per sack.":6;"Most items sell at 1/2 cost. " b20,0;2;"Enter '";:"i";:2;"' to return to this pageduring the game." )0;"Press enter.";z$::7: @z=7:x=6:v=5:5000:6:5400:5:7:2,3;c$:3,2;d$:1,18;c$:2,17;d$ EW5,24;c$:6,23;d$:6,10 ;c$:7,9 ;d$ r&"EXCELLENT WEATHER!press enter";z$: Bx=6:z=7:v=5:5000:6:5400 +0:"GOOD WEATHER! press enter";z$: uz=7:x=6:v=5:5000:5:7:z$=c$+" "+c$+" "+c$:y$=d$+" "+d$+" "+d$ i0,5;z$:4;y$:1;z$:y$:12 ;z$:11 ;y$:7;z$:6;y$ .0:"NORMAL WEATHER","press enter";z$: lz=7:x=6:v=1:5000:1:z=13:6:8360 :10 :1:8360 :502:z v#"BAD WEATHER!","press enter";z$: v176,175:-24,-24:-8,4:0,-12 :-8,-2:-12 ,-6 y160,159:8,-15:-10 ,-18:165,135:10 ,-4:2,-8: Bz=6:x=7:v=5:5000:6:5400 !11;"DROUGHT!";0,"press enter";z$: !4_d=b(e)*200+m(e)*75K+p(e)*600X+s(e)*20:d<100dd=100d:demand !> ! 8800`" !A10 ,11 ;2;"REBELLION!":v=c/os:q(e)=3 !-s=(os*v):s>s(e)-10 s=s(e)-10 ! sd=sd+s !3s(e)=s(e)-s:2;sd;" peasants were killed." !sd>os/1.5@8680! !k=(k(e)*v) !%k>k(e)*2k=(k(e)*2) ! k(e)=k(e)-k !#:" IT COST YOU `";k:6000p !200:2:1:z=05:z,0;b$:z:z=69 :z,0;0;b$:z:0:8851" !7:5400:0 !0:z=01:158+z,136+z:0,20:16,0:z:0,-5:175,151,1 !rz=174176:z,149:0,-4:z:0,-4:174,145:0,-4 !d(e)=1:7:0:11 ,2;e;t$(e);n$(e):2;s$(e):2;"HAS BEEN EXECUTED BY THE STARVING POPULATION!":6190. !58800`":10 ,11 ;2;"INVASION!" ":2;"Rebel BARON VRAAG has invaded!":v=iv/10 " /s=(s(e)*v):s>s(e)-10 s=s(e)-10 "Isd=sd+s:s(e)=s(e)-s:2;s;" peasants were killed.":k=(k(e)*v) "%k>k(e)*2k=(k(e)*2) "6l$="2":k(e)=k(e)-k:" IT COST YOU `";k:6000p "0/l=(l(e)*v):l>l(e)-502l=l(e)-502 "2+l(e)=l(e)-l:2;l;" acres of land." "4q(e)=3 "8 6190. "` 8850" "e_7,24;3;"";2;"":6,24;3;" ";2;"" "gL6,2;4;"";2;"":4;" ";2;"" "j0:7,8;"":8,4;"":0,103g:255,0: "S0:502:2:5:z=35:z,0;b$:z:7 ">z=128:zx=0:zy=36$:v=72H:5495w "Lv=144:zx=83S:zy=140:z=128:5495w:7: " e:5::t$(e)="OVERLORD" "cz$="":v$="":x$=" ":1,0;x$:z=113 :x$:z "]y$=z$(23)+"":x$="":x$:x$:0;b$:0;b$ "^x$="":x$:x$:0;b$;:x$=" " "2:z=13 6-1:z,5;x$:6;z-1,5;y$:6;z-2,5;10 ;s$(e);" ";v$ "6;z-3,5;5;" ";n$(e);" ";v$:6;z-4,5;13 ;t$(e);" ";v$:z-5,5;z$:10 :z "2:16,23;"":15,23;"":14,22;"":13 ,21;" ":7;12 ,23;"":11 ,23;"" #Sv=12 :7:z=71G74J:146,z:v,0:v=v+12 :z # 502:z=-12 246:.5,z:.5,z:.05|L,z:.05|L,z:.05|L,z:1,z:z:1,30 #~7:200:z=621:z,0;b$:z:6,0;b$:v=0:z=14:z=e8980# #d(z)=18980# #4:z:11 ;t$(z):11 ;n$(z):v=v+1 #5z:0::v>0" AND ALL OTHER STATES" ##v=010 ;"ALL STATES" #W" SWEAR ALLEGIANCE AND FAITHFUL OBEDIANCE TO THE OVERLORD.":500:70F #k19,0;" WOULD YOU LIKE TO PLAY AGAIN?":21,9 ;1;" press y or n.":z$="" #z$=:z$="y"100d #z$"n"8984# #' #(8;"FEUDAL OVERLORD": %q(4):f(4):s$(4,12 ):s(4):i(4):l(4):r(4):k(4):p(4):m(4):t(4):w(4) %&v(4):z(4):a(4):d(4):b(4):x(4):c(4):h(4):z(4):g(4):n$(4,20):t$(4,10 ) %+Gl$="":c$="":d$="":b$=" ":z=131:b$=b$+" ":z %0cz=14:s(z)=2200:r(z)=25000a:i(z)=20:k(z)=200:p(z)=5 %1yq(z)=0:t(z)=20:w(z)=20:d(z)=0:c(z)=2:h(z)=0:z(z)=0:g(z)=47000:z %?=z=14:x(z)=0:f(z)=0:n$(z)="":z %Ava$=" SIR LORD BARON COUNT MARQUIS DUKEARCHDUKE MADAME LADYBARONESSCOUNTESSMARQUISE DUCHESSPRINCESS" %D{t=0:s$(1)=" of SHENBURY":s$(2)=" of DUNSTABY":s$(3)=" of LANISTER":s$(4)=" of CHERLTON" %Ne=0:y=1100L: %y:" At what level of difficulty do you wish to play?"::9 ;"Press 0 to 5.":9 ;"0=Easy,5=Hard":v$="" %v$=:v$=""9605% %6.05|L,35#:20:er=19605% %$er=27500L:9600% %*v=(v$):v<0v>59605% %K15;v:v=0:2;1;8,11 ;" CHICKEN!" %@v=5:3;1;8,10 ;" FOOLHARDY!" %Bz=14:l(z)=10000'-v*500:z:lv=1+v %N:5;"Do you want the states assigning randomly (y/n)?":v$="" %v$=:v$="n"9800H& %v$"y"9650% %.05|L,35#:v$ %"how many players (1to4)?" %-v$="":65500:v$=:v$=""9665% %6.05|L,35#:20:er=19665% %(f=v$:f<1f>49665% %v$ %x=(*23)*4 %/z=1x:w:z:z=14:a(z):z % z=1f %o"Enter player ";z;"'s name.":"Name:";n$(a(z)):n$(a(z))>20"No more than 20 characters.":9690% %n$(a(z))::z %Cz=14:(n$(z))(1)=""d(z)=1:9730& %z:n$(z):s$(z): &z:250 & 0:9840p& &Hh.05|L,35#::v$="":"Enter player name for each state. Press 'ENTER' if no player." &R-f=4:z=14:z:"? ";s$(z) &T:"name:";i$:i$=""f=f-1:d(z)=1:9830f& &W9i$>20"No more than 20 characters.":9812T& &\n$(z)=i$:n$(z): &fz &pC:z=14:n$(z)(1)=""d(z)=1:9890& &z=z:"Is ";n$(z):s$(z);" a man or a woman (press m or w)?" &5v$="":65500:v$=:v$"m"v$"w"9860& &9.05|L,35#:a(z)=0:v$="w"a(z)=568 & a(z)=0t$(z)=" Sir" &!a(z)=568t$(z)=" Madame" &z:7500L: &:2:e;n$(e):e;s$(e)::"YOU ARE HEREBY STRIPPED OF ALL TITLES FOLLOWING YOUR MISMANAGEMENT OF THE STATE." &"THE OVERLORD IS GRAVELY DISPLEASED!":"YOU MUST IMPROVE THE RUNNING OF YOUR LANDS TO REGAIN YOUR TITLES":t$(e)="COMMONER":1;6;"Press enter";z$:7:695 '1,2,3,4,1,2,4,3,1,3,2,4,1,3,4,2,1,4,3,2,1,4,2,3,2,1,3,4,2,1,4,3,2,3,1,4,2,3,4,1,2,4,3,1,2,4,1,3,3,2,1,4,3,2,4,1,3,1,2,4,3,1,4,2,3,4,1,2,3,4,2,1,4,2,1,3,4,2,3,1,4,1,2,3,4,3,1,2,4,3,2,1,4,1,3,2 'M(23730\+256*23731\)-(23641Y\+256*23642Z\) 0%teyLfwwSg%@ =o`Q>'Hs333|u\ Q녰 VW =q? |~dlE,m{croj_F? ]Vfiph l3s-k IY W0ZAo SIR LORD BARON COUNT MARQUIS DUKEARCHDUKE MADAME LADYBARONESSCOUNTESSMARQUISE DUCHESSPRINCESSV 5 aU - LCDB