WL qp_n+sp 53999 Y"code a"23296[,64@:"code b"54000,6000p:"code c""A",168  110n <23625I\,240:23626J\,210:23296[  n0:7:rai=0:ma=0:pg=0:psam=0:pm=0:z=0:ap=0:ag=0:cc=0:b=0:di=0:7950 x ^)pir=800 +(*101e):jj=0 rmh=500+(*301-) yy=1201:pop=5000+(*401):t=1600@+((*350^)-100d):mer=0:sam=15+((*6)-2) Sra=0:tr=0:d=0:sq=0:qs=0:im=0:ex=0 Ums=7+(*3):mon=800 +(*401):f=5000+(*2001) vic=0:de=0 e$(5,21):e$(1)=" an army from Sakai ":e$(2)=" an army from Hyogo ":e$(3)=" an army from Hakata ":e$(4)=" an army from Hirado ":e$(5)=" an army from Iyo " f$(3,21):f$(1)="a Warlord from Sakai":f$(2)="a Warlord from Hyogo":f$(3)="a Warlord from Hakata":g(3):g(1)=(*15)+4:g(2)=(*12 )+9 :g(3)=14 e(5):e(1)=1300+(*351_):e(2)=1350F+(*371s):e(3)=1700+(*351_):e(4)=1725+(*351_):e(5)=1900l+(*351_) =k(5):n=15:k(n)=(*8)+1:n &5::o$="Select Level of play":4,6;"SELECT LEVEL OF PLAY";6,16;"1",,"2",,"3":6990N:700:i$<"1"i$>"3"550& 0C5+i$,7;"Selected":502:i$=1670 :i$=2630v bpir=pir+200:jj=1:di=1:e(1)=e(1)+(*201):e(5)=e(5)+(*151):f=(f/2):n=15:k(n)=k(n)+4:n:650 vtpir=pir+100d:e(4)=e(4)+(*101e):ms=(ms/2):n=15:k(n)=k(n)+2:n Re(2)=e(2)+(*99c):n=(*3)+1:g(n)=g(n)+4 co=(*2)+1  2250 "?";i$:ñi$700 /u=1̱i$:i$(u)<"0"i$(u)>"9"700 u  #5710N:100d:2250 @tr=((pop/3)-t):tr>(mon/2.5 )tr=(mon/2.5 ) tr>1200tr=1200 tr<0tr=0 ڒs=572:r=5̺(tr/45-)+4:s,r;"":r:s:19,0;"How many troops will you train?":"(Max=";tr;")" 6990N:700:i$ i$<0Űi$>tr750 !b=i$:mon=(mon-(b*2.5 ))  )qq=(*20):qq<72650Z mon<90Z2550 1:9 ,15;"":0:19,0;"Samurai for hire - cost 45 mon.";20,0;"Enter 1 to hire, 0 to refuse.":6990N 5700:i$:i$<0Űi$>11011 c=i$:c=02250 .mon=mon-45-:sam=sam+1:690 .<:dd=((mon-100d)/30):dd>60<dd=60< 0s=59 2:r=5̺(dd/3)+4:s,r;"":r:s:19,0;"How many ships will you build?";,"(Max= ";dd;")" B<6990N:700:i$:i$<0Űi$>dd1090B jd=i$:d=02250 ~!mon=mon-(d*30):690 mer=02850" :s=3152:r=1mer/140:s,r;"":r:s:s=3152:q=16(mer/140)+15:1:s,q;"":q:s:0:19,0;"Mercenaries may join your army";,"Enter 0-";(mer/2) H6990N:700:i$:i$<0Űi$>(mer/2)1191 =at=i$:mer=(mer-at):pop=(pop+at):t=(t+at):2850"  54306 d=0da=0 d0da=d*502  ega=(1100L*((*1.1 )+.6)):gb=(1600@*((*1.43333)+.5)):gc=4000 fa=pop-t-b-da-cc 2fa<0fa=0 F5::1,11 ;"AGRICULTURE";4,0;"You have ";fa;" workers available":100d:6,0;"UNITS OF LAND";8,6;"GRADE A";8,15;"GRADE B";8,24;"GRADE C";9 ,7;ga;9 ,16;gb;9 ,25;gc Zgafafb=ga dga>fafb=fa nO19,0;"How much Grade A land will you cultivate? (max= ";fb;")" <6990N:700:i$:i$<0Űi$>fb1410 gd=i$ "10 ,7;gd:5350 fa=fa-gd:gbfafc=gb gb>fafc=fa [5350:19,0;"How much Grade B land will you cultivate? (max= ";fc;")" <6990N:700:i$:i$<0Űi$>fc1530 "ge=i$ 6#10 ,16;ge:5350 Jfa=fa-ge:gcfafd=gc Tgc>fafd=fa ^w5350:19,0;"You will cultivate ";fd;" units of";20,0;"Grade C land":gf=fd:100d 10 ,25;gf:5350:19,0;"Do you wish to make any changes?Enter x to progress","Any other key to make changes":6990N x$=:=""1720 ="x"3010  1310 D:19,0;"How much food will you import? (0-";in;" )" <6990N:700:i$:i$<0Űi$>in1770 &8im=i$:mon=(mon-(im*co/10 )):f=f+im:690 :ex>02990 N ikfez=ik X ik>fez=f bF:19,0;"How much food will you export? ( 0 - ";ez;" )" c<6990N:700:i$:i$<0Űi$>ez1891c >ex=i$:pr=co*.75@:f=f-ex:mon=mon+(ex*pr):690 ra>02990 =:19,0;"Select your target":100d:n$="y" U5350:19,0;"Enter 1 = FOOD",,"Enter 2 = SLAVES","Enter 3 = GOLD" A6990N:700:i$:i$<1Űi$>32020 z=i$ ri=(t/8)::s=59 2:r=5(ri/30)+5:s,r;"":r:s:19,0;"How many troops will you send? (max= ";ri;")" <6990N:700:i$:i$<0Űi$>ri2040 ra=i$ #ra=0z=0:2250 *t=t-ra:690 >mon<502690 RA19,0;"Do you want to buy mercenaries? Enter (y/n)" S+6990N:x$:x$"y"x$"n"2131S Tx$="y"2190 \ 2250 fby>mhby=mh z 5350:by=(mon*.75@):2150f:s=511 2:r=5(by/40()+5:s,r;"":r:s:19,0;"How many? (max= ";by;")" <6990N:700:i$:i$<0Űi$>by2191  bu=i$:bu=02250 8mh=mh-bu:mer=mer+bu:mon=mon-(bu/2):690 :7:5:0::"OPTIONS";0,23;"YEAR ";yy;5,0;"a. TRAIN TROOPS",,"b. BUILD SHIPS",,"c. HIRE SAMURAI",,"d. ATTACK PIRATES","e. IMPORT FOOD",,"f. EXPORT FOOD",,"g. MAKE A RAID",,"h. HIRE MERCENARIES" B15,0;"s. STATUS REPORT","x. TO PROCEED":6990N x$=:=""2280 "s"2330 55710N:19,7;"Press any key":a$= =""2295  2250 %6:7:="a"2530 .="b"2950 B="c"2630F V="d"54306 j="e"2670n ~="f"2710 ="g"1970 ="h"2810 ="x"2890J 2250 :mon>202590 24,7;"Insufficient funds":120x 2250 tr>12990 2720:2250 F):sq=sq+1:sq>12990 P 970 Z@4,6;"No Samurai available":100d:2250 nms<15690: x 2750 im>12990 1750 ms<15690: 2750 1850: 6ij=(mon*10 /co):ik=ms*150:ik12990  1170 ":mh>02110> 6I6,0;"No more Mercenaries available":100d:2250 J:4,0;"Have you made all your decisions";6,0;"Enter x to progress","Any other key to return":6990N Ox$=:=""2895O ^="x"2930r h 2250 r0sq=0:qs=0:1270:3010 :d>02990 mon<60<2550 1070. H:5,3;"Option no longer available":100d:2250 w:e(1)+e(2)+e(3)+e(4)+e(5)<1g(1)+g(2)+g(3)>03030 3050 sam<26950& 6030 ,t+mer<100ddi=di+1:6650 8t+mer<10 sam<2di=di+10 :6670 -yy>1215de+di>vic*36650 &2ee=(*10 )+1:ee<63150N :ee>73490 D 6010z Nt+mer<10 4170J b n=ee:e(n)=03490 vw4::5870:11 ,0;e$(n);e(n);" men","is attacking your village.","Do you wish to fight? (y/n)" +6990N:z$:z$"y"z$"n"3210 z$="y"3590 |de=de+1:5350:19,0;"The Warlord demands","50 mon, 1 Samurai":150:mer<53310 221,0;(mer*.2~L);" Mercenaries" mer=mer-(mer*.2~L) <mon=mon-502:sam=sam-1:mon<03350 sam<03370* 3430f &mon=0:sam<03370* 3390> * sam=0 >5,4;de;1,4;mer;2,4;sam;3,4;mon:150:5390:19,0;"You are unable to pay in full." RS20,0;"The Warlord attacks your","whole army.":150:3770 fk6,4;de;1,4;mer;2,4;sam;3,4;mon:150:4170J zt+mer<10 4170J t+mer<10 4170J Le(1)+e(2)+e(3)+e(4)+e(5)<14170J :0,10 ;"ENEMY STATES":n=15:1+n,1;n;e$(n);1+n,24;e(n);8,2;"YOURSELF";8,24;t+mer:n:100d S19,0;"Which Warlord will you attack?";20,10 ;"Enter 1-5" A6990N:700:i$:i$<1Űi$>53511 at=i$:5870:n=at e(n)>03570 f:5,0;"Warlord already defeated";7,0;"Choose again":100d:3500 <10 ,1;"You will fight ":e$(n);e(n):100d p5390:19,0;"With how many troops do you wish";20,0;"to fight? (Max=";t+mer;")" ?6990N:700:i$:i$<0Űi$>t+mer3610 .m=i$ B m>(e(n)*.66()3750 V!m>((t+mer)/4)3750 jK5390:19,0;"Too few troops to engage enemy":100d ~!m>((t+mer)/6)3270 5390:3410R  <ut=(vic*1.5@)-de-(di/2):ut>9 ut=9 ut<-9 ut=-9 kur=0:us=0:ur=e(n):us=m-(mer*.3):up=((us-ur)/502)+ut+((*3)+1)-k(n)  7330  up>-54030 :ur(e(n)*2)4090 .ej=(e(n)/4):e(n)=e(n)-ej:4110 "ej=(e(n)/2):e(n)=e(n)-ej *t>100de(n)<100de(n)=0 (t100de(n)100d41506 "Z:4,0;"The Enemy Surrenders!":150:f=f+4000:pop=pop+600X 62,6;7;0;1;"You are Victorious!":200::5870:100d:19,0;"Enemy casualties";20,0;ej;" killed and deserted":150 Jme(1)+e(2)+e(3)+e(4)+e(5)+g(1)+g(2)+g(3)<16790 ^:ap=ap+1::ag=(*2):ap>34230 rag=03010  ap=0  4550 Wyy=yy+1:f=f+(gd*1.5@)+(ge*((*1.5@)+.5))+(gf*.73333):f=f sam<0sam=0 (7790n:mon=mon+400:f=f-pop yy>12316930 "yy>1299mon=mon-200 &mon<0mon=0 :-t=t+b+cc:ms=ms+d+ma:f<04450b N=pop=(((*(pop/25)+(pop/100d)))+pop):4510 bf=0:di=di+1:pop=pop-(pop/((*4)+2)):t=(t*.8L)::4,0;"Poor harvest";6,0;"Your troops & population starve":200 vt>popt=pop  6650 ma=0:z=0:ra=0:pm=0:bu=0:im=0:ex=0:tr=0:d=0:at=0:cc=0:670 :z=04750 1q=(*8)+1:7850:100d: q<84630 t=t+(rai/2):4,5;"Your raid has failed":100d:6,2;"Only half your party returns":4750  t=t+rai:q<54670> *k4,5;"Your raid has failed":100d:6,4;"You have no casualties":4750 >!z=1f=f+(rai*3.5`) R"z=2pop=pop+(rai*2) f#z=3mon=mon+(rai/2) z24,1;"Raid Successful,no casualties" #150:pm<15050 Nuc=(pir/cc+1)::4,9 ;1;"PIRATE BATTLE":150 uc>34890 uc>24910. uc>14870 ma=ma+2:cc=(cc*.75@):mer=mer+(pir*.2~L):pir=(pir/3):mon=mon+200:jj=jj+1:4950V:4970j ama=ma+1:cc=(cc*.75@):pir=(pir/2):mon=mon+502:4950V:4990~ Fma=(ma/2):cc=(cc/2):pir=(pir*.75@):4930B .>ma=(ma*.75@):cc=(cc*.66():pir=(pir*.66() B7110:2::3,7;7;1;"Defeat by Pirates!":150:0:5,7;7;"Only ";ma;" ships and ";6,7;cc;" troops return":de=de+1:200:5050 V`7110:6::3,5;0;1;"Victory over Pirates!":150: jI5,1;0;"2 ships captured, 200 Mon booty":5010 ~65,3;0;"1 ship lost,50 Mon booty" cvic=vic+1:7,7;0;cc;" troops return":200:jj25050 Y10 ,1;0;"Troops find an extra 200 Mon":mon=mon+200:150 im+ex<15190F 4mb=(*6)+1:pir<1505190F  7190 0,0;5;1;"Your fleet has been attacked";1,0;"by pirates - all cargoes lost!";2,0;5;((ms/4)+1);" of your ships captured":ms=ms-((ms/4)+1):0 rim>14,0;7;"You lose ";im;" units of food";5,0;"No Mon refunded":f=f-im  ex>17,0;7;"Food exports not delivered";8,0;7;"You must refund ";(ex*pr);" Mon":mon=mon-(ex*pr) 220:5190F 2O1,5;7;1;"Ships safely in port":150:0 F502:mer<1 Z`:4,2;0;"Cost of Mercenaries= ";mer;" Mon":150:mer>mon5250 nmon=mon-mer: ~mon=mon-mer:10 ,0;7;0;"You cannot pay your mercenaries":mr=-(mon*1.5@):mr>mer5290 @7;0;12 ,0;mr:mer=mer-mr:5310 812 ,0;7;0;"All":mer=0 \12 ,4;7;0;"of your mercenaries desert":mon=0:150:  Jo=031:19,o;" ";20,o;" ";21,o;" ":o: " 5350 6&pir<80Ppm=0:2990 J#im>1ex>12790 ^cc>02990 r:pm=1 -(ms*502)>(t/3)as=(t/3) .(ms*502)Ǻ(t/3)as=(ms*502) :r=2(as/502)+1:6,r;"":r:19,0;"How many troops will you send?";20,0;"Max=";as <6990N:700:i$:i$<0Űi$>as5570 ,cc=i$:cc=0pm=0:2250 ma=((cc/502)+.9ffff) #cc>0ma<1ma=1 &5350:r=2ma+1:8,r;5;"":r:0:19,0;"You must send ";ma;" ships":t=t-cc:ms=ms-ma:250:690 :$im=0:ex=0:2790 Nx:"YEAR",yy,"POPULATION",pop,"TROOPS",t,"MERCENARIES",mer,"SAMURAI",sam,"MERCHANT SHIPS",ms,"GOLD",mon,"FOOD",f 011 ,0;"VICTORIES",vic,"DEFEATS",de  Q:"T =";t,,"MER=";mer,,"SAM=";sam,,"MON=";mon,,"F =";f,,"VIC=";vic,,"DEF=";de R zsam<14170J 6g(1)+g(2)+g(3)<14170J X4:0::1:3,8;"COMBAT CHALLENGE":150:0: 2n=(*3)+1:g(n)<16050 7530j:502 ʪ16,0;f$(n);17,0;"& ";g(n);" Samurai challenge you";18,0;"Do you accept?(y/n)";20,0;"Your Samurai = ";sam:6990N g$=:"y"Ʀ"n"6100 ="y"6390 ="n"6170 di=di+1:5870:19,0;"The Warlord demands tribute";20,0;"50 Mon,2 Ships & 1 Samurai":mon=mon-502:ms=ms-2:sam=sam-1:200:g(n)=g(n)+1:mon<06230V .ms<06230V Bsam<06290 L 6310 VX5350:19,0;"Unable to pay tribute in full":sam<26290 `320,0;"Warlord takes 2 extra Samurai" jg(n)=g(n)+2 ~sam=sam-2:6310 D20,0;"Warlord takes 500 units of food":f=f-500 %150:mon<0mon=0 ms<0ms=0 sam<0sam=0 U2,4;sam;3,4;mon;4,4;f:150:4170J akk=(sam*(vic+1))/(de+1):kj=(g(n)*(de+1))/(vic+1):kl=kk-kj:7610  sam>g(n)*1.5@64502 kl<-86490Z 2{vic=vic+1::3,0;"YOU ARE VICTORIOUS!":sam=sam+2:g(n)=g(n)-6:g(n)<0g(n)=0 F 6550 Z8de=de+1:km=(*20):km<46570 nw:3,0;"YOU HAVE BEEN DEFEATED!":100d:sam=sam-4:g(n)=g(n)+2:sam<0sam=0 10 ,0;"You now have ";sam;" Samurai":502:12 ,2;f$(n);12 ,0;"The";13 ,0;"now has ";g(n);" Samurai":200:4170J Y:6,0;"YOU HAVE BEEN KILLED IN COMBAT!":200:6610:6630 Z8,0;"You ruled ";yy-1201;" years";,"Victories ";vic;,,"Defeats ";de: J18,0;f$(n);,"now rules your village":200:6810 'xr=(*9 )+1:xr>7 H:1:8,6;"LEADERSHIP CHALLENGE":200:0 67xs=((*7)+1)-di:xs-26770r J7270f:sam=sam-1:2,6;6;0;1;"CHALLENGE DEFEATED!":200:0:sam<0sam=0 ^ r7270f:2;1;2,0;"YOU HAVE BEEN KILLED IN COMBAT!":250::0:5,0;"Your family have been executed":6610:19,0;"Your trusted companion","now rules your village":200:6810 5,0;"CONGRATULATIONS! You have","conquered all your opponents":6610:19,0;"Your village enjoys many years","of prosperity under your rule.":150 521,0;"Another Game? (y/n)":6990N g$=:"y"Ʀ"n"6830 ="y"110n  ="n" S:5,0;"You have died of old age!":6610:150:6810 &j3,0;"CONGRATULATIONS!";5,0;"A truce has been declared":6610:6810 N.1}L,1: GRAPHICS PIRATES  5  P1:1:5:uc>2psh=(*5)+ma-1:7123 psh=(*ma)+1 Os=1psh:(*5)+16,(*6)+20;"":s:150 r=15:s=1ma:7:.01z# =,2:(*5)+16,(*9 )+15;" ":s:o=1psh:5:.01z# =,3:(*5)+16,(*9 )+15;" ":o:10 :r 80:o=125:.02{# =,(o)+5:o uc>27170 GRAPHICS PIRATES DEFEATED  GRAPHICS IMPORTS 5:2,1;5;0;"IMPORTS/EXPORTS":1:1:s=617:1:s,25;"":6:s+1,25;"":1:s-1,28;"":5:s,28;"":s=6100d 5:s:100d 'jap=8:mb3jap=16  r=1jap:18,25-r;6;"";1;" ";17,28-r;5;"";1;" ":5:r=830 !r %"mb3502:51702 *30:r=04:17,20-r;5;"";1;" ":r:r=125:.05|L,(*25)-10 :r e 5090 fGRAPHICS LEADERSHIP CHALLENGE ki7331:s=13 22:0;12 ,s;"":s:s=1827:17,s;"":s p^r=1:s=13 16:0;s,13 +r;"";s,22+r;"":r=r+1:s uw14,21;0;"":r=1:s=11 19:0;s,8+r;"":r=r+1:s:100d zfr=15:15,12 +r;4;7;" ":r:15,16;"":100d 7s=125:0;(*4)+13 ,(*4)+18;"":.01z# =,-5:7;(*4)+13 ,(*4)+18;"":.01z# =,-3:5:13 ,15;" ";14,16;" ";15,17;" ";16,18;" ":s .xs>-215,19;0;"" .xs-215,19;7;"" ".8L,0:.8L,2:.4L,3:.4L,2:.8L,0:.8L,0:.8L,2:.4L,3:.4L,2:.8L,0:.8L,3:.8L,5:1.6L,7:.8L,3:.8L,5:1.6L,7 xs>-2  7331:7340 :4::s=031:7:5:0,s;"";1,s;"";2,s;"";3,s;"";4,s;"";5,s;"":s co=031:0:5:5,o;"":4:6,o;"";7,o;"":o: k20,10 ;"":o=04:s=1417:r=9 -o22+o:s,r;"":r:o:s ink=(*3)+1 U100d:r=12 19:ink:1:7,r;"":r:150:0 So=13:s=810 :r=12 -o19+o:s,r;"":r:o:s  502 2,12 ;7;0;"Archery":4:o=1̺(*5)+(e(n)/502):.05|L,7:.05|L,10 :(*4)+13 ,(*20)+6;"":5:o _0:r=10 22:7,r;"":r:r=625:ink:11 ,r;"":r: 4:o=1̺(*5)+(m/502)+(up+5):.05|L,8:.05|L,7:(*4)+9 ,(*18)+6;"":5:o:20:2,12 ;5;5;" " 7r=229:8,r;"";17,r;"":r ink:8,20;"":r=625:1:0:13 ,r;"":.01z# =,-3:ink:12 ,r;"":.01z# =,-5:r:0:0:o=130:.01z# =,-3:.01z# =,-5:o  100d  j#pg=g(n):pg>19pg=19 oW5,17;"":s=2pg+1:s,s+9 ;" ":.01z# =,-3:s t SAMURAI COMBAT GRAPHICS [:4::0,10 ;f$(n);0,8;"The";20,0;"Yourself": 'psam=sam:sam>19psam=19 v=03 >6,4;"":r=2psam+1:r,r+v;" ":r #pg=g(n):pg>19pg=19 Y5,17;"":s=2pg+1:s,s+9 -v;" ":.01z# =,-3:s /v:o=125:.05|L,-10 :o kl<-87659 o=g(n):o>8o=8 v=313  :r=2o+2:r,r+v;" ":r:r=22+o:r,r+v+1;" ":.01z# =,+10 +v:r:v:150  o=sam:o>10 o=10 v=39  :r=2o+2:r,r+8-v;" ":r:r=2o+2::r,r+8-v;" ":.01z# =,+10 -v:r:v:150  nHarvest Graphics o0::0,12 ;1;6;"HARVEST":0:19,9 ;7;"=Population";20,9 ;6;"=Food Supply":20:s=312 3:r=1pop/800  q#s,r;7;"":r:s:20 s5s=413 3:r=1f/800  t8s,r;6;"":r:s:120x:7::0  RAID :4::s=021:1;s,29;"";s,30;"";s,31;"":s:1;5;7,30;"";8,29;"" o=160<:(*13 )+(*6),(*10 )+(*4);0;"":o:o=1̺(*5)+7:6;(*8)+5,(*4)+25;"":o &paj=7:q<5paj=15 0;7,11 ;"";9 ,11 ;"";11 ,11 ;"":502:s=711 2:r=1paj:.005y# =,10 :s,11 +r;" ":r:s:10 q>47875  o=27 ds=711 2:r=1paj+6:.005y# =,5:s,o-r;" ":s,8;"" r:s:502: rs=711 2:7;s,23;"";s+1,24;"":s:30:q=87890 o=20:7870 30:r=19 :s=712 :7;s,24-r;" ":.01z# =,0:5:s:5:r:s=711 2:r=15:s,12 -r;0;" ":.005y# =,-3:s,8;"":r:s  502  % %g"WL"0:"code a"23296[,64@:"code b"54000,2000:"code c""A",168 ' 'O((23627K\+256*23628L\)-(23635S\+256*23636T\)) asazbiLotqead ofZin an army from Sakai an army from Hyogo an army from Hakata an army from Hirado an army from Iyo Da Warlord from Sakai a Warlord from Hyogo a Warlord from HakataLOtOSelect Level of playcode a @[_B*I\^#V+Z#@7#B8~ ?G#8~H+code b _f>4? *4 *4? * 4p?* * ??*??*"~?"8~"?|?~$?~ ?~~v@??v@?!v@?qv@v@v@@ @a Ua```a``a`=a`a```a`aIa@)code c X_$Y"D$X8(D"4H,ȿ!!! >88|:-{>$$$$Y"A$X8(DBfZBBB