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`ʍ͍ōōōō  D$(4):?"WELCOME TO THE HOUSE OF ILL REPUTE"J(:" "P27"WAKING UP THE WHORES PLEASE WAIT....":" ":""<D$;"RUN MAIN PGM"* :X121:X:25:A$. Z150:Z:X: MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121 ------------------Q( 7:"CHEYENNE * WY * USA * 82009":1 255b 2:"PRESS C FOR CATALOG OR RETURN TO QUIT";j C${ C$"C"1500 x(1155)3000 ::(4);"CATALOG": A$"APPLE ][ AND AAA" X112 1:X1:A$; X:" ";:Z125:Z:X JOY AND USE."6 6:"-- PLEASE, SEND 3A A COPY --":c "WE'LL RETURN YOUR DISK, RECOPIED WITH" R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC" "DOMAIN LIBRARY, WITH MANY THANKS.": 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET";"FAULTY";Q$;" PUBLIC"B "DOMAIN PROGRAMS ON THIS DISK AND YOU"W "FIXED THEM?": &"MAYBE YOU EVEN TOOK LOTS OF TIME TO" X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENpd3A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 ---------------------zn::xQ$(34)(1155)İ2000::,2:" AN INVITATION FOR APPLE PROGRAMMERS ": "PERHAPS YOU FOUND SOME ";Q$,R";200M:A$:DK$::A$::/2BY ANONYMOUS8>DnREVISED 330,1025,1050,1055,3650 1/85tz 2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMAND iMD%(20,14)1MD%(20,5)ROOMĺ"THE ATTENDANT SAYS 'G$CJLM20İ20000:MD%(M,14)1:19900HCTLM21İ20000:MD%(M,14)1:19900qC^LM22İ20000:D210:DFM:7640:19900ChLM23İ20000:D22:DF0:7640:300CL"THE ";MN$(M);" YELLS 'YOUR A FUCKEN QUEER":MN$(0)::300CM3600:300D NDK$;"READ EAMON.DESC12İ20000:19900/BLM13İ20000:DIE1:2000GBLM14İ20000:19900kBLM15İ20000:MD%(M,14)1:19900B"LM16İ20000:MD%(M,14)3:19900B,LM17İ20000:MD%(M,14)1:19900B6LM18İ20000:MD%(M,14)1:19900C@LM19İ20000:D210:DFM:7640:19900M4MD%(M,14)1İ20000:3004AnKM5İ20000:19900DAxKM619380OAK20000oAKR2(1)301:R2ROOM19340AKMD%(M,5)R2:19900AKM7İ20000:300AKM819420AK20000AK12020AKM919450AK20000AKMD%(M,14)1:19900BKM10M2000@JM219200 @J20000@@JR2(1)301:R2ROOM19160W@JMD%(M,5)R2:19900t@KM3MD%(M,14)319300@KMD%(M,9)0ĺ"NOT NOW. I'VE GOT A HEADACHE":300@K50@ K20000@#K255@(KMD%(M,9)0300@2KMD%(M,9)0:AD%(6,4)ROOM:300AdK MAGAZINE":::300A?F:"THERE IS NOTHING HERE TO READ"::300V?8J///FUCK COMMAND?BJM1NM:MD%(M,5)ROOMMN$(M)S$Ă::"SORRY ASSHOLE THERE AINT NOBODY BY THAT NAME HERE TO FUCK"::100?DJR2M:MNM::MR2?LJM119100?VJ20000@jJDIE1:THAT ISN'T A WEAPON!"::100>FF:"READIED."::300>PF///READ COMMAND>ZFROOM6ĺ::"REST ROOMS":::100?dFAD%(21,9)ĺ::"HUSTLERS$"BLAST"V$S$:S$"":110003=>S$"HEAL"12000I=>S$"POWER"13000_=>S$"SPEED"14000~=B:"OKAY, '";S$;"'"::300=hB///READY A WEAPON.=rB4900=|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100>BAD%(A,2)2ĺ:"OU!"::300!<:///SMILE COMMANDE<::M1NM:MD%(M,5)ROOM15100f<:MD%(M,14)15030,15040,15050<:MN$(M);" GROWLS AT YOU":15100<:MN$(M);" IGNORES YOU":15100<:MN$(M);" ";V$;"S BACK":15100<:M::300<>///SAY COMMAND<>4900=> z#?      ήӠ Π͠>ŠŠƠ̠ŠȠԠŰ̠Š ΠŠήӠ!ήàήӠήŠή͠Ӡ ٠̍ŠōҍРӍǠ΍٠ҍĠҍ­Š΍ӍҠōĠέӍĠҍĠӍ          (A1$)2)1):B0B1$ B:A1$: and"1 " prepare yourself in the Main Hall"b 4"before you can depart on this adventure!";h  REDESIGNED BY RON MALEIKA OF 3A 721 PIKE STREET CHEYENNE WY USA 82009 --------------------- B(20(*********************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*****************************************": 13:5000 ::: :18)::" STOP ": S l" You must run the Eamon Master% d::(A$"HOUSE OF ILL REPUTE"F,A1$"Author is Anonymous"R^D$(4)\600wD$;"VERIFY GAME.PTRS"D$;"RUN MAIN PGM"X216,0:14);"Donald Brown's": 6)::" THE WONDERFUL WORLD OF EAMON "::: @"********    6 d::D$(4)5,D$;"RUN EAMON ADVENTURE" ĠҍĠ٠ҍĠЍĠ̍ĠǍĠōĠōĠōЍŠōĠҍōҠҠčĠˍĠҍĠӍŠӠŠŠϠŠԮȠՠΠŠĠΠŠΠŠ̠ԠϠՠΠנӠϠŠԮנԠӠήՠŠΠŠĠ٠͠ȠӠĠĠ̠ӮŠ̠ƠĠ͠ӠΠŠҮŠҠƠŠ͠ӠΠԠҠҠĮՠŠΠԠӠϠŠԭ٠ҠĠӬȠŠĠΠŠĠΠŠҠƠŠͮŠȠ͠͠ӠҭǠĠ٠Š٠ΠǠŠҠŠŠŮԠӠǠ̮ŠӠΠ٠Ġ̠ǠΠŠȮȠӠҠȠΠԠԠՠΧԠĮϠŠȠӠŠԠˮϠŠȠՠҠנӮϠŠԠǠ̠ԠՠΠԠŠŠƮՠŠΠŠˠĠ͠Π٠ĠӮϠŠȠӠǠ̮ϠŠȠӠŠΠ̮               ĠٍĠӠ̍ĠԍĠōĠٍĠčĠ΍ĠĠҍҠĠҍĠˠ΍Ġ΍ĠˠōĠ΍Ġ΍ĠŠ̍ĠЍՠŠΠ͠ĠΠŠԠĠ̠ŠƠŮӠƠΠ٠ŠΠŠӬĠŠԠӠΠҠӮՠŠΠŠ͠ȠҠǠƠŠӠĠǠΠǠӮŠӠƠĠӠȠԮŠŠҠ٠ӬԠŠŠӠϠŠȠĠȮ٠ȬŠȠҠӠͧŠȠҠӠȠͧŠŠҠӠРΠϠŠԮՠŠΠŠ͠Ƞ͠ǠΠŠӬҠĠǮԠӠ̠͠ĠנԠȠΠŠԠ̮ՠŠΠȯȠҮԠΠŠԠ̠ӠŠ٠ĠҠǠŠάϠӬϠԬϠŧՠŠΠ͠ĠȠנҠנƠӠĠȠǠӮӠ٠٠ĠҠŠӠӧՠŠΠίӠҮΠŠԠ̠ӠŠҠĠԠĮՠŠΠίӠҮŠҠӠŬӠƠŠӠΠǠƠΠҮՠŠԠŠȠĠƠǠҠԠӠҠΠՠΠŮ٠ӠΠŠӮէŠԠŠԠӠŠӠҬԠԠӠ٠ԠƠŠŠԠŠҠŮՠŠΠŠ٠ǠРϠŠîԠӠҠĠҠӠԠӠЮՠŠΠ̠ˠ̠Ƞ٠̠ҠǠƠŠӮ͠ŠՠΠϠРϠŠàҠΠϠҮŠӠϠŠҠϠŠȮՠŠΠŠҮŠ٠ԠӠϠŠԮՠŠԠĠΠŠҮϠŠȠӠŠΠҮϠŠԠՠΠŠנǠנȠҮՠŠΠ̠͠ȠΠӠǠŠ̮ǠΠ͠ӠŠǠήӠՠҠŠӠϠՠΠǠŬɠŬĠƠɠŠŠҠΠҠǠǿϠŠԠՠŠŠίӠҮϠŠȠӠҠĠӠͧՠŠĠ٠¢ĠҠ٠ԠӠԠŠԠԠǠנӡՠŠà­ŠΠĠ٠ŠЮĠЮЮՠŠĠҠǠΠŠĮΠŠ̠ӠҠŢΠŠҠՠŠŠǧӠӢΠŠҠՠŠ٠Ġͬ٠ҠƠӠŠٮŠŠ٠ӠŠנӠŠƠĠέӮΠŠҠӠŠĠƠԭ٠ĠӮǠŠӠŠӠĠӠĠΠŠҠŠӠӠĠˠӠĠĠҠӮӠŠӠ٠ԠҠήԠՠԠӠӠŠ٠ԡ٠ԠŠԠӠΠĮ٠٠ԠӠϠŠȮՠŠΠ̠Ԡ̠ǠԠƠŠŮŠŠ٠ӠԠϠŠ̮ǠӠŠǠԠԠӠǠΠŬĠĠסՠŠΠȯȠŠǠΠҠϠŠҮՠΠŠԠҠƠԠĮՠŠΠȯȠŠӠάҠϠŠҮՠŠԠŠȠĠƠǠŮŠҠŠӠĠĠԬĠΠŠ͠ՠΠŠԠԠӠϠŠҠȠӮՠŠΠŠ̠ǠŠҮŠ٬ˠ̠ƠȠӠŠҮՠŠˠŠǠΠŠҠ٠ҠԮΠŠҠӠРԠӠӠȠԠӠΠŠϠٮz                    ˠŠԠΠӠǠŠŠƠŠΠӮǠҠ ӠĠҠԠ٠ԠԠԠϠӮΠŠҠӠΠĠԠРΠˮՠŠΠĠӠĮȠ٠ӠԠŠǠӠŞ̌ӠŧӠΠͮՠŠŠĠӠǠΠŠҠƠŠͮŠ٠ŠŠŠƠ͠ҠŠŠƠөՠŠĠĠҠȠŠӠƠĠ̠ǠԮՠŠԠĠ̮ՠŠŠΧӠĠ ΠŠҮՠŠ٠ԠҠˠΠŠҮՠŠŠΧӠŠǠΠŠҠŠŠĠԮՠŠĠҠؠǠήҢՠŠΠĠҠƠРӠΠŠҮΠŠҮҮՠŠǠҠĠנ٠ԮԠҠԠՠŠĠŠԠӠŠԠЮԠӠŠǠήՠŠŠĠˠΠȠҠӠˠ̠ΠӠӮՠŠҠĠҠԠΠΠŠƠҠŮՠŠŠĠĠ٠ƠŠ٠ŠˠŮՠŠĠΠĠȠĠĠԧӠԠӠӮŠ٠ƠԠĠΠǠŠҮŠ٠ƠĠĠΠǠΠŠҮՠŠ٠РƠРԠԠ̠ҠΠŠŠϠӮՠŠŠĠŠ̠ĠΠŠĠȠĠ̠͠ҠҠŠĠŠӮ٠Ġ٠ҠϠ̠ϠҠԠ̠ΠӠΠŠҮՠŠ٠РĠҮՠŠŠנĠ٠̮ՠŠŠ٠ƠŠĠТТՠŠŠϠҠ̠ĠŠĠΠŠҮՠŠŠĠǮǠӠөŠՠӠŠ٠ƠŠĠҠ٠ԠӠԠŠԠԠǠנӡȡŠӠȠԠĠŠ٠ԠǠˠӠϠĠԮɧ͠ԠԠĠƠԠՠŠՠԠ٠ŠˮҠӠҠРĠӠٮҠ٠Ϡ٠ΧԠծŠРӠɠΧԠԠՠϠ٠ԠŠէŠĠŠƠԠŠ̠ՠĠˮȡȡȡЮȮЮˮȮŠ̠Ӡՠ٠ĠӠŧ̠ҠŠҠҠήՠŠŠǠ٠ȠԠԠŠԠƠҠàҮŠ٠ӠΠ͠ĠӠٮȠ٠ġՠԠŠΠĬƠĠ®ՠ̡ՠĠϠϠԡՠԠĬӠĠŠŮՠŠ٠ĠĠŠϠŮ̡ՠ٠ӠՠŠӮ̠ĠΠŠĮԠŠӮՠŠĠΠ٠ĠΠŠҠנӮԠԠԠӠϠҠǮŠĠŠנӠĠŠ٠̠֧ӠˠĮՠŠŠĠԠ٠Ġՠ̠ͿŠӠ٠ǠӠ®ՠŠŠ٠ƠҠĠŠĢՠŠŠ٠ƠŠĠĠҢՠŠĠӠԠӠΠР̠ԠԮՠŠŠĠĠРƠȠΠŠĮ          ӠԠŠҠ٠ٮՠŠҠԠȠŠΠҠŮȠŠήԠԠӠȠ٠ȬŬĠͮӠԠƠǠԠΧԠŮԠӠԠԠϠϠӠŠӮՠĠԠ׮נŠԠէŠŮՠĠԮˮȮϮӠΧԠԠՠĠҡՠŠŠՠԠϠҠԠӠӠԠΠԠŠˠĠŠšŠԠΧԠŠ٠ϠԠԠƠǮՠԠŠǠԠנŠՠǠϠנĮԠՠĠ٠Ġ̠ŠҠǮɠ٠ŠˠԠՠŠŠŠŮŠӠҠǠĠ٠ӠĠǠԠӠŠԠǠӠԠϠŠĮΠ٠ΧԠ٠ԠɠˠՠԠŠĮŠӠҠĠӠ٠Ȯ̠ՠĠӠŠ͠٠ĠԠծԠӠԮĠҠҠӠՠĮŠĠŠΠ̠ԠƿԠΠӠӠ٠̮ȠĮŠՠϠˠՠҠŠˮԠՠĠϠŠҠҠŠΠĠȠǮȠϠ̠ŠӧŠӠӠŠӠŠȠբΠΧԠŠԠƠŠԠŠϠŠĮ٠٠ŠŠծӠӠԠӠĠӠǠϠˠ٠ҠĠԠӠĮŠԠŠ̠ӠΠҠٮՠ٠ԠϠנӠˮĮĮՠ٠ŠˮԠϠϠՠˠՠŠĠҠǿ٠Š٠ɠˠէŠŠŠٮԠΧԠŠԠŮǠΠŠӠӠΠȠǠԠٮӠӠŠӠΠŠԠӠŠӠՠϠŠǮՠŠ٠ˠΠǠӠΠϠҠӠԠŮҠҠӠΠŬĠŠӠǠĠϠˠΡǠΠ٠ӠӠҠĠˠ̮ӠՠҠŠ͠ŠӠǠĠ͠ƠҠӮŠӠҠӠĠӠŠĠŠՠϠŠҠŮǠΠŠΠӠΠǠĠӮŠӠǠŠŠĠӠϠŠՠήǠŠРӠԠĠΠǠӮŠӠǠŠҠΠϠ̠ΠΠϠӠǠ͠Π٠ĠŠ٠ΠŠҠӠΠή͠ҠŮĠΠҠӠΠĬĭǠЮŠӠӠȠĠΠŠ٠ӠΠȠŠԠԠŮǠϠՠ͠ԠƠŠӠӠŠ̠ȠΠӮŠӠԠĠĮŠӧ١١ӠԠҠˠӠϠˠΠԮǠҠ ӠΠΠ٠ԮՠˠŠӠǠҬԠՠΠŠŧӠԠ٠̮ŠӠРĠӠӠӠŠ٠ɠŠͬŠϠҠϠԠԠΠ٠ȧ٠ȧǠΠŠҠӠ̠ΠӠנϠӠǠԠŠ٠ӠΠŠӮŠӠĬӠƠŠӠԠŠ٠ŠŬĠŠӠӠҠȠӠϠŠƮǠΠŠӠӠԬ٠ŠήԠԠՠˠŠӠƠŠӬԠ͠Š٠ŠӠĠӠҠȠŠ٠ӠϠР͠Ǡ٠ҮՠŠ̠ˠΠǠŠԠĠˠҠԠȠŠҠˠΠԮΠŠĠӠ̠ŮŠǠҠӠРĠΠӠŠӠƠȠ̠ĠҮǠΠŠ͠ӠŠǠӠՠҠŠӠϠՠΠŬɠŬҡĠƠɠŠҠΠҠǠǿǠΠŠĠӠΠ٠ԠŮŠӠȠŠӠՠҠŠ͠ĠŠӠҠӮՠΠŠŠԠƠĠӠǠРĠΠҠ٠Ӯ΍΍Š̍ЍҠҍ٠ҍЍ̍Ǎ̠ōĠō     ΠĠΠˠҠӠǠŠՠǠٮŠӠ٠ǠȠΠŠŠˠҠӠҠ٠ӠϠŠԠԮՠŠǠ٠ԠӠ٠ٮ٠٠ĠȠǠӠĠӠՠ٠ĠӠҠĠРĠΠҠӮǠĠŠˠӠ٠ΠΠǠΠĠ٠ҠӠĠӠԠĠŠ٧ӠŠŠŠ٠ҠŧΠĠĠ٠ŠȠӠǠԮӮ̮ӧǠĠΠŠŠƠ͠ӠŠנȠ٠Ӯ̠Ġ͠ŠŠĠӠƠӠƠӮΠӠԠŠӠĭĠҮȠŠӠǠ٠ԠҠĢĭǠΠŠԠӠΠȠŠŠĠĠҮӠנӠĠȠĠĠӠƠ٬ĠŠӠǠˠΠҠŠӮŠǠӠĠҧԠčȠ͍Ƞٍ͍٠čίӠҍĠ̍ӯŠčٍȠĠƠҍίӠҍίӠҍŠΧӠ͍ίנčŠĠҍ̍ŠĠԠ͍ŠĠŧӠ͍ίӠҍĠΠŠҍԠˠ͍͍Ԡ΍Ԡ΍ŠƠ̠ōٍӠ̍ԍō٠ٍč΍Ġҍҍˠ΍΍ˠō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 :" YOUR COMMAND?";A$ A$"HELP"6500 A$"QUIT"A$"END"ĺDK$;"RUN BYE,D1" (A$ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1h 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)P IMME MY MONEY'" 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 IN ":" ";A$:- V%(ROOM)ĺDK$;"READ<HOUSE OF ILL REPUTE 2BY ANONYMOUS8>DnREVISED 330,1025,1050,1055,3650 1/85tz 2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMAND iMD%(20,14)1MD%(20,5)ROOMĺ"THE ATTENDANT SAYS 'G           !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""         ̠̍ĠԍȠҍҠōίӠōίӠōĠ̍ES.":?8 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$:J 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" 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;" GOLD PIEC (1-";W21;") "H (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)RT 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 SELL :"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:^DK$;"CLOSE":SPDMD%(0,2)MD%(0,2)2lDIE2500W14: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 STA(96):ROOM13600l100(v 38 NORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,TAKE,DROP,PUT,LOOK,EXAMINE,ATTACK,A,FLEE,RETREAT,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY,READ,FUCK,QUIT,HELP///DONE WITH GAME4,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)3jNC:C$(NC):C1NC:C$(C): tS14:S2%(S)SA%(S)::V%AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):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:EA55VA2MD%(0,8)MD%(0,WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE"HDK$;"DELETE FRESH MEAT"$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64"N.W214:WN$(W2)"NONE"NANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1: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)::AE,SEX$,GOLD,BANK,AC+NWNW4:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A)(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):A2AD%(A,2)1AD%(A,2)4NWNW10A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490;M2]NBTL(FD%(1)TD%(1)):NBTLĂMcl100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZ|DK$;"OPEN EAMON.ARTIFACTS,L128":AN$)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490>YMD%(M,14)2490S^MD%(M,14)3390}hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:490OFM3M21NM:MD%(00",///COMMANDS RETURN TO HERE16NBTL500Q@M1NM:MD%(M,5)ROOM490JM2MD%(M,14)(MD%(M,14)2):XTD%(M2)(41(1)20):XX(X0):MRFD%(M2)X)TMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M2)TD%(M2$(C);10(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,5000,5000,6000,6000,7000,7000,8000,8000,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000,190,1)" "A$(A$,2):2208 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 THESE COMMANDS-- ";:C1NC:CMD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::S+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" BROKEN WEAPON HURTS USER!" ,~FRDF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10))RL96HIT1R*VHIT7600j*`RL97ĺ"A MISS.":*e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::C+jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)IES TO PICK UP WEAPON))MD%(OF,10)0ıT)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)17400D*QMN$(OF);" ATTACKS ";MN$()2(EAAE3007((100(1)1)MD%(0,10)7360M(A2:EAAE1A1o(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:3600:300)///MONSTER TR;:A$"@"ĺ" ":300'65204'X///ATTACK COMMAND>'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%(MD%(0,9),6):WA%(W2)WA%(W2$:DK$::A$::LK1"&A:LK3006&V%(ROOM)0:300m&d"ENTER '@' SIGN (SHIFT P) TO LEAVE TALK SESSION"&n"*** ATTENTION SYSOP ***";:I120:(7);:I:" ":"IF SYSOP DOSN'T ANSWER THEN HE IS NOT HERE...":" "&xA$:A$(13)ĺ"":6520'}A$ROPPED.":AD%(A,4)ROOM(%A:WT0:5060=%p///LOOK COMMAND%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:AROOM: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)1ĺAN$(A);" DIE1:2000A#$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.h#)S$""ĺ:C$(C);" WHAT";:S$:4900n#.#///DROP COMMAND#S$"ALL"5100#A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100$WTWTAD%(A,3):AD%(A,4)02"TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)?"^::300{"h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP"rA1ı"w"AS YOU PICK UP THE OLD SHEETS" #|"ARRRGH!!!! THE SMELL HAS OVER POWERED":"YOUR MIND REELS AND YOU ARE DEAD!":D0I!"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":419(1))MD%(M,14)2:FR(100(1))MD%(M,14)3l VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1) <M:NBTL(TD%(1)0): ///GET COMMAND 4900 S$"ALL"4160!A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::10D%(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,5)ROOM39008MD%(M,14)3670BFRMD%(M,3):FRFR100FRFR((CH10)2)- LMD%(M,14)1:FR(100R2::DK$ R203500. ///SPECIAL MOVESu R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000 R23490 :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 R3ROOM:ROOMR2:3600100///CHECK REACTIONS ON MONSTERS1T"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"OT DK$;"RUN MAIN HALL,S6,D1"d ///MOVE COMMAND NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 D16:(V$,1)("NSEWUD",D,1)Ă  DK$;"READ EAMON.ROOMS,R";ROOM:D21D::2900{ DK$;"OPEN CHARACTERS,L200,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):0 DK$;"OPEN THE ADVENTURER":DK$;RUSTY FORNICATED SHEETS DISAPPEAR":C;3AD%(1,4)0:AD%(2,4)4:300W;6///SPEED SPELLp;6S3:11500:SUC300;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 Y" COLLAPSES AND YOU DIE.":DIE1:2000: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$;3:"BOOM BOOM BOOM FLASH ZOOM!!!"::"THE COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,3)c92M:RAISER3ROOM:3600:30092A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)092A:RAISEĺ:300&:3RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":(1)1):MD%(0,13)0MD%(0,13)048/DF0:7650:300z82///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS82S4:11500:SUC30082ROOM4AD%(1,4)413200B92RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" C:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:7.///HEAL SPELL7.S2:11500:SUC3007.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.": 8.MD%(0,13)MD%(0,13)(10RECT HIT!"::S6:D1:DFM:A0:7635::300~6,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL100116006,SUCĺ:"NOTHING HAPPENED.":6-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)26 -S2%(S)S2%(S)26-z7P- WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00q5$':"GOLD - ";GOLD:3005*///BLAST SPELL5+49005,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::1005,S1:11500:SUC300*6,:"DIDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::3004&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):91204'///INVENTORY COMMANDV5':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READYM,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)=3#R3ROOM:36003#MD%(20,14)2MD%(20,5)ROOMĺ"THE ATTENDANT IS SATISFIED AND WILL LET YOU PASS NOW":MD%(20,14)23#MD%(20,14)2MD%(20,5)ROOMĺ"THE ATTENDANT WANTS MORE MONEY"3#5050B4%(S$)GOLAD%(A,4)19095?2x#:A22A23::"WHAT TO GIVE? ";S$:9065m2#:"YOU AREN'T CARRYING A ";S$;"!"::1002#AMD%(0,9)MD%(0,9)12#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)+3#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%((M)))MN$(M)MD%(M,5)ROOM9050O1F#:A21A22::"WHO TO GIVE TO? ";S$:9020y1P#:"NOBODY HERE BY THAT NAME!"::1001Z#S$(S$,(MN$(M))1)1d#(S$,1)" "S$(S$,2):90601i#(S$)095001n#A1NA:(AN$(A))090802s#(S$,(AN$(A)))AN$(A)E1:20000:&0@///FLEE COMMAND[0JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100k0*!8500:350004!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$0>!R2DR%(6(1)1):R2185100H!0(#///GIVE COMMAND02#A211<#M1NM:(S$,(MN$OCKING LOUDLY.":/MN$(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)1:MD%(DF,4)MD%(DF,4)2 0DF0DI0#.AMD%(DF,14):FD%(A)FD%(A)D2i.:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675." IS STILL IN GOOD":" SHAPE.":." IS HURTING.":." IS IN PAIN.":." IS VERY BADLY INJURED.":/" IS AT DEATH'S DOOR,":" KN(1)1):R251A0:76350-R286S1.5S:7635G-R296D2D:7635_-R2100D3D:7635i-7700-D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::.MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)77010075607,DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635g,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!":7635-"A CRITICAL HIT!":R2(100