' +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-(0 ΠӠˠ@跻~!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`0,10,2 $' SWORD,5,10,5,44 .' STARFIRE,5,80,10,6L 8' DRUINVAL,5,30,4,8M::AE25:SE$"M"nGO52647:BA200000:AC5:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wx1000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X):EAD EAMON.NAME":ADNAME$:DK$;"CLOSE"b :5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$::: $DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:200:DK$;"CLOSE":DK$;"RUN ";ADNAME$ '65,168,63,122 ' 39,0,36,34,67 ' CRYSTAL SWORD,5,6:AE:SEX$a GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wg m  :5:"INSERT ADVENTURE DISKETTE IN DRIVE ONE THEN HIT 'C' ";:16368,0 A$:A$"C"1020 % DK$;"OPEN EAMON.NAME,D1":DK$;"R0,10,2 $' SWORD,5,10,5,44 .' STARFIRE,5,80,10,6L 8' DRUINVAL,5,30,4,8M::AE25:SE$"M"nGO52647:BA200000:AC5:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wx1000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X):EAD EAMON.NAME":ADNAME$:DK$;"CLOSE"b :5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$::: $DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:200:DK$;"CLOSE":DK$;"RUN ";ADNAME$ '65,168,63,122 ' 39,0,36,34,67 ' CRYSTAL SWORD,5,6:AE:SEX$a GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wg m  :5:"INSERT ADVENTURE DISKETTE IN DRIVE ONE THEN HIT 'C' ";:16368,0 A$:A$"C"1020 % DK$;"OPEN EAMON.NAME,D1":DK$;"RM DK$(4)`dNAME$"SAM":HD24:AG18:CH24:X14:SA%(X)::X15:WA%(X)::AE25:SE$"M"nGO52647:BA200000:AC5:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wx1000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X):     FRESH MEAT":REC:200:DK$;"CLOSE":DK$;"RUN ";ADNAME$AR1NC:DK$"READ CHARACTERS,R";R:X$@ R;". ";X$::DK$:20F N A$T  DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE" :5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::7 $DK$;"OPEN FRESH MEAT":DK$;"WRITE DISKETTE INTO DRIVE 1"::" AND PRESS ANY KEY TO CONTINUE"I n1000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):W  >> LIST NAMES& ARACTER IS NOT HERE.":"TRY AGAIN.":20 2DK$;"READ CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE <SEX$ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE"? d:"INSERT ADVENTURE:" AND PRESS ANY KEY TO CONTINUE...";:16368,0:A$:G DK$(4) DK$"OPEN CHARACTERS,L150":DK$"READ CHARACTERS,R0":NC:DK$ "NAME OF ADVENTURER:";NA$:NA$"?"500 REC1NC:DK$"READ CHARACTERS,R";REC:N$' N$NA$Ă:DK$:"THAT CH8 ADVENTURE ONLY3 BY JOHN NELSON:  THIS PROGRAM ALLOWS YOU TO GO ON AN ADVENTURE WITHOUT USING THE MAIN HALL. YOU MUST RETURN TO THE SAME DISKETTE YOU CAME FROM: :6:"INSERT DISKETTE WITH CHARACTER DESIRED": 0 FME$(NA$,2)Ă:500x PD$"WRITE CHARACTERS,R";R:NA$:D$"CLOSE"::"O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.": "I CAN'T FIND ANY DEAD ";NA$:D$"CLOSE" A D$(4):Z:5:"INSERT MASTER DISKETTE AND PRESS"::" ANY KEY":A$:D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$("CHARACTER TO BE RESURRECTED:";NA$2R1NC:D$"READ CHARACTERS,R";R:N$:ME$ <N$""Ă:50 '410ISEX$(I):GOLD(I):BANK(I):AC(I)c<#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$r<#D$"CLOSE"x<#<' ///ONERR ROUTINE <'768<$'NC1(222)5NC0:410<.'D$;"CLOSE"<8'D$;"OPEN CHARACTERS,L150"S$;"14. ADD AS A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";SGHS22C):WS%(I,0)WS%(I,C):(DD$(0)DD$(C)J :(40(NA$(0)))2:NA$(0):" INPUT FIELD TO CHANGE:"::S$;" 1. NAME":S$;" 2. HARDINESS":S$;" 3. AGILITY":S$;" 4. CHARISMA" S$;" 5. SPELL ABILITIES":S$;" 6. WEAPON ABILITIES":S$;" 7. ARMOR"0)NA$(C):SEX$(0)SEX$(C):GOLD(0)GOLD(C):BANK(0)BANK(C):HD(0)HD(C):AG(0)AG(C):CH(0)CH(C)I14:SA%(I,0)SA%(I,C)::I15:WA%(I,0)WA%(I,C):AE(0)AE(C):AC(0)AC(C):I14:WN$(I,0)WN$(I,C):WT%(I,0)WT%(I,C):WO%(I,0)WO%(I,C):WD%(I,0)WD%(I, /// BY RECORD #."RECORD NUMBER:";CiCNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000xC1C:5000 /// NEXT RECORDCNCĺ:14);"END OF FILE.":C0:710(CC1:5000 /// MODIFY RECORD C0SUB1:1000]NA$($;"2. RECORD NUMBER":S$;"3. NEXT RECORD":S$;"4. RETURN TO MAIN MENU":X4:600:kS1100,1210,1300,510}L /// BY NAMEV"CHARACTER NAME:";NA$(0)`I1NC:NA$(I)NA$(0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000jCI:C1C:5000:"; lA$:S(A$):S1SX620*vA$:F /// CONTINUE PROMPT }:" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY KEY TO CONTINUE)";:A$:: /// SELECT RECORD Q:6:" SELECT RECORD BY:"::S$;"1. NAME":S;"2. MANIPULATE THIS RECORD":S$;"3. FILE MAINTENANCE"z&S$;"4. TRANSFER THIS RECORD":S$;"5. GENERATE A NEW CHARACTER"0S$;"6. UPDATE RECORD AND QUIT":X6:600:S1000,2000,6000,7000,8000,9000X /// GET NUMBER b:" INPUT (1-";X;")CTER ARRAYS ARE BEING SAVED TO DISK. RERUN THE PROGRAM TO CONTINUE.":9000:17);"EAMON"::" CHARACTER FILE MAINTENANCE":6:S$;" CHARACTER: NONE";:C0Ė21:NA$(C);" ";8::" SELECT ACTION:":6S$;"1. SELECT A RECORD":S$CHARACTERS FILE IS EMPTY."_ :S$;" YOUR ONLY OPTION IS TO":S$;" GENERATE A NEW CHARACTER. ::S$;:" DO YOU WISH TO DO THIS?";A$:A$"Y"8000 9050  /// MAIN MENU OUP0::FULL0Ģ8:" THE DIMENSIONED ARRAYS ARE FULL; THE CHARA"M"SEX$(I)"F"SEX$(I)""380P hD$:D$;"READ CHARACTERS,R";I:NA$(I):DD$(I)i rNA$(I)"(DEAD)":320 |GOLD(I):BANK(I):AC(I) J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I): I:D$ 216,0:NC0510 :10 " THE $(I)""320 10000P "DD$(I):DD$(I)""NA$(I)"(BAD DATA IN FILE)":400 ,DD(DD$(I)):DD$(I)""DD0NA$(I)"(DEAD)" 6DD0HD(I)DD:330 @HD(I) JAG(I):CH(I) TJ14:SA%(J,I)::J15:WA%(J,I): ^AE(I):SEX$(I):SEX$(I)RS FILE":::440$ NNC10:FULLN NA$(N),SEX$(N),GOLD(N),BANK(N),HD(N),AG(N),CH(N),SA%(4,N),WA%(5,N),AC(N),AE(N),WN$(4,N),WT%(4,N),WO%(4,N),WD%(4,N),WS%(4,N),UP(N),DD$(N) NC0420 I1NC D$;"READ CHARACTERS,R";I:NA$(I) NA SPACES :10^ " INSERT MASTER DISKETTE"::" AND PRESS ANY KEY":A$: /// INPUT DATA FROM DISK 215 D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$:216,0:220 216,0:(7)::"UNABLE TO LOAD CHARACTE4< EAMON CHARACTERS FILE MAINT BY TOM ZUCHOWSKI RLAST REV 1/30/95 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N:n 104,168,104,166,223,154,72,152,72,96xD$(4): S$" ":7                                    NM$NA$:STD$"Y"14500!.;BY JOHN NELSON9?M 8-24-84Z DK$(4)X14:SN$(X)::X15:WT$(X):d:"DO YOU WANT TO USE STANDARD?";ST$:ST$"N"ST$"Y"150ST$:ST$"Y"1500015000; :"NAME OF CHARA):WC%(X):WD%(X):WS%(X):h8DK$"CLOSE":DK$"OPEN EAMON.NAME":DK$"READ EAMON.NAME":AD$:DK$"CLOSE"{9DK$"RUN ";AD$:NAME$:HD,AG,CH:X14:SP%(X)::AE:AC:X15:WA%(X)::X14:WN$(X),WT%(X),WC%(X),WD%(X),WS%(X)::SEX$,GOLD,BANK:RE ===X8:5:"INSERT ADVENTURE TO TEST AND PRESS ANY"::" KEY TO CONTINUE"8A$::DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT"81:NA$:HD:AG:CH:X14:SP%(X)::X15:WA%(X):8AE:SEX$:GOLD:BANK:AC:X14:WN$(X):WT%(XARMOUR CLASSI`' 40,10,55,15,40: WEAPON ABIL: AXE/BOW/MACE/SPEAR/SWORDjj' MACE,3,10,1,4: 1ST WEAPONt' SWORD,5,10,1,8: 2ND WEAPON~' EXCALIBUR,5,25,2,8: 3RD WEAPON' NONE,0,0,0,0 : 4TH WEAPON' M,2000,40008 === GO ON ADVENTUA$"Y"A$"N"610% lA$"Y"14500. 230K ' BLAST,HEAL,SPEED,POWERj $' AXE,BOW,MACE,SPEAR,SWORD .' TESTOR: NAME 8' 20,18,16: HARDINESS/AGILITY/CHARISMA B' 50,90,60,50: BLAST/HEAL/SPEED/POWER L' 30 : ARMOUR EXPERTISE V' 4: (A$):AC X15 9X:958:WT$(X);" EXPERTISE (0-100%) ";WA%(X);:(36)((WA%(X)))1:"";A$:(A$)0(A$)100510 A$""A$(WA%(X)):(37):(WT$(X))21:A$ &WA%(X)(A$): X::" IS THIS ACCEPTABLE? (Y/N) ";::" "; bA$:NLY":" 2. LEATHER":" 3. LEATHER AND SHIELD":" 4. CHAIN MAIL":" 5. CHAIN AND SHIELD" " 6. PLATE ARMOUR":" 7. PLATE AND SHIELD":"INPUT NUMBER 1-7 : ";AC;(8); A$:(A$"1"A$"7")A$(13)470 A$(13)A$(AC) 9:13:958::AC7):10:CH, rHD(HD$):AG(AG$):CH(CH$)7 X14 SN$(X);" ABILITY (%): ";SP%(X);:(36)((SP%(X)))1:"";A$:(A$)0(A$)100Ģ(37):420 A$""A$(SP%(X)):(37):(SN$(X))15:A$ SP%(X)(A$):[ "ARMOUR TYPE:":" 1. SHIELD OCTER:";NA$;:(36)(NA$)1:"";A$:A$""A$NA$:1:19:A$F NA$A$ "HARDINESS:";HD;:11:"";HD$:HD$""HD$(HD):(37):11:HD ,"AGILITY:";AG;:9:"";AG$:AG$""AG$(AG):(37):9:AG ^"CHARISMA:";CH;:10:"";CH$:CH$""CH$(CH):(3"  ADVANCED BENCH3 BY JOHN NELSON9?M 8-24-84Z DK$(4)X14:SN$(X)::X15:WT$(X):d:"DO YOU WANT TO USE STANDARD?";ST$:ST$"N"ST$"Y"150ST$:ST$"Y"1500015000; :"NAME OF CHARA   K$"OPEN EAMON.NAME":DK$"READ EAMON.NAME":AD$:DK$"CLOSE"M 9DK$"RUN ";AD$:8A$::DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT"~ 81:"TESTOR OF BENCH":HD:AG:CH:BL:HE:SP:PO:X15:WA%(X): 815:"M":2000:1300:4:"AXE":1:10:1:6:"BOW":2:10:1:5:"MACE":3:10:1:4:"SWORD":5:10:1:8: 8DK$"CLOSE":DF "BLAST ABIL:";BL:"HEAL ABIL:";HE:"SPEED ABIL:";SP:"POWER:";POW{ WA%(1)15:WA%(2)0:WA%(3)30:WA%(4)10:WA%(5)20 X"ARMOUR:";AC  === GO ON ADVENTURE === 8:5:"INSERT ADVENTURE TO TEST AND PRESS ANY"::" KEY TO CONTINUE"6 N TEST BENCH, BY JOHN NELSON28F 2-29-84S DK$(4)zd:"DO YOU WANT TO USE DEFAULTS?";A$:A$"N"A$"Y"150A$:A$"Y"HD18:AG18:CH18:HE40:SP40:5000"HARDINESS:";HD:"AGILITY:";AG:"CHARISMA:";CH ROOM INTO,KEY#,STRENGTH,(NOT USED)V"L (NOT USED),(NOT USED),(NOT USED),(NOT USED)z"V MONSTER#,KEY#,GUARD#,ATTACHED"<T4);"MAXFILES 5") D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::" !! 8*!ފ 0,0,1,1,2,3,4,5,6,7,8H! ODDS,W.TYPE,DICE,SIDESr! KEY#,STRENGTH,(NOT USED),(NOT USED)!$ COUNTER,(NOT USED),(NOT USED),(NOT USED)!. CHANCES,HEAL AMT,NBR USES,(NOT USED)!8 1ST EFFECT,# EFFECTS,READABLE,(NOT USED)$"BTYPE,WEIGHT,ROOM~ 䉃 NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST HD110:DD$(D): zNF:FMP%(DT),FL$(DT,4):X0DT:FMP%(X)::X1NF:F14:FL$(X,F): :PR$"...................."):W HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAPON#,O.ODDS,W.DICE,W.SIDES|DT:TYP$(DT):X0DT:TYP$(X): 10 GOLD,TREASURE,WEAPON,SP.WEAPON,CONTAINER,LIGHT,HEAL,READABLE,DOOR,KEY,BOUND MON.A1AF:A$(A): Ɖ VALUE,X /// QUIT(bD$"CLOSE":D$"PR#0":8@PRTĺA$:rJAZ1(A$)40:MRG);(A$,AZ,40):LPLP1::LPLP1: >>> READ DATÄAF:MFꈃ 4,12: AF = # ARTIF FIELDS, MF = # MONST FIELDSM$(MF),M%(MF):M$(0)"ADVENTURER":M1MF:M$(M;"]";:M2:D$GLP36PRTLP0:(12);(SIZ(ADV$))21);ADV$:PRTĞ:7);"PRESS ANY KEY TO CONTINUE";6);:A$:::A$(27)ġ:100:p /// TOGGLE PRINTERzPRTPRTPRTMRG10:SIZ80PRTMRG0:SIZ40100 M23M24M27M210ĺ" %";MM25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";sM29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]";M29M%(9)0M%(9)NARĺ" [";AN$(M%(9));"]";M29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9))"PR#0":100| nD$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$"MONSTER # ";R;" [";MN$;"]":"DESC:":A$:LPLP4M2112:LPLP1:" ";M$(M2);(PR$,1,10(M$(M2)));(PR$,1,6((M%(M2))));M%(M2);"(BEG$)NM(BEG$)1BEG$"1"J(EN$)NM(EN$)(BEG$)EN$(NM)dBEG(BEG$):EN(EN$)D$"OPEN EAMON.MONSTERS,L128"PRTĺD$"PR#";PS:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:5500: D$"CLOSE EAMON.MONSTERS":D$:D$500ıYD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)ġ:100_x /// LIST MONSTERS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$8:958:"ENDING WITH #:";EN$:EN$""EN$(NM):8:15:EN$NE(BEG$)1BEG$"1"=(EN$)NE(EN$)(BEG$)EN$(NE)WBEG(BEG$):EN(EN$)lPRTĺD$"PR#";PS:LP500:RBEGEN:4500::D$D$"PR#0":100MRG);"EFFECT #";R;":"::LPLP2D$;"READ EAMON.DESC,R";R200:A$:A$LP:PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::MA$(27)ġ:100Sk /// LIST EFFECTS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$8:958:"ENDING WITH #:";EN$:EN$""EN$(NE):15:8:EN$(BEG$)03740,.A258:A$(A2)"(NOT USED)"3740{BLPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2);tA26(A%(2)2A%(2)3)ĭA%(A2)1A%(A2)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A28D$:;MN$((A%(4))1);"]";P A24A%(4)200A%(4)200NRĺ" [";R$(A%(4)200);"]";A24A%(4)100A%(4)100NARĺ" [INSIDE ";AN$(A%(4)100);"]";A24A%(4)300A%(4)300NRĺ" [HIDDEN ";R$(A%(4)300);"]";:A2:A%(2)103740$FMP%(A%(2))LP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2);x A22A%(2)10ĺ" [SPECIAL CATEGORY]";:3580 A22ĺ" [";TYP$(A%(2));"]";:3580 A24A%(4)0A%(4)NRĺ" [";R$(A%(4));"]"; A24A%(4)0A%(4)NM1ĺ" [CARRIED BY "%(A)::DV5A%(2)1āA58:A%(A):[ A%(2)DTāX14:A$(AFX)"FIELD "(AFX)::3520 FMP%(A%(2))0āX14:A$(AFX)FL$(FMP%(A%(2)),X): "ARTIFACT # ";R;" [";AN$(R);"]":LPLP2:D$;"READ EAMON.DESC,R";100R:A$:"DESC: ":A$G A214:LPG$)EN$(NA)' BEG(BEG$):EN(EN$)J D$"OPEN EAMON.ARTIFACTS,L128"k PRTĺD$"PR#";PS:(9);"80N" (SIZ(ADV$))2);ADV$:::RBEGEN:3500: D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100$ D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:AA$(27)ġ:100- /// LIST ARTIF.z 6:958:"BEGINNING WITH ARTIFACT:";BEG$:BEG$""BEG$"1":6:25:BEG$ 8:958:"ENDING WITH ARTIFACT:";EN$:EN$""EN$(NA):22:8:EN$ (BEG$)NA(BEG$)1BEG$"1"  (EN$)NA(EN$)(BEGRD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)h\DR%(D)99ĺ"[EXIT]";:2160fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";p:D:"LIGHT: ";LT:D$zPRTĺ::" PRESS ANY KEY TO CONTINUE ";::A$:::(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:2100:a/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1004:"ROOM # ";R;" [";R$(R);"]":"DESC:":D$;"READ EAMON.DESC,R";R:A$:A$H"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D):MLTG$""BEG$"1":6:18:BEG$V8:"ENDING WITH #:";EN$:EN$""EN$(NR):8:15:EN$y(BEG$)NR(BEG$)1BEG$"1"(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" PRTĺD$"PR#";PS:(9);"80N"3*0 DR$""DV4:DR$"6":216,0:D$;"CLOSE":35I DV5:D$;"CLOSE":35c  /// SET UP PRINTER 6:958:"WHAT SLOT IS PRINTER IN?"; A$:A$"1"A$"7"1020 A$:PS(A$):100  /// LIST ROOMS6:958:"BEGINNING WITH #:";BEG$:BET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON",PRT31,3PRT);")":" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CH CH1000,2000,3000,4000,5000,6000,7000 130AMON.MONSTERS,L128":R1NM:D$"READ EAMON.MONSTERS,R";R:MN$(R)::D$"CLOSE EAMON.MONSTERS"g cSIZ40~ d /// MAIN ROUTINE n:12);"EAMON DUNGEON LIST":14);"BY JOHN NELSON":(40(ADV$))21);::ADV$:L 8:"SELECT ACTION DESIRED:":" 1. SEMN$(NM)* 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$\ bD$"OPEN E PRESS ANY KEY ...";:16368,0:A$:3 200 :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$:DR$,DV:D$;"CLOSE" #216,0 (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ <35000 FR$(NR),AN$(NA), LIST DUNGEON- VERSION 6.0E BY JOHN NELSON^ MYLIST G BY TOM Zdj| REV. 2-9-85 (4);"MAXFILES 5") D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::"           NAMES,R"R:R$(R):, -RFLAG1K,-D$;"CLOSE":D$,"OPEN EAMON.DESC,L256":\,. /// QUIT w,.D$;"CLOSE":D$;"PR#0",.12050,/D$;"CLOSE,D1",/216,0:19,/868:::8:"*** END OF PROGRAM ***":AOOM DESC.  L(R$):SWLXĺ" [";R$;D EAMON.MONSTERS (RANDOM) =+,D$;"OPEN EAMON.MONSTERS,L128"+,R1NM:D$;"READ EAMON.MONSTERS,R"R:MN$(R):M112:MD%(R,M)::+,MFLAG1:11540+, /// LOAD EAMON.ROOM NAMES +,D$;"OPEN EAMON.ROOM NAMES,L";R2,-R1NR:D$;"READ EAMON.ROOM 112:MD%(R,M)::&*+MFLAG1:11540P*$, /// LOAD EAMON.ARTIFACTS (RANDOM) t*.,D$;"OPEN EAMON.ARTIFACTS,L128"*8,R1NA:D$;"READ EAMON.ARTIFACTS,R"R*B,AN$(R):A14:AD%(R,A)::AD%(R,2)1āA58:AD%(R,A):*L,:AFLAG1:11540+, /// LOACTS":D$;"READ EAMON.ARTIFACTS":AN$:R1NAj)p+AN$(R):A14:AD%(R,A)::AD%(R,2)1āA58:AD%(R,A):)z+:AFLAG1:11540)+ /// LOAD EAMON.MONSTERS (SEQUENTIAL) )+D$;"OPEN EAMON.MONSTERS":D$;"READ EAMON.MONSTERS":AN$:R1NM*+MN$(R):M(LOADING EAMON.MONSTERS)":DT11210,11210,11210,11410( +AFLAG0ĺ:7:"(LOADING EAMON.ARTIFACTS)":DT11110,11110,11110,11310(+RFLAG0ĺ:7:"(LOADING EAMON.ROOM NAMES)":11510( +(\+ /// LOAD ARTIFACTS (SEQUENTIAL) ,)f+D$;"OPEN EAMON.ARTIFAPON#,O.ODDS,W.DICE,W.SIDES.')A18:A$(A):D')D110:DD$(D):') VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES') N ,S ,E ,W ,U ,D ,NE,NW,SE,SW')D$;"OPEN EAMON.DESC,L256"')9000'* /// GET NEEDED FILES 5(+MFLAG0ĺ:7:"TIFACTS":NA:D$S&(::"ROOMS:";NR;" ART:";NA;" EFF:";NE;" MONSTERS:";NM:&(R$(NR),AN$(NA),AD%(NA,8),MN$(NM),MD%(NM,12),M$(12)&)D$;"CLOSE"&h) ///LIST HEADINGS &r)M112:M$(M):'|) HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOR,WEA(D$;"OPEN EAMON.DESC,L256"M%(DT2ĺD$;"READ EAMON.DESC,R0":NR,NA,NE,NMU%(D$r%(DT4R164:R264:10480%(R164:R232(DT(DT3))%(D$;"OPEN EAMON.MONSTERS":D$;"READ EAMON.MONSTERS":NM:D$&(D$;"OPEN EAMON.ARTIFACTS":D$;"READ EAMON.ARL128"Q$2(DT2ĺ:9:"VALUES FOR NR,NA,NE,NM":6:"ARE STORED IN EAMON.DESC,R0"$<(DT4ĺ::"CORRECT VALUES FOR NA AND NM ARE STORED AS THE FIRST VALUE IN THOSE FILES"$F(DT2ĺ:" NO VALUES STORED FOR NR OR NE"$( /// GET NR,NA,NE,NM %'" EAMON.ROOM NAMES..RANDOM,L"32(DT(DT3))X#'" EAMON.ARTIFACTS...SEQUENTIAL"#(" EAMON.MONSTERS....SEQUENTIAL"# (10290#(" EAMON.ROOM NAMES..RANDOM,L64"#(" EAMON.ARTIFACTS...RANDOM,L128"$((" EAMON.MONSTERS....RANDOM,REASURE ISLAND"DT1V"'DUNGN$""ĺ::(7);" THIS IS NOT AN EAMON DUNGEON DISK!":v"':(40(DUNGN$))2:DUNGN$"'::" DATA STORAGE TYPE ";DT"':" EAMON.DESC........RANDOM,L256""'" EAMON.ROOMS.......RANDOM,L64""'DT4102600#z #  ĠȠ ΠӠŠԠ7 ҠȠ ԠŠ Ƞ͠ ԠΠҮͮ ͠Ӡ٠͠Ԡ ؠΠԠ! ΠԠڠ&ΠԠǠԠȠ ӠԠ ԠŠ Š٠Ӡ àԠ*̠ˠӠĠԠϠӠĠ  ԠŠ̠ ΠӠҠŠҠïà֠ ΠӠ ӠԠ͠ӠԠΠӠˠ ՠ ԠŠ ٮԠ ԮҠůРŠΠŠ7:9:"4. DESCRIPTION MAINTENANCE"D7:11:"5. KILL LOWER CASE"s7:13:"6. CONVERT LOWER CASE/UPPER CASE" 1600:C1C61200C1310,1320,1330,1340,1670,1350936:D$;"RUN CHANGE EAMON NAME"(936:D$;"RUN EAMON CHARACTERS FILE ON ANALYSIS"6j936:D$;"RUN UNIVERSAL CHECK FILES"= \ ADVENTURE MAINTENANCE 936:7::"EAMON ADVENTURE MAINTENANCE":7:3:"1. CHANGE EAMON NAME"7:5:"2. CHARACTER FILE MAINTENANCE"7:7:"3. CHARACTER REBIRTH"#:9:"4. CHECK EAMON DISK FILES"=.7:11:"5. LAST UPDATE"U81600:C1C51000uBC1100,1110,1120,1130,1670L936:9:15::"REFER TO UTILITY.LIST"::D$;" RUN FREESPACE/FILEDUMP"V936:D$;"RUN EAMON DOS REMOVER" `936:D$;"RUN VERSIRUN DUNGEON LIST Z"9936:D$;"RUN DUNGEON LIST 6.0G"@ ^ DISK/DOS MAINTENANCE 936:6::"EAMON TEXT/DISK/DOS MAINTENANCE":7:3:"1. DISK FREESPACE / FILE DUMP"7:5:"2. REMOVE DOS"7:7:"3. VERSION ANALYSIS" $7EON LIST 2.1",\7:9:"4. DUNGEON LIST Z"Of7:11:"5. DUNGEON LIST 6.0G"fp1600:C1C5800zC900,910,920,930,940936:D$;"RUN DUNGEONAID"936:D$;"RUN LIST EAMON R.A.M."936:D$;"RUN FLEX DUNGEON LIST 2.1"936:D$;":D$;"RUN ADD LIGHT TO ROOMS"?936:D$;"RUN ROOM ANALYSIS"e936:D$;"RUN QUICKY ROOM PRINT"l  * DUNGEON LISTERS 4936:6::"EAMON DUNGEON LISTERS":>7:3:"1. DUNGEON AID"H7:5:"2. LIST EAMON R.A.M." R7:7:"3. DUNG2. ROOM NAME CONVERT"8 7:7:"3. ADD LIGHT TO ROOMS"V 7:9:"4. ROOM ANALYSIS"y 7:11:"5. QUICKY ROOM PRINT" 1600:C1C5600 C700,710,720,730,740 1650:D$;"LOAD ROOMS CONVERT" 1650:D$;"LOAD ROOM NAMES CONVERT"936C480,490,5007 1650:D$;"LOAD ARTIFACTS CONVERT"` 936:D$;"RUN ARTIFACT MAINTENANCE" 936:D$;"RUN REMOVE DUMMY ARTIFACTS" X b ROOM MAINTENANCE l936:7::"EAMON ROOM MAINTENANCE": v7:3:"1. ROOM CONVERT" 7:5:"C400,600,800,1000,1200,1400,1660,1680-  J  ARTIFACT MAINTENANCE y 936:6::"EAMON ARTIFACT MAINTENANCE": 7:3:"1. ARTIFACT CONVERT" 7:5:"2. ARTIFACT MAINTENANCE" 7:7:"3. REMOVE DUMMY ARTIFACTS" 1600:C1C3400 :7:"5. ADVENTURE MAINTENANCE"C :7:"6. TEST/PLAY ADVENTURES"i ":7:"7. PRINT OUT UTILITY.LIST"} ,:7:"8. EXIT" 6:"IMPORTANT: NOT ALL UTILITIES WORK WITH ALL EAMON VERSIONS. READ UTILITY.LIST FOR DETAILS." @1630:C1C8200& JC0: COUNTER FOR SCREEN SELECTION* A MENU SELECTION n 936:7::"EAG EAMON UTILITIES DISK": :7:"1. ARTIFACT MAINTENANCE" :7:"2. ROOM MAINTENANCE" :7:"3. DUNGEON LISTERS" :7:"4. TEXT/DISK/DOS MAINTENANCE" HE EAMON UTILITIES DISK MENU BY PHILLIP MOORE REV 2.1 FEB 1996 X REV 2/28/96  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012-9408 d VARIABLES n A$ = COUNTER FOR SUB SCREEN SELECTIONxD$(4): DOS COMMAND#       <X11000:! FD$;"RUN MENU"' P)2/18/96 5g"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"(10:"UTILITIES DISK"::2:"RUN THE PROGRAM NAMED 'LIST.PRINTER' TO GET A PRINTOUT OF DESCRIPTIONS OF THE FILES ON THIS DISK."7D$(4) ӠԠήӠ宠ήӠ׮Ӡ讠ήӠ׮Ϡ亠̠ߍΠӠ󠱠蠶򠷮̠ˠӮߍԠ宍ߍïà֠쩍Ġ쮠嬠ĠӠ뮠䮍ߍŠҠ쩍墠ԠŮԠŠ宍ߍΠӠҠ쩍젳ήŠ箍ߍԠŠ̠쩍Ǡ嬠ԠŠɫӮߍŠΠŠΠŠؠӠǠРŠˠɫͱӮРǠ덍ź䮍ߍůР쩍Š       INTER"A936:4:15::"REFER TO UTILITY.LIST BEFORE USING":G:24:"YOUR SELECTION : ";:A$:A$:C(A$):A$(13)A$(27)100Ghr936:9:"BEFORE RUNNING REFER TO THE UTILITY.LISTFOR INSTRUCTIONS "::"AFTER THE PROGRAM IS LOADED INSERT EAMON DISK AND TYPE RUN":::"LOADING"::|:D$;"RUN LIST.PR6:9:"AFTER THE PROGRAM IS LOADED INSERT EAMON MASTER DISK AND TYPE RUN":::"LOADING"::D$"LOAD START ADVENTURE"936:D$;"RUN FRESH SAM"@ J MISCELLANEOUS STUFF T20::"PRESS RETURN / ESC TO EXIT TO MAIN MENU":A^16368,07:3:"1. TEST BENCH"97:5:"2. ADVANCED TEST BENCH"Y7:7:"3. START ADVENTURE"7:9:"4. ADVANCED CHARACTER (SAM)"1600:C1C41400C1490,1500,1510,1520936:D$;"RUN TEST BENCH"936:D$;"RUN ADVANCED BENCH"y93MAINT"'2936:D$;"RUN CHAR REBIRTH"E<936:D$;"RUN DESC EDIT"F936:10:15::"REFER TO UTILITY.LIST"::D$;"BLOAD LC/UC CONV"::"PROGRAM LOADED":1680x  TEST/PLAY ADVENTURES 936:7::"EAMON ADVENTURE TEST / PLAY":Ȭ󮠠堲ĸ䮍ߍΠӠŠԠ쩍Ӡ䠢袩庠堢笠򮍠ߍĠȠ쩍Ԡ 堶Ĭ󮠠ΠԠ󡍠ߍԠȠ쩍쮠宍ߍΠԠǠΠԠԠ󮍍宍躠󮍍፠ߍΠԠڠ뮠󺍍Π̍٠͠Ԡ󮠠򮍠ߍؠΠԠ쮠򮍠ߍ͠Ӡ󮠠򮍠ߠĠ򮍠ߍԠΠҮͮ󮍠ߍĠԠϠӠ堢ᠨ婠ߍ󮍠ߍ̠ˠӠ󮠠󮠠堢󮠠ߍàԠ宍ߍŠ٠Ӡᠢ٢堢좠嬠宠ᠢ٢ӠԠή͠ӠήӬߍԠŠӠήӠ宍堲宍ߍ͠ӠԠӠԠ$(4) A50( FD$"OPEN EAMON.NAME"4 KND$"6"S PD$"READ EAMON.NAME":ADV$] U100f ZND$u dD$"CLOSE" n:6:" OLD ADVENTURE NAME IS ...": x" ";::ADVNAM$:: ::"NEW NAME:";NAM$ "AUTHOR NAME:";AU$1 "ADVENTURE  RENAME EAMON ADVENTURE: BY JOHN NELSON@ THIS PROGRAM WILL RENAME ANY 6.0 ADVENTURE  2/19/962:6:" INSERT EAMON ADVENTURE DISKETTE AND "::12);"PRESS ANY KEY...";:16368,0:A$: <D  DF:20 8E FD 20 A3 A2 20 8C A6 F0 05 20 ED FD D0 F6 20 FC A2 60 N A8E7:46 49 4C 45 44 55 4D D0 N 9D48:DE BC N A933:20 30 N D9C6G":130:144 } I1(HEX$):511I,((HEX$,I,1))128::72,0:)D DOS 3.3 ONLY!!!"::! :"DO YOU WANT BOTH (Y/N) F0 88 D0 E9 A6 40 A5 41 AC 06 E0 D0 03 4C 24 ED 4C 1B E5 N D7D2G":130:144 nFS$"Y"HEX$"B3AF:BD C5 C3 C1 D0 D3 A0 C5 C5 D2 C6 A0 N ADB9:EA A9 00 85 40 85 41 20 69 BA N D7D2G":130:144 wFD$"Y"ĺ" INSTALLING FILEDUMP" xFD$"Y"HEX$"BC?";B$:B$"Y"FS$"Y":FD$"Y":90U "DO YOU WANT FILEDUMP (Y/N) ?";FD$:FD$"Y"90 ("DO YOU WANT FREE SPACE (Y/N) ?";FS$ ZFS$"Y"ĺ" INSTALLING FREE SPACE"M dFS$"Y"HEX$"BA69:A0 C8 18 B9 F2 B3 F0 0E 0A 90 FB 48 E6 40 D0 02 E6 41 68 18 90 :5 "MODIFIES DOS TO GIVE FREE SPACE=XXX AT CATALOG, AND INSTALLS FILEDUMP, WHICH REPLACES MAXFILES, AS A COMMAND WHICH PRINTS TEXT FILES:FILEDUMP FILENAME,SX,DX":"USE ON STANDARD DOS 3.3 ONLY!!!"::! :"DO YOU WANT BOTH (Y/N) $P$A$:(P$)80800 < xP8011:(P$,P,1)" "ĂU L1:(P$,1)" "L2 :(P$,L,P1):LPLP1:2000:P$(P$,P):P0::800 LP60ĺ(12):LP0 4 216,0:P$::D$;"CLOSE":D$;"PR#0" 120G THE DESIRED TASK:"::" 1) PRINT":" 2) EXIT"* :"ENTER CHOICE...";Q 16368,0:A$:A(A$):A1A2170^ :A2Āl ,D$"PR#1" D$"OPEN UTILITY.LIST" 5000 XD$"READ UTILITY.LIST" A$ A$(13)L1((P$,1)" ")::(P$,L):P$"":A$"":LPLP1:2000 P 2/19/96"dD$(4):(21)xx:::"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012":::"THIS PROGRAM WILL PRINT THE UTILITY.LIST TO A PRINTER IN SLOT 1":: "TYPE THE NUMBER OF THE DESIRED TASK:"::" 1) PRIN  򠨢󮠠ɠ箍䢮ߍȠ͠쩍쮠Ӡ宠宍ߍԠŠ쩍嬠Ӡ宠Ӡ宠宍ߍҠȠ쩍ᠢ䢠4gh` a8 ȱ8,0,0,1,239,2168E(791):E16E64E128Ĺ791,0:WE16ĺ:"WRITE PROTECTED"rE64ĺ:"DRIVE ERROR"E128ĺ:"READ ERROR"(7);(7):: ATHIS *ONLY* WITH UNMODIFIED DOS 3.3"::2"SLOT?";:S$:S$:S(S$):S1S750& <:"210,201,214,197,160,163,177D h141,193,206,196,160,208,210,197,211m r211,160,188,210,197,212,213,210,206 |190,141,160,160,160,160,160,160,160 160 169,48,160,10,32,217,3,96,0 0,1,96,1,0,0,0,32,48 0,32,0,0,2,0,0,96,10,0,0,0197,160,196,207,197,211,160,206,207N ,212,160,200,193,214,197,160,196,207w 6211,160,207,206,160,201,212,141,208 @204,193,195,197,160,212,200,197,160 J211,217,211,212,197,205,160,196,201 T211,203,197,212,212,197,160,201,206 ^160,196, , 0,173,232,192,169,240,133,54,169Q 253,133,55,32,88,252,32,221,251p 169,0,141,5,3,172,5,3,185 51,8,32,237,253,238,5,3,173 5,3,201,96,240,3,76,23,8 32,27,253,76,0,198,212,200,201 211,160,196,201,211,203,197,212,212% "0:787,32 768:2000A X60674:8192X,255:8193X,255:W 790,2:768:2000o X81928448:X,0: 786,0:787,32 790,2:X02:Y015:782,X:783,Y:768:2000 : ,I81928345:A:I,A: @I1228812323:A:I,A: J12288DRIVE?";:S$:S$:D(S$):D1D260L F779,S16:793,S16:780,D:794,D^ P781,0:792,0p Z791,0:790,1 d:"INSERT DISK TO BE MODIFIED, AND PRESS 'C' TO REMOVE DOS, OR ANY OTHER KEY TO ABORT": nA$:A$:A$"C"Ā x782,17:783,0:786, ::D$(4)*J768800:I:J,I: 169,3,160,10,32,217,3,96,0,0,1,96,1,0,0,0,27,3,0,32,0,0,1,0,0,96,1,0,1,239,216,0,0(14:"DOS REMOVER":::"USE THIS *ONLY* WITH UNMODIFIED DOS 3.3"::2"SLOT?";:S$:S$:S(S$):S1S750& <:"y A$"A"(8)D$(4)."DATE: ";U$ID$;"UNLOCK ";A$;",D1"q(D$;"RENAME";A$;",LAST UPDATE: ";U$w<  "NO CHANGE MADE":1850^ :"FILE IS LOCKED. IF YOU WISH TO CHANGE ITANYWAY, PRESS 'C' ..."; A$::A$"C"ĺ:"NO CHANGES MADE.":1850 D$;"UNLOCK EAMON.NAME":1050 : === DONE === l"PROCESSING COMPLETED." ;:16368,0:A$: <D"PROCESSING COMPLETED"T :"YOU SHOULD SEE SEVERAL PROMPTS.":"THIS IS NORMAL."h D$;"EXEC TEMP"n   === ERROR === ERR(222):ERR101700 @ERR6ĺ:"FILE NOT FOUND. TERMINATING.":1850 r"UNABLE TO COMPLETE. ERROR CODE = ";ERR:D$;"OPEN TEMP":D$;"WRITE TEMP":"LOAD EAMON ADVENTURE #";NUM:"0 A$=";(34);NAM$;(34);":A2$=";(34);AU$;(34);":NUM=";NUM P"UNLOCK EAMON ADVENTURE #";NUM:"SAVE EAMON ADVENTURE #";NUM:"LOCK EAMON ADVENTURE #";NUM:"DELETE TEMP" ZD$;"CLOSE" x #";NUM$:(NUM$)2(NUM$)254Ģ(37):958:160A NUM(NUM$)L 1500g D$"UNLOCK EAMON.NAME" D$"DELETE EAMON.NAME" LD$"OPEN EAMON.NAME" ~D$"WRITE EAMON.NAME" NAM$:ND$:"6.0" D$"CLOSE" D$"RENAME ";ADVNAM$;",";NAM$} F  D$(4)OD$;"OPEN EAMON.ROOM NAMES,L64":D$;"OPEN NEW.ROOM NAMES,L32"[I187(D$;"READ EAMON.ROOM NAMES,R";I:A$2D$;"WRITE NEW.ROOM NAMES,R";I:A$<FD$;"CLOSE";  D$(4)ED$;"OPEN EAMON.ROOMS,L64":D$;"OPEN NEW.ROOMS,L20"QI187(D$;"READ EAMON.ROOMS,R";I:J16:D%(J):2D$;"WRITE NEW.ROOMS,R";I:J16:D%(J):7D$<FD$;"CLOSE"2:" (PRESS ANY KEY) ... ";:A$::100Q*:"UNEXPECTED ERROR... LINE ";LN: -Y JOHN NELSONio{2D$(4)<NV:X1NV:LR$(X),LN$(X),LD$(X),LA$(X),LM$(X): d:6:"INSERT EAMON DUNGEON DISKETTE AND PRESS"::" ANY KEY TO CONTINU0 DISKS *Z# L64,L64,L256,L128,L128, W_# VERSION 6.0 DDD VERSION 6.0 DISKS xd# L64,L64,L256,L128,L128' === ERROR ==='LN(218)(219)256$'LN200250.'LN160250)8'LN150ĺ:"THIS DUNGEON IS NOT PROPERLY FORMATTED.":L32,L256,"",""< 7# VERSION 2 - LAIR OF MINOTAUR Y <# L64,L64,L256,"","" A# VERSION 3 - CAVE OF THE MIND F# L64,L64,L256,"","" K# VERSION 4 - MOST OTHERS P# L64,L64,L256,L128,L128U# VERSION 5 - DDD 5.ĺ:"OOPS! - I MISSED!":; DV4ĺ"IT'S NAME IS ";AD$: $DV2ĭAD$"THE CAVE OF THE MIND"AD$"LAIR OF THE MINOTAUR"ĺ:"OOPS! - I MISSED!": (# === FILE LENGTHS === )# 6 -# VERSION 1 - BEGINNERS CAVE TREASURE ISLAND  2# L64, EAMON.ROOM NAMES,R";X:RN$:, 0DV1:1000^ XDVDV1:DV4ĺ:"I CAN'T FIGURE THIS OUT.":g b510  === I GOT IT! === :"THIS DUNGEON IS A VERSION ";DV;".0":" DUNGEON.": DV1ĭAD$"THE BEGINNERS CAVE"AD$"CAVES OF TREASURE ISLAND";(",R",1,(LA$(DV)));((X),1,(LA$(DV))):X1$,X2$,X3$,X4$F r:500| DVDV1:DV4ĺ:"I CAN'T FIGURE THIS ONE OUT.": 320 DV41000 D$;"CLOSE" D$;"OPEN EMAON.ROOM NAMES";(",",1,(LN$(DV)));LN$(DV) 600 &X17:D$;"READE ...";:A$: x10000S D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":AD$:DV1a ND$:DV5i DVy D$;"CLOSE" , === CHECK ART/MON === @390 ^D$;"OPEN EAMON.ARTIFACTS";(",",1,(LA$(DV)));LA$(DV); hX15:D$;"READ EAMON.ARTIFACTS"S EAMON DUNGEON1 VERSION ANALYSISE PROGRAMKc BY JOHN NELSONio{2D$(4)<NV:X1NV:LR$(X),LN$(X),LD$(X),LA$(X),LM$(X): d:6:"INSERT EAMON DUNGEON DISKETTE AND PRESS"::" ANY KEY TO CONTINU    % ߠȱȱa)ߑ`ONTINUE ...";:16368,0:A$:& 15] D$"UNLOCK EAMON.DESC":D$"UNLOCK EAMON.ARTIFACTS" D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$:216,0# A$(NA):D$;"OPEN EAMON.ARTIFACTS,L128":A1NA:D$;"READ EAMON.ARTIFACTS,R";A: EAMON 9 REMOVE DUMMY ARTIFACTS X THIS PROGRAM WILL REMOVEw UNNEEDED ARTIFACTS FROM  EAMON FILES. 2/19/96 D$(4): :6:"INSERT EAMON ADVENTURE DISKETTE AND "::05);"PRESS ANY KEY TO C     CELvUPUP:"UPDATE IS ";("CANCELLEDIN EFFECT",UP91,9)::"====== PRESS ANY KEY TO CONTINUE ======";:A$::100p /// QUITzUPĺ:"UPDATE HAS NOT BEEN APPLIED."::"PRESS ANY KEY TO CONTINUE";:A$::100D$"CLOSE"C":D$"UNLOCKI:D$:A AIA1NIIA:AN$(A)"DUMMY":A218:AD%(A,A2)0:A2,AS NANANI:100c /// APPLYA1NA:D$"WRITE EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2,AD$"WRITE EAMON.DESC,R0":NR:NA:NE:NM:D$UP0100 /// CANHIS CORRECT? (Y/N) ";3 A$:A$"Y"A$"N"3045G A$:A$"N"100 UP1:X0:INANIIA11:D$"READ EAMON.DESC,R";INI100:RD$:D$"WRITE EAMON.DESC,R";I100:(34);RD$;(34) AN$(I)AN$(NAX):A218:AD%(I,A2)AD%(IANI1,A2):A2 XX1:D$:NANAND 100# /// ADDj 6:958::"HOW MANY TO INSERT?";NI$:(NI$)1(NI$)NA1003010 8:"AFTER WHICH ARTIFACT:";IA$:(IA$)1(IA$)NART3020 :NI((NI$)):IA((IA$)):"INSERT ";NI;" ARTIFACTS AFTER ";IA;"." 6:"IS T1% 6:"IS THIS CORRECT? (Y/N) ";C A$:A$"Y"A$"N"2045W A$:A$"N"100 UP1:DD1NDNA:D$"READ EAMON.DESC,R";D100:RD$:D$"WRITE EAMON.DESC,R";DND100:(34);RD$;(34) AN$(DND)AN$(D):A218:AD%(DND,A2)AD%(D,A2):A2 D:EY TO CONTINUE ======";:A$::1003  /// DELETEv 6:958:"HOW MANY TO DELETE?";ND$:(ND$)1(ND$)NART2010 8:958:"FIRST ARTIFACT TO DELETE:";D1$:(D1$)1(D1$)NART2020 ND(ND$):D1(D1$)::"DELETE ARTIFACTS ";D1;" THRU ";D1NDUT YOUR CHOICE (1-6):";4 A$:(A$)1(A$)6130a A$:(A$)1000,2000,3000,4000,5000,6000p  /// LIST :LP0:A1NA:" ";A;". ";AN$(A):LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:A$::LP0: " B:"====== PRESS ANY KA:D$c d:17);"EAMON":9);"ARTIFACT MAINTENANCE":12);"BY JOHN NELSON":10:"SELECT ACTION:" i" 1. LIST ARTIFACTS":" 2. DELETE ARTIFACTS":" 3. INSERT ARTIFACTS":" 4. APPLY CHANGES TO FILE" n" 5. CANCEL CHANGES":" 6. QUIT" x"INP EAMON.ARTIFACTS"T D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NMm (AN$(100),AD%(100,8) 2D$"OPEN EAMON.ARTIFACTS,L128" <A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2): F  ARTIFACT MAINTENANCE3 FOR EAMONL BY JOHN NELSONRXf 2/19/96l| D$(4)::6:" INSERT EAMON ADVENTURE DISKETTE AND"::6);"PRESS ANY KEY TO CONTINUE ...";:A$: D$"UNLOCK EAMON.DESC":D$"UNLOCK    A%(J): 7D$ <I& AD$;"CLOSE", FS.  D$(4)ND$;"OPEN EAMON.ARTIFACTS,L128":D$;"OPEN NEW.ARTIFACTS,L64"ZI192(D$;"READ EAMON.ARTIFACTS,R"I:A$:J14:A%(J)::A%(2)2A%(2)3āJ58:A%(J): 2D$;"WRITE NEW.ARTIFACTS,R"I:A$:J14:A%(J)::A%(2)2A%(2)3āJ58:0,2400#600:DE$I2$:18000:100:4 --- ROOM ADD ---O>NRNR1:RECNR:f --- ART. ADD ---NANA1:RECNA100: --- EFF. ADD --- NENE1:RECNE200:` --- MON. ADD ---j NMNM1:RECNM300: --- EDIT A DESC --- UP25REC1NR:DE$:18000:-NA01035QR1NA:REC100R:DE$:18000:` NE01045R1NE:REC200R:DE$:18000:NM01055R1NM:REC300R:DE$:18000:B100--- ADD A DESC ---UP1:10000:ST2100,2200,230625 A$(21)A$" ":625^ A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615 A$(8)(I$)I2$I$I2$:A$;:600 A$(8)600 A$(27)ĺI2$:I$I$I2$: 615  --- INIT BEGIN CAVE --- NR,NA,NE,NM:UP1NR0100ĺ(7);:615; qA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615d vA$(5)ĺI2$;:I$I$I2$:I2$"":615 {A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615 A$(4)I2$(I2$,2):610 A$(9)I2$" "I2$:610 A$(21)(I2$)A$(I2$,1):A$:A$"1"A$"5"170> A$:(A$)1000,2000,3000,4000,5000r X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$| ]I$"" bI2$;:958:(I2$)āA1(I2$):(8);: gA$:A$(13)Č958:: l(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)25ON EDIT":12);"BY JOHN NELSON"@ x8:4:"SELECT OPTION ...": " 1. INITIALIZE BEGINNER'S CAVE"::" 2. ADD A DESCRIPTION" :" 3. EDIT A DESCRIPTION"::" 4. VIEW A DESCRIPTION"::" 5. QUIT" :"INPUT NUMBER (1-5) [_]";(8);(8); E...";:16368,0:A$:9 2 ROOM,ARTIFACT,EFFECT,MONSTERU <DK$"UNLOCK EAMON.DESC"u FDK$;"OPEN EAMON.DESC,L256" PDK$;"READ EAMON.DESC,R0":X14:N%(X)::NRN%(1):NAN%(2):NEN%(3):NMN%(4):DK$ d --- MAIN MENU --- n:9);"EAMON DESCRIPTI(# EDIT DESCRIPTION PROGRAM< BY JOHN NELSONBT REV 2/19/96Z DK$(4):D$DK$::X14:TYP$(X)::5:" EDITING EAMON DESCRIPTION FILE"::" INSERT DISKETTE WITH ADVENTURE" :" PRESS ANY KEY TO CONTINU          NTINUE ======";:A$:::LP0W::"====== PRESS ANY KEY TO CONTINUE ======";:A$::_40s === DEL NONE?DL0ė:"PROGRAM HAS CALCULATED NO DELETIONS.":"WHY BOTHER?":"AN OVERLAP WOULD OCCUR. CANNOT CONTINUE.":PRESS ANY KEY TO C:(34);DE$;(34)RSD$"WRITE EAMON.DESC,R0":NR:RMNM:NE:NM:D$"CLOSE"Yl === VIEW ===:LP0:A1NA2:2((A)));A;"> ";(A$(A),12);:ANARĺ20((A1)));A1;"> ";(A$(A1),12)LPLP1:LP22ĺ"====== PRESS ANY KEY TO COARTIFACTS,L128"!nRRMDL1NAhD$"READ EAMON.ARTIFACTS,R";R:AN$:A1,A2,A3,A4:A21ĄA5,A6,A7,A8D$"WRITE EAMON.ARTIFACTS,R";RDL:AN$:A1:A2:A3:A4:A22ĺA5:A6:A7:A8D$"READ EAMON.DESC,R";R100:DE$:D$"WRITE EAMON.DESC,R";RDL100D$:BD$"N"BD$"C"88/ YBD$:BD$"N"NM0 Z:RM;" ARTIFACTS TO REMAIN ON FILE - PLUS":"BODIES FOR ";NM;" MONSTERS = ";RMNM:"IS THIS CORRECT? (Y/N):"; _A$:A$"Y"A$"N"95 bDLNARMNM:DL12000 dA$:A$"N"70iD$"OPEN EAMON.65 DA$:A$"V"1000% EA$"S"ĀY F:"NUMBER OF ARTIFACTS TO REMAIN:";A$:RM(A$) PRM(RM)RMNARM10ĺ"THAT CANNOT BE ACCEPTED.":70 U:"IF THERE ARE NO MONSTER BODIES ON THE ARTIFACT FILE, PRESS 'N'; OTHERWISE PRESS 'C' "; XBFILES ARE SET UP":"CORRECTLY BEFORE RUNNING THIS PROGRAM." 4:"YOU MAY VIEW THE NAMES OF ALL ARTIFACTS BY PRESSING 'V' AT THE NEXT INPUT.": <"PRESS 'S' TO STOP; 'V' TO VIEW ARTIFACTS":"OR 'C' TO CONTINUE --> "; AA$:A$"V"A$"S"A$"C"A$(A)::D$;"CLOSE EAMON.ARTIFACTS" (:"YOU WILL BE REQUESTED TO INPUT THE ":"NUMBER OF ARTIFACTS THAT YOU WANT TO ":"KEEP. THIS WILL BE THE NUMBER OF "; 2"ARTIFACTS TO REMAIN ON THE FILE. (DO ":"NOT COUNT MONSTER BODIES.)"::"BE SURE THE EAMON BRARY. MOST OF THE BOOKS HAVE BEEN DESTROYED, WITH THE SCRAPS LYING ON THE GROUND. A DOOR, TORN FROM ITS HINGES, ALSO LIES ON THE GROUND. THE EXIT IS TO THE EAST." Rv" YOU ARE IN A T-INTERSECTION.A BRIGHTLYBURNING TORCH IS BOLTED TO THE SOUTH W EAST.">v" YOU ARE IN THE TEMPLE. PICTURES OF GREAT DEEDS COVER THE WALLS. THERE ARE TWO ALTARS HERE, ONE COVERED WITH GOLD PAINT AND THE OTHER STAINED WITH BLOOD. THE ONLY EXIT LEADS TO THE WEST."Hv" YOU ARE IN WHAT WAS ONCE OBVIOUSLY A LIYOU SEE TORCHLIGHT TO THE SOUTH."~*v" YOU ARE IN A SECRET EAST/WEST PASSAGE.YOU HEAR A FAINT MELODY COMING FROM THE EAST."4v" YOU ARE IN AN EAST/WEST PASSAGE. YOU CAN VERY CLEARLY HEAR RELIGIOUS MUSIC BEING PLAYED, AND CAN SMELL INCENSE FROMTHE EAST AND WEST.THE HALL GOES NORTHFROM HERE, AND A BROKEN TUNNEL GOES SOUTH."v" YOU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE WEST SIDE."! v" YOU ARE IN A TUNNEL GOING NORTH AND SOUTH. THE SIDES OF THE TUNNEL ARE VERYBROKEN AND ROUGH. XTENDS NORTHAND SOUTH."]u" YOU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE WEST SIDE."v" YOU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE EAST SIDE."Q v" YOU ARE AT THE SOUTH END OF THE LONG HALL. TO YOUR GREAT SHOCK ARE TWO DOORS ON THEU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE WEST SIDE OF THE ROOM."u" YOU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE EAST SIDE."u" YOU'RE IN THE MIDDLE OF THE LONG HALL.DOORS ARE BOLTED ON BOTH SIDES OF YOU (EAST AND WEST). THE HALL EHE ROOM."u" YOU ARE AT THE NORTH END OF A LONG HALL. A TUNNEL GOES NORTH. TO THE EAST AND WEST ARE DOORS THAT ARE BOLTED SHUT (LOCKING SOMETHING IN?) IN THE DIM LIGHTYOU CAN SEE THAT THE HALL GOES SOUTH,BUTYOU CANNOT MAKE OUT ANY DETAIGu" YOO BOTH THE EAST AND WEST."u" YOU ARE IN A SMALL SIDE CHAMBER TO THEEAST OF THE LARGE CHAMBER. IT IS VERY COLD HERE, AND THE ONLY LIGHT COMES IN DIMLY FROM THE LARGE CHAMBER." u" YOU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE EAST SIDE OF TY COLD HERE, AND THE ONLY LIGHT COMES IN DIMLY FROM THE LARGE CHAMBER."u" YOU ARE IN A HUGE CHAMBER, THE ROOF RISES OUT OF SIGHT. BURNING TORCHES LINETHE WALLS, MAKING IT EASY TO SEE.TUNNELSLEAD NORTH AND SOUTH,AND THERE ARE SMALLSIDE CHAMBERS TH/SOUTH TUNNEL. TO THE NORTH YOU SEE THE BRIGHT LIGHT STREAMING IN FROM THE OUTSIDE. TO THE SOUTH YOU SEE FLICKERING TORCH LIGHT, BUT YOU CANNOT MAKE OUT ANY DETAILS."Ju" YOU ARE IN A SMALL SIDE CHAMBER TO THEWEST OF THE LARGE CHAMBER. IT IS VERSC,R";REC:DE$:DK$4N40u --- INITIAL DATA ---B:u 0,0,0,0u" YOU ARE AT THE ENTRANCE OF A CAVE. TO THE SOUTH, OVER THE TUNNEL ENTRANCE, IS A SIGN SAYING 'BEGINNERS ONLY.' TO THE NORTH IS THE ROAD BACK TO TOWN."u" YOU ARE IN A DARK NORT0020.'A$:STX:X4:8'6* --- GET NUMBER ---X+8:958:"INPUT NUMBER: ";A$x +(A$)N%(ST)(A$)111010+NO(A$):PF >> WRITE DESCZFDK$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):DK$: N >> READ DESC*NDK$;"READ EAMON.DE$::A$(27)ġ:4900!5$D$;"PR#0":100H --- QUIT ---SUPĀD$;"WRITE EAMON.DESC,R0":NR:NA:NE:NM:D$;"CLOSE":' --- GET TYPE ---'8:958:"INPUT TYPE: R/A/E/M [_]";(8);(8);$'A$:X14:("RAEM",X,1)A$Ă:1A$)4100,42007NO1N%(ST):REC100(ST1)NO:20000I4500::4900Uh11000:q|ST3100,3200,3300,340020000:4500:4900:TYP$(ST);" ";NO:::LW1(DE$)40:(DE$,LW,40):24::7);"PRESS ANY KEY TO CONTINUE";7);:16368,0:A0: --- VIEW A DESC ---(100008:958:"SELECT VIEW OPTIONS:"::" 1. ALL DESCRIPTIONS"::" 2. SINGLE DESCRIPTION"::"INPUT YOUR CHOICE 1-2 OR [P] ";A$:A$""PRTPRT:4020A$"1"A$"2"4020A$:PRTĺD$;"PR#1" (1:10000:11000, ST3100,3200,3300,34007 20000O I2$DE$:600:DE$I$Z 18000c 100{ --- ROOM EDIT ---& RECNO: --- ART. EDIT --- RECNO100: --- EFF. ADD --- RECNO200:H --- MON. EDT ---R RECNO30UGHTER."/x"YOU SEE A MAN WITH A BEARD AND A BRASS RING IN HIS EAR. HE IS WEARING CLOTHES MADE OUT OF SILK AND IS WEILDING A VERY FANCILY ENGRAVED SWORD."/@ === FAKE INIT ==="0JD$(4):DK$D$:D$"OPEN EAMON.DESC,L256":CNT30100:D$;"READ HIRD."}.x"THERE IS A HUGE MAN IN RELIGOUS GARB AND AN INSANE LOOK ON HIS FACE. IN HIS RIGHT HAND HE CARRIES A MACE."/ x"YOU SEE A BEAUTIFUL GIRL IN A FLOWING WHITE DRESS. YOU RECOGNIZE HER AS CYNTHIA, DUKE LUXOM'S NOT-TOO-BRIGHT DASTANDS BEFORE YOU, ARMED A LONG SWORD AND CARRYING A SHIELD. ON HIS SHIELD IS A STICKER WHICH SAYS, 'HI! I'M HEINRICH!'".w"A CHEST-SHAPED MONSTER IS IN THE ROOM, HOLDING YOU WITH TWO TENTICLES AND ATTEMPTING TO DISASSEMBLE YOU WITH A TN RAT WITH SHARP WHITE TEETH HERE!",w"THERE IS A GRIZZLED OLD HERMIT (WHO SMELLS AS IF HE HASN'T TAKEN A BATH IN FORTY YEARS) IN THE ROOM.",w"THERE IS A HUGE, HAIRY, STRONG AND ANGRY GORILLA IN THE ROOM WITH YOU!"~-w"A HUMAN WARRIOR ITS FLAME."a+w"AS YOU SAY THE SWORD'S NAME, THE BRIGHT GREEN FLAME DISAPPEARS FROM THE SWORD."+w"THERE IS A HUGE BLACK RAT WITH SHARP WHITE TEETH HERE!"+w"THERE IS A HUGE BROWN RAT WITH SHARP WHITE TEETH HERE!"$,w"THERE IS A HUGE TA ALSO."m*w"AS YOU SAY THE SWORD'S NAME (TROLLFIRE),BRIGHT GREEN FLAME APPEARS AROUND THE SWORD'S BLADE." +w"SINCE YOU WERE WEARING THE SWORD WHEN ITFLAMED ON, YOU TAKE SOME BURN DAMAGE UNTIL THE SWORD (HEARING YOUR CRIES OF PAIN?) EXTINGUISHES OU FAST. ANOTHER TENTACLE RISES FROM THE TOP AND ATTEMPTSTO HURT YOU.")w"AS THE PIRATE MUTTERS A WORD THAT YOU CAN'T MAKE OUT, BRIGHT GREEN FLAME SURROUNDS THE BLADE OF HIS SWORD."*w"AS THE PIRATE CHOKES AND DIES, THE FLAMEON HIS SWORD DIESL WITH A LOOK OF MANIACAL HATRED ON HIS FACE."g(jw"THE DEAD BODY OF THE GIRL CYNTHIA LIES HERE."(tw"THE DEAD BODY OF THE PIRATE IS HERE."G)~w"AS YOU APPROACH THE CHEST, IT SUDDENLY BECOMES ALIVE AND TWO TENTACLES COME OUTOF THE SIDE, HOLDING YAN RAT HERE."6'8w"THE HERMIT'S BODY LIES DEAD HERE."e'Bw"THE SHAGGY CORPSE OF A GORILLA IS HERE."'Lw"THE DEAD BODY OF HEINRICH LIES HERE."'Vw"THE DEAD BODY OF THE CHEST-MIMIC IS SPRAWLED ON THE GROUND."0(`w"THE PRIEST LIES DEAD HERE, STILROLLSFIRE'."9&v"THERE IS A LARGE PILE OF JEWELS HERE!"t&w"THERE IS A LARGE CHEST IN THE CENTER OF THE ROOM."&w"THERE IS AN EMPTY BOTTLE HERE."&w"THERE IS A DEAD BLACK RAT HERE."&$w"THERE IS A DEAD BROWN RAT HERE." '.w"THERE IS A DEAD TEVERAL RARE SPICES HERE."}%v"THERE IS AN OLD BOOK HERE. IT GLOWS IN THE DARKNESS AND IS REMARKABLY WELL PRESERVED." &v"THERE IS A BEAUTIFUL SWORD HERE WITH INTRICATE CARVING ON THE HANDLE. WRITTEN ON THE BLADE IS THE NAME, 'TBOTTLE HERE WITH A STRANGE POTION INSIDE!"e$v"THERE IS A POOR QUALITY MARCOS SWORD HERE."$v"THERE ARE 50 GOLD PIECES HERE!"$v"THERE IS AN UNMARKED GOLD RING HERE."$v"THERE IS A HIGH QUALITY MARCOS MACE HERE."%v"THERE ARE S. HIGH WALLS SURROUND YOU SO THAT THE ONLY EXIT IS BACK IN THE TUNNEL TO THE WEST. TO THE EAST, ON THE BANK OF THE SEA, IS A BROKEN OLD BOAT."#v"THERE IS A PILE OF DIAMONDS HERE!"#v"THERE IS A STANDARD MARCOS AXE HERE.".$v"THERE IS A zv" YOU ARE IN AN EAST/WEST TUNNEL. DIM LIGHT CAN BE SEEN IN BOTH DIRECTIONS.""v" YOU ARE IN AN EAST/WEST TUNNEL.YOU SEELIGHT TO THE EAST, AND FEEL A COOL WIND COMING FROM THERE. IN THE WIND YOU SMELLA HINT OF SALT."#v" YOU ARE IN A SMALL BAY STAIRS. A TORCH IS ON THE WALL. IT LOOKS VERY DARK DOWN THERE. A TUNNEL HEADS WEST."!pv" YOU ARE AT THE BOTTOM OF A FLIGHT OF A LIGHT CAN BE SEEN UP AT THE TOP OF THESTAIRS, AND A VERY DIM LIGHT CAN BE SEENDOWN THE TUNNEL TO THE EAST."R"ALL. DARK TUNNELS LEAD NORTH AND EAST. TO THE WEST IS A PLACE WHERE ONCE A DOORSTOOD, BUT IT HAS BEEN TORN FROM ITS HINGES." \v" YOU ARE IN A DARK EAST/WEST TUNNEL. YOU CAN SEE TORCHLIGHT BOTH DIRECTIONS."a!fv" YOU ARE AT THE TOP OF A FLIGHT OF:X::rD$"CLOSE":::"VERIFICATION COMPLETE.":S VERIFICATION ERRORi216,0:D$"CLOSE"(7)::"VERIFICATION ERROR!"::"IT IS POSSIBLE THAT THIS ADVENTURE USES DIFFERENT RECORD LENGTHS THAN THE ONES LISTED ON THE FIRST SCREED$"OPEN EAMON.MONSTERS":D$"READ EAMON.MONSTERS":VT:6:"EAMON.MONSTERS:":NM:M1NM:VT:22:M:MN$:F112D7:X:::370hVTVT2:D$"OPEN EAMON.MONSTERS,L"LM:VT:6:"EAMON.MONSTERS:":M1NM:VT:22:M:D$"READ EAMON.MONSTERS,R";M:MN$:F112D71D7A8āX14:A%:+G:D$"CLOSE":352JD$"OPEN EAMON.ARTIFACTS,L"LA:VT:5:"EAMON.ARTIFACTS:":M1NA:VT:22:M:D$"READ EAMON.ARTIFACTS,R";M:AN$:X14:A%:X2T%A%T:T%1D7A8āX14:A%:^:D$"CLOSE"`SM0360}cVTVT2:::D$"CLOSE"AD3400cBSRĢVT:5:(7)"INSERT DISK 1":" AND PRESS TO CONTINUE";Z$qCSA0330ED$"OPEN EAMON.ARTIFACTS":D$"READ EAMON.ARTIFACTS":VT:5:"EAMON.ARTIFACTS:":NA:M1NA:VT:22:M:AN$:X14:A%:X2T%A%F:T%:D$"OPEN EAMON.ROOMS,L"LR:15:9:"EAMON.ROOMS:":R1NR:15:22:R:D$"READ EAMON.ROOMS,R";R:D1NDLT:RD%:::D$"CLOSE" @D7VT15:D$"OPEN EAMON.ROOMS,L"LR:13:9:"EAMON.ROOMS:":R1NR:13:22:R:D$"READ EAMON.ROOMS,R";R:RN$:D1NDLT:RD%:;XMO:DE$::X5399:10:22:X:D$"READ EAMON.DESC,R";XMO:DE$:RD$"CLOSE"i+VERIFY DATA FILES,D7ĺD$"OPEN EAMON.ROOM NAMES,L"LN:13:" EAMON.ROOM NAMES:":R1NR:13:22:R:D$"READ EAMON.ROOM NAMES,R";R:RN$::D$"CLOSE"}6D7VT17";XAO:DE$:#8:15:"EFFECT "CNE0Ģ8:22:"(NONE)":270|X1NE:8:22:X:D$"READ EAMON.DESC,R";XEO:DE$:10:14:"MONSTER ":SBāX1NM:10:22:X:D$"READ EAMON.DESC,R";XMO:DE$:CSBāX17:10:22:X:D$"READ EAMON.DESC,R"$(3)ĀVERIFY EAMON.DESCHD$::"VERIFYING:":" ";::DU$:S1000D$"OPEN EAMON.DESC,L"DL::"EAMON.DESC: ROOM ":X1NR:4:22:X:D$"READ EAMON.DESC,R";XRO:DE$: 6:13:"ARTIFACT ":X1NA:6:22:X:D$"READ EAMON.DESC,R"MONSTERS: ";MOh :"RECORD LENGTHS:":" EAMON.DESC: ";DL:D7ĺ" EAMON.ROOM NAMES: ";LN$ " EAMON.ROOMS: ";LR$:" EAMON.ARTIFACTS: ";LA$:" EAMON.MONSTERS ";LM$22:16338,0:7:"HIT ANY KEY TO CONTINUE:";:A$:A$:AT$ s:22:"EAMON.DESC"I x"NO. OF RECORDS:";:22:"RECORD OFFSETS:"{ z" ROOMS: ";NR;:25:"ROOMS: ";RO |" ARTIFACTS: ";NA;:25:"ARTIFACTS: ";AO ~" EFFECTS: ";NE;:25:"EFFECTS: ";EO " MONSTERS ";NM;:25:RESS TO CONTINUE";Z$m FD$"OPEN EAMON.DESC,L"DL:D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D7ĄLR,LM,LA P216,0:D$"CLOSE":2000 cPRINT INFO SCREEN dD$:::DU$:::"MAIN.PGM VERSION: ";DV$:"DIRECTIONS: ";ND:"ROOM LIGHTING: ";L16,0:D$"CLOSE":DL256:RO0:AO100:EO200:MO300:LR64:LN64:LA128:LM128:D7(DV7):DV$(DV):D7DL242:RO0:AO200:EO400:MO600 ANDND6 DDU$"SANCTUARY"SR1:D71:DL242:RO0:AO200:EO400:MO600:DV$"7.0R":ND6:(7)"INSERT DISK 2":" AND PLES AND PRESS ANY KEY TO CONTINUE":23:A$:8 D$(4)k D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DU$ DV4:LT0:LT$"NO" !47 #ND %DV0 -DV:DV$(DV):DV5LT1:LT$"YES":A81:60 /NDDV4:LT0:LT$"NO" 2NDDVDV5 <2- EAMON UNIVERSAL CHECK FILES PROGRAM ;6/23/95  EAMON ADVENTURERS GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  :5:" UNIVERSAL EAMON FILE CHECK PROGRAM":15:"VERSION 2.0", 10:"INSERT ADVENTURE TO BE TESTED FOR VALID TEXT FI          EAMON.DESC,R0":X14:N%(X)::D$?0OD$;"OPEN TEMP.TEXT":D$K0TTY14[0^R1N%(TY)w0REC100(TY1)R:200000D$;"WRITE TEMP.TEXT":CNT;"DATA";(34);DE$;(34):CNTCNT100::D$;"CLOSE":VENTURE" :" PRESS ANY KEY TO CONTINU  DUNGEON AID PROGRAM7 BY JOHN NELSON> ] THIS PROGRAM LISTS ANY{ DATA FIELDS FOR ROOMS, ARTIFACTS OR MONSTERS(4);"MAXFILES 4" 2-19-84 D$(4)::UP$(10):DN$(11):(637)255UP$(8):DN     6:RD%(D): 20:12:RL D$;"WRITE EAMON.ROOMS,R";R:D16:RD%(D):W "1": D$;"CLOSE"::6:"DO YOU WANT TO CONVERT ANOTHER":" ADVENTURE? (Y/N) [_]";(8);(8); A$:A$"Y"A$"N"210 A$:A$"N"Ā 100BLSON":6:"THIS PROGRAM ADDS A LIGHT FIELD TO THE EAMON.ROOMS FILE."P sD$"UNLOCK EAMON.ROOMS" xD$;"OPEN EAMON.ROOMS,L64":D$;"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR:D$;"CLOSE EAMON.DESC" 13:12:"ROOM #" R1NR:D$;"READ EAMON.ROOMS,R";R:D1 EAMON/ ADD LIGHT TO ROOMSF BY JOHN NELSONU 2/19/96a D$(4)d:6:"INSERT EAMON ADVENTURE DISKETTE AND "::"PRESS ANY KEY TO CONTINUE ...";:A$:4 n:11);"ADD LIGHT TO ROOMS":12);"BY JOHN NELSON":6:"THIS PD31:SB1:NA49:2900T$:216,0:2900: 216,0eD DT$"OPERATION ENDGAME - DISK THREE":D$"VERIFY"DT$:DU$DT$:D31:2900x STORM BREAKER 3230 DT$"DISK 2":D$"VERIFY"DT$:DU$DU$" - "DT$:216,0:2900 216,0 DT$"DISK 3":D$"VERIFY"DT$:DU$DU$" - "DT$:EAMON.ARTIFACTS":"E.6 EAMON.DESC"T :"RUN THIS PROGRAM ON THE MODIFIED COPY." :"HIT 'C' TO CONTINUE OR 'S' TO STOP.";:Z$:Z$:Z$"C"Ĺ16368,0:2900 OPERATION ENDGAME& 31300 DT$"OPERATION ENDGAME - DISK TWO":D$"VERIFY"DT$:DU$D OF SIDE TWO TO A BLANK DISK.YOU *MUST* MAKE A COPY BECAUSE YOU ARE GOING TO MAKE CHANGES TO IT FOR TESTING." "RENAME THESE FILES ON THE COPY:"$ :"E.1 EAMON.NAMES":"E.2 EAMON.ROOMS":"E.3 EAMON.ROOM NAMES":"E.4 EAMON.MONSTERS":"E.5 BUCCANEER! D$: "'BUCCANEER!' IS A TWO-DISK ADVENTURE. HOWEVER, THE SECOND ADVENTURE ON SIDE TWO USES NON-STANDARD FILE NAMES!" "SIDE ONE CAN BE CHECKED NORMALLY, BUT TOCHECK SIDE TWO, YOU MUST FOLLOW THESE STEPS:"n :"MAKE A COPY00:LR64:LN64:LA128:LM128:2900NRDU$"MEAN STREETS"DV$MV$:LR32:2900zfDU$"B I Z A R R O"DV5:LT0:LT$"NO"pDU$"STORM BREAKER"DV$MV$:3200zDU$"THE BEGINNERS CAVE"NE6:2900T LR$(LR):LN$(LN):LA$(LA):LM$(LM):100  80:29000 DU$"CAVERNS OF LANST"ND10:2900T*DU$"BUCCANEER!"DV$MV$:30004DU$"A TRIP TO FORT SCOTT"DV5:LT0:LT$"NO">DU$"TOMB OF THE VAMPIRE"DV5:LT0:LT$"NO""HDU$"BEGINNER'S CAVE II"DV6:D70:DL256:RO0:AO100:EO200:MO3 LAST DRAGON"DV$MV$:LR32:LN32:2900yDU$"OPERATION ENDGAME"DV$MV$:LR32:LN64:LA90:LM100:EO300:MO200:3100 DU$"ANIMAL FARM"DV$MV$:LR32:LN64:LA90:LM90:AO149:OF1:2900DU$"THE BOY AND THE BARD"DV$MV$:LR32:LN40:LA64:LMING"DV$MV$:LR32:LNLR:2900DU$"DUNGEON OF DOOM"DV$MV$:LR30:LN40:RO0:AO161:EO322:MO483:SA1:SM1:LR$(LR):LN$(LN):LA$"SEQUENTIAL":LM$LA$:OF1:100DU$"THE ALTERNATE ZONE"DV$MV$:RO0:AO99:EO199:MO299:OF1:2900'DU$"THEN OF THIS PROGRAM.":"IT IS RECOMMENDED THAT YOU LIST THE MAIN.PGM TO VERIFY THESE RECORD LENGTHS.IF THEY ARE IN FACT CORRECT, THEN YOU HAVE A BAD FILE."CHECK FOR NON-STANDARD FILESMV$DV$" (MODIFIED)"DU$"THROR'S R":DK$;"READ EAMON.NAME":DUNGN$:DK$;"CLOSE" (DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.DESC,R0":NR,NA,NE,NM:DK$"CLOSE EAMON.DESC" <DK$"OPEN EAMON.ROOM NAMES,L64"$ :6:" DUNGEON ABBREV.LIST ; BY JOHN NELSON AGZ REV. 10-9-84 DK$(4)::5:"LISTING A DUNGEON'S MONSTERS/ARTIFACTS":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:- :DK$;"OPEN EAMON.NAME  .DICE,W.SIDES A LABELSJX16:RL$(X):<TML$(12):X112:ML$(X):Q^X18:AL$(X):Wh{r NORTH,SOUTH,EAST,WEST,UP,DOWN| HD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF. ODDS,ARMOUR,WEAPON#,OFF.ODDS,W DICE,W SIDES  VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W;:A$::LP0: " D$"PR#0"i :"====== PRESS ANY KEY TO CONTINUE ======";:A$::D$"CLOSE":40 === TOGGLE PRT ===PRTPRT21:6:868:("OFFON",PRT31,3PRT):22:25:868210 /// QUITD$"CLOSE":@ /// DAT D$"READ EAMON.ROOM NAMES,R";R:RN$:D$"READ EAMON.ROOMS,R";R:D16:RD%(D):W D$y :"ROOM #";R;" ";RN$:LPLP1 X16:RD%(X)0ĺ" ";RL$(X);":";20((RD%(X))));RD%(X):LPLP1 :LP17PRTĺ:"====== PRESS ANY KEY TO CONTINUE ======"2R:A:::1145. /// CHECK AND PRINT> AS%(A2)ıo " ";AL$(A2);":";20((AD%(A2))));AD%(A2){ LPLP1  /// LIST ROOMS :PRTĺD$;"PR#1" D$"OPEN EAMON.ROOM NAMES,L64":D$"OPEN EAMON.ROOMS,L64" LP0::R1NRO*LP0::A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$:A214:AD%(A2)::AD%(2)1āA258:AD%(A2):k/D$4LPFS18PRTĺ:"====== PRESS ANY KEY TO CONTINUE ======";:A$:::LP0>A;". ";AN$:LPLP1:A214:2500:HAD%(2)1āA258:2500:A):>19:1:" INPUT 1-8 OR ";A$:A$""A$"9"`A(A$):A1A9Ģ(37):2030A9Ģ10A:10::AS%(A)1:AL$(A)::2030  /// READY TO LIST ARTIF"PRTĺD$"PR#1"%FS0:X18:FSFSAS%(X)::D$"OPEN EAMON.ARTIFACTS,L128"cUE ======";:A$::LP0:v-yD$"CLOSE";|D$"PR#0"w~:"====== PRESS ANY KEY TO CONTINUE ======";:A$::40 /// LIST ARTIFACTSA18:AD%(A)0:AS%(A)0:10:958:"SELECT DATA FIELD TO LIST:"A18:7((A)));A;". ";AL$(ATERS,L128"Y VLP0::M1NM:D$"READ EAMON.MONSTERS,R";M:MN$:M2112:MD%(M2):M2:D$q `M;". ";MN$:LPLP1 jM2112:MS%(M2)ĺ" ";ML$(M2);":";20((MD%(M2))));MD%(M2):LPLP1tM2::LPLP1:LPFS22PRTĺ:"====== PRESS ANY KEY TO CONTIN. ";ML$(M):H 23:1:" INPUT 1-12 OR ";A$:A$""A$"13"s M(A$):(A$)1(A$)13Ģ(37):1030 M13Ģ10M:10::ML$(M)::MS%(M)1:1030 B /// LIST MONSTER GPRTĺD$"PR#1" LFS0:X112:FSFSMS%(X)::D$"OPEN EAMON.MONSINTER": F" 5. QUIT" @ "INPUT YOUR CHOICE (1-5):";] A$:(A$)5(A$)1210e A$ (A$)1000,2000,3000,4000,5000  /// LIST MONSTER M112:MS%(M)0: 10:958:"SELECT DATA FIELD TO LIST:" M112:7((M)));M;"Y JOHN NELSON":6:15:"PRINT ";("OFFON",PRT31,3PRT):8u -"ROOMS:";NR;" ARTIF.:";NA;" EFF:";NE;" MONST:";NM 210:958:"SELECT ONE OF THE FOLLOWING:": <" 1. LIST MONSTERS"::" 2. LIST ARTIFACTS"::" 3. LIST ROOMS"::" 4. TOGGLE PR$(21) MD%(12),MS%(12)& 8000/ 20 :6:" INSERT EAMON ADVENTURE DISKETTE"::10);"AND PRESS ANY KEY ...";:A$: D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ #216,0; (:11);"EAMON DUNGEON AID":12);"B216,0 bND(DR$)k dD$"OPEN EAMON.ROOM NAMES,L64":D$"OPEN EAMON.ROOMS,L64":D$"OPEN EAMON.DESC,L256" D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE EAMON.DESC" ,PRTĺD$"PR#";PS ^X1ND:D$(X): w5 R1NR:D$"READ EAMON.ROOM NAMESNT PRINTER OUTPUT (Y/N):";6 <A$:A$"Y"A$"N"60T FA$:PRT(A$"Y"):PRT92} K:"WHAT SLOT IS PRINTER IN (1-7):"; PA$:A$"1"A$"7"80 ZA$:PS(A$) \800 ^D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:D$;"CLOSE" `r EAMON. QUICKY ROOM PRINTG BY JOHN NELSONMU [au REV. 11-13-85 D$(4)40(:6:" INSERT EAMON ADVENTURE DISKETTE AND"::10);"PRESS ANY KEY TO CONTINUE ...";:A$: 2:6:"DO YOU WA  A)(NRER)D$;"PR#0":6 === CHANGE SPEED ===WTST21SP251ĩSP5:SPSP5sTST8SP5SPSP5:SPTST0:16368,0&D1 R? ::7);"PRESS ANY KEY TO CONTINUE";7);:A$:: :10);"EAMON ROOM ANALYSIS":3:" NO. ROOMS: ";NR:" AVG. ROOMS/MONSTER: ";NRNM " AVG. ROOMS/ARTIFACT: ";NRNA:" EMPTY ROOMS: ";ER " AVG. # THINGS IN NON-EMPTY ROOMS: ";(WMW:6 nMR0:M1NM:MD%(M,5)RĺMN$(M):MRMR1:WMWM1= xMQ AR0:A1NANMy AD%(A,4)RĺAN$(A):ARAR1:WAWA1 AD%(A,4)0ANAN1: #ARTIFACTS IN NATURAL PLACES (NOT ROOM 0) A:"---------------------------------------":AR0MR0ERER_"PRINTER OUTPUT?(Y/N):";: bYN$:YN$"Y"YN$"N"98 cYN$:YN$"Y"ĺD$"PR#1":(12);(40("ROOM ANALYSIS"))2);"ROOM ANALYSIS":: d16368,0:SP150:150:R1NR::"ROOM ";R;" (";RN$(R);")" i(16384)127TST(16384)128:500 mTST0MON.MONSTERS,L128":M1NM:D$"READ EAMON.MONSTERS,R";M:MN$(M):M2112:MD%(M,M2):M2,M:D$"CLOSE" PD$"OPEN EAMON.ARTIFACTS,L128":A1NANM:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2):A2 ZA:D$ :A$:T D$"OPEN EAMON DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE"_ 216,0 MD%(NM,12),AD%(NA,8),MN$(NM),AN$(NA),RN$(NR) 2D$"OPEN EAMON.ROOM NAMES,L64":R1NR:D$"READ EAMON.ROOM NAMES,R";R:RN$(R)::D$"CLOSE"d FD$"OPEN EA EAMON ROOM ANALYSIS7 BY JOHN NELSON> x PRINT MONSTERS AND ARTIFACTS IN ROOMS~ 11-8-84 D$(4): 15 :6:"INSERT DUNGEON DISKETTE AND PRESS"::10);"ANY KEY TO CONTINUE ...";  NTINUE ";:A$::::LN0j TYP:PRTĺ::" PRESS ANY KEY TO CONTINUE ";:A$::::LN0 #DK$"PR#0":DK$"CLOSE"::10 'D$"CLOSE":AERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:- :DK$;"OPEN EAMON.NAME: ";:A2$:LNLN1Y (16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A$:A$::(37)1 LN58PRTĺ(12);A$;" - CONT'D."::LN2 LN20PRTĞ:" PRESS ANY KEY TO CONTINUE ";:JN$::::LN0 A:PRTĺ::" PRESS ANY KEY TO CO.ROOM NAMES":A$"ROOM":NNR:8060S hF$"EAMON.ARTIFACTS":A$"ARTIFACT":NNA:8060 rF$"EAMON.MONSTERS":A$"MONSTER":NNM:8060 |::(12);"Adventure:";DUNGN$::"LISTING ";A$;"S"::34,2:LN4 A1N:DK$;"READ ";F$;",R";A:A2$:DK$:A$;"#";A;"DO YOU WANT PRINTER OUTPUT (Y/N): ";B A$:A$"Y"A$"N"1010W A$:A$"N"8000z :"INPUT PRINT SLOT (1-7): "; A$:A$"1"A$"7"1040 PS(A$):DK$"PR#";PS @///LIST THINGS ROUTINE JTYP13 TTYPE8030,8040,8050! ^F$"EAMON ";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 EFFECTS"BEGINNING WITH #(1): ";BEG$"ENDING WITH #(";NE;"): ";:EN" ";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)0A%(4)NRĺ" [";R$(A%(4));"]"; :A2:A%(2)23610A258:" BEGEN:3500:A 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);"]":" ":D$;"READ EAMON.DESC,R";100R:A$:"DESC: ":8000:" "8 A214:TIF./ "BEGINNING WITH ARTIFACT #(1): ";BEG$] "ENDING WITH ARTIFACT #(";NA;"): ";:EN$ (BEG$)NA(BEG$)1BEG$"1" (EN$)NA(EN$)(BEG$)EN$(NA) BEG(BEG$):EN(EN$) D$"OPEN EAMON.ARTIFACTS,L128" SWĺD$"PR#";PS R"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]";:2160fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";p:D: /// LIST AR(EN$)(BEG$)EN$(NR)1BEG(BEG$):EN(EN$)O D$"OPEN EAMON.ROOMS,L64"c SWĺD$"PR#";PSy*RBEGEN:2100:/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1004"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":D$;"READ EAMON.DESC,R";R:A$:8000EH:0:50 /// SET UP PRINTERR"WHAT SLOT IS PRINTER IN?";PS:PS1PS71010fPS(PS)1010o130 /// LIST ROOMS"BEGINNING WITH #(1): ";BEG$"ENDING WITH #(";NR;"): ";:EN$(BEG$)NR(BEG$)1BEG$"1"(EN$)NRIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON ",SW31,3);")":" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CH$ CH(CH$):CH1000,2000,3000,4000,5000,6000,7000 130ND6:216,AMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$E a130\ d /// MAIN ROUTINE x:"(HIT ANY KEY TO RETURN TO MENU)";:AN$6 :12);"EAMON DUNGEON LIST":11);"BY JOHN NELSON":8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. L ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTu 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 E(12),M%(12):M112:M$(M):o A HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAPON#,O.ODDS,W.DICE,W.SIDES FR$(NR),AN$(NA):A18:A$(A): KD110:DD$(D): P VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDESR U NORTH ,SOUTH TE WITH DUNGEON, THEN PRESS":" ANY KEY ";:16368,0:A$:L 200 :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:D$;"CLOSE" #216,0 (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ <M$ LIST DUNGEON, VERSION 2.1D BY JOHN NELSONJd LINES 97,120,150~ BY T. ZUCHOWSKI  11/6/83  (4);"MAXFILES 5"B D$(4)::5:"LISTING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKET         !!! ! ! KEY TO CONTINUE ";:A$::::q  NORTH,SOUTH,EAST,WEST,UP,DOWN,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTA D$(4)40(:6:" INSERT EAMON ADVENTURE DISKETTE AND"::10);"PRESS ANY KEY TO CONTINUE ...";:A$: 2:6:"DO YOU WA,R";R:N$:D$"READ EAMON.ROOMS,R";R:D1ND:DR%(D):= D$ "ROOM ";R;":";N$:D1ND:DR%(D)0ĺD$(D);":";15(D$(D))((DR%(D))));DR%(D):PRTĭ(37)20İ900 &: X: D$"PR#0":D$"CLOSE": ND6:216,0:100# :" PRESS ANY 0(DUNGN$)2));DUNGN$::16)"MONSTERS":511010ENNNM:9500|SWĺD$;"PR#";PS:10);DUNGN$;" -- MONSTERS"::RBEEN710D$;"READ EAMON.DESC,R";R300:A$::6"MONSTER # ";R;" [";MN$(R);"]"::A$::M2112:" ";M$(15:(7);"NO EFFECTS!":9010- NNNE:9500c SWĺD$;"PR#";PS:10);DUNGN$;" -- EFFECTS"::p RBEENy 710 ::"EFFECT #";R;":": D$;"READ EAMON.DESC,R";R200:A$:A$ & D$;"PR#0":9010 /// LIST MONSTERS *:(2((AD%(R,A2))));AD%(R,A2);~A26AD%(R,6)0AD%(R,6)5ĺ" ";("[AXE] [BOW] [CLUB] [SPEAR][SWORD]",(AD%(R,6)1)71,7);::D$"PR#0":9010 ///LIST EFFECTS  :(20(DUNGN$)2));DUNGN$::16)"EFFECTS": NE0Č868:A22AD%(R,2)0AD%(R,2)3ĺ" ";("[SET TREASURE][TREASURE] [WEAPON] [ODD WEAPON] ",AD%(R,2)141,14)fA24AD%(R,4)0AD%(R,4)NR2210pX17:R$R$(AD%(R,4)):510A2:AD%(R,2)22250A258:" ";A$(A2);10(A$(A2)));": ";6N$;" -- ARTIFACTS"::" ::/ RBEENU *D$;"READ EAMON.DESC,R";100R:A$^ 4710 >:"ARTIFACT # ";R;" [";AN$(R);"]"::A$: HA214:" ";A$(A2);10(A$(A2)));": ";6((AD%(R,A2))));AD%(R,A2); RA22(A24AD%(R,A2)1)ĺp\IT]":1230 RDNR12302 X30:R$R$(RD):5109 DE :::r D$;"CLOSE EAMON.ROOMS":D$;"PR#0":9010  /// LIST ARTIFACTS :(20(DUNGN$)2));DUNGN$::15)"ARTIFACTS": 11020 NNNA:9500 SWĺD$;"PR#";PS:10);DUNGBEEN+ 8D$;"READ EAMON.DESC,R";R:A$:D$9 BX99:710 j:"DIRECTIONS AVAILABLE:":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D)::D$ tD1ND:DR%(D)0Ă:1240 ~RD(DR%(D)):" ";DD$(D);":";(RD10)(DR%(D)0));DR%(D);" "; DR%(D)99ĺ"[EX L(R$(R))::L38Ė(40L1)2< "[";R$(R);"]"::A$:S  ///LIST ROOMS :(20(DUNGN$)2));DUNGN$::17)"ROOMS": 11030 NNNR:9500 D$;"OPEN EAMON.ROOMS,L"R1 SWĺD$;"PR#";PS:10);DUNGN$;" -- ROOMS":: .::R"]":' LLX11:(R$,LL,1)" "ĂB LLLL1:" [";(R$,LL)` &39LLL);(R$,LLL);"]"f 0  /// CTRL-Z AND ROOM Z(16384):Z127Ĺ16368,0:Z154ġ:D$;"PR#0":9010 X99ı :"ROOM # ";R;" *****************************"!$DUNGEON LIST 2.1 8VERSION 2.0 BY JOHN NELSONX2.1 MODS BY TOM ZUCHOWSKI rLAST UPDATE: 7/10/84 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 d10000 /// PRINT ROOM DESC.  L(R$):SWLXĺ" [";R$;! !!!!!!!!!""" " " " " """""""""     " ":!p /// TOGGLE PRINTER,zSWSW5100FX /// QUITabD$"CLOSE":D$"PR#0":p@SWĺA$:JAZ1(A$)40:(A$,AZ,40)::D  (4);"MAXFILES 5"B D$(4)::5:"LISTING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKET: ";6((M%(M2))));M%(M2);=M23M24M27M210ĺ" %";nM25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]";M29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";:M2GEN:5500:=D$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100D| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$"MONSTER # ";R;" [";MN$;"]":" ":"DESC:":8000:" ":M2112:" ";M$(M2);10(M$(M2)));" /// LIST MONSTERS6"BEGINNING WITH #(1): ";BEG$["ENDING WITH #(";NM;"): ";:EN$~(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$)D$"OPEN EAMON.MONSTERS,L128"SWĺD$"PR#";PS RBE$$(BEG$)NE(BEG$)1BEG$"1"L(EN$)NE(EN$)(BEG$)EN$(NE)fBEG(BEG$):EN(EN$)zSWĺD$"PR#";PSRBEGEN:4500::D$D$"PR#0":100"EFFECT #";R;":":D$;"READ EAMON.DESC,R";R200:A$:8000::10080!V'ND6!`'216,0 TO ABORT LIST)":D99āD1500:Dv%'D$(4):D1 ':3:" UNIVERSAL EAMON DUNGEON LISTER"::18:"- BY -"::11:"THOMAS J. ZCE (1-9): ";CH$O#CH(CH$):CH8000,1000,2000,3000,4000,5000,6000,7000,12000Y#9020q% /// GET BE & EN 0%16368,0:::(9):"BEGINNING WITH #(1):";BE$:BE(BE$):%BE1BE1:(37):29:"1"D%BENNĺ:9520 N%16368,0::(11):"ENDING N";::")";\d#:" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS"n#" 5. LIST MONSTERS":" 6. ROOM ANALYSIS"x#" 7. DUNGEON MAP":" 8. WALK-THROUGH"#" 9. QUIT":19:16368,0:" INPUT YOUR CHOI (HIT ANY KEY FOR MENU)":AN$:34,0C<#:(40(DUNGN$))2:DUNGN$F#:"ROOMS:";NR;" ART:";NA;" EFF:";NE;" MONSTERS:";NMP#7:" SELECT ONE OF THE FOLLOWING:": Z#" 1. SET UP PRINTER (NOW OFF)";:SWĖ10:"TURN OFF PRINTER (NOW ";::"O /// SET UP PRINTER #TSW80902^PS0PS1h19:"WHAT SLOT IS PRINTER IN? (";PS;:") ";OP$:OP(OP$):OP0OP78040rOP$""OP08040|OP$""8090OP(OP)8040PSOPSWSW:9020(# /// MAIN ROUTINE #2#:" :A$:A$"Q"7320?D$;"CLOSE EAMON.ROOMS":D$;"PR#0":9020`A$""A$AA$:(37):12:A$~AA$A$:(A$)1A$A$" "D1ND:A$DD$(D)Ă:(37):(7);:7300DR%(D)Ģ(37):(7);:7300:RDR%(D):R99D11:D:73107090@:DR%(D)::D$-D1ND:DR%(D)0ĂD:7290p RD(DR%(D)):" ";DD$(D);":";(RD10)(DR%(D)0));DR%(D);" ";*DR%(D)99ĺ"[EXIT]":72804RDNR7280fX30:R$R$(RD):510pDz:" Q : (RETURN TO MAIN MENU)":"WHICH WAY";:868D$;"READ EAMON.DESC,R";R:A$:D$)730J:"YOU SEE:";:VD0:VS(37)yM1NM:MD%(M,5)Rĺ(7);10);MN$(M):VD1A1NA:AD%(A,4)Rĺ(7);10);AN$(A):VD1:VD0ĢVS :"DIRECTIONS AVAILABLE:":D$;"READ EAMON.ROOMS,R";R:D1ND%(D)10DR%(D)10ĺ" ";1LDR%(D);:D10ĺ" ";;V::O`D$"PR#0":9010iX /// WALK-THROUGH b:(20(DUNGN$)2));DUNGN$::14)"WALK-THROUGH":l11010D$;"OPEN EAMON.ROOMS,L"R1SWĺD$;"PR#";PS:R1R0RR D$"OPEN EAMON.ROOMS,L"R1TRBEEN:D$"READ EAMON.ROOMS,R";R:D1ND:DR%(D):]710R$R$(R):L(R$):LLLR$(R$,LL)R10ĺ" ";R;":[";R$;"]";SWLLLĺ$SWLLLāI1LLL:".";:.D1ND8DR%(D)0ĺ" ";BDR);DUNGN$::14)"DUNGEON MAP":*11030?D99:NNNR:9500K:LL35S:SWĺD$;"PR#";PS:10);DUNGN$;" -- DUNGEON MAP"::::" DIRECTIONS:";43);:D1ND:DD$(D);(" ",1(D6D10));::ND6ĺ15);:SWĹ34,210);DUNGN$;" -- ROOM ANALYSIS"::BRBEEN::"ROOM # ";RK710^"[";R$(R);"]"M1NM:MD%(M,5)Rĺ" ";MN$(M) A1NAAD%(A,4)Rĺ" "AN$(A):(D$;"PR#0":9010p /// DUNGEON MAP z:(20(DUNGN$)2)R,9)0ĺ" [NATURAL WEAPONS]";T|MD%(R,9)0MD%(R,9)(NA)ĺ" [";AN$(MD%(R,9));"]";ZdM2:yD$;"PR#0":9010 /// ROOM ANALYSIS :(20(DUNGN$)2));DUNGN$::13)"ROOM ANALYSIS":11010NNNR:9500&SWĺD$;"PR#";PS:M2);10(M$(M2)));": ";6((MD%(R,M2))));MD%(R,M2);z"M24155,4155,4140,4140,4150,4155,4140,4155,4200,4140,4155,4155," %":42306MD%(R,5)0MD%(R,5)NRX18:R$R$(MD%(R,5)):510:4230;:4230hMD%(R,9)1ĺ" [NO WEAPONS]";rMD%(