ZXTape! SW 9 "SW""A" 6:0::7;"SAMURAI WARRIOR";5,0;" 1982 M.C.Lothlorien.";10 ,0;"Please consult the notes & enterlevel of play (1-7)":n=120:.2~L,*30:n:t:t=t:t<1t>75 a$(6,10 ):"Akechi","Hideyoshi","Kyomori","Nakata","Sato","YOURSELF":n=16:a$(n):n:h(5):i(6):b(6):c(6) p=1:k=0:n=15:h(n)=(*19)+1:k=(k+(h(n)/5)):i(n)=(*13 )+1:b(n)=(*40()+1:c(n)=(*23)+1:n (i(6)=(*12 )+4:b(6)=(*36$)+6:c(6)=(*16)+5:d=1300+(t*100d):849Q a$(a)="x":i(a)=0:h(a)=0:b(a)=0:c(a)=0:p=0:n=15:p=p+h(n):n:p=0f=f+800 :9700%  t4k=k-2 e=1:f=0 4:0::"PERIOD ";e;5,0;"1.CHALLENGE A SAMURAI";,"2.HUNT BANDITS";,,"3.HELP A VILLAGE";,"4.LOOK FOR FOOD";,,"5.COMMIT SEPPUKU";,"6.STATUS REPORT";16,0;"TARGET= ";d;17,0;"SCORE = ";f *x:a=x:x<1x>61005 %:x=61998:1000 L!v=(*9 ):v>t1110V Mv=08400 Nv=18451! O 4900$ bB"OK":75K:n=15:x=n3500 +(500*x) cn  :"NAME","ST RE PH HU":n=16:n+2,0;n;".";a$(n);8,16;k;n+2,20;i(n);n+2,24;b(n);n+2,28;c(n);15,9 ;"Press a key":n:n=15:n+2,16;h(n):n:0: +1998:18,11 ;"? (1-5)" *a:a=a:a<1a>54010 h(a)=04010 T:n=1(*9 )+9 :.1}L,n:2:10 ,n;"":0:10 ,n+1;"":15:2:10 ,n;"":0:10 ,n+1;"":15::n:502:8600!:7;"You kill ";a$(a):99c:f=f+i(a):b(6)=b(6)-2::750:9135#:8900":9084|# :s=(*k)+(2*t):6;s;" BANDITS SIGHTED!":75K:n=1s:2:.1}L,n:15,10 ;"":1:(*19)+1,*20+9 ;"":n:99c:s>k4600 ?y=(*s)+1:11 ;y;" killed":99c:46604 Fy=(*(s/2))+1:(*3)+1>14650* 20;"YOU ARE KILLED!":99c:9700% *^:1;"You are wounded but have killed";y;" bandits":200:9120#:7500L 4*9130#:4:0:9080x# $|:n=1(*7)+1:.1}L,n:*8,*8;"";9 ,9 ;"A village asks for help (y/n)?":n Vz$:z$"y"z$"n"4950V X:z$="n"5050 lb(6)=b(6)+1:c(6)=c(6)+2:8901":(*2)=08400  8451! i(6)=i(6)-1:k=k-1:b(6)=b(6)-1:c(6)=c(6)-2:1998::9080x# |G99c:(*7)5"Search fails.":99c:5050 ="Hunt successfull":99c:c(6)=c(6)+7 ;b(6)=b(6)+4::1998::9080x# p2:2::9 ,15;"":1,0:1,2:.5,3:.5,2:1,0:75K:w=(*2):w=09093# b0;"Attempt failed. You are wounded.":150:7500L:4:0:9080x# Lb(6)=b(6)-4 M 2a=(*5)+1:h(a)=08402 C4:0::5,0;a$(a);"challenges you(a/r)?" z$:z$"a"z$"r"8410 ):z$="a"i(6)=i(6)+1 z$="a"4030 Fi(6)=i(6)-2:k=k-1:1998::9060d# !8:6;"BANDITS ATTACK YOU!":99c:4500 !R75K:(k+i(6)+c(6)+b(6))-(h(a)+i(a)+b(a)+c(a))7+t !57;"YOU DIE IN COMBAT!":99c:9700% " k=k+2 "#i(6)=i(6)+1:: #|'l=(*6):l<39200# #l=34900$ #l=48400 # 8451! #x:6;"SEPPUKU SUCCESSFUL";5;"You died with honour":99c:4:0:f=f+750:9700% #f=f+(y*12 ): #f=f+150: #I9220$:e=e+1:502:p=0f=f+800 :9700% # 999 $@c(6)=c(6)-3:c(6)-49670% $ k09684% $ !b(6)-29680% $ %-:"You have starved!":99c:9700% %&"YOU HAVE DIED OF WOUNDS":150 %D:9 ;"Game over";4,0;"TARGET= ";d,,"SCORE = ";f %4d>f10 ,9 ;"YOU HAVE LOST":9730& %8;"CONGRATULATIONS!" &=14,0;"Another game?(y/n)":z$:z$="y"5 & Պ2,4;"NAME";2,14;"ST";2,17;"RE";2,20;"SU";2,23;"PH";2,26;"HU";2,29;"SE":n=19 :n+3,0;n;".";a$(n);12 ,14;k:n:18,0;"";19,0;"TARGET-";r(5);,,"POINTS-";r(1);18,18;"Press a key";19,15;"" ֢12 ,17;i(9 );12 ,20;l(9 );12 ,23;b(9 );12 ,26;c(9 );12 ,29;d(9 ):0:  2n=19 :n+3,17;i(n):n: 4:2175 LK:8;"BANDITS SIGHTED!";9 ,4;"Select your target (1-6)" R*a:a=a:a<1a>62130R W0:n=a:s(n)=y(18)9 ;"NO BANDITS" eg9800H&:s(1)+s(2)+s(3)+s(4)+s(5)+s(6)=y(18)9600% hs(n)=y(18)2124L yC:18,12 ;"ATTACKING!":9800H&:s(n)=k2278 Fy(16)=k-s(n):y(16)4y(15)=(s(n)/2) Fy(16)>4y(15)=(((s(n)/4)*3)+1) R8;y(15);" Bandits killed!":9800H&:s(n)=s(4)2274 :770:s(4)=s(4)+y(19):2340$ /s(4)=s(4)-y(15):2340$ 5y(14)=s(n)-k:y(14)52298 5y(14)>5y(14)9 2310 Yy(14)>10 15,9 ;"YOU HAVE BEEN KILLED!":9800H&:9680% 4;"You are DEFEATED!";,,"3 Wounds";,,;(s(n)/3);"Bandits killed";17,12 ;"Press a key":s(n)=((s(n)/3)*2):0:9125#:7504P:2319 :4;"You are DEFEATED!";,,"5 Wounds";,,;(s(n)/4);" Bandits killed";17,12 ;"Press a key":s(n)=((s(n)/4)*3):0:9120#:7500L::1998::9080x# $9130#:9080x# p:6800:6806 I:1998:2019:17,3;"Select your opponent(1-8)" V*a:a=a:a<1a>86230V [(n=a::a$(n):h(n)=06111 c'"COMBAT ACCEPTED":99c:GRAPHICS ic8600!:y(12 )144,6;"You have killied";a$(n):99c:6396 sy(12 )4y(12 )<144,3;"Contest indecisive,you have 6 wounds":150:b(9 )=b(9 )-6:i(n)=i(n)+5:k=k-1:9152#:1998:2019::9084|#  6316 9y(6)=(*7):y(6)49200# y(7)=(*8)  y(7)485004!  y(7)>48451!  6420 3:750::9135#:6900:9084|# #:i(9 )=i(9 )+1: Ll(9 )=l(9 )+1:d(9 )=d(9 )+2:9152#:  6950& ':k=k+1:k>20k=20 ;i(9 )=i(9 )+1:6805:1998:: X"Please wait":99c: 'O((23627K\+256*23628L\)-(23635S\+256*23636T\)) SW X<$$==$$00>BB<DHpHDB@@@@@~BfZBBBBbRJFB