ZXTape! 0Created with Ramsoft MakeTZXEye/Star/W WQ21,0;6;1;1;" Press ENTER to set up dungeon. " 0  Z6;1;1;1;21,0;"PLEASE WAIT. SETTING UP DUNGEON " ( 1640h < 530 Fd=1421 P/d,0;" " Zd d13 ,0;"_" n a=12960 a=22980 !a=3a=43000 !a=5a=63020 a=73040 a=83060 a=9 3080 a=10 3100 a=11 31200 a=12 3140D .a=13 a=16a=173160X a=143180l a=153200  a=13320 "6a=2a=4a=6a=163360 ,a=33440p 6a=53260 @a=73400H Ja=83460 Ta=9 3300 ^a=10 3240 ha=11 3340 ra=12 3220 |a=13 3420\ a=143280 a=1533804  `a=2a=3a=4a=6a=7a=11 a=15a=163600 a=13560 a=53540 a=836408 a=9 3620$ a=10 3480 a=12 3500 a=13 3580 a=143520  SSTRENGTH100d6;0;1;2,16;" MISFIT " fSTRENGTH>100dSTRENGTH2505;0;1;2,16;" JESTER " &fSTRENGTH>250STRENGTH4004;0;1;2,16;" HERO " 0fSTRENGTH>400STRENGTH5003;7;1;2,16;" WARRIOR " :aSTRENGTH>500SPELL=07;1;1;2,16;" SUPER HERO " DSTRENGTH500610b N\SPELL>0SPELL36;0;1;2,16;" WIZARD " XWSPELL>32;1;1;1;2,16;" GRAND WIZARD " b#7;4,28;" " l*STRENGTH>9999'STRENGTH=9999' v.7;0;4,28;STRENGTH +7;0;6,29;FLOOR RM(LOCATION)=04;0;1;8,26;" GREEN" COMBAT>0680 [M(LOCATION)06;1;1;1;8,26;"YELLOW" PCOMBAT>02;7;1;1;8,26;"COMBAT" -7;0;10 ,28;" " 7PER>07;0;10 ,29;PER -7;0;12 ,29;WOUNDS STRENGTH0750 13 ,0;"_"   70F  "You have died of exhaustion."  6850 r=T(LOCATION)  !r=0r=99c830> *r=18980 4 840H > S(LOCATION)=0920 H"You have found: "; R!r=0r=99c870f \T$(r) fr=S(LOCATION) pr=0920 z5T(LOCATION)=0T(LOCATION)=99c910  "and "; T$(r) COMBAT=3940 1M(LOCATION)0"The room is guarded by a" &M(LOCATION)0M$(M(LOCATION)) ;X$(3,10 )="""You see stairs in the corner." 4X$(3,4)="""You see a healing well." 0X$(3,4)="""You see a fire pit."  ["You have found the ghostly hand of the good Wizard. It is yours until you find the eye." r=112 H(r)=01020 r H(r)=18 WHAND=1 T(LOCATION)=99c  920 . V$(S$) 8r=125 B V$=T$(r) L V$=S$ Vr ` r=0 j ~ TRE=0 b=112 H(b)=r1200 b   TRE=1  B$=A$(M(LOCATION)) a=1202 S$=B$(aa+1) S$=" "1290   S$=r a  r=0  (B$=D$(M(LOCATION)) 2a=1182 <S$=B$(aa+1) FS$=" "1380d P S$=r Za d r=0 n  60< r=112 H(r)>18H(r)=0 r SPELL=0 "Your mind is being drained."  ?2;1;1;" I dont understand. " Sa=125:0.1}L,10 :0.1}L,30:0.1}L,20:a  60<  -WEAPON=13 WEAPON=171570" WEAPON>16 r=(*90Z)+1 2r+(WOUNDS*10 )+(COMBAT*10 )<90Z "You have damaged the"  T$(WEAPON)  100d "a=112 ,H(a)=WEAPON1600@ 6a @-WEAPON=13 WEAPON=171625Y EH(a)=0 JHELD=HELD-1 T YH(a)=16 ^ hC(300,) r'a=110 :C(a)=999:a |)a=90Z110n:C(a)=999:a *a=190210:C(a)=999:a *a=290"300,:C(a)=999:a 2a=11 291#10 :C(a)=999:a 2a=10 300,10 :C(a)=999:a b=(*30)+30  a=1b d=(*280)+10 C(d)=9991730 TC(d-10 )=999C(d+1)=999C(d+11 )=9991730 <C(d-11 )=999C(d-9 )=9991780 C(d)=999 a  d=0 a=10 290" C(a)=99918400  d=d+1 &C(a)=d 0a DM(290") Na=10 290" Xb=(*4)+1 bb<21910v lM(a)=(*15)+1 va M(12 )=0 a=(*80P)+210 C(a)=9991930 M(a)=16 T(290") a=10 290" b=(*4)+1 b<32020 T(a)=(*15)+1 a a=(*70F)+20 C(a)=9992040  T(a)=18 S(290") *M$(19,15) 4a=119:M$(a):a >"Living Skeleton","Mummy","Demon","Zombie","Fire Elemental","Vampire","Mind Vampire","Wraith","Dragon","Werewolf","Cyclops","Sandman","Harpie","Giant Serpent","Balrog","Lich","Lightning bolt","Stone spell","Limbo spell" RT$(25,15) \a=125:T$(a):a fB"SPADE","FIRE WHIP","SWORD","SILVER SWORD","SILVER STAFF","SAINTLY STAFF","TALISMAN","CROSS","SHIELD","TORCH","INVISIBLE CLOAK","CLUB","HOLY WATER","BOW AND ARROWS","MAGIC SHIELD","EMPTY BOTTLE","HEALING WATER","WIZARDS HAND","TELEPORT","FORCESHIELD","PSYCHIC SHIELD","LIGHTNING BOLT","STONE SPELL","LIMBO SPELL","STONE" zA$(16,20) a=116:A$(a):a "010304050607122224","020710222324","06071324","0207102324","06071324","020405061013222324","020405061013222324","060724","0304222324","0204060710222324","030414222324","010506071213222324","02030414222324","02030410222324","03040714222324","2324" D$(19,18) a=119:D$(a):a "09111519","020910111519","0708151920","02070910111519","071319","020708091011131519","020708091011131519","0708151920","09111519","0207091011131519","020910111519","091113151920","020910111519","020910111519","07091519","192021","1520","21","21"  V(16) a=116:V(a):a ޑ70F,70F,20,40(,70F,502,502,502,20,502,20,502,60<,20,30,20  P(16) a=116:P(a):a 7,7,2,3,2,5,5,7,4,2,6,6,4,4,3,1  W(17) $a=117:W(a):a . 7,2,7,5,5,6,3,6,6,2,3,6,5,6,3,4,7 BSONE=(*90Z)+10 LC(SONE)=9992370B VSTWO=(*90Z)+110n `C(STWO)=9992390V j STHREE=(*90Z)+210 t!C(STHREE)=9992410j ~HW=(*90Z)+1 C(HW)=9992430~ FP=(*90Z)+100d C(FP)=9992450 FLOOR=1:LOCATION=12 :PX=6:PY=6:STRENGTH=100d:COMBAT=0:SPELL=0:PER=0:WOUNDS=0:SM=0:HELD=0:RET=0:WHAND=0:STONE=0 0:0:6: H(12 ) X$(12 ,12 ) Xa=012 :0;1;a,0;" ":a $"________________________________" 11;5;0,19;"ADVENTURE" 51;7;4,19;"STRENGTH " 21;7;6,22;"FLOOR " :1;7;8,14;"STATUS MODE " ;1;7;10 ,14;"COMBAT RATING " 41;7;12 ,21;"WOUNDS " -X$(1,112 )=" " -X$(2,112 )=" " (a=310 2'X$(a,112 )=" " <a F.X$(11 ,112 )=" " P.X$(12 ,112 )=" " ZBC(LOCATION-10 )999X$(2,67)=" " dCC(LOCATION+10 )999X$(11 ,67)=" " n8C(LOCATION-1)999X$(6,2)=" " x8C(LOCATION-1)999X$(7,2)=" " 9C(LOCATION+1)999X$(6,11 )=" " 9C(LOCATION+1)999X$(7,11 )=" " GSONE=LOCATIONSTWO=LOCATIONSTHREE=LOCATIONX$(3,10 )="" &HW=LOCATIONX$(3,4)="" &FP=LOCATIONX$(3,4)="" a=T(LOCATION) "a=0a182790 130 #a=07:b:"o"+a,b:a RET=1 a=S(LOCATION) a=02830 130 #a=07:b:"p"+a,b:a RET=1 a=M(LOCATION) "a=03660L , 280 6a=07 @ b:"q"+a,b J b:"u"+a,b Ta ^a=M(LOCATION):0430 ha=07 r b:"r"+a,b | b:"t"+a,b a **SPADE** z00000101,00000010,00000101,01001000H,01110000p,01110000p,01111000x,0 **FIRE WHIP** s0,00000111,10001011,10001011,10001011,10010011,11100011,0 **SWORD** 00001001 ,00000110,00000110,00001001 ,00010000,00100000 ,01000000@,10000000 **STAFF** ց00001110,00001010 ,00000010,00000100,00001000,00010000,00100000 ,01000000@ **TALISMAN** 00011000,01100110f,10100101,10011001,10011001,10100101,01100110f,00011000 **CROSS** 00111100<,11100111,10000001,11100111,00100100$,00100100$,00100100$,00111100<  **SHIELD** 00011000,01111110~,11111111,11111111,11111111,11111111,01111110~,00011000  **TORCH** &001101117,01101111o,11011110,11111110,11111000,10001000,10010000,11100000 0 **CLOAK** :00011000,00100100$,00100100$,01000010B,01000010B,01000010B,01100110f,00111100< D **CLUB** N00000011,00000111,00001110,00111100<,01111000x,11111000,11110000,11110000 X**HOLY WATER+BOTTLE** bz0,00011000,00011000,00011000,00111100<,01111110~,01111110~,00111100< l**BOW & ARROWS** v01111100|,01001110N,00100111',00010011,01001001I,00100101%,00010011,00001000 **ENCHANTED SHIELD** 00111100<,01111110~,01000010B,01011010Z,01011010Z,01000010B,01111110~,00111100< **SANDMAN TOP** 0,0,00000011,11000000,00000111,11100000,00001101 ,10110000,00111111?,11111100,01111110~,01111110~,11001100,001100113,11001111,11110011 **WEREWOLF TOP** 00000001,0,00000011,10000000,00001111,10000000,00000001,10000000,00000111,11100000,00001001 ,10010000,00010001,10001000,00010001,10001000 **FIRE ELEMENTAL TOP** 00101101-,00010000,10100011,10100000,10010111,11101100,01001111O,11101001,01011101],10110001,00111111?,11111010,00111110>,01111100|,00111100<,00111100< **GIANT SERPENT TOP** 0,0,00000001,10000000,00000001,11100000,00000001,11110000,00000011,10000000,00000111,0,00001110,0,00011111,11111000 **DRAGON TOP** 0,0,0,0,00000001,10000000,00000011,11000000,10001110,11000001,11001111,11000001,11100001,11000011,11110001,11000111 **SKELETON TOP** 0,0,0,0,00000001,11000000,00000001,11000000,00000001,11000000,0,10000000,00000011,11100000,00000100,10010000 **CYCLOPS TOP** 0,0,0,0,00000001,10000000,00000011,11000000,00000010,01000000@,00000011,11000000,00000001,10000000,00000011,11000000 #**MUMMY,ZOMBIE,VAMPIRE,LICH TOP** *0,0,0,0,00000001,10000000,00000011,11000000,00000011,11000000,00000011,11000000,00000001,10000000,00000011,11000000 4**BALROG TOP** >00000010,01000000@,00000010,01000000@,00000010,01000000@,00000011,11000000,00000011,11000000,00000011,11000000,00000001,10000000,00000011,11000000 H**MIND VAMPIRE TOP** R00000001,10000000,00000011,11000000,00000111,11100000,00001101 ,10110000,00000111,11100000,00000011,11000000,00000001,10000000,00000011,11000000 \**HARPIE TOP** f0,0,0,00000010,01000001A,10000110,01100011c,11000111,01110011s,11001110,01110011s,11001111,01111001y,10011110,01111111,11111110 p**DEMON TOP** z00000010,01000000@,00000011,11000010,01000010B,01000110F,01100011c,11000111,01110011s,11001110,01110011s,11001111,01111001y,10011110,01111111,11111110 WRAITH TOP** 0,0,00000001,10000000,00000011,11000000,11000111,11100011,11101101,10110011,01101111o,11110110,01101110n,01110110v,00111100<,00111100< **WEREWOLF BOTTOM** 00010001,10001000,00000010,01000000@,00000100,00100000 ,00001000,00010000,00001000,00010000,00001000,00010000,00011000,00011000,0,0 **SANDMAN BOTTOM** 00001111,11110000,00001100 ,001100000,00011000,00011000,001100000,00001100 ,001100000,00001100 ,001100000,00001100 ,01110000p,00001110,0,0 **GIANT SERPENT BOTTOM** 00011111,11111000,001100000,0,00111111?,11111100,00111111?,11111100,01100000`,0,01111111,11111110,01111111,11111110,0,0 **FIRE ELEMENTAL BOTTOM** 10011110,01110100t,10111111,11111001,01110000p,11101101,001100102,11001110,01100100d,00001100 ,01111000x,00100110&,01100000`,00011110,11100000,00000111 **SKELETON BOTTOM** 00001000,10001000,00010011,11100100,00000001,01000000@,00000001,01000000@,00000001,01000000@,00000001,01000000@,00000001,01000000@,00000011,01100000` **HARPIE BOTTOM** 01111011{,11011110,01110101u,10101110,01101101m,10110110,01111101},10111110,01111010z,01011110^,01110100t,00100110&,01100100d,00100010",01001100L,001100000 A**CYCLOPS*MUMMY*ZOMBIE*VAMPIRE*BALROG*MIND VAMPIRE*LICHBOTTOM** 00000101,10100000,00001001 ,10010000,00010001,10001000,00000001,10000000,00000010,01000000@,00000100,00100000 ,00000100,00100000 ,00001100 ,001100000 $*DRAGON BOTTOM* .11111001,11001111,11111101,11011111,11111111,11111111,11111101,11011111,11111001,11001111,11110001,10000111,11000010,00000011,10011100,00000001 8*WRAITH BOTTOM* B00001111,11110000,00011111,11100000,00111111?,11000000,01111111,10000000,01111100|,0,01110000p,0,01100000`,0,01000000@,0 LWSC=0:WFC=0:MC=0:SY=1:SX=1:WX=1:WY=1:MY=0:MX=0:PER=0:BY=0:BX=0 V6T(LOCATION)<1T(LOCATION)>173710~ `2WX=(*5)+4:WY=(*5)+4 jX$(WY,WX)="" tWFC=W(T(LOCATION)) ~!S(LOCATION)<13760 2SX=(*5)+4:SY=(*5)+4 SX=WXSY=WY3720 X$(SY,SX)="" WSC=W(S(LOCATION)) !T(LOCATION)03800 .T(LOCATION)=0BY=(*5)+4 .T(LOCATION)=0BX=(*5)+4 X$(BY,BX)" "3760 !M(LOCATION)<13820 MC=P(M(LOCATION)) 0,0;" " a=112 !1;X$(a,112 )  a M0;4;1;12 ,3;"ROOM ";C(LOCATION);" " WFC;1;WY,WX;"" (WSC;1;SY,SX;"" 2,HW=LOCATION5;3,4;"" 100dPER=100d .MC;1;MY,MX;"";MY+1,MX;""  60<  790  530  a=0 B$(32 )  RET=0 COMBAT=0  k=0 S$= 'S$=12 ůS$=4804230 S$=13 4270  a=a+1 a60</FLOOR4930B "S$=""4080 ,)S$="5"S$="6"S$="7"S$="8"44000 6k314080 @ k=k+1 JB$(k)=S$:B$(k+1)=">" T*21,0;B$:0.1}L,20 ^ a=a+1 ha60</FLOOR4930B r""4190^ | 4080 k<14080 B$(k)=">":B$(k+1)=""  k=k-1  4180T  60< !B$(4)="TAKE"5120 B$(1)="I"5440@ !B$(4)="DROP"5590 !B$(4)="WAIT"6070 !B$(4)="LOOK"4850  B$(3)="DIG"6290 "B$(5)="DRINK"6900 3B$(2)="UP"B$(4)="DOWN"6140  B$(3)="MAP"8710" %B$(8)="TELEPORT"6720@  !B$(4)="SAVE"85004! 55;1;"I dont understand your command."  4040 0TX=PX:TY=PY 5621,0;" " :S$="W"S$="5" DS$="S"S$="6" NS$="N"S$="7" XS$="E"S$="8" bS$="5"TX=TX-1 lS$="6"TY=TY+1 vS$="7"TY=TY-1 S$="8"TX=TX+1 SM=SM+1 SM84550 $STRENGTH=STRENGTH-(1+WOUNDS)  530  SM=0 X$(TY,TX)=""4040 $TY<2TY>11 4740 $TX<2TX>11 4740  COL=6 X$(PY,PX)=""COL=WFC X$(PY,PX)=""COL=WSC X$(PY,PX)=""COL=5  COL;1;PY,PX;X$(PY,PX) GFP=LOCATION2;6;1;1;3,4;""  JT(LOCATION)=0WHAND=14;1;BY,BX-2;"" *OM(LOCATION)0P(M(LOCATION));1;MY,MX;"";MY+1,MX;"" 4 TY,TX;"" 9PY=TY:PX=TX >X$(PY,PX)""4685M CWOUNDS=0 H 530 M)STONE=1X$(PY,PX)=""7070 R]PY=MYPX=MXPY=MYPX=MX+1PY=MY+1PX=MXPY=MY+1PX=MX+17120 \a=a+2+WOUNDS fa60</FLOOR4930B p 4040 #S$="5"LOCATION=LOCATION-1 S$="5"PX=11 $S$="6"LOCATION=LOCATION+10 S$="6"PY=2 $S$="7"LOCATION=LOCATION-10 S$="7"PY=11 #S$="8"LOCATION=LOCATION+1 S$="8"PX=2 2r=111 :r,0;" ":r  2580  60<  790 COMBAT>04890  4040 DCOMBAT=3"The Lich is attacking you with a";M$(M(LOCATION)) $ 300, )COMBAT=17140 .COMBAT=27610 3 8090 BTY=MY:TX=MX G a=0 LPYTYTY=TY+1 `PX>TXTX=TX+1 jPX9 TX<3TX>9 4080 ~3MY,MX;X$(MY,MX);MY,MX+1;X$(MY,MX+1) SMY+1,MX;X$(MY+1,MX);MY+1,MX+1;X$(MY+1,MX+1) WFC;WY,WX;X$(WY,WX) WSC;SY,SX;X$(SY,SX) ,HW=LOCATION5;3,4;"" GFP=LOCATION2;6;1;1;3,4;"" JT(LOCATION)=0WHAND=14;1;BY,BX-2;""  PY,PX;"" :P(M(LOCATION));1;TY,TX;"";TY+1,TX;"" MY=TY:MX=TX ]MY=PYMX=PXMY=PYMX+1=PXMY+1=PYMX=PXMY+1=PYMX+1=PX7590  4080 X$(PY,PX)""5200P  r=112 H(r)=1651702 r (U"You need an empty bottle to collect water from the healing well.":4040 2H(r)=17 <5"You have collected a bottle fullof healing water." F 4040 P)X$(PY,PX)=""X$(PY,PX)=""5230n Z"I see nothing to pick up." d 4040 nHELD<55260 x."Sorry; you cannot carry anymore treasures."  4040 r=112 H(r)=05300 r  5240x !X$(PY,PX)=""H(r)=T(LOCATION) !X$(PY,PX)=""H(r)=S(LOCATION) "You have picked up:"  X$(PY,PX)=""T$(T(LOCATION))  X$(PY,PX)=""T$(S(LOCATION)) HELD=HELD+1 %X$(PY,PX)=""T(LOCATION)=99c $X$(PY,PX)=""S(LOCATION)=0 X$(PY,PX)=" " r=(*290")+1 *C(r)=999T(r)=185390 "T(r)=(*15)+1 , 4040 @ 60< Jd=13 :r=0 Tb=112 ^H(b)=05520 h d=d+1 rd=20r=17 |d=20d=14 d,r;T$(H(b)) b COMBAT>05550  4040  500 COMBAT=17140 COMBAT=27610 COMBAT=38090 **** DROP ****  RET=1 ;PY=2PY=11 PX=2PX=11 5620  5640 ,"You cannot drop objects in the doorway."  4040 B$(k+1)="" S$=B$(620) r=122 &S$=T$(r)5710N 0r :/"I don't understand what you wantme to drop." D 4040 Nr<185780 X#r18r255760 b"You cannot drop the" lT$(r) v 4040 :"You cannot drop something that exists in your memory."  4040 b=112 H(b)=r5830 b 1"You cannot drop something you do not carry."  4040 H(b)=0 6S(LOCATION)=0T(LOCATION)=99c5870 C"Invisible Imps carry off the treasure you have just dropped."  6040 !S(LOCATION)=05890  5960H S(LOCATION)=r  2790 2SX=(*5)+4:SY=(*5)+4  X$(SY,SX)" "5910 *X$(SY,SX)="":WSC=W(r) 4 WSC;1;SY,SX;X$(SY,SX) > 6020 HT(LOCATION)=r R 2740 \2WY=(*5)+4:WX=(*5)+4 fX$(WY,WX)" "5980\ pX$(WY,WX)="":WFC=W(r) z WFC;1;WY,WX;X$(WY,WX)  PY,PX;"" OM(LOCATION)0P(M(LOCATION));1;MY,MX;"";MY+1,MX;"" HELD=HELD-1  4030  60< T2;1;1;" WAITING ";5;0;"Press Enter to continue" ""6090 =""6100  60<  4040 X$(PY,PX)=""6170 6"You can't do that -- you must find the stairway."  4040 /B$(2)="UP"LOCATION=STHREE6260t $/B$(4)="DOWN"LOCATION=SONE6260t .2B$(2)="UP"LOCATION=STWOLOCATION=STHREE 80B$(2)="UP"LOCATION=SONELOCATION=STWO B2B$(4)="DOWN"LOCATION=STWOLOCATION=SONE L4B$(4)="DOWN"LOCATION=STHREELOCATION=STWO V(B$(2)="UP"FLOOR=FLOOR+1 `*B$(4)="DOWN"FLOOR=FLOOR-1 j 2580 t"You can't go that way." ~ 4040 r=112 H(r)=16340 r "You will need a spade."  4040 BY=PYBX=PX6370 !"There is nothing buried here."  4040 WHAND=16400 ="You won't find buried treasure without the Wizards hand."  4040 r=(*4)+1  4BY,BX-2;X$(BY,BX-2);X$(BY,BX-1)  60< $r>2b=(*6)+19 ($r2b=(*15)+1 2b>186550 <T(LOCATION)=b F"You have found: ";T$(b) PWY=BY:WX=BX ZBY=0:BX=0 d RET=1 n 2740 xX$(WY,WX)="" WFC=W(T(LOCATION))  4040 "You can now use a:" T$(b) T(LOCATION)=99c d=(*290")+1 )T(d)=0C(d)=9996580 T(d)=0 BY=0:BX=0 r=112 H(r)=b4040 r r=112 H(r)=06680 r H(r)=b "SPELL=SPELL+1 , 4040 @ 60< Jd=112 TH(d)=196780| ^d h"You don't know that spell." r 4040 |!LOCATION=(*290")+1 #C(LOCATION)=9996780| PY=3:PX=3: STRENGTH=STRENGTH-502  530  2580 ""Press ENTER to start new game." ""6860 =""6870  ***** DRINK ***** r=112 H(r)=176980D r r=112 H(r)=13 7030v &r 0-"You can't drink when you carry no water." : 4040 DWOUNDS=0 NH(r)=16 X 60< b*"You drink a bottle of healing water." l 4040 vH(r)=16 $"You drink a bottle of holy water"  4040 02;0;1;1;PY,PX;" "  60< B"The eye is destroyed and the land will remain free of evil."  6850 :P(M(LOCATION));1;MY,MX;"";MY+1,MX;"" "M(LOCATION)=168050r COMBAT=1:502 "Choose a weapon and attack." ""7160 S$  )S$="W"S$="S"S$="N"S$="E"44000  S$="I"S$="INVENT"5440@  S$="LOOK"4850 *S$>32 7230> 45;1;S$ > 1070. Hr>07270f R 1470 \ 7150 f 1150~ pTRE=17310 z"You don't have that weapon."  7610 S$="TELEPORT"6720@ $STRENGTH=STRENGTH-(WOUNDS+1) (r>18STRENGTH=STRENGTH-491  WEAPON=r  1230 r>07410 ""Your weapon is useless against" "the ";M$(M(LOCATION));"."  1520  7610 ((*100d)+1100dPER=100d  1520 $ 7610 ."M(LOCATION)=168210 3"You have destroyed the" 8M$(M(LOCATION)) = 1520 BM(LOCATION)=0 L$MY,MX;X$(MY,MX);X$(MY,MX+1) V<MY+1,MX;X$(MY+1,MX);X$(MY+1,MX+1) ` PY,PX;"" j 100d t#STRENGTH=STRENGTH+(100d-PER) ~COMBAT=0:PER=0  00502 #MY=0:MX=0:P=0  4030 "M(LOCATION)=168060|  60< COMBAT=2 !M(LOCATION)=71410 ,"You are under attack choose yourdefence." ""7650 S$  S$="I"S$="INVENT"5440@ S$="LOOK"4850  60< "Choose your defence." S$>32 77302 (5;1;S$ 2 1070. <r>07770Z F 1470 P 7640 Z 1150~ dTRE=17820 n"You cant use that." xCOMBAT=38030^  7980, S$="TELEPORT"6720@  WEAPON=r $STRENGTH=STRENGTH-(1+WOUNDS) (r>18STRENGTH=STRENGTH-491  1320( r>07920 $"Your defence did not protect you"  1520 COMBAT=38030^  7980, "You defended well."  1520 r=1502:r COMBAT=38120  7140 ,WOUNDS38030^ 6"You have been wounded." @WOUNDS=WOUNDS+1 JPER5PER=PER-5 T 7940 ^"You have been slain." h 6850 |LICH=(*200)+500 COMBAT=3 SP=(*3)+17  60< 7"The Lich attacks. Protect your- self from a ";M$(sp) M(LOCATION)=sp  7650 LICH=LICH-502 LICH5028080 M(LOCATION)=16 PER=20 1"The Lich has exhausted its magic powers."  200  7140 "The Lich is dead. You have won the magic stone- Eye of the StarWarrior. Now you must DESTROY it. The hand of the wizard vanishes. Its job is over." r=112 &H(r)=18H(r)=25 0r :WHAND=0:stone=1: D 7490B !4"adventure"8600! !>#"graphics" 65368X,168 !H "screen" !R 4040 !""graphics"65368X,168 ! "screen" !0:0:6 !23658j\,8 ! 4040 "FLOOR=1b=11 "FLOOR=2b=111o "FLOOR=3b=211 "f=14:g=1 "$a=b9 +b ".#e=0:d=6:g=g+1 "8C(a)=9998850" "BS(a)0d=4 "LM(a)0e=1 "VS$="" "`$S(a)>0T(a)99cS$="" "ed;1;e;f,g;S$ "ja=LOCATIONf,g;"p" "ta "~f=218860" "&f=f+1:g=1:b=b+10 " 8740$" " f,g;"" " 8820t" ""17,17;"Press ENTER" "=""8865" " 60< " 4030 #("Eye/Star/W"5 #2 b<F"                                              "                            ""Living SkeletonMummy Demon Zombie Fire Elemental Vampire Mind Vampire Wraith Dragon Werewolf Cyclops Sandman Harpie Giant Serpent Balrog Lich Lightning bolt Stone spell Limbo spell |SPADE FIRE WHIP SWORD SILVER SWORD SILVER STAFF SAINTLY STAFF TALISMAN CROSS SHIELD TORCH INVISIBLE CLOAKCLUB HOLY WATER BOW AND ARROWS MAGIC SHIELD EMPTY BOTTLE HEALING WATER WIZARDS HAND TELEPORT FORCESHIELD PSYCHIC SHIELD LIGHTNING BOLT STONE SPELL LIMBO SPELL STONE E010304050607122224 020710222324 06071324 0207102324 06071324 020405061013222324 020405061013222324 060724 0304222324 0204060710222324 030414222324 010506071213222302030414222324 02030410222324 03040714222324 2324 [09111519 020910111519 0708151920 02070910111519 071319 0207080910111315190207080910111315190708151920 09111519 0207091011131519 020910111519 091113151920 020910111519 020910111519 07091519 192021 1520 21 21 SFF(F22222<SXon>tw|thre-looocatio trengtdombapeleoundelehanton? ؕ sfr# kS,U