+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 R23490 :"YOU CAN'T G$;"CLOSE"(T DK$;"RUN MAIN HALL,S6,D1"= ///MOVE COMMAND NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 ROOM42AD%(2,4)(V$,1)"W"ĺ:"AN IRON DOOR BLOCKS THE WAY.":300 ROOM1AD%(1,4)1ĺ:"YOU CAN'T WALK THROUGHTS FROM THE FLOOR BENEATH YOU, BUT YOU SEE NOTHING."::300<4:"A FLASH OF LIGHT IS SEEN IN THE DISTANCEBUT NOTHING HAPPENS."::300<4:"A HIGH-PITCHED WHISTLE WHINES IN YOUR EARS, BUT NOTHING HAPPENS."::300<6///SPEED SPELL=6S3:11500:DIE1:2000i;3RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300;"3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300;,314020;4X((1)31):X13510,13520,13530;<4:"A STRANGE HISSING NOISE ERUP%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,3)H:2M:RAISER3ROOM:3600:300:2A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0:2A:RAISEĺ:300 ;3RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":)0MD%(0,13)0#9/DF0:7650:300i92///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS92S4:11500:SUC30092(1).713500':2RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:|8.///HEAL SPELL8.S2:11500:SUC3008.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":9.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13D1:DFM:A0:7635::300m7,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL100116007,SUCĺ:"NOTHING HAPPENED.":7-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)27 -S2%(S)S2%(S)27-i8P-:"THE STRAIN OFWEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00`6$':300t6*///BLAST SPELL~6+49006,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::1006,S1:11500:SUC3007,:"DIRECT HIT!"::S6:ĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::3005&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):91205'///INVENTORY COMMANDU6':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY N$(A)"DEVIL'S TRIDENT"ĺ:"AS "MN$(M)" TOUCHES THE TRIDENT,":"IT GLOWS AND BURNS "MN$(M)" BADLY.":DFM:S6:D1:A0:7635:3004#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)4#R3ROOM:3600:5050A5%(S$)GOLD50083n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)19095f3x#:A22A23::"WHAT TO GIVE? ";S$:90653#:"YOU AREN'T CARRYING A ";S$;"!"::1003#AMD%(0,9)MD%(0,9)13#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)4#A02H!2(#///GIVE COMMAND%22#A21\2<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM90502F#:A21A22::"WHO TO GIVE TO? ";S$:90202P#:"NOBODY HERE BY THAT NAME!"::1002Z#S$(S$,(MN$(M))1)2d#(S$,1)" "S$(S$,2):90603i#(S$)091:MD%(DF,4)MD%(DF,4)2-1DF0DIE1:200051:J1@///FLEE COMMAND1JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::1001rROOM43R239:35001*!8500:350014!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$2>!R2DR%(6(1)1):R2185150" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":1MN$(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)DF,13)D2:MD%(DF,13)MD%(DF,1)7700G/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 HURTING.":/" IS IN PAIN.":0" IS VERY BADLY INJURED.":35;."A CRITICAL HIT!":R2(100(1)1):R251A0:7635T.R286S1.5S:7635k.R296D2D:7635.R2100D3D:7635.7700.D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::%/MD%(DF,13)MD%( BROKEN WEAPON HURTS USER!"--~FR1007560[-DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635-DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635-INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC.DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":76LWTĺ:"THE DOOR IS TOO HEAVY FOR YOU TO OPEN!":300hLL::"THE DOOR SWINGS OPEN!"::AD%(2,4)0:300LaDK$"OPEN CHARACTERS,L150":DK$"READ CHARACTERS,R0":NCLaJ1NC:DK$"READ CHARACTERS,R"J:A$:A$MN$(0)25506MaJ:J1NC:DK$"READ CHARACTER GREAT AND POWERFUL. YOU MAY USE THE "KL"POWERS OF TREZORE BY SAYING THE MAGIC WORD 'TREZORE'. MAY THE POWER OF TREZOREDO YOU NO HARM. ":KL:"THE BOOK THEN VANISHES BEFORE YOUR EYES!":AD%(14,4)0:TRZ((1)5025):3005L,4)0:300J^LS$"BOTTLE"(AD%(11,4)1AD%(11,4)ROOM)ĺ:"THE LABEL IS WORN, BUT YOU CAN MAKE OUT":"THE LETTERS 'MAG C G S'."::300JL:"THERE ARE NO MARKINGS TO READ!":300JL READ TREZORE&KL:"THIS BOOK CONTAINS THE SPELLS OF TREZORETHE0OI@LS$"BOOK"S$"OLD BOOK"AD%(18,4)1ĺ:"THE BOOK IS UNREADABLE."::300IJLS$"INSCRIPTION"ĺ:"ALL INSCRIPTIONS AREIN A FOREIGN TONGUE THAT YOU CANNOT READ"::300 JTLS$"SCROLL"AD%(17,4)1ĺ:"THE SCROLL CRUMBLES AS YOU UNROLL IT."::AD%(17TRY READING THE BOOK.":300HyJ(S$"BOX"S$"WOODEN BOX"S$"WOOD BOX")(AD%(10,4)ROOMAD%(10,4)1)ĺ:"THE BOX IS EMPTY."::300HJ:"I DON'T KNOW WHAT YOU MEAN.":300H,L///READH1L4900I6LS$"BOOK"AD%(14,4)1ĺ:"THE BOOK SAYS:":::1960`JS$"DOOR"ĺ"THE DOOR WILL OPEN AS YOU WALK":"THROUGH IT."::300GjJS$"CHEST"AD%(15,4)ROOMĺ:"YOU FIND TWO TREASURES IN THE CHEST.":::100:"SUDDENLY, THE CHEST DISAPPEARS!":255:AD%(15,4)0:AD%(5,4)ROOM:AD%(21,4)ROOM:300HtJS$"BOOK"ĺ:"J ///OPENF=J4900FBJS$"BOTTLE"AD%(11,4)1ĺ:"AS YOU OPEN THE BOTTLE, A GAS FILLS THE ROOM AND HURTS YOU."::S6:D1:DF0:A0:7635:AD%(11,4)0:300FLJS$"DOOR"AD%(1,4)ROOMĺ:"THE DOOR IS LOCKED."::300FVJS$"DOOR"AD%(2,4)ROOM19650DGUBLE!!!":BTBT2:X$"** WIN **"]EFX$"DEATH"ĺ:"YOU HAVE LOST YOUR LIFE!!!":DIE1::2000EF10:"YOU HAVE WON ";BT:T3CHCHBT:300EFMD%(0,T)MD%(0,T)BT:MD%(0,T)24MD%(0,T)24EF300E|GT3CHCHBT:300EGMD%(0,T)MD%(0,T)BT:300 F8**":18100,DFX2X$"-- DOUBLE --":18100@DFX$">> LOSE <<"hDFX16336:Q(X)(X)(X)(X)(X)DF5:958:((40(X$))2)DFX$"DEATH"ĞDFX$:DFJ1I50:J:IDF(X$,1)">"ĺ:"YOU LOSE!!!!!":18300EF(X$,1)"-"ĺ:"YOU WIN DOA)";:S$:18030@CFT3BTCHĺ"YOU DON'T HAVE THAT MUCH.":300yCFT3MD%(0,T)BTĺ:"YOU DON'T HAVE THAT MUCH.":300CF:"---------THE WHEEL IS SPINNING---------"CFI1((1)107)CFX((1)100):X93X$"DEATH":18100 DFX55X$"** WIN !":3000BdFS$""Ą"HOW MUCH TO BET?";S$:18020MBiF(S$)0BT(S$):18050BnFT13:("HAC",T,1)(S$,1)Ă::"BET WHAT?":300BsFBT18060BxF:"HOW MUCH TO BET?";:S$:BT(S$)B}FT18060CF:"WHAT TO BET ON (HARDINESS, AGILITY, OR CHARISM02ABAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100AS$"SPEED"14000?>S$"TREZORE"TRZ30000?B:"OKAY, '";S$;"'"::300>:MN$(M);" GROWLS AT YOU":15100D>:MN$(M);" IGNORES YOU":15100g>:MN$(M);" ";V$;"S BACK":15100u>:M::300>>///SAY COMMAND>>4900>>S$"BLAST"V$S$:S$"":11000>>S$"HEAL"12000>>S$"POWER"13000?>S$"NEAMO"ROOM9ĺ:"THESUC300E=6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)=6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300=:///SMILE COMMAND=::M1NM:MD%(M,5)ROOM15100=:MD%(M,14)15030,15040,15050"N EAMON.ROOM NAMES,L64" UP}100A> 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 GAME?":" Y OR N:";A$:A$"N"1000oT}(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"T}DK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"U<}DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPE5)(106)2561gS^yDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561Shy:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."SryS} /// RESTARTS}216,0$T }:"DO YOU WANT TO RESTART THISRy // SAVE GAMEIR"y:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";hR,yA$:A$"Y"A$"N"30020|R6yA$:A$"N"100R@yDK$;"CLOSE":X(0)RJyDK$"BSAVE GAME.PTRS,A$69,L8"STyDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(10LUB SPEARSWORD",(X1)51,5):QuWA%(X)((1)10)5:300iQuA1NA:AD%(A,2)1AD%(A,4)1AD%(A,4)0uQuA:300QuA1NA:AD%(A,4)1(1).5AD%(A,2)1ĺ:"DAMAGE POINTS ON YOUR "AN$(A):"JUST WENT UP!!":AD%(A,8)AD%(A,8)((1)31)QuA:300YOUR WEAPONS JUST DISAPPEARED!":30100cPpu(1).5ĺ:"YOUR ARMOUR EXPERTISE IS GONE!!!":AE0:300Pqu:"YOUR ARMOUR JUST DISAPPEARED!!!":AC0:300Pvu(1).530150P{u:"YOU FORGOT ALL YOUR WEAPON EXPERTISE FORA ";QuX((1)51):("AXE BOW C:A0:7635:300qOXu:"YOU FEEL YOUR WOUNDS CLEARING UP!":MD%(0,13)MD%(0,13)((1)3):MD%(0,13)0MD%(0,13)0zO]u300ObuM0NM:MD%(M,5)ROOM(1).5ĺ:MN$(M);" IS BLASTED BY TREZORE!":S1:D((1)55):DFM:A0:7635OguM:300&Plu(1).7ĺ:"E1:2000BN:uX((1)61):X30020,30030,30040,30050,30060,30070NDu:"YOUR ENEMIES DISAPPEARED!!":M1NM:MD%(M,14)3ĺ:MN$(M);" DISAPPEARS!":MD%(M,5)((1)38)1NIu:300ONu:"A FLASH EXPLODES BENEATH YOU, BURNING YOU SEVERLY.":S6:D1:DF0S,R"J:A$:A$""ĂJ:DK$"WRITE CHARACTERS,R0":J:DK$@Ma2550TM0u TREZORE SPELLM5u(1)100TRZĺ:"NOTHING HAPPENED.":300 N7u(1).98ĺ:"YOU SUDDENLY FIND THAT YOU TELEPORTED INTO A WALL. YOU CANNOT BREATHE IN SOLIDSTONE, SO YOU ARE DEAD.":DI