EXTENDED CPC DSK File Disk-Info CPDRead v3.24*Track-Info  N Track-Info  N PRINT BOGGIT UDGS WARS  WARS BAK MAP WARS  !"#$%&'WARS  ()DISK *PIC +UDGS BAKMAP BAKLOADER DISK WARS GHIJKLMNOPQWARS  RSMAP TPRINT UBOGGIT VUDGS WPLUS3DOSr`>k >*K\ >~2͚:#{{z{>>>>>ɐ*K\~Z8͸+#~2##"ʵ͒͵*[":G:2*~ B#":=2h:!ډ:2>*~ҥ{2#~ ¯ß++Ù>[K< > Dz||rp|pr|~pr~|rp|pp>>|~`lrp|pr|8vv|~r8>8||||~~|P'@PLUS3DOS0lllDH$JD0Hh0XL40```00 0T8|8T|<<00 0`8LTTd8088D |888 >|@xx<@xDD8|< 8D8DD88DD<x 0`0 ||0  0" ~~|vv|vv||trrrtrp|prrp|pp||ff~ff>>xv|x|vppppr||vv|pp|zvv|~r|||8888|z|8lFx88|~888888888p8888888||~~||88888zD8l|8|~8p @ 1IF|@xx<@xDD8|< 8D8DD88DD<x 0`0 ||0  0" ~~|vv|vv||trrrtrp|prrp|pp||ff~ff>>xv|x|vppppr||Track-Info  N m,1) g>fk=u(m,3):a(fk,1)u(m,3)=r(11 ): nux=u(m,4):uy=u(m,5):vx=ux+(uxa(fk,4)):u(m,4)=vx:vy=uy+(uya(fk,5)):u(m,5)=vy st(uy,ux)=t(uy,ux)-u(m,1):t(vy,vx)=t(vy,vx)+u(m,1):armieschr=x$(uy,ux):0;vy-1,vx-1;154;uy-1,ux-1;٨i(chr);x$(uy,ux)t(uy,ux) x%vxa(fk,4)vya(fk,5) zarmiesz$=n$(fk)+" is under attack PLUS3DOS1?>@>%n$(x)=f$(x,3̯f$(x,1)):s$(x)=f$(x,f$(x,1)+1̯f$(x,2)):f$(x)=n$(x)+" of "+s$(x) [d$(x)=p$(x,3̯p$(x,2)):b$(x )=p$(x,p$(x,1)̯p$(x,2)) p()=((32 -z$)/2) n(x)=5-(a(x,2)/502):s(x)=10 -(a(x,3)/502):v$(x)=v$(n(x),2̯v$(n(x),1)):q$(x)=v$(s(x),2̯v$(s(x),1)):r(xA)=1+(*x) c(y,x)=(((x>8x<20)+(2x<9 )+(3x>19x<28)+(4x>27))y>16)+(((5x>21)+(12 x<8)+(x>7x<22))(y<17y>11 ))+(((6x>24)+(7x>7x<25)+(11 x<8))(y<12 y>5))+(((11 x<8)+(10 x>7x<16)+(8x>15x<25)+(9 x>24))y<6) i(x)=(x=144)+(2x=148)+(3x=149)+(4(x=145x=147x=150x=151))+(5x=146) ]#;ڰ"7";;,ç;;ڰ"6";" ANY KEY TO CONTINUE ": װ".02","39":װ".02","40": (code=x$(y,x):code="32"code="153" :,ç;:"40" z$=code:i=̰"5":z$=z$+z$:i:٨i(code):ڰ"6":ç,ç;z$;"2",ç;z$:,ç;z$(̰"2");,"30";z$(̰"2");"4",ç;:ç:ڰ"7"   battle "75":i$=:i$"""10" "100" i$="""20"  z$=z$+".":prt="60200": ( p();z$: - battle .armies=ç:m="60000":z$=f$(char):#ç;ڰ"6";ç,ç,,ç,ç;p();z$'"Move(5-8) Armies(1) Options(0)":ڰ"7":ٰ"8":a(char,"5")-,a(char,"4")-;;;" ": 2 battle 3harmies=:ç:i=̰"70":u(i,"5")-,u(i,"4")-;°"154"u(i,):i 4a:i=̰"11":a(i,"5")-,a(i,"4")-;°"154"a(i,):i:ç 5"9" dMa(n,"2")=a(n,"2")+("20"a(n,"2")<"230"):n=n+(n<"12")-("11"n="12") fm=r("65"):u(m,) g2fk=u(m,):a(fk,)u(m,)=r("11"): nux=u(m,"4"):uy=u(m,"5"):vx=ux+(uxa(fk,"4")):u(m,"4")=vx:vy=uy+(uya(fk,"5")):u(m,"5")=vy st(uy,ux)=t(uy,ux)-u(m,):t(vy,vx)=t(vy,vx)+u(m,):armieschr=x$(uy,ux):ç;vy-,vx-;°"154";uy-,ux-;٨i(chr);x$(uy,ux)t(uy,ux) xvxa(fk,"4")vya(fk,"5") zarmiesz$=n$(fk)+" is under attack !!":#;;,ç,,,ç;p();z$:;vy-,vx-;;ٰ"8";;" ";°"8";:"300":ç;;ٰ"8";ç;" ":"9" }&ind=:"2005"-("5"fk=char) a(char,)  battle "20"  i$="0" %i$="1""50":"20":"45":"400" i$<"5"i$>"8""400" <a(char,"5")-,a(char,"4")-;ç;ް"1";" " Fnx=a(char,"4")+(i$="8")-(i$="5"):ny=a(char,"5")+(i$="6")-(i$="7") Ax$(ny,nx)=°"146"x$(a(char,"5"),a(char,"4"))°"152""480" fx$(ny,nx)=°"152"full=ç:i=̰"11":full=full+(a(i,"4")=nxa(i,"5")=ny):i:full"480" )x$(ny,nx)=°"144"Ũn(char)="5""480" ѧx$(ny,nx)=°"146"x$(ny,nx)=°"152":x$(a(char,"5"),a(char,"4"))=°"146":ny-1,nx-;ç;°"152";a(char,"5")-ç,a(char,"4")-;ٰ"5";°"146" a(char,"2")=a(char,"2")-"5"-("5"x$(a(char,"5"),a(char,"4"))=°"145")-(((x$(a(char,"5"),a(char,"4"))=°"147")(x$(a(char,"5"),a(char,"4")))=°"151")):a(char,"2")<ça(char,"2")=ç "a(char,"4")=nx:a(char,"5")=ny Na(char,"5")-,a(char,"4")-;;;" ":"400" @x=a(char,"4"):y=a(char,"5"):z$=f$(char):battle=ç:"15" da(char,)z$=f$(char)+" was slain in the Battle of "+s$(c(y,x)):"30":"9":"500Track-Info  N ": Oz$=n$(char)+" stands "+d$(code-143)+" in the domain of "+s$(c(y,x)) a(char,)z$=z$+". "+("He"charɰ"8")+("She"char="8")+" commands "+a(char,"1")+" warriors, who are "+q$(char)+". At this time they are "+v$(char) "30" !y="13"x="2"t(y,x)"6000" ft(y,x)z$=n$(char)+" is confronted by "+t(y,x)+" 'Riders of the Dark', eager to do battle":"30" ':z$="OPTIONS":"40"::"2";"1: Change character"'"2";"2: View map or Move Army "'"2";"3: Search the "+b$(code-"143") t(y,x)"2";"4: Attack!" Rcode="149"recr=c(y,x):a(recr,"6")recrɰ"12""2";"5: Greet "+f$(recr) !Pm$(y,x)>°"100"a(char,)<"2500""2";"6: Recruit ";m$(y,x);" men" "(a(char,"9")"2";"7: Eat and Rest." $K#;;ڰ"6";,ç;" Any other key to update play " &"20" 0 i$="1" 1i$="2""45":"400":"500" 2i$="3""1000":"500" 3 i$="4"t(y,x)ind=ç:"2000" 4/recri$="5"char=recr:a(recr,"6")= 5ri$="6"a(char,)<"2500"m$(y,x)>°"100"a(char,)=a(char,)+m$(y,x):m$(y,x)= :i$="7"a(char,"9")a(char,"2")=a(char,"2")+"50":a(char,"9")=a(char,"9")-:a(char,"2")>"249"a(char,"2")="249" W"500" z$=f$(char):"15" 7z$=n$(char)+" searches the "+b$(code-"143"):"30" rpres=ç:p("12"):i=̰"11":a(i,)a(i,"4")=xa(i,"5")=yicharpres=pres+:p(pres)=i i:pres"1100" 7end=("5"pres>"5")+(prespresǰ"5"):start= z$=("He"charɰ"8")+("She"char="8")+(" also"start="6")+" finds ":i=startend:z$=z$+f$(p(i))+" with "+a(p(i),)+" men"+(", "iend)+("and "end>i=end-):i:"30" 0pres>"5"start=end=pres:start="6" l"9":"500":"10":z$=f$(char):"15":z$=n$(char)+" continues to search the "+b$(code-"143"):"30" L*x$(y,x)°"148"x$(y,x)°"149""1200" Q)a(c(y,x),)m$(y,x)= V4a(c(y,x),"6")a(char,)<"2500"m$(y,x)m$(y,x)<°"100"m$(y,x)=("100"+r("155")):z$="Presently, "+m$(y,x)+" freemen of "+s$(c(y,x))+" arrive wishing to join the army. As a sign of good faith they offer food and water to the warriors.":"30":a(char,"9")=a(char,"9")+ afdtot<"75000"z$="A herd of wild deer is spotted and warriors are sent to catch them.":"30":fd=:a(char,"9")=a(char,"9")+:"9":ç:"10": bfltot<"70000"z$="A cache of hidden gold is discovered and distributed amongst the warriors.":"30":fl=:"9":ç:"10": cfgtot<"65000"z$="Off to the East can be seen a rabbit warren .... soon the warriors return with some freshly killed rabbits":"30":fg=ç:a(char,"9")=a(char,"9")+:"9":ç:"10": dfmtot<"60000"z$="Nothing of any importance is found, only the corpse of some dead animal.":"30":fm=:"9":ç:"10": efhtot<"55000"z$="During the search a pack of rats was disturbed and they ran off with some of the army's supplies":"30":fh=:a(char,"9")=a(char,"9")-:a(char,"9")<ça(char,"9")=ç:"9":ç:"10": ffrtot<"50000"z$="The remains of an Elfin scouting party is found and they are soon buried in shallow graves.":"30":fr=:"9":ç:"10": gfptot<"45000"z$="The search reveals a flock of wild birds roosting nearby. Before they can fly off they are quickly slaughtered.":"30":fp=:a(char,"9")=a(char,"9")+"2":"9":ç:"10": hfstot<"40000"z$="A hunting party of Orcs is discovered and soon put to flight.":"30":fs=:"9":ç:"10": ifatot<"35000"z$="A wolf pack is encountered and during the ensuing battle the wolves make off with some of the food.":"30":fa=:a(char,"9")=a(char,"9")-:a(char,"9")<ça(char,"9")=ç:"9":ç:"10": jfttot<"30000"z$="The remains of a small campfire still smoulder nearby but there is no sign of those who had lit it.":"30":ft=:"9":ç:"10": kfvtot<"27000"z$="A scouting party returns bearing the carcasses of some wild cattle that they have recently killed.":"30":fv=:a(char,"9")=a(char,"9")+:"9":ç:"10": lfqtot<"25000"z$="Some wild boar are spotted but they run off before they can be caught.":"30":fq=:"9":ç:"10": mfutot<"20000"z$="Much to the delight of all, a hidden hoard of supplies belonging to the 'RiderTrack-Info  N s of the Dark' is discovered nearby.":"30":fu=:a(char,"9")=a(char,"9")+:"9":ç:"10": ?tutot<"15000"z$="An aged manuscript is discovered which tells of a secret passage through the mountains to the Keep of the Dark. Immediately couriers are sent to all existing armies ordering them to search the Dark Mountains for this passage.":"30":tu=:xtu="7":ytu="10"+r("6"):"9":ç:"10": $in=x<"5"y>"11"y<"15" tu((inx=xtuy=ytu)(inx="4"y="13"))a(char,"4")=("4"in)+(xtuin):a(char,"5")=("13"in)+(ytuin):z$=n$(char)+" discovers the secret passage and after many hours in the darkness, "+("he"charɰ"8")+("she"char="8")+" emerges into daylight":"30":in=in r"100":z$=("His"charɰ"8")+("Her"char="8")+" task complete, the search is brought to a halt":"30":"2090" :armies=ç:battle=:fk=char:vx=a(fk,"4"):vy=a(fk,"5"):z$="The Battle of "+s$(c(vy,vx)):"15":z$="The sounds of battle ring through the domain of "+s$(c(vy,vx)):"30"::indind=ç:"2003" Ii=̰"70":u(i,)u(i,"4")=vxu(i,"5")=vym=i:"2003" i Ӯz$="In the Battle of "+s$(c(vy,vx))+", "+n$(fk)+" and "+("his "fkɰ"8")+("her "fk="8")+a(fk,)+" men fought bravely against an army "+u(m,)+" strong"  "30": Քus=((a(fk,)*a(fk,"2")*a(fk,)/"62500")):them=(u(m,)*u(m,"2")/"300"):us=us*(+(x$(vy,vx)=°"149"vyɰ"13"vxɰ"2")) hsup=us-them:theirloss=r("100")+(supsup>):theirloss>u(m,)theirloss=u(m,) Wt(vy,vx)=t(vy,vx)-theirloss:u(m,)=u(m,)-theirloss:tot=tot-theirloss Qourloss=r("100")-(supsup<ç):ourloss>a(fk,)ourloss=a(fk,) 'a(fk,)=a(fk,)-ourloss Za(fk,)=a(fk,)-("50"ourloss>"100")+("50"ourloss<"40"):a(fk,)ça(fk,)=ç 0a(fk,"2")=(a(fk,"2")-"50")a(fk,"2")Ȱ"50" -u(m,"2")=(u(m,"2")-"50")u(m,"2")Ȱ"50" "a(fk,)>"248"a(fk,)="248"  fkchar a(fk,)z$=n$(fk)+" was slain in battle and soon the hooded crows will descend to pick clean the bones.":"30":"2090" z$=n$(fk)+"'s warriors slew "+theirloss+" of the enemy, and lost "+(ourloss ourloss)+("no"ourloss)+(" men"ourloss>)+(" man"ourloss=):"30" *"9":"500"::"10"  \:lives=:char=ç:z$="SELECT CHARACTER":code="154":"16":'':i=̰"11" la(i,"6")lives =lives+(a(i,)):"4";("2"a(i,));("64"+i);":";"7";f$(i) i lives"6500" Z'"4";"L: Key to map symbols"'"4";"M: Pause the Action."'"4";"N: Save/Load.":"10" "20":i$<"a"i$>"n""5020" i$="l""7500":"5000" @i$="m"#;,"13";"PAUSED":ç:"10":"5000" i$="n""7000":"5000" +a(i$-"96","6")char=i$-"96":"500"  "5000" pz$="The Dark Tower has been captured and the 'Riders of the Dark' put to the sword. Victory has gone to the Elves !!"::"30" z "6010" dz$="The last of the great Elfin warriors lies slain amidst the dust of battle. The 'Riders of the Dark' have triumphed !!!"::"30" n "6510" X$:z$="SELECT CHARACTER":"16":'' br''"4";"R: Save Game Position."'"4";"S: Load Saved Position."''"4";"T: Ramsave."'"4";"U: Ramload.":"10" v"20":i$<"r"i$>"u""7030" {i$>"s"i$<"v":"7110" :"a:":a$="Wars "+i$ ]#;"Select ";"save"i$="r";"load"i$="s";" character (A TO P)"'"9";"or Q to Exit." "20":i$<"a"i$>"q""7060"  i$ ="q" (a$("6")=i$:i$=a$("7"):a$=a$(̰"6") a:"65305",a$("6"):i$="r""10","8";"Saving ";a$:"65306":¾"65305"d$():"65358": K "10","8";"Loading ";a$:"150"::¾"65305"d$():"65358":"5000" O i$="t""m:"+ i$ç,:"m:" :"m:wars"ʰ"5000":"65304",: Aþ"65304":"10",ç;"No previous save in memory!":"300":  "m:wars":"5000" L)code="149":z$="KEY TO SYMBOLS":"16" Q>i="144"̰"153":"7";٨i(i);i;"10";ç;b$(i-"143"):i V["7";°"154";"10";"Riders of the Dark"'"7";;°"154";ç;"10";"Elfin army" ["9":"500":"10": @"59999":ç,ç;:"MAP"x$():ç,ç;:"PRINT":ç,ç;:"boggit":ç,ç;:"UDGS":"23606","48":"23607","241":"7":ڰ"7":ç "ă:"65304",ç::m$("22","32"):f$("12","20"):p$("10","20"):v$("10","21"):a("12","9"):u("70","5"):t("22","32") "Fi=̰"1Track-Info  N 2":x,y,f$(i,):f$(i,)=x:f$(i,"2")=y:i "آz$="THE ELFIN WARS":code=149:16:z$="Dark clouds gather in the West":7,0;:40(:z$="and beneath these clouds the":8,0;:40(:z$="'Riders of the Dark' take to":9 ,0;:40(:z$="their fearsome steeds.":10 ,0;:40(:502:z$=f$(1):12 ,0;:40(:z$="senses the danger and summons":13 ,0;:40(:z$="his warriors for battle.....":14,0;:40(:z$="Soon the land will resound to":16,0;:40(:z$="the clash of steel upon steel.":17,0;:40(:z$="Rodric Waits ...":19,0;:40( "Ei=̰"10":x,y,p$(i,):p$(i,1)=x:p$(i,"2")=y:i "ind=ç:fd=ç:fg=fd:fh=fd:fp=fd:fa=fd:fv=fd:fu=fd:fl=fd:fm=fd:fr=fd:fs=fd:ft=fd:fq=fd:tu=fd:xtu=fd:ytu=fd:in=fd:armies=fd:a(,"6")=:n=:battle=fd:char= "i=̰"12":a(i,"4"),a(i,"5"):a(i,"7")=a(i,"4"):a(i,"8")=a(i,"5"):a(i,)="1000"+r("1000"):a(i,"2")="249":a(i,)="249":i #7i=̰"10":x,v$(i,"2"):v$(i,)=x:i # i=̰"70":u(i,)="1000"+r("1000"):t("13","2")=t("13","2")+u(i,):u(i,"2")="200":u(i,)=r("11"):u(i,"4")="2":u(i,"5")="13":i:tot=t("13","2") # "9":ç #' "5000" #("8","17","RodricTalltress" #)"8","17","WilletMarshlans" #*"8","18","CradicCullwatter" #+"8","17","AlleynBorromist" #,"9","18","PelanorAllertonn" #-"8","17","SulricOakennway" #."8","17","TadeusKrottwood" #/ "10","18","MorgannaSaltmire" #0"7","16","UllarBlackways" #1"7","16","AndraWasslings" #2"6","15","RoagHeartland" #3"7","16","GoraxDarkheart" #d"3","10","mountain" #e!"8","20","upon rolling downs" #f"3","7","water" #g"6","13","in woodland" #h"8","14","in a village" #i"10","14","at the tower" #j"6","18","in green meadows" #k"8","18","in a dark forest" #l"12","15","on board ship" #m"8","17","on a flat plain" #n"14","20","4","20","23","21","30","21","25","14","31","11","10","9","17","5","28","3","15","2","2","2","2","13" #o"13","fit & strong" #p"17","in good strength" #q"15","slightly tired" #r"14","tired & weary" #s"17","weak & exhausted" #t"17","ready for battle" #u"16","in good spirits" #v"18","lacking in spirit" #w"11","despondent" #x"13","without hope" #"14","20","4","20","23","21","30","21","25","14","31","11","10","9","17","5","28","3","15","2","2","2","2","13" '|"WARS"8000@:"MAP"x$():"PRINT"60000`,370r:"boggit"620000,768:"UDGS"65306,150 ç:"10":"5000" i$="n""7000":"5000" +a(i$-"96","6")char=i$-"96":"500"  "5000" pz$="The Dark Tower has been captured and the 'Riders of the Dark' put to the sword. Victory orest" #l#12 ,15,"on board ship" #m$8,17,"on a flat plain" #n14,20,4,20,23,21,30,21,25,14,31,11 ,10 ,9 ,17,5,28,3,15,2,2,2,2,13 #o13 ,"fit & strong" #p17,"in good strength" #q15,"slightly tired" #r14,"tired & weary" #s17,"weak & exhausted" #t17,"ready for battle" #u16,"in good spirits" #v18,"lacking in spirit" #w11 ,"despondent" #x13 ,"without hope" #14,20,4,20,23,21,30,21,25,14,31,11 ,10 ,9 ,17,5,28,3,15,2,2,2,2,13 '{"WARS"8000@:"MAP"x$():"PRINT"60000`,370r:"boggit"620000,768:"UDGS"65368X,88X  Track-Info  N  y,f$(i,3):f$(i,1)=x:f$(i,2)=y:i "آz$="THE ELFIN WARS":code=149:16:z$="Dark clouds gather in the West":7,0;:40(:z$="and beneath these clouds the":8,0;:40(:z$="'Riders of the Dark' take to":9 ,0;:40(:z$="their fearsome steeds.":10 ,0;:40(:502:z$=f$(1)PLUS3DOSE PLUS3DOS~FE@6CWn$(x)=f$(x,3̯f$(x,1)):s$(x)=f$(x,f$(x,1)+1̯f$(x,2)):f$(x)=n$(x)+" of "+s$(x) [d$(x)=p$(x,3̯p$(x,2)):b$(x)=p$(x,p$(x,1)̯p$(x,2)) p()=((32 -z$)/2) n(x)=5-(a(x,2)/502):s(x)=10 -(a(x,3)/502):v$(x)=v$(n(x),2̯v$(n(x),1)):q$(x)=v$(s(x),2̯v$(s(x),1)):r(xA)=1+(*x) c(y,x)=(((x>8x<20)+(2x<9 )+(3x>19x<28)+(4x>27))y>16)+(((5x>21)+(12 x<8)+(x>7x<22))(y<17y>11 ))+(((6x>24)+(7x>7x<25)+(11 x<8))(y<12 y>5))+(((11 x<8)+(10 x>7x<16)+(8x>15x<25)+(9 x>24))y<6) i(x)=(x=144)+(2x=148)+(3x=149)+(4(x=145x=147x=150x=151))+(5x=146) d#1;7;1;1,0;1;6;" ANY KEY TO CONTINUE ": *.02{# =,39':.02{# =,40(: .code=x$(y,x):code=32 code=153 :1,0;:40( z$=code:i=15:z$=z$+z$:i:٨i(code):6:0,0;z$;2,0;z$:1,0;z$(2);1,30;z$(2);4,0;:0:7   battle !75K:i$=:i$""10  100d i$=""20  z$=z$+".":prt=60200(: ( p();z$: - battle .armies=0:m=60000`:z$=f$(char):#1;6;0,0,,0,0;p();z$'"Move(5-8) Armies(1) Options(0)":7:8:a(char,5)-1,a(char,4)-1;1;1;" ": 2 battle 3tarmies=1:0:i=170F:u(i,5)-1,u(i,4)-1;154u(i,1):i 4m1:i=111 :a(i,5)-1,a(i,4)-1;154a(i,1):i:0 5 9 dea(n,2)=a(n,2)+(20a(n,2)<230):n=n+(n<12 )-(11 n=12 ) f!m=r(65A):u(m,1) g>fk=u(m,3):a(fk,1)u(m,3)=r(11 ): nux=u(m,4):uy=u(m,5):vx=ux+(uxa(fk,4)):u(m,4)=vx:vy=uy+(uya(fk,5)):u(m,5)=vy st(uy,ux)=t(uy,ux)-u(m,1):t(vy,vx)=t(vy,vx)+u(m,1):armieschr=x$(uy,ux):0;vy-1,vx-1;154;uy-1,ux-1;٨i(chr);x$(uy,ux)t(uy,ux) x%vxa(fk,4)vya(fk,5) zarmiesz$=n$(fk)+" is under attack !!":#1;1;1,0,,1,0;p();z$:1;vy-1,vx-1;1Track-Info  N ;8;1;" ";8;:300,:0;1;8;0;" ":9 }+ind=1:2005-(5fk=char) a(char,1)  battle  20  i$="0" 1i$="1"502:20:45-:400 i$<"5"i$>"8"400 Ha(char,5)-1,a(char,4)-1;0;1;" " Lnx=a(char,4)+(i$="8")-(i$="5"):ny=a(char,5)+(i$="6")-(i$="7") Px$(ny,nx)=146x$(a(char,5),a(char,4))152480 yx$(ny,nx)=152full=0:i=111 :full=full+(a(i,4)=nxa(i,5)=ny):i:full480 2x$(ny,nx)=144Ũn(char)=5480 x$(ny,nx)=146x$(ny,nx)=152:x$(a(char,5),a(char,4))=146:ny-1,nx-1;0;152;a(char,5)-1,a(char,4)-1;5;146 a(char,2)=a(char,2)-5-(5x$(a(char,5),a(char,4))=145)-(3((x$(a(char,5),a(char,4))=147)(x$(a(char,5),a(char,4)))=151)):a(char,2)<0a(char,2)=0 (a(char,4)=nx:a(char,5)=ny Sa(char,5)-1,a(char,4)-1;1;1;" ":400 Nx=a(char,4):y=a(char,5):z$=f$(char):battle=0:15 la(char,1)z$=f$(char)+" was slain in the Battle of "+s$(c(y,x)):30:9 :500: Oz$=n$(char)+" stands "+d$(code-143)+" in the domain of "+s$(c(y,x)) a(char,1)z$=z$+". "+("He"char8)+("She"char=8)+" commands "+a(char,1)+" warriors, who are "+q$(char)+". At this time they are "+v$(char)  30 *y=13 x=2t(y,x)6000p it(y,x)z$=n$(char)+" is confronted by "+t(y,x)+" 'Riders of the Dark', eager to do battle":30 ':z$="OPTIONS":40(::2;"1: Change character"'2;"2: View map or Move Army "'2;"3: Search the "+b$(code-143) t(y,x)2;"4: Attack!" ^code=149recr=c(y,x):a(recr,6)recr12 2;"5: Greet "+f$(recr) !Xm$(y,x)>100da(char,1)<2500 2;"6: Recruit ";m$(y,x);" men" ".a(char,9 )2;"7: Eat and Rest." $P#1;1;6;1,0;" Any other key to update play " & 20 0 i$="1" 1(i$="2"45-:400:500 2i$="3"1000:500 3(i$="4"t(y,x)ind=0:2000 41recri$="5"char=recr:a(recr,6)=1 5ri$="6"a(char,1)<2500 m$(y,x)>100da(char,1)=a(char,1)+m$(y,x):m$(y,x)=1 :i$="7"a(char,9 )a(char,2)=a(char,2)+502:a(char,9 )=a(char,9 )-1:a(char,2)>249a(char,2)=249 W 500 z$=f$(char):15 =z$=n$(char)+" searches the "+b$(code-143):30 pres=0:p(12 ):i=111 :a(i,1)a(i,4)=xa(i,5)=yicharpres=pres+1:p(pres)=i i:pres1100L ?end=(5pres>5)+(prespres5):start=1 z$=("He"char8)+("She"char=8)+(" also"start=6)+" finds ":i=startend:z$=z$+f$(p(i))+" with "+a(p(i),1)+" men"+(", "iend)+("and "end>1i=end-1):i:30 5pres>5start=1end=pres:start=6 ~9 :500:10 :z$=f$(char):15:z$=n$(char)+" continues to search the "+b$(code-143):30 L3x$(y,x)148x$(y,x)1491200 Q'a(c(y,x),1)m$(y,x)=1 VIa(c(y,x),6)a(char,1)<2500 m$(y,x)1m$(y,x)<100dm$(y,x)=(100d+r(155)):z$="Presently, "+m$(y,x)+" freemen of "+s$(c(y,x))+" arrive wishing to join the army. As a sign of good faith they offer food and water to the warriors.":30:a(char,9 )=a(char,9 )+1 afdtot<75000|z$="A herd of wild deer is spotted and warriors are sent to catch them.":30:fd=1:a(char,9 )=a(char,9 )+3:9 :0:10 : bfltot<70000z$="A cache of hidden gold is discovered and distributed amongst the warriors.":30:fl=1:9 :0:10 : cfgtot<65000z$="Off to the East can be seen a rabbit warren .... soon the warriors return with some freshly killed rabbits":30:fg=1:a(char,9Track-Info  N  )=a(char,9 )+1:9 :0:10 : dfmtot<60000`z$="Nothing of any importance is found, only the corpse of some dead animal.":30:fm=1:9 :0:10 : e fhtot<55000z$="During the search a pack of rats was disturbed and they ran off with some of the army's supplies":30:fh=1:a(char,9 )=a(char,9 )-1:a(char,9 )<0a(char,9 )=0:9 :0:10 : ffrtot<50000Pz$="The remains of an Elfin scouting party is found and they are soon buried in shallow graves.":30:fr=1:9 :0:10 : gfptot<45000ȯz$="The search reveals a flock of wild birds roosting nearby. Before they can fly off they are quickly slaughtered.":30:fp=1:a(char,9 )=a(char,9 )+2:9 :0:10 : hfstot<40000@z$="A hunting party of Orcs is discovered and soon put to flight.":30:fs=1:9 :0:10 : ifatot<35000z$="A wolf pack is encountered and during the ensuing battle the wolves make off with some of the food.":30:fa=1:a(char,9 )=a(char,9 )-1:a(char,9 )<0a(char,9 )=0:9 :0:10 : jfttot<300000uz$="The remains of a small campfire still smoulder nearby but there is no sign of those who had lit it.":30:ft=1:9 :0:10 : kfvtot<27000xiz$="A scouting party returns bearing the carcasses of some wild cattle that they have recently killed.":30:fv=1:a(char,9 )=a(char,9 )+3:9 :0:10 : lfqtot<25000az$="Some wild boar are spotted but they run off before they can be caught.":30:fq=1:9 :0:10 : mfutot<20000 Nz$="Much to the delight of all, a hidden hoard of supplies belonging to the 'Riders of the Dark' is discovered nearby.":30:fu=1:a(char,9 )=a(char,9 )+3:9 :0:10 : Xtutot<15000:z$="An aged manuscript is discovered which tells of a secret passage through the mountains to the Keep of the Dark. Immediately couriers are sent to all existing armies ordering them to search the Dark Mountains for this passage.":30:tu=1:xtu=7:ytu=10 +r(6):9 :0:10 : ,in=1x<5y>11 y<15 ,tu((inx=xtuy=ytu)(inx=4y=13 ))a(char,4)=(4in)+(xtuin):a(char,5)=(13 in)+(ytuin):z$=n$(char)+" discovers the secret passage and after many hours in the darkness, "+("he"char8)+("she"char=8)+" emerges into daylight":30:in=in 100d:z$=("His"char8)+("Her"char=8)+" task complete, the search is brought to a halt":30:2090* :armies=0:battle=1:fk=char:vx=a(fk,4):vy=a(fk,5):z$="The Battle of "+s$(c(vy,vx)):15:z$="The sounds of battle ring through the domain of "+s$(c(vy,vx)):30::indind=0:2003 Si=170F:u(i,1)u(i,4)=vxu(i,5)=vym=i:2003 i Ӳz$="In the Battle of "+s$(c(vy,vx))+", "+n$(fk)+" and "+("his "fk8)+("her "fk=8)+a(fk,1)+" men fought bravely against an army "+u(m,1)+" strong"  30: իus=((a(fk,1)*a(fk,2)*a(fk,3)/62500$)):them=(u(m,1)*u(m,2)/300,):us=us*(1+(x$(vy,vx)=149vy13 vx2)) hsup=us-them:theirloss=r(100d)+(supsup>0):theirloss>u(m,1)theirloss=u(m,1) Ut(vy,vx)=t(vy,vx)-theirloss:u(m,1)=u(m,1)-theirloss:tot=tot-theirloss Wourloss=r(100d)-(supsup<0):ourloss>a(fk,1)ourloss=a(fk,1) %a(fk,1)=a(fk,1)-ourloss a(fk,3)=a(fk,3)-(502ourloss>100d)+(502ourloss<40():a(fk,3)0a(fk,3)=0 ?a(fk,2)=(a(fk,2)-502)a(fk,2)502 <u(m,2)=(u(m,2)-502)u(m,2)502 2a(fk,3)>248a(fk,3)=248  fkchar a(fk,1)z$=n$(fk)+" was slain in battle and soon the hooded crows will descend to pick clean the bones.":30:2090* z$=n$(fk)+"'s warriors slew "+theirloss+" of the enemy, and lost "+(ourloss ourloss)+("no"ourloss)+(" men"ourloTrack-Info  N         ss>1)+(" man"ourloss=1):30 * 9 :500::10  h:lives=0:char=0:z$="SELECT CHARACTER":code=154:16:'':i=111 xa(i,6)lives =lives+(1a(i,1)):4;(2a(i,1));(64@+i);":";7;f$(i) i lives6500d M'4;"L: Key to map symbols"'4;"M: Pause the Action.":10 %20:i$<"a"i$>"m"5020  i$="l"7500L:5000 Li$="m"#1;1,13 ;"PAUSED":0:10 :5000 7a(i$-96`,6)char=i$-96`:500  5000 pz$="The Dark Tower has been captured and the 'Riders of the Dark' put to the sword. Victory has gone to the Elves !!"::30 z 6010z dz$="The last of the great Elfin warriors lies slain amidst the dust of battle. The 'Riders of the Dark' have triumphed !!!"::30 n 6510n L/code=149:z$="KEY TO SYMBOLS":16 QRi=144153:7;٨i(i);i;10 ;0;b$(i-143):i Vq7;154;10 ;"Riders of the Dark"'7;1;154;0;10 ;"Elfin army" [ 9 :500:10 : @59999_:0,0;:"MAP"x$():0,0;:"PRINT":0,0;:"boggit":0,0;:"UDGS":236066\,480:236077\,241:7:7:0 "Ġ::m$(22,32 ):f$(12 ,20):p$(10 ,20):v$(10 ,21):a(12 ,9 ):u(70F,5):t(22,32 ) "Oi=112 :x,y,f$(i,3):f$(i,1)=x:f$(i,2)=y:i "آz$="THE ELFIN WARS":code=149:16:z$="Dark clouds gather in the West":7,0;:40(:z$="and beneath these clouds the":8,0;:40(:z$="'Riders of the Dark' take to":9 ,0;:40(:z$="their fearsome steeds.":10 ,0;:40(:502:z$=f$(1):12 ,0;:40(:z$="senses the danger and summons":13 ,0;:40(:z$="his warriors for battle.....":14,0;:40(:z$="Soon the land will resound to":16,0;:40(:z$="the clash of steel upon steel.":17,0;:40(:z$="Rodric Waits ...":19,0;:40( "Oi=110 :x,y,p$(i,3):p$(i,1)=x:p$(i,2)=y:i "0ind=0:fd=0:fg=0:fh=0:fp=0:fa=0:fv=0:fu=0:fl=0:fm=0:fr=0:fs=0:ft=0:fq=0:tu=0:xtu=0:ytu=0:in=0:armies=0:a(1,6)=1:n=1:battle=0:char=1 "i=112 :a(i,4),a(i,5):a(i,7)=a(i,4):a(i,8)=a(i,5):a(i,1)=1000+r(1000):a(i,2)=249:a(i,3)=249:i #;i=110 :x,v$(i,2):v$(i,1)=x:i # i=170F:u(i,1)=1000+r(1000):t(13 ,2)=t(13 ,2)+u(i,1):u(i,2)=200:u(i,3)=r(11 ):u(i,4)=2:u(i,5)=13 :i:tot=t(13 ,2) #9 :0 #' 5000 #($8,17,"RodricTalltress" #)$8,17,"WilletMarshlans" #*%8,18,"CradicCullwatter" #+$8,17,"AlleynBorromist" #,%9 ,18,"PelanorAllertonn" #-$8,17,"SulricOakennway" #.$8,17,"TadeusKrottwood" #/&10 ,18,"MorgannaSaltmire" #0#7,16,"UllarBlackways" #1#7,16,"AndraWasslings" #2"6,15,"RoagHeartland" #3#7,16,"GoraxDarkheart" #d3,10 ,"mountain" #e'8,20,"upon rolling downs" #f3,7,"water" #g 6,13 ,"in woodland" #h!8,14,"in a village" #i"10 ,14,"at the tower" #j%6,18,"in green meadows" #k%8,18,"in a dark forest" #l#12 ,15,"on board ship" #m$8,17,"on a flat plain" #n14,20,4,20,23,21,30,21,25,14,31,11 ,10 ,9 ,17,5,28,3,15,2,2,2,2,13 #o13 ,"fit & strong" #p17,"in good strength" #q15,"slightly tired" #r14,"tired & weary" #s17,"weak & exhausted" #t17,"ready for battle" #u16,"in good sTrack-Info  N         pirits" #v18,"lacking in spirit" #w11 ,"despondent" #x13 ,"without hope" #14,20,4,20,23,21,30,21,25,14,31,11 ,10 ,9 ,17,5,28,3,15,2,2,2,2,13 '{"WARS"8000@:"MAP"x$():"PRINT"60000`,370r:"boggit"620000,768:"UDGS"65368X,88X  y,f$(i,3):f$(i,1)=x:f$(i,2)=y:i "آz$="THE ELFIN WARS":code=149:16:z$="Dark clouds gather in the West":7,0;:40(:z$="and beneath these clouds the":8,0;:40(:z$="'Riders of the Dark' take to":9 ,0;:40(:z$="their fearsome steeds.":10 ,0;:40(:502:z$=f$(1)PLUS3DOSRR0:0:0: !"PIC"32768:32768 "WARS" 8vv``@ 000 0 0l8|8l~``~~`` 0`||8~f<0 0 ~~0 0b```b>lffflbhxhbbhxh`fff~fff~~ xflxlf```bf||ff|``|vff|lff:|fffXWFK x 66V( y(~# ~G#~O#^ ""Avv|pp8|||ff~ff~|rp|prz||rp|pr|~pr~|rp|pp>>|~`lrp|pr|8vv|~r8>8||||~~|P'@he a oitouen t ial t iteav bvehenia g ai iauuo lrasrltobcIee hpetist,edotaaeoos.olaarycae aei &&&/ &&&&K % %6 J46 J4&l&U &  3 .1 &3!2 &_ (  & && &U  +3 1 & )&+ 67676767"U!1>6?&&&& && & &  & & & && &&& & &j&3!#&' &&E3!" &e &= &? &>&& &N& &w&O&P&Q &w F&R &T &V &S &U &`&d &v &&&&&& & &&&&& &&&&&&&6 +.& &$&  &, ( /6&& ( &xN&yN&zN&{N&zN&|N&zN&}N&zN&~N&z&  &xN&yN&zN&{N&zN&|N&zN&}N&zN&~N&z& &Track-Info  N         &H&G67 3&   31  3&  3&!  3&,&#  3&,&#6#D 3 &&/ 3&(1  &)  &* &  &/   c7.1c1 &   c&1c   c&  &&/ 3&(1  &)&  &*  .+ .&%1   &  &+  +3&"#d31 &#&-EH&7EH&8EH &:EH &;EH &9E4&7E5&8 &9 &: &;EO&YEP&Z&h&<EH&YEH&Z &0/ &m &1/ &n &2&3+  31  &6/  &4 &4 &5 &h/ &W/ 1&X 1&c &u&g&@ 3&]#d&A &]#d&^&&B&C&DD &D  31 D 3&D &&&&M O1&[#d&\ &[#d&k &&&&&&&&&/ && &i./1  & % % &+&I&J & & &.3"3&f &+ 3 &%%&&&&&&&&&&&&&&&&&&,? DP V `jqxAAQSUÛɛϛқ:՛:789  "&4*50666<7B8F9J:N;T.(>7(>G(>b(>s(>(J(K(K(K)?Ο)?)?)A)*4*5'*E/*F7*G?*HG*HO*HW*H]*Hc*Hi*Hq*Hy*H*O*P+4+4+5+5+E+Fà+FϠ+G٠+G+G+M+O+P+P+P +),I--3-C-T.X/^0;b0@j0@{0@0012Q2Q3ǡ3455 )28>GPY_e n2z3xyz{|~Ţ̢ӢڢQ3Z4V&&&&&% <<4k 3&L8̦ &G  &b &b &a -&a 2&a A&F P&FK$(  &o,   &p+  &q+   &r &r &t 3 &s &t  23& &rUQU_Umwŧͦ)ƧූߨߵߏߜߒҜߌߏߐߌߋߏߐߜߌ߻ҽϏߜߘߍߏߐߌߘߏߐߑҏ૗߾ཊ߽ߩߞߗߜߜߐث߸߸ߌߍ%tΨݨ"9999ج߻߰99׽߼߻߶99߫N>= @9  U߫N YG.צ߱ૐ4T .،04ߐUV N!ߗ7"V>IPZ .AV Z/ "1ߐ߷һ;<-2߽3׈Kߚߘ#6#,UWNO0K"6" *8 .HZIHZݫ2߫.߭C 8ߚUZI*>ZAU 3+ S XU".Z$ZW Tߓ NAHZݻߨ UJV6?T;6. ?N 8HZݾ>UߚHZݫ2߫.߭C S XUJߐZNIVݾ>NI*UM 8VMFߒ ҝ఑ߚKZ6A,߉+"/ҝ$N 8Jߚ?S" ?85PZ . 0ZU+I ߏ=T3.2O  5) 8Uߑ߆26SX=3Z N 8V@ "/ҝO=!Aߏ$VZݨ(߾>N;UJN6(V(,O5) 8ߑUѫZ6A,M!014 .TXHMNߘKߑ҈ߚ૗77ZVݾ>N;҈V6'ҜUVݫNZ*E#4V6'ҜVݾ>VݫN .,+07<O  X4".Z'ҜఊݫN .6,M5ߘ =T/&$U!MO -O= 8ݬ߹߭ߏ 8 .TXM = 87T?Z'Ҝ6(V  8"ߏ,ߏ 8J .T>XZ'Ҝ?SGZFZYߗBM11 ZN1 8Nߏ ( 80HZ *.2N  8ཐ(ߐZߏ 8૗7ߏ 8JHZݳ߹UHZ'Ҝߓ ҝ6/,HZ$ZఊZݳ߹+Mߋ7Uߚ?T/ߎX+ZNTrack-Info  N          8HZݼUHZݳ߹ߋߐ"1+8ߐH(; . ZIHZݼ= 8ҚUJҚ 8ߑVߗ .T>GZݳU߹2ߗN,M'?Z+/DS>F $P 8J૗77ZZݼ .6,+6O?5) 8J҈JҚNJZݼ 8ߑ҈ߑҚHZ .،6T?NZݼN ҈UJ҈ߏ 8N 8HZݼHZ4Jߐݾ>ߑH('=H ૗77ZIUߚVݾ>NTUZIT .6,+ 4XW5ߋ=UIXZ .T>XJZ1HZ'=H = 8P 8JLͩܪ,këgά+oUծ&{ٯ*zаp@ .OZ+; .ߵ25DZߨ  . GZҜKߗ7Uߗ):DI.2U.2DZ߹XZ. . OZ/;O/Z+@"Uߐ@Z$O Z(4X .KCౚߵ2ZC+X2߫.߭6C7) .Iߞ/2H߆2V+Z -) .N.CO/Z-E.:Z1ҫҳ1UHZZ+1Z؜C6V! .2$ZUߍ7O,JߐZ, U1Z ! N874V7X .(-W Jߞ>?(>3 U߽ .ߔN8V7Z،F1ઑ2 Z،F1/ OZ?ZNBV7ߚ,V7"UAߗ7ߕ3NTFUTX!N+?ݸ8߭ݭ7ZE 6(V .N,?2Tݸ2=UN E7;Z4N ,߳!5+OU05 #Ҭ57T>;8"(T ߆఑ZTߏ=3ZPN?!MODඋTҌ#O5KM ?"X/ ߏ CD ;.63NS8". ?U" 3( ;& .ߘZϏHZ Gߋ3ߘ .Mҝ3ݨ!M+ҐߚO .ߓ1X Z3N3ߓ1@ 0,Ϗ:Z/ ߘ: .Ϗ"Z ,E T+Xߗ7!఑ZP8>ZUZ?MNTOZ.2; 5;ZT()= 8?NT)O".M#UW< V(X2ZN#T@ F?Tߗ GZDTJGZ.2.2Z,ߐZ#6A,Mߑ .6 Z7(-ߚMFߘ3 Gߏ. .6 0".ZN TJG#XFE 6A,TN T1ߗ:ߊ"߽ .V .6)0GZV;ZPݬ߰4M=".GZ#ݸU"3ߑݷ>;8ҋ O2 E: ./X Z#Gߗ7"P༞)0XZ  ."(X!U.2 X".ZDT $VMPXZ  .H(X=UWߎ= K7!ේ0.Z3UNߐZ30+Z#((ICM5 6*JߐZ 0Z#UߘZ3GD".A2XGZN T1ߗ:ߊ"߽ .V -NX7ߒ8".)DSBZݲ߭P఑Z-ߐZT&M6X?T>XߖV, .ߏ Z= ,V "5X!Z GM/EE 8="F P4Z UߏZ @/ "5ZAVDߏ= $UߋB-.Z'HZ߾>఑ZFߐZT6.;U -$V7S# @ݲ P߶؉Aߓ1XEFߐ@Z-4ߚ$ݫ!߆ .%4Y-;%B>ߒ%>߶ؓߘY߶4U M>;1".ߗ7ߏ&+MUߋDJU!DV .ݽ#4U BZ఑DT+% .M3߬O߽2߬?Tߓ;/& -OZ1N/&!M/U2DT= 8ݶ,Ϗ .G,ZGZ/UZ12/&LZ1Uߍ2GZF6= 6/PZ1AC0X؋N . -@"Z7<VE Z7 ,TNEX .6EߐVTrack-Info  N         JߐE7ߏ.'7V,߽=NPZ=  . 3HZҏI?N#Kߗ7Uగ0߽ .T&ؓߑ@ߘJߐ?KM ; .T)XZN Z @ZFถVN1T/&$NϏ6؋"GZ/ݻY VE .ݻY E "*J6#,".߁K߫N  .ݱ *Zݶ Z߭V ߁0X0 .ݫ!M8ߕ4ZU*ߗ76U#Dߞ4ݶ،M7؋D4 .ݦD7DV610Z 3 *ZݻY>E W ،M8I3 6FO+߫N=+4 .G VM@)ݱ@ߒJE !%X0ߞJE7;. @ߚZݨ!.߷BY/(P5 .ݦ *ݶ؉/ =ߍP؉Aߓ1XD"ߞN-%8DGZݻ"+،;2V3ߊ1ߓC߽ .4=Fݷ/04 .ݷ/04Zݷ/߬4 .ݷ/߻842ݸ؛44 .ݸ؛4 *Zݸ؛44 .ݶ=V#( ".02 *Zݷ/߽  4 .ݷ/߽ .= ?؍!P *ݷ/4 .V>Gߏ=NT K!5 76!M= 89ݻҽ3ϏN'Ҝ Tߒ$O.TX;2U6<ཊTX0ߘ#،ZN" ߐ . E7A,N߽X Z ߾I3߼IݱY؋4Z ݯX @T ૐ߽ .37M.ߏ7ߗ8".ߐ@ZM,3 ݰ߯߆3ߋ.,߆ؓAG0#ߋ.'4Z. .ߎ= ߗ7ߋ., .ߒ"M "5 .V;G8 V,M;.V< GZ,ߗ7ߏ1ߨ!M) .0؋":NTHߐZ*K)/&;Uߞ5ҝ .(-ߍ' .،;6DGߒ/UZ ,M= GZߗ7ߋ.,165E7"- .ߖ> 7(-UAV Z3 .0V+Zݻߨ 7(-ߘ3 Gߞ#I඙߽ . BZWN؋Aߞ'V7Z،F1උ،M  .ߑ$>76 .,Zݳ߹U Z N.DUߘ$ F >E7"3.,SX+USX(07( .6Z.ߐ߻ҽ3U߼ҹ/GZ5NI ߏ8".;'K UXUߞ.2D)= "P(=X NM2ߒU( ,$V@ G/Kߚ-ߐ?UHDGߋ3V<Uߐ?ߑHZ 7 O .ߐN63X .!M/)N,V'VGMߏ5ߐߕ? -2 CX= 3ZߔPߍO"ZE#ߗ2ONEUߋFJ""#:XUM/5=2O Zߗ7"#NXO&U;-ߋ7"-E(0#G/N(J""#FNX"/ U;0 U:җ#ONO/PGZZ2ߒN/*ҙ/O*($U߆/ @;+:U6/3N/8ߐߍOA--$VZ(NGCOKߏ3N/ߒ>*UW S";1ݱ=047؋DO .ݶ>;8"Z)߆ *$Z2ߒݾ Y+$; 6!O .ݨ؍҈$$Z2(ݸ؛44 .ݷF *$Z2ߒKߞ ݸ؛4ߒ74 .ߏ*ݷ/߬5ߘ Z2( ./A0V=M/ݰߦ4M,3 . Xݨ!0YYSP߫!Tߏ. BDߞ/, .UZ. 4#X7M ./O7ߋ.,N,3 .ߕJ".AZ$ݰ߶HYJEA߆Z.ݦ M5 @"X3/2VFU2ߨEN= .GZ.7!M+I ߚ߽ .(-6XV- 7;GM>7  .!>ߑOZNBA0.$; (6 #*X.I .(-ߍ'(> .(-ߍ'UN JMF؏ݱ= ?؍!P4 .ݦD  *Z2(NPSU@ =G< N!M= 89ݻҽ3ϏݱE߆4 .ݶ0VE.:EU;-4".ZݭC  .ߒ:ߗBAߋ Xߗ,"FZ Nਗ=߲ߨݰ4YߗBϏ;-4ZNT&HZ-ߐZߋ.߽ .".Aݶ؉ 8 $Y=>VE,"/ߘ.Z.Uߏ.$V .KMߐߍߗ, E7ߘHߒ ߎZ45%*V!Track-Info  N Z: .ߞ>"ߗXKE7ߘU% *V!ߵ !߬ׯ)7߫-?#ߗ#"ߏ4PZط/ߘV"+߫Nߵ،:B=!)U߼7ط/ ߘ߽߸ߞI3.UVFE, ;:0ݽ+߫N=+ ߲ .6&O؛ҚGߗ705)U>P26F >O7߻8،6(IGZE0W,04;#ߊUGߞ6 ث߸߸;#;ߊUJߞߜ ث߸߸ݫ!4MFߒAPZUߍ2X4F;.6 3O-.G".߽ .@8M+:O5@OZPZ2*:0XD" ?ߐHZM06/ ?O(>ݬY ߗ7,Z2(ߘ/X߽ .،05)MFߑ<A/O 8I3UE ;.:M Vߋ5O"-N OU7 OZ2(ݶE(05 TXZ?Z2(ߋ3$V- .Uߗ7OݹMߞ;10߆߰T Y KM=ߐ?7N7O?5V M 7X*,ߐ&P .2$Z<UAVE.:D௾N  7)ߔ>ߞݹ3 !6,V3BDE Z8ߐع!0M2KZI56IZ 6;UE#6ݯ.X߽ߋ&Oߗ7ߗߏ&32HZ?JW6IZҝ;V WBA> 8"/XQ>ؗҌ#T3I ' .ߋ3O@Z௾ S3I 8XPZ2PߐZؼ36-G߾*GE( ?;+MPUߚO(KZ CݽD"2Z-ߞ+1ߑ M!Қ ;-ߏXߞ E T!"=،"5 D V-ߨG6)KE75 B"$௾7#،6.!A6OXZ-E 'Vع.ߓ#UWߗ8V,ߐ, X"GZ3 C X" UXت#،6.AM5߻N5 P߾ Cߐ;5௾Z IݾWM(Iߐߗ:0ߥ%$Zݽ߬߷ߞUߵߨOV D2 Z EX<+)U0VߚGGZع;Ҍ-Aߒ8V ߐ3GZ3; XVW5ߑ௾ 7Xߚ!؜KZ*߫߼"5+W5  0Z-ߐMҏ2>U,DV߬߫ȱAC)Z-ߐM Iߏ<׏ 'M5AE.: OQO AAXOOKFE7G0+߽ .6/,Z ݫ߸߸U O7ߐ+ =W  .ߍ ?ߗB,?GZ ?6,E:;1U߉6E?ݬ 34߱:ঐ3ߘ ߍ2ҐҒݏ2CF XU".X=+VߑಖXJ*2$*K> ߖߐ!W Vߑ(<(8UFGIߚKIX PZଜ3XU".*0IO# T7 F !Wߗ<80$Uߍ ?2< V )ߒ4DT>X. ଋ1G FX5ߋ3VKW5!ҚOGߚ!"ߋߒߏ 3൐XJW SK0XW5ߏ&V(KZV4W5I"#,W S૗ ,OIߋXߞߐZ>=߉W6GߞM-)'F=U/&$="/ҝ$ ;UߏI ?- .ߏ#O2ZUMҚO ݯߓX? .E:JD;D,$VZ(0) ݜ#Ҝ*N$V BDW .E:JD;0O.' AZ7ݐ".߲ үM Cߐ6(".ߵ !߬M58ߞ,".ݫN&.-UM݊,ߗ"M/8ߐߘE>;?$V4 /N Z?Dݬ߰߈ߋߍ૗7ߚ) ZO߽ .V7@Z?JM D،M 6,ߐݸ߰ൊZߎ)KߕM!ߞJDଋX.:Z؛14߽ ."2,GZZݲ߱߭3ݬՋߗ7O .%!W,0EP߫6/X7ߚN1I);-ૐߗ7ߘ  *N2,;-GZ༰RBߒ$V .;-V7"7;S7(-T>/ߍ'XQ7;T UP3ߋT@,3,0KMߐߋU(0);=Y,W Y$ZU0YV7@߾Zؗߒ/'* 6 3ߒ*OE,ߑ@ F 21Z)AZ= 7O !OM)ߘX.ߞC߫ߦߑ@ZݏҒ87)E(E:DDߒ ,V.F8I3KZ؏.W /ߒߘ !5O*K2X/FEP8I37 F6 3K;"#U!5Hߘ *0!TJDGE7ߘU/ߒ4D3඙YWAD;  Y!>6DߒY;*D6 ߒ!5.GE ߐ߆3ߗQߒ H6)0DTrack-Info  N ߞ DTE%O*;U(V ,ߊU0"ߒ".EFT2)X> ߒHZ،07 U.૞B6!O; I;Zݝߞ I6(".Z*߲߳ ߫3 /*X!HP( ߞ.2W,04ߋW,߹߬ח#ߗ#ߗ#AZV߾,D6A!%#ߋX6<*E7N؏. ߑ"ZEM ,6=6N /ߐߒ *UZEX!T '"ߘXGߒؗ҈CEX,౐ؙ5Dߊ,V;ؙ2V,D! 4A"ߒ>"ZNؙAUKJ(%@Aߞ'V-Z=$҈J!"ߚ@X%/)Kߒߞ U߲ߒZؐ< >Uߞ;Z JE ZCAZؒG6 0ߒ4 P༐3X.U)ؙ1FҒ8DT@1N/ಐ?ߐߒ"5UZ  '"ߒXAXFOݸ "!X +4ߓ2)4X1F߶6AߏX"#ૐYFE"ߚ@P3U6ߗB;A@ (E,ߗBؘߗ Z3 M1Uߔ#ZC*2)W7ߒE߶64; Z+ߗS/&O4GU%ߘ "E  ߗ7ߋ#"/37UE04( ߏ"ߒߑ>:ߏ6IKM=6ߍOU(1; CP ;.1ߗ".ߋ 1UF6 ߑFߋ  ҋ'=T3I ߚK> !/X,(!=$Z/D "ߐ;. CU0* "7ߒ ݍO?PߖZ E7ߘTXߘ; .>H3!D;D,$V1߉"*() 3X.2 Z,ߐZݻD0ҝ ߘ.ON૗ < $VXߓ#Ҝ/3OF =  >=Uߗ: (-3XY*:MF;5KM.AU(/ GD" ?DAD< $V6Xߍ ૗ 1O= *Z-ߐM( XZ ."O74A#(=EU6)Oߏ3Z1+3Xߗ7 NOMF!;U6)$V/Z1+ຒX.2Z8M 2; .ߓ1OFߞ.2A8XೖXZ ߐM  .ߏ#OZ1UE:N,݌(P݌(GZ7ݸ؛4ߒ'$Z( .I$Z PݸM)U Z=DXMFߏ'ߏ.OM;VZ XM.ߐߏH ҏ<ݱE *O .X!M(0X+XCߞ@ E W >F 0+ݨߘM W6+$Z( R:GM  BߒG -GE7 .O/;-U Z( V Z=G -((ICA$Uߋ5$ . ҚOZNIߐ݋!O .K߉7ߒJ04UIMFߋP HZߐߗ7ߘ.@M،FߋP ZDߘW,04UN1;7OFE:Z".ߗ7;6ݜ#Ҝ*0J".2ZU0Z3ߞ4VෞX 80EU>7XZ( ߐZ= .0O>V?ݱ ߒ'O .%)!ߨKEN -O7఍ 6O.(01Dߏ.AZ ݫ E74଒FF=U"ߐ2O7F=U"ߐ2O7 .0OJZ7U>=OFߋ  Z(ߐZҝN &"5HZҝ .0GZ7U"MFߍPཚ .60=ߍXߘ߽ O4଒F=UK!1*Z C߽Dݱ4h4ȵwֶ2ٷE=He[pļ0mSVk0JZf|r EŠ6BsǵfȞ8>NʂʛN˂˟ḒjQβ,Lpϱ'_{ ?tҰF}ӕӴoԒ3k֠QדW؁ؑ٦ٿKޣ$P߃!&Zx'gs|S=O>X2 )߭B .0؋"Xߊ, . O7ߗ8G07*UO!NV౐ߏ 8GE 05) .E:JD;>3ߋ߈ߞߞߋߋ .TP .TP>XF Y3Y*>?ߘཆҝඋT9999999999999RBߋߋ3RBO .7XE, .6؋PZ . 8 !Z?7E,? .6؋6  EP .0BE, .T 8 PZײo,/; .ߋZ .Z . Z .0.Z .6Z .6 Z .6 Z7!SN:Hߒ"߽ .NTZN7؋GZU .0BZ .7PZ?7E,GZ౐P ,I"౐GE7ߘ9Nh 0?@@ABBBCCDEFGGHIJϯJJKϯKKLMNOPQRRSSSTUUUUUxyz{|}~߄߅߆߈߉ߊߋߖߖߗߞߟߢߦߧߴ6:6?ABU??GE 05);>=O>X2 )߭B .0؋"Xߊ, . O7ߗ8G07*UO!NV౐ߏ 8GE 05) .E:JD;>3VE .TP .TP>XF Y3Y*>?ߘཆҝඋT9999999999999RBPLUS3DOS(XXYZ[\]^_`abcdefghijklmnopqrstuv0,ROQ2@Xv 8UUUU DDDDDDDD@  @"D"DD"D"<<<<@@@ 0`8NN666xx0f8larch the "+b$(code-143) t(y,x)2;"4: Attack!" ^code=149recr=c(y,x):a(recr,6)recr12 2;"5: Greet "+f$(recr) !Xm$(y,x)>100da(char,1)<2500 2;"6: Recruit ";m$(y,x);" men" ".a(char,9 )2;"7: Eat and Rest." $P#1;1;6;1,0;" Any other key to update play " & 20 0 i$="1" 1(i$="2"45-:400:500 2i$="3"1000:500 3(i$="4"t(y,x)ind=0:2000 41recri$="5"char=recr:a(recr,6)=1 5ri$="6"a(char,1)<2500 m$(y,x)>100da(char,1)=a(char,1)+m$(y,x):m$(y,x)=1 :i$="7"a(char,9 )a(char,2)=a(char,2)+502:a(char,9 )=a(char,9 )-1:a(char,2)>249a(char,2)=249 W 500 z$=f$(char):15 =z$=n$(char)+" searches the "+b$(code-143):30 pres=0:p(12 ):i=1Track-Info  N 11 :a(i,1)a(i,4)=xa(i,5)=yicharpres=pres+1:p(pres)=i i:pres1100L ?end=(5pres>5)+(prespres5):start=1 z$=("He"char8)+("She"char=8)+(" also"start=6)+" finds ":i=startend:z$=z$+f$(p(i))+" with "+a(p(i),1)+" men"+(", "iend)+("and "end>1i=end-1):i:30 5pres>5start=1end=pres:start=6 ~9 :500:10 :z$=f$(char):15:z$=n$(char)+" continues to search the "+b$(code-143):30 L3x$(y,x)148x$(y,x)1491200 Q'a(c(y,x),1)m$(y,x)=1 VIa(c(y,x),6)a(char,1)<2500 m$(y,x)1m$(y,x)<100dm$(y,x)=(100d+r(155)):z$="Presently, "+m$(y,x)+" freemen of "+s$(c(y,x))+" arrive wishing to join the army. As a sign of good faith they offer food and water to the warriors.":30:a(char,9 )=a(char,9 )+1 afdtot<75000|z$="A herd of wild deer is spotted and warriors are sent to catch them.":30:fd=1:a(char,9 )=a(char,9 )+3:9 :0:10 : bfltot<70000z$="A cache of hidden gold is discovered and distributed amongst the warriors.":30:fl=1:9 :0:10 : cfgtot<65000z$="Off to the East can be seen a rabbit warren .... soon the warriors return with some freshly killed rabbits":30:fg=1:a(char,9 )=a(char,9 )+1:9 :0:10 : dfmtot<60000`z$="Nothing of any importance is found, only the corpse of some dead animal.":30:fm=1:9 :0:10 : e fhtot<55000z$="During the search a pack of rats was disturbed and they ran off with some of the army's supplies":30:fh=1:a(char,9 )=a(char,9 )-1:a(char,9 )<0a(char,9 )=0:9 :0:10 : ffrtot<50000Pz$="The remains of an Elfin scouting party is found and they are soon buried in shallow graves.":30:fr=1:9 :0:10 : gfptot<45000ȯz$="The search reveals a flock of wild birds roosting nearby. Before they can fly off they are quickly slaughtered.":30:fp=1:a(char,9 )=a(char,9 )+2:9 :0:10 : hfstot<40000@z$="A hunting party of Orcs is discovered and soon put to flight.":30:fs=1:9 :0:10 : ifatot<35000z$="A wolf pack is encountered and during the ensuing battle the wolves make off with some of the food.":30:fa=1:a(char,9 )=a(char,9 )-1:a(char,9 )<0a(char,9 )=0:9 :0:10 : jfttot<300000uz$="The remains of a small campfire still smoulder nearby but there is no sign of those who had lit it.":30:ft=1:9 :0:10 : kfvtot<27000xiz$="A scouting party returns bearing the carcasses of some wild cattle that they have recently killed.":30:fv=1:a(char,9 )=a(char,9 )+3:9 :0:10 : lfqtot<25000az$="Some wild boar are spotted but they run off before they can be caught.":30:fq=1:9 :0:10 : mfutot<20000 Nz$="Much to the delight of all, a hidden hoard of supplies belonging to the 'Riders of the Dark' is discovered nearby.":30:fu=1:a(char,9 )=a(char,9 )+3:9 :0:10 : Xtutot<15000:z$="An aged manuscript is discovered which tells of a secret passage through the mountains to the Keep of the Dark. Immediately couriers are sent to all existing armies ordering them to search the Dark Mountains for this passage.":30:tu=1:xtu=7:ytu=10 +r(6):9 :0:10 : ,in=1x<5y>11 y<15 ,tu((inx=xtuy=ytu)(inx=4y=13 ))a(char,4)=(4in)+(xtuin):a(char,5)=(13 in)+(ytuin):z$=n$(char)+" discovers the secret passage and after many hours in the darkness, "+("he"char8)+("she"char=8)+" emerges into daylight":30:in=in 100d:z$=("His"char8)+("Her"char=8)+" task complete, the search is brought to a halt":30:2090* :armies=0:battle=1:fk=char:vx=a(fk,4):vy=a(fk,5):z$="The Battle ofTrack-Info  N  "+s$(c(vy,vx)):15:z$="The sounds of battle ring through the domain of "+s$(c(vy,vx)):30::indind=0:2003 Si=170F:u(i,1)u(i,4)=vxu(i,5)=vym=i:2003 i Ӳz$="In the Battle of "+s$(c(vy,vx))+", "+n$(fk)+" and "+("his "fk8)+("her "fk=8)+a(fk,1)+" men fought bravely against an army "+u(m,1)+" strong"  30: իus=((a(fk,1)*a(fk,2)*a(fk,3)/62500$)):them=(u(m,1)*u(m,2)/300,):us=us*(1+(x$(vy,vx)=149vy13 vx2)) hsup=us-them:theirloss=r(100d)+(supsup>0):theirloss>u(m,1)theirloss=u(m,1) Ut(vy,vx)=t(vy,vx)-theirloss:u(m,1)=u(m,1)-theirloss:tot=tot-theirloss Wourloss=r(100d)-(supsup<0):ourloss>a(fk,1)ourloss=a(fk,1) %a(fk,1)=a(fk,1)-ourloss a(fk,3)=a(fk,3)-(502ourloss>100d)+(502ourloss<40():a(fk,3)0a(fk,3)=0 ?a(fk,2)=(a(fk,2)-502)a(fk,2)502 <u(m,2)=(u(m,2)-502)u(m,2)502 2a(fk,3)>248a(fk,3)=248  fkchar a(fk,1)z$=n$(fk)+" was slain in battle and soon the hooded crows will descend to pick clean the bones.":30:2090* z$=n$(fk)+"'s warriors slew "+theirloss+" of the enemy, and lost "+(ourloss ourloss)+("no"ourloss)+(" men"ourloss>1)+(" man"ourloss=1):30 * 9 :500::10  h:lives=0:char=0:z$="SELECT CHARACTER":code=154:16:'':i=111 xa(i,6)lives =lives+(1a(i,1)):4;(2a(i,1));(64@+i);":";7;f$(i) i lives6500d M'4;"L: Key to map symbols"'4;"M: Pause the Action.":10 %20:i$<"a"i$>"m"5020  i$="l"7500L:5000 Li$="m"#1;1,13 ;"PAUSED":0:10 :5000 7a(i$-96`,6)char=i$-96`:500  5000 pz$="The Dark Tower has been captured and the 'Riders of the Dark' put to the sword. Victory has gone to the Elves !!"::30 z 6010z dz$="The last of the great Elfin warriors lies slain amidst the dust of battle. The 'Riders of the Dark' have triumphed !!!"::30 n 6510n L/code=149:z$="KEY TO SYMBOLS":16 QRi=144153:7;٨i(i);i;10 ;0;b$(i-143):i Vq7;154;10 ;"Riders of the Dark"'7;1;154;0;10 ;"Elfin army" [ 9 :500:10 : @59999_:0,0;:"MAP"x$():0,0;:"PRINT":0,0;:"boggit":0,0;:"UDGS":236066\,480:236077\,241:7:7:0 "Ġ::m$(22,32 ):f$(12 ,20):p$(10 ,20):v$(10 ,21):a(12 ,9 ):u(70F,5):t(22,32 ) "Oi=112 :x,y,f$(i,3):f$(i,1)=x:f$(i,2)=y:i "آz$="THE ELFIN WARS":code=149:16:z$="Dark clouds gather in the West":7,0;:40(:z$="and beneath these clouds the":8,0;:40(:z$="'Riders of the Dark' take to":9 ,0;:40(:z$="their fearsome steeds.":10 ,0;:40(:502:z$=f$(1):12 ,0;:40(:z$="senses the danger and summons":13 ,0;:40(:z$="his warriors for battle.....":14,0;:40(:z$="Soon the land will resound to":16,0;:40(:z$="the clash of steel upon steel.":17,0;:40(:z$="Rodric Waits ...":19,0;:40( "Oi=110 :x,y,p$(i,3):p$(i,1)=x:p$(i,2)=y:i "0ind=0:fd=0:fg=0:fh=0:fp=0:fa=0:fv=0:fu=0:fl=0:fm=0:fr=0:fs=0:ft=0:fq=0:tu=0:xtu=0:ytu=0:in=0:armies=0:a(1,6)=1:n=1:battle=0:char=1 "i=112 :a(i,4),a(i,5):a(i,7)=a(i,4):a(i,8)=a(i,5):a(i,1)=1000+r(1000):a(i,2)=249:a(i,3)=249:i #;i=110 :x,v$(i,2):v$(i,1)=x:i # i=170F:uTrack-Info  N (i,1)=1000+r(1000):t(13 ,2)=t(13 ,2)+u(i,1):u(i,2)=200:u(i,3)=r(11 ):u(i,4)=2:u(i,5)=13 :i:tot=t(13 ,2) #9 :0 #' 5000 #($8,17,"RodricTalltress" #)$8,17,"WilletMarshlans" #*%8,18,"CradicCullwatter" #+$8,17,"AlleynBorromist" #,%9 ,18,"PelanorAllertonn" #-$8,17,"SulricOakennway" #.$8,17,"TadeusKrottwood" #/&10 ,18,"MorgannaSaltmire" #0#7,16,"UllarBlackways" #1#7,16,"AndraWasslings" #2"6,15,"RoagHeartland" #3#7,16,"GoraxDarkheart" #d3,10 ,"mountain" #e'8,20,"upon rolling downs" #f3,7,"water" #g 6,13 ,"in woodland" #h!8,14,"in a village" #i"10 ,14,"at the tower" #j%6,18,"in green meadows" #k%8,18,"in a dark forest" #l#12 ,15,"on board ship" #m$8,17,"on a flat plain" #n14,20,4,20,23,21,30,21,25,14,31,11 ,10 ,9 ,17,5,28,3,15,2,2,2,2,13 #o13 ,"fit & strong" #p17,"in good strength" #q15,"slightly tired" #r14,"tired & weary" #s17,"weak & exhausted" #t17,"ready for battle" #u16,"in good spirits" #v18,"lacking in spirit" #w11 ,"despondent" #x13 ,"without hope" #14,20,4,20,23,21,30,21,25,14,31,11 ,10 ,9 ,17,5,28,3,15,2,2,2,2,13 '{"WARS"8000@:"MAP"x$():"PRINT"60000`,370r:"boggit"620000,768:"UDGS"65368X,88X  y,f$(i,3):f$(i,1)=x:f$(i,2)=y:i "آz$="THE ELFIN WARS":code=149:16:z$="Dark clouds gather in the West":7,0;:40(:z$="and beneath these clouds the":8,0;:40(:z$="'Riders of the Dark' take to":9 ,0;:40(:z$="their fearsome steeds.":10 ,0;:40(:502:z$=f$(1)PLUS3DOSE@6W PLUS3DOSr`6Track-Info  N PLUS3DOS06PLUS3DOSXX6>BB<DHpHDB)BCD4ZEN A *+,-./0123456789BCD4ZEN A Z:;<=>?@ABCDEBCD4ZEN B FUDGS MAP BAKLOADER DISK WARS GHIJKLMNOPQWARS  RSTrack-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N         Track-Info ! N!!!!!!!!! Track-Info " N""""""""" Track-Info # N######### Track-Info $ N$$$$$$$$$ Track-Info % N%%%%%%%%% Track-Info & N&&&&&&&&& Track-Info ' N'''''''''