L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`   ΠȯȠҍΠŠΧӠҍΠǠȯȠ̍ԠŠĠčΠΠԯԠҍԠĠΠŠһӠ׍ΠŠҠȠԠԍԠĠΠŠһΠōΠΠԯԠҍԠĠΠŠһΠōԠҭ٠ήԠĠΠŠһӠōΠΠԯԠҍΠΠԯԠҍԠԭλίӠĠԍԠĠΠŠһΠ׍ΠȯȠҍΠȯȠҍΠίӠҠȠ΍ΠŠħӠҍΠ̠ҠȠԠȮΠΠԯԠҍΠΠԯԠҍΠŠҠҍΠȯȠҮԠԭλůנĠȍΠΠԯԠҍԠĠΠŠһΠōΠΠԯԠҍΠΠԯԠҍΠΠԯԠҍΠȯȠҍΠΠҠҠȠӠΠӍΠŠҠҍԠҭ٠Πנ΍ΠΠԯԠҍΠȯȠҍΠȯȠҍΠŠȯȠҍΠȯȠҮΠŠҠ͍ΠȯȠҍΠȯȠҍΠŠΠ͍Ԡҭ٠΍ΠΠԯԠҍΠŠŠ͍ȠΠԠԍΠΠԯԠҍԠŠōΠȯȠҍΠȯȠҍ     Íҳ΍ұҲҍҍ͍΍ŵųŴűŲٍz#     ήàs"ήӠ ή͠ӠήӠ̠Ϡ ̠Ϯà!ΠϠήŠŠ ƠҠҧӠ L ήӠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>0 PM PST MONDAY-SATURDAY." ##""F#"TECHNICAL SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." IBRARY"5 Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."X d#"511-104 ENCINITAS BOULEVARD"s n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:3INUE >" l24:7110 vGO$:& , C TB%(21(PR$)2)R TB%:PR$;X ^ (#{ +#<*** DATA LOCATION ***> /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LPHIC"1 16297,1:16300,1:16301,1:16304,1; 7010A I :V I1ND%h PR$:I:7110o Iy 7010  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONT>  GF%11110 :N PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"\ 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRACING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"EAMON HELLO":* NAME OF THE PROGRAM TO RUN NEXT   <*** MAIN PROGRAM *** <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp THE TOMB OF MOLINAR <-B[ BY DONALD BROWNat2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDn1 xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2)                      OF THE":" 'EAMON MASTER DISKETTE'.":::DK$;"CLOSE":LP. YOU MUST ENTER THE TOMB":"ALONE. GOOD LUCK!"R xDK$;"RUN MOLINAR'S TOMB"X  23::"PRESS ANY KEY TO CONTINUE";::A$::3:958: (222)5ĺDK$;"CLOSE"::5:"I'M SORRY, BUT YOU MUST ONLY ENTER THIS PROGRAM FROM THE MAIN HALL THE TOMB, ENTER":"IT, AND BRING BACK OUR SAVIOR.'":900 d"SO THE KING ORDERED YOU, AND SO YOU SET":"OUT. AFTER WEEKS OF SEARCHING, YOU HAVE":"FOUND THE TOMB. THE MAGICAL PAPER TELLS":"YOU THAT THINGS ARE DESPERATE. YOU CAN'T"4 n"GO FOR HELNG OF":"GREAT POWER. IF THE BEING RUNS UNCHECKED":"OUR KINGDOM IS CERTAINLY DOOMED,POSSIBLY":"ALL ON THIS GLOBE AS WELL. NONE OF OUR": Z"PEOPLE ALIVE CAN STOP THIS CREATURE. OUR":"ONLY HOPE IS TO CALL UPON OUR GREAT PAST":"LEADER. YOU MUST FINDST IN. HOWEVER, HE STILL LOVED":"THE LAND HE HAD RULED FOR SO LONG, AND" <"BUILT HIS TOMB SO THAT A WORTHY SOUL AND":"VALIANT HERO COULD CALL HIM FORTH AGAIN'":900 F"'";N$;", OUR NEED IS GREAT.'"::: P"'THE ENEMY HAS SUMMONED FORTH A BEIINAR";11): (3:"'MOLINAR WAS', THE KING TOLD YOU, 'THE":"LAST OF THE GREAT WIZARD-KINGS. HE RULED":"WISELY FOR CENTURIES, UNTIL HE FINALLY":"GREW WEARY OF THIS LIFE. HE PREPARED FOR"K 2"HIMSELF A SPECIAL CHAMBER TO SLEEP THE":"ENDLESS RE; EAMON ADVENTURE #11<-> THE TOMB OF MOLINAR <-B[ BY DONALD BROWNa| START-UP PROGRAM 1000DK$(4):DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC,N$DK$;"CLOSE" ::10);"THE TOMB OF MOL     UNIVERSE,":" KILLING YOU AND EVERYONE ELSE ON THIS DISKETTE."o :"(PRESS ANY KEY TO CONTINUE) ";:A$: DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":29001 DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";RECK CHARACTERS":DK$;"DELETE CHARACTERS":DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R0":0:DK$;"WRITE CHARACTERS,R1"::DK$;"CLOSE":DIE1A ::"YOU REALEASED THE EVIL WIZARD MONIMAR FROM HIS BONDAGE. HIS INSANE":" EXPERIMENTS DESTROY THE OUT YOUR GOOF IN FREEING HIM.":MD%(11,5)0c8 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$:n 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2511 :MD%(11,5)02540 DK$;"UNLOCOR CALLING FORTH MOLINAR, THE KING REWARDS YOU WITH ";100CH;" GOLD PIECES.":TPTP100CH*1 MD%(10,5)0MD%(11,5)0ĺ:"MOLINAR KILLS MONIMAR, INFORMING YOU THAT HE WAS THE MOST EVIL WIZARD EVER BORN. HE AGREES NOT TO TELL ANYONE AB TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU "; TP0:A1NA:AD%(A,4)12350 AD%(A,2)0AD%(A,1)AD%(A,1)CH10$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":_0 MD%(10,5)0ĺ:"F:A$:W5(A$):W51W5W21W5(W5)2080w*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W252060W14:WP%(W)WT%(W)AD%(WP%(W),6):WO%(W)AD%(WP%(W),5):WD%(W)AD%(WP%(W),7):WS%(W)AD%(WP%(W),8)k W::5:"AS YOU DELIVER YOURLORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAPONS":"TO KEEP THEM ALL--4 IS THE LEGAL LIMIT."::"YOUR WEAPONS ARE--"W1W21:4);W;"--";WN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") "* (37):23NUE) ";:16368,0:A$:6SPDMD%(0,2)MD%(0,2)2@4500NDIE2500W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W262300 :5:"AS YOU START TO ENTER THE MAIN HALL,":"UT,LOOK,EXAMINE,ATTACK,FLEE,RETREAT,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READYzHIT,OPEN,FREE 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,2,3,96 ///DONE WITH GAMEDK$;"CLOSE"::"(HIT ANY KEY TO CONTI11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3HjNC:C$(NC):C1NC:C$(C):rtS14:S2%(S)SA%(S)::V%(96):ROOM1A770788:P:A,P:SEX$"F"AD%(7,4)0:AD%(8,4)14l100v36gNORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,TAKE,DROP,P":A00::1090PLA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5VA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MD%(0,8)2:EAEA30'`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,7)0:MD%(0,9)NZ1:MD%(0,N.ROOMS,L64".W214:WN$(W2)"NONE"NANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W248WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#::A15:WA%(A)::AE,SEX$,GOLD,BANK,ACNW15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE":DK$;"DELETE FRESH MEAT" $DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMOD%(A,A2):A2A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"CLOSE")DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A)///INITIALIZE DATAfDK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZ DK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:A0:7500:490\rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490t|M2:DF0:7500:490}OFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)TD%(1)):NBTLĂM100DK$;"READ MIRROR":NY$:HY:GY:CY:A14:SY%(A):h.A15:WY%(A)::E2,SY$,A,B6,CX:DK$;"CLOSE":.///RESTORE CHARACTER TO CHARACTERS FILE.MN$(1)"SMITHY"ıC/DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:A1NC:DK$;"READ CHFACTS,R22":"GOLD SACK":500:0:5:8:DK$;"WRITE EAMON.DESC,R122":"YOU SEE A GOLD SACK WITH 500 PIECES"-DK$;"WRITE EAMON.DESC,R301":"YOU SEE A FREE ADVENTURER. HE SAYS HIS NAME IS SMITHY"-DK$;"CLOSE":MN$(1)"SMITHY"ı4.DK$;"OPEN MIRROR":8:16:100:50:0:0:0,,1:1:30:0:0,DK$;"WRITE EAMON.ARTIFACTS,R23":"AXE":50:2:3:8:10:1:1:6:W2426:DK$;"WRITE EAMON.ARTIFACTS,R";W:"NONE":0:0:0:0:,DK$;"WRITE EAMON.DESC,R123":"YOU SEE AN AXE"i-DK$;"WRITE EAMON.ARTI SHE SAYS HER NAME IS ";MN$(0);+0DK$;"CLOSE":DIE1:2000]+///RESTORE FILES IF SURVIVESs+MD%(1,5)0DIEı,DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"WRITE EAMON.MONSTERS,R1":"SMITHY":1LD SACK":GOLD:0:5:8:DK$;"WRITE EAMON.DESC,R122":"YOU SEE A GOLD SACK WITH ";GOLD;" PIECES"+&DK$;"WRITE EAMON.DESC,R301":"YOU SEE A FREE ADVENTURER. HE SAYS HIS NAME IS ";MN$(0):SEX$"F"ĺDK$;"WRITE EAMON.DESC,R301":"YOU SEE A FREE ADVENTURER.):M112:MD%(0,M):)A14:DK$;"WRITE EAMON.ARTIFACTS,R";A22:WN$(A):100:2:3:8(WN$(A)"NONE"):WO%(A):WT%(A):WD%(A):WS%(A))DK$;"WRITE EAMON.DESC,R";A122:"YOU SEE A WEAPON CALLED A ";WN$(A):`*DK$;"WRITE EAMON.ARTIFACTS,R22":"GO\(A15:WA%(A)::AE:SEX$:0:BANK:AC:A14:"NONE":WT%(A):WO%(A):WD%(A):WS%(A):(DK$;"CLOSE":DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.MONSTERS,L128")MD%(0,9)1:DK$;"WRITE EAMON.MONSTERS,R1":MN$(0AS YOU GRAB THE MIRROR, YOU FEEL":"YOURSELF BEING TURNED INSIDE OUT. WHEN":"YOUR VISION CLEARS, YOU FIND YOURSELF INTHE MIRROR."::'MD%(0,3)100:MD%(0,4)50'DK$;"OPEN MIRROR":DK$;"WRITE MIRROR":MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A):AN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3):&^::300v&h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP&rA214300&|:"YOU SHOULDN'T HAVE DONE THAT!":::AD%(20,4)0:AD%(21,4)0:MD%(16,5)ROOM:R3ROOM:3600:300&A2ı':"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100%,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300%617000%@A1NA:AD%(A,4)ROOM4190%J4200:WTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":4190-&T)MD%(M,14)2:FR(100(1))MD%(M,14)3g$VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)$<M:NBTL(TD%(1)0):$///GET COMMAND$4900$S$"ALL"4160$A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100D%"D%(0,1):FD%(1)0:FD%(3)MD%(0,13)#$M1NM:MD%(M,5)R3ĭMD%(M,14)3(MD%(M,14)1200(1)MD%(M,4)M9M15)MD%(M,5)ROOM:3670#.MD%(M,5)ROOM3900#8MD%(M,14)3670#BFRMD%(M,3):FRFR100FRFR((CH10)2)($LMD%(M,14)1:FR(100(1)HTNING BOLT STRIKE YOU FROM THE WALLS!"::DF0:D3:S10:7635]" R3ROOM:ROOMR2:3600u" MD%(9,5)ROOMRC0"ROOM12MD%(11,5)ROOMMD%(11,3)0:MD%(11,14)1:R3ROOM:3600:300" 100"///CHECK REACTIONS ON MONSTERS!#TD%(1)0:TD%(3)MOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000C! R23490[! R217R217:3500! R218AD%(5,4)ROOMR218:3500! R212F1R212:3500! :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100C" AD%(7,4)ROOMAD%(8,4)ROOMĺ:"YOU FEEL A LIGAIN HALL,S6,D1"$ ///MOVE COMMANDl NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 D16:(V$,1)("NSEWUD",D,1)Ă DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$ R203500 ///SPECIAL MOVES5! R299ĺ:"Y:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A): A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:A14:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A): DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE" 4600 T DK$;"RUN M4)ROOM:MD%(DF,10)MD%(DF,10)AD%(MD%(DF,9),5):MD%(DF,9)1:MD%(DF,4)MD%(DF,4)2g>DF0DIE1:2000o>:>@///FLEE COMMAND>JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100>*!8500:3500?4!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::D.":=" IS IN PAIN.":;=" IS VERY BADLY INJURED.":o=" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":Q>MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:A2DFNZNM:AD%(A2,4)ROOM:MD%(DF,9)0AD%(MD%(DF,9),D%(DF,13)D2:OF9MD%(DF,13)MD%(DF,1)MD%(DF,13)MD%(DF,1)1_<MD%(DF,13)MD%(DF,1)7700<AMD%(DF,14):FD%(A)FD%(A)D2<:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675<" IS STILL IN GOOD":" SHAPE.":=" IS HURTING7635>;"A CRITICAL HIT!":R2(100(1)1):R251A0:7635W;R286S1.5S:7635n;R296D2D:7635;R2100D3D:7635;7700;D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::?<MD%(DF,13)MOF,10)2INC+:DF15MD%(OF,9)107605z:0,255:1,200:770:0,230:1,75:770:0,200:1,150:770:0,255:1,255:770:"THE DRAGON IS BOUND!":MD%(15,5)0:AD%(27,4)ROOM:R3ROOM:3600;DMD%(OF,11):SMD%(OF,12):A1:RL5MD%(9,5)ROOMĺ"A HIT!":D%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2:(1).5ĺ:^9y" BROKEN WEAPON HURTS USER!"o9~FR10075609DMD%(OF,11):SMD%(OF,12):DFOF:A1:76359DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635 :INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(MD%(OF,9))ĺ" FUMBLE RECOVERED."::8jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::8oFR957550;9t" WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,10)MD%(OF,10)AD%(M(A,5):MD%(OF,4)MD%(OF,4)2::7LHIT0:MD%(OF,9)174007QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10))RL96HIT17VHIT76007`RL97MD%(9,5)ROOMĺ"A MISS.":%8e"A FUMBLE!":FR(100(1)1):FR3540(1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0E6M:R3ROOM:3600:300m6///MONSTER TRIES TO PICK UP WEAPON6MD%(OF,10)0ı6A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:7MN$(OF);" PICKS UP ";AN$(A)::AD%(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%,10)73605A2:EAAE1A1A5AEAEA:MD%(0,10)MD%(0,10)AG55DF9RCRC1:RC10ĺ:"SUDDENLY THE GUARDIAN STOPS MOVING!"::MD%(DF,14)2:RC0:R3ROOM:3600:3005DF11MD%(DF,3)05MD%(DF,14)1DF0300+6MD%(DF,3)MD%(DF,3)2:MS$MN$(M)4P4pM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::1004zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::1004OF0:DFM:7500:HIT73604INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)24EAAE7360 5(100(1)1)MD%(0$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1S3A:LK300g3V%(ROOM)0:300~3X///ATTACK COMMAND3b49003gS$"SNAKE"71003lM26:MD%(M,5)ROOMS$MN$(M)3v:72803S$"BEAR"7280 4M1214:MD%(M,5)ROOM///LOOK COMMAND:2zS$"COFFIN"AD%(5,4)ROOMS$AN$(4)2LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1:A4A5ĺ"YOU FIND A SECRET BUTTON.":AD%(6,4)ROOM2A:LK300D3A1NM:MN$(A)S1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND."::51001MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)113001A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM1A:WT0:50602pPREVIOUSLY SPECIFIED.<0)S$""ĺ:C$(C);" WHAT";:S$:4900B0.W0///DROP COMMANDj0S$"ALL"51000A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::1000WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED.":u1WT10MD%(0,ARACTERS,R";A:A$:A$""Ă:ANC1:DK$;"WRITE CHARACTERS,R0":NC1/ DK$;"WRITE CHARACTERS,R";A:NY$:HY:GY:CY:A14:SY%(A)::A15:WY%(A)::E2:SY$:0:B6:CX/*A14:"NONE":0:0:0:0::DK$;"CLOSE"/40$///ROUTINE TO GET S$ IF NOT "THAT ISN'T A WEAPON!"::100N///SAY COMMAND`L>4900L>S$"BLAST"V$S$:S$"":11000L>S$"HEAL"12000L>S$"POWER"13000L>S$"SPEED"14000L>S$"EAMON"ROOM5116900`M>:"SUDDENLY, THE WHOLED%(0,2)2MD%(0,2)pK6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300K:///SMILE COMMANDK::M1NM:MD%(M,5)ROOM15100K:MD%(M,14)15030,15040,15050K:MN$(M);" GROWLS AT YOU":15100L:MN$(M);" IGVERYTHING YOU HAVE LEARNED ABOUT USING WEAPONS AND ARMOUR.":|J4AE0:WA%(1)5:WA%(2)10:WA%(3)20:WA%(4)10:WA%(5)0J4MD%(0,9)1AMD%(0,9):17980J4300J6///SPEED SPELLJ6S3:11500:SUC300K6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MGI3:"A BLUISH GAS APPEARS BESIDE YOU."::A14:S2%(A)SA%(A)::300YI3RR10013500I3"ALL OF YOUR WEAPONS FALL TO THE GROUND."::A1NA:AD%(A,4)1AD%(A,4)ROOMI4:MD%(0,9)1:300BJ4:"A FOG SETTLES ABOUT YOUR MIND AND YOU FORGET E0H63:"A PURPLE SCINTILATING RAY BLASTS FROM YOUR EYES AND STRIKES EVERYBODY IN THE ROOM."::DF1NM:MD%(DF,5)ROOMİ7700H@3DF:300H^3RR6013200Hh3:"YOU GET THE SAME CHARGE YOU GET OUT OF A HEAL SPELL!":Hr312020H3RR9013300GG2 ///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS`G2S4:11500:SUC300G2RR(100(1)1):RR1013100G2:"A HUGE CAVE-IN COLLAPSES THE TUNNEL YOU ARE IN AND YOU DIE."::DIE1:2000G,3RR3513150H13MD%(9,5)ROOM1302 OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:YF.///HEAL SPELLrF.S2:11500:SUC300F.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":F.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0G/DF0:7650:300:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600mE,SUCĺ:"NOTHING HAPPENED.":E-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2E -S2%(S)S2%(S)2E-FFP-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00=D$':300QD*///BLAST SPELL[D+4900D,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100D,S1:11500:SUC300D,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300JE,SUC0NAR. YOU TELL":" HIM THE DESPERATE PLIGHT OF THE":" KINGDOM. HE AGREES TO GO WITH YOU."::2000C'///INVENTORY COMMAND2D':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01MD%(M,4)2MD%(M,4)+B#R3ROOM:3600:5050|B%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::300B&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):9120gC%AD%(11,4)0:MD%(10,5)ROOM::"THE POTION AWAKENS MOLI REFUSED!":300AA#M10A11ĺ:"THE BODY DOES NOT STIR.":300]A#AMD%(0,9)MD%(0,9)1qA#M10A119600A#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)B#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):"::100!@Z#S$(S$,(MN$(M))1)C@d#(S$,1)" "S$(S$,2):9060U@i#(S$)09500@n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)19095@x#:A22A23::"WHAT TO GIVE? ";S$:9065@#:"YOU AREN'T CARRYING A ";S$;"!"::100A#A11M10ĺ:"IT ISK$"?>!R2DR%(6(1)1):R218510(?H!=?(#///GIVE COMMANDF?2#A21w?7#(S$,7)"MOLINAR"AD%(12,4)ROOMM10:9050?<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM9050?F#:A21A22::"WHO TO GIVE TO? ";S$:9020@P#:"NOBODY HERE BY THAT NAME!ōčĠčӍōЍˍ΍Ǡҍōԍ΍Ġ͍΍Ԡ΍Ġ΍Π΍ҍΠҍč       )ROOMĺ:"I'M NOT SURE HOW TO FREE IT!":100vRN"OK.":AD%(18,4)0:AD%(19,4)ROOM:MD%(11,5)ROOM:R3ROOM:3600:100D00QQ>N:"WHATEVER YOU SAY, BOSS!":AD%(27,4)0:MD%(15,4)ROOM:R3ROOM:3600:300QN(S$,2)"LY"(AD%(7,4)ROOMAD%(8,4)ROOM)20200QN"OK.":AD%(9,4)ROOM:AD%(7,4)0:AD%(8,4)0:MD%(7(SEX$"F"),5)ROOM:R3ROOM:3600:300.RNS$"WIZARD"AD%(18,4EN!"::300.PF"THE PANEL SLIDES SHUT.":300CP8J///OPEN COMMANDRPBJNBTL3010PLJAD%(4,4)ROOMĺ:"THERE'S NOTHING HERE TO OPEN!":100PVJAD%(4,4)0:AD%(5,4)ROOM:100P N///FREE COMMANDP*NNBTL3010Q4N4900:S$"DRAGON"AD%(27,4)ROOM201"YOU BROKE THE MIRROR, AND A PERSON JUST STEPPED OUT FROM IT!"::AD%(2,4)0:AD%(3,4)ROOM:MD%(1,5)ROOM:R3ROOM:3600:100OF(S$,6)"BUTTON"AD%(6,4)ROOMĺ:"NOTHING HAPPENS.":300 PFF1(F1):F1ĺ:"A SECRET PANEL IN THE SOUTH WALL SLIDES OPՠŠΠˬРҠ͠ȠϠȮՠŠԠŠŠϠŠ ƠҮƠՠŠϠŠ׬Šՠ̠ŬՠΠϠȮƠՠŠŠŠΠͬϠȠϠŠ¡                        ĠÍĠҳĠ΍ĠұĠҲĠҍĠҍĠ͍Ġ΍ĠŵĠĠųĠŴĠűĠŲЍĠύōĠ΍ōōҍĠˍōōōՠŠנŠάȠҠԠՠΠ ˠЮȠӠϠƠΠ̠ӮՠŠΠŠҠҠƠŠƠҮŠ٠ԠӠȠ٠ϠŠȮŠӠנȠҮՠŠΠŬҠҮŠӠŠ٠ĠȠŠӠƠԠĮҠӠȬĠ٠ӠϠҠҠϠŠȮՠŠΠҠԠӠ͠ȠϠȮŠӠϠŠŠҠϠŠȮՠŠΠҠǠ͠ȠϠȮŠҠӠȠҠŮՠŠΠҠǠ͠ȠϠȮՠŠΠ̠ҠǠ͠ȠϠȮՠŠΠ̠ҬȠҠǠϠŠȮŠӠנȠΠŠΠԮՠŠΠҠԠӠ͠ȠϠȮՠŠԠϠŠȮՠŠΠˠҠԠӠ͠ȠϠȮՠŠΠ̠ҠȠŠԠǠϠŠԮՠŠΠΠԯԠҮӠϠŠҠϠŠԡՠŠΠ٠̠ҮŠ٠ԠӠϠŠԮՠŠΠΠԯԠҮӠҠϠŠԮՠŠŠϠΠΠƠϠӮӠϠϠӠΠ̠ҠӮՠŠΠҠǠ͠ȠϠȮՠŠԠŠȠĠƠҮҠӠϠŠȮΠĠϠŠ̭ĠӠĠ٠ȠҮŠϠŠϠĠŠԮՠŠΠҠǠ͠ȠϠȮՠŠΠ̠Ǡ͠ȠϠȮՠŠΠ̠ҮŠ٠ԠӠϠŠԮՠŠΠΠԯԠҮՠŠҠϠŠԮՠŠΠҠԠӠ͠ԠϠԮՠŠΠ̠ҮŠ٠ԠӠϠŠȮŠӠŠŠ٠ȮŠĠŠŠӠƠנϮŠҠӠŬȠǠȠϠԮՠŠΠҠԠӠ͠ԠϠԮՠŠŠϠԭΠŮҠӠȬĠӠϠԠĠԮԮՠŠΠҠԠӠ͠ȠϠȮՠŠΠҠԠӠ͠ȠϠȢՠŠΠΠԯԠҢՠŠΠΠԯԠҢՠŠΠΠԯԠҢՠŠΠΠԯԠҢՠŠΠ̠ԠӠ͠ϠȮŠ̠Ӡ٠ǬȠŠȠĠǡՠŠΠŠҮӠŠȠĠȮՠŠΠȯȠҮՠΠ̠Ԡ͠ŠҠǠϠŠȮŠҠӠŬǠȠԮՠŠΠ٬٠ŠҠȠŠ٠ԠǠϠŠԮŠҠӠŬǠȠԮՠŠΠҠǠ͠ԠԮŠҠӠŬǠȠԮՠŠԠΠΠƠӮŠӠ̠ǠȠĠȮ̠ϠӠԮ٠Ԡ̠ӠԠϠŠҮŠҠӠŬǠȠԮՠŠΠҠǠ͠ԠԮŠҠӠŬǠȠԮŠԭĠ̠ӠŬϠȯȠҮՠŠΠΠԯԠҢՠŠΠҠǠ͠ԠԮՠŠΠ̠ҮŠ٠ԠӠϠŠȮՠŠΠŬȠǧӠ͡ՠŠŠĠˮԠӠΠΠȬŠՠŠҠĠϠĮՠŠΠŮՠŠŠԠĭǠҬǠ٠ΠŮՠŠǠΠάĠӠŮՠŠŠԠŬԠԠŠĠӠԮĠΠŠԠŠŠӠͭŭͭͧՠŠΠĬĠΠ΢ՠŠΠ٠ĠάĠΠΠĠΠήŠӠǠϠŠƮӠŠӠͮՠŠΠ٠ĠŬĠРΠȠΠӮŠӠǠŠƮҠŠӠՠŠ̬ΠΠΠŠŠƠŠήՠŠŠάנǠήŠŠΠӠԠŠΠϠŠӡՠŠŬ٠ΠǠŮԠӠĮՠŠŠҬΠϠӮՠŠҠΠŠ̮ŧӠǠ٠ĭՠΠŠΠŠҠԠӠԠΠӠ͡ŠҠ̠ҠŠӠήԠӠĠ٠ŠΠĠŠҠӮ