ZXTape! 2TTHE WAR OF THE SHIRESZX COMPUTING 11,12/86-01/871987ENGLISHSTRATEGYNONEKSHIRES ;8@s5 =8n$(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(x )=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) Short Subroutines n#1;7;1;1,0,,1,4;1;6;"<<< ANY KEY TO CLEAR >>>": *.02{# >,39':.02{# >,40(: Decorated Page Title .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  Keyboard Input  battle !90Z:i$=:i$""10  100d i$=""20   Word-wrap z$=z$+".":prt=60200(: 'Center String Printing ( p();z$: , Print Map - 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;" ": 1Display Armies 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 cReal time action dda(n,2)=a(n,2)+(5a(n,2)<245):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 engaged in battle":#1;1;1,0,,1,0;p();z$:1;vy-1,vx-1;1;8;1;" ";8;:360h:0;1;8;0;" ":9 }+ind=1:2005-(5fk=char)  Movement a(char,1)  battle  20  i$="0" 1i$="1"502:20:45-:400 i$<"5"i$>"8"400 Da(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 0Character descriptions and options Nx=a(char,4):y=a(char,5):battle=0:z$=f$(char):15 la(char,1)z$=f$(char)+" was slain in the Battle of "+s$(c(y,x)):30:9 :600X: Nz$=n$(char)+" stands "+d$(code-143)+" in the shire of "+s$(c(y,x)) a(char,1)z$=z$+". "+("He"char8)+("She"char=8)+" commands "+a(char,1)+" men-at-arms who are "+q$(char)+". At present they are "+v$(char)  30 *y=13 x=2t(y,x)6000p mt(y,x)z$=n$(char)+" is confronted by "+t(y,x)+" warriors of Darkness, preparing to do battle":30 ':z$="OPTIONS":40(::2;"1: Change character"'2;"2: View map or Move"'2;"3: Explore 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" "6a(char,9 )2;"7: Distribute provisions" $P#1;1;6;1,0;"< Any other key for fresh news >" & 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 Search Location 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 Apres>5start=1end=pres:start=6:1020 ~9 :600X: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 V2a(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 bearing provisions for the army, and offer themselves for recruitment":30:a(char,9 )=a(char,9 )+1 ,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 a secret tunnel. After passing through many dark passages, "+("he"char8)+("she"char=8)+" emerges into daylight":30:in=in Yz$=("He"char8)+("She"char=8)+" finds nothing else":30:2090*  Battle! :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 clash of steel upon steel rings through the Shire 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 5a(fk,1)x$(a(fk,8),a(fk,7))=" " a(fk,3)=a(fk,3)-(502ourloss>100d)+(502ourloss<502):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":30:2090* z$=n$(fk)+" slew "+theirloss+" of the enemy, and lost "+(ourlossourloss)+("no"ourloss)+(" men"ourloss>1)+(" man"ourloss=1):30 * 9 :600X::10  Select Character Menu h:lives=0:char=0:z$="SELECT CHARACTER":code=154:16:'':i=111 wa(i,6)lives=lives+(1a(i,1)):4;(2a(i,1));(64@+i);":";7;f$(i) i lives6500d >'4;"L: Key to map symbols"'4;"M: Suspend play" %20:i$<"a"i$>"m"5020  i$="l"7500L:5000 Si$="m"#1;1,8;"PLAY SUSPENDED":0:10 :5000 7a(i$-96`,6)char=i$-96`:500  5000 o Victory! ppz$="The Keep of Darkness is captured, and the foe defeated. Letall freemen of the Shires rejoice!"::30 z 6010z c Defeat! dQz$="The Shires are defeated by the forces of Darkness. All is lost"::30 n 6510n KDisplay Map Symbols L3code=149:z$="KEY TO MAP SYMBOLS":16 QRi=144153:7;٨i(i);i;10 ;0;b$(i-143):i Vi7;154;10 ;"enemy army"'7;1;154;0;10 ;"Shire army" [ 9 :600X:10 : ?4Load Map Array and Code and Initialise @G7:7:0:59999_:"MAP"x$():"PRINT":"UDGS" "Ġ::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 WAR OF THE SHIRES":code=149:16:z$="Thunder rumbles in the West":7,0;:40(:z$=f$(1):10 ,0;:40(:z$="prepares for battle":11 ,0;:40( "Oi=110 :x,y,p$(i,3):p$(i,1)=x:p$(i,2)=y:i "ind=0:tu=0:xtu=0:ytu=0:in=0:armies=0:a(1,6)=1:battle=0:char=1:n=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,"RolandGreenways" #)$8,17,"RanolfDeepmeads" #*%8,18,"MorganClearwater" #+$8,17,"AylwinEastlands" #,%8,19,"AldredLittlemead" #-%8,18,"AlaricHighcliffe" #.$8,17,"EgbertNorthwood" #/&10 ,18,"MarianneDeepwood" #0#7,16,"EdgarBleakways" #1$8,17,"HubertNorthings" #2#9 ,16,"WilliamHarland" #3"7,15,"UlricDarkness" #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 ,13 ,"at the keep" #j%6,18,"in green meadows" #k%8,18,"in a pine forest" #l#12 ,15,"on board ship" #m8,12 ,"on a 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 #o15,"full of vigour" #p15,"in good fettle" #q15,"a litle weary" #r6,"weary" #s!21,"in sore need of rest" #t!21,"in excellent spirits" #u16,"in good spirits" #v 20,"slightly dispirited" #w16,"very dispirited" #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 ']"SHIRES"8000@:"MAP"x$():"PRINT"60000`,370r:"UDGS"65368X,88X  f@MAP @s ;PRINT r`sxt>k >*K\ >~2͚:#{{z{>>>>>*K\~Z8͸+#~2##"ʵ͒͵*[":G:2*~ B#":=2h:!ډ:2>*~ҥ{2#~ ¯ß++Ù>[K< > w:UDGS XXs Z<4vri8t8ff0l:n|$<~44Z~fD(P88|<|~|UUMDSHIRES U@s5Un$(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) Short Subroutines n#1;7;1;1,0,,1,4;1;6;"<<< ANY KEY TO CLEAR >>>": *.02{# >,39':.02{# >,40(: Decorated Page Title .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  Keyboard Input  battle !90Z:i$=:i$""10  100d i$=""20   Word-wrap z$=z$+".":prt=60200(: 'Center String Printing ( p();z$: , Print Map - 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;" ": 1Display Armies 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 cReal time action dda(n,2)=a(n,2)+(5a(n,2)<245):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 engaged in battle":#1;1;1,0,,1,0;p();z$:1;vy-1,vx-1;1;8;1;" ";8;:360h:0;1;8;0;" ":9 }+ind=1:2005-(5fk=char)  Movement a(char,1)  battle  20  i$="0" 1i$="1"502:20:45-:400 i$<"5"i$>"8"400 Da(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 0Character descriptions and options Nx=a(char,4):y=a(char,5):battle=0:z$=f$(char):15 la(char,1)z$=f$(char)+" was slain in the Battle of "+s$(c(y,x)):30:9 :600X: Nz$=n$(char)+" stands "+d$(code-143)+" in the shire of "+s$(c(y,x)) a(char,1)z$=z$+". "+("He"char8)+("She"char=8)+" commands "+a(char,1)+" men-at-arms who are "+q$(char)+". At present they are "+v$(char)  30 *y=13 x=2t(y,x)6000p mt(y,x)z$=n$(char)+" is confronted by "+t(y,x)+" warriors of Darkness, preparing to do battle":30 ':z$="OPTIONS":40(::2;"1: Change character"'2;"2: View map or Move"'2;"3: Explore 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" "6a(char,9 )2;"7: Distribute provisions" $P#1;1;6;1,0;"< Any other key for fresh news >" & 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 Search Location 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 Apres>5start=1end=pres:start=6:1020 ~9 :600X: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 V2a(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 bearing provisions for the army, and offer themselves for recruitment":30:a(char,9 )=a(char,9 )+1 ,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 a secret tunnel. After passing through many dark passages, "+("he"char8)+("she"char=8)+" emerges into daylight":30:in=in Yz$=("He"char8)+("She"char=8)+" finds nothing else":30:2090*  Battle! :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 clash of steel upon steel rings through the Shire 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 5a(fk,1)x$(a(fk,8),a(fk,7))=" " a(fk,3)=a(fk,3)-(502ourloss>100d)+(502ourloss<502):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":30:2090* z$=n$(fk)+" slew "+theirloss+" of the enemy, and lost "+(ourlossourloss)+("no"ourloss)+(" men"ourloss>1)+(" man"ourloss=1):30 * 9 :600X::10  Select Character Menu h:lives=0:char=0:z$="SELECT CHARACTER":code=154:16:'':i=111 wa(i,6)lives=lives+(1a(i,1)):4;(2a(i,1));(64@+i);":";7;f$(i) i lives6500d >'4;"L: Key to map symbols"'4;"M: Suspend play" %20:i$<"a"i$>"m"5020  i$="l"7500L:5000 Si$="m"#1;1,8;"PLAY SUSPENDED":0:10 :5000 7a(i$-96`,6)char=i$-96`:500  5000 o Victory! ppz$="The Keep of Darkness is captured, and the foe defeated. Letall freemen of the Shires rejoice!"::30 z 6010z c Defeat! dQz$="The Shires are defeated by the forces of Darkness. All is lost"::30 n 6510n KDisplay Map Symbols L3code=149:z$="KEY TO MAP SYMBOLS":16 QRi=144153:7;٨i(i);i;10 ;0;b$(i-143):i Vi7;154;10 ;"enemy army"'7;1;154;0;10 ;"Shire army" [ 9 :600X:10 : ?4Load Map Array and Code and Initialise @G7:7:0:59999_:"MAP"x$():"PRINT":"UDGS" "Ġ::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 WAR OF THE SHIRES":code=149:16:z$="Thunder rumbles in the West":7,0;:40(:z$=f$(1):10 ,0;:40(:z$="prepares for battle":11 ,0;:40( "Oi=110 :x,y,p$(i,3):p$(i,1)=x:p$(i,2)=y:i "ind=0:tu=0:xtu=0:ytu=0:in=0:armies=0:a(1,6)=1:battle=0:char=1:n=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,"RolandGreenways" #)$8,17,"RanolfDeepmeads" #*%8,18,"MorganClearwater" #+$8,17,"AylwinEastlands" #,%8,19,"AldredLittlemead" #-%8,18,"AlaricHighcliffe" #.$8,17,"EgbertNorthwood" #/&10 ,18,"MarianneDeepwood" #0#7,16,"EdgarBleakways" #1$8,17,"HubertNorthings" #2#9 ,16,"WilliamHarland" #3"7,15,"UlricDarkness" #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 ,13 ,"at the keep" #j%6,18,"in green meadows" #k%8,18,"in a pine forest" #l#12 ,15,"on board ship" #m8,12 ,"on a 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 #o15,"full of vigour" #p15,"in good fettle" #q15,"a litle weary" #r6,"weary" #s!21,"in sore need of rest" #t!21,"in excellent spirits" #u16,"in good spirits" #v 20,"slightly dispirited" #w16,"very dispirited" #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 ']"SHIRES"8000@:"MAP"x$():"PRINT"60000`,370r:"UDGS"65368X,88X     RolandGreenways RanolfDeepmeads MorganClearwater AylwinEastlands AldredLittlemead AlaricHighcliffe EgbertNorthwood MarianneDeepwood EdgarBleakways HubertNorthings WilliamHarland UlricDarkness   mountain upon rolling downswater  in woodland in a village at the keep in green meadows in a pine forest on board ship  on a plain  full of vigour in good fettle a litle weary weary in sore need of restin excellent spiritsin good spirits slightly dispirited very dispirited without hope ! x  Y b  F  P    e f  k     `  4   p . {  '                2     x  V<     .X    l 2     ) Z  n      /    k   `u- %m4 4xyodnttrmieattlhanoHgivemS   recre? hZRoland of GreenwaysI ;MAP @sj 7PRINT r`sxZt>k >*K\ >~2͚:#{{z{>>>>>ɐ*K\~Z8͸+#~2##"ʵ͒͵*[":G:2*~ B#":=2h:!ډ:2>*~ҥ{2#~ ¯ß++Ù>[K< > Ʋ6UDGS XXs Z<4vri8t8ff0l:n|$<~44Z~fD(P88|<|~|UUM