+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮLz"#      ήӠήànΠ͠OΠŠ Ş̌Ӡ ԠźήŠήӠή͠ӠήӠ Ş̌ӠIZE THAT YOU ARE FALLING DOWN A "::"DARK, NARROW SHAFT.":::"AFTER YOU HIT BOTTOM, YOU SEE THAT YOU"::"ARE IN A DUNGEON CELL. THE VOICE "::"SAYS 'GOOD LUCK, SUCKER!'" :D$"RUN MAIN PGM" A, YOU SUDDENLY HEAR A"::"BOOMING VOICE FROM NOWHERE SAY 'SO,"::"YOU THINK YOU ARE A NOBLE ADVENTURER?" :"IF YOU WANT A CHALLENGE, TRY MY DUNGEON!" :"(HIT ANY KEY TO CONTINUE)";:A$ :5:"AS THE VOICE CHUCKLES FIENDISHLY, YOU "::"REAL D$(4)0d::"NOW YOU'VE DONE IT!"::i"AS YOU STARTED YOUR NEXT ADVENTURE, YOU"::"ACCIDENTALLY STUMBLED APON AN OLD BOOK"n:"THAT DESCRIBED A VERY PERPLEXING AND "::"CHALLENGING DUNGEON -- IN HADES!!! AS "j x:"YOU READ THE BOOK";:" ";DK$936"76:KLKH330:NK,O16368,0:K141340EPKK176:KLKH330MQNKoT20:N;" ":^:22:"DEFAULT = ";:((41)256(40)14),96:hMSSSırMDSDıw:(DK$,1)"D"ĺ |"INSERT ";DK$;" DISK AND PRESS RETURNH TO MAKE ANOTHER COPY?";I$:(I$)0300= '(I$,1)"Y"160S ,(I$,1)"N"290[ 1: 6:350:N;::1:I$;" SLOT: ";:L1:H7:330:A,N16: @350:N;::4:" DRIVE: ";:L1:H2:330:JK(16384):K128330:16368,0:K141340:KK1DUP DISK+ 8:24::"WRITING";::" "D 710: WRITE A HUNKZ 8:24:" "m (713)2190 (222)255ij 18::"****** UNABLE TO WRITE ******":290 18::"****** UNABLE TO READ ******"( "19::16368,0::"DO YOU WIS ":(713)1290. FT255: NOT FIRST RDV DK$"DUPLICATE":360: GET DUP DISK` 275} 8:24::"FORMATTING": "INIT XXX,S";SS;",D";SD;",V";(714):FT1 8:24:" " 216,0:222,0 256 DK$"DUPLICATE":360: GET AS":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": <:"READING": 707: READ A HUNK (713)2280: ERROR! 5:24:" *";38);"*****************************************": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;" W4A$"THE DEVIL'S TOMB":NUM7:A2$"JIM JACOBSON"<9pD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"{ 216,0 ::5 "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"*     ̍Π̍Šҍůנ٠Πԭ΍ΠŠŠҍ̍Πůנ٠Πԭ΍Πůנٍ          Šč΍Ġ΍ҍ    ΠҍΠԍΠԍΠԭΠίӠ٠׍ҍΠĠǠůӍΠίӠҍΠŞ̌ӠšΠŠōԠŠύ͍ΠίӠ̍ΠίӠ̍ΠůנٍΠ̠ҍΠŠȠĠƠҍΠίӠٍΠŠԠ͍ΠŠΠ͍ΠΠĠĠ͍Π̍Π̍ΠԭΠůנ٠ȍΠĠΠŠҍΠ̠̍ΠĠΠŠҍΠ٠Š͍ίӠҍΠĠ̍šԍΠĠ̍ԍΠ̮ΠίӠ٠׍ҍΠٍȠĠƠҍΠٍ̍ΠŠԠ͍ΠŠ΍ίӠ̍Π̠͠ȠנǍנٍΠŠРƠ͍ȍĠΠŠҍΠΠůנҍĠΠŠҍԠԭΠůנ٠ӍΠĠĠ͍Π̍Π̍ΠΠůנٍ̍Π̍΍̠͠ȠנǍΠӍŠ͍Ġ̍ΠӍ̍̍ΠΠůנٍ̍Π̍ӍӍΠ͍̍ΠůנҍΠΠůנٍנ٠Ӎ̍Ǎ̍ˍԍōĠǍĠ؍ōčà׍Πō̠Ġ΍ōàōĠΠҍ̧ӠԍΠҍ     ŠҍΠ΍Š΍ĠōŠō٠ҍōÍԍҍȠҍՠŠΠŠҠȠӠŠӬ̠ƠȠŠϠ٠ҠՠϠٮՠŠ̠ӠϠŠȬԠĠԮϠŠȠӠΠԠȠՠԠŠԠƮՠŠΠ̠Ӡ̮٠ԠӠϠŠȮ                      ĠŠ΍ĠŠōĠΠ΍ĠōĠĠōĠԍĠҍĠȠҍĠÍĠčĠҍĠ΍ĠĠҍĠ΍ĠҍȍĠˍΧӠōٍӍĠˍǍՠŠΠŠΠȠӠ­٠ĠٮĠӠǠ͠ŠǮҠӠȠŠΠŠҬĠՠŠΠԠϠŠȮՠŠΠ٠Ġ̠ȠӠĠĮՠΠŠŠҠȠӠРȠŠƠƠŠ̮ՠΠŠԠӠΠϠȮϠŠȠӠҮϠԠӠ̠ŠΠŠ̠ȠՠΠ٠ԠȮՠ̠ŠǠ͠ŠŮՠŠΠ̠ҠȠΠӮŠǠӠĠˠȠӠ٠ŮŠ٠ԠӠϠŠԮՠŠԠԭήϠŠȠӠ̠ȠԠ٠ӠήϠŠԠӠ̠ҮŠҠӠԠƠԠϠŠԮՠŠΠŠҠǠů׮ՠŠΠŠ͠ȠӠǠΠϠŠȮΠŠ̠ӠŠĠƠŠͺǡՠŠΠԠƠӬǠРϠŠȮΠŠРՠŠԠƠͺŠŠРĠէ̠ŮՠŠΠԠƠӠǠРϠŠȮΠŠӠՠŠŠǠƠͺӠՠ¬ǠӠǮՠŠΠ̠̠Ƞ٠ŠӮΠΠŠҠӠҠӠϠŠҠƠŠͬŠŠĠŠӠǠٮŠŠӠŠĠϧŠӠϠŠԮՠŠǠԠԭήŠȠՠŠΠĠԠƠΠӠǠЮϠŠԠӠ̠ͬϠŠԠŠҠԠƠԮՠŠΠǠԯԠٮՠŠΠ̠Ӡ̮ΠˠӠĠϠŠ̮ԠӠǮŠ٠ԠӠϠŠԮՠŠΠ̠Ӡ̮ΠӠĠϠŠ̠Ġ­ӠŠŮŠ٠ԠӠŠԮՠŠΠΠԯԠҮŠӠŠŠƠȠŬĠӠΠŠӮՠŠԠԭΠƠŠԯԠҮϠŠȠӠҮŠҠӠԠƠԠȠԠĠԮՠŠΠŠίӠٮՠŠӠϠŠԠĠԮՠŠԠŠȠĠƠ٠ǠٮŠȠ̠ӠĠȠŠŠӮ̠ҠϠŠԮՠŠΠ̠ҮϠŠՠŠŠٮϠŠԠӠŠͮՠŠΠ̠Π̮ŠƠĠӠӠΠŠҮՠŠΠ̠̮ŠƠӠĠΠŠҮŠҠĠȠȬĠŠ͠ӠԠ̠ĮŠ٠ԠӠϠŠԮՠŠΠΠĠĠ͠ȠԠԠ٠ĮՠҠӠǠ͠ĠȠҮϠŠԠӠҠĠȠĠϠŠԠӠΠ٠ǠҮՠŠΠŠΠͮŠӠŠϠŠȠĠԮՠŠΠĠΠҬǠȠĠԮՠŠΠ̬Š̮ŠӠŠΠԠҠҠƠӠΠΠͮՠŠΠĠΠҮϠŠȠӠĠҠȠΠЭΠĠϠŠ̮ŠҭҠӠȠԠĠȮՠŠԠԭήϠŠȠӠΠ̮ϠŠԠӠ٠ǠҮϠŠԠՠŠȠǠΠ̭ٮՠŠΠ̠̠ȠӠ٠ΠϠŠԬРϠŠԢՠŠΠΠĠ̠ȠĭǠΠŠӠĠǮŠ٠ԠӠϠŠȮՠŠΠ͠ȠŠǠΠŠӠĠǮĠנӠŬԠՠΧԠ٠ԠȠԮŠԠӠϠŠȮՠŠΠ͠ȠǠԠӠԠƠԮŠĠҠӠϠŠȮϠŠԠӠ̠ҮՠŠΠ͠Ƞ٠נ̭ǮӠՠȠϠϠȬՠŠ̠ӠǠŠҠƠƠŠӮӠϠΠ̠ӢՠŠ٠ŠΠҠϠŠԮϠŠȠǠŠԠӠΠҮՠŠΠ̠ҮŠҠĠӠŠĠȠӮŠҠӠƠҮŠ٠ԠӠϠŠȮՠŠΠ̠ҮŠӠŠ͠ŠĠˮŠӠƠנҠӠŠĠԠŠͮŠ٠ԠӠϠŠȮՠŠԠԭήϠŠȠĠȠŠϠ̠ӮϠŠԠӠҮӠՠҬŠҠӠҠԮՠ̠ΠŠԠĠŠĮӠՠҬŠҠӠҠԮՠ̠ΠŠԠĠŠĮӠՠҠŠͬՠ̠٠ǠĠǠՠĠΠנԮ٬ՠŠŠĬǠΠŠŮՠŠΠ٠Š͠Ƞ̠ҮŠҠƠŠӠĠȠŠĠƠԠέӮӠƠŠŠ͠ӠΠŠҮՠŠӠΠ̠ҭӮՠŠΠίӠҮϠŠȠӠΠ٠ȠΠΠŠԺΠŠ̠ŠϠҠŧϠŠȠӠĠΠŠҮՠŠΠĠΠŠٮĠנΠŠΠϠŠȮϠŠԠՠŠԮՠҠӠĠ̠Š̠ƠǠȠ͠ŠȮՠŠΠŠٮӠŠӠϠŠԠĠԮՠΠҠӠӠǠȠӮՠŠԠŠȠĠƠίӠ̭ٮՠŠΠίӠٮՠŠΠŠͮԠӠŠԠҠŠ̠ƠŠΠŠҠƠŠͮՠŠΠԠӠŠҠӬŧ٠ԠӠϠŠԮՠŠΠ٠٠͠Ƞ̭ҬĠ͠ĠŠŠŭŮŠŠҠӠŠӭӠĠϠԮŠ٠ԠӠŠԢՠŠ٠ĠˠȠǠӮŠҠӠŮՠŠԠ̠ȠĠԮՠŠ̠ǮՠŠŠˠԠΠŠҠƠŠͮՠŠˠȠŠŠӠŧΠŠҮՠŠ̠ĠǮՠŠǠĠŠȠŠŠĠΠŠҮՠŠΠ٠ŮՠŠ̠ΠؠȠŠӠԧΠŠŮՠŠנȠŠӠȧέĠΠŠŮՠŠ٠נĮՠŠ٠Š̠ĠήՠŠ٠ΠŮՠŠ̠ŠԠӠԠήՠŠ̠٠ŮՠŠǠĠԠȠŠӠŠΠ̧ΠŠŮՠŠŠĠîՠŠŠӠ٠ƠŠĠȠҮՠŠŠĠҮՠŠŠĠĮՠŠŠĠ ĠΠŠĮՠŠŠĠήՠŠŠĠ΢͍͍̠ččō̍ՠŠ٠ȠȠΠŠĠҠ̠ˠҠΠŠĠӠ®ՠŠ٠̠ҠŠƠĮՠŠ٠ŠĠ٠ΧӠŠȠԠŠƠĮՠŠĠˠŠϠҠ٠ǠŠԠҠŮz        ՠŠŠŠƠĠĠӮŠӠ̠٠ŮՠŠ٠ĠǠΠΠŮՠŠŠŠȠРĠŠ̠ŠӠŠ®ӠȠŠӠŠӠƠŠҮՠŠΠӠǠĠΠŠҮԠӠĠ٠ӠĠծՠŠ٠ĠήҠӠĠĠĠĮՠŠΠΠŠ̠®ӠŠŠΠӠŮՠŠŠҠŠ͠ŠӮ     ӠՠҠŠ͠ՠ̠ǠԠƠĠԠӠՠРǠנԮՠ٠ĠǠΠŠŠҠŠՠĠҠŮӠՠҠŠ͠ՠ̠ǠԠƠĠԠӠՠРǠנԮՠ٠ĠǠΠŠŠҠŠՠĠҠŮӠՠҠŠ͠ՠ̠ǠԠƠĠԠӠՠРǠנԮՠ٠ĠǠΠŠŠҠŠՠĠҠŮՠŠŠĠŠ΢ՠŠŠĠΠ΢ՠŠŠĠŠŮՠŠŠĠĠŢՠŠŠĠŮՠŠŠĠҮՠŠŠĠԠŮ" YOUR COMMAND?";A$6 (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$Ă::"HUH? I ONLY UNDERSTAND THE00: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)" IS HERE." A:V%(ROOM)1 : ARE ":" ";A$:W V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1i ROOM432000 ROOM44ROOM45DIE1:2000 M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERE.": MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300< d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDB 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!M EAMON ADVENTURE #7<-> THE DEVIL'S TOMB <-B\ BY JIM JACOBSONbuREV. 10/16/88 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":32000 2216,0:10                     !!! ! ! ! ! !!!!!!!!!""" " " " " ""ՠŠ٠ŠŠήՠŠ٠ŠΠήՠŠŠŠŮՠŠŠĠŮՠŠĠǠΠǠ٠ӠծՠŠΠΠ͠ӮΠԠŠӠǠՠΠŠŠӠǠ͠ЮՠŠ̠ĮӠՠˠŠĠӠϠǠҬΠԠ̮ӠĭŠŠӠٮՠŠΠǠ٠ ҭӮŠӠǠŠ٭ȮՠŠŠȠҠǠҮŠӠԠծՠŠ٠ŠΠǠˠҠĠĠҠӠĮŠӠǠ٠ŠΧӠŮT RECJ:DK$"WRITE CHARACTERS,R"J:MN$(0):MD%(0,1):MD%(0,2):CH:J14:SA%(J): 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:DKTP::"(HIT ANY KEY TO CONTINUE) ";:A$:5 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$ DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":2900 25000IVER 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)CH10$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":*8 GOLDGOLD(37):23:A$:W5(A$):W51W5W21W5(W5)2080*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)t W::5:"AS YOU DELHALL,":"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):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") "3  CONTINUE) ";:16368,0:A$:IDK$;"CLOSE":SPDMD%(0,2)MD%(0,2)2WDIE2500W14: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 l100v 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,SAVE BET,OPEN,READ///DONE WITH GAME:"(HIT ANY KEY TOA210: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(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W24S8WZW2: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:EAEAO%(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"A.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%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,AC;NW15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WN 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$( OFMOM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490WM2yNBTL(FD%(1)TD%(1)):NBTLĂM100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZDK$;"OPE:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490ZYMD%(M,14)2490o^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:7500:4905000,16000,17000,31000,18000,19000,19500H,///COMMANDS RETURN TO HEREW6NBTL500w@M1NM:MD%(M,5)ROOM490JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)100(41(1)20)ETMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R2SE 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,11000,12000,13000,14000,15000,1D!":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::w,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"MN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1v+VHIT7600+`RL97ĺ"A MISS.":+e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::g,jFR76ĺ" WEAPON DROPPE00:300/*///MONSTER TRIES TO PICK UP WEAPONC*MD%(OF,10)0ın*A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:*MN$(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:*LHIT0:MD%(OF,9)17400h+QMD%(0,9),6):WA%(W2)WA%(W2)2.)EAAE300Q)(100(1)1)MD%(0,10)7360g)A2:EAAE1A1)AEAEA:MD%(0,10)MD%(0,10)A)MD%(DF,14)1DF0300)MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0*M:R3ROOM:36A$:DK$::A$::LK1#(A:LK3007(V%(ROOM)0:300N(X///ATTACK COMMANDX(b4900(pM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::100(zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100(OF0:DFM:7500:HIT7360)INCW2AD%( STONE BLOCKS AWAY AND ARE":"IN A DARK CORRIDOR.":R239:3500'LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1'A:LK300(A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:L FALL TO THE GROUND."::5100O&MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1X&300&A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM&A:WT0:5060&p///LOOK COMMAND>'zROOM33ĺ:"YOU SEE A SECRET PASSAGE TO THE SOUTH. YOU PUSH THE%S$"ALL"5100`%A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100%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 AL1:DF0:A0:7635z$|AN$(XX)"GOLDEN APPLE"ĺ::"THE APPLE EXPLODES AS YOU TOUCH IT.":AD%(XX,4)0:D2:S4:DF0:A0:7635$:AXX:$$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.$)S$""ĺ:C$(C);" WHAT";:S$:4900$.%///DROP COMMAND1#TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)>#^::300z#h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP#iXXA#rAN$(XX)"DEVIL'S TRIDENT"4220#w:"AS YOU TOUCH THE PITCHFORK, IT GLOWS BRIGHT RED AND BURNS YOU."$x:S6:DH""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":4190ND !4900!S$"ALL"4160J!S$"BOW"AD%(9,4)ROOMS$"MAGIC BOW"l!S$"APPLE"S$"GOLDEN APPLE"!S$"CLAY VASE"S$"VASE"!S$"STONE"S$"ROCK"S$"MAGIC STONE""A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::1005)ROOM3900! 8MD%(M,14)3670P 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) <M:NBTL(TD%(1)0):!///GET COMMAO THAT WAY!":V%(ROOM)0:1006 R3ROOM:ROOMR2:3600?100c///CHECK REACTIONS ON MONSTERSTD%(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))MD%(M,5)ROOM:3670 .MD%(M, DOORS, STUPID!":300< D16:(V$,1)("NSEWUD",D,1)Ăr DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$ R203500 ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000