T!X'=?\D:\a612435yto surrender.";10 ,10 ;"You win !":1990 k:0,0;"There are no defenders left.";10 ,10 ;" You win !":1990 :0,0;"There is one defender left,","and he has decided to surrender.";10 ,10 ;"You win !":1990 J21,0;"Try again.":200:17,0 ,: 04,25;UN;" ";6,25;UC  ~20,0,,:"How many men do you assign to this ";K$:Q=1̱K$:K$(Q)58:ůK$(Q)47/1810  Q:N=K$: G20,0;"not enough men assigned":1780:1790: &I20,0;"You don't have enough ";p$:1780:1790: 0M20,0;"You don't have that many men ":1780:1790: :<20,0;"Insufficient":1780:1790: DL20,0;"You do not have enough CARTS":1780:1790: Nr$:r$=""1870N Xr$="Y"r$="N" b/20,0;"Answer Y or N":1870N l/21,0;"Press any key to continue" v=""1910v {21,0,,  j=19 :m(j):j: "You have lost over half your force and the rest have mutinied You have been fed to the camp dogs !";10 ,10 ;" You loose !",,,"After ";ds;" Days of siege.","There are ";an;" Attackers","and ";dn;" defenders left alive"  1900l Ƈ:10 ,2;"Do you wish to lay Siege to";12 ,12 ;"JERICO";14,12 ;"Again";16,12 ;"(Y/N) ?"  1870N:r$="Y"2000 1,1: 0:0:6: Ү23658j\,8::10 ,5;"Do you wish to see the";12 ,8;"Instructions of";14,12 ;"JERICO";16,12 ;"(Y/N) ?":1870N:  r$="N"  instructions X!0,9 ;"INSTRUCTIONS" Yf5,1;"You are JOSHUA, leader of the ISRAELITES",,,,"Well, Three hundred to be exact.",, ZT" You and your men are positionedquiet advantageously around the walls of JERICO." [`,," Because you outnumber the inhabitants of JERICO, they havefled into the walled city." \W,," You must lay siege to JERICO,","and conquer it, by force or otherwise.", ]e" During each day of the siege you must decide how to deploy your men amongst various tasks",,, ^" You will need to send men Foraging for FOOD and also ROCKSwhich are used for AMMUNITION inthe BALLISTA'S with which you" _"BOMBARD the walls."," You will need both MEN and CARTS for this Foraging."," You will be told how many of each for an approximate rate of collection" `D" But these will increase as materials become harder to find." af=024::f b7" Although you have brought a fewitems with you.",,,, c*" BUT NOT THE TRUMPET ! ",, d?" You will also need to build others.",," These include:-" e,,"BALLISTA'S with which to bombard the walls.",,,,"CARTS for carrying food and ammunition.",,,,"LADDERS & SIEGE TOWERS,","for use in an assault on either the walls or the tower.",,,"BATTERING RAMS,",,"for attaking the main gate.",,, f" The approximate number of"," MAN-DAYS needed to build each item will be shown,","but your army of ISRAELITES may work faster or slower than this." gT,," MAN-DAYS are CUMULATIVE and you can take several days to build an item.",, h" JERICO is according to eye wittnesses surrounded by a large ditch, the only places open to attack are the MAIN GATE a TOWERand the WALL between them." iF=18::F jY14,0;"TO WIN BY FORCE YOU WILL HAVE TO ATTACK AT LEAST ONE OF THESE", kp" Since they are ALL strong defencive possitions, you will have to soften them up a little first.", l:::" To weaken the MAIN GATE.",,," This can be done using BATTERING RAMS. These will AUTOMATICALLY be used in such an attack.":"Provided ":"There are at least 30 MEN per BATTERING RAM assigned to the attack." mf=115::f: n" To weaken the TOWER.",,," This is immensely STRONG and will not fall easily to direct assault. However, it can be weakened by undermining.":" You do this by digging a TUNNEL " o`"which can take 15-20 Days.","If the TUNNEL collapses or is DISCOVERED, it will be delayed." p21,0;"":: qQ" To weaken the WALLS.",,,:" Again these are too strong for a direct assault." r" They can be weakened by BALLISTA BOMBARDMENT.","Each day you may assign 10 men/ BALLISTA to hurl rocks at the walls of JERICO." s\,,"Provided,",," You have enough AMMUNITION collected to keep the BALLIATAS supplied." tf=110 ::f: u"Once YOU and your ISRAELITES are ready to attack either the":" WALLS or the TOWER"::" Any SIEGE TOWERS or LADDERS youhave built will be added to the attack, but you will LOSE all the LADDERS"; vI" and HALF the SIEGE TOWERS in the attack.":f=015::f: w" Having assigned YOUR men to the various tasks,",,," Any men left over will GUARD your CAMP and SUPPLIES."::" If you leave too few men in camp and you do not keep the deffenders occupied with an attack," x:"THEN....",," 'THEY' may Sally forth and attack YOUR camp.","KILLING some of your men and STEALING your RATIONS.":f=010 ::f: y" If on the other hand....",,," You leave too many men in camp, they will become BORED,",,,"and DESERT.":f=020::f: z"You will have to decide:-",,," whether to issue",,"FULL",,"HALF",,"or",,"NO";" RATIONS",,,"If you do not issue FULL rationssome men will DESERT.","The will also DESERT if you let your stock pile run too LOW," {;"since this can start rumors.":f=015::f: |" Should your ISRAELITES be reduced",,"Either by DESERTION or DEATH,to less than 150 men, then there will be a general MUTINY and you will LOSE the",,,," SIEGE of JERICO." }f=015::f::"You will not have an accurate",,,"Idea of how many DEFENDERS are left in JERICO, but OCCASIONALLYa deserter from JERICO may give you a very approximate REPORT." ~f=020::f::" Once the DEFENDERS run out of rations, they will start to die of STARVATION. They can also be filled off in COMBAT and the occasional BOMBARDMENT." ,,"If LESS than 10 DEFENDERS are left at the end of the DAY, they will SURRENDER themselves to you",," JOSHUA,leader of the Victorious ISRAELITES":f=020::f: n"You can lift the siege",,,"at the END of any day,",,,"Giving an HONOURABLE DRAW":f=020::F: 10 ;"REMEMBER",,," The various figures that are given for:-",,,," WORK-RATES",," COLLECTION of RATIONS"," COLLECTION of AMMUNITION",,,"Are subject to the fortunes of WAR and can vary.":f=015::f: 10 ,3;"ARE YOU READY TO TAKE ON";12 ,3;"THE RESPONSIBILITIES OF";14,4;"JOSHUA, AS LEADER OF";16,7;"THE ISRAELITES ?" W18,0;"N for the INSTRUCTIONS","Y for 'YES' " "1870N:R$="N":7000X  1 la&uBALLISTA CART LADDER BATTERING RAM SIEGE TOWER RATION AMMUNITION UNITS0 2 <d(؊VIRTUALLY DESTROYEDSEVERLY DAMAGED EXTENSIVELY DAMAGEDMODERATELY DAMAGED SLIGHTLY DAMAGED HARDLY DAMAGED UNDAMAGED rwl,ADo you wish to B It takes @,xayK 0"" "" @@JERICO B@ _V P P mM\!\TX';GU!:!Q߃ v>>BB<DHpHDB@~BfZBBBBbRJFB 5~|><Dx 8 88Dx85<~B><.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