+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮLč     \ DK$(4)ZDK$;"OPEN LAST ADVENTURE":DK$;"WRITE LAST ADVENTURE"::DK$;"CLOSE":D ERE!"::300gT&R"THE GODS PUNISH YOU FOR YOUR SACRILEDGE BY LOWERING YOUR CHARISMA BY ONE.":CHCH1T+RAD%(17,4)1AD%(19,4)1WTWT2T0RAD%(19,4)0:AD%(17,4)0AD%(18,4)AD%(17,4):AD%(17,4)0T:R300MD%(6,4)1WTWT2DS>N:"YOU FIND IT DELICIOUS."::AD%(6,4)0:300ZSR///DRINK COMMANDSR4900:S$"WATER"(S$,4)"HOLY"ĺ:"DRINK THAT? ARE YOU NUTS?"::300 TRAD%(17,4)ROOMAD%(17,4)1AD%(19,4)ROOMAD%(19,4)1ĺ:"THERE'S NO ";S$;" HH24CHCH1:R1:19050CRtJRĺ" YOU FEEL YOUR CHARISMA GROWING!"NR~J:300cR N ///EAT COMMANDR*N4900:S$"FOOD"(S$,4)"LAMB"(S$,4)"CHOP"ĺ:"YOU'VE GOT TO BE KIDDING!"::300R4NAD%(6,4)ROOMAD%(6,4)1ĺ:"I SEE NO ";S$::300S9NAO ";S$::300ZQLJS$"BOOK"S$"SCROLL"ĺ:"THERE ARE NO MORE MARKINGS TO READ!"::300QVJS$"SCROLL"ĺ:"THE SCROLL CRUMBLES TO DUST AS YOU UNROLL IT.":AD%(4,4)0::300Q`J:"THE BOOK VANISHES AFTER YOU READ IT.":R0:AD%(2,4)0RjJ(1)CNOW, CHARLEY! YOU JUST WOKE A VAMPIRE UP!"::MD%(24,5)ROOM:R3ROOM:3600:300PDH:"VERY WELL.":E11:MD%(9,5)ROOM:AD%(7,4)ROOM::3600:300P8J///READ COMMANDP=JNBTL3010 QBJ4900:A1NA:S$AN$(A)(AD%(A,4)ROOMAD%(A,4)1)Ă::"I SEE N"BL"ĺ:"SOMETHING ROLLS OUT!"::AD%(10,4)ROOM:300OF:"YOU NEVER LEARN, DO YOU?"::"THE CHEST ATTACKS YOU!"::AD%(8,4)0:MD%(12,5)ROOM:3600:300OF///OPEN VAMPIRE'S COFFINOF:MD%(24,5)AD%(59,4)ĺ:"IT'S EMPTY!"::300PPF:"YOU BLEW IT )?";A$:S$A$" "S$:18020lNnF((S$,5)"CHEST"ROOM28)(S$"COFFIN"ROOM44)ĺ:"I SEE NO ";S$::300NxFS$"COFFIN"18100NFA$(S$,2):(A$"BR"AD%(8,4)ROOM)(A$"BL")S$S$" ":18030NFA$"BL"AD%(10,4)ĺ:"IT'S EMPTY!"::3005OFA$EAAE)AD%(A,5)WA%(AD%(A,6))2MD%(0,2):MD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8)sMFF:"READIED."::300MPF///OPEN COMMANDMZF4900M_F((S$,5)"WOMAN"(S$,3)"CHA")ROOM26E118500NdFS$"CHEST"ROOM28ĺ:"WHICH CHEST (BROWN OR BLUEL>S$"POWER"13000+L>S$"SPEED"14000JLB:"OKAY, '";S$;"'"::300bLhB///READY A WEAPON.lLrB4900L|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100LBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100ZM///SAY COMMANDK>4900K>S$"BLAST"V$S$:S$"":11000K>S$"HEAL"12000NBTL0J4300#J6///SPEED SPELLGJ3:300OG3RR4513300gG3 15% OF HEAL SPELLrG312020G3RR6513400G3 20% OF RESTORING NON-POWER SPELL ABILITIES6H4:"ALL OF YOUR SPELL ABILITIES (EXCEPT FOR POWER) HAVE JUST GONE UP" JUST TELEPORTED IN!"/F3:R3ROOM:3600:100F3M1NM:MD%(M,5)30MD%(M,5)ROOMMD%(M,5)ROOM:MN$(M);" JUST TELEPORTED IN!"F3:R3ROOM:3600:100F,3RR3013200F63 15% OF ALL COURAGES GOING DOWN BY HALF3G@3M1NM:MD%(M,4)MD%(M,4)2.5:L--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTSLE2S4:11500:SUC300nE2RR(100(1)1):RR1513100E2 15% CHANCE OF TELEPORTING ALL MONSTERS TO ROOME2ROOM3013070F2M1NM:MD%(M,5)0MD%(M,5)31MD%(M,5)ROOMMD%(M,5)ROOM:MN$(M);IN AND YOU FORGET IT COMPLETELY."::SA%(S)0:FD.///HEAL SPELL_D.S2:11500:SUC300D.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":D.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0D/DF0:7650:3003E2///POWER SPEL(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600ZC,SUCĺ:"NOTHING HAPPENED.":C-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2C -S2%(S)S2%(S)2C-3DP-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAY KEY TO CONTINUE)";:A$::A00*B$':300>B*///BLAST SPELLHB+4900B,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100B,S1:11500:SUC300B,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3007C,SUC0:SA%(S)RL(100WN!"::300TA&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):9120nA'///INVENTORY COMMANDB':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANI@#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)@#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)@#R3ROOM:3600:5050 A%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR O:100?Z#S$(S$,(MN$(M))1)A?d#(S$,1)" "S$(S$,2):9060S?i#(S$)09500?n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)19095?x#:A22A23::"WHAT TO GIVE? ";S$:9065?#:"YOU AREN'T CARRYING A ";S$;"!"::100@#AMD%(0,9)MD%(0,9)1$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$Q>>!R2DR%(6(1)1):R218510W>H!l>(#///GIVE COMMANDu>2#A21><#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM9050>F#:A21A22::"WHO TO GIVE TO? ";S$:9020?P#:"NOBODY HERE BY THAT NAME!":LLAR FALLS OFF FROM THE NECK OF THE TIGER."::AD%(3,4)ROOMG=:\=@///FLEE COMMAND=JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100=TMD%(12,5)ROOMĺ:"THE MIMIC HOLDS YOU TIGHTLY AND YOU CANNOT FLEE."::300=*!8500:35001>4!DKK$;"WRITE EAMON.MONSTERS,R";8:MN$(0):A112:MD%(0,A)::DK$;"CLOSE":DK$;"LOCK EAMON.MONSTERS"q CASTLE OF DOOM <-B[ BY DONALD BROWNa| START-UP PROGRAM 1000DK$(4):DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC,N$ DK$;"OPEN LAST ADVENTURE":DK$;"READ LAST  E A";(8);"-> EAMON ADVENTURE #";NUM;" <-"` DK$;"RENAME EXEC,SAVE ALTERED BASE PROGRAM HERE"f ":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": < NUM19* DK$(4):DK$;"DELETE A";(8);"-> EAMON ADVENTURE #";NUM;" <-":DK$;"SAV;38);"*****************************************": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;" WASh2A$"CASTLE OF DOOM":NUM5:A2$"DONALD BROWN":9nD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"y 216,0 ::3 "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**"             ΠĠΠŠһנĠӮΠΠԯԠҮΠΠԯԠҮΠΠԯԠҮΠԠλůנĠȮΠ̠ҠȠԠԮΠȯȠҮΠȯȠҮΠԭλůנĠȮΠΠԯԠҮΠ̠ҠȠԠԮΠŠŧӠήΠŠҠҮΠȯȠҮΠȯȠҮΠΠůנҠȠ͠ȮΠ٠ҠȠԠȮΠΠԯԠҮΠҭ٠ήΠԭλůנĠȮΠΠԯԠҮΠ̠ҠȠΠԠԮΠΠԯԠҮΠȯȠҮΠȯȠҮΠԭλίӠĠԮΠȯȠҮΠŠҠͮΠŠԠŠҮΠŠƮΠ̠ҠȠΠԠȮΠŠ̠ƠӮΠŠŠ̮ΠŠԠͮΠŠԠŠҮΠŠήΠŠٮΠŠ٠ͮΠŠҠͮԠŠԠĠƠҮΠŠΠ̮ΠŠĠͮΠ̠٠ͮԠŠȠĠƠҮΠŠŠƠȯȠҍԠŠȠĠƠҮԠŠԠĠƠҮΠŠ͠ƠŠ̮ԠŠԠĠƠҮΠŠŠƠΠԯԠҮԠĠƠҮΠŠԠŠƠŠŮΠŠŠϠŠŮΠȯȠҮԠŠȠĠƠҮΠŠȠŠƠŠŮΠŠԠŠƠŠŮΠŠȠŠƠŠŮǍ          βĠҍōαòóԶñԴԵԲԳٲԱÍٱΠҍ؍ȍӍٍҍōٍ̍ōٍōϠˍǠčԠč΍čҍҍŠōčҍō΍Ǎ٠ō٠ҍ̍ōӍ׍ōō̍ōΠԍŠԍ ЍĠ΍̍čˍҍ                         ĠĠҍĠαĠβĠóĠōĠñĠòĠԵĠԶĠԳĠԴĠԱĠԲĠٱĠٲĠ؍ĠÍĠӍĠΠҍĠҍĠύĠ̍ĠٍĠōĠōĠٍĠٍǍԍՠŠԠŠԠĠƠҮŠӠҠԠŠĠϠŠԬӠ̠ӠŠӠǠȠȠĠȮՠŠԠŠȠĠƠҮՠԠŠȬȠՠ٠ϠȠŠӠϠŠԠҠԮՠŠΠŠŠƠȯȠҮŠӠҠΠŠԠ̮ՠŠԠŠȠĠƠҮŠӠҠϠŠȬӠϠŠԠĠԬĠƠŠŠŠӠȮՠŠԠŠԠĠƠҮԠӠĠĠԬȠՠΠϠȠŠҠϠŠȮՠŠΠŠŠƠΠԯԠҮŠŠӠΠȠƠŠҠȠĠȩՠŠԠŠԠĠƠҮŠӠҠϠŠԬӠ̠ӠҠϠŠȮՠŠԠŠ͠ƠҠ̮ԠӠ٠ŬĠӠĠƠΠ̠ҠӠΠΠϠŠ ЩՠŠԠŠȠĠƠҮŠӠҠΠŠȠ̬ĠҠϠŠԠϮՠŠΠȭȠҮӠҠΠŠԠ̮ՠŠΠ٠ԠĠӠŠĠŠϠŠŮŠӠҠԠԮԠӠˠ̬ԠŠӠҠϠŠԮŠҠՠŠΠӠȬȠՠԠŠϠԮՠŠΠŠԠŠƠŠŮŠӠϠˠŠҠΠŠŠƠŠŠҠŠ̠ĠԮȠĠȠ̠ˠՠĠŠŠƠŠŮՠŠΠŠȠŠƠŠŮՠԠϠȠҠȬŠՠŠΠŠĠ̮ԠĠԠĠՠĠŠŠήՠŠǠΠŠԠŠƠŮϠŠԠӠŠ̠ԠӠĠŠŭŮϠŠԠӠŠ̠ƠŠŬȠϠٮȠĠȠ̠ĠՠĠŠŠŮՠŠǠΠŠȠŠƠŮϠŠȠӠ̠ˠΠŠ̠ԠӠҠ٠ŮϠŠȠӠҠǠϠŠŬ٠Үՠ٠ϠϠԠҠԠϠŠŠŮՠŠΠ̠ҠȠŠԠϠŠȮŠР̠ƠҠĠŠȠӠϠŠ̠͠ՠԠՠŠΠŠӮՠŠΠŠƠƠŠŮŠ٠ԠӠˠΠŠ̠ŠРήŠŠӠŠƬǠԠŠϠРҠ̠ƮՠŠΠŠԠŠҮԠӠĠŠҠƠŠŬŠ٠ԠϠŠԮ٠ϠӠŠϠŠΠΠŠĮՠŠΠŠҠͮԠӠΠĠŬԠҠŠנӠՠĠŮŠ͠ӠĠӠҠƠŬȠŠ٠ԠϠŠȮՠŠΠŠҠϠŠԮՠԠŠԠӠԠΠԠŠӠ͠ϠŠǠƠҠԠԮԠӠĠӠҠƠŬȠŠ٠ԠǠϠŠԮՠŠΠԠӠŠŠԠ̠ͮŠӠŠ̠Ϡ٠ϠŬ٩Š͠ӠҠƠŬȠŠ٠ԠϠŠȮՠŠΠŠ̬ԠǮӠϠƠΠ̠ҠӬӠ̠ӠŠӠǠРҠ΢ՠŠΠ̠ĠϠŠӠƠ̠ӮӠӠŠĠϠŠӮŠ͠ΠŠŠƠΠìȠӠԠĠȮՠŠΠ͠ŠŠƠƠŬȠӠϠŠԠĠȮՠŠΠ͠ŠŠƠΠìȠӠȠĠԮ̠ƠӠŠΠŠĮՠŠΠŠٮ٠ӠŠΠӠǠŠӬ٠ĠΠŮǠҠƠŬӠŠϠŠȠĠԮՠŠΠŠήŠΠŠӠĠϠŠ̬ĠŠӠƠӠǠŠĠŠΠŠӮŠ͠ӠԠРΠìȠӠȠĠԮՠŠΠ̠͠ԠӠӠΠàƠŬȠӠϠȠĠԮƠ٠ǠҠӠ٠ĠӠͬŠǠŮՠŠΠ̠͠ԠӠԠРӠҠƠŮӠϠĠԮŠӠĠŠϠΠĬȠΠԠӠ٠ƠŠΠ̠٧ՠŠΠԠӠŠ٠ŠΠ̠ƠŠŮԠӠԠРӠҠƠŬȠӠϠŠԠĠȮ٠ӠנŠӠŠΠӬԠԠ٠̠ӠŠͮՠŠԠŠԠĠƠҮՠԠŠԬԠՠ٠ϠȠŠӠϠŠȠĠȠҠƠŠΠԩՠŠΠȯȠҮՠŠΠȯȠҮՠŠΠ̠ҠȠŠԠϠŠԮԠӠ٠ӠԠҠĠҠΠ٠ĠŠȠΠǠƠԬΠҮՠŠΠΠ٠ԠҠȠŠ٠ԠϠŠȮŠӠ̠ՠԠՠŠĠŠҠƠšՠŠΠҭ٠ήŠӠȠĠԠϠϠŠӬȠĠԠϠϠǠӮՠΠŠΠŠԠנĠӠƠŠĠϠſՠŠΠΠԯԠҮՠŠΠ̬٠ŠŠ٠ԠӠϠŠȮՠŠΠΠԯԠҮ̠Ӡ٠Ϡ͠ϠŠȬȠՠԠŠԠӠΠŮՠŠΠΠԯԠҮՠŠΠ̬٠ҠȠŠ٠ԠϠŠԮՠŠΠΠԯԠҮՠŠΠԭάŠΠԯԠҠϠӠȮՠŠΠȯȠҮՠŠΠԭάŠȯȠ̠ϠӠΠԠϠŠԮՠŠΠ̠ȯȠҮՠŠΠԠȯȠҮՠŠ٠ŠĠŬǠΠӠĮՠŠŠĠ̬ĠРĠĠȠŠήՠŠԧӠҠȠ٠ӠĠΠԮՠŠΠĠˠˠȠŠŠנϠΠӠĠŠŧՠŠŠΠǠšՠŠΠΠԯԠҮՠŠΠΠԯԠҮՠŠΠҠԠӠРĬϠԠӠŠϠŠȠĠŠԮՠŠΠȯȠҮՠŠΠ̠ҠȠŠԠǠϠŠԮՠŠΠԭλůנĠȮՠŠΠΠԯԠҮՠŠΠ̠ҮŠӠ٠ŠԬȠӠԮՠŠΠΠԯԠҮՠŠΠԭάŠΠԯԠҠӠԠРȠȭǠŮՠŠΠȯȠҮՠŠǠƠԬȠŠŠԠƠ٠ҧĠĠ٠ŠҠՠŠŬˠήՠŠ̠ŠƠ٠ҮՠŠŠŬנٮՠŠŠĠȠҮ̠ΠŠŠӬŠ٠ҧՠŠŠǭĠ̮ՠŠӠΠ̬ΠŠ͠Ơ׮ԠӠ٬ԠŮՠŠ̠ҠӠŮՠŠΠŠŠԠĠŠĠӠάԠԠΧԠӠƠԠĠϠȠŮՠŠ̠ŠƠϮԠӠ̠ȠϠŠĬԠԠ٠ŭŮՠŠŠŮԠӠ٠ĠӠΠԮՠŠԭĠ̮ՠŠŠԠǠΠŠĮՠŠΠԠΠŠĢՠŠĠΠԠӠ٠Ԡ٠ԠŠԠŠΠ٬ϠөՠŠ РŮՠŠŠĠ٠Ơ٠ŠƮՠŠĠԠȠŠРӮՠŠԠĠǠΠŠӮΠàӠӠŠŠƠӠέǧΠҠӠՠŠĠϠŠŬϠӡՠŠϠˠΠƠŠ٩ՠŠĠŮՠŠԠĮՠŠǠĮՠŠĠĮՠŠΠΠŠҩՠŠĠҮՠŠŠĠҢՠŠĠΠԠӠŠӠΠΠŠĠҩՠŠРŠŮՠŠĠŮՠŠŬȠΠŠΠӠƠϠŠΠ٠ĮŠ̠ӠԠϠŠĮĠҠԠ̠Ӯz               ՠŠŠĠ٠ƠŠĠԮՠŠŠĠ٠ƠŠĠԮՠŠŠĠ٠ƠŠԠԮՠŠŠĠ٠ƠŠĠٮՠŠŠĠ٠ƠŠԠ٢ՠŠŠĠ٠ƠŠîՠŠŠĠ٠ƠŠخՠŠŠĠ٠ƠŠΠҢՠŠŠǠӠƠŠӮĠϠ̠ҠŠĠӠϠũՠŠŠĠ٠ƠŠҮՠŠŠӠƠŠ٬ϠҠĮՠŠŠĠ٠ƠŠ̮ՠŠŠ٠ǠĠ٠ƠŮՠŠŠĠ٠ƠŠŠƢՠŠŠĠ٠Ơ٠ŠƢՠŠŬǠ̮ŠӠҠΠҠٮŠӠ٭ǠԮՠŠӬ̠̮ȠŠҠӠĬŠҠԠӠՠԠҠŠӠŧŠӠϠҠ٠ԠՠΠŮՠŠŬ٠Ġ٧ӠҢՠŠ٬٧ӠҮՠŠ٠ƠŠŠӠٮŠӠĠȠΠŮ           !!! ! ! ! ՠŠŠĠ٠ƠŠҠĠҮՠŠŠĠ٠ƠŠĠήՠŠŠĠ٠ƠŠԠήՠŠŠ٠ƠŠŮԠΧԠŮՠŠŠĠ٠ƠŠĠîՠŠŠĠ٠ƠŠĠîՠŠŠĠ٠ƠŠԠîՠŠŠĠ٠ƠŠȠԮՠŠŠĠ٠ƠŠȠԮՠŠŠĠ٠ƠŠȠԮՠŠǠàƠΠŢՠŠȠԮՠŠȠԮՠŠȠԮՠŠĠԮՠŠĠԮՠŠ٠ŠԮՠŠĠ٠ǠҠŠˮՠŠŠ٠ǠΠΠլŠӠӠΠΠĠŮԠӠ٠ĠٮՠŠŠՠҠԭîɠĠԠϠՠάΧԠɿԠ̠ӠŠӬԠנӠŠӠҠĠҠΠŠŠՠԠΠŠҧӠŮՠŠŠج̠ŠȠŠ٠ƠΠĠŠĠƠήǠ͠ҬՠŠϠҠŠŠӠ̮ՠŠΠҬԠƠĠŠҮԠ̠ԠϠԠǠԠӠԠǠΠӠάǠҠԡӠՠŠԭӠԠ͠ŠˠƠŠάՠŠԠŠӠӬƭΠƠĠԠƠŠ̮ՠŠϠҠŠծŠӠլǠԠƠՠ̠͠ŠԠΠϠŠŠŬŠƠŠӠլՠ̠ŠӠŠӠŠŠŠŠӠϠӠĮՠŠӠҬϠӠ٠ΠΠӠŠӠԠծՠŠԭǠٮŠӠϠ̠ՠΠŠԠԠƠŠŠΠǠĠҠũD%(M2,14)3(1).25DFM2:7500:M2200:M2:490H|M2:DF0:7500:490QOFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)TD%(1)):NBTLĂM///SPECIAL VAMPIRE STUFFnAD%(59,4)MD%(24,1)MD%(24,90^MD%(M,14)3390cM9ĺ:"YOU FEEL A MENTAL ATTACK, TRYING TO TAKE OVER YOUR MIND."::(1).05ĺ"IT SUCEEDS. YOU ARE NOW A MINDLESS SLAVE TO THE SUCCUBUS."::DIE1:2000hOFM:TD%(3)MD%(0,1)DF0:7500:4900rM21NM:MD%(M2,5)ROOMM@M1NM:MD%(M,5)ROOM490cJM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)100(41(1)20)TMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490YMD%(M,14)24)";18(C$(C)));::::210) V$C$(C) "C3000,3000,3000,3000,3000,3000,4000,4000,5000,6000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000,18000,18000,19000,20000,21000 ,///COMMANDS RETURN TO HERE 6NBTL5007):17:A$2 CZ$A$:A2(A$):(A$,A,1)" "ĂP V$(A$,A1):S$(A$,A1)q (S$,1)" "S$(S$,2):260 CNC11:(V$,(C2$(C)))C2$(C)280 C::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C2$(C);"(";(C$(C),(C2$(C))1);"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 ROOM26E1ĺE1$ :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):220 A$""A$CZ$:(3.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1b M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERE.": MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)1: M:A1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A)J AD%(A, 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 ARE ":" ";A$:' V%(ROOM)ĺDK$;"READ EAMONLI NATIONAL EAMON USERS CLUB P.O. BOX 30087 DES MOINES, IA 50310 e EAMON ADVENTURE #5-> DOOM CASTLE <- BY DONALD BROWN REV. 12-15-842DK$(4):1000 d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN!!!!!!!!!""" " " " " """""""""                  ՠŠΠϠӠŠӠƠҠƠŠĠƠŠӬԠΠӠӠ̠ՠΠŠӠŠӮՠŠĠήՠŠ٠ŠήՠŠŠԠĠƠ̠ƠŠĠӭŮŠӠŬԠĠǠ͠ӠǠӮŠӠٮՠŠĠîՠŠĠǠîSKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0G A$:A$"C"2520O 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):MD%(0,1):MD%(0,2):CHOUR GOODS AND":"PAYS YOU ";@ TP0:A1NA:AD%(A,4)12350i AD%(A,2)0AD%(A,1)AD%(A,1)CH10|$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":8 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$: 25001 :5:"(INSERT EAMON MASTER DI1):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) W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES Y"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;") " (37):23:A$:W5(A$):W51W5W21W5(W5)2080(*AD%(WP%(W5),4)1:WN$(W5)WN$(W2kW14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0}A:W262300A :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAPONS":SPDMD%(0,2)MD%(0,2)2mDIEĺDK$;"OPEN LAST ADVENTURE":DK$;"WRITE LAST ADVENTURE"::DK$;"CLOSE":2500DK$;"OPEN LAST ADVENTURE":DK$;"WRITE LAST ADVENTURE":MN$(0):M1NM:A115:MD%(M,A):A,M:A1NZ:AD%(A,4)(AD%(A,4)1)::DK$;"CLOSE"EX,ATTACK,A,FLEE,F,GIVE,GI,INVENTORY,I,BLAST,B,HEAL,H,POWER,P,SPEED,SPSMILE,SM,WAVE,WA,SAY,SA,READY,R,OPEN,O,RELEASE,REL,FREE,FR,STUDY,ST,EAT,EA,DRINK,DRI///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$;"CLOSE":),C2$(NC):C1NC:C$(C),C2$(C):KtS14:S2%(S)SA%(S)::V%(96):ROOM1~E1$"YOU SEE A WOMAN CHAINED TO A BEDPOST!":E1AD%(7,4)MD%(9,5)AD%(44,4)l100v29F NORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,G,TAKE,T,DROP,DR,LOOK,L,EXAMINE,A22ACMD%(0,8)1:EA5fVA2MD%(0,8)MD%(0,8)A2:EAEAA210: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)3!jNC:C$(NCNA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W248WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2): ADVENTURE":DK$;"READ LAST ADVENTURE":A$:A$MN$(0)āM1NM:A115:MD%(M,A):A,M:A1NZ:AD%(A,4):y!DK$;"CLOSE"$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64".W214:WN$(W2)"NONE"NANA1:AN$( FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,ACNW20:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE":DK$;"DELETE FRESH MEAT"hDK$;"OPEN LASTTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A2A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"CLOSE"fDK$;"OPEN FRESH MEAT":DK$;"READMD%(14,5)30MD%(13,5)ROOM:MD%(14,5)ROOM:36009100Q///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZIDK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):A1NA:DK$;"READ EAMON.ARTIFACROOM:ROOMMD%(24,5):8500:ROOMR3:MD%(24,5)R2:R2ROOMĺ"A VAMPIRE JUST WALKED INTO THE ROOM!"::3600MD%(24,5)44ROOM44MD%(24,5)0&M1314:MD%(M,5)ROOMMD%(M,5)30MD%(M,5)0MD%(M,5)5MD%(M,5)3000:ROOM5(1).10MD%(13,5)3013)MD%(24,13)1:MD%(24,13)0MD%(24,5)AD%(59,4):AD%(59,4)0:MD%(24,5)ROOMĺ:"VAMPIRE COMES ALIVE!":3600AD%(59,4)0MD%(24,5)0(1).25MD%(24,5)44:ROOM44ĺ"A VAMPIRE JUST CAME OUT OF THE COFFIN!"::3600hMD%(24,5)ROOMMD%(24,5)0R3