' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?Lˆʎõĵ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õ`  \ 濭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-( @àΠҠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`TY$"A"EB1:110500+TY$"M"ĺ"BYPASSED.":9 +EBBI*+EEBN%(3)a4+"EFFECT #";E;":":>+DK$;"READ EAMON.DESC,R";E200:A$:8000H+::R+:216,0:DR$"6":DK$"CLOSE":35)N%(2)ĺ" [";AN$(M%(9));"]";':M22" ":Kp /// TOGGLE PRINTERVzSWSW_100oX /// QUITbD$"CLOSE":D$"PR#0":@SWĺA$:JAZ1(A$)40:(A$,AZ,40)::* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"" ":M2112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);gM23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]";M29M%(9)0M%(9NSTERS,L128" SWĺD$"PR#";PS6RBEGEN:5500:gD$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100n| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$F"MONSTER # ";R;" [";MN$;"]":" ":"DESC:":8000:D$;"READ EAMON.DESC,R";R200:A$:80004::M /// LIST MONSTERSk"BEGINNING WITH #:";BEG$"ENDING WITH #:";EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$) D$"OPEN EAMON.MOTS "BEGINNING WITH #:";BEG$:"ENDING WITH #:";EN$](BEG$)NE(BEG$)1BEG$"1"(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)SWĺD$"PR#";PSRBEGEN:4500::D$D$"PR#0":100"EFFECT #";R;":":*0A%(4)NRĺ" [";R$(A%(4));"]";8 :A2:A%(2)23610A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2" ":" ": /// LIST EFFEC" ":D$;"READ EAMON.DESC,R";100R:A$:"DESC: ":8000:" " A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2); A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]";:3580  A24A%(4):EN(EN$)- D$"OPEN EAMON.ARTIFACTS,L128"A SWĺD$"PR#";PSW RBEGEN:3500: D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100 D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(A)::A%(2)1āA58:A%(A):: "ARTIFACT # ";R;" [";AN$(R);"]":";:2160=fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";Hp:D:_ /// LIST ARTIF. "BEGINNING WITH ARTIFACT:";BEG$ "ENDING WITH ARTIFACT:";EN$ (BEG$)NA(BEG$)1BEG$"1" (EN$)NA(EN$)(BEG$)EN$(NA)  BEG(BEG$)00T4"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":D$;"READ EAMON.DESC,R";R:A$:8000H:"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D):RD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99ĺ"[EXIT]WITH #:";BEG$'"ENDING WITH #:";EN$J(BEG$)NR(BEG$)1BEG$"1"r(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" SWĺD$"PR#";PS*RBEGEN:2100:/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1:" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CHR CH1000,2000,3000,4000,5000,6000[ 130o ND6:216,0:50  /// SET UP PRINTER "WHAT SLOT IS PRINTER IN?";PS:PS1PS71010 PS(PS)1010 100  /// LIST ROOMS "BEGINNING UTINE :12);"EAMON DUNGEON LIST":11);"BY JOHN NELSON":8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS", " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON ",SW31,3);")"WEST' XD$"OPEN EAMON.ROOM NAMES,L64"\ ZR1NR:D$;"READ EAMON.ROOM NAMES,R";R:R$(R):| \D$"CLOSE EAMON.ROOM NAMES" _D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$ d /// MAIN ROOUR,WEAPON#,O.ODDS,W.DICE,W.SIDESE FR$(NR),AN$(NA):A18:A$(A):[ KD110:DD$(D): P VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES U NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTH :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:D$;"CLOSE"T #216,0b (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ <M$(12),M%(12):M112:M$(M):! A HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARM LIST DUNGEON, VERSION 2.0D BY JOHN NELSONJPg (4);"MAXFILES 5"D$(4)::5:"LISTING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN PRESS":" ANY KEY ";:16368,0:A$:200I     L1);ADV$;L2)::. d /// PRINT DESCRIPTION_ :"GOOD LUCK, ";NAME$;".":D$"RUN MAIN PGM" @::"PRESS ANY KEY TO CONTINUE";:A$: J:: ADVENTURE NAME1 BY JOHN NELSON7> L D$(4):D$"OPEN FRESH MEAT":D$"READ FRESH MEAT":REC:NAME$:D$"CLOSE":D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":ADV$:D$"CLOSE"::L1((40(ADV$))2):L240(ADV$)L1 (䠠ᠠ䠠宠ᡩ忍堠砠﬍䠠宠嬠䠠嬠栠堠堠z笠蠠砧堠à䠠纍ŠϠŠҧӠҍᩮ쮍嬠栠宠䬠ᠠź堠쬠堠堠砠婠讠ﬠ򠠨堠蠠蠠堠򡩠Ԡ̠宠堠歍堠٠򠠢ɢ堠箍٠ˠ䮍Ԡᠠ詮䠠䮍䠠άӬŬ׬լĬȬȬԬԬЬΠ젠堠䠠堠󮠠嬠栠堠č٠䠠Р٠䮨堠堠堠堠졩嬠砠ԠŢ栠ᠠ⠠䬠젠堠䮍讠젠䠠젠宠젨婠堠䬍砠宠宠堠䠠堠䠠ŠҧӠō砠ᠠ堠箠堠堠ɠ򠠠󬠠󬠠ﺍϠ砠堠宠䠠蠠󠠠ɠɍ䠠堠ɍ󮠠ɠ䠠򮠠堠䬠讍䬠䠠堠堠嬠塍ǠŠō砠宍䠠嬠堠堠䠠堠쬠砠󮠠堠砠堠嬠䠠堠嬠󮠠堠蠠뮩Ǡƍ젠䬠宍Šҍ蠠󩬠젨󩬠􍨳䠠󩬠䠠䠠󩮠蠠蠠堠젠堠嬍ᠠ堠쬠孭宍ǠӍ󬠠堠쬠砠宠庠򠨱ᠠ䬠򬠠쬠䠵򮠠堠젠ᠠ栠嬠堠堠䠠쬍栱묠䠠宍卵蠠栱婮嬍堠堠堠嬠󠠠󠠠ĸ䠠栵蠠󠠠栭栠婬蠠ᠠ栰婬䠨嬠Ķ栲Ķᠠ堠堠栠Ĵ堠捲ᠠ蠠ĵ栠ᠠ堠堠򮍠쬠堠젠䠠堲ᠠ򬠠󮠠堠砠󮠨嬠ǠӠĠҍ栠嬠孭󠠠宠ᠠ堠ᠠ栠䮠ɠ䠠庠䮠栠堠àԧ婮ᠠ宠嬠렠䬠堠堠堠堠堠宠堠䠠堠蠠塩殍堠ǠΠΠō嬠栠젠󮠠栠젠堠󮠠宍栠堠䠠򮠠嬠ᠠ򡩮ɬ堠젠䠠堠젠嬍렠栠䠠젠堠栠嬠䠠堠䠠뮠栠堠쬠䠠쮍堠塩䠠堠䠠堠ΠҠˮ堠孭堠卨蠠堢â젠נϠ٠Ġ٠٠΍嬠Π堠ɬ𧠠䠢Š̠Ġƍ΢򠠠謠堠堠䠧堠堠䠠蠠󬠠堠󬠠蠠󮠠렠ᠠ蠠젠嬠堠堠䮍堠󠠨ᠠ砠孭蠠򠠠䬠嬠蠠䭭砠젠堠䠠䠠󮠠堠堠宍堠䬠砠栠堠쬍젠堠堠栠堠堠䮍젠砠䠠堠宠젠䠠젠砠堠栠䠠堠栠󮍠쬠堠䠠󮠠٠堠堠졍ǠȠӍ堠堠笠󠠠䠠嬠砠堠殍䠠砢硢젠嬠䠠堠堠䠠젠欠堠ᠹ穮ҍ젠젠堠젠젠堠砠堠䠠젠堠栠ᠠ堠栠堠堠砠쬠蠠栠堠󠲰堠젠殍젠堠堠䠸č젠젠젠󮠠堠̍젠箠報Ġ󬠠㬠栠孭栠堠宍򬠠堠젠砨婠堠堠堠젠Ġ栠堨󮍠庍ԍ젠蠠蠠㬍򬠠栠ᠠ젠堠栠㠠󠠠젠堠䮍ᠲ宠젠렠婮栨宠堠ᠠ󭭍砠栠ᠠӠƠҠҠԠōԠӠ̠堠栠堠󩮠嬍䠠堠젠쭭堠젠堠宠堠栠䠠䠠젠쬠젠ᠠ젠젠砠栠堠䠠젠堠䠠젠堠󠠠䠠堠嬠򬠠렠堠䠠짮栠堠堠䬠堠堠堠堠䩬ᠱ堠婬蠠堠嬠򠨱Í砠堠堠堠蠠堠栠堠砠栠堠砠󠠨堠堠堠婺堠򠨵堨젠堠堠堨㠠젠򩮍栠嬠󮠠堠렠栠堠堠젠፧䠠堠򠠠䠠蠠嬍󠲬󠵍栠箍ᠠ堠ΠĠΧ򠠳ĸ堠堠󿩠卲򬠠堰砲嬠젠򮠠栠Š䠠堠堠ŠŬ堠栠堠򠠠堠栠󢮠堨ũ堠䭭䠠䠠䬠堠젨򠠨򬠠堠栱場򠶰宍砠堠栠䮍쬠㠠蠠栱젠堠򍶷ᠠ堠堠蠠堠栠砠堠쬠堠堠嬠堠䮠󬠠栠堠㠠젠䠠堠젠場堠堠󺠠젠䠠㠠砠򿠠쬠嬠䠠栲䠨栠堠砠򬠠堠ᠠ栠󠴰򠴰砠堠栠砠堠笠箠䠧蠠󮠠󺠠󬠠󬠲󬠱䠰󮠨堠堠䠠堠笠젠䠠󠠨󩬠󩬠󠠨󩬠宍󮠠󭭍䠠堠䬠䠠䮍嬠󮠠蠠ԍ蠠䠠䬍󬠠䍭欠堠䬠栲ᠷᠠ砠捰젠쬠㬠堠ᮍᠵ笠蠠栠젠宠ᠠ栵ᠴ󠨵ᬠ堠堠堠졠ź蠠䭭栠堠堠䠠衠ᠠ堠젠堠󠠠栠砠嬠堠嬠쩮ᠠ堠嬠򮠠㠠堠ᠠ䍧ȧ젠󬠠蠠򬠠䠠ǧ젠砠砠ᠠ堠󮍠䮠ᠹ󮍠ٍ䠠㠠栠쬠젠󬠠蠠堠讍堠栠䬠堠󮠠󮠠嬍㠠򍱳󩮠堠栠堠欠쩬㠠塍堠䠠č󩠠栠堨䠠Ԡ쩠򠱰栠宍㠠堠譭栠젠󮠠堠栠堠堠宠󬠠堠㠠쮠㠠砠堠嬠堠䩮Ӭ٬󠠠䠠堠Ӎ򬠠蠠䍧堠󠧳ĸ孍姠ﮍҠӍ㠠砠짍򮠠堠젠堠⡩Π堠䠠󮠠嬠젠䠠姭堠󠠠󠠠蠠젠堠堠蠠󮠠栠嬠堠嬠堠堠䠠󩠠堠򡠠쮍Πᠠ宠堠堠ᠠ䠠堠젠䠠䠠宠蠠󬠠󬠠宠䠠Ġ嬠堠䠠堠堠ᠠ䮠򠠠栠桠堠嬍㠠Π䠠䠠젠宠⭍䮍ɠ堠蠠򬠠䠠䬠堠䠠堠䠠宍堠嬠ᠠ孭򬠠Ѝ堠嬠堠嬠場ˮ䠠젠䬠䠠䠠堠򡩮堠堠堠Ӻ젠젠穬렠󮍠ɬ렠嬠ˠàӢ堠󬠠堠嬠堠宠䬠栠讠魍砠堠䠠󮍨堠嬠젠堠堢ӠΠŠĠƠōĠ䬠ᠠ䠠嬍砠砠ﮍ젠䬠ŠϠŠ̠ĠƠ΍Π䠠󮢠堠򠠠婠                                                                  䠠󮍠Šč󮍠󮠠堠宍젠򮍠렠堠婠堠䠠䠠堠堠򠠠󮠠堠䬠栠젠箍䠠堠렠堠栠堠蠠󠠨䠠䠠堠젠砠䠠宠ﬠɍᠠ󭭍΍ԠԠҠǍԥΠōڠҠƠӠҠԍ堠堠䠠堠堠ӠƠҠΠΠ͍ҧӠΠٍĥҠάŠƠōΤŠƠҧӠ΍ϥΠٍХΠҠΠũӥӯŠƠŠҠٍٍ̠̠̠ؤӠͧҠƧҠҍĠҠƠӠĠ̠Ϡύà̠ǠƠ̠čĥŠΠΠŠҠōР̠ŠƠō֤ Ơč֥ŠҍŠ̠ǠƠҠčàҠĠΠҠō̠͠Ҡ͠͠Ҡ٠΍Ҡ͠ҠҠҍӤԠƠĠ΍ӲԠ̤ŠƠҍҠҠōҠƠӍ̠̠ǠƠΠōàҠƠӍ͠ҠƠӍנ̠ԠƠӠΠōڠҠӠԠҠ΍ƠҠƠ򬍠󠠨ĬǬĬҮͬԬƠӬҬΠӠϠԬנŬנӬӠάλԠԬ٬̬ũŠΠԍҠҠ̯ĠǍĠĠҠӠΠ΍Ԡ̠ǠƠԠΠԍà̠ǠƠ٠čˠ̠ǠƠħٍĥҠӠύȠҠڤԠĠ΍ƠҍŠ̠ǬҠčˤӠ̭ĠҠˠӍҥ͠ĠΠȠ΍ԠƠҠΠӭϭԍĥ̠ŠƠ󠨱嬲嬳嬍嬸󬹽ŠҠōΤŠƠӍˠĠҠӠΠˍàӠҠƠĠ΍äӠ͠䠠䬠ᠠ孭àҠӠƠҍĥԠ捠占砠쭭󠠠堠堠䬠蠠젠󮍠栠堠堠歍ͮ栠ᠠ砠砠堠䠠堠󠠱堠堠쮠쬍젠󠠴󬠴ƠӤԢΠӤŠԢ䠠Ԡ堠ᠠ 堠󠠷堠堠䠠󠷷򬠠堠󠳰󠠴󠴲堠堠젠󠠠砠堠砠堠 䠠堠栠䠠宠󠠲堠󮍠󠠳堠󮠠栠堠򬠠Ҳ䠠﩮栠젠堠󠱱󠠲堠堠󮠠䬠堠Š묠箠栠䠠ᠠ䬠報堠堠䩬堠堠堠讠堠䠠󍵰󠱰ŠΠͮ嬠ɍ󠠱ᮠ栠堠󬠠㮬堠宠򬠠򬠠堠ᠠ蠠栠󡍠ǠŠŠΠ͍堠ᠠ宠䠠堠Š΍͠z#?     ԠӠ Ġ̮ԠWҠ̮ԠΠ͠ؠΠԠàΠҠ ՠ ΠԠΠԠBΠԠŠ͠9Š͠Π84@ DUNGEON EDIT PROGRAM9 BY DONALD BROWN?_ ENHANCED BY JOHN NELSON} THIS PROGRAM ADDS AND MODIFIES SIX AND TEN DIRECTION DUNGEONS.  (4);"MAXFILES 10"DE%(100),DX%(100),RT$(100) D                    NSTERS,ARTIFACTS'DK$;"EXEC EXEC":: RESTART HEREDK$(4):DK$;"DELETE EAMON ADVENTURE #";NUM:DK$;"SAVE EAMON ADVENTURE #";NUMDK$;"RENAME EXEC,SAVE LEADIN PROGRAM HERE",# DK$;"OPEN A";(8):DK$;"CLOSE"k DK$;"OPEN EAMON.NAME":DK$;"WRITE EAMON.NAME":A$:ND:DK$;"CLOSE" R14:F$:DK$;"OPEN EAMON.";F$:DK$;"CLOSE"::DK$;"OPEN EAMON.DESC":DK$;"WRITE EAMON.DESC":"0,0,0,0":DK$;"CLOSE" ROOMS,ROOM NAMES,MOCTION MOVEMENT:";ND$:ND$"6"ND$"10"135: ND(ND$)r DK$(4):DK$;"INIT EAMON ADVENTURE #";NUM;",V";NUM DK$;"OPEN EXEC":DK$;"WRITE EXEC":"0 A$=";(34);A$;(34);":NUM=";NUM;":A2$=";(34);A2$;(34):"DEL 100,199":"200 NUM=";NUM:"RUN 200"ON":Z n8:"ENTER THE NAME OF THE DUNGEON"::" ";A$:A$"A"A$"ZZZZ"(A$)30110 x12:"ENTER AUTHOR NAME ";A2$:(A2$)25120 16:"ENTER DUNGEON NUMBER ";A3$:NUM(A3$):NUM(NUM)NUM3NUM254(NUM)A3$130, 18:"SIX OR TEN DIREERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": < d::"REPLACE DUNGEON DESIGN DISKETTE WITH NEW DISKETTE NOW"::::"INITIALIZING NEW DUNGEON DISKETTE FOR"::18);"EAM********": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;" WAS":" DEVELOPED BY ";A2$z 2"NON-COMM 1009FD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"Q 216,0[ :: "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*********************************" ;$ <(4);"RUN DUNGEON LIST"* EH F(4);"RUN PRINT MANUALS"N Ob P(4);"CATALOG"h Qn Zt [AGN MANUAL OR PLAYERS MANUAL":5 " 5. CATALOG":V " 6. RETURN TO BASIC"::x "TYPE A NUMBER, 1 THRU 6 "; A$ C(A$) C1C620  C40,49,59,69,79,90 ( )(4);"RUN DUNGEON INIT" 1 2(4);"RUN DUNGEON EDITv539);"DUNGEON DESIGNER MENU"::O"YOUR CHOICES ARE--":z" 1. INITIALIZE NEW DUNGEON DISK":" 2. EDIT DATA FILES":" 3. LIST DATA IN A DUNGEON'S FILES": " 4. READ OR PRINT EAMON DUNGEON DESI    ::(4)"RUN MENU"TIFACTK.:"ENTERING ARTIFACT ";N%(2)1:I2$""::"ENTER ARTIFACT NAME:"." ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:12020.3:958:"ARTIFACT NAME:":" ";::I$::AN$I$:6:I2$"":"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT D"":1500:DR(I$):DR(DR)(DR)I$11050>4+DR%(D)DR:D>+N%(1)N%(1)1:DK$;"WRITE EAMON.ROOM NAMES,R";N%(1):R1$:DK$;"WRITE EAMON.DESC,R";N%(1):(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N%(1):D1ND:DR%(D)::DK$H+100. ///ADD AN AR DESCRIPTION:":1500:6:958:"ROOM DESCRIPTION:"::I$::R2$I$: +13:958:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TO (USE ZERO FOR NO CONNECTION, NEGATIVE NUMBER FOR UNUSUAL THINGS.":D1ND-*+16D:"MOVE ";DD$(D);"--";:I2$DD":1000:TYPEA:TYPE11000,12000,13000,14000@* ///ADD ROOM}+:"ENTERING ROOM ";N%(1)1::I2$"":"ENTER ROOM NAME:" +" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:11020C+3:958:"ROOM NAME:":" ";::I$::R1$I$:6:I2$"":"ENTER ROOMEFFECTS":::34,2:A1N%(TYPE):DK$;"READ EAMON.DESC,R";A100:A2$:"EFFECT #";A::A2$:2#(16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A$:A$::(37)1<#A::"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::100'///ADD ITEM BLOCK.'C$"A"LISTING ";::A$:::34,2:A1N%(TYPE):DK$;"READ ";F$;",R";A:A2$:DK$:A$;"#";A;": ";::A2$:(16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A$:A$::(37)1A::"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::100[(#::"LISTING ";::"PE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$::100TOHC$"Y"ĺDK$"PR#1"rTTYPE8030,8040,9000,8050^F$"EAMON.ROOM NAMES":A$"ROOM":8060hF$"EAMON.ARTIFACTS":A$"ARTIFACTS":8060rF$"EAMON.MONSTERS":A$"MONSTERS":8060c|::20+A$(8)(I$)I2$I$I2$:A$;:1500="A$(8)1500\,A$(27)ĺI2$:I$I$I2$:f61520@///LIST THINGS ROUTINEE"HARDCOPY (Y/N)";FHC$:HC$"Y"HC$"N"8006GHC$<JC$"LIST":1000:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TY20@A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":1520`A$(4)I2$(I2$,2):1515A$(9)I2$" "I2$:1515A$(21)(I2$)A$(I2$,1):1530A$(21)A$" ":1530A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:15EN PASSED I2$I$""DI2$;:958:(I2$)āA1(I2$):(8);:`A$:A$(13)Č958::(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ĺ(7);:1520A$(31)ĺA$;:I$I$A$:I2$(I2$,2):1520A$(5)ĺI2$;:I$I$I2$:I2$"":1500,8000,32000,33000,34000,30000I///ROUTINE TO SELECT WHAT TO WORK ON:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";A$:A14:A$("RAEM",A,1)Ă:1020A$: ///ROUTINE TO INPUT I$, HAVING BER":" MONSTER (WITHOUT VIEWING OLD)". h " 5. DUPLICATE A ROOM, ARTIFACT":" OR MONSTER"n " 6. SPECIAL FUNCTIONS" " 7. QUIT" :"ENTER KEY FOR YOUR CHOICE (1-7) "; A$:C(A$):C1C7190A$:C10000,200N$::[ n"YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" MONSTER"a s x" 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER" } " 3. LIST NAMES OF ROOMS, ARTIFACT,ETC" ( " 4. REPLACE OLD ROOM,ARTIFACT O(12),M%(12):M112:M$(M)::D110:DD$(D): ZHD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES ] N ,S ,E ,W ,U ,D ,NE,NW,SE,SW _29000 d:DK$"PR#0":T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DUNGON.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$K$(4)::5:"EDITING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$: 15000 DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:ND$:DK$;"CLOSE" #ND(ND$):216,0 (DK$;"OPEN EAM(7):I2$I$:22090#(TVI2$(ROOM)(^VVZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ"":I2$I$:22110(hVTYPE222900(mVI2$(WC)(rVVZ5:"ENTER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)(WC)I$ĺ"":22130W) WEAPON)":VZ2:335'1VA$:A$(27)A$(TY):22070N'4VA$"0"A$"3"22065'6VTYPE(A$):1:("SETTREASTREASUREWEAPON ODD WEAP",TYPE81,8);" ARTIFACT";:958:'@VI2$(WT)(JVVZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$RIPTION:"::I$::AD$I$:1&VVZ(37):I2$(VL)&"VVZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ(7):I$I2$:22050',V"HIT KEY FOR TYPE OF ARTIFACT":" (0=TREASURE W/SET PRICE, 1=TREASURE, 2=STANDARD WEAPON, 3=ODD%UDK$G%U:"EDITING ARTIFACT ";N:I2$AN$::"ENTER ARTIFACT NAME:"%V" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:22020&V3:958:"ARTIFACT NAME:":" ";::I$::AN$I$:6:I2$AD$:"ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCITE EAMON.DESC,R";N2:(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N2:D1ND:DR%(D)::DK$c$bR100|$U///EDIT AN ARTIFACT$U20030:NN2:DK$;"READ EAMON.DESC,R";N100:AD$:DK$;"READ EAMON.ARTIFACTS,R";N:AN$,VL,TYPE,WT,ROOM:TYPE1ĄWC,W2,DICE,SIDES1500:R2$I$::"EDITING ROOM DIRECTIONS (0 FOR NO DIR, NEGATIVE FOR STRANGE)":D1ND:I2$(DR%(D))#DR1D:"MOVE ";DD$(D);"-- ";:1500:DR(I$):DR(DR)(DR)I$I2$I$:21060#NRDR%(D)(I$):DZ$XRDK$;"WRITE EAMON.ROOM NAMES,R";N2:R1$:DK$;"WRDK$;"READ EAMON.DESC,R";N2:R2$:DK$;"READ EAMON.ROOMS,R";N2:D1ND:DR%(D)::DK$"&R:"EDITING ROOM ";N2::"EDITING ROOM NAME--":I2$R1$"0R" ";:1500:(I$)39Ģ3:20:"TOO LONG!";(7):I2$I$:21040e#:RR1$I$:6:"EDITING DESCRIPTION--":I2$R2$::TYPE21000,22000,23000,240009!4N///GET NUMBER TO EDIT!>N"ENTER NUMBER OF ";T$(TYPE);" TO EDIT":" (1-";N%(TYPE);:") ";A$:N2(A$):N21N2N%(TYPE)N2(N2)ġ:100!HN!R///EDIT A ROOM!R20030T"RDK$;"READ EAMON.ROOM NAMES,R";N2:R1$:(M%(M))I$ĺ(7):(37):14050& 6 6N%(4)N%(4)1:DK$;"WRITE EAMON.DESC,R";300N%(4):(34);MD$;(34):DK$;"WRITE EAMON.MONSTERS,R";N%(4):MN$:M112:M%(M)::DK$ 7100 :ND6:216,0:40 N///EDIT OLD ITEM BLOCK!*NC$"EDIT":1000:TYPEA//ADD A MONSTERi6:"ENTERING MONSTER # ";N%(4)1::I2$"":"ENTER NAME:";:1500:I$""(I$)30140106MN$I$::"ENTER DESC--":I2$"":1500:MD$I$::"MONSTER # ";N%(4)1;" ";::MN$:::M112 6"ENTER ";M$(M);": ";:I2$"":1500:M%(M)(I$):EAMON.ARTIFACTS,R";N%(2):AN$:VL:TYPE:WT:ROOMRn2TYPE1ĺWC:W2:DICE:SIDESbx2DK$::100h2~2///ADD AN EFFECT2:"ENTER EFFECT #";N%(3)1:I2$"":1500::N%(3)N%(3)1:DK$;"WRITE EAMON.DESC,R";200N%(3):(34);I$;(34):DK$:1006/(DICE)(DICE)I$ĺ(7):I2$I$:121804/I2$""/VZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SIDES)(SIDES)I$ĺ"":I2$I$:122001d2N%(2)N%(2)1:DK$;"WRITE EAMON.DESC,R";N%(2)100:(34);AD$;(34):DK$;"WRITE WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";^/A$:W2(A$):W21W2512160/VZ6:1:958:("AXE BOW CLUB SPEARSWORD",(W21)51,5);" WEAPON":I2$"")/VZ7:"ENTER NUMBER OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE/VZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ(7):I2$I$:12110tX/TYPE212900]/I2$""b/VZ5:"ENTER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)(WC)I$ĺ(7):12130l/I2$""<v/VZ6:958:"HIT KEY FORWEAPON)":VZ2:33/!/A$:A$"0"A$"3"12065&/TYPE(A$):1:("SETTREASTREASUREWEAPON ODD WEAP",TYPE81,8);" ARTIFACT";:958:0/I2$"":/VZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$):WT(WT)(WT)I$ĺ(7):I2$I$:12090D/I2$""bNESCRIPTION:"::I$::AD$I$:1/VZ(37):I2$""/VZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ"":I$I2$:12050/"HIT KEY FOR TYPE OF ARTIFACT":" (0=TREASURE W/SET PRICE, 1=TREASURE, 2=STANDARD WEAPON, 3=ODD R";N2100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N2:AN$:VL:TYPE:WT:ROOMv8r~TYPE1ĺWC:W2:DICE:SIDES8|~DK$::1008~8~ ///REPLACE EFFECT8~200309~:"ENTER EFFECT #";N2:I2$"":1500::DK$"WRITE EAMON.DESC,R";N2200:(34) OF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)I$ĺ(7):I2$I$:32330l7T~I2$""7^~VZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SIDES)(SIDES)I$ĺ"":I2$I$:32350U8h~DK$;"WRITE EAMON.DESC,I$ĺ(7):322806"~I2$""t6,~VZ6:958:"HIT KEY FOR WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";66~A$:W2(A$):W21W25323106@~VZ6:1:958:("AXE BOW CLUB SPEARSWORD",(W21)51,5);" WEAPON":I2$""a7J~VZ7:"ENTER NUMBER:WT(WT)(WT)I$ĺ(7):I2$I$:3223045}I2$""5}VZ4:"ENTER ROOM STARTING IN:";:1500:ROOM(I$):ROOM(ROOM)(ROOM)I$ĺ(7):I2$I$:322505~TYPE2323605~I2$""6~VZ5:"ENTER WEAPON COMPLEXITY:";:1500:WC(I$):WC(WC)(WC) W/SET PRICE, 1=TREASURE, 2=STANDARD WEAPON, 3=ODD WEAPON)":VZ2:33g4}A$:A$"0"A$"3"322004}TYPE(A$):1:("SETTREASTREASUREWEAPON ODD WEAP",TYPE81,8);" ARTIFACT";:958:4}I2$"")5}VZ3:"ENTER WEIGHT IN GRONDS:";:1500:WT(I$)ENTER ARTIFACT DESCRIPTION:":1500:6:958:"ARTIFACT DESCRIPTION:"::I$::AD$I$:i3}VZ(37):I2$""3}VZ1:"ENTER THE VALUE IN GOLD PIECES:";:1500:VL(I$):(VL)I$(VL)VLĺ"":I$I2$:32180J4}"HIT KEY FOR TYPE OF ARTIFACT":" (0=TREASURE1ND:DR%(D)::DK$2x}10072} /// REPLACE ARTIFACTB2}200302}:"ENTERING ARTIFACT ";N2:I2$""::"ENTER ARTIFACT NAME :"2}" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:32150U3}3:958:"ARTIFACT NAME:":" ";::I$::AN$I$:6:I2$"":"R UNUSUALTHINGS.":D1NDs1Z}16D:"MOVE ";("NSEWUD",D,1);"--";:I2$"":1500:DR(I$):DR(DR)(DR)I$320901d}DR%(D)DR:D2n}DK$;"WRITE EAMON.ROOM NAMES,R";N2:R1$:DK$;"WRITE EAMON.DESC,R";N2:(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N2:D}3:958:"ROOM NAME:":" ";::I$::R1$I$:6:I2$"":"ENTER ROOM DESCRIPTION:":1500:6:958:"ROOM DESCRIPTION:"::I$::R2$I$:1P}13:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TO (USE ZERO FOR NO CONNETION, A NEGATIVE NUMBER FO /Nu216,0:*/} /// REPLACE ITEM BLOCKf/ }C$"REPLACE":1000:TYPEA:TYPE32020,32130,32400,32420}/} /// REPLACE ROOM/}20030/2}:"ENTERING ROOM ";N2::I2$"":"ENTER ROOM NAME:"/<}" ";:1500:(I$)39Ģ3:20:"TOO LONG!":I2$I$:320600F:DK$;"WRITE EAMON.MONSTERS,R";N:MN$:M112:M%(M)::DK$D.^100.Hq"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.":.0u///QUIT.:uDK$;"WRITE EAMON.DESC,R0":T14:N%(T):/DuDK$;"CLOSE"(I$)3024010j-]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$ĺ(7):(37):24050-];.^DK$;"WRITE EAMON.DESC,R";300N:(34);MD$;(34)RITE EAMON.DESC,R";200N2:(34);I$;(34):DK$:100J,]///EDIT A MONSTER,]20030:NN2:DK$;"READ EAMON.DESC,R";N300:MD$:DK$;"READ EAMON.MONSTERS,R";N:MN$:M112:M%(M)::DK$ -]:"ENTERING MONSTER # ";N::I2$MN$:"ENTER NAME:";:1500:I$""SC,R";N100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N:AN$:VL:TYPE:WT:ROOMw+~YTYPE1ĺWC:W2:DICE:SIDES+YDK$::100+Y///EDIT AN EFFECT+Y:200303,ZDK$;"READ EAMON.DESC,R";200N2:I2$:DK$::"EDITING EFFECT #";N2:1500:DK$;"WOF DICE OF DAMAGE DONE:";:1500:DICE(I$):DICE1DICE(DICE)(DICE)I$ĺ"":I2$I$:22180o*VI2$(SIDES)*VVZ8:"ENTER NUMBER OF SIDES PER DICE:";:1500:SIDES(I$):SIDES1SIDES(SIDES)(SIDES)I$ĺ"":I2$I$:22200V+tYDK$;"WRITE EAMON.DEVVZ6:958:"HIT KEY FOR WEAPON TYPE (1=AXE, 2=BOW, 3=CLUB, 4=SPEAR, 5=SWORD) ";r)VA$:A$(27)A$(W2))VW2(A$):W21W2522160)VVZ6:1:958:("AXE BOW CLUB SPEARSWORD",(W21)51,5);" WEAPON":I2$(DICE)^*VVZ7:"ENTER NUMBER D%(D)::DK$HXR*HbERN%(1)N%(1)ER3Hl100D)":40250PG0RNM$"IN A "("NSEWUD",DE%(R),1)"/"("NSEWUD",DX%(R),1)" "TP$kG:RDESC$"YOU ARE "RNM$GDD%(DE%(R))R1:D%(DX%(R))R1 HNDK$"WRITE EAMON.ROOM NAMES,R";R:RNM$:DK$"WRITE EAMON.DESC,R";R:RDESC$:DK$"WRITE EAMON.ROOMS,R";R:D16:R)OD::DE%(RB)BD7FOD16:BD$("SNWEDU",OD,1)ĂPFœSSRB1:DIBD:40070YF֜100|FRSSER:DE%(R)DI:DX%(R)OD:FRSRERFD16:D%(D)0: G&RT$(R)"B"RNM$"AT A BEND IN THE "TP$" ("("NSEWUD",DE%(R),1)"/"("NSEWUD",DX%(R),1)"-ErDI1ND:DI$(DD$(DI),(DI$))Ă:40040^E|ODND11:DI$(DD$(OD),(DI$))Ă:40040E"BEND (ROOM/DIR.):";BEN$:BEN$""40200ERB(BEN$):BD$(BEN$,1):BD16:BD$("NSEWUD",BD,1)Ă:40070ERT$(RB)"B"ERSSRBFDE%(R)DI:DX%(TIFACTS,R";N%(2)1:"ARTIFACT ";N%(2)1:0:0:0:0:N%(2)N%(2)1:QDֈDK$:100gD@ /// GEN HALLWAYDE:"NOT SUPPORTED.":A$::100DJ"TYPE OF PASSAGE:";TP$DT"STARTING ROOM #:";SR:SSSRD^"ENDING ROOM #:";ERDh"DIRECTION INCREASE:";DI$100)CC$"DELETE":1000:N%(A)N%(A)12C100\CTC$"INCRMNT":1000:N%(A)N%(A)1:100C /// GENERATE DUMMY ARTIFACTSCCˆ"NBR ART. TO GEN:";NACD̈A1NA:DK$"WRITE EAMON.DESC,R";N%(2)101:"YOU SEE ARTIFACT ";N%(2)1:DK$"WRITE EAMON.ARN%(4)MKBĆXALA:DK$"READ EAMON.MONSTERS,R";M:MN$:M2112:M%(M2):M2BΆAN$"DEAD "MN$:DK$"WRITE EAMON.ARTIFACTS,R";X:AN$:0:0:M%(6):0B؆DK$"WRITE EAMON.DESC,R";X100:"YOU SEE THE DEAD BODY OF ";MN$BN%(2)N%(2)1:MM1B솂X:DK$C"):";AS$:S$(13)1007A(S$)1(S$)SF34210`A(S$)34400,34800,34900,40000,35000A`:"ALL DEAD BODIES (Y/N):";YN$:YN$"Y"YN$"N"34400AjYN$"Y"AN%(2)1:M1:LAAN%(4)1:34500At"MONSTER # TO START ON:";MB~AN%(2)1:LAAFUNCTIONS@ՄSF50@ڄ:"SPECIAL FUNCTIONS:":S@䄺" 1. GENERATE DEAD BODIES":u@" 2. DELETE LAST R,A,E,M":@" 3. ADD TO NBR OF R,A,E,M":@" 4. GENERATE HALLWAY"@ :" 5. GENERATE DUMMY ARTIFACTS"A:"INPUT YOUR CHOICE (1-";SF;4):DK$:100s?NN2:DK$;"READ EAMON.DESC,R";N300:MD$:DK$;"READ EAMON.MONSTERS,R";N:MN$:M112:M%(M)::DK$?lDK$;"WRITE EAMON.DESC,R";300N3:(34);MD$;(34):DK$;"WRITE EAMON.MONSTERS,R";N3:MN$:M112:M%(M)::DK$?v100 @Є/// SPECIAL ;N3100:(34);AD$;(34):DK$;"WRITE EAMON.ARTIFACTS,R";N3:AN$:VL:TYPE:WT:ROOMt>悭TYPE1ĺWC:W2:DICE:SIDES>DK$::100 ?@DK$;"READ EAMON.DESC,R";200N2:I2$:DK$::"EDITING EFFECT #";N3:1500:DK$;"WRITE EAMON.DESC,R";200N3:(34);I$;(3"WRITE EAMON.DESC,R";N3:(34);R2$;(34):DK$;"WRITE EAMON.ROOMS,R";N3:D1ND:DR%(D)::DK$f=100=xNN2:DK$;"READ EAMON.DESC,R";N100:AD$:DK$;"READ EAMON.ARTIFACTS,R";N:AN$,VL,TYPE,WT,ROOM:TYPE1ĄWC,W2,DICE,SIDESS>܂DK$;"WRITE EAMON.DESC,R"E)ī100,<N3N%(TYPE)N%(TYPE)N%(TYPE)1N<TYPE33200,33400,33600,33800+DK$;"READ EAMON.DESC,R";E200:A$:8000H+::R+:216,0:DR$"6":DK$"CLOSE":35(N%(R)ĺ"THERE AREN'T THAT MANY!":90808#PS0PL60H#PS0PL40N#i'"PRINTER OUTPUT?";RE$'RE$"N"RE$"NO"ı$'"PRINTER SLOT:";PS.'PS7PS1ī100008'PS(PS)ī10000B'(4);"PR#";PSL'* ///LIST EFFECTS+(12);PRINTER ROUTINE*2#"START AT BEGIN?";RE$SF#RE$"Y"RE$"YES"TY$"R":B1:9110oP#RE$"N"RE$"NO"ī9060yZ#9010d#"BEGIN AT ROOM,ARTIFACT,EFFECT OR MONSTER":"INPUT (R,A,E,M):";TY$n#R14:TY$("RAEM",R,1)Ă:9060x#"NUMBER:";B'#BPONS ]":410<hM29M%(9)0ĺ" [ NATURAL WEAPONS ]";:400prM29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";z:M2" ":MDK$;"CLOSE"DK$;"PR#0"BPı::@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::(#///>BP0@"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 WEAOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";3:A2D," ":" ":AX1N%(3)1İ110006(12);"LISTING MONSTERS":" ":M1N%(4):500:DK$;"READ EAMON.MONSTERS,R";M:MN$:M2112:M%(M2)::DK$;"READ EAMON.DESC,R";M300:A$;TY$"M"BMBP1:T TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]";:250zA24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";:A2:A%(2)2300)A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE B::"BYPASSED.":305'TY$"A"ABĂ0BP0"ARTIFACT # ";A;" [";AN$(A);"]":" ":DK$;"READ EAMON.DESC,R";100A:A$:"DESC: ":8000:" "A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);FA22A%(2)0A%(2)3ĺ" [";("SEDR%(D)99ĺ"[EXIT]";:180S DR%(D)0(DR%(D))N%(1)ĺ"[";R$((DR%(D)));"]";^ :D,R (12);"LISTING ARTIFACTS"::A1N%(2):500:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:A%(A2)::A%(2)1āA258:A%(A2):TY$"R"TY$"A"BP10 RBN%(1)::g "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"READ EAMON.DESC,R";R:A$:8000 :"DIRECTIONS MOVED IN--":DK$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D): D1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5) .COMPLEX,W.TYPE,W.DICE,W.SIDES s NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST x9000 :(12);"LIST OF ROOMS":R1N%(1):DK$;"READ EAMON.ROOM NAMES,R";R:R$(R)::TY$"R"ĺ"BYPASSED.":19T14:T$(T):+ FROOM,ARTIF,EFFECT,MONSTO PM$(12),M%(12):M112:M$(M): 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): iD110:DD$(D): nVALUE,TYPE,WEIGHT,ROOM,W:DR$:DK$;"CLOSE" #ND(DR$) (DK$;"OPEN EAMON.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$ <  (4);"MAXFILES 10"DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:1000015000 :DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$     21:AD%(A,4)0 A:W262300 :5:"AS 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--"EW1W21:4);W;"--";WEED,SMILE,WAVE,SAY,READY,SAVE4///DONE WITH GAMEk:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$"CLOSE":SPDMD%(0,2)MD%(0,2)2DIE2500W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2WZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3RjNC:C$(NC):C1NC:C$(C):|tS14:S2%(S)SA%(S)::V%(96):ROOM1l100v 24 NORTH,SOUTH,EAST,WEST,UP,DOWN,GET,TAKE,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAST,HEAL,POWER,SPAN$(A)"#":A00::1090ZLA,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:EAEA301`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,7)0:MD%(0,9)N"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)WS%(W2)::W248WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)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$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;D%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A2A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"CLOSE"LDK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),TD%(1)):NBTLĂM1007///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZ/DK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:A33900hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:490OFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)MD%(M,5)ROOM490RJM2MD%(M,14)(MD%(M,14)2):MRFD%(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)(C);20(C$(C)));::::210: C$(C)S$S$V$:V$C$(C) "C3000,3000,3000,3000,3000,3000,4000,4000,5000,6000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000 ,///COMMANDS RETURN TO HERE 6NBTL500@M1NM: V$(A$,A1):S$(A$,A1)? (S$,1)" "S$(S$,2):260a C16:(C$(C),(V$))V$290 :F0:A7NC:C$(A)V$CA:290 (C$(A),(V$))V$FF1:CA:F1275 :F290 :"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$A100:A$:DK$:A$:AD%(A,9)1:Y A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."k A:V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37):17:A$ A$""275 CZ$A$:A2(A$):(A$,A,1)" "Ă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) AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ EAMON.DESC,R";MD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": V%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE ":" ";A$: V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)17 7 EAMON ADVENTURE #?<-> BASE EAMON PROGRAM <-B\ BY JOHN NELSON bk 50DK$(4):DK$"VERIFY GAME.PTRS":190002216,0:1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDnd xSPDSPDSPD1:SPD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0\'M:R3ROOM:3600:300'///MONSTER TRIES TO PICK UP WEAPON'MD%(OF,10)0ı'A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:4(MN$(OF);" PICKS UP ";AN$(A)::AD%(A,4)0:MD%(OF,9)A:MD:"YOU HAVE NO WEAPON READY!"::100D&OF0:DFM:7500:HIT7360r&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%(DF,14)1DF0300B'MD(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1N%A:LK300b%V%(ROOM)0:300y%X///ATTACK COMMAND%b4900%pM1NM:(S$MN$(M)(MN$(M),(S$))S$(MN$(M),(S$))S$)MD%(M,5)ROOMĂ::"ATTACK WHO?"::100%&zMD%(0,9)1$300B$A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOMT$A:WT0:5060i$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%G A ";S$::100F#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 GROUND."::5100#MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)19"$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.`")S$""ĺ:C$(C);" WHAT";:S$:4900f".{"///DROP COMMAND"4900"S$"ALL"5100#A1NA:(AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$)AD%(A,4)1Ă::"YOU AREN'T CARRYIN2)2MD%(0,9)1300 !617000A!@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 EFFECTS OF PICKING SOMETHING UP"rS$"ALL"4160 A1NA:(AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$)AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100 "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,MD%(M,14)3670>BFRMD%(M,3):FRFR100FRFR((CH10)2)LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)<M:NBTL(TD%(1)0):///GET COMMAND4900 OM)0:100$ R3ROOM:ROOMR2:3600-100Q///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,14)1200(1)MD%(M,4))MD%(M,5)ROOM:3670.MD%(M,5)ROOM39008100* D16:(V$,1)("NSEWUD",D,1)Ă` DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$o R203500 ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000 R23490  :"YOU CAN'T GO THAT WAY!":V%(RON$(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 COMMAND NBTLS$"FLEE"ĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!":: A$R DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":2900 DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A):' A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:A14:W%(A,1)CH10$ TPTPAD%(A,1)<. A:TP;" GOLD PIECES.":\8 GOLDGOLDTP:GOLD0GOLD0B :"(HIT ANY KEY TO CONTINUE) ";:A$: 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520P%(W),5):WD%(W)AD%(WP%(W),7):WS%(W)AD%(WP%(W),8) W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU "; TP0:A1NA:AD%(A,4)12350  AD%(A,2)0AD%(A,1)ADN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") "~ (37):23:A$:W5(A$):W51W5W21W5(W5)2080*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W2520602W14:WP%(W)WT%(W)AD%(WP%(W),6):WO%(W)AD%(WNM: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)72M:RAISER3ROOM:3600:30072A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)072A:RAISEĺ:300d83RR0=6.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":{6.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)06/DF0:7650:30062///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS62S4:11500:SUC30072RAISE0:M1-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2P5 -S2%(S)S2%(S)2V5-5P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:5.///HEAL SPELL6.S2:11500:SUC30M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100P4,S1:11500:SUC3004,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3004,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL100116004,SUCĺ:"NOTHING HAPPENED.":<5NVENTORY COMMAND3':"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$::A003$':3003*///BLAST SPELL3+490074,M1NM:S$MN$(%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)\2#R3ROOM:3600:50502%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::3002&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):91203'///I(S$,(AN$(A)))AN$(A)AD%(A,4)19095U1x#:A22A23::"WHAT TO GIVE? ";S$:90651#:"YOU AREN'T CARRYING A ";S$;"!"::1001#AMD%(0,9)MD%(0,9)11#:"OKAY.":AD%(A,4)M1:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)D2#MD%(M,10)0MDIVE COMMAND02#A21K0<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM9050{0F#:A21A22::"WHO TO GIVE TO? ";S$:90200P#:"NOBODY HERE BY THAT NAME!"::1000Z#S$(S$,(MN$(M))1)0d#(S$,1)" "S$(S$,2):90600i#(S$)09500'1n#A1NA:::1002/TD16:S$C$(D)V$S$:S$"FLEE":30008/^{/*!DR$"":8500:DR$"000000"ĺ:"THERE'S NO PLACE TO GO!!":100//!3500/4!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D):DR$DR$(DR%(D))::DK$/>!R2DR%(6(1)1):R218510/H! 0(#///GOOM:AJ1NA:AD%(AJ,4)DF1AD%(AJ,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!"SHAPE.":-" IS HURTING.":5-" IS IN PAIN.":V-" IS VERY BADLY 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)R1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::z,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 IN GOOD":" 0)):MD%(OF,10)MD%(OF,10)2INCW+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+7700A,D20:D31D:D2D2(S(0)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2:(1).5ĺ:q*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)1)MD%(OF,11)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::)oFR957550N*t" WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,1%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:Q(LHIT0:MD%(OF,9)17400(QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1(VHIT7600(`RL97ĺ"A MISS.":8)e"A FUMBLE!":FR(100()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)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490 rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1)6000,6000,7000,8000,8000,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000 ,///COMMANDS RETURN TO HERE 6NBTL500 @M1NM:MD%(M,5)ROOM490 JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20)}TMD%(M,4):S$(A$,A1)/ (S$,1)" "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) CC15:C2C1d "C3000,4000,4000,5000,5000,100:A$:DK$:A$:AD%(A,9)1:X A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."j A:V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37):17:A$ CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1M1NM: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) AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ EAMON.DESC,R";AMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": V%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE ":" ";A$: V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)16 6 EAMON ADVENTURE #?<-> BASE EAMON PROGRAM <-B[ BY DONALD BROWNaj 50DK$(4):DK$"VERIFY GAME.PTRS":190002216,0:1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDnc xSPDSPDSPD1:SPD               AD GAME.STR"W?jJDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"?tJDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"?~J100 AVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."<>FP>8J /// RESTART>BJ:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";>LJA$:A$"Y"A$"N"19020>VJA$:A$"N"Ā>[JDK$(4) ?`JDK$"BLOAD GAME.PTRS":DK$"BLOAD GAME.SVAR":DK$"BLODK$;"CLOSE":X(0)5=FDK$"BSAVE GAME.PTRS,A$69,L8"=FDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561=FDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)25616>F:"THE GAME IS NOW SAAE)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)qS$"POWER"13000);>S$"SPEED"14000H;B:"OKAY, '";S$;"'"::300`;hB///READY A WEAPON.j;rB4900;|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100;BAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100X<///SAY COMMAND:>4900:>S$"BLAST"V$S$:S$"":11000:>S$"HEAL"12000;00 9,314020!96///SPEED SPELL:96S3:11500:SUC300w96SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)96SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::3009:///SMILE COMMAND:::M1NM:MD%(M(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:200083RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::3009"3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:3:V%(ROOM)0:100* R3ROOM:ROOMR2:36003100W///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,14)1200(1)MD%(M,4))MD%(M,5)ROOM:3670.MD%(M,5)ROOM390("N S E W U D NENWSESW",D,2)Ă0 D(D2.5)f DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$u R203500 ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000 R23490 :"YOU CAN'T GO THAT WAY!"DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"nT DK$;"RUN MAIN HALL,S6,D1" ///MOVE COMMAND NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 (V$)2V$V$" ":3015  D1202:(V$,2)1":DK$;"DELETE THE ADVENTURER":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):O (A,1)". A:TP;" GOLD PIECES.":[8 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$:f 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$% DIEĺDK$;"OPEN THE ADVENTURER,S6,D,7):WS%(W)AD%(WP%(W),8) W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU "; TP0:A1NA:AD%(A,4)12350 AD%(A,2)0AD%(A,1)AD%(A,1)CH10$ TPTPAD%ER OF THE WEAPON TO SELL (1-";W21;") "d (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)62300 :5:"AS 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 NUMBVE///DONE WITH GAME]DK$;"CLOSE"::"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:zSPDMD%(0,2)MD%(0,2)2DIE2500W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W2NC:C$(C):6tS14:S2%(S)SA%(S)::V%(96):ROOM1?l100Iv 38 NORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,NE,NW,SE,SW,GET,TAKE,DROP,PUT,LOOK,EXAMINE,ATTACK,FLEE,RETREAT,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY,SAACMD%(0,8)1:EA5`VA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MD%(0,8)2:EAEA30`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,7)0:MD%(0,9)NZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3 jNC:C$(NC):C1$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W248WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2):A22,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 EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64"y.W214:WN$(W2)"NONE"NANA1:AN$(NA)WN,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)::AE,SEX$,GOLD,BANK,ACsNW15:WN$(NW)AMON.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):A2aA:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM).25DFM2:7500:M2200:M2:4908|M2:DF0:7500:490AOFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)TD%(1)):NBTLĂM100///INITIALIZE DATA*DK$;"OPEN EAMON.DESC":DK$;"READ E.:.@///FLEE COMMANDR.JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100\.TD$"".h8500:R20ĺ:"THERE'S NO PLACE TO GO!!":100.*!3500.4!DK$;"READ EAMON.ROOMS,R";ROOM:D110:DR%(D):D$D$(DR%(D))::DK$.>!D$"0000000000"R20:UDLY.":-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.DF0DIE1:2000D%(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 BADLY INJURED.":-" IS AT DEATH'S DOOR,":" KNOCKING LO251A0:7635'+R286S1.5S:7635>+R296D2D:7635V+R2100D3D:7635`+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)7700,AM.*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ĺ"A HIT!":7635+"A CRITICAL HIT!":R2(100(1)1):R0)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::J)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!"*~FR10075600(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1I(VHIT7600a(`RL97ĺ"A MISS.":(e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED.":::)jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,1ON'MD%(OF,10)0ıA'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)17400;(QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100$&(100(1)1)MD%(0,10)7360:&A2:EAAE1A1\&AEAEA:MD%(0,10)MD%(0,10)Aw&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 TRIES TO PICK UP WEAPOM)0:300!%X///ATTACK COMMAND+%b4900l%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)2&EAAE30///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:A$:DK$::A$::LK1$A:LK300 %V%(RO1)ĺ"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);" DROPPED.":AD%(A,4)ROOM#A:WT0:5060$pPREVIOUSLY SPECIFIED.<")S$""ĺ:C$(C);" WHAT":S$:4900B".W"///DROP COMMANDj"S$"ALL"5100"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.":u#WT10MD%(0,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 EFFECTS OF PICKING SOMETHING UP!r"$///ROUTINE TO GET S$ IF NOT  S$"ALL"4160^ A1NA: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."::100 ,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300 617000!@08MD%(M,14)3670DBFRMD%(M,3):FRFR100FRFR((CH10)2)LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)<M:NBTL(TD%(1)0):///GET COMMAND 4900OAD GAME.PTRS":DK$"BLOAD GAME.SVAR":DK$"BLOAD GAME.STR">jJDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR">tJDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64">~J100G(111)(112)2561c=F:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."i=F}=8J /// RESTART=BJ:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";=LJA$:A$"Y"A$"N"19020=VJA$:A$"N"Ā=[JDK$(4)9>`JDK$"BL"18020S$"HEAL"12000@:>S$"POWER"13000V:>S$"SPEED"14000u: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ĺ:"THAT ISN'009:///SMILE COMMAND<9::M1NM:MD%(M,5)ROOM15100]9:MD%(M,14)15030,15040,150509:MN$(M);" GROWLS AT YOU":151009:MN$(M);" IGNORES YOU":151009:MN$(M);" ";V$;"S BACK":151009:M::3009>///SAY COMMAND9>4900:>S$"BLASLL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300:8,314020N86///SPEED SPELLg86S3:11500:SUC30086SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)96SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::3SHES!":AD%(A,4)0&72A:RAISEĺ:30073RR(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 THROUGH THE TUNNELS."::300/8"3RR95ĺ:"ATS62S4:11500:SUC30062RAISE0: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)62M:RAISER3ROOM:3600:30072A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANI:5.///HEAL SPELL.5.S2:11500:SUC300j5.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":5.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)05/DF0:7650:30062///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLO11600)4,SUCĺ:"NOTHING HAPPENED.":i4-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2}4 -S2%(S)S2%(S)24-5P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0//BLAST SPELL3+4900d3,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100}3,S1:11500:SUC3003,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3004,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL100%(M,3)MD%(M,3)(1(S$)100):9120=2'///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 CONTINUE)";:A$::A002$':300 3*/D%(M,3)(1AD%(A,1)100)q1#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)1#R3ROOM:3600:50501%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::300#2&%GOLD(GOLD(S$)):MD%(M,14)0:MDS$(S$,2):9060"0i#(S$)09500W0n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)190950x#:A22A23::"WHAT TO GIVE? ";S$:90650#:"YOU AREN'T CARRYING A ";S$;"!"::1000#AMD%(0,9)MD%(0,9)11#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)M /H!R2DR%(10(1)1):R218520&/R!;/(#///GIVE COMMANDD/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/Z#S$(S$,(MN$(M))1)0d#(S$,1)" "򽲬彶蠠䠠䩬堠堠嬠嬠䠠宠쬍䬠䠠򩬠堠堠󠠨嬠⬠䩬嬍砨͢Ƣ䬠䠠堠묠䠠䠠堠䠠䠠堠ᠠ򮍠堠ᠠ䠠堠宠󠠠䠠堠󬠠ᬍ堠ᠠ蠠栠䠠嬠䠠젠򮠠젨堠ΠĠԍ󬠠젠堠堠䠠ᠠ堠䠠Ӣ젠讍ǠРȠ΍ǠӠϠҠȠҍ栠堠堠堠墠䠠Ԭ堠宍젠젠堠䠠쮍̠ҠΠŠӍΠ䠠䠠砠           !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""          ":"AND SET LL TO YOUR LINE WIDTH LESS ONE.":"LINE WIDTH MUST BE AN EVEN MULTIPLE OF":"40, SO LEGAL LLS ARE 39,79,139,ETC." :"FINALLY, YOUR ROUTINE MUST DO A 'RETURN'": :DK$;"CLOSE" D"CLOSE" ,16368,0:120/ ///ADD PRINTER ROUTINE HERE "YOU ARE TO ADD A ROUTINE TO ACTIVATE":"YOUR PRINTER IN LINES 500-999. IT MUST":"DO YOUR PR#N (OR EQUIVALENT), SET SU"} "TO 1 IF YOUR PRINTER CANNOT ACCEPT":"LOWER-CASE CHARACTERS AND 0 OTHERWISE,A$:A$(13)1902 A$"_"SUA$((A$)C32)F I2$I2$A$:130L r (I2$,1)" "I0$""ĺI0$:I0$"" I0$""I0$I0$" " I0$I0$I2$:(I2$)39(I0$)LL5ĺI0$:I0$"" (16384)128120 16368,0 (16384)128240 $"PLAYER MANUAL.TEXT"K 2A$::"HIT 'P' TO USE PRINTER, 'V' FOR VIDEO ";g <A$:A$"P"A$"V"60 FA$:A$"P"İ500:100 PLL39 ZSU1:///CHANGE TO 0 IF YOU HAVE THE PAYMAR CHIP! d:DK$;"OPEN ";F$ nI0$"" xDK$;"READ ";F$:I2$"" DK$(4):C3232:5::11:"EAMON MANUAL PRINTER"::::"HIT KEY FOR MANUAL TO PRINT--"::" 1. PLAYER'S MANUAL"::" 2. DUNGEON DESIGNER'S MANUAL"::::"(HIT '1' OR '2') ";A$:C(A$):C1C230 (F$"DDD MANUAL.TEXT":C1F    򠠨ͬԬԬҩ宠堠蠠堠穮䠠砠堠嬠堠󠠨䠠婬䠠䠠嬠č栠ΠԮ堠󮍠栠쬠젠䠠堠䠠宠󮍠堠Ԡ堠嬠堠ήŬ堠砠ᠠ堠砠뮠ᠠ󠠠堠ᠠ䠠砠宍Ġ婠젠頠ŠƠŠΠΠō堠堠⠠栠堠󠠠򮠠ᠠ堠堠Ӡ嬠堠Šҍ栠ᠠ堠栠堠򬠠堠Ӎ宠堠嬠΍̠讍蠠堠Ӎᠠ堠䠠堠堠栠嬠נӠ婮堠ȠԮ堠ᠠ䠠䮠堠堠ŠҠ堠宩栠堠󠠠򬠠Ӡ宠󠠠砠䠠ōҢ堠Π̮Š̠ĠƍΠ䠠宠΍̠嬠ήŠ堠䠠堠󮠠堠堠䠠謠젠ήŠ堠뮍堠䬠ȠԠ堠렠ᠠӠ嬠䠠嬠䠠堠Ӎ嬠䠠󮠠堠䠠젠堢Ţ嬠䠠򬠠蠠젠䠠󠠨젠ᠠ堨嬠ĠӢᠠ堠렠栠堠䬍󩬠䠠󬠠젠򮍠쭭ᠠ嬠堠젠򮠠젠堠䭭栠捰堠堠󠠠堠堠󠠴󮠠򍳹󮠠堨婢嬠ԠōŠŢ䠠笠堠栠ᮠ嬠蠠砠󮠨΢砠Π堠宠򍠠䠠堠򮍠򍲵󠨢󮠠򬠠䠠򍠠宠䍠栠堠占䠠󍠠򠴰ĠĠө堠򍠠򍠠宍̭ɭ占堠󬠠砠썠􍠠򮍠̭­堠堠򍠠̭ŭ堠堠򍠠̭ĭ䠠占砠򮠠笠捠à占宍έᠠ砠堠嬠󮠠栠쬠堠砠뮠䬠堠砠󭭍í󬠠荠䠠堠󮠠堠젠堠堠蠠젠宠䠱栠栠󠠨蠠堠򍱰䠠栠䮍젠堠젠젠ᠠ젠蠠堠堠䠠砠䠠堠蠠堨򠠠堠󠠠ᠠ䠠ΠԠĩ堠󠠠堠ήӠήӠ㮩栠堠笠򡠠栠󠠹栠ΠԠ堠堠栠̠젠栢󢠠堠ﬠ堠堠栠ᠠ堠䬠堠Ġ嬍젠孭堠砠렠렠堠宠Į堠栠栠䮍Ԣ堠堠堠栠宠堠堠蠠젠󩬠򠠨ᠠ󠠰讠󠭱堠砠䠠堠򠠨󠠨堠堠栠砠ᠠ栱堨ᠠ󬠠堠婬堠젠쮠젠䠠嬠蠠򩬠⬍򬠠䩬栠姍嬠宍砨婠堠쬠䠳卲򠳩젠堠嬠堠堠蠠堠ᬠ報ᬠ箠󠠲䠳蠲򬠠栠ᠠ䠠䠠ﬠ䠠󠭱堠堰