+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               ՠŠŠĠ٠ƠŠĠԮՠŠŠĠ٠ƠŠĠԮՠŠŠĠ٠ƠŠԠԮՠŠŠĠ٠ƠŠĠٮՠŠŠĠ٠ƠŠԠ٢ՠŠŠĠ٠ƠŠîՠŠŠĠ٠ƠŠخՠŠŠĠ٠ƠŠΠҢՠŠŠǠӠƠŠӮĠϠ̠ҠŠĠӠϠũՠŠŠĠ٠ƠŠҮՠŠŠӠƠŠ٬ϠҠĮՠŠŠĠ٠ƠŠ̮ՠŠŠ٠ǠĠ٠ƠŮՠŠŠĠ٠ƠŠŠƢՠŠŠĠ٠Ơ٠ŠƢՠŠŬǠ̮ŠӠҠΠҠٮŠӠ٭ǠԮՠŠӬ̠̮ȠŠҠӠĬŠҠԠӠՠԠҠŠӠŧŠӠϠҠ٠ԠՠΠŮՠŠŬ٠Ġ٧ӠҢՠŠ٬٧ӠҮՠŠ٠ƠŠŠӠٮŠӠĠȠΠŮ           !!! ! ! ! ՠŠŠĠ٠ƠŠҠĠҮՠŠŠĠ٠ƠŠĠήՠŠŠĠ٠ƠŠԠήՠŠŠ٠ƠŠŮԠΧԠŮՠŠŠĠ٠ƠŠĠîՠŠŠĠ٠ƠŠĠîՠŠŠĠ٠ƠŠԠîՠŠŠĠ٠ƠŠȠԮՠŠŠĠ٠ƠŠȠԮ