ZXTape! 0Created with Ramsoft MakeTZXJERICO 2 @'@"B'<1:1:1::"":13 ,0;"":"" ES#3 @eE (e ACPt" 04A@0 OH  `E @e !B_" @8T4A@   '@@``@ aD@e @e !Pt"@@L4@Ӌ @ 00 @0?D`e  %  A0w"@@L4@I   ?`0?? D`  % (tB@,4@@k" p ? @p?0`pGЂe '@H(tB @F*4  7$ ?@8`?`E Pe ?`4B @`&N&< $ p0A fE (e `$@p4B !@#F: [H 8  <@0?1<w`?BxB>~?8DB@BHBB@H?,BB|@pBB~<~@~|BB<@@@@BBBb@B@BBB@@BBDbB@88D888x8Dxxx<|@|B~BR@x<(xB<~<<< <@< 8DD8D@888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888TJERICO B@[B&FLAG=0:N3=0:ud=0 !0:0:6: P l(4) Z\l(1)=1430:l(2)=1460:l(3)=1470:l(4)=1500 d\n(7):d(5):n$(7,16):m(9 ):b(5):x$(7,19) n:r=*1 xrdn=(100d+*100d):rd=(1500+*500):ds=1:an=300,:ws=500:ts=1000 #n(7)=(4.5+*2) nn(1)=(1.5@+*1):n(2)=(4.5+*2):n(6)=(500.5z@+*1000) gs=400:ut=15 >.5ut=20 &a$="Do you wish to ":b$="It takes " i=17:n$(i):i ;"BALLISTA","CART","LADDER","BATTERING RAM","SIEGE TOWER " m"RATION","AMMUNITION UNITS",502,30,10 ,60<,100d,20,1,40(,3 Ң60<,40(,15,80P,120x,30,1,502,3,70F,502,20,100d,140,40(,2,60<,4 i=19 :m(i):i $i=35:n(i)=0:i x$(1)="VIRTUALLY DESTROYED ":x$(2)="SEVERLY DAMAGED ":x$(3)="EXTENSIVELY DAMAGED ":x$(4)="MODERATELY DAMAGED ":x$(5)="SLIGHTLY DAMAGED ":x$(6)="HARDLY DAMAGED ":x$(7)="UNDAMAGED" un=an:uc=n(2):na=0:ad=0:dd=0:d1=0:d2=0:ta=0:td=0:r1=0:a1=0:hw=0:tc=0 "Ex=1:a=0:y=0:sa=0:sd=0:r2=0 'FLAG=0 ,(:" Day ";ds;" of the siege of JERICO" 182:0,165:254,0:6 6n2,1;"YOU HAVE";20;"UNASSIGNED";4,5;an;10 ;"MEN":4,25;un ;84:0,148:254,0:6 @2i=17:5;n(i);10 ;n$(i) Ji T"6,25;uc:1790 YFLAG=1 ^I15,0;b$;" 10 men to man each ";n$(1):1810 hn=0440 r#n<10 1820:350^ |Pi=177:(n/10 )>n(i)p$=n$(i):1830&:350^ i n>un18400:350^ Qi=110 *(n/10 ):>.8Lhw=hw+1:ws=ws-(*6) ws<40(ws=40( Ii:dn=dn-(hw**.3):un=un-n:n(7)=n(7)-(n/10 )  1790 15,0;b$;m(6);" men & ";m(7);" ";n$(2,12 );"to gather each ";n$(7):1810:n=0510 %nun18400:450 Ba1=(n/m(6)):c=a1*m(7):c>uc1860D:450 Qun=un-n:uc=uc-c:a1=a1+(.5+*2)-1:n(7)=n(7)+a1  1790 p15,0;b$;m(8);" men & ";m(9 );" ";n$(2,7);"to gather 300 ";n$(6), "1810:n=0580D %nun18400:520 0Br1=(n/m(8)):c=r1*m(9 ):c>uc1860D:520 :<un=un-n:uc=uc-c:r1=(r1*300,*(/2+.75@)) D 1790 N!i=15:B(I)=0 X\15,0;b$;m(i);"man-days to build a":n$(i),,:1810:n=0640 bn>un18400:600X l/D(i)=D(i)+(N*((/2)+1)):un=un-n v9D(i)m(i)B(i)=B(i)+1:D(i)=D(i)-m(i):630v 1790:i G15,0;b$;"30 men to dig a tunnel to undermine the tower." D"DO YOU WISH TO DIG TODAY (Y/N)?";R$:r$="N"x=0:740 R$="Y"670  660 $un<3018400:660 *ud=ud+1:ud<.6*ut730 >ut=30ƥ<.1}Lx=2:tc=(.5+*10 ) =ut=15ƥ<.2~Lx=2:tc=(.5+*7) ;x=1ƥ<.1}Lx=3:tc=(.5+*5) Han=an-tc:(ud=ut)x=1x=4:ts=ts-(500+*500) un=un-30  1790 Z15,0;"DO YOU WISH TO ATTACK THE GATE (Y/N)? ":1870N r$="N"810* )1810:n>un18400:750  n=0810* 0n3=(n/30):n(4))1810:n>un18400:810* Hn=0870f Ra=1:ta=n+100d*n(5)+10 *n(3):td=dn+ws:na=n:n(5)=(.5+n(5)/2):n(3)=0 \ 920 fJ1790:15,0;a$;"ATTACK THE TOWER (Y/N)?",,:1870N pr$="N"950 z)1810:n>un18400:870f n=0950 a=1:ta=n+100d*n(5)+10 *n(3):td=dn+ts:na=n:n(5)=(.5+n(5)/2):n(3)=0 'ta/td>(.5+*3)y=1 =ad=(*an*dn/td*.1}L):dn=dn-dd:dn<0dn=0 ad>naad=na Ogs=gs-(20*n3*+10 ):an=an-ad:un=un-na:n(6)n(6)r2=n(6) VXsa=(.2~L**un):sd=(.1}L**dn):an=an-sa:dn=dn-ad:n(6)=n(6)-r2 [EH=221:H,0,,:H:2,10 ;"REPORT" `"Because so few were left in camp some of JERICO'S defenders sailled forth in a supprise attack. They killed ";sa;" of your","men and stole ";r2;" rations,","but they lost ",,""  z$=" men " #sd;z$;" in the attack.":rd=rd+r2 un