ST.WARRIORw wayZ***THE EYE OF THE STAR WARRIOR.  Roy Carnell and Tony Bridge 1983*** "STAR"10 0:0:0: 'a=23613=\+256*23614>\ a,0:a+1,0 ( "STAR" *$3:1:1:1 - 0;19,0;" " 2 "USER" 7 0;19,0;" " <"PROG" <STAR @ ||~?? ||??_ ||x|?| ~|~!<>?>~~s?~@??8~???<|~??/?)njj??/?@$xN@5n{jj? ?  }XxL?nyj?J??? ?|?xHo|jJ??$p?IxN{o~jJ;??x?xn?njJ_?Exngϝn?jJP??<,|n?wjjJRR_~B~~~<~B~W<<|B<||><||B<~|Ro?B@@D@B@B@@BBBBBBBBBD888B@@BR~||(|B|~|_<BBBBBBBB|DD@B<|BRB@@@B@B@ ~|B~||B|BDx8B@|Z?B@@@B@B@BBDZBDDBDB<@BB@DZB~~~<@B~<BB$BBB>~|85mlBbRJFB100dSTRENGTH2505;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 #("PROG"5 #2