+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮLz!#      ήӠ ήàeήӠ  Π͠BΠŠ ԠΠŠŠҠԠźήŠήӠ  ή͠Ӡ ήӠ    ԠΠŠŠҍ"CLOSE" :5:"I'M SORRY, BUT YOU MUST ONLY ENTER THIS PROGRAM FROM THE MAIN HALL OF THE":" 'EAMON MASTER DISKETTE'.":::DK$;"CLOSE":A$AND DESTROY THE DEVICE THAT KEEPS":"HIM IN POWER--THE CLONATORIUM!"::: x"THREE OF THEIR MEN WILL ACCOMPANY YOU. "::"GOOD LUCK, ";N$;"!" DK$;"RUN MAIN PGM"  23::"PRESS ANY KEY TO CONTINUE";::A$::3:958: (222)5ĺDK$;N A RAID IN":"THE FORTRESS OF THE DREADED CLONE MASTER" d::"WHEN THEY INFORM YOU THAT THEY WILL KILL":"YOU IF YOU DON'T GO ALONG, YOU AGREE.":900J n"BEFORE THE REBELS WILL RETURN YOU HOME,":"YOU MUST DO TWO THINGS--KILL THE CLONE":"MASTER " <"TO FIND YOUR WAY BACK."( F900 P"YOU CAME UPON A GROUP OF PEOPLE WHO KNEW":"OF YOUR PLIGHT. THEY ARE REBELS, AND":"CAN RETURN YOU TO YOUR WORLD. THEY WILL"8 Z"SHOW YOU THE WAY, IF YOU WILL ONLY FIRST":"GO WITH SOME OF THEIR MEN OONE MASTER'S FORTRESS ":::y ("YOU WERE WALKING AWAY FROM THE MAIN HALL":"WHEN YOU FELT THAT UNPLEASANT WRENCH IN" 2"YOUR STOMACH AGAIN. YOU ARE IN ANOTHER":"UNIVERSE. THIS TIME, YOU HAVE YOUR":"NORMAL BODY AND WEAPONS. YOU JUST NEED EAMON ADVENTURE #9<-> CLONE MASTER <-B[ BY DONALD BROWNa| START-UP PROGRAM 1000DK$(4):DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC,N$DK$;"CLOSE" :::" ASSAULT ON THE CL    SYSTEM MASTER DISKETTE."::"  50,D$(4):D$"VERIFY GAME.PTRS"BD$"RUN MAIN PGM"w2::7);"ASSAULT ON THE CLONE MASTER";6):::<"THE ASSAULT ON THE CLONE MASTER IS AN":" ADVENTURE IN THE EAMON SERIES.":: F"TO RUN THIS ADVENTURE BOOT ON THE EAMON":"          ΠŠ͍ΠŠԠ̍ΠŠŠ͍ԠĠčΠΠԯԠҍΠŠŠҧӠӍΠŠōΠȯȠҍԠҭ٠΍ΠΠԯԠҍԠίŠĠΠŠҍԠԭλίӠĠԍΠٲΠĠͲΠȯȠҍԠԭλίӠĠԍΠٱΠĠͱΠΠԯԠҍΠȯȠҍΠȯȠҮΠҭ٠ήΠΠԯԠҍΠΠԯԠҍΠŠԧӠӍΠΠԯԠҍΠŠˠ͍ԠŠōΠȯȠ̍Πҭ٠ήĸĹĶķĴĵIJijҵıҳҴұҲ̲̳͠͠Ա̱͠ԸԹԶԷԴԵԲԳ΍Ա̍čٍō׍ҠӍӍǠٍԠҠ͍Ġ͍˵΍˳˴˱˲IJijı  IJŠҍııııııııııՠŠԠҭ٠ήǠؠΠŠǠӠԮՠŠΠȯȠҮǠؠӠΠŠǮŠҠӠϠΠРϠŠȮՠŠΠȯȠҮǠؠӠΠŠƮՠŠΠ͠ȠŠ٠ԠϠŠԮՠŠΠˠ͠Ӡ٠ٮՠŠΠΠԯԠҮӠǠؠΠŠǮՠŠΠ͠ȠŠ٠ԠǠϠŠԮӠӠŠԠ٠ͬȠԠΠŠӠĠϠŠӮՠŠΠΠԯԠҮӠҠǠؠΠŠǮՠŠŠϠΠΠƠϠӬȠӠǠΠ̠ӮԠӠǠĠ٠ǠؠΠŠǬĠŠ̮ҠӠΠՠԠϠȠŠӮՠŠΠˠ̠Ǡ͠ȠϠȮՠΠŠԠΠȠӮՠŠǠΠŠŮΠŠǠΠĠŠϠŠȮˠ̠ӠϠΠϠŠȮ                 ōčǍōčĠӍՠŠΠӠͬĠȠӠĠӠԠ̠ԠŠήҠӠԮӠ͠ϠŠȠȠήՠŠΠΠԯԠҮŠӠϠŠŠ͠ϠŠԡŠҠӠϠĠĠŬϠՠ٠٠ϠȮŠҠӠŬǠȠԮάӠӠ٠ȠĠĬȠԠǠĠ٠ӮՠŠҠԠӠԠĠԮӠ̠Ӡ٠ȠĠĬ٠ΠԠϠŠӠՠŠΠǠȮԠӠǠĠ٠ŠǠӮՠŠŠϠŠΠƠӬȠӠǠƠΠ̠ӮŠ̠ϠŠȠӠҠΠŠӮՠŠΠȯȠҠȬՠĠԬǠؠΠŠǮՠŠΠȯȠҠŬŠƠӬŠӠǠؠΠŠǮՠŠΠ͠ȠŠ٠ԠϠŠȮՠŠ٠ӬؠΠŠǬĠΠҬĠΠǠӠϠΠ٠̠ήՠŠΠ͠ĠϠĠ٠ӮŠ٠ԠӠϠŠȮŠӠĠΠŠҮŠԯԠ̠ӠŬȠӠǠȠĠȠϠӮՠŠΠΠԯԠҮӠǠؠΠŠǮՠŠΠ͠ȠŠ٠ԠǠϠŠȮՠŠ٠ӬǠؠΠŠǬǠĠΠŠҬĠΠǠĠӠŠΧՠŠΠ͠ĠϠĠ٠ӮŠ٠ԠӠϠŠȮŠӠĠΠŠҮŠԯԠҠӠŬȠŠӠǠȠĠȠϠŠӮՠŠΠΠԯԠҮӠǠؠΠŠǮՠŠĠҠǠٮԠӠ٠ĮՠŠŠͬԠԠӠנΠ٭٠ӠΠŠҮԠ̠ҠŠҠŠΡՠŠŠȠΠӠǠŠƠԡԠӠŠ͡ՠŠ٠ĠΠԠӠĠŠ׮ԠӠĠΧՠŠҧӠˠŢՠŠҧӠˢՠŠҧӠˢՠŠҧӠˢՠŠҧӠˢՠŠȭ٠ĠŢՠŠȭ٠ĢՠŠȭ٠ĢՠŠΠ͠ȠŠ٠ԠǠϠŠȮӠȠΠӠŠǠĠΠŠӮŠΠӠ̠ŠͮՠŠӠ͠͠ŠέŠŠ͡ՠŠΠԠ̮ŠӠΠΠ٠ϠŠȮϠŠՠŠҭ٠ήՠŠΠ٠ȠͬȠŠ٠ԠǠϠŠȮՠŠŠŬȠŠ٠ԠǠϠŠȮԠӠ٠ˠΠŮՠŠŠĠ̠ǠȠՠ̠ŠҢՠŠŠƠŠ̠ӬϠΠՠΠҠέ٠ƠΡ               ՠŠŬŬĠȠŮԠӠĠΠŬԠԠΧԠĠҠ١ՠŠ٬٠ĠǠΠΠĠŮՠΧԠŠŠԠŬǠŠοՠŠŠԠĠՠŠҠΠΠҠšzՠŠ̠ŠŠƠŮӠ٠ӠǬǬǮՠŠ̠ŠŠŮԠӠ٠٠ĬȠƠРӮՠŠŠƠĠӬĠҮΠҠƩՠŠԠ٠̠ŠȠǠӮՠŠĬȠӠΠĠŭŠΠԠϠӠҢՠŠȭ٠נŢՠŠȭ٠ŢՠŠŠƠӠŢՠŠŠҠӬĠҢՠŠԠԠҢՠŠƠҬϠӠǠӠΠجԠ٠ĮՠŠӠ̬͠ϠӠ٠Š̠ŠҠ͠ӢՠŠӠ̬͠ϠӠ٠Š̠ŠҠ͠ӢՠŠӠ̬͠ϠӠ٠Š̠ŠҠ͠ӢՠŠŠƠŠŠҧӠӢՠŠŠƠŠŠҧӠӢՠŠŠƠŠŠҧӠӢՠŠŠƠŠŠҧӠӢՠŠŠƠŠŠҧӠӮՠŠŠƠŠŠҧӠӢՠŠŠƠŠŠҧӠӢՠŠŠƠŠŠҧӠӮՠŠŠƠŠŠҧӠӮՠŠŠƠŠŠҧӠӮՠŠŠŠҧӠԭ̠ήŠӠԠΠĢՠŠŠĠ̭ĠŠӢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠƠҠϠӠǠӠΠجԠ٠ĢՠŠƠҬϠӠǠӠΠجԠ٠ĢՠŠƠҬϠӠǠӠΠجԠ٠ĢՠŠƠҬϠӠǠӠΠجԠ٠ĢՠŠҠȭǠΠȠέĠӮӠԠΠӠ٭ŠŠҡՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢՠŠŠҧӠĢ: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,AC9NW25:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%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";A:MN$(A)CW(A)CW(A1)::CWCW1}HMD%(M,5)30:MD%(M,13)0:ROOM30ĺ:MN$(M);" STEPS OUT OF":" THE CLONATORIUM!":R3ROOM:3600R100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZDK$;"OPEN ECTIONS,R";(ROOM1)30MD%(M,5):A:DK$;"READ EAMON.ROOMS,R";MD%(M,5):A21A:A3::DK$MD%(M,5)A3:A3ROOMĺ:"";MN$(M);" ENTERED THE ROOM!":M:R3ROOM:3600 AD%(10,4)0100*CTCT1:CT01004CT4:CW0100>MCW(1):A1CW1:M2:DF0:7500:490OFMcM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490kM2NBTL(FD%(1)TD%(1)):NBTLĂMNBTL800///MOVE IN GUARDSM2343:MD%(M,5)0MD%(M,5)ROOM(1).25790XDK$;"READ EAMON.DIR::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490nYMD%(M,14)2490^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|,11000,12000,13000,14000,15000,15000,16000,17000,30000,18000\,///COMMANDS RETURN TO HEREk6NBTL500@M1NM:MD%(M,5)ROOM490JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)100(41(1)20)YTMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210z 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 HERE." A:V%(ROOM)15 :" YOUR COMMAND?";A$V (A$,1)" "A$(A$,2):220w A$""A$CZ$:(37):17:A$ CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):260] C1NC:C$(C)V$C$(C)S$15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)1:w 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)" ISR";ROOM:A$:DK$:"YOU ARE ":" ";A$:m V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1 F1ROOM26ĺ"YOU SEE A SECRET PASSAGE TO THE NORTH!": M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERE.":= MD%(M,5)ROOMMD%(M,:31000 2216,0:1000R d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDX 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,M@ EAMON ADVENTURE #9;-> CLONE MASTER <-AZ BY DONALD BROWN`w(4);"MAXFILES 6"REV. 6-21-85  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50 DK$(4):DK$"VERIFY GAME.PTRS"                         !!! ! 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)u$<M:NBTL(TD%(1)0):$///GET COMMAND$4900$S$"ALL"4160%S$"BOX"S$"GLOWING BOX"ĺ:"THE BOX IS TOO HOT TO HOLD, AND YOU BURN YOUR HAND."D%(0,1):FD%(1)0:FD%(3)MD%(0,13){#$M1NM:MD%(M,5)R3ĭMD%(M,14)3(MD%(M,14)1500(1)MD%(M,4))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))MD%(M,14)S THREE WEEKS, REWARDS YOU HANDSOMELY, AND SHOWS YOU THE SPACE-"s" " TIME FLAW THAT SENDS YOU HOME.":2000" :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100" R3ROOM:ROOMR2:3600"100"///CHECK REACTIONS ON MONSTERS!#TD%(1)0:TD%(3)M2993490! MD%(NM,5)0AD%(10,4)0ĺ:"IF YOU LEAVE WITHOUT KILLING THE CLONE MASTER AND DESTROYING THE CLONATORIUM, THE ARCHERS OUT THERE WILL RIDDLE YOU LIKE A PINCUSHION."::100D" :"THE REBELS TAKE YOU BACK, THROW A PARTY THAT LAST ///MOVE COMMANDY 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 MOVES R227F1R2(R2):3500 ! RMD%(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"T DK$;"RUN MAIN HALL,S6,D1" (INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0^ A$:A$"C"2520f A$ 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):10$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":::"THE REBELS GAVE YOU SOME SMALL SHEETS OFGREEN PAPER WITH LOTS OF ZEROS ON IT AS A REWARD, YOU THREW IT AWAY AS VALUELESS"8 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$: 2500H :5:"D%(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 YOU "; TP0:A1NA:AD%(A,4)12350 AD%(A,2)0AD%(A,1)AD%(A,1)CH˺"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") "t (37):23:A$:W5(A$):W51W5W21W5(W5)2080*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W252060(W14:WP%(W)WT%(W)AD%(WP%(W),6):WO%(W)AD%(WP%(W),5):W4)0A: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 THE LEGAL LIMIT."::"YOUR WEAPONS ARE--";W1W21:4);W;"--";WN$(W):::SAVE DESTROY)///DONE WITH GAME`:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$;"CLOSE":SPDMD%(0,2)MD%(0,2)2DIE2500W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,R21:3600/DK$;"OPEN EAMON.DIRECTIONS,L2"ECW0:CT4:CW(22)Nl100Xv 35 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,10: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):ROOM1 ~2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W24Q8WZW2: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:EAEAA2(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"?.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%(W5,7660,7665,7670,7675<4" IS STILL IN GOOD":" SHAPE.":R4" IS HURTING.":h4" IS IN PAIN.":4" IS VERY BADLY INJURED.":4" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":5MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MDD3D:763537700t3D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::3MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)77003AMD%(DF,14):FD%(A)FD%(A)D24:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)76512):DFOF:A0:7635R2INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC2DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":76352"A CRITICAL HIT!":R2(100(1)1):R251A0:76352R286S1.5S:76352R296D2D:7635 3R2100ā1t" 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ĺ:1y" BROKEN WEAPON HURTS USER!"1~FR10075601DMD%(OF,11):SMD%(OF,12):DFOF:A1:76352DMD%(OF,11)2:SMD%(OF,T0e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::k0gOFNMFR96:75500jFR76ĺ" 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::0oFR957550::AD%(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:m/LHIT0:MD%(OF,9)17400/QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1/VHIT7600/`RL97ĺ"A MISS.":MD%(DF,14)1DF0300^.MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0x.M:R3ROOM:3600:300.///MONSTER TRIES TO PICK UP WEAPON.MD%(OF,10)0ı.A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:P/MN$(OF);" PICKS UP ";AN$(A)O?"::100A-zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100`-OF0:DFM:7500:HIT7360-INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2-EAAE300-(100(1)1)MD%(0,10)7360-A2:EAAE1A1-AEAEA:MD%(0,10)MD%(0,10)A.MN$(M),:72808,S$"BOX"S$"GLOWING BOX"7280,:::"AS YOUR WEAPON SMASHES INTO THE GLOWING BOX, YOU HEAR THE SIZZLE OF SOMEONE BEING HIT BY LIGHTNING. YOU DIE.",DIE1:2000 -pM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WH5)ROOMS$MN$(M)+:72805+S$"SERVANT"7080Z+M514:MD%(M,5)ROOMS$MN$(M)f+:7280+S$"HAREM"S$"HAREM GIRL"S$"GIRL"7110+M1517:MD%(M,5)ROOMS$MN$(M)+:7280+S$"MINER"7140,M1822:MD%(M,5)ROOMS$A$::LK1*A:LK300r*A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1*A:LK300*V%(ROOM)0:ROOM26(1).5300*F11:300*X///ATTACK COMMAND*b4900*lS$"GUARD"7050+vM2342:MD%(M,1)MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1:)300u)A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM)A:WT0:5060)p///LOOK COMMAND *LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100y(WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED.":)WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND."::5100AD%(A,4)1:WTWTAD%(A,3)''^::300c'h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UPi'r'$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.')S$""ĺ:C$(C);" WHAT";:S$:4900'.'///DROP COMMAND'S$"ALL"5100B(A1N10MD%(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'TAN$(A)" TAKEN."::D1:S3:A0:DF0:7635:300=%S$"MINER'S PICK"S$"PICK"^%S$"TRAY"S$"SERVING TRAY"s%S$"PICK"4120%A48:AD%(A,4)ROOMS$AN$(A)%A%A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::1001&"4200:WTAD%(A,3)D%(0,12)AD%(A,8)*DFF:"READIED."::300DDPF///DESTROY EQUIPMENTSDZFNBTL3010DdFROOMAD%(10,4)ĺ:"NOTHING TO DESTROY HERE!"::100DnFMD%(0,9)17290DxF(1)MD%(0,1)24ĺ:"YOU SMASH AT IT BUT IT REMAINS STANDING"::300-EF"CLONATORIUM 0ChB///READY A WEAPON.#CrB4900nC|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100CBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100D///SAY COMMAND~B>4900B>S$"BLAST"V$S$:S$"":11000B>S$"HEAL"12000B>S$"POWER"13000B>S$"SPEED"14000CB:"OKAY, '";S$;"'"::30%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)A6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300A:///SMILE COMMANDA::M1NM:MD%(M,5)ROOM15100A:MD%(M,14)15030,15040,15050 B:MN$(M);" GROWLS AOUR MIND AND YOU FORGET EVERYTHING YOU HAVE LEARNED ABOUT USING WEAPONS AND ARMOUR.":@4AE0:WA%(1)5:WA%(2)10:WA%(3)20:WA%(4)10:WA%(5)0@4MD%(0,9)1AMD%(0,9):17980@4300@6///SPEED SPELL@6S3:11500:SUC3000A6SPDMDD YOURSELF--":R2(30(1)1):35004?3RR9013300e?3:"A BLUISH GAS APPEARS BESIDE YOU."::300w?3RR10013500?3"ALL OF YOUR WEAPONS FALL TO THE GROUND."::A1NA:AD%(A,4)1AD%(A,4)ROOM?4:MD%(0,9)1:300`@4:"A FOG SETTLES ABOUT YL YOU ARE IN AND YOU DIE."::DIE1:2000;>,3RR3513150>63:"A PURPLE SCINTILATING RAY BLASTS FROM YOUR EYES AND STRIKES EVERYBODY IN THE ROOM."::DF1NM:MD%(DF,5)ROOMİ7700>@3DF:300>^3RR6013200#?h3:"THE SCENE SHIFTS AND YOU FIN:@=.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0T=/DF0:7650:300=2///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS=2S4:11500:SUC300=2RR(100(1)1):RR1013100*>2:"A HUGE CAVE-IN COLLAPSES THE TUNNE2< -S2%(S)S2%(S)2<-!R2DR%(6(1)1):R2185106H!6(#///GIVE COMMAND62#A217<#M1NM:(S$,(MN$(M)))MN$(M)%(DF,13)D2:MD%(DF,5)0:(DFNMAD%(10,4)0)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)25DF0DIE1:20005(:DF23AD%(10,4)0ı52CWCW1:CW(CW)DF:DF43ı6<CW(CW)CW(1):CW(1),L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"LHhy100ANALD BROWN`w(4);"MAXFILES 6"REV. 6-21-85  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50 DK$(4):DK$"VERIFY GAME.PTRS"y216,0PG"y:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";A$:A$"N"1000G,y(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"G6yDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"CHTyDK$;"OPEN EAMON.DESC(105)(106)256;",L";(109)(110)256(105)(106)2561FvuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561Fu:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."FuFy /// RESTARTGDESTROYED!"::AD%(10,4)0:AD%(11,4)ROOM:300AE0u // SAVE GAMEvE:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";EDuA$:A$"Y"A$"N"30020ENuA$:A$"N"100EXuDK$;"CLOSE":X(0)EbuDK$"BSAVE GAME.PTRS,A$69,L8"