Lord + +?-wLord of Darkness loader by Philip Dutre from ZX Compting, May 1986 0:0:0:  63455 +13 ,0;:"CHARSET"63592h ('13 ,0;:"udg"64360h 2 13 ,0;:"Darkness" &CHARSET $$$~$$~$>(> >bd&F(*D:  >>> $FJR$ @\"B< |BB<~ @` >>_8BBIHgH))bj!@:*DH @`PHP`@@ &J ((DDdTLDD`PHP`PH*PP8DdTLdTLTTdhp@@  $D $$ #AQY#   0/O_? !#$'#!'`'//{3#pp000p 3G$Ą?ooo/ ``Á$8pg>Ƃ ``Darkness 6XLord of Darkness by Philip Dutre from ZX Computing, May 1986 77:236066\,104h:236077\,247 D21,9 ;1;"Stop the tape":n=1200:n 15:n=010 :a:23300[+n,a:n:33!,160,88X,6,128,546,0,35#,16,251,201  cl=7 Ja$="Press any key to start this fantasy adventure...Lord of Darkness..." H21,0;a$(32 ):23306 [,cl+64@:23300[ !ob$=:b$=""a$=a$(2)+a$(1):cl=cl-1+7*(cl=1):n=120:n:32 (B:10 ,4;2;6;"Please wait a moment ..." +9000(#:8300l - 9500% 28000@:8600! **Main Program********* Paction=(liferg/10 ):11 ,23;" ";11 ,23;action 17,1;"Move cursors Fight ";18,1;"Examine Left,Right view";19,1;"Take Stop ";20,1;"Drop Other command ";21,1;" " a$=:a$=""1020 Da=a$:a<535(a>568a<100d)a>116t1020  a=115s1100L a=a-524-43+*(a>99c):"2000,2000,2000,2000,2200,2600,2300,1020,1020,1020,1020,1020,2100,1020,1020,3000,1020,1020,2100,1020,2500"(5*a-45*a-1) "63584`=08750." 511 ,23;" ";11 ,23;action +liferg+2*action08650! action10 1100L $ 1010 LBliferg=liferg+2*action:liferg>104hliferg=104h Qliferglifold8550f! **Action Characters**** =a$="The characters are performing actions now.":8400 n=129:(63452+4*n)=r(n>12 o(8,1)0)1300:63584`=0liferg08650!+100d*(63584`=0) n =n=32 34":(63452+4*n)=r1300 n ιr=43+o(10 ,1)=502a$="The magician says: Bring me the ring, the book and the sceptre, and I will help you to kill the Lord of Darkness.":8400 :8450! Ӏr=24wiz=0a$="The wizard says: I have the power to kill the Balrog. Shall I attack him?":8400 :8450! 8700!:1000 sm=1+(n>12 )+(n>22)+(n>25)+(n>29)+(n>30)+(n>31)+(n>32 )+(n>33!) Bad=138+6*(m-3*(m>3)-3*(m>6)) <xco=(63453+4*n):yco=(63454+4*n) o=1b(m) #?(wkx-xco)*(wkx-xco)+(wky-yco)*(wky-yco)51400x: (0dx=(xcowkx):dy=(ycowky) -c23675{\,8+168*(m>3)-88X*(m>6):23676|\,254+(m>6) 21;7;xco-2,yco;ad+(ad+1);xco-1,yco;(ad+2)+(ad+3);xco,yco;(ad+4)+(ad+5) 7xco=xco+dx:yco=yco+dy:1;3;xco-2,yco;ad+(ad+1);xco-1,yco;(ad+2)+(ad+3);xco,yco;(ad+4)+(ad+5) <663453+4*n,xco:63454+4*n,yco Ao F xb=(63455+4*n)-(liferg/20)-2*(o(1,1)=0)-(o(3,1)=0)-2*(o(2,1)=0)-10 *(o(10 ,1)=0)+(*6)-2 b0liferg=liferg-10 *b:8550f!:a$="You're attacked by the "+p$(m)+(" He hit you."liferg>0)+(" He killed you... you're dead."liferg0):1490 {b=(63455+4*n)+b:a$="You're attacked by the "+p$(m)+" You "+("hit him."b>0)+("killed him."b0) .63455+4*n,b:b063452+4*n,0:23675{\,8+168*(m>3)-88X*(m>6):23676|\,254+(m>6):1;7;xco-2,yco;ad+(ad+1);xco-1,yco;(ad+2)+(ad+3);xco,yco;(ad+4)+(ad+5) 8400 :8450!: **Movement************* `nx=wkx+1*(a=2)-1*(a=3):ny=wky+1*(a=4)-1*(a=1) ;(nx=8(ny=11 (r$(r,dir)="1")))nx=15 nx+ny-16<0(nx=11 ny=4r$(r,dir-1+4*(dir=1))="1")(nx=12 ny=3r$(r,dir-1+4*(dir=1))="1"a=1) nx-ny+70(nx=11 ny=18r$(r,dir+1-4*(dir=4))="1")(nx=12 ny=19r$(r,dir+1-4*(dir=4))="1"a=4) n=01:(22528X+32 *nx+ny+n*(a1)*(a4)+(a=4))=5ƾ(22528X+32 *(nx-1)+ny+n*(a1)*(a4)+(a=4))=5 (22528X+32 *nx+ny+n*(a1)*(a4)+(a=4))=3ƾ(22528X+32 *(nx-2)+ny+n*(a1)*(a4)+(a=4))=3 n ~nx=8(nx=11 ny=4)(nx=12 ny=3)(nx=11 ny=18)(nx=12 ny=19)2050 23675{\,16:23676|\,252:8;1;wkx,wky;(wkd+4)+(wkd+5);wkx-1,wky;(wkd+2)+(wkd+3);wkx-2,wky;(wkd)+(wkd+1) Kwkd=wkd*(a=3a=2)+152*(a=1)+158*(a=4) 8;1;nx,ny;(wkd+4)+(wkd+5);nx-1,ny;(wkd+2)+(wkd+3);nx-2,ny;(wkd)+(wkd+1) .wkx=nx:wky=ny:action=action-1-dark: Fexit=1*(ny4)+2*(nx=8)+3*(ny18) sum=dir+exit:r=r-7*(sum=3sum=7)+7*(sum=5)-1*(sum=2sum=6)+1*(sum=4) awkx=12 +2*(exit=2):wky=4+7*(exit=2)+14*(exit=1) Jwkd=wkd*(exit=2)+152*(exit=1)+158*(exit=3) %action=action-1:8100: 4**Left Right view****** 9[18,16+5*(a=19);1;("Left"a=13 )+("Right"a=19) >ddir=dir+(-1+4*(dir=1))*(a=13 )+(1-4*(dir=4))*(a=19) H(x=wkx:y=wky:2190:wkx=x:wky=y M(x=chx:y=chy:2190:chx=x:chy=y Rvn=110 :o(n,1)0x=o(n,2):y=o(n,3):2190:o(n,2)=x:o(n,3)=y Sn \n=134":(63452+4*n)0x=(63453+4*n):y=(63454+4*n):2190:63453+4*n,x:63454+4*n,y ]n z 8100  t=(11 *x+4*y-99c)/(x-5):d=t-7:e=(x*x-18*x+81Q+y*y-2*t*y+t*t):f=5*(1+(y*y-22*y+121y)/(x*x-10 *x+25)) Ya=13 x=(9.5+5*d/8):y=(6.5P+x-e*(2*x-10 )/f) Ya=19x=(14.5h-5*d/8):y=(16-x+e*(2*x-10 )/f)  **Drop***************** 9darka$="It's too dark to drop something.":2280 nobject=1a$="You can't drop a thing, but if you insist, take something and then drop it.":2280 x=2:y=23 x,y;1;8;"+" a$="Move the cursor with the cursor keys to the object you want to drop, then press ENTER, or DELETE to return to main menu.":8400 =a$=:(a$<"5"a$>"8")Ưa$12 Ưa$13 2215 ,a$=12 x,y;1;8;"+": a$=13 2230 x,y;1;8;"+" `x=x-(a$="7")*(x2)+(a$="6")*(x7):y=y-(a$="5")*(y23)+(a$="8")*(y26) x,y;1;8;"+"  2215 ?nr=x-1-(x2*(x/2))+((y-23)/2) nrobjecta$="Do you want to drop some air??? I don't think this has a significant effect. Press any key to drop an existing object.":8400 :8450!:2210 a$="You drop the "+o$(q(nr)) 23675{\,96`+88X*(q(nr)5):23676|\,252+(q(nr)6):a=140+4*(q(nr)-5*(q(nr)6)):5;1;wkx-1,wky;a+(a+1);wkx,wky;(a+2)+(a+3) q(nr)=4lit=0 ho(q(nr),1)=r:o(q(nr),2)=wkx:o(q(nr),3)=wky:object=object-1:q(nr)=q(object) #action=action-1:85004! 8400 :8450!: **Fight**************** x=3:y=2 x,y;1;8;"+" a$="Move the cursor with the cursor keys to the creature you want to attack, then press ENTER, or DELETE to return to main menu.":8400 =a$=:(a$<"5"a$>"8")Ưa$13 Ưa$12 2320 ,a$=12 1;8;x,y;"+": Ba$=13 a$="Please wait a moment.":8400 :2330 x,y;1;8;"+":x=x+(a$="6")*(x14)-(a$="7")*(x3):y=y+(a$="8")*(y21)-(a$="5")*(y2):x,y;1;8;"+":2320 m=02:o=01:n=134":(63453+4*n)-m=xƾ(63454+4*n)+o=yƾ(63452+4*n)=r2335  n:o:m a$="You are using your weapons against the air. Search an opponent before you want to try again!":8400 :8450!:2315 ((63453+4*n)-wkx)*((63453+4*n)-wkx)+((63454+4*n)-wky)*((63454+4*n)-wky)>5a$="Unless you have a very long weapon, the creature is too far away to attack it.":8400 :8450!:2315 $action=action-5:b=(liferg/20)+2*(o(1,1)=0)+(o(3,1)=0)+(o(2,1)=0)+10 *(o(10 ,1)=0)-(63455+4*n)+(*6)-2 %xb$=p$(1+(n>12 )+(n>22)+(n>25)+(n>29)+(n>30)+(n>31)+(n>32 )+(n>33!)) &x,y;1;8;"+" +b0liferg=liferg+b*10 :8550f!:a$="You attacked the "+b$+" "+("but he hit you."liferg>0)+("but this creature killed you."liferg0):2390V .a=(63455+4*n)-b /`a$="You attacked the "+b$+" "+("He is wounded."a>0)+("You killed him."a0) 363455+4*n,a 8a>02390V 963452+4*n,0 =U23675{\,8+168*(n26)-88X*(n32 ):23676|\,254+(n32 ):o=138+6*(n12 (n26n29)n=32 )+12 *((n13 n22)n=30n=33!)+18*((n23n25)n=31n=34"):x=(63453+4*n):y=(63454+4*n) Bv1;7;x-2,y;o+(o+1);x-1,y;(o+2)+(o+3);x,y;(o+4)+(o+5) G 8700! V8400 :8450!: _ **Take***************** 9darka$="It's too dark to take something.":2590 _object=7a$="You're carrying too much. Drop something and then try again.":2590 x=3:y=2 x,y;1;8;"+" ڋa$="Move the cursor with the cursor keys to the object you want to take, then press ENTER, or DELETE to return to main menu.":8400 =a$=:(a$<"5"a$>"8")Ưa$13 Ưa$12 2524 a$=13 2530 ,a$=12 x,y;1;8;"+": x,y;1;8;"+":x=x+(a$="6")*(x14)-(a$="7")*(x3):y=y-(a$="5")*(y2)+(a$="8")*(y21):x,y;1;8;"+":2524 xm=01:o=01:n=110 :o(n,2)-m=xo(n,3)+o=yo(n,1)=r2540 n:o:m \a$="I can't see any portable object at this position.":8400 :8450!:2522 (o(n,2)-wkx)*(o(n,2)-wkx)+(o(n,3)-wky)*(o(n,3)-wky)>5a$="The object is too far away to take it. Press any key to continue.":8400 :8450!:2522 a$="You take the "+o$(n) Lq(object)=n:object=object+1:85004!:x,y;1;8;"+" {1;7;o(n,2),o(n,3);(a+2)+(a+3);o(n,2)-1,o(n,3);a+(a+1) o(n,1)=0  8700! action=action-3 8400 :8450!: (**Examine************** +Jdarka$="You cannot examine objects because it's too dark.":2690 -x=3:y=2 2a$="Move the cursor with the cursor keys to the object you want to examine, then press ENTER, or DELETE to return to main menu.":8400 4x,y;1;8;"+" 7=b$=:(b$<"5"b$>"8")Ưb$12 Ưb$13 26157 8,b$=12 x,y;1;8;"+": 9b$=13 2620< :x,y;1;8;"+":x=x+(b$="6")*(x14)-(b$="7")*(x3):y=y+(b$="8")*(y21)-(b$="5")*(y2):26124 <(a$="Please wait a moment.":8400 =xn=01:m=01:o=110 :x=o(o,2)-ny=o(o,3)+mo(o,1)=r2650Z > o:m:n An=02:m=01:o=134":x=(63453+4*o)-ny=(63454+4*o)-mƾ(63452+4*o)=r2660d C o:m:n Fn=01:m=01:x=chx-ny=chy+mr=15a$="This is a wooden chest. It looks very heavy.":2690 Gm:n Kbx+y-160x9 x-y+70a$="The floor is made of stone.":2690 Psa$="The walls are made of heavy bricks. "+("There are some strange inscriptions on them."r=28):2690 Z,2651[ :n=1o:a$:n:2690 ["It's a normal sword, often used by men and elves.","This shield is made of iron. A white skull is painted on it.","This axe is probably made by dwarves.","This torch has recently been used.","This is a tinder box. It is used to make a fire." \"It is a rusty key.","There is a very valuable diamond in the ring.","A picture of a skeleton is painted on this sceptre.","It is a very old book. Perhaps something is written in it.","The sword flashes brightly." dm=1+(o>12 )+(o>22)+(o>25)+(o>29)+(o>30)+(o>31)+(o>32 )+(o>33!):2661e :n=1m:a$:n:2690 e"This is an undead skeleton. He's armed with a knife made of bone.","This person is a guard. He has a shield and a scimitar.","This creature is a bat. It has no arms but very sharp teeth and claws.","A giant spider, probably very hungry!!" f"This person is a magician.","A wizard; he looks friendly.","You can feel the presence of a being, but it is invisible.","The Lord of Darkness!!!","A wyvern, or a winged serpent." Maction=action-4:8400 :8450!:x,y;1;8;"+": **Other Commands******* -23675{\,16:23676|\,252 (a$="Enter your command...":8400 x=18:y=1:a$="" x,y;1;"" b$=:b$=""3015 ɋb$=12 a$=a$(̱a$-(x18y1)):x,y;" ":y=y-(y1)+29*(y=1x18):x=x-(y=30):3010 b$=13 a$""3020 zx,y;b$:y=y+(y30)-29*(y=30x21):x=x+(y=1):a$=a$+b$:n=110 :n:3010 'd$="":e$="":f$="":g$="":x=1 .a$(a$)=" "a$=a$(̱a$-1):3021 a$=a$+" " .a$(1)=" "a$=a$(2):3024 n=2 $a$(n)" "n=n+1:3026 x=1d$=a$(n-1) x=2e$=a$(n-1) x=3f$=a$(n-1) x=4g$=a$(n-1) a$=a$(n) +x4a$" "x=x+1:3024 n=18 Ad$=c$(n,(d$)*(d$<5)+5*(d$5))3040 n [a$="I don't understand your command. I don't know how to '"+d$+"' something.":3050 3000 +100d*n 8400 :8450!: `o(5,1)0a$="You are not able to make light without the right equipment.": !uo(4,1)0a$=("You cannot light the "+e$+"."e$"")+("You don't have anything to light."e$=""): &Qlit=1a$="The torch already burns. Don't waste your forces like this!": +na$="The torch is on fire now. Wow, what a light it gives!":lit=1:action=action-2:8100: Qo(4,1)0lit=0e$"torch"a$="This is not possible.": Oa$="You put out the torch.":lit=0:action=action-2:8100: 2f$"to"a$="I don't understand your command.": <g$"magician"rɾ63572Ta$="This is not possible.": wn=110 :e$o$(n,(e$)*(e$<11 )+11 *(e$11 ))n:a$="I don't know what a '"+e$+"' is": Uo(n,1)0a$="You don't have the "+e$+", so you cannot give it away.": (wkx-63573U)*(wkx-63573U)+(wky-63574V)*(wky-63574V)>5a$="The magician is too far away to accept the object.": ra$="The magician takes the "+e$+".":o(n,1)=502:o(n,2)=63573U:o(n,3)=63574V 4object=object-1:m=1object:q(m)nm q(m)=q(object):85004! Wo(7,1)502o(8,1)502o(9 ,1)502 8400 :8450!:a$="The wizard says: You gave me three valuable objects. I give you the magical sword to kill the Lord of Darkness.":o(10 ,1)=0:q(object)=10 :object=object+1:85004!: Hw(e$115s+117u+110nr28)(e$"yes"r24ž63576X24)a$="Nothing happens.": Re$="yes"a$="The wizard hears your answer. He says: I've just killed the Balrog in magical combat.":wiz=1:63580\,0: \va$="A secret door opens itself in the south wall.":r$(28,3)="1":r$(35#,1)="1":8100: %darka$="It's too dark to read.": Vo(9 ,1)0(e$"book"e$"")a$="You cannot read without a book.": ~a$="The book contains several chapters...three I think. Specify the chapter you want to read. (Press 1, 2 or 3)":8400 !a$=:a$<"1"a$>"3"3530 ;action=action-1:3530 +10 *(a$-480) }a$="Chapter one: This part contains a translation of rune inscriptions into normal text.":3580 -10 *(r=28) ^a$="Chapter two: 'To kill the Lord of Darkness, use the magic sword hidden in the castle'": ua$="Chapter three, it says: 'Instead of reading this book and wasting your time, you would better kill the Lord.": 8400 :8450!:a$="The signs on the wall mean:... Round as a ball, as light the best. Birth and dead, in east and west."  a$="You're doing fine..." Ir=6a$="Against undead types, an object of power can be useful." .r=28a$="Try to translate the runes." Vr=30a$="To find the book, to find the sword, enter the area of Spider Lord." $2r=46.a$="A torch can be a big advantage." )8r=47/a$="no swobd back to wall go left":?? . tge$"chest"r15a$=("You cannot open the "+e$e$"")+("I don't know what to open"e$="")+".": ~d(wkx-chx)*(wkx-chx)+(wky-chy)*(wky-chy)>5a$="You are too far from the chest to open it.": 1open=1a$="The chest is already open.": Mo(6,1)0a$="The chest is locked. You cannot open it.": a$="You open the chest. In the chest there is a book.":action=action-2:o(9 ,1)=15:open=1:23675{\,96`:23676|\,253:1;5;chx-1,chy;"";chx,chy;"": 8e$"chest"r15a$="You cannot close the "+e$: `(wkx-chx)*(wkx-chx)+(wky-chy)*(wky-chy)>5a$="The chest is too far away to close it.": 3open=0a$="The chest is already closed.": Ba$="You close the chest.":open=0:action=action-2: @**Display************** J&0:0:9 ::8 O-23675{\,16:23676|\,252 Tfn=1621:n,1;6;" ":n:6;16,0;"";16,31;"";17,0;"";17,31;"";18,0;"";18,31;"";19,0;"";19,31;"";20,0;"";20,31;"";21,0;"";21,31;"" ^J8,40(:239,0:8,41):239,0 wnq$="Object ActionLife Energy":n=214:n,27;q$(n-1);n,29;q$(n+12 ):n yYn=1104h:241,557+n:5,0:n:85004!:8100: **Draw Room************ Kdark=(r=33!r=34"r=40(r=41)r=47/)lit=0 n=215:n,2;7-7*dark;" ":n:darka$="It's very dark here. I can't see a thing.":8400 :8450!: 16,568:480,480:63?,0:480,-480:64@,104h:0,47/:127,104h:0,47/ r$(r,dir)="1"87W,104h:0,24:17,0:0,-24:87W,104h:1;16,0 r$(r,dir-1+4*(dir=1))="1"31,71G:0,33!:17,8:0,-24:31,71G:1;16,16 r$(r,dir+1-4*(dir=4))="1"160,71G:0,33!:-17,8:0,-24:160,71G:1;-16,16 ²23675{\,16:23676|\,252:1;wkx,wky;(wkd+4)+(wkd+5);wkx-1,wky;(wkd+2)+(wkd+3);wkx-2,wky;wkd+(wkd+1) .23675{\,104h:23676|\,251 r=6r=7r=13 r=14r=20r=21n=110 :x=(*6+9 ):y=16-x+(*(2*x-8)):x,y;1;7;(144+(*3)):n Ūr=25r=32 r=39'n=110 :x=(*6+9 ):y=16-x+(*(2*x-8)):x,y;1;7;(147+(*2)):n Cr=151;7;chx,chy;"";chx-1,chy;"" r=281;3,6;" ";4,5;" ";5,4;" ";6,3;" ";7,3;" " 0n=110 :o(n,1)r8160 23675{\,96`+88X*(n<6):23676|\,252+(n>5):o=140+4*(n-5*(n>5)):5;1;o(n,2)-1,o(n,3);o+(o+1);o(n,2),o(n,3);(o+2)+(o+3) n <n=134":(63452+4*n)r8180 U23675{\,8+168*(n26)-88X*(n32 ):23676|\,254+(n32 ):o=138+6*(n12 (n26n29)n=32 )+12 *((n13 n22)n=30n=33!)+18*((n23n25)n=31n=34"):x=(63453+4*n):y=(63454+4*n) v3;1;x-2,y;o+(o+1);x-1,y;(o+2)+(o+3);x,y;(o+4)+(o+5) n r=5a$="A strange voice says: Go back, the evil skeletons will kill you. Only an object of power frightens them.":8400 :8450!  l**Start new Game******* q 8335 vr=9 :dir=1:wkx=14:wky=11 :wkd=152:liferg=104h:lifold=104h:q(6):object=2:q(1)=1:wiz=0:chx=10 :chy=8:lit=0:open=0 Oo(10 ,3):n=110 :m=13:a:o(n,m)=a:m:n 0,0,0,1,10 ,8,8,14,5,2,14,16,2,14,20 36$,14,11 ,13 ,10 ,8,32 ,11 ,11 ,65A,10 ,8,502,12 ,5 &n=6345663591g:a:n,a:n 6,12 ,18,10 ,6,11 ,11 ,10 ,7,14,11 ,10 ,7,11 ,14,10 ,13 ,12 ,6,10 ,13 ,10 ,11 ,10 ,14,12 ,4,10 ,14,14,11 ,10 ,20,12 ,18,10 ,20,12 ,8,10 ,21,14,11 ,10 ,21,10 ,11 ,10 V1,12 ,11 ,5,2,12 ,4,5,2,12 ,18,5,8,12 ,11 ,5,10 ,12 ,11 ,5,480,12 ,18,5,480,12 ,4,5,480,9 ,14,5,480,9 ,8,5,480,13 ,11 ,5 j44,,12 ,6,10 ,45-,12 ,6,10 ,46.,12 ,6,10 15,11 ,11 ,9 ,22,11 ,11 ,9 ,29,11 ,11 ,9 ,36$,11 ,11 ,9 43+,12 ,11 ,1,24,11 ,11 ,30,32 ,11 ,11 ,25,491,11 ,11 ,13 ,35#,11 ,11 ,11  **Print Message******** Em=1721:m,1;" ":m m=17 px=31 a$30m,1;a$: Ua$(px)=" "m,1;a$(px-1):m=m+1:a$=a$(px+1):8410 px=px-1:8420 !**Wait for key********* !^(21,1)""ƪ(21,2)""21,3;"Press any key to continue" ! a$=:=""8460 ! ! !4**Print Objects******** !7*m=27:m,23;" ":m !9m=1object-1 !>T23675{\,96`+88X*(q(m)5):23676|\,252+(q(m)6) !Ca=140+4*(q(m)-5*(q(m)>5)):px=2*(m/2+.5):py=23+2*(m/2=(m/2)):5;px,py;a+(a+1);px+1,py;(a+2)+(a+3) !Hm !R !f**Plot Life energy***** !k liferg<0liferg=0 !plifold>lifergp=lifoldliferg+1-1:1;241,557+p:1;5,0:.01z# =,20:p !u^lifold2"0010","1010","1100","0101","1001","1100","1011" #?2"1010","1110","0011","0110","0101","0101","1001" #@2"1110","1011","1010","1010","0110","0101","1001" #A2"1000","1100","1101","1001","1110","0101","0001" #B2"0100","0101","0101","0101","1101","0101","0001" #Fo$(10 ,11 ):n=110 :o$(n):n:"sword","shield","axe","torch","tinder box","key","ring","sceptre","book","magic sword" #Prb(9 ):n=19 :b(n):n:4,4,2,5,4,4,12 ,4,4 #Zp$(9 ,8):n=19 :p$(n):n:"skeleton","guard","bat","spider","magician","wizard","balrog","Lord","wyvern" #dmc$(8,5):n=18:c$(n):n:"light","unlit","give","say","read","help","open","close" % %**Instructions********* %!:8600! %&3,0;"In a dark place in Middle Earth,Morbihan stands the castle of the Lord of Darkness. This half-spirit, half-human creature wants to take over the world." %+"The kings of the surrounding countries have already tried to defeat him, but their armies arenot strong enough to battle withdark and evil magic." %0"So, the kings have decided to defeat the Lord in another way. A very brave and clever man has to break into the castle and kill the Lord." %59"You, the White Knight, has to perform this mission." %7?21,0;1;"Key Key Key Key Key Key Key Key " %8b$=:b$=""95288% %:z:"You start this adventure at the point where the White Knight hasjust entered the castle through a secret passageway." %;z'"You always see a graphical representation of the room, plusall the objects and persons present in this room." %<'"At the right of ths screen,thereis always information about the objects you're carrying, your life energy and your action points." %='"At the bottom of the screen appear the messages which informyou about your actions and aboutthe actions of the creatures youwill meet." %>?21,0;1;"Key Key Key Key Key Key Key Key " %?b$=:b$=""9535?% %D:"You can perform actions by pressing the first letter of theword (see main menu). The different actions are:" %E'"MOVE: You can move the White Knight around the room, using the cursor keys. You can go to other rooms by going through doors." %Fa'"EXAMINE: You can examine anything in the room, but not the objects you're carrying." %G%'"TAKE: This is obvious, I think.." %H'"DROP: cfr. TAKE" %I?21,0;1;"Key Key Key Key Key Key Key Key " %Jb$=:b$=""9546J% %N:"FIGHT: You can fight with the creatures you meet. Although youwill need the help of some of them... The more weapons you have, the stronger you are." %O'"LEFT-RIGHT VIEW: You can rotate the room. Left means clockwise, right anti-clockwise.All objectsand persons will rotate as well.This enables you to see the 'fourth' wall." %PS'"STOP: You stop the action. The other creatures will now performtheir actions." %Qs'"OTHER COMMAND: You can enter anyother command; ie. open door, give knife to guard, help, say hello...etc..." %S?21,0;1;"Key Key Key Key Key Key Key Key " %Ub$=:b$=""9557U% %X:"At the beginning of the game youget a certain amount of life energy. This represents your physical condition. When your life energy level rates zero, you're dead and the game is over" %Y"At the beginning of each 'turn' you get action points. Each timeyou perform an action you lose some action points. You can perform actions until you enter the command STOP, or until your action points fall below -10. Inthis case a STOP command is executed automatically." %Z"The action points you get are proportional to your life energyWhen you enter STOP, the remaining action points are added to your life energy, positive or negative. You can also lose life energy in combat." %[6#0;1;"Key Key Key Key Key Key Key Key " %\b$=:b$=""9564\% %b jLord.CHARSӃwLord of Darkness define character set by Philip Dutre from ZX Compting, May 1986  63999  250 G10 ,5;4;"PLEASE WAIT A MOMENT":.01z# =,10 <n=15616=16383?:64000-15616=+n,n:n >sum=0:n=6400864015:a:sum=sum+a:n,a:n 8sum96`"ERROR IN LINE 250":.1}L,20: G16,16,16,16,16,0,16,0 >sum=0:n=6412864207:a:sum=sum+a:n,a:n  ?sum3164\ "ERROR IN LINES 300-390":.1}L,20: + numbers ,H24,36$,70F,74J,82R,36$,24,0 6G32 ,16,16,16,16,16,8,0 @H60<,66B,2,12 ,16,32 ,126~,0 JF60<,66B,2,12 ,2,66B,60<,0 TF8,24,40(,72H,124|,8,8,0 ^G62>,64@,92\,34",2,66B,60<,0 hH6,24,32 ,124|,66B,66B,60<,0 rF126~,2,4,8,16,32 ,64@,0 |H60<,66B,66B,60<,66B,66B,60<,0 G60<,66B,66B,62>,4,24,96`,0 >sum=0:n=6424864255:a:sum=sum+a:n,a:n 9sum148"ERROR IN LINE 450":.1}L,20: C60<,66B,2,4,8,0,8,0 >sum=0:n=6426464471:a:sum=sum+a:n,a:n @sum10680)"ERROR IN LINES 500-750":.1}L,20:  upper case I30,34",66B,126~,66B,66B,66B,0 I92\,98b,66B,92\,66B,66B,124|,0 H28,34",64@,64@,64@,34",28,0 H92\,98b,66B,66B,66B,68D,88X,0 J94^,96`,64@,112p,64@,64@,126~,0 &I94^,96`,64@,112p,64@,64@,64@,0 0H28,34",64@,64@,70F,34",30,0 :I66B,66B,66B,126~,66B,66B,66B,0 DH568,16,16,16,16,16,568,0 ND568,8,8,8,8,72H,480,0 XI68D,72H,80P,112p,72H,68D,66B,0 bI64@,64@,64@,64@,64@,66B,124|,0 lI66B,102f,90Z,66B,66B,66B,66B,0 vH66B,98b,82R,74J,70F,66B,66B,0 H24,36$,66B,66B,66B,36$,24,0 H92\,98b,66B,92\,64@,64@,64@,0 H24,36$,66B,66B,66B,36$,26,0 H92\,98b,66B,92\,72H,68D,66B,0 G60<,66B,64@,60<,2,66B,60<,0 I124|,16,16,16,16,16,16,0 I114r,34",66B,66B,66B,70F,58:,0 G66B,66B,34",34",18,20,8,0 I119w,34",65A,65A,73I,73I,546,0 G65A,34",20,8,20,34",65A,0 D65A,34",20,8,8,8,8,0 G63?,66B,4,8,16,33!,126~,0  >sum=0:n=6452064727:a:sum=sum+a:n,a:n *Asum8352 "ERROR IN LINES 1000-1250":.1}L,20:  lower case F0,0,524,76L,68D,68D,546,0 I64@,64@,88X,100d,68D,68D,88X,0 F0,0,568,68D,64@,68D,568,0 H32 ,16,24,36$,68D,68D,568,0 G0,0,568,68D,124|,64@,60<,0 H24,36$,32 ,568,32 ,32 ,32 ,0 $F0,0,568,68D,64@,76L,60<,4 .I64@,64@,88X,100d,68D,72H,92\,0 8C8,0,24,8,8,8,28,0 BD8,0,24,8,8,8,40(,16 LI64@,64@,72H,80P,112p,72H,68D,0 VH32 ,32 ,32 ,32 ,32 ,36$,24,0 `G0,0,86V,105i,73I,66B,71G,0 jG0,0,88X,100d,68D,72H,92\,0 tF0,0,60<,66B,66B,66B,60<,0 ~H0,0,88X,100d,68D,68D,88X,64@ F0,0,524,76L,68D,68D,524,4 H0,0,88X,100d,68D,120x,68D,0 F0,0,568,64@,568,4,120x,0 I16,16,120x,32 ,32 ,36$,24,0 G0,0,116t,36$,68D,76L,524,0 E0,0,68D,36$,20,20,8,0 G0,0,119w,34",73I,73I,546,0 F0,0,68D,40(,16,40(,68D,0 G0,0,66B,34",18,12 ,72H,480 E0,0,30,36$,8,18,60<,0 ,236066\,0:236077\,249 :5,0;"You can always restore the original character set by doing the following commands: POKE 23606,0 POKE 23607,60 " (15,0;"This new character set is storedin bytes 64000 to 64767, making 768 bytes. This block will now be saved." 2!"CHARSET"64000,768 < Lord.UDGs 000xLord of Darkness define UDGs by Philip Dutre from ZX Computing, May 1986 **User Defined Graphics 64300,  9000(# 310 ,0;4;"Please wait a moment" ( 9000(# 2E:"The user defined graphics are stored in bytes 64360 to 65535" 3;'"This block is 1176 bytes long and will now be saved." <"udg"64360h,1176 d #(>sum=0:n=64360h64527:a:sum=sum+a:n,a:n #-Bsum10413("ERROR IN LINES 9010-9030":.1}L,20: #2M0,124|,254,250,254,255,28,15 #3L0,62>,127,95_,127,255,568,240 #4E0,0,0,66B,255,66B,0,0 #5J4,17,73I,72H,2,146,103g,255 #6K0,72H,41),41),98b,106j,202,255 #7D0,1,2,4,8,16,33!,64@ #8J0,254,6,58:,26,42*,202,194 #9O255,129,129,129,129,129,255,0 #:H68D,72H,16,32 ,64@,128,0,0 #;H96`,80P,72H,80P,96`,64@,64@,0 #I68D,68D,100d,84T,76L,68D,68D,0 #?H96`,80P,72H,80P,96`,80P,72H,0 #@C8,8,8,8,28,42*,8,0 #AH16,80P,80P,568,20,20,16,0 #BJ68D,100d,84T,76L,100d,84T,76L,0 #CK84T,84T,100d,104h,112p,64@,64@,0 #DD4,8,16,32 ,16,8,4,0 #EE12 ,20,36$,68D,4,4,4,0 #FH12 ,20,36$,28,36$,20,12 ,0 %&>sum=0:n=6452864695:a:sum=sum+a:n,a:n %+Bsum19603L"ERROR IN LINES 9520-9550":.1}L,20: %0I31,35#,65A,81Q,89Y,35#,30,12 %1M248,252,254,254,252,248,0,0 %2F8,7,1,12 ,15,15,15,15 %3Q240,240,192,208,240,240,240,240 %4H15,15,15,15,13 ,3,15,15 %5P240,240,192,240,240,224,208,480 %6M47/,79O,207,207,207,207,95_,63? %7Q248,248,252,252,254,254,254,252 %:I32 ,33!,35#,36$,39',35#,33!,39' %;P96`,144,204,226,224,192,240,248 %B3,7,6,6,3,3,2,14 %?L112p,112p,480,480,480,16,24,112p %DE6,9 ,513,71G,7,3,15,31 %EN4,132,196,36$,228,196,132,228 %FL63?,111o,111o,111o,47/,31,15,15 %GQ228,244,244,222,204,196,192,224 %HH14,14,12 ,12 ,12 ,8,24,14 %IO192,224,96`,96`,192,192,128,224 %NN195,129,36$,0,129,219,195,231 %S>sum=0:n=6469664863_:a:sum=sum+a:n,a:n %UAsum7831"ERROR IN LINES 9560-9580":.1}L,20: %XA0,0,0,0,0,0,0,1 %YJ0,6,14,28,568,112p,224,192 %ZI3,103g,62>,28,60<,118v,98b,0 %[C128,0,0,0,0,0,0,0 %\H0,63?,63?,60<,568,502,16,24 %]I0,252,252,60<,28,76L,8,24 %^C12 ,13 ,4,7,3,1,0,0 %_K480,176,32 ,224,192,128,0,0 %`K0,64@,40(,60<,248,252,114r,491 %aA0,0,0,0,0,0,0,0 %bA0,0,0,0,0,0,0,0 %cF128,64@,32 ,16,8,4,2,0 %dA0,0,0,7,7,7,3,3 %eK0,0,0,224,224,224,192,192 %fA3,3,3,1,1,1,1,0 %gQ192,192,192,192,128,128,128,128 %hD0,0,0,1,3,15,16,32 %iG0,0,0,128,192,240,8,4 %jD60<,35#,24,7,0,0,0,0 %kG60<,196,24,224,0,0,0,0 %lA0,0,0,0,0,0,0,0 %q>sum=0:n=64864`65031:a:sum=sum+a:n,a:n %sAsum7917"ERROR IN LINES 9590-9610":.1}L,20: %vA0,0,0,0,0,0,0,0 %wF0,0,4,8,24,36$,80P,192 %xG1,2,5,8,244,144,80P,480 %yD96`,0,0,128,0,0,0,0 %zD0,0,0,0,7,28,568,96` %{E0,0,0,0,224,568,28,6 %|E64@,97a,58:,30,6,1,0,0 %}I2,134,92\,120x,96`,128,0,0 %~A0,1,2,7,2,1,0,0 %Q128,192,160,240,160,192,128,128 %A0,0,0,0,1,3,3,1 %Q128,128,128,128,192,224,224,192 %E0,0,0,0,2,13 ,480,102f %E0,0,0,0,0,128,96`,24 %H152,150,113q,25,7,1,0,0 %L6,199,158,127,126~,248,96`,0 %A0,0,0,0,0,0,0,1 %H0,6,10 ,20,40(,80P,160,64@ %I2,101e,58:,28,60<,118v,98b,0 %C128,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %>sum=0:n=6503265199:a:sum=sum+a:n,a:n %Bsum13150^3"ERROR IN LINES 9620-9640":.1}L,20: %D3,7,13 ,15,7,2,1,15 %P192,224,176,240,224,64@,128,240 %H21,35#,37%,35#,33!,37%,23,6 %P168,200,168,201,139,172,232,96` %B2,2,4,2,2,2,2,14 %J64@,64@,32 ,64@,64@,64@,64@,112p %J1,3,7,69E,199,131,129,143 %Q128,192,224,160,224,192,128,240 %G223,91[,83S,99c,99c,3,7,6 %P254,222,222,222,204,192,224,96` %D6,6,12 ,12 ,4,4,6,28 %I96`,96`,480,480,32 ,32 ,96`,568 %J0,8,11 ,37%,39',102f,114r,115s %M0,32 ,164,68D,204,222,158,190 %O255,255,255,127,119w,103g,79O,11 %P255,255,243,225,225,128,192,64@ %B8,24,8,0,0,0,0,0 %D64@,480,32 ,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %>sum=0:n=6520065367W:a:sum=sum+a:n,a:n %Bsum125691"ERROR IN LINES 9650-9670":.1}L,20: %A0,0,0,0,0,0,0,2 %C0,0,0,0,0,0,0,160 %K3,37%,85U,95_,79O,132,132,128 %O84T,74J,250,241,169,165,149,144 %E128,128,0,0,0,0,0,0 %D80P,64@,64@,0,0,0,0,0 %B0,3,7,5,7,3,2,13 %N0,192,224,160,224,192,64@,184 %K13 ,109m,155,156,127,557,5,5 %Q188,190,118v,246,246,242,244,184 %H6,14,15,15,15,12 ,11 ,31 %Q184,216,232,248,248,248,248,252 %H0,0,3,71G,213,557,115s,58: %L0,0,192,227,170,236,206,92\ %E25,31,15,15,7,7,7,4 %P152,248,240,240,224,224,224,32 %D7,15,15,6,4,4,6,28 %L224,240,224,96`,32 ,32 ,96`,568 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %>sum=0:n=65368X65535:a:sum=sum+a:n,a:n %Asum5801"ERROR IN LINES 9680-9700":.1}L,20: %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %D0,0,0,0,0,16,40(,36$ %C0,0,0,0,0,8,20,36$ %D18,12 ,0,0,0,0,0,15 %E72H,480,0,0,0,0,0,240 %B10 ,8,4,0,0,0,0,0 %D80P,16,32 ,0,0,0,0,0 %I0,0,1,33!,35#,115s,115s,123{ %K0,0,192,112p,196,196,46.,14 %M123{,255,255,223,199,131,1,0 %P62>,255,255,239,198,130,192,192 %C0,8,8,12 ,14,7,1,0 %M192,224,96`,96`,224,192,128,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 %A0,0,0,0,0,0,0,0 ' VList UDGs  63455 +13 ,0;:"CHARSET"63592h ('13 ,0;:"udg"64360h Q2000:"Start";18;"23675/76 POKE"'"-----";18;"-------------" bn=17:udg:23675{\,udg-256*(udg/256):23676|\,(udg/256) 9udg;":";:l=65A85U:l;:l:":";23675{\ <6;:l=144164:l;:l:":";23676|\ n U64360h,64528,64696,64864`,65032,65200,65368X