+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":