L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ㊨ rLa ?&0ΰ` Δ䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `P O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @Gh X{gggggg'(dgxkg~9g'7(*7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTĠ 5EMҠL Šō?FِLϚΠ κ f ٢  ٦Τ ȹɀI ȄȹH h3 oLB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N>W']5Kgvq ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWΤ PڵxۥΑȥL`hh$ F`` %ֈ`ʤZA^ܙ ݙ0  m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ܪȱ L[ĨP?xO_ڹo  l`w0P`fLPεϵxϱHȱ΅hΈ` J  畠P` Y $0`  畠$0 8 P# o ΅ڥυ e epݕ` 4LL$ `  rPՆϦ ` ΅υȩ ` Ӡȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0 xx ԅբ H 0  敠$ ( x$0  xx 0$FԨֹ)U h)װ H ֐ι LhޤȄ h󰩠ɩch cɰ$0 $` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄ0)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05X~")XȔ) v*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0 ̥͐Eʑ˥ʥ˰ਈ$ u~q  u  mʥ` ȹ0 L uߙ`` $0LL*iS 0wh(VP`΅h(OM L6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ   o ` l3 3` 4J G 4&(JJJJ) 甠` F٩ $ 婠 Ȣ ii)ɰLPx+L 4P xL# 48` PxL PeHxeH˰iکeۅȱhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOL L3L`) #L $  `  v mL;ʅ˅LM  mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ q L H ϐ { lhHHH hHL? hυυ Ljݥ ,L mݰ % LߩƉ 慝 憨80 ў*%L L ު `  }Lޢh5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--&eʵ``` f f` &L L fLC`8i`uu  ee`` ` 0` ` ` 5I` 5Iй` f f`L ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LH) JQ JJJH`HJ`hh ?l8e` %GQ/[҅n3pJ?>ʊ:>Ș;k/=:   S;:L 4 40K14 L= BC D..=D5֤4 J :3 g ɠɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D`L# ȱ0` 4 `u` 7$ 8`0 &&` { %Ppĥ uv` 2e   %F8 2 8Hh&&&&& 0hhI`LLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ 甠` uHɃLh` ☪ T`  甠`ѥ΅ ΅ҥυө 甠0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$ L赟0L0ܤ } L赟L0ܤ } L ` ` [ S oP YVPL6 O 5OPL Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`Ʌ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , ` L:L``F`$ ܪȱ 婠Lܤ`Ś25 a0 穠LJKH۰hЅѠȱ0@ȱHШhh0JL JLKMMLILLILLLLy 2L,PQ܅x݅yL آ8ЕNЕKʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8MϕڥL 4΅` ȑ` l΅υLD L4 xPiڄeΕPeϕxPȵxڰL# N ONi)OO i@ &N&O ϕLz JKLυML LMJυKL qL ȩ` 6 6P`JLKMLxL L6 L[ĠñĠòĠԵĠԶĠԳĠԴĠԱĠԲĠٱĠٲĠ؍ĠÍĠӍĠΠҍĠҍĠύĠ̍ĠٍĠōĠōĠٍĠٍǍԍōϠˍǠčԠčb@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵ՠŠΠŠҠϠŠԮՠԠŠԠӠԠΠԠŠӠ͠ϠŠǠƠҠԠԮԠӠĠӠҠƠŬȠŠ٠ԠǠϠŠԮՠŠΠԠӠŠŠԠ̠ͮŠӠŠ̠Ϡ٠ϠŬ٩Š͠ӠҠƠŬȠŠ٠ԠϠŠȮՠŠΠŠ̬ԠǮӠϠƠΠ̠ҠӬӠ̠ӠŠӠǠРҠ΢ՠŠΠ̠ĠϠŠӠƠ̠ӮӠӠŠĠϠŠӮŠ͠ΠŠŠƠΠìȠӠԠĠȮՠŠΠ͠ŠŠƠƠŬȠӠϠŠԠĠȮՠŠΠ͠ŠŠƠΠìȠӠȠĠԮ̠ƠӠŠΠŠĮՠŠΠŠٮ٠ӠŠΠӠǠŠӬ٠ĠΠŮǠҠƠŬӠŠϠŠȠĠԮέԠΧԠŮǠҠƠŬӠŠϠŠȠĠԮՠŠΠŠήŠΠŠӠĠϠŠ̬ĠŠӠƠӠǠŠĠŠΠŠӮŠ͠ӠԠРΠìȠӠȠĠԮՠŠΠ̠͠ԠӠӠΠàƠŬȠӠϠȠĠԮƠ٠ǠҠӠ٠ĠӠͬŠǠŮՠŠΠ̠͠ԠӠԠРӠҠƠŮӠϠĠԮŠӠĠŠϠΠĬȠΠԠӠ٠ƠŠΠ̠٧ՠŠΠԠӠŠ٠ŠΠ̠ƠŠŮԠӠԠРӠҠƠŬȠӠϠŠԠĠȮ٠ӠנŠӠŠΠӬԠԠ٠̠ӠŠͮҮͮՠŠԠŠԠĠƠҮՠԠŠԬԠՠ٠ϠȠŠӠϠŠȠĠȠҠƠŠΠԩՠŠԠŠԠĠƠҮŠӠҠԠŠĠϠŠԬӠ̠ӠŠӠǠȠȠĠȮĠĠҍĠαĠβĠóĠōՠŠΠҭ٠ήŠӠȠĠԠϠϠŠӬȠĠԠϠϠǠӮՠΠŠΠŠԠנĠӠƠŠĠϠſՠŠΠΠԯԠҮՠŠΠ̬٠ŠŠ٠ԠӠϠŠȮՠŠΠΠԯԠҮ̠Ӡ٠Ϡ͠ϠŠȬȠՠԠŠԠӠΠŮՠŠΠΠԯԠҮՠŠΠ̬٠ҠȠŠ٠ԠϠŠԮՠŠΠΠԯԠҮՠŠΠԭάŠΠԯԠҠϠӠȮՠŠΠȯȠҮՠŠΠԭάŠȯȠ̠ϠӠΠԠϠŠԮՠŠΠ̠ȯȠҮՠŠΠԠȯȠҮՠŠΠ̠ҠȠŠԠϠŠȮŠР̠ƠҠĠŠȠӠϠŠ̠͠ՠԠՠŠΠŠӮՠŠΠŠƠƠŠŮŠ٠ԠӠˠΠŠ̠ŠРήŠŠӠŠƬǠԠŠϠРҠ̠ƮՠŠΠŠԠŠҮԠӠĠŠҠƠŠŬŠ٠ԠϠŠԮ٠ϠӠŠϠŠΠΠŠĮՠŠΠŠҠͮԠӠΠĠŬԠҠŠנӠՠĠŮŠ͠ӠĠӠҠƠŬȠŠ٠ԠϠŠȮՠŠŠΠǠšՠŠΠΠԯԠҮՠŠΠΠԯԠҮՠŠΠҠԠӠРĬϠԠӠŠϠŠȠĠŠԮՠŠΠȯȠҮՠŠΠ̠ҠȠŠԠǠϠŠԮՠŠΠԭλůנĠȮՠŠΠΠԯԠҮՠŠΠ̠ҮŠӠ٠ŠԬȠӠԮՠŠΠΠԯԠҮՠŠΠԭάŠΠԯԠҠӠԠРȠȭǠŮՠŠΠȯȠҮՠŠΠȯȠҮՠŠΠȯȠҮՠŠΠ̠ҠȠŠԠϠŠԮԠӠ٠ӠԠҠĠҠΠ٠ĠŠȠΠǠƠԬΠҮՠŠΠΠ٠ԠҠȠŠ٠ԠϠŠȮŠӠ̠ՠԠՠŠĠŠҠƠšՠŠŠĠȠҮ̠ΠŠŠӬŠ٠ҧՠŠŠǭĠ̮ՠŠӠΠ̬ΠŠ͠Ơ׮ԠӠ٬ԠŮՠŠ̠ҠӠŮՠŠΠŠŠԠĠŠĠӠάԠԠΧԠӠƠԠĠϠȠŮՠŠ̠ŠƠϮԠӠ̠ȠϠŠĬԠԠ٠ŭŮՠŠŠŮԠӠ٠ĠӠΠԮ̠Ӡ٠ŭŮՠŠԭĠ̮ՠŠŠԠǠΠŠĮՠŠΠԠΠŠĢՠŠĠΠԠӠ٠Ԡ٠ԠŠԠŠΠ٬ϠөՠŠ РŮՠŠ٠ŠĠŬǠΠӠĮՠŠŠĠ̬ĠРĠĠȠŠήՠŠԧӠҠȠ٠ӠĠΠԮՠŠΠĠˠˠȠŠŠנϠΠӠĠŠŧՠŠĠŮՠŠԠĮՠŠǠĮՠŠĠĮՠŠΠΠŠҩՠŠĠҮՠŠŠĠҢՠŠĠΠԠӠŠӠΠΠŠĠҩՠŠРŠŮՠŠĠŮՠŠŬȠΠŠΠӠƠϠŠΠ٠ĮŠ̠ӠԠϠŠĮĠҠԠ̠Ӯ z                           ՠŠǠƠԬȠŠŠԠƠ٠ҧĠĠ٠ŠҠՠŠŬˠήՠŠ̠ŠƠ٠ҮՠŠŠŬנٮՠŠŠĠ٠ƠŠԠ٢ՠŠŠĠ٠ƠŠîՠŠŠĠ٠ƠŠخՠŠŠĠ٠ƠŠΠҢՠŠŠǠӠƠŠӮĠϠ̠ҠŠĠӠϠũՠŠŠĠ٠ƠŠҮՠŠŠӠƠŠ٬ϠҠĮՠŠŠĠ٠ƠŠ̮ՠŠŠ٠ǠĠ٠ƠŮՠŠŠĠ٠ƠŠŠƢՠŠŠĠ٠Ơ٠ŠƢՠŠŠĠ٠Ơ٠ŠƮՠŠĠԠȠŠРӮՠŠԠĠǠΠŠӮΠàӠӠŠŠƠӠέǧΠҠӠՠŠĠϠŠŬϠӡՠŠϠˠΠƠŠ٩ՠŠ٠ƠŠŠӠٮŠӠĠȠΠŮ                ՠŠŠĠ٠ƠŠҠĠҮՠŠŠĠ٠ƠŠĠήՠŠŠĠ٠ƠŠԠήՠŠŠ٠ƠŠŮԠΧԠŮՠŠŠĠ٠ƠŠĠîՠŠŠĠ٠ƠŠĠîՠŠŠĠ٠ƠŠԠîՠŠŠĠ٠ƠŠȠԮՠŠŠĠ٠ƠŠȠԮՠŠŠĠ٠ƠŠȠԮՠŠŠĠ٠ƠŠĠԮՠŠŠĠ٠ƠŠĠԮՠŠŠĠ٠ƠŠԠԮՠŠŠĠ٠ƠŠĠٮՠŠĠԮՠŠĠԮՠŠ٠ŠԮՠŠĠ٠ǠҠŠˮՠŠŠ٠ǠΠΠլŠӠӠΠΠĠŮԠӠ٠ĠٮՠŠŠՠҠԭîɠĠԠϠՠάΧԠɿԠ̠ӠŠӬԠנӠŠӠҠĠҠΠŠŠՠԠΠŠҧӠŮՠŠŠج̠ŠȠŠ٠ƠΠĠŠĠƠήǠ͠ҬՠŠϠҠŠŠӠ̮ՠŠΠҬԠƠĠŠҮԠ̠ԠϠԠǠԠӠԠǠΠӠάǠҠԡӠՠŠԭӠԠ͠ŠˠƠŠάՠŠԠŠӠӬƭΠƠĠԠƠŠ̮ՠŠϠҠŠծŠӠլǠԠƠՠ̠͠ŠԠΠϠŠŠŬŠƠŠӠլՠ̠ŠӠŠӠŠŠŠŠӠϠӠĮՠŠӠҬϠӠ٠ΠΠӠŠӠԠծՠŠԭǠٮŠӠϠ̠ՠΠŠԠԠƠŠŠΠǠĠҠũՠŠŬǠ̮ŠӠҠΠҠٮŠӠ٭ǠԮՠŠӬ̠̮ȠŠҠӠĬŠҠԠӠՠԠҠŠӠŧŠӠϠҠ٠ԠՠΠŮՠŠŬ٠Ġ٧ӠҢՠŠ٬٧ӠҮ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):::"ENTER THE NUMBER OF THE WEAPON TO S:DK$;"WRITE LAST ADVENTURE":MN$(0):M1NM:A115:MD%(M,A):A,M:A1NZ:AD%(A,4)(AD%(A,4)1)::DK$;"CLOSE"W14: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 ,FREE,READ,EAT,DRINK+///DONE WITH GAMEoDK$;"CLOSE"::"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:SPDMD%(0,2)MD%(0,2)2DIEĺDK$;"OPEN LAST ADVENTURE":DK$;"WRITE LAST ADVENTURE"::DK$;"CLOSE":2500sDK$;"OPEN LAST ADVENTURE"N CHAINED TO A BEDPOST!":E1AD%(7,4)MD%(9,5)AD%(44,4)@l100Hv39NORTH,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,READYOPEN,RELEASED%(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):ROOM17~E1$"YOU SEE A WOMA:AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W24=8WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5VA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MՠŠΠϠӠŠӠƠҠƠŠĠƠŠӬԠΠӠӠ̠ՠΠŠӠŠӮՠŠĠήՠŠ٠ŠήՠŠŠԠĠƠ̠ƠŠĠӭŮŠӠŬԠĠǠ͠ӠǠӮŠӠٮՠŠĠîՠŠĠǠîՠŠǠàƠΠŢՠŠȠԮՠŠȠԮՠŠȠԮ1İ5500:DAD%(A,4)ROOM:AN$(A);" DROPPED.">,A:WT0:5060-|D1:A6AD%(8,4)ROOMĺ:"THE BROWN CHEST REVEALS ITSELF TO BE A CHEST-MIMIC AND GOES OFF IN A CORNER TO EAT THE LAMB CHOP."::AD%(A,4)0:AD%(8,4)0:MD%(12,5)ROOM:MD%(12,14)2:D0::DAD%(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."::5100+MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1+300,,A1NA:AD%(A,4)""ĺ:C$(C);" WHAT";:S$:4900%*.:*///DROP COMMANDM*S$"ALL"5100m*S$"WATER"S$"HOLY WATER"*S$"HOLY WATER"AD%(17,4)1A19:5040*A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100'+5500:WTWTAD%(A,3)A22ĺ:"AS YOU TOUCH THE OSCAR, YOU HAVE FEEL":" THE WORLD SPIN AROUND YOU, AND WHEN":" YOUR HEAD CLEARS, YOU DISCOVER--"::R218:3500)A12ı)AD%(A,4)0:MD%(8,5)ROOM:3600:100)$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.*)S$THE HOLY WATER IN THE BOTTLE":AD%(19,4)0:AD%(18,4)0:AD%(17,4)1:(S$"ALL")1300,4190|(A14MD%(24,10)MD%(24,10)10(A5ĺ:"AS YOU TOUCH THE EMERALD, THE SCENE":" AROUND YOU SHIFTS, AND YOU FIND":" YOURSELF ELSEWHERE."::R231:3500))" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)3'^::300o'h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP'mA19A5A22A12ġ'rA19AD%(18,4)1ĺ:"YOU HAVE NOTHING TO CARRY THE HOLY WATER IN!":(S$"ALL")1300,4190Y(|A19ĺ"YOU PUT 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":4190&'TAN$(A,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)y%<M:NBTL(TD%(1)0):%///GET COMMAND%4900%S$"ALL"4160%A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100=&"4200: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,5)ROOM3900$8MD%(M,14)3670$BFRMD%(M,3):FRFR100FRFR((CH10)2)!%LMD%(M,14)1:FR(100(1))MD%(ME MAIN HALL, 'N' TO STAY A SHORT WHILE LONGER ";:16368,0\# A$:A$"Y"A$"N"3090w# :(A$"N")12000,100# :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100# R3ROOM:ROOMR2:3600#500#///CHECK REACTIONS ON MONSTERS%$TD%(1)0:TD%(:D21D:R2::DK$"" R2035008" ///SPECIAL MOVESJ" R2993490" :"YOU MAY LEAVE IF YOU WISH, BUT WHATEVER YOU TAKE WITH YOU, YOU CANNOT USE ON YOUR NEXT VISIT, SO YOU MAY WANT TO DROP SOME THINGS.":># "HIT 'Y' TO RETURN TO THRER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"Y!T DK$;"RUN MAIN HALL,S6,D1"n! ///MOVE COMMAND! NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100! D16:(V$,1)("NSEWUD",D,1)Ă" DK$;"READ EAMON.ROOMS,R";ROOMDVENTURER":2900 DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(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 ADVENTULD PIECES.":F8 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$:Q 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 A,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)CH10$ TPTPAD%(A,1) . A:TP;" GOELL (1-";W21;") "O (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)S HE DIES, ";MN$(8):" ONCE AGAIN BECOMES A STATUE."::AD%(43,4)0:AD%(26,4)0:AD%(12,4)ROOM<DF7ĺ:"AS HE DIES, THE COLLAR FALLS OFF FROM THE NECK OF THE TIGER."::AD%(3,4)ROOM<:<@///FLEE COMMAND=JNBTLĺ:"THERE'S NOTHING TO FL NEXT SUCKER TO COME ALONG":.;<MD%(0,9)26;FDK$;"CLOSE":DK$;"UNLOCK EAMON.MONSTERS":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"WRITE EAMON.MONSTERS,R";8:MN$(0):A112:MD%(0,A)::DK$;"CLOSE":DK$;"LOCK EAMON.MONSTERS";PDIE1:2000^F#:A21A22::"WHO TO GIVE TO? ";S$:9020>P#:"NOBODY HERE BY THAT NAME!"::100>Z#S$(S$,(MN$(M))1)>d#(S$,1)" "S$(S$,2):9060>i#(S$)09500?n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)EE FROM!"::100g=TMD%(12,5)ROOMĺ:"THE MIMIC HOLDS YOU TIGHTLY AND YOU CANNOT FLEE."::300w=*!8500:3500=4!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$=>!R2DR%(6(1)1):R218510=H!=(#///GIVE COMMAND=2#A21+><#M1NMD  (768)0Āj ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..."p ,A6: 769 (768)1250% I --IF THERE, LOAD INTG AND PA#1P 10:"(LOADING INTEGER INTO LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CARD OR CAN'T RELOA804,0:805,208:806,208:807,10:808,173:809,129:810,192:811,173:812,129: s813,192:814,169:815,1:816,208:817,2:818,169:819,0:820,141:821,0: x822,3:823,104:824,205:825,0:826,224:827,240:828,3:829,173:830,128: }831,192:832,9,104:W _777,72:778,205:779,0:780,224:781,208:782,35:783,173:784,131:785,192: d786,173:787,131:788,192:789,169:790,165:791,141:792,0:793,208:794,205: i795,0:796,208:797,208:798,19:799,74:800,141:801,0:802,208:803,205:N nq -- DOS 3.3 HELLO  (:.(Y2"DOS VERSION 3.3 08/25/80"<:"APPLE II PLUS OR ROMCARD SYSTEM MASTER"F P --POKE LANGUAGE CARD FINDER Z768,0:769,173:770,0:771,224:772,72:773,173:774,129:775,192:776    ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơ$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$Lׅ ׅLԱJHȱJh`LNפ0`L,׈L20`LF׈LL ׅJF8ȹe8ИL`Lø{{ttmnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# !H ֥ h ߦ>  E֥ E & > ` E  E  H ֥ hL  ֥ -L L -EF# =Pi  ֤Lְ ׅ! ׅ  / ) ) "&6 B /`TLՆ8M˕  Tբ , Tզ`  . $ ; E.. 4L& >`Lk 34 Lh856!;<79)F:&8J9j*0v 婭   +<; LhLk'cg=%;!,<+k,w(gG gG]$ t < N8i| (|`ܠLդ4ɪ 4<`<  $ H h .Ю#` L}Э%J u ӊH Өh dѮ#` L Q ;Ү#` Q Ү#`#2 Ӎ'( H() 91 eȱm)h`JJ`#JȱJLh `#  <(eΨ=)eϰ%Hh>?iJK̅  #& ')*& "'JJ) ""% m% ʥ0)J!m%! `JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ`JJJJS)фPIȄR%*QTU'T8ePT UeRU QJJJ` ӥ',"&,i8i#H&ii&hif&i'`'i,&i,.&iPII&&if&H !"hH8 H!S hIiHSQUhPTh !"IiR"fS8PQ% 8TeRTUU&E%0Q&&kS TePTUeQPفŴxaI10 &WSP& )`" !H)&JJ&&h' &' &' f&') &'#i%Ѕ0J$)` .ХQ&%0Q&&`$0JI0`'0% I`0 I0ܩ(ߠQ)'%01&*%0Q)&E%0*Q&&QeS)j00               S YOU UNROLL IT.":AD%(4,4)0::300gQ`J:"THE BOOK VANISHES AFTER YOU READ IT.":R0:AD%(2,4)0QjJ(1)CH24CHCH1:R1:19050QtJRĺ" YOU FEEL YOUR CHARISMA GROWING!"Q~J:300Q N ///EAT COMMAND2R*N4900:S$"FOOD"(S$,4)"LAMB"(S:300P8J///READ COMMAND)P=JNBTL3010PBJ4900:A1NA:S$AN$(A)(AD%(A,4)ROOMAD%(A,4)1)Ă::"I SEE NO ";S$::300PLJS$"BOOK"S$"SCROLL"ĺ:"THERE ARE NO MORE MARKINGS TO READ!"::300*QVJS$"SCROLL"ĺ:"THE SCROLL CRUMBLES TO DUST AMD%(12,5)ROOM:3001OF///OPEN VAMPIRE'S COFFINdOF:MD%(24,5)AD%(59,4)ĺ:"IT'S EMPTY!"::300OF:"YOU BLEW IT NOW, 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:00HNFA$(S$,2):(A$"BR"AD%(8,4)ROOM)(A$"BL")S$S$" ":18030wNFA$"BL"AD%(10,4)ĺ:"IT'S EMPTY!"::300NFA$"BL"ĺ:"SOMETHING ROLLS OUT!"::AD%(10,4)ROOM:300OF:"YOU NEVER LEARN, DO YOU?"::"THE CHEST ATTACKS YOU!"::AD%(8,4)0:COMMANDMZF4900HM_F((S$,5)"WOMAN"(S$,3)"CHA")ROOM26E118500MdFS$"CHEST"ROOM28ĺ:"WHICH CHEST (BROWN OR BLUE)?";A$:S$A$" "S$:18020MnF((S$,5)"CHEST"ROOM28)(S$"COFFIN"ROOM44)ĺ:"I SEE NO ";S$::300NxFS$"COFFIN"181S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100gLBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100L///SAY COMMANDFK>4900iK>S$"BLAST"V$S$:S$"":11000~K>S$"HEAL"12000K>S$"POWER"13000K>S$"SPEED"14000KB:"OKAY, '";S$;"'"::300KhB///READY A WEAPON.KrB49006L|BA1NA:AN$(A)SPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300lJ:///SMILE COMMANDJ::M1NM:MD%(M,5)ROOM15100J:MD%(M,14)15030,15040,15050J:MN$(M);" GROWLS AT YOU":15100J:MN$(M);" IGNORES YOU":15100K:MN$ OF SONIC BOOMII4M1NM:MD%(M,14)0MD%(M,14)3MD%(M,14)MD%(M,14)1I4:NBTLĺ:"SUDDENLY, EVERYBODY STOPS FIGHTING!":NBTL0I4300I6///SPEED SPELLI6S3:11500:SUC300I6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)VJ6SPDND YOURSELF TELEPORTED TO A SPOT IN THE AIR ONE MILE OVER THE CASTLE. AFTER THE LONG FALL, YOU DIE.":DIE1:2000H4RR80ĺ:"THE LOUD SOUND OF A SONIC BOOM ECHOES THROUGH THE CORRIDORS"::300I4 5% CHANCE OF FRIENDLINESS, 20% CHANCE003G3 20% OF RESTORING NON-POWER SPELL ABILITIESG4:"ALL OF YOUR SPELL ABILITIES (EXCEPT FOR POWER) HAVE JUST GONE UP TO ORIGINAL LEVELS!"::S13:S2%(S)SA%(S)::300GX4RR7513500Gb4 10% CHANCE OF INSTANT DEATH|Hl4:"YOU SUDDENLY FITERED BASE PROGRAM HERE" N::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.":a <k NUM5 DK$(4):DK$;"DELETE A";(8);"-> EAMON ADVENTURE #";NUM;" <-":DK$;"SAVE A";(8);"-> EAMON ADVENTURE #";NUM;" <-" DK$;"RENAME EXEC,SAVE ALE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;" WAS":" DEVELOPED BY ";A2$[ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED." 2A$"CASTLE OF DOOM":NUM5:A2$"DONALD BROWN"< ::"*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*****************************************":c 12);"ADVENTUR   2?T0RAD%(19,4)0:AD%(17,4)0AD%(18,4)AD%(17,4):AD%(17,4)0DHAT? ARE YOU NUTS?"::300SRAD%(17,4)ROOMAD%(17,4)1AD%(19,4)ROOMAD%(19,4)1ĺ:"THERE'S NO ";S$;" HERE!"::300S&R"THE GODS PUNISH YOU FOR YOUR SACRILEDGE BY LOWERING YOUR CHARISMA BY ONE.":CHCH1T+RAD%(17,4)1AD%(19,4)1WTWT$,4)"CHOP"ĺ:"YOU'VE GOT TO BE KIDDING!"::300lR4NAD%(6,4)ROOMAD%(6,4)1ĺ:"I SEE NO ";S$::300R9NAD%(6,4)1WTWT2R>N:"YOU FIND IT DELICIOUS."::AD%(6,4)0:300RR///DRINK COMMANDSR4900:S$"WATER"(S$,4)"HOLY"ĺ:"DRINK T:AN MAKE IT":" OUT!)":::Q 23::"HIT ANY KEY TO BEGIN ";::16368,0:A$[ :70w (222)5ĺDK$;"CLOSE" :5:"I'M SORRY, BUT YOU MUST ONLY ENTER THIS PROGRAM FROM THE MAIN HALL OF THE":" 'EAMON MASTER DISKETTE'.":::DK$;"CLOSE""JUST CHOCK-FULL OF EVIL MONSTERS AND":"WONDERFUL TREASURE. A SPECIAL TREAT FOR":"YOU IN THIS DUNGEON--THE OWNERS WILL":"KEEP THINGS AS THEY ARE IF YOU CHOOSE" x"TO RETURN TO THE MAIN HALL TO HEAL UP":"FOR A WHILE!"::"(ASSUMING, OF COURSE, YOU CU AGAIN!"$ FDK$;"RUN DOOM CASTLE" d::"WELCOME TO THE CASTLE OF DOOM!":::"THE CASTLE OF DOOM IS RUN BY TWO KINDLY":"OLD LADIES WHO WANT TO GIVE VALIANT":"ADVENTURES A LITTLE BIT OF EXCITEMENT.": n"YOU WILL BE TRAVELING IN A ROUND CASTLE":ADVENTURE":N2$:DK$;"CLOSE"- (N$N2$100 2:5::"WELCOME BACK TO THE CASTLE OF DOOM!":::"THE OWNERS HAVE KEPT IT JUST AS YOU":"LEFT IT, AND THE FRIENDS YOU MADE LAST":"TRIP ARE WAITING FOR YOU AT THE GATES." <:"HAVE FUN! HOPE TO SEE YO EAMON ADVENTURE #5<-> 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      ŠƠ͍     ΠĠΠŠһנĠӮΠΠԯԠҮΠΠԯԠҮΠΠԯԠҮΠԠλůנĠȮΠ̠ҠȠԠԮΠȯȠҮΠȯȠҮΠԭλůנĠȮΠΠԯԠҮΠ̠ҠȠԠԮΠŠŧӠήΠŠҠҮΠȯȠҮΠȯȠҮΠΠůנҠȠ͠ȮΠ٠ҠȠԠȮΠΠԯԠҮΠҭ٠ήΠԭλůנĠȮΠΠԯԠҮΠ̠ҠȠΠԠԮΠΠԯԠҮΠȯȠҮΠȯȠҮΠԭλίӠĠԮΠȯȠҮΠŠҠͮΠŠԠŠҮΠŠƮΠ̠ҠȠΠԠȮΠŠ̠ƠӮΠŠŠ̮ΠŠԠͮΠŠԠŠҮΠŠήΠŠٮΠŠ٠ͮΠŠҠͮԠŠԠĠƠҮΠŠΠ̮ΠŠĠͮΠ̠٠ͮԠŠȠĠƠҮΠŠŠƠȯȠҍԠŠȠĠƠҮԠŠԠĠƠҮΠŠ͠ƠŠ̮ԠŠԠĠƠҮΠŠŠƠΠԯԠҮԠĠƠҮΠŠԠŠƠŠŮΠŠŠϠŠŮΠȯȠҮԠŠȠĠƠҮΠŠȠŠƠŠŮΠŠԠŠƠŠŮΠŠȠŠƠŠŮ     βĠҍōαòóԶñԴԵԲԳٲԱÍٱΠҍ؍čӍٍҍōٍ̍ōٍ     ΍čҍҍŠōčҍō٠ō٠ҍ̍ōӍ׍ōō̍ōΠԍŠԍ ЍĠ΍̍čˍҍǍ           ՠŠԠŠȠĠƠҮՠԠŠȬȠՠ٠ϠȠŠӠϠŠԠҠԮՠŠΠŠŠƠȯȠҮŠӠҠΠŠԠ̮ՠŠԠŠȠĠƠҮŠӠҠϠŠȬӠϠŠԠĠԬĠƠŠŠŠӠȮՠŠԠŠԠĠƠҮԠӠĠĠԬȠՠΠϠȠŠҠϠŠȮՠŠΠŠŠƠΠԯԠҮŠŠӠΠȠƠŠҠȠĠȩՠŠԠŠԠĠƠҮŠӠҠϠŠԬӠ̠ӠҠϠŠȮՠŠԠŠ͠ƠҠ̮ԠӠ٠ŬĠӠĠƠΠ̠ҠӠΠΠϠŠ ЩՠŠԠŠȠĠƠҮŠӠҠΠŠȠ̬ĠҠϠŠԠϮՠŠΠȭȠҮӠҠΠŠԠ̮ՠŠΠ٠ԠĠӠŠĠŠϠŠŮŠӠҠԠԮԠӠˠ̬ԠŠӠҠϠŠԮŠҠՠŠΠӠȬȠՠԠŠϠԮՠŠΠŠԠŠƠŠŮŠӠϠˠŠҠΠŠŠƠŠŠҠŠ̠ĠԮȠĠȠ̠ˠՠĠŠŠƠŠŮՠŠΠŠȠŠƠŠŮՠԠϠȠҠȬŠՠŠΠŠĠ̮ԠĠԠĠՠĠŠŠήՠŠǠΠŠԠŠƠŮϠŠԠӠŠ̠ԠӠĠŠŭŮϠŠԠӠŠ̠ƠŠŬȠϠٮȠĠȠ̠ĠՠĠŠŠŮŠŮՠŠǠΠŠȠŠƠŮϠŠȠӠ̠ˠΠŠ̠ԠӠҠ٠ŮϠŠȠӠҠǠϠŠŬ٠Үՠ٠ϠϠԠҠԠϠŠŠŮ                                 :A1NZ:AD%(A,4):%!DK$;"CLOSE"$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%(W2):AD%(NA,6)WT%(W2),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"DK$;"OPEN LAST ADVENTURE":DK$;"READ LAST ADVENTURE":A$:A$MN$(0)āM1NM:A115:MD%(M,A):A,M$;"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"DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A)::A15:WA%(A)::AEDK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZDK$;"OPEN 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):A2A:DK WALKED INTO THE ROOM!"::3600FMD%(24,5)44ROOM44MD%(24,5)0&M1314:MD%(M,5)ROOMMD%(M,5)30MD%(M,5)0MD%(M,5)300:ROOM5(1).10MD%(13,5)30MD%(14,5)30MD%(13,5)ROOM:MD%(14,5)ROOM:3600100///INITIALIZE DATAOROOMĺ:"VAMPIRE COMES ALIVE!":3600AD%(59,4)0MD%(24,5)0(1).25MD%(24,5)44:ROOM44ĺ"A VAMPIRE JUST CAME OUT OF THE COFFIN!"::3600MD%(24,5)ROOMMD%(24,5)0R3ROOM:ROOMMD%(24,5):8500:ROOMR3:MD%(24,5)R2:R2ROOMĺ"A VAMPIRE JUSTOFMNM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490VM2xNBTL(FD%(1)TD%(1)):NBTLĂM///SPECIAL VAMPIRE STUFF%AD%(59,4)MD%(24,1)MD%(24,13)MD%(24,13)1:MD%(24,13)0MD%(24,5)AD%(59,4):AD%(59,4)0:MD%(24,5)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:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:490(M2)TD%(M2)(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)2490^MD%(M,14)3390ncM9ĺ:"YOU FEEL A MENTAL ATTACK, TRYING TO 000,5000,6000,6000,7000,8000,8000,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000,18000,18000,19000,20000,21000 ,///COMMANDS RETURN TO HERE 6NBTL500 @M1NM:MD%(M,5)ROOM490JM2MD%(M,14)(MD%(M,14)2):MRFD%)" "S$(S$,2):260 C1NC:C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210 C$(C)S$S$V$:V$C$(C) "C3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,4000,4000,5D%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE.": A:V%(ROOM)1P ROOM26E1ĺE1$l :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37):17:A$ CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1):S$(A$,A1) (S$,1RE.":^ 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) AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1:( A:AANA:A2):(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 EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1 M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HE@L EAMON ADVENTURE #5<-> DOOM CASTLE <-B] BY DONALD BROWNcv2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDn3 xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,                  \ DK$(4)ZDK$;"OPEN LAST ADVENTURE":DK$;"WRITE LAST ADVENTURE"::DK$;"CLOSE":D΍