+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮL΍͍ōōōō EAMON.ROOM NAMES,L64"Why100-> THE TOMB OF MOLINAR <-B[ BY DONALD BROWNasREV.10/16/88 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":31000 2216,0:1000z#      ήӠήàsΠ͠QҠΠŠ Š ƠҠԠźήŠήӠή͠ӠήӠ      Š ƠҍE":" 'EAMON MASTER DISKETTE'.":::DK$;"CLOSE":A:LP. YOU MUST ENTER THE TOMB":"ALONE. GOOD LUCK!"L xDK$;"RUN MAIN PGM"R  23::"PRESS ANY KEY TO CONTINUE";::A$::3:958: (222)5ĺDK$;"CLOSE"4:5:"I'M SORRY, BUT YOU MUST ONLY ENTER THIS PROGRAM FROM THE MAIN HALL OF TH 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 RE5 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  ;" WAS":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": <);"**";38);"*****************************************": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$8A$"THE TOMB OF MOLINAR":NUM11:A2$"DONALD BROWN"@9tD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM" 216,0 ::9 "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2))  Ԡҭ٠΍ΠΠԯԠҍΠŠŠ͍ȠΠԠԍΠΠԯԠҍԠŠōΠȯȠҍΠȯȠҍ     ŵųŴűŲٍ   ΠȯȠҍΠŠΧӠҍΠǠȯȠ̍ԠŠĠčΠΠԯԠҍԠĠΠŠһӠ׍ΠŠҠȠԠԍԠĠΠŠһΠōΠΠԯԠҍԠĠΠŠһΠōԠҭ٠ήԠĠΠŠһӠōΠΠԯԠҍΠΠԯԠҍԠԭλίӠĠԍԠĠΠŠһΠ׍ΠȯȠҍΠȯȠҍΠίӠҠȠ΍ΠŠħӠҍΠ̠ҠȠԠȮΠΠԯԠҍΠΠԯԠҍΠŠҠҍΠȯȠҮԠԭλůנĠȍΠΠԯԠҍԠĠΠŠһΠōΠΠԯԠҍΠΠԯԠҍΠΠԯԠҍΠȯȠҍΠΠҠҠȠӠΠӍΠŠҠҍԠҭ٠Πנ΍ΠΠԯԠҍΠȯȠҍΠȯȠҍΠŠȯȠҍΠȯȠҮΠŠҠ͍ΠȯȠҍΠȯȠҍΠŠΠ͍ĠčӍōЍˍ΍Ǡҍōԍ΍Ġ͍΍Ԡ΍Ġ΍Π΍ҍΠҍč      Íҳ΍ұҲҍҍ͍΍ՠŠԠŠŠϠŠ ƠҮƠՠŠϠŠ׬Šՠ̠ŬՠΠϠȮƠՠŠŠŠΠͬϠȠϠŠ¡                         ĠÍĠҳĠ΍ĠұĠҲĠҍĠҍĠ͍Ġ΍ĠŵĠĠųĠŴĠűĠŲЍĠύōĠ΍ōōĠˍōōōōōčՠŠΠŠҠҠƠŠƠҮŠ٠ԠӠȠ٠ϠŠȮŠӠנȠҮՠŠΠŬҠҮŠӠŠ٠ĠȠŠӠƠԠĮҠӠȬĠ٠ӠϠҠҠϠŠȮՠŠΠҠԠӠ͠ȠϠȮŠӠϠŠŠҠϠŠȮՠŠΠҠǠ͠ȠϠȮŠҠӠȠҠŮՠŠΠҠǠ͠ȠϠȮՠŠΠ̠ҠǠ͠ȠϠȮՠŠΠ̠ҬȠҠǠϠŠȮŠӠנȠΠŠΠԮՠŠΠҠԠӠ͠ȠϠȮՠŠԠϠŠȮՠŠΠˠҠԠӠ͠ȠϠȮՠŠΠ̠ҠȠŠԠǠϠŠԮՠŠΠΠԯԠҮӠϠŠҠϠŠԡՠŠΠ٠̠ҮŠ٠ԠӠϠŠԮՠŠΠΠԯԠҮӠҠϠŠԮՠŠŠϠΠΠƠϠӮӠϠϠӠΠ̠ҠӮՠŠΠҠǠ͠ȠϠȮՠŠΠˬРҠ͠ȠϠȮՠŠΠҠǠ͠ȠϠȮՠŠΠ̠Ǡ͠ȠϠȮՠŠΠ̠ҮŠ٠ԠӠϠŠԮՠŠΠΠԯԠҮՠŠҠϠŠԮՠŠΠҠԠӠ͠ԠϠԮՠŠΠ̠ҮŠ٠ԠӠϠŠȮŠӠŠŠ٠ȮŠĠŠŠӠƠנϮŠҠӠŬȠǠȠϠԮՠŠΠҠԠӠ͠ԠϠԮՠŠŠϠԭΠŮҠӠȬĠӠϠԠĠԮՠŠΠҠԠӠ͠ȠϠȮՠŠΠҠԠӠ͠ȠϠȢՠŠΠΠԯԠҢՠŠΠΠԯԠҢՠŠΠΠԯԠҢՠŠΠΠԯԠҢՠŠנŠάȠҠԠՠΠ ˠЮȠӠϠƠΠ̠ӮՠŠΠŠҮӠŠȠĠȮՠŠΠȯȠҮՠΠ̠Ԡ͠ŠҠǠϠŠȮŠҠӠŬǠȠԮՠŠΠ٬٠ŠҠȠŠ٠ԠǠϠŠԮŠҠӠŬǠȠԮՠŠΠҠǠ͠ԠԮŠҠӠŬǠȠԮՠŠԠΠΠƠӮŠӠ̠ǠȠĠȮ̠ϠӠԮ٠Ԡ̠ӠԠϠŠҮŠҠӠŬǠȠԮՠŠΠҠǠ͠ԠԮŠҠӠŬǠȠԮŠԭĠ̠ӠŬϠȯȠҮՠŠΠΠԯԠҢՠŠΠҠǠ͠ԠԮՠŠΠ̠ҮŠ٠ԠӠϠŠȮՠŠԠŠȠĠƠҮҠӠϠŠȮΠĠϠŠ̭ĠӠĠ٠ȠҮŠϠŠϠĠŠԮՠŠŠĠˮԠӠΠΠȬŠՠŠҠĠϠĮՠŠΠŮՠŠŠԠĭǠҬǠ٠ΠŮՠŠǠΠάĠӠŮՠŠŠԠŬԠԠŠĠӠԮĠΠŠԠŠŠӠͭŭͭͧՠŠΠĬĠΠ΢ՠŠΠ٠ĠάĠΠΠĠΠήŠӠǠϠŠƮӠŠӠͮՠŠΠ٠ĠŬĠРΠȠΠӮŠӠǠŠƮҠŠӠՠŠ̬ΠΠΠŠŠƠŠήՠŠŠάנǠήŠŠΠӠԠŠΠϠŠӡՠŠŬ٠ΠǠŮԠӠĮՠŠŠҬΠϠӮՠŠҠΠŠ̮ŧӠǠ٠ĭՠΠŠΠŠҠԠӠԠΠӠ͡ŠҠ̠ҠŠӠήԠӠĠ٠ŠΠĠŠҠӮՠŠԠĠĠƠŠҮŠ٠ԠӠˠϠŠȮՠŠĠĠĠΠŠ̭ϧՠŠΠ̠ԠӠ͠ϠȮŠ̠Ӡ٠ǬȠŠȠĠǡՠŠŠϠՠĠ͠ŠҠǠĠԠҠԢՠŠ̠ТՠŠά٠ĠΠԮՠŠΠĠčƢՠŠΠĠōՠŠΠĠţŢՠŠΠōΠĠōՠŠĠˠȠӍz     ĠӠˠΠŠŬȠŠԠǮŠĠӠϠŮՠŠŠŬǠΠŠҠƠŠͮՠŠŠӬϠҠǠȠΠԮՠŠĬĠΠӠԠנȠΠŠΠԮĬŠӠȠՠȠӠϠŠͮՠŠΠТՠŠŠŠƠήԠӠŠƠĠĢՠŠΠŬȠǧӠ͡     ՠŠŠìġՠŠŠάġՠŠĠҢՠŠĠҢՠŠĠҢՠŠҬĢՠŠҬĢՠŠŠάĢՠŠͬĢՠŠĢՠŠĠŢՠŠĠŢՠŠĠŢՠŠĠŢՠŠĠŢŠĠĠŠ̠ӠŠŠԬԠȠӠԠ ĠҠԠծӬӬԧӠנ٠ϠŠáՠŠŬŭŠŮˠԠӠάȠՠҠנ٠נŠϠšՠŠŠΠҢՠŠŠΠҢՠŠŬˠҢՠŠĠĬϠӠՠԠŠӠŠԠĠĭǠҮՠŠŠԠĬҢՠŠŠΠŠƠŮŠӠŠ΢ՠΠŠ͠׮ŠӬԠԬŠԠӠˠƠΠŠҠΡՠŠנԠՠΠŠҠ̬ŠӠŠԠ̠ΠՠŠҠΡՠŠȠǠŢՠŠȠǠŢՠŠĠǠŢՠŠҠǠŢՠŠŠŬǠԠբՠŠŠҮŠӠӠŠӠٍOM1A770788:P:A,P:BSEX$"F"AD%(7,4)0:AD%(8,4)14Kl100Tv 37 NORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,TAKE,DROP,PUT,LOOK,EXAMINE,ATTACK,FLEE,RETREAT,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY,SAVEEAEAA210: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,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3jNC:C$(NC):C1NC:C$(C):tS14:S2%(S)SA%(S)::V%(96):RO5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W24Y8WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5.VA2MD%(0,8)MD%(0,8)A2:%(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 EAMON.ROOMS,L64"G.W214:WN$(W2)"NONE"NANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:AD%(NA,: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)::A15:WA%(A)::AE,SEX$,GOLD,BANK,ACANW15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT$;"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:AD%(A,A2):A2/A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A0:490OFMUM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490]M2NBTL(FD%(1)TD%(1)):NBTLĂM100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZDK,5)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490`YMD%(M,14)2490u^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7505000,15000,16000,17000,30000,18000,19000,20000N,///COMMANDS RETURN TO HERE]6NBTL500}@M1NM:MD%(M,5)ROOM490JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)100(41(1)20)KTMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(MND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210` C$(C)S$S$V$:V$C$(C)."C3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,4000,4000,5000,5000,6000,6000,7000,8000,8000,8000,9000,10000,10000,11000,12000,13000,14000,1 :" YOUR COMMAND?";A$< (A$,1)" "A$(A$,2):220] A$""A$CZ$:(37):17:A$ CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):260C C1NC:C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAR";M300:A$:DK$:A$:MD%(M,15)1:] M:A1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A) AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1: A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE." A:V%(ROOM)1RE ":" ";A$:U V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1 ROOM11F1ĺ"YOU SEE A SECRET PASSAGE TO THE SOUTH": M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERE.":# MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DESC,: d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMAND@ n xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": V%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU A O EAMON ADVENTURE #11<-> THE TOMB OF MOLINAR <-B[ BY DONALD BROWNasREV.10/16/88 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":31000 2216,0:1000                     !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""AD%(A,3)::AD%(A,2)2MD%(0,9)13003&617000T&@A1NA:AD%(A,4)ROOM4190&J4200:WTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":4190&TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)&^::300'h///INSERT HERE SPECIAL EFFECTS OF PICKI%<M:NBTL(TD%(1)0):-%///GET COMMAND7%4900J%S$"ALL"4160%A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100%"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100(&,:"GOT IT.":AD%(A,4)1:WTWTM9M15)MD%(M,5)ROOM:36708$.MD%(M,5)ROOM3900L$8MD%(M,14)3670{$BFRMD%(M,3):FRFR100FRFR((CH10)2)$LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3%VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)9,5)ROOMRC0V#ROOM12MD%(11,5)ROOMMD%(11,3)0:MD%(11,14)1:R3ROOM:3600:300_# 100#///CHECK REACTIONS ON MONSTERS#TD%(1)0:TD%(3)MD%(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)AD%(5,4)ROOMR218:35005" R212F1R212:3500e" :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100" AD%(7,4)ROOMAD%(8,4)ROOMĺ:"YOU FEEL A LIGHTNING BOLT STRIKE YOU FROM THE WALLS!"::DF0:D3:S10:7635" R3ROOM:ROOMR2:3600# MD%(:100,! D16:(V$,1)("NSEWUD",D,1)Ăb! DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$q! R203500! ///SPECIAL MOVES! R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000! R23490! R217R217:3500" R218: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 MAIN HALL,S6,D1" ///MOVE COMMAND! NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!":";:A$:U DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":2900 DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A):* A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:A14WRITE CHARACTERS,R1"::DK$;"CLOSE":DIE1 ::"YOU REALEASED THE EVIL WIZARD MONIMAR FROM HIS BONDAGE. HIS INSANE":" EXPERIMENTS DESTROY THE UNIVERSE,":" KILLING YOU AND EVERYONE ELSE ON THIS DISKETTE." :"(PRESS ANY KEY TO CONTINUE) 2500[ :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0q A$:A$"C"2511 :MD%(11,5)02540) DK$;"UNLOCK CHARACTERS":DK$;"DELETE CHARACTERS":DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R0":0:DK$;"%(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 ABOUT YOUR GOOF IN FREEING HIM.":MD%(11,5)08 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$:U ";( TP0:A1NA:AD%(A,4)12350Q AD%(A,2)0AD%(A,1)AD%(A,1)CH10d$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":0 MD%(10,5)0ĺ:"FOR CALLING FORTH MOLINAR, THE KING REWARDS YOU WITH ";100CH;" GOLD PIECES.":TPTP100CH1 MDW21:W252060wW14: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) W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOTHE LEGAL LIMIT."::"YOUR WEAPONS ARE--"W1W21:4);W;"--";WN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") " (37):23:A$:W5(A$):W51W5W21W5(W5)2080*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0eA:W262300) :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAPONS":"TO KEEP THEM ALL--4 IS HIT,OPEN,FREEW 173,48,192,136,208,4,198,1,240,8,202,208,246,166,0,76,2,3,96 n///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$;"CLOSE":SPDMD%(0,2)MD%(0,2)24500DIE2500SW14:WN$(W)"NONE"::100&6OF0:DFM:7500:HIT7360T6INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2f6EAAE73606(100(1)1)MD%(0,10)73606A2:EAAE1A16AEAEA:MD%(0,10)MD%(0,10)A607DF9RCRC1:RC10ĺ:"SUDDENLY THE GUARDIAN STOPS5b49005gS$"SNAKE"7100B5lM26:MD%(M,5)ROOMS$MN$(M)N5v:7280c5S$"BEAR"72805M1214:MD%(M,5)ROOMS$MN$(M)55pM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::1006zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"MON.DESC,R";A100:A$:DK$::A$::LK1:A4A5ĺ"YOU FIND A SECRET BUTTON.":AD%(6,4)ROOMj4A:LK3004A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK14A:LK3004V%(ROOM)0:3004X///ATTACK COMMAND,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1/3300j3A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM|3A:WT0:50603p///LOOK COMMAND3zS$"COFFIN"AD%(5,4)ROOMS$AN$(4)[4LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAS$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100n2WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED.":2WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND."::5100&3MD%(0(A)::A15:WY%(A)::E2:SY$:0:B6:CXX1*A14:"NONE":0:0:0:0::DK$;"CLOSE"^141$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.1)S$""ĺ:C$(C);" WHAT";:S$:49001.1///DROP COMMAND1S$"ALL"510072A1NA:AN$(A)ER TO CHARACTERS FILE,0MN$(1)"SMITHY"ı0DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:A1NC:DK$;"READ CHARACTERS,R";A:A$:A$""Ă:ANC1:DK$;"WRITE CHARACTERS,R0":NC1*1 DK$;"WRITE CHARACTERS,R";A:NY$:HY:GY:CY:A14:SY%DESC,R301":"YOU SEE A FREE ADVENTURER. HE SAYS HIS NAME IS SMITHY"h/DK$;"CLOSE":MN$(1)"SMITHY"ı/DK$;"OPEN MIRROR":DK$;"READ MIRROR":NY$:HY:GY:CY:A14:SY%(A):/A15:WY%(A)::E2,SY$,A,B6,CX:DK$;"CLOSE":0///RESTORE CHARACT;"WRITE EAMON.ARTIFACTS,R";W:"NONE":0:0:0:0:e.DK$;"WRITE EAMON.DESC,R123":"YOU SEE AN AXE".DK$;"WRITE EAMON.ARTIFACTS,R22":"GOLD SACK":500:0:5:8:DK$;"WRITE EAMON.DESC,R122":"YOU SEE A GOLD SACK WITH 500 PIECES"D/DK$;"WRITE EAMON.EN EAMON.DESC,L256":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"WRITE EAMON.MONSTERS,R1":"SMITHY":18:16:100:50:0:0:0-1:1:30:0:02.DK$;"WRITE EAMON.ARTIFACTS,R23":"AXE":50:2:3:8:10:1:1:6:W2426:DK$ EAMON.DESC,R301":"YOU SEE A FREE ADVENTURER. SHE SAYS HER NAME IS ";MN$(0),+DK$;"CLOSE":DK$;"LOCK EAMON.MONSTERS":DK$;"LOCK EAMON.DESC":DK$;"LOCK EAMON.ARTIFACTS",0DIE1:2000,///RESTORE FILES IF SURVIVES,MD%(1,5)0DIEı-DK$;"OP2767+DK$;"WRITE EAMON.ARTIFACTS,R22":"GOLD SACK":GOLD:0:5:8:DK$;"WRITE EAMON.DESC,R122":"YOU SEE A GOLD SACK WITH ";GOLD;" PIECES"L,&DK$;"WRITE EAMON.DESC,R301":"YOU SEE A FREE ADVENTURER. HE SAYS HIS NAME IS ";MN$(0):SEX$"F"ĺDK$;"WRITEMONSTERS,R1":MN$(0):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):+GOLD32767GOLD3:WS%(A):o)DK$;"CLOSE":DK$;"UNLOCK EAMON.MONSTERS":DK$;"UNLOCK EAMON.DESC":DK$;"UNLOCK EAMON.ARTIFACTS")DK$;"CLOSE":DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.MONSTERS,L128"(*MD%(0,9)1:DK$;"WRITE EAMON.FIND YOURSELF INTHE MIRROR."::<(MD%(0,3)100:MD%(0,4)50(DK$;"OPEN MIRROR":DK$;"UNLOCK MIRROR":DK$;"WRITE MIRROR":MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A): )A15:WA%(A)::AE:SEX$:0:BANK:AC:A14:"NONE":WT%(A):WO%(A):WD%(A)NG 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ı(:"AS YOU GRAB THE MIRROR, YOU FEEL":"YOURSELF BEING TURNED INSIDE OUT. WHEN":"YOUR VISION CLEARS, YOU %(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100KF,S1:11500:SUC300F,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300F,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600F,SUCĺ:"NOTHING HAPPENED.":7G-RLORY COMMANDE':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00E$':300E*///BLAST SPELLE+49002F,M1NM:S$MN$(M)MD:300OD&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):9120D%AD%(11,4)0:MD%(10,5)ROOM::"THE POTION AWAKENS MOLINAR. YOU TELL":" HIM THE DESPERATE PLIGHT OF THE":" KINGDOM. HE AGREES TO GO WITH YOU."::2000 E'///INVENT:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)C#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)C#R3ROOM:3600:5050D%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!":(A)AD%(A,4)19095BBx#:A22A23::"WHAT TO GIVE? ";S$:9065pB#:"YOU AREN'T CARRYING A ";S$;"!"::100B#A11M10ĺ:"IT IS REFUSED!":300B#M10A11ĺ:"THE BODY DOES NOT STIR.":300B#AMD%(0,9)MD%(0,9)1B#M10A119600DC#08A<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM9050hAF#:A21A22::"WHO TO GIVE TO? ";S$:9015AP#:"NOBODY HERE BY THAT NAME!"::100AZ#S$(S$,(MN$(M))1)Ad#(S$,1)" "S$(S$,2):9060Ai#(S$)09500Bn#A1NA:(S$,(AN$(A)))AN$//FLEE COMMANDC@JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100S@*!8500:3500@4!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$@>!R2DR%(6(1)1):R218510@H!@(#///GIVE COMMAND@2#A21A7#(S$,7)"MOLINAR"AD%(12,4)ROOMM10:905N$(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),4)ROOM:MD%(DF,10)MD%(DF,10)AD%(MD%(DF,9),5):MD%(DF,9)1:MD%(DF,4)MD%(DF,4)2?DF0DIE1:2000?:@@/)FD%(A)D2Q>:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675x>" IS STILL IN GOOD":" SHAPE.":>" IS HURTING.":>" IS IN PAIN.":>" IS VERY BADLY INJURED.":>" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":?M100D3D:7635=7700y=D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::=MD%(DF,13)MD%(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%(A770I<"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!":7635<"A CRITICAL HIT!":R2(100(1)1):R251A0:7635<R286S1.5S:7635<R296D2D:7635=R2MD%(OF,11):SMD%(OF,12):DFOF:A1:7635W;DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635;INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC;DF15MD%(OF,9)107605<0,255:1,200:770:0,230:1,75:770:0,200:1,150:770:0,255:1,255:MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::C:oFR957550:t" WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2:(1).5ĺ::y" BROKEN WEAPON HURTS USER!":~FR1007560';D5RLMD%(OF,10)MD%(DF,7))RL96HIT149VHIT7600Z9`RL97MD%(9,5)ROOMĺ"A MISS.":9e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::3:jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(,8A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:8MN$(OF);" PICKS UP ";AN$(A)::AD%(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:8LHIT0:MD%(OF,9)17400&9QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL MOVING!"::MD%(DF,14)2:RC0:R3ROOM:3600:300G7DF11MD%(DF,3)0b7MD%(DF,14)1DF03007MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)07M:R3ROOM:3600:3007///MONSTER TRIES TO PICK UP WEAPON8MD%(OF,10)0GAME?":" Y OR N:";A$:A$"N"1000nV,y(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"V6yDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"WTyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN5)(106)2561gUvuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561Uu:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."UuUy /// RESTARTUy216,0#V"y:"DO YOU WANT TO RESTART THIS T0u // SAVE GAMEIT:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";hTDuA$:A$"Y"A$"N"30020|TNuA$:A$"N"100TXuDK$;"CLOSE":X(0)TbuDK$"BSAVE GAME.PTRS,A$69,L8"UluDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(10D%(8,4)ROOM)20200oSN"OK.":AD%(9,4)ROOM:AD%(7,4)0:AD%(8,4)0:MD%(7(SEX$"F"),5)ROOM:R3ROOM:3600:300SNS$"WIZARD"AD%(18,4)ROOMĺ:"I'M NOT SURE HOW TO FREE IT!":100TN"OK.":AD%(18,4)0:AD%(19,4)ROOM:MD%(11,5)ROOM:R3ROOM:3600:100HING HERE TO OPEN!":100:RVJAD%(4,4)0:AD%(5,4)ROOM:100OR N///FREE COMMAND^R*NNBTL3010R4N4900:S$"DRAGON"AD%(27,4)ROOM20100R>N:"WHATEVER YOU SAY, BOSS!":AD%(27,4)0:MD%(15,4)ROOM:R3ROOM:3600:300SN(S$,2)"LY"(AD%(7,4)ROOMA0:100GQF(S$,6)"BUTTON"AD%(6,4)ROOMĺ:"NOTHING HAPPENS.":300QFF1(F1):F1ĺ:"A SECRET PANEL IN THE SOUTH WALL SLIDES OPEN!"::300QF"THE PANEL SLIDES SHUT.":300Q8J///OPEN COMMANDQBJNBTL3010RLJAD%(4,4)ROOMĺ:"THERE'S NOT%(A,7):MD%(0,12)AD%(A,8)2PFF:"READIED."::300FPPF///HIT COMMANDUPZFNBTL3010PdF4900:S$"MIRROR"AD%(2,4)ROOM18100QnF:"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:360'"::300!OhB///READY A WEAPON.+OrB4900vO|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100OBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100PS$"HEAL"120008N>S$"POWER"13000NN>S$"SPEED"14000nN>S$"EAMON"ROOM5116900N>:"SUDDENLY, THE WHOLE WORLD SPINS AROUND YOU. WHEN YOUR VISION CLEARS, YOU SEE THAT--"::R3ROOM:ROOM1:3600:100 OB:"OKAY, '";S$;"///SMILE COMMAND4M::M1NM:MD%(M,5)ROOM15100UM:MD%(M,14)15030,15040,15050yM:MN$(M);" GROWLS AT YOU":15100M:MN$(M);" IGNORES YOU":15100M:MN$(M);" ";V$;"S BACK":15100M:M::300M>///SAY COMMANDM>4900 N>S$"BLAST"V$S$%(5)0)L4MD%(0,9)1AMD%(0,9):179802L4300FL6///SPEED SPELL_L6S3:11500:SUC300L6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)L6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300M:LL TO THE GROUND."::A1NA:AD%(A,4)1AD%(A,4)ROOMNK4:MD%(0,9)1:300K4:"A FOG SETTLES ABOUT YOUR MIND AND YOU FORGET EVERYTHING YOU HAVE LEARNED ABOUT USING WEAPONS AND ARMOUR.":L4AE0:WA%(1)5:WA%(2)10:WA%(3)20:WA%(4)10:WA5)ROOMİ7700J@3DF:300+J^3RR6013200mJh3:"YOU GET THE SAME CHARGE YOU GET OUT OF A HEAL SPELL!":xJr312020J3RR9013300J3:"A BLUISH GAS APPEARS BESIDE YOU."::A14:S2%(A)SA%(A)::300J3RR100135007K3"ALL OF YOUR WEAPONS FARR1013100aI2:"A HUGE CAVE-IN COLLAPSES THE TUNNEL YOU ARE IN AND YOU DIE."::DIE1:2000rI,3RR3513150I13MD%(9,5)ROOM13020 J63:"A PURPLE SCINTILATING RAY BLASTS FROM YOUR EYES AND STRIKES EVERYBODY IN THE ROOM."::DF1NM:MD%(DF,.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":vH.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0H/DF0:7650:300H2 ///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTSH2S4:11500:SUC300 I2RR(100(1)1):(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2KG -S2%(S)S2%(S)2QG-GP-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:G.///HEAL SPELLG.S2:11500:SUC3008H