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[:A$:DK$::A$::LK1%$A:LK300$A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1$A:LK300$V%(ROOM)0:300$X///ATTACK COMMAND$b4900%pM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::UND."::5100>#MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1G#300#A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":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";A10000O"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 ALL FALL TO THE GROA)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)4!^::300p!h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UPv!r!$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.!)S$""ĺ:C$(C);" WHAT";:S$:4900!.!///DROP COMMAND"S$"ALL"51: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$(M,14)2:FR(100(1))MD%(M,14)3aVAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)z<M:NBTL(TD%(1)0):///GET COMMAND4900S$"ALL"4160A1NA: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)ROOM39008MD%(M,14)3670BFRMD%(M,3):FRFR100FRFR((CH10)2)"LMD%(M,14)1:FR(100(1))MD%( R203500# ///SPECIAL MOVESj R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000x R23490 :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 R3ROOM:ROOMR2:3600100///CHECK REACTIONS ON MONSTERS&TD%(1)0:TD%ADVENTURER":MN$(0):REC:DK$;"CLOSE"DT DK$;"RUN MAIN HALL,S6,D1"Y ///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:R2::DK$ 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 ADVENTURER":DK$;"WRITE THE DGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$:< 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":2900p 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 PIECES.":18 GOL": (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){ W::5:"AS E 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 (1-";W21;") b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵OU FORGET IT COMPLETELY."::SA%(S)0:>4.///HEAL SPELLW4.S2:11500:SUC3004.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":4.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)04/DF0:7650:300+52///POWER SPELL--RE-WRUC(((RLS2%(S))(RL5))(RL95)):RL10011600R3,SUCĺ:"NOTHING HAPPENED.":3-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)23 -S2%(S)S2%(S)23-+4P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND Y CONTINUE)";:A$::A00"2$':30062*///BLAST SPELL@2+49002,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::1002,S1:11500:SUC3002,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300/3,SUC0:SA%(S)RL(100(1)1):S300L1&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):9120f1'///INVENTORY COMMAND2':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)0#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)0#R3ROOM:3600:50501%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::/Z#S$(S$,(MN$(M))1)9/d#(S$,1)" "S$(S$,2):9060K/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)1A0#:EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$I.>!R2DR%(6(1)1):R218510O.H!d.(#///GIVE COMMANDm.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!"::100(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-DF0DIE1:2000-:-@///FLEE COMMAND-JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100-*!8500:3500).4!DK$;"READ N GOOD":" SHAPE.":+," IS HURTING.":A," IS IN PAIN.":b," IS VERY BADLY INJURED.":," IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":x-MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:A2DFNZNM:AD%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)7700+AMD%(DF,14):FD%(A)FD%(A)D2+:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675," IS STILL I1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INCc*DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":7635*"A CRITICAL HIT!":R2(100(1)1):R251A0:7635*R286S1.5S:7635*R296D2D:7635*R2100D3D:7635*7700M+D20:D31D:)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!")~FR1007560)DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635)DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635+*INC((100(1):FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::(jFR76ĺ" WEAPON DROPPED!":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::(oFR957550Z)t" WEAPON BROKEN!":AD%(MD%(OF,9),4(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:g'LHIT0:MD%(OF,9)17400'QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10))RL96HIT1'VHIT7600'`RL97ĺ"A MISS.":D(e"A FUMBLE!",14)1DF0300X&MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0r&M:R3ROOM:3600:300&///MONSTER TRIES TO PICK UP WEAPON&MD%(OF,10)0ı&A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:J'MN$(OF);" PICKS UP ";AN$(A)::AD%100;%zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100Z%OF0:DFM:7500:HIT7360%INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2%EAAE300%(100(1)1)MD%(0,10)7360%A2:EAAE1A1%AEAEA:MD%(0,10)MD%(0,10)A&MD%(DF4)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)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3) ^::300!h///INSERT HERE SPECIAL EFFECA)MD%(M,1)$<M:NBTL(TD%(1)0):8///GET COMMANDB4900US$"ALL"4160A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::1003 ,:"GOT IT.":AD%(A,)1200(1)MD%(M,4))MD%(M,5)ROOM:3670C.MD%(M,5)ROOM3900W8MD%(M,14)3670BFRMD%(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%(":" SUNSET.":2000" R23490R :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100l R3ROOM:ROOMR2:3600u100///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,14ANDK NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100r D16:(V$,1)("NSEWUD",D,1)Ă DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$ R203500 ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE(0,2):CH:A14:SA%(A):z 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:DK$;"CLOSE"T DK$;"RUN MAIN HALL,S6,D1" ///MOVE COMMMASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0P A$:A$"C"2520X 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%XAMINES YOUR GOODS AND":"PAYS YOU ";I TP0:A1NA:AD%(A,4)12350r 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$: 2500: :5:"(INSERT EAMON 5)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)% W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EEAPONS":"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)20801*AD%(WP%(W5),4)1:WN$(WIT!"::100<:BAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100:///SAY COMMAND9>4900>9>S$"BLAST"V$S$:S$"":11000S9>S$"HEAL"12000i9>S$"POWER"130009>S$"SPEED"140009B:"OKAY, '";S$;"'"::3009hB///READY A WEAPON.9rB4900 :|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING AGILITY FLOWING":" THROUGH YOU!"::300A8:///SMILE COMMANDe8::M1NM:MD%(M,5)ROOM151008:MD%(M,14)15030,15040,150508:MN$(M);" GROWLS AT YOU":151008:MN$(M);" IGNORES YOU":151008:MN$(M);" ";V$;"S BACK":151008:M::3009UGH THE TUNNELS."::300X7"3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300c7,314020w76///SPEED SPELL76S3:11500:SUC30076SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)+86SPDSPD(25(1)10)::"YOU CAN FEEL THE NEWNA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0O62A:RAISEĺ:30063RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:200073RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROITE THIS SECTION FOR YOUR OWN SPECIAL PLOTSD52S4:11500:SUC30052RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,3)52M:RAISER3ROOM:3600:300:62A1%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)\0#R3ROOM:3600:50500%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::3000&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):91201'///IA:(S$,(AN$(A)))AN$(A)AD%(A,4)19095X/x#:A22A23::"WHAT TO GIVE? ";S$:9065/#:"YOU AREN'T CARRYING A ";S$;"!"::100/#AMD%(0,9)MD%(0,9)1/#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)D0#MD%(M,10)0MD//GIVE COMMAND.2#A21N.<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM9050~.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#A1NMD%(DF,9)1:MD%(DF,4)MD%(DF,4)28-DF0DIE1:2000@-:U-@///FLEE COMMAND-JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100-*!8500:3500-4!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$->!R2DR%(6(1)1):R218510-H!.(#/ INJURED.":@," IS AT DEATH'S DOOR,":" KNOCKING 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):DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)7700R+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.": ," IS VERY BADLYA HIT!":7635F*"A CRITICAL HIT!":R2(100(1)1):R251A0:7635_*R286S1.5S:7635v*R296D2D:7635*R2100D3D:7635*7700*D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::0+MD%(ĺ:')y" BROKEN WEAPON HURTS USER!"8)~FR1007560f)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ĺ"APON DROPPED!":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::(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).5MD%(OF,9)17400s'QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10))RL96HIT1'VHIT7600'`RL97ĺ"A MISS.":'e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::r(jFR76ĺ" WE0&M:R3ROOM:3600:300D&///MONSTER TRIES TO PICK UP WEAPONX&MD%(OF,10)0ı&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:73602%INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2C%EAAE300f%(100(1)1)MD%(0,10)7360|%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)EAMON.DESC,R";A300:A$:DK$::A$::LK18$A:LK300L$V%(ROOM)0:300c$X///ATTACK COMMANDm$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:HITD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM>#A:WT0:5060S#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 WTAD%(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 ALL FALL TO THE GROUND."::5100"MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1"300,#A1NA:ATS OF PICKING SOMETHING UP !rW!$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.~!)S$""ĺ:C$(C);" WHAT";:S$:4900!.!///DROP COMMAND!S$"ALL"5100!A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::1000"WTԠ堠嬠堠ήŬ堠砠ᠠ堠砠뮠ᠠ󠠠堠ᠠ䠠砠宍Ġ婠젠頠ŠƠŠΠΠō堠堠⠠栠堠󠠠򮠠ᠠ堠堠Ӡ嬠堠Šҍ栠ᠠ堠栠堠򬠠堠Ӎ宠堠嬠΍̠讍蠠堠Ӎᠠ堠䠠堠堠栠嬠נӠ婮堠ȠԮ堠ᠠ䠠䮠AAE)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)q:FF:"READIED."::300"READIED."::300>S$"POWER"13000)9>S$"SPEED"14000H9B:"OKAY, '";S$;"'"::300`9hB///READY A WEAPON.j9rB49009|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::1009BAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100X:///SAY COMMAND8>49008>S$"BLAST"V$S$:S$"":110008>S$"HEAL"12000900 7,314020!76///SPEED SPELL:76S3:11500:SUC300w76SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)76SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::3007:///SMILE COMMAND8::M1NM:MD%(M(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:200063RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::3007"3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:3NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,3)52M:RAISER3ROOM:3600:30052A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)052A:RAISEĺ:300d63RR0=4.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":{4.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)04/DF0:7650:30042///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS42S4:11500:SUC30052RAISE0:M1-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2P3 -S2%(S)S2%(S)2V3-3P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:3.///HEAL SPELL4.S2:11500:SUC30M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100P2,S1:11500:SUC3002,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3002,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL100116002,SUCĺ:"NOTHING HAPPENED.":<3NVENTORY COMMAND1':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A001$':3001*///BLAST SPELL1+490072,M1NM:S$MN$(󠠠堠堠󠠴󮠠򍳹󮠠堨婢嬠ԠōŠŢ䠠笠堠栠ᮠ嬠蠠砠󮠨΢砠Π堠宠򍠠䠠堠򮍠򍲵󠨢󮠠򬠠䠠򍠠宠䍠栠堠占䠠󍠠򠴰ĠĠө堠򍠠򍠠宍̭ɭ占堠󬠠砠썠􍠠򮍠̭­堠堠򍠠̭ŭ堠堠򍠠̭ĭ䠠占砠򮠠笠捠à占宍έᠠ砠堠嬠󮠠栠쬠堠砠뮠䬠堠砠󭭍í󬠠荠䠠堠󮠠堠젠堠堠蠠젠宠䠱栠栠󠠨蠠堠򍱰䠠栠䮍젠堠젠젠ᠠ򠠨ͬԬԬҩ宠堠蠠堠穮䠠砠堠嬠堠󠠨䠠婬䠠䠠嬠č栠ΠԮ堠󮍠栠쬠젠䠠堠䠠宠󮍠堠堠堠䬠堠Ġ嬍젠孭堠砠렠렠堠宠Į堠栠栠䮍Ԣ堠堠堠栠宠堠堠蠠젠󩬠򠠨ᠠ󠠰讠󠭱堠砠䠠堠򠠨󠠨堠堠栠砠ᠠ栱堨ᠠ󬠠堠婬堠젠쮠젠䠠嬠蠠򩬠⬍򬠠䩬栠姍嬠宍砨婠堠쬠䠳卲򠳩젠堠嬠堠堠蠠堠ᬠ報ᬠ箠󠠲䠳蠲򬠠栠ᠠ䠠䠠ﬠ䠠󠭱堠堰젠ᠠ堨嬠ĠӢᠠ堠렠栠堠䬍󩬠䠠󬠠젠򮍠쭭ᠠ嬠堠젠򮠠젠堠䭭栠捰堠堠砠쭭󠠠堠堠䬠蠠젠󮍠栠堠堠歍ͮ栠ᠠ砠砠堠䠠堠󠠱堠堠쮠쬍젠󠠴󬠴ƠӤԢΠӤŠԢ䠠Ԡ堠ᠠ 堠󠠷堠堠䠠󠷷򬠠堠󠳰󠠴󠴲堠堠젠󠠠砠堠砠堠 䠠堠栠䠠宠󠠲堠󮍠󠠳堠󮠠栠堠򬠠Ҳ䠠﩮栠젠堠󠱱󠠲堠堠󮠠䬠堠Š묠箠栠䠠ᠠ䬠報堠堠䩬堠堠堠讠堠䠠󍵰󠱰ŠΠͮ嬠ɍ󠠱ᮠ栠堠󬠠㮬堠宠򬠠򬠠堠ᠠ蠠栠󡍠ǠŠŠΠ͍堠ᠠ宠䠠堠Š΍젠蠠堠堠䠠砠䠠堠蠠堨򠠠堠󠠠ᠠ䠠ΠԠĩ堠󠠠堠ήӠήӠ㮩栠堠笠򡠠栠󠠹栠ΠԠ堠堠栠̠젠栢󢠠堠ﬠ堠堠栠ᠠ󮍠󮠠堠宍젠򮍠렠堠婠堠䠠䠠堠堠򠠠󮠠堠䬠栠젠箍䠠堠렠堠栠堠蠠󠠨䠠䠠堠젠砠䠠宠ﬠɍᠠ󭭍΍ԠԠҠǍԥΠōڠҠƠӠҠԍ堠堠䠠堠堠ӠƠҠΠΠ͍ҧӠΠٍĥҠάŠƠōΤŠƠҧӠ΍ϥΠٍХΠҠΠũӥӯŠƠŠҠٍٍ̠̠̠ؤӠͧҠƧҠҍĠҠƠӠĠ̠Ϡύà̠ǠƠ̠čĥŠΠΠŠҠōР̠ŠƠō֤ Ơč֥ŠҍŠ̠ǠƠҠčàҠĠΠҠō̠͠Ҡ͠͠Ҡ٠΍Ҡ͠ҠҠҍӤԠƠĠ΍ӲԠ̤ŠƠҍҠҠōҠƠӍ̠̠ǠƠΠōàҠƠӍ͠ҠƠӍנ̠ԠƠӠΠōڠҠӠԠҠ΍ƠҠƠ򬍠󠠨ĬǬĬҮͬԬƠӬҬΠӠϠԬנŬנӬӠάλԠԬ٬̬ũŠΠԍҠҠ̯ĠǍĠĠҠӠΠ΍Ԡ̠ǠƠԠΠԍà̠ǠƠ٠čˠ̠ǠƠħٍĥҠӠύȠҠڤԠĠ΍ƠҍŠ̠ǬҠčˤӠ̭ĠҠˠӍҥ͠ĠΠȠ΍ԠƠҠΠӭϭԍĥ̠ŠƠ󠨱嬲嬳嬍嬸󬹽ŠҠōΤŠƠӍˠĠҠӠΠˍàӠҠƠĠ΍äӠ͠䠠䬠ᠠ孭àҠӠƠҍĥԠ捠占%JVVZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$ĺ"":I2$I$:22090l%TVI2$(ROOM)%^VVZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ"":I2$I$:22110%hVTYPE222900%mVI2$(WC)F&rVVZ5:"ENT$,V"HIT KEY FOR TYPE OF ARTIFACT":" (0=TREASURE W/SET PRICE, 1=TREASURE, 2=STANDARD WEAPON, 3=ODD WEAPON)":VZ2:33$1VA$:A$"0"A$"3"22065$6VTYPE(A$):1:("SETTREASTREASUREWEAPON ODD WEAP",TYPE81,8);" ARTIFACT";:958:$@VI2$(WT)\CT NAME:":" ";::I$::AN$I$:6:I2$AD$:"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:#VVZ(37):I2$(VL)#"VVZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ"":I$I2$:22050zAMON.DESC,R";N100:AD$:DK$;"READ EAMON.ARTIFACTS,R";N:AN$,VL,TYPE,WT,ROOM:TYPE1ĄWC,W2,DICE,SIDESo"UDK$"U:"EDITING ARTIFACT ";N:I2$AN$::"ENTER ARTIFACT NAME:""V" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:22020#V3:958:"ARTIFA(DR)(DR)I$I2$I$:210603!NRDR%(D)(I$):D!XRDK$;"WRITE EAMON.ROOM NAMES,R";N2:R1$:DK$;"WRITE EAMON.DESC,R";N2:(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N2:D16:DR%(D)::DK$!bR100!U///EDIT AN ARTIFACTf"U20030:NN2:DK$;"READ E:(I$)39Ģ3:20:"TOO LONG!":I2$I$:21040 :RR1$I$:6:"EDITING DESCRIPTION--":I2$R2$:1500:R2$I$:13:"EDITING ROOM DIRECTIONS (0 FOR NO DIR, NEGATIVE FOR STRANGE)":D16:I2$(DR%(D))!DR14D:"MOVE ";("NSEWUD",D,1);"-- ";:1500:DR(I$):DRN2(N2)ġ:100HN+R///EDIT A ROOM6R20030RDK$;"READ EAMON.ROOM NAMES,R";N2:R1$:DK$;"READ EAMON.DESC,R";N2:R2$:DK$;"READ EAMON.ROOMS,R";N2:D16:DR%(D)::DK$&R:"EDITING ROOM ";N2::"EDITING ROOM NAME--":I2$R1$- 0R" ";:1500";N%(4):MN$:M112:M%(M)::DK$+7100G N///EDIT OLD ITEM BLOCK*NC$"EDIT":1000:TYPEA:TYPE21000,22000,23000,240004N///GET NUMBER TO EDIT>N"ENTER NUMBER OF ";T$(TYPE);" TO EDIT":" (1-";N%(TYPE);:") ";A$:N2(A$):N21N2N%(TYPE)"":1500:MD$I$::"MONSTER # ";N%(4)1;" ";::MN$:::M1126"ENTER ";M$(M);": ";:I2$"":1500:M%(M)(I$):(M%(M))I$ĺ"":(37):140506"6N%(4)N%(4)1:DK$;"WRITE EAMON.DESC,R";300N%(4):(34);MD$;(34):DK$;"WRITE EAMON.MONSTERS,RER EFFECT #";N%(3)1:I2$"":1500::N%(3)N%(3)1:DK$;"WRITE EAMON.DESC,R";200N%(3):(34);I$;(34):DK$:1006///ADD A MONSTER6:"ENTERING MONSTER # ";N%(4)1::I2$"":"ENTER NAME:";:1500:I$""(I$)3014010A6MN$I$::"ENTER DESC--":I2$ES)(SIDES)I$ĺ"":I2$I$:12200d2N%(2)N%(2)1:DK$;"WRITE EAMON.DESC,R";N%(2)100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N%(2):AN$:VL:TYPE:WT:ROOMn2TYPE1ĺWC:W2:DICE:SIDESx2DK$::10022///ADD AN EFFECTo2:"ENTSWORD",(W21)51,5);" WEAPON":I2$""/VZ7:"ENTER NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)I$ĺ"":I2$I$:12180/I2$"""/VZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SID"ENTER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)(WC)I$ĺ"":12130Xl/I2$""v/VZ6:958:"HIT KEY FOR WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";/A$:W2(A$):W21W2512160%/VZ6:1:958:("AXE BOW CLUB SPEAR0/I2$""g:/VZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$ĺ"":I2$I$:12090rD/I2$""N/VZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ"":I2$I$:12110X/TYPE212900]/I2$""Mb/VZ5:I2$:12050/"HIT KEY FOR TYPE OF ARTIFACT":" (0=TREASURE W/SET PRICE, 1=TREASURE, 2=STANDARD WEAPON, 3=ODD WEAPON)":VZ2:33!/A$:A$"0"A$"3"12065&/TYPE(A$):1:("SETTREASTREASUREWEAPON ODD WEAP",TYPE81,8);" ARTIFACT";:958: 䠠󮍠Šč䮠ᠹ󮍠ٍ䠠㠠栠쬠젠󬠠蠠堠讍堠栠䬠堠󮠠󮠠嬍㠠򍱳󩮠堠栠堠欠쩬㠠塍堠䠠č󩠠栠堨䠠Ԡ쩠򠱰栠宍㠠堠譭栠젠󮠠堠栠堠堠宠󬠠堠㠠쮠㠠砠堠嬠堠䩮Ӭ٬󠠠䠠堠Ӎ򬠠蠠䍧堠󠧳ĸ孍姠ﮍҠӍ㠠砠짍򮠠堠젠堠⡩Π堠䠠󮠠嬠젠䠠姭p+^DK$;"WRITE EAMON.DESC,R";300N:(34);MD$;(34):DK$;"WRITE EAMON.MONSTERS,R";N:MN$:M112:M%(M)::DK$y+^100+/u+0u///QUIT+:uDK$;"WRITE EAMON.DESC,R0":T14:N%(T):+DuDK$;"CLOSE"+NuDONSTER # ";N::I2$MN$:"ENTER NAME:";:1500:I$""(I$)3024010*]MN$I$::"ENTER DESC--":I2$MD$:1500:MD$I$::"MONSTER # ";N;" ";::MN$:::M112*]"ENTER ";M$(M);": ";:I2$(M%(M)):1500:M%(M)(I$):(M%(M))I$ĺ"":(37):14050+]%(3):I2$:DK$::"EDITING EFFECT #";N2:1500:DK$;"WRITE EAMON.DESC,R";200N2:(34);I$;(34):DK$:100)]///EDIT A MONSTER)]20030:NN2:DK$;"READ EAMON.DESC,R";N300:MD$:DK$;"READ EAMON.MONSTERS,R";N:MN$:M112:M%(M)::DK$B*]:"ENTERING MES)I$ĺ"":I2$I$:22200(tYDK$;"WRITE EAMON.DESC,R";N100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N:AN$:VL:TYPE:WT:ROOM(~YTYPE1ĺWC:W2:DICE:SIDES(YDK$::100(Y///EDIT AN EFFECT(Y:20030h)ZDK$;"READ EAMON.DESC,R";200N5);" WEAPON":I2$(DICE)'VVZ7:"ENTER NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)I$ĺ"":I2$I$:22180'VI2$(SIDES)(VVZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SIDES)(SIDER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)(WC)I$ĺ"":22130&VVZ6:958:"HIT KEY FOR WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";&VA$:W2(A$):W21W2522160'VVZ6:1:958:("AXE BOW CLUB SPEARSWORD",(W21)51,堠󺠠젠䠠㠠砠򿠠쬠嬠䠠栲䠨栠堠砠򬠠堠ᠠ栠󠴰򠴰砠堠栠砠堠笠箠䠧蠠󮠠󺠠󬠠󬠲󬠱䠰󮠨堠堠䠠堠笠젠䠠󠠨󩬠󩬠󠠨󩬠宍󮠠󭭍䠠堠䬠䠠䮍嬠󮠠蠠ԍ蠠䠠䬍󬠠䍭欠堠䬠栲ᠷᠠ砠捰젠쬠㬠堠ᮍᠵ笠蠠栠젠宠ᠠ栵ᠴ󠨵ᬠ堠堠堠졠ź蠠䭭栠堠堠䠠衠ᠠ堠젠堠󠠠栠砠嬠堠嬠쩮ᠠ堠嬠򮠠㠠堠ᠠ䍧ȧ젠󬠠蠠򬠠䠠ǧ젠砠砠ᠠ堠󮍠z"#?    Ӡ̮Ԡ!ԠӠ ΠŠՠΠԠ%ΠԠΠԠ ΠԠĩ ήàήŠ ڠՠ!!ŠΠŠΠΠҠŠΠ͠4ŠΠ͠ĩ4Ġ̮ԠW箍ᠠ堠ΠĠΧ򠠳ĸ堠堠󿩠卲򬠠堰砲嬠젠򮠠栠Š䠠堠堠ŠŬ堠栠堠򠠠堠栠󢮠堨ũ堠䭭䠠䠠䬠堠젨򠠨򬠠堠栱場򠶰宍砠堠栠䮍쬠㠠蠠栱젠堠򍶷ᠠ堠堠蠠堠栠砠堠쬠堠堠嬠堠䮠󬠠栠堠㠠젠䠠堠젠場堠D  (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               ̍젠箠報Ġ󬠠㬠栠孭栠堠宍򬠠堠젠砨婠堠堠堠젠Ġ栠堨󮍠庍ԍ젠蠠蠠㬍򬠠栠ᠠ젠堠栠㠠󠠠젠堠䮍ᠲ宠젠렠婮栨宠堠ᠠ󭭍砠栠ᠠӠƠҠҠԠōԠӠ̠堠栠堠󩮠嬍䠠堠젠쭭堠젠堠宠堠栠䠠䠠젠쬠젠ᠠ젠젠砠栠堠䠠젠堠䠠젠堠󠠠䠠堠嬠򬠠렠堠䠠짮栠堠堠䬠堠堠堠堠䩬ᠱ堠婬蠠堠嬠򠨱Í砠堠堠堠蠠堠栠堠砠栠堠砠󠠨堠堠堠婺堠򠨵堨젠堠堠堨㠠젠򩮍栠嬠󮠠堠렠栠堠堠젠፧䠠堠򠠠䠠蠠嬍󠲬󠵍栠蠠򠠠䬠嬠蠠䭭砠젠堠䠠䠠󮠠堠堠宍堠䬠砠栠堠쬍젠堠堠栠堠堠䮍젠砠䠠堠宠젠䠠젠砠堠栠䠠堠栠󮍠쬠堠䠠󮠠٠堠堠졍ǠȠӍ堠堠笠󠠠䠠嬠砠堠殍䠠砢硢젠嬠䠠堠堠䠠젠欠堠ᠹ穮ҍ젠젠堠젠젠堠砠堠䠠젠堠栠ᠠ堠栠堠堠砠쬠蠠栠堠󠲰堠젠殍젠堠堠䠸č젠젠젠󮠠;:A$:+ <(4);"RUN DUNGEON CREATE MENU"O;"DISKETTE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;" WAS":" DEVELOPED BY ";A2$ 2:"(HIT ANY KEY TO CONTINUE) "-<A$"EAMON DUNGEON DESIGNER":NUM254:A2$"DONALD BROWN"F ::"*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*****************************************":l 12)  ::"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:PSPDMD%(0,2)MD%(0,2)2^DIE2500W14: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 TH4:S2%(S)SA%(S)::V%(96):ROOM1*l1002v33NORTH,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///DONE WITH GAME3DK$;"CLOSE"KVA2MD%(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)3jNC:C$(NC):C1NC:C$(C):!tS1(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)::W24v8WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5NW),WP%(NW):A14:WN$(A),WT%(A),WO%(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"d.W214:WN$(W2)"NONE"NANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%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)::AE,SEX$,GOLD,BANK,AC^NW15:WN$(NW),WT%(NW),WO%(NW),WD%(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):A2LA:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:00:M2:490#|M2:DF0:7500:490,OFMrM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490zM2NBTL(FD%(1)TD%(1)):NBTLĂM100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,S 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):490}YMD%(M,14)2490^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490 rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M228000,8000,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000o ,///COMMANDS RETURN TO HERE~ 6NBTL500 @M1NM:MD%(M,5)ROOM490 JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20)hTMD%(M,4)MRĺ:MN$(M);" FLEEC1NC: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)O "C3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,4000,4000,5000,5000,6000,6000,7000,(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."8 A:V%(ROOM)1T :" YOUR COMMAND?";A$u (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$,1)" "S$(S$,2):260| .":\ 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:AD%:(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 HERE2 EAMON ADVENTURE #?<-> BASE EAMON PROGRAM <-B[ BY DONALD BROWNat2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDn1 xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2)                   DIE2500tW14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W262300J :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WUP,U,DOWN,D,GET,TAKE,DROP,PUT,LOOK,EXAMINE,ATTACK,FLEE,RETREAT,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY///DONE WITH GAMEDK$;"CLOSE"::"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:SPDMD%(0,2)MD%(0,2)2MD%(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):ROOM1l100v33NORTH,N,SOUTH,S,EAST,E,WEST,W,WS%(W2)::W24 8WZW2:WTWWZiBW21WZ: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)MD%(0,8)2:EAEA30`NANZSH MEAT"e$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):AD%(NA,7)WD%(W2):AD%(NA,8)"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,ACNW15: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 FRENA:AN$(NA4),AD%(NA4,9):A1NA:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A2A:NZNA:DK$;"OPEN EAMON.MONSTERS":DK$;"READ EAMON.MONSTERS":NM:MN$(NM),MD%(NM,15):A1NM:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"CLOSE"DK$;00:M2:490#|M2:DF0:7500:490,OFMrM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490zM2NBTL(FD%(1)TD%(1)):NBTLĂM100///INITIALIZE DATAdDK$;"OPEN EAMON.ARTIFACTS":DK$;"READ EAMON.ARTIFACTS":S 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):490}YMD%(M,14)2490^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490 rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M228000,8000,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000o ,///COMMANDS RETURN TO HERE~ 6NBTL500 @M1NM:MD%(M,5)ROOM490 JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20)hTMD%(M,4)MRĺ:MN$(M);" FLEEC1NC: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)O "C3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,4000,4000,5000,5000,6000,6000,7000,(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."8 A:V%(ROOM)1T :" YOUR COMMAND?";A$u (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$,1)" "S$(S$,2):260| .":\ 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:AD%:(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 HEREr2 EAMON ADVENTURE #?<-> BASE EAMON PROGRAM <-B[ BY DONALD BROWNat2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDn1 xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2)                堠堠ŠҠ堠宩栠堠󠠠򬠠Ӡ宠󠠠砠䠠ōҢ堠Π̮Š̠ĠƍΠ䠠宠΍̠嬠ήŠ堠䠠堠󮠠堠堠䠠謠젠ήŠ堠뮍堠䬠ȠԠ堠렠ᠠӠ嬠䠠嬠䠠堠Ӎ嬠䠠󮠠堠䠠젠堢Ţ嬠䠠򬠠蠠젠䠠󠠨򽲬彶蠠䠠䩬堠堠嬠嬠䠠宠쬍䬠䠠򩬠堠堠󠠨嬠⬠䩬嬍砨͢Ƣ䬠䠠堠묠䠠䠠堠䠠䠠堠ᠠ򮍠堠ᠠ䠠堠宠󠠠䠠堠󬠠ᬍ堠ᠠ蠠栠䠠嬠䠠젠򮠠젨堠ΠĠԍ󬠠젠堠堠䠠ᠠ堠䠠Ӣ젠讍ǠРȠ΍ǠӠϠҠȠҍ栠堠堠堠墠䠠Ԭ堠宍젠젠堠䠠쮍̠ҠΠŠӍΠ䠠䠠砠                                                   庠䮠栠堠àԧ婮ᠠ宠嬠렠䬠堠堠堠堠堠宠堠䠠堠蠠塩殍堠ǠΠΠō嬠栠젠󮠠栠젠堠󮠠宍栠堠䠠򮠠嬠ᠠ򡩮ɬ堠젠䠠堠젠嬍렠栠䠠젠堠栠嬠䠠堠䠠뮠栠堠쬠䠠쮍堠塩䠠堠䠠堠ΠҠˮ堠孭堠卨蠠堢â젠נϠ٠Ġ٠٠΍嬠Π堠ɬ𧠠䠢Š̠Ġƍ΢򠠠謠堠堠䠧堠堠䠠蠠󬠠堠󬠠蠠󮠠렠ᠠ蠠젠嬠堠堠䮍堠󠠨ᠠ砠孭420 :C40,50,60,706 ((4);"RUN DUNGEON INIT"S 2(4);"RUN DUNGEON EDIT"p <(4);"RUN DUNGEON LIST"v FOx :5:9);"DUNGEON CREATION MENU"::"YOUR CHOICES ARE--"::" 1. INITIALIZE NEW DUNGEON DISKETTE"::" 2. EDIT DATA FILES":" 3. LIST DATA IN A DUNGEON'S FILES"::" 4. STOP":::"(HIT KEY FOR CHOICE, 1-4) "; A$:C(A$):C1C .3:958:"ARTIFACT NAME:":" ";::I$::AN$I$:6:I2$"":"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:/VZ(37):I2$"" /VZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ"":I$EAMON.DESC,R";N%(1):(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N%(1):D16:DR%(D)::DK$dH+100|.///ADD AN ARTIFACT.:"ENTERING ARTIFACT ";N%(2)1:I2$""::"ENTER ARTIFACT NAME:"." ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:12020O (USE ZERO FOR NO CONNETION, A NEGATIVE NUMBER FOR UNUSUALTHINGS.":D16*+16D:"MOVE ";("NSEWUD",D,1);"--";:I2$"":1500:DR(I$):DR(DR)(DR)I$110504+DR%(D)DR:D[>+N%(1)N%(1)1:DK$;"WRITE EAMON.ROOM NAMES,R";N%(1):R1$:DK$;"WRITE 500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:11020+3:958:"ROOM NAME:":" ";::I$::R1$I$:6:I2$"":"ENTER ROOM DESCRIPTION:":1500:6:958:"ROOM DESCRIPTION:"::I$::R2$I$:K +13:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TE) ";:A$:A$::(37)1U<#A::"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::100l'///ADD ITEM BLOCK'C$"ADD":1000:TYPEA:TYPE11000,12000,13000,14000* ///ADD ROOM+:"ENTERING ROOM ";N%(1)1::I2$"":"ENTER ROOM NAME:"/ +" ";:1 CONTINUE) ";:A$:A$::(37)1\A::"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::100(#::"LISTING ";::"EFFECTS":::34,2:A1N%(TYPE):DK$;"READ EAMON.DESC,R";A100:A2$:"EFFECT #";A::A2$:2#(16384)128ĺ:"(HIT ANY KEY TO CONTINUS":A$"ROOM":8060@hF$"EAMON.ARTIFACTS":A$"ARTIFACTS":8060lrF$"EAMON.MONSTERS":A$"MONSTERS":8060|::"LISTING ";::A$:::34,2:A1N%(TYPE):DK$;"READ ";F$;",R";A:A2$:DK$:A$;"#";A;": ";::A2$:!(16384)128ĺ:"(HIT ANY KEY TOA$(8)1500-,A$(27)ĺI2$:I$I$I2$:761520S@///LIST THINGS ROUTINEJC$"LIST":1000:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TYPE TO PRINT!":::"(HIT ANY KEY TO CONTINUE) ";:A$:100TTYPE8030,8040,9000,8050^F$"EAMON.ROOM NAME$I2$:I$"":15201A$(4)I2$(I2$,2):1515PA$(9)I2$" "I2$:1515wA$(21)(I2$)A$(I2$,1):1530A$(21)A$" ":1530A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:1520A$(8)(I$)I2$I$I2$:A$;:1500")āA1(I2$):(8);:2 A$:A$(13)Č958::z (A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ĺ"";:1520 A$(31)ĺA$;:I$I$A$:I2$(I2$,2):1520 A$(5)ĺI2$;:I$I$I2$:I2$"":1520A$(2)(I$)āA1(I$):(8);::I2$IE TO SELECT WHAT TO WORK ONw :"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) "; A$:A14:A$("RAEM",A,1)Ă:1020 A$: ///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$ I$"" I2$;:958:(I2$ MONSTER"::" 2. EDIT OLD ROOM, ARTIFACT, EFFECT OR MONSTER"::" 3. LIST NAMES OF ROOMS, ARTIFACT, ETC."::" 4. QUIT": x::"(HIT KEY FOR YOUR CHOICE, 1-4) "; A$:C(A$):C1C4130 A$:C10000,20000,8000,30000 ///ROUTIN(12):M112:M$(M):h ZHD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES d:T14:T$(T);"-";N%(T);" ";:::5:4);"EDITING ";::DUNGN$::: n"YOUR CHOICES ARE--"::" 1. ADD NEW ROOM, ARTIFACT, EFFECT OR S,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$ <T14:T$(T): FROOM,ARTIF,EFFECT,MONST PM$(12),M%# (4);"MAXFILES 10"DK$(4)::5:"EDITING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:DK$;"CLOSE" (DK$;"OPEN EAMON.ROOM              䠠쬍栱묠䠠宍卵蠠栱婮嬍堠堠堠嬠󠠠󠠠ĸ䠠栵蠠󠠠栭栠婬蠠ᠠ栰婬䠨嬠Ķ栲Ķᠠ堠堠栠Ĵ堠捲ᠠ蠠ĵ栠ᠠ堠堠򮍠쬠堠젠䠠堲ᠠ򬠠󮠠堠砠󮠨嬠ǠӠĠҍ栠嬠孭󠠠宠ᠠ堠ᠠ栠䮠ɠ;"-> EAMON ADVENTURE #";NUM;" <-"WDK$;"RENAME EXEC,SAVE ALTERED BASE PROGRAM HERE"]I:DK$;"CLOSE"::DK$;"OPEN EAMON.DESC":DK$;"WRITE EAMON.DESC":"0,0,0,0":DK$;"CLOSE" ROOMS,ROOM NAMES,MONSTERS,ARTIFACTS DK$;"EXEC EXEC": RESTART HERE!DK$(4):DK$;"DELETE A";(8);"-> EAMON ADVENTURE #";NUM;" <-":DK$;"SAVE A";(8);"WRITE EXEC":"0 A$=";(34);A$;(34);":NUM=";NUM;":A2$=";(34);A2$;(34):"DEL 100,199":"200 NUM=";NUM:"RUN 200" DK$;"OPEN A";(8):DK$;"CLOSE" DK$;"OPEN EAMON.NAME":DK$;"WRITE EAMON.NAME":A$:DK$;"CLOSE"V R14:F$:DK$;"OPEN EAMON.";F$"ZZZZ"(A$)30110D x12:"ENTER AUTHOR NAME ";A2$:(A2$)25120 16:"ENTER DUNGEON NUMBER ";A3$:NUM(A3$):NUM(NUM)NUM3NUM254(NUM)A3$130 DK$(4):DK$;"INIT A";(8);"-> EAMON ADVENTURE #";NUM;" <-,V";NUMs DK$;"OPEN EXEC":DK$MON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.":9 < d::"REPLACE DUNGEON DESIGN DISKETTE WITH NEW DISKETTE NOW"::::"INITIALIZING NEW DUNGEON DISKETTE FOR"::18);"EAMON": n8:"ENTER THE NAME OF THE DUNGEON"::" ";A$:A$"A"A$RLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;" WAS":" DEVELOPED BY ";A2$3 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EA_ 100 ::"*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*****************************************":; 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WO     젠䬠宍Šҍ蠠󩬠젨󩬠􍨳䠠󩬠䠠䠠󩮠蠠蠠堠젠堠嬍ᠠ堠쬠孭宍ǠӍ󬠠堠쬠砠宠庠򠨱ᠠ䬠򬠠쬠䠵򮠠堠젠ᠠ栠嬠堠堠 4103hM29M%(9)0ĺ" [ NATURAL WEAPONS ]";:400grM29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";q:M2}" ":MDK$;"CLOSE"DK$;"PR#0"@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::(#///PRINTER ROUTINE2#PL40:@"MONSTER # ";M;" [";MN$;"]":" ":"DESC:":8000:" ":M2112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);JM23M24M27M210ĺ" %";:400TM25M%(5)0M%(5)N%(1)ĺ" [";R$(M%(5));"]";:400^M29M%(9)1ĺ" [ NO WEAPONS ]":1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";P:A2a," ":" ":A6" ":" ":(12);"LISTING MONSTERS":" ":M1N%(4):" ":" ":DK$;"READ EAMON.MONSTERS,R";M:MN$:M2112:M%(M2)::DK$;"READ EAMON.DESC,R";M300:A$yA%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]";:250A24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";:A2:A%(2)2300FA258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)EAD EAMON.ARTIFACTS,R";A:AN$(A):A214:A%(A2)::A%(2)1āA258:A%(A2): "ARTIFACT # ";A;" [";AN$(A);"]":" ":DK$;"READ EAMON.DESC,R";100A:A$:"DESC: ":8000:" " A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);cA22HSOUTHEAST WEST UP DOWN ",(D1)51,5);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)u DR%(D)99ĺ"[EXIT]";:180 DR%(D)0(DR%(D))N%(1)ĺ"[";R$((DR%(D)));"]"; :D,RM " ":" ":(12);"LISTING ARTIFACTS"::A1N%(2):" ":" ":DK$;"R1N%(1):DK$;"READ EAMON.ROOM NAMES,R";R:R$(R)::R1N%(1):" ":" " "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"READ EAMON.DESC,R";R:A$:8000 :"DIRECTIONS MOVED IN--":DK$;"READ EAMON.ROOMS,R";R:D16:DR%(D):U D16:" ";("NORT$(12),M%(12):M112:M$(M):p ZHD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES dR$(N%(1)),AN$(N%(2)):A18:A$(A): nVALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES x9000G :(12);"LIST OF ROOMS":RMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$ <T14:T$(T): FROOM,ARTIF,EFFECT,MONST PM  (4);"MAXFILES 10"DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:DK$;"CLOSE" (DK$;"OPEN EA     䬠䠠堠堠嬠塍ǠŠō砠宍䠠嬠堠堠䠠堠쬠砠󮠠堠砠堠嬠䠠堠嬠󮠠堠蠠뮩ǠƍM%(9)N%(2)ĺ" [";AN$(M%(9));"]";+:M27" ":MHDK$;"CLOSE"XDK$;"PR#0"^p@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::(#///PRINTER ROUTINE2#PL40::M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);YJM23M24M27M210ĺ" %";:400TM25M%(5)0M%(5)N%(1)ĺ" [";R$(M%(5));"]";:400^M29M%(9)1ĺ" [ NO WEAPONS ]":410hM29M%(9)0ĺ" [ NATURAL WEAPONS ]";:400!rM29M%(9)0"]";:A2," ":" ":A6" ":" ":(12);"LISTING MONSTERS":" ":M1N%(4):" ":" ":DK$;"READ EAMON.MONSTERS":MN$:M2112:M%(M2)::DK$;"READ EAMON.DESC,R";M300:A$3@"MONSTER # ";M;" [";MN$;"]":" ":"DESC:":8000:" ":M2112:" "; WEAPON",A%(2)121,12);"]";:250UA24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";l:A2:A%(2)2300A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);8:A%(A2):m"ARTIFACT # ";A;" [";AN$(A);"]":" ":DK$;"READ EAMON.DESC,R";100A:A$:"DESC: ":8000:" "A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);!A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODDDR%(D))10));DR%(D);5)7 DR%(D)99ĺ"[EXIT]";:180o DR%(D)0(DR%(D))N%(1)ĺ"[";R$((DR%(D)));"]";z :D,R " ":" ":(12);"LISTING ARTIFACTS"::A1N%(2):" ":" ":DK$;"READ EAMON.ARTIFACTS":AN$(A):A214:A%(A2)::A%(2)1āA25" ":" "\ "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"READ EAMON.DESC,R";R:A$:8000 :"DIRECTIONS MOVED IN--":DK$;"READ EAMON.ROOMS,R";R:D16:DR%(D): D16:" ";("NORTHSOUTHEAST WEST UP DOWN ",(D1)51,5);": ";(DR%(D)0)((HT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES\ dR$(N%(1)),AN$(N%(2)):A18:A$(A): nVALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES x9000 :(12);"LIST OF ROOMS":R1N%(1):DK$;"READ EAMON.ROOM NAMES,R";R:R$(R)::R1N%(1):.DESC,L256"N -DK$;"READ EAMON.MONSTERS":A$:DK$;"READ EAMON.ARTIFACTS":A$ 2DK$;"READ EAMON.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$ <T14:T$(T): FROOM,ARTIF,EFFECT,MONST PM$(12),M%(12):M112:M$(M):2 ZHD,AG,FRIEND,COUR,ROOM,WEIGHEN HIT ANY KEY ";:16368,0:A$w :DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:DK$;"CLOSE" (DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS":DK$;"OPEN EAMON.ARTIFACTS":DK$;"OPEN EAMON ///EAMON DUNGEON MAPPER'///B/// BY DONALD BROWNK///k///VERSION FOR PRE-DUNGEON///DESIGNER DISKETTE ADVS (4);"MAXFILES 10". DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, T     笠蠠砧堠à䠠纍ŠϠŠҧӠҍᩮ쮍嬠栠宠䬠ᠠź堠쬠堠堠砠婠讠ﬠ򠠨堠蠠蠠堠򡩠Ԡ̠宠堠歍堠٠򠠢ɢ堠箍٠ˠ䮍Ԡᠠ詮䠠䮍䠠άӬŬ׬լĬȬȬԬԬЬΠ젠堠䠠堠󮠠嬠栠堠č٠䠠Р٠䮨堠堠堠堠졩嬠砠ԠŢ栠ᠠ⠠䬠젠堠䮍讠젠䠠젠宠젨婠堠䬍砠宠宠堠䠠堠䠠ŠҧӠō砠ᠠ堠箠堠堠ɠ򠠠󬠠󬠠ﺍϠ砠堠宠䠠蠠󠠠ɠɍ䠠堠ɍ󮠠ɠ䠠򮠠堠䬠讍䠠ᠠ䠠宠ᡩ忍堠砠﬍䠠宠嬠䠠嬠栠堠堠z