' +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`LLSFIRE'."7&v"THERE IS A LARGE PILE OF JEWELS HERE!"r&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 TANERAL 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, 'TROTTLE HERE WITH A STRANGE POTION INSIDE!"c$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 SEVHIGH 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 BO" 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."P"zvL. 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."_!fv" YOU ARE AT THE TOP OF A FLIGHT OF ARY. 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 WALAST.">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 LIBRU 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. YOENDS 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."O v" YOU ARE AT THE SOUTH END OF THE LONG HALL. TO YOUR GREAT SHOCK ARE TWO DOORS ON THE EARE 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 EXT 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 DETAIEu" YOU 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 THE 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 TO :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 " ":!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)));"MON.DESC,R0":X14:N%(X)::D$=0OD$;"OPEN TEMP.TEXT":D$I0TTY14Y0^R1N%(TY)u0REC100(TY1)R:200000D$;"WRITE TEMP.TEXT":CNT;"DATA";(34);DE$;(34):CNTCNT100::D$;"CLOSE":ADVENTURE" :" PRESS ANY KEY TO CONTINUHTER."/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 EARD."{.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 DAUGANDS 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 THIRAT 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 STS FLAME."_+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 TAN LSO."k*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 IT 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 DIES AWITH A LOOK OF MANIACAL HATRED ON HIS FACE."e(jw"THE DEAD BODY OF THE GIRL CYNTHIA LIES HERE."(tw"THE DEAD BODY OF THE PIRATE IS HERE."E)~w"AS YOU APPROACH THE CHEST, IT SUDDENLY BECOMES ALIVE AND TWO TENTACLES COME OUTOF THE SIDE, HOLDING YOU RAT HERE."4'8w"THE HERMIT'S BODY LIES DEAD HERE."c'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.".(`w"THE PRIEST LIES DEAD HERE, STILL CTS":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#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@NAME.":2200&I1NC:NA$(I)X$ĂfNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200DD$(0)"":UP1:NA$(0)X$:` :"OLD HARDINESS:";HD(0):"NEW HARDINESS:";X:X3X300X(X)ĺ:"INVALID HARDINESS.":2400j UP1:HD(0)X:X( 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$)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+, /// LOATY:";:12:AG(C);:21:"IN BANK: ";BANK(C)D'"CHARM:";:12:CH(C)_'20:"WEAPON ABILITY:"'"SPELL ABILITY:";:21:"1.AXE:";:30:WA%(1,C)'" BLAST:";:12:SA%(1,C);:21:"2.BOW:";:30:WA%(2,C) ( " HEAL:";:12:SA%(2,C);:21:"3.CLUB:";:30 &4610*& /// DISPLAY CHARACTER K&:"RECORD #: ";:SUB1ĺC1;Z&SUB0ĺC;s&15:"NAME: ";NA$(C)&:SEX$(C)"M"ĺ"MALE";&SEX$(C)"F"ĺ"FEMALE";&20:"GOLD:"&"HARDINESS:";:12:HD(C);:21:"IN HAND: ";GOLD(C)*'"AGILIE DIMENSIONED ARRAYS ARE FULL. YOU MAY NOT ADD A CHARACTER TO THIS FILE UNTIL THE PROGRAM IS RERUN.":720:%I1NC:NA$(I)NA$(0)Ă%NA$(I)NA$(0)ĺ:" THAT NAME IS ALREADY BEING USED.":720:&NCNC1:CNC:ADD1:UP(C)1:NCFULLFULL:$ I14:SA%(I,C)SA%(I,0)::I15:WA%(I,C)WA%(I,0):$AE(C)AE(0):AC(C)AC(0):I14:WN$(I,C)WN$(I,0):WT%(I,C)WT%(I,0):WO%(I,C)WO%(I,0):WD%(I,C)WD%(I,0):WS%(I,C)WS%(I,0):$ DD$(C)DD$(0)$*UP1UP(C)1:UP0$4:510q%FULL0ĺ:"TH:";WD%(W,0):42607#UP1:"NEW SIDES:";WS%(W,0):4260]#WW1:W4260,4260,4260,4260,4380c##0C1C:C0:SUB1:5000:CC1:# /// CHANGE ARRAY$NA$(C)NA$(0):SEX$(C)SEX$(0):GOLD(C)GOLD(0):BANK(C)BANK(0):HD(C)HD(0):AG(C)AG(0):CH(C)CH(0),4200*"UP1:"NEW NAME:";WN$(W,0):4260@"UP1:"NEW TYPE:"":S$;"1. AXE":S$;"2. BOW":S$;"3. CLUB":S$;"4. SPEAR":S$;"5. SWORD"":WT%(W,0):4260"UP1:"NEW TYPE:";WT%(W,0):4260"UP1:"NEW ODDS:";WO%(W,0):4260#UP1:"NEW DICE!" SELECT FIELD TO CHANGE:"::S$;"1. NAME",WN$(W,0):S$;"2. TYPE",WT%(W,0):S$;"3. COMP.",WO%(W,0):S$;"4. DICE",WD%(W,0):S$;"5. SIDES",WS%(W,0)!S$;"6. NEXT WEAPON":S$;"7. RETURN TO WEAPON MENU":X7:600":S4290,4300,4340,4350,4360,4370);6((WO%(I,0))));WO%(I,0);"%"; |7((WD%(I,0))"D"(WS%(I,0))));WD%(I,0);"D";WS%(I,0);5((2AG(0)WA%(WT%(I,0),0)WO%(I,0))));2AG(0)WA%(WT%(I,0),0)WO%(I,0);"%"  "-----------------":"5. RETURN TO MENU":X5:600 WS::S5ı"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000vUP1:AE(0)X:h:8:"SELECT WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS";::I14" rI;".";WN$(I,0);16(WN$(I,0)));WT%(I,0OLD(0):S$;"2. GOLD IN BANK",BANK(0):X2:600::S3810,3830"HOW MUCH GOLD IN HAND:";X:X0X50000X(X)ĺ:"INVALID AMOUNT.":3810GOLD(0)X:"HOW MUCH IN BANK:";X:X0X50000X(X)ĺ::"INVALID AMOUNT.":3830BANK(0)X:c:TE ARMOR":S$;"7. PLATE ARMOR & SHIELD"\\ :S$;"(CURRENTLY ";AC(0);")":X7:600:AC(0)S:w:"OLD SEX: ";SEX$(0)"NEW SEX: ";X$:X$"M"X$"F"ĺ:"INVALID SEX":3600$UP1:SEX$(0)X$:<UP1::8:"SELECT ONE:"::S$;"1. GOLD IN HAND",GEXPERTISE:";WA%(4,0):3200J UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200P H UP1::" ARMOR CLASS:"::S$;"1. SHIELD ONLY":S$;"2. LEATHER ARMOR":S$;"3. LEATHER ARMOR & SHIELD":S$;"4. CHAIN ARMOR"'R S$;"5. CHAIN ARMOR & SHIELD":S$;"6. PLA%(5,0):S$;"----------":S$;"6. RETURN TO MENU":X6:600_ :S3230,3240,3250,3260,3270,3280 UP1:"NEW AXE EXPERTISE:";WA%(1,0):3200 UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200 UP1:"NEW CLUB EXPERTISE:";WA%(3,0):3200 UP1:"NEW SPEAR 0):30005 UP1:"NEW SPEED RATING:";SA%(3,0):3000b UP1:"NEW POWER RATING:";SA%(4,0):3000h  :8:" SELECT WEAPON ABILITY:":S$;"1. AXE",WA%(1,0):S$;"2. BOW",WA%(2,0):S$;"3. CLUB",WA%(3,0)8 S$;"4. SPEAR",WA%(4,0):S$;"5. SWORD",WA;"1. BLAST",SA%(1,0):S$;"2. HEAL",SA%(2,0):S$;"3. SPEED",SA%(3,0) S$;"4. POWER",SA%(4,0):S$;"----------":S$;"5. RETURN TO MENU":X5:600::S3020,3030,3040,3050,3060 UP1:"NEW BLAST RATING:";SA%(1,0):3000 UP1:"NEW HEAL RATING:";SA%(2,:"OLD AGILITY:";AG(0):"NEW AGILITY:";X:X3X300X(X)ĺ:"INVALID AGILITY.":2600k2 UP1:AG(0)X: :"OLD CHARISMA:";CH(0):"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":2800 UP1:CH(0)X:C :8:" SELECT SPELL:":S$000,4200,4400,4600,4800,510%R2060DD$(0)""ĺ:"THIS CHARACTER IS DEAD. THE PREVIOUS NAME OF THIS CHARACTER WAS:"::15:"(?)";DD$(0)::2220:"OLD NAME: "NA$(0) "NEW NAME: ";X$:(X$)0(X$,1)"A"(X$,1)"Z"(X$)20ĺ:"INVALID RMOR EXPERTISE":S$;"11. WEAPON"v4S$;"--------------------":S$;"12. DISPLAY RECORD":S$;"13. RETURN TO MAIN MENU">S$;"14. ADD AS A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";SHS2200,2400,2600,2800,3000,3200,3400,3600,3800,4:(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" *S$;" 8. SEX":S$;" 9. GOLD":S$;"10. ANK(0)BANK(C):HD(0)HD(C):AG(0)AG(C):CH(0)CH(C)kI14: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,C):WS%(I,0)WS%(I,C):DD$(0)DD$(C) ;C=CNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000LC1C:5000b /// NEXT RECORDCNCĺ:14);"END OF FILE.":C0:710(CC1:5000 /// MODIFY RECORD C0SUB1:10001NA$(0)NA$(C):SEX$(0)SEX$(C):GOLD(0)GOLD(C):BA$;"4. RETURN TO MAIN MENU":X4:600:?S1100,1210,1300,510QL /// BY NAMEoV"CHARACTER NAME:";NA$(0)`I1NC:NA$(I)NA$(0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000jCI:C1C:5000 /// BY RECORD #"RECORD NUMBER:" /// CONTINUE PROMPT Q:" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY KEY TO CONTINUE)";:A$:: /// SELECT RECORD %:6:" SELECT RECORD BY:"::S$;"1. NAME":S$;"2. RECORD NUMBER":S$;"3. NEXT RECORD":SINTENANCE"N&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;"):";lA$:S(A$):S1SX620vA$:RUN THE PROGRAM TO CONTINUE.":9000:17);"EAMON"::" CHARACTER FILE MAINTENANCE":6:S$;" CHARACTER: NONE";:C0Ė21:NA$(C);" ";8::" SELECT ACTION:": S$;"1. SELECT A RECORD":S$;"2. MANIPULATE THIS RECORD":S$;"3. FILE MA ONLY OPTION IS TO":S$;" GENERATE A NEW CHARACTER.l ::S$;:" DO YOU WISH TO DO THIS?";A$:A$"Y"8000v 9050  /// MAIN MENU #UP0::FULL0Ģ8:" THE DIMENSIONED ARRAYS ARE FULL; THE CHARACTER ARRAYS ARE BEING SAVED TO DISK. REREAD CHARACTERS,R";I:NA$(I):DD$(I)= rNA$(I)"(DEAD)":320Z |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 CHARACTERS FILE IS EMPTY."3 :S$;" YOUR""NA$(I)"(BAD DATA IN FILE)":400V ,DD(DD$(I)):DD$(I)""DD0NA$(I)"(DEAD)"o 6DD0HD(I)DD:330z @HD(I) JAG(I):CH(I) TJ14:SA%(J,I)::J15:WA%(J,I): ^AE(I):SEX$(I):SEX$(I)"M"SEX$(I)"F"SEX$(I)""380$ hD$:D$;"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) I1NC D$;"READ CHARACTERS,R";I:NA$(I) NA$(I)""320 10000$ "DD$(I):DD$(I)223,154,72,152,72,96" xD$(4):= S$" ":7 SPACESG :10 " INSERT MASTER DISKETTE"::" AND PRESS ANY KEY":A$: /// INPUT DATA FROM DISK D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$ NNC10:73"CHARACTER FILE MAINTENANCE 9BY TOM ZUCHOWSKI rBASED ON PREVIOUS WORK BY JOHN NELSON & DON BROWN VERSION D 12/83 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N: n 104,168,104,166,                        ,510,///LIST FILE),AU1:C0:1300@,8/// CONDENSE FILEL,BI1NCa,LNA$(I)""6300,VJINC1:NA$(J)NA$(J1):SEX$(J)SEX$(J1):GOLD(J)GOLD(J1):BANK(J)BANK(J1):HD(J)HD(J1):AG(J)AG(J1):CH(J)CH(J1)-`K14:SA%(K,J)SA%(K,J1):510 +p /// FILE MAINTENANCE A+z:8:" SELECT ACTION:":+S$;"1. LIST FILE":S$;"2. SHORT LIST":S$;"3. CONDENSE FILE":S$;"4. INIT FILE":S$;"5. LIST/DELETE CHARACTERS"+S$;"6. RETURN TO MAIN MENU":X6:600,S6100,6800,6200,6400,6600,C))));WO%(I,C);"%";*7((WD%(I,C))"D"(WS%(I,C))));WD%(I,C);"D";WS%(I,C);5((2AG(C)WA%(WT%(I,C),C)WO%(I,C))));2AG(C)WA%(WT%(I,C),C)WO%(I,C);"%"*:SUB2SUB0:*720*AU1CNCAU0:C0*AU11300*SUB1SUB0:+C)5A$"PLATE ARMOR"@)Z(AC(C)2)AC(C)2A$A$" & SHIELD"T)d:"ARMOR: ";A$r)n" EXPERTISE: ";AE(C);"%")x:"WEAPON INFORMATION:")" NAME TYPE CMPLX DMG ODDS";)I14*WN$(I,C);18(WN$(I,C)));WT%(I,C);6((WO%(I0:WA%(3,C)I(" SPEED:";:12:SA%(3,C);:21:"4.SPEAR:";:30:WA%(4,C)(" POWER:";:12:SA%(4,C);:21:"5.SWORD:";:30:WA%(5,C)((A$"NONE"(2AC(C)1A$"SHIELD ONLY":5220(<AC(C)1A$"LEATHER ARMOR"(FAC(C)3A$"CHAIN ARMOR")PAC(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     D$:(7):"THE CHARACTER NAME ";NA$(C):"ALREADY EXISTS IN THIS FILE IN RECORD ";J::7080c7(:7x:J1C2:D$;"READ CHARACTERS,R";J:N$:S$;J;". ";N$::D$:70807@ // GENERATE NEW RECORD 7J:"NAME OF NEW CHARACTER: ";NA$(0) 8THD(0)0:AG(E IS ";C2:70806`7700#6j9120=6t:18:"DONE."::720M6/// RETURN6D$"CLOSE"::5:" INSERT ORIGINAL DISKETTE AND PRESS":16:"ANY KEY":A$:6D$"OPEN CHARACTERS,L150":5106J1C2:D$;"READ CHARACTERS,R";J:N$[7NA$(C)N$IJ7500,7080 5:10:"NAME:";N1$}5I1C2:D$"READ CHARACTERS,R";I:N2$:N2$N1$Ă:D$::"I DON'T FIND THAT NAME.":70805D$:7700:75305L/// REPLACE BY REC#6VD$::10:"RECORD #:";I:I(I)IC2I1ĺD$::"THE HIGHEST RECORD IN THIS FIL7800,7600$4 /// ADD NEW CHARACTER54*IC21:7700_44D$"WRITE CHARACTERS,R0":I:IC:7530z4/// REPLACE CHARACTER4:" SELECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2. REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MENU":X3:600 5S7400,D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$3:" SELECT ACTION:":S$;"1. ADD CHARACTER AS NEW":S$;"2. REPLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:600 4S7200,7300,v:"THE CHARACTER NOW LOADED IS:"::(40(NA$(C)))2:NA$(C)2:"IF THE CHARACTER IS ALREADY LOADED, INSERT THE DISK IT IS TO BE TRANSFERED TO, AND PRESS 'C'."2:"HIT ANY OTHER KEY TO RETURN TO THE MAIN MENU.":2A$::A$"C"510D321:"(?)";DD$(I);1:61S$" ":720:6000Q1X /// MOVE CHARACTER f1bC0SUB1:10001l:"THIS ROUTINE WILL MOVE AN ADVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTER MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED."?2EEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)1:0D06000X0/// SHORT LISTv0I1NC:DD$(I)""S$""|00:8:"SHORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";1::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)""YOU SURE? ";A$ /<A$"Y"6000:"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$;                /// 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:: ";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          M NUMBERS THAT CONTAINED" "POTENTIAL CONNECTION ERRORS. THESE ARE":"NOT ALWAYS ERRORS. ONE WAY PASSAGES,":"CONFUSING PASSAGES OR FORESTS MAY BE " "INTENDED TO BE CONNECTED THIS WAY. " :DD THIS WAY. " :;.'D$;"CLOSE"-;8'D$;"OPEN CHARACTERS,L150"6;B'400ArBASED ON PREVIOUS WORK BY JOHN NELSON & DON BROWN VERSION D 12/83 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N: n 104,168,104,166,""I:#NA$(I):HD(I):AG(I):CH(I):J14:SA%(J,I)::J15:WA%(J,I):v:#AE(I):SEX$(I):GOLD(I):BANK(I):AC(I):#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$:#:' ///ONERR ROUTINE :'768:$'NC1(222)5NC0:41092#D$;"CLOSE"*9<#I1NC:UP(I)1İ911009F#[9P#ADDĺD$"WRITE CHARACTERS,R0":NC:D$:9Z#D$;"CLOSE":20:8:"*** END OF PROGRAM ***"::9# /// WRITE RECORD 9#D$;"OPEN CHARACTERS,L150"9#D$"WRITE CHARACTERS,R";I:#DD$(I)""NA$(I)0)0:CH(0)0:I15:WA%(I,0)0:8^I14:SA%(I,0)0::GOLD(0)0:BANK(0)0:I14:WN$(I,0)"NONE":WT%(I,0)0:WD%(I,0)0:WO%(I,0)0:WS%(I,0)0:8hAE0:AC08rADD1:NCNC1:CNC:UP(C)1:NCFULLFULL08|NA$(C)NA$(0):20008(# /// QUIT ROUTINE 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 216,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":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     z"#  Ƞ͠ ΠҧӠĠ ΠҮ Ӭà"Ԡź ΠԠڠ& ΠԠǠ ԠȠ ĠȠ  ΠӠŠԠ5 ҠȠ ԠŠ ˠӠ!ĠԠϠӠ"ĠԠΠҮͮ͠Ӡ٠͠Ԡ ؠΠԠ ΠӠ ӠԠ͠ӠԠӠԠԠŠ Š٠Ӡ àԠ*ΠӠˠůРŠΠŠԠŠ̠ΠӠҠŠҠ ïà֠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  v 5Z"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"t(10:"UTILITIES DISK"ɽ 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": 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)    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$;"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)::"FILE IS LOCKED. IF YOU WISH TO CHANGE ITANYWAY, PRESS 'C' ...";s A$::A$"C"ĺ:"NO CHANGES MADE.":1850 D$;"UNLOCK EAMON.NAME":1050 : === DONE === l"PROCESSING COMPLETED."  :"YOU SHOULD SEE SEVERAL PROMPTS.":"THIS IS NORMAL."N D$;"EXEC TEMP"T h  === ERROR === ERR(222):ERR101700 @ERR6ĺ:"FILE NOT FOUND. TERMINATING.":1850 r"UNABLE TO COMPLETE. ERROR CODE = ";ERR:"NO CHANGE MADE":1850D E 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"PROCESSING COMPLETED":E #";NUM$:(NUM$)2(NUM$)254Ģ(37):958:160B NUM(NUM$)M 1500h D$"DELETE EAMON.NAME" LD$"OPEN EAMON.NAME" ~D$"WRITE EAMON.NAME" NAM$:ND$:"6.0" D$"CLOSE" D$"RENAME ";ADVNAM$;",";NAM$c FD$;"OPEN TEMP":D$;"WRITD$(4) A50) FD$"OPEN EAMON.NAME"5 KND$"6"T PD$"READ EAMON.NAME":ADV$^ U100g ZND$v dD$"CLOSE" n:6:" OLD ADVENTURE NAME IS ...": x" ";::ADVNAM$:: ::"NEW NAME:";NAM$ "AUTHOR NAME:";AU$2 "ADVENTUR  RENAME EAMON ADVENTURE: BY JOHN NELSON@ THIS PROGRAM WILL RENAME ANY 6.0 ADVENTURE  10-25-852:6:" INSERT EAMON ADVENTURE DISKETTE AND "::12);"PRESS ANY KEY...";:16368,0:A$: <     y A$"A"(8)D$(4)."DATE: ";U$ID$;"UNLOCK ";A$;",D1"q(D$;"RENAME";A$;",LAST UPDATE: ";U$w< ,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& <:"     4gh` a8 ȱ8& ߅Ȉ a)ߑ`XPLAIN REPORT === "THE FOLLOWING IS A REPORT OF THE ERRORS":"FOUND. THERE WERE ";ER;" ERRORS IN ALL.":"BECAUSE THERE COULD BE MULTIPLE ERRORS": "IN EACH ROOM, THE ROOMS LISTED MAY NOT":"SHOW ";ER;" ROOMS IN ERROR. THE NUMBERS":"LISTED ARE ROO J3000$ TX1NR:ER%(X)ĺX;" ";= h::ER;" ERRORS.":Y  === ANALYZE DIRECTIONv ODD(2(D2(D2))1) TWRD%(R,D):TW0TW(RD%(R,D)) BKRD%(TW,OD):BK0BK(RD%(TW,OD)) BKRER%(R)1:ERER1:10:23:ER: * === EING ... ":8:18:"ROOM":10:16:"ERRORS"G R1NR:8:23:R:D16j RD%(R,D)0RD%(R,D)NRİ2000 RD%(R,D)0ĭ(RD%(R,D))0(RD%(R,D))NRİ2000 : ,:24:"====== PRESS ANY KEY TO CONTINUE ======";:A$: @:ER0ĺ"NO ERRORS.":,10),ER%(NR)::8);"ROOM CONNECTION ANALYZER":4:18:NR;" ROOMS":6:10:"READING ROOM" D$;"OPEN EAMON.ROOMS,L64":R1NR:6:23:R:D$;"READ EAMON.ROOMS,R";R:D16:RD%(R,D): :D$;"CLOSE" :8);"ROOM CONNECTION ANALYZER"* 6:"ANALYZNTINUE ...";:A$:V A$"S"Ģ6:958:"SLOT ===> ";SL$:SL(SL$):SL$",S"(SL):20 (A$"D"Ģ6:958:"DRIVE ===> ";DR$:DR(DR$):DR$",D"(DR):20 dD$;"OPEN EAMON.DESC,L256";SL$;DR$ nD$;"READ EAMON.DESC,R0":NR,NA,NE,NM xD$Y RD%(NR EAMON CHECK CONNECT4 PROGRAM:Q BY JOHN NELSONW THIS PROGRAM WILL CHECK FOR POTENTIAL ROOM CONNECTION ERRORS AND REPORT THEM.  D$(4) :6:"INSERT EAMON ADVENTURE AND PRESS ANY KEY":" TO CO:" (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)ߑ`  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"2I14:WN$(I,0)WN$(I,C):WT%(I,0)WT%(I,C):WO%(I,0)WO%(I,C):WD%(I,0)WD%(I,C):WS%(I,0)WS%(I,C):sDD$(0)DD$(C) :(40(NA$(0)))2:NA$(0):" INPUT FIELD TO CHANGE:"::S$;" 1. NAME":S$;" 2. HARDINESS":S$;" 3. AGILITY":S$;" 4. CHARISM710(CC1:5000- /// MODIFY RECORD BC0SUB1:1000NA$(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):aAE(0)AE(C):AC(0)AC(C):0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000KjCI:C1C:5000a /// BY RECORD #y"RECORD NUMBER:";CCNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000C1C:5000 /// NEXT RECORDCNCĺ:14);"END OF FILE.":C0: /// SELECT RECORD :6:" SELECT RECORD BY:"::S$;"1. NAME":S$;"2. RECORD NUMBER":S$;"3. NEXT RECORD":S$;"4. RETURN TO MAIN MENU":X4:600:S1100,1210,1300,510L /// BY NAMEV"CHARACTER NAME:";NA$(0)8`I1NC:NA$(I)NA$(000,6000,7000,8000,9000/X /// GET NUMBER Nb:" INPUT (1-";X;"):";klA$:S(A$):S1SX620uvA$: /// CONTINUE PROMPT :" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY KEY TO CONTINUE)";:A$::);" ";*8::" SELECT ACTION:":S$;"1. SELECT A RECORD":S$;"2. MANIPULATE THIS RECORD":S$;"3. FILE MAINTENANCE"&S$;"4. TRANSFER THIS RECORD":S$;"5. GENERATE A NEW CHARACTER"0S$;"6. UPDATE RECORD AND QUIT":X6:600:S1000,2NU UP0::FULL0Ģ8:" THE DIMENSIONED ARRAYS ARE FULL; THE CHARACTER ARRAYS ARE BEING SAVED TO DISK. RERUN THE PROGRAM TO CONTINUE.":9000 :17);"EAMON"::" CHARACTER FILE MAINTENANCE":6:S$;" CHARACTER: NONE";:C0Ė21:NA$(CJ,I):WS%(J,I): I:D$0 216,0:NC0510: :10e " THE 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 ME(I)- TJ14:SA%(J,I)::J15:WA%(J,I):i ^AE(I):SEX$(I):SEX$(I)"M"SEX$(I)"F"SEX$(I)""380 hD$:D$;"READ CHARACTERS,R";I:NA$(I):DD$(I) rNA$(I)"(DEAD)":320 |GOLD(I):BANK(I):AC(I) J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(NC0420 I1NC C D$;"READ CHARACTERS,R";I:NA$(I)W NA$(I)""320c 10000 "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):CHACTERS,R0":NC:D$:216,0:220\ 216,0:(7)::"UNABLE TO LOAD CHARACTERS FILE":::440o 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) n 104,168,104,166,223,154,72,152,72,967 xD$(4):R S$" ":7 SPACES\ :10 " INSERT MASTER DISKETTE"::" AND PRESS ANY KEY":A$: /// INPUT DATA FROM DISK 215 D$"OPEN CHARACTERS,L150":D$"READ CHAR3 CHARACTER FILE / MAINTENANCE B - BY - \THOMAS J. ZUCHOWSKI v WINSTON-SALEM, NC  DEC 1983 REV.2/11/90 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N:)                ! ! ! !!!!  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";));2AG(0)WA%(WT%(I,0),0)WO%(I,0);"%"-!d!"-----------------":"5. RETURN TO MENU":X5:600u!WS::S5ı"" SELECT FIELD TO CHANGE:"::S$;"1. NAME",WN$(W,0):S$;"2. TYPE",WT%(W,0):S$;"3. COMP.",WO%(W,0):S$;"4. DICE",WD%(W,0):S$;"5. WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS";::I14 rI;".";WN$(I,0);16(WN$(I,0)));WT%(I,0);6((WO%(I,0))));WO%(I,0);"%";'!|7((WD%(I,0))"D"(WS%(I,0))));WD%(I,0);"D";WS%(I,0);5((2AG(0)WA%(WT%(I,0),0)WO%(I,0))810GOLD(0)X:`"HOW MUCH IN BANK:";X:X0X50000X(X)ĺ::"INVALID AMOUNT.":3830pBANK(0)X::"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000UP1:AE(0)X:J h:8:"SELECT X$:X$"M"X$"F"ĺ:"INVALID SEX":3600@$UP1:SEX$(0)X$:UP1::8:"SELECT ONE:"::S$;"1. GOLD IN HAND",GOLD(0):S$;"2. GOLD IN BANK",BANK(0):X2:600::S3810,3830"HOW MUCH GOLD IN HAND:";X:X0X50000X(X)ĺ:"INVALID AMOUNT.":3$;"2. LEATHER ARMOR":S$;"3. LEATHER ARMOR & SHIELD":S$;"4. CHAIN ARMOR"R S$;"5. CHAIN ARMOR & SHIELD":S$;"6. PLATE ARMOR":S$;"7. PLATE ARMOR & SHIELD"\ :S$;"(CURRENTLY ";AC(0);")":X7:600:AC(0)S::"OLD SEX: ";SEX$(0)*"NEW SEX: ";32002 UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200a UP1:"NEW CLUB EXPERTISE:";WA%(3,0):3200 UP1:"NEW SPEAR EXPERTISE:";WA%(4,0):3200 UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200 IH UP1::" ARMOR CLASS:"::S$;"1. SHIELD ONLY":SLITY:":S$;"1. AXE",WA%(1,0):S$;"2. BOW",WA%(2,0):S$;"3. CLUB",WA%(3,0) S$;"4. SPEAR",WA%(4,0):S$;"5. SWORD",WA%(5,0):S$;"----------":S$;"6. RETURN TO MENU":X6:600 :S3230,3240,3250,3260,3270,3280 UP1:"NEW AXE EXPERTISE:";WA%(1,0):X5:600::S3020,3030,3040,3050,3060S UP1:"NEW BLAST RATING:";SA%(1,0):3000 UP1:"NEW HEAL RATING:";SA%(2,0):3000 UP1:"NEW SPEED RATING:";SA%(3,0):3000 UP1:"NEW POWER RATING:";SA%(4,0):3000 I :8:" SELECT WEAPON ABI"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":2800U UP1:CH(0)X: :8:" SELECT SPELL:":S$;"1. BLAST",SA%(1,0):S$;"2. HEAL",SA%(2,0):S$;"3. SPEED",SA%(3,0)& S$;"4. POWER",SA%(4,0):S$;"----------":S$;"5. RETURN TO MENU": :"OLD HARDINESS:";HD(0):"NEW HARDINESS:";X:X3X300X(X)ĺ:"INVALID HARDINESS.":2400rj UP1:HD(0)X:( :"OLD AGILITY:";AG(0):"NEW AGILITY:";X:X3X300X(X)ĺ:"INVALID AGILITY.":26002 UP1:AG(0)X:B :"OLD CHARISMA:";CH(0):)";DD$(0)::2220+:"OLD NAME: "NA$(0)"NEW NAME: ";X$:(X$)0(X$,1)"A"(X$,1)"Z"(X$)20ĺ:"INVALID NAME.":2200I1NC:NA$(I)X$ĂNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200DD$(0)"":UP1:NA$(0)X$:_`S A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";SHS2200,2400,2600,2800,3000,3200,3400,3600,3800,4000,4200,4400,4600,4800,510R2060DD$(0)""ĺ:"THIS CHARACTER IS DEAD. THE PREVIOUS NAME OF THIS CHARACTER WAS:"::15:"(?A"K S$;" 5. SPELL ABILITIES":S$;" 6. WEAPON ABILITIES":S$;" 7. ARMOR"*S$;" 8. SEX":S$;" 9. GOLD":S$;"10. ARMOR EXPERTISE":S$;"11. WEAPON"4S$;"--------------------":S$;"12. DISPLAY RECORD":S$;"13. RETURN TO MAIN MENU"A>S$;"14. ADD AA%(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)ĂJ&NA$(I)NA$(0)ĺ:" THAT NAME IS ALREADY BEING USED.":720:y&NCNC1:CNC:ADD1:UP(C)1:NCFULLFULL0&4610& /// DISPLAY CHARACTER &:"RECORD #: ";:SUB1ĺC1;&SUB0ĺC;&15:"NAME: ";NA$(C)':SEX$(C)"M"ĺ")WO%(I,0):WD%(I,C)WD%(I,0):WS%(I,C)WS%(I,0):B% DD$(C)DD$(0)Y%*UP1UP(C)1:UP0d%4:510%FULL0ĺ:"THE DIMENSIONED ARRAYS ARE FULL. YOU MAY NOT ADD A CHARACTER TO THIS FILE UNTIL THE PROGRAM IS RERUN.":720:&I1NC:NA$(I)NA /// CHANGE ARRAYw$NA$(C)NA$(0):SEX$(C)SEX$(0):GOLD(C)GOLD(0):BANK(C)BANK(0):HD(C)HD(0):AG(C)AG(0):CH(C)CH(0)$ I14:SA%(I,C)SA%(I,0)::I15:WA%(I,C)WA%(I,0):0%AE(C)AE(0):AC(C)AC(0):I14:WN$(I,C)WN$(I,0):WT%(I,C)WT%(I,0):WO%(I,CRD"#:WT%(W,0):4260>#UP1:"NEW TYPE:";WT%(W,0):4260c#UP1:"NEW ODDS:";WO%(W,0):4260#UP1:"NEW DICE:";WD%(W,0):4260#UP1:"NEW SIDES:";WS%(W,0):4260#WW1:W4260,4260,4260,4260,4380##0C1C:C0:SUB1:5000:CC1:$SIDES",WS%(W,0)P"S$;"6. NEXT WEAPON":S$;"7. RETURN TO WEAPON MENU":X7:600|":S4290,4300,4340,4350,4360,4370,4200"UP1:"NEW NAME:";WN$(W,0):4260"UP1:"NEW TYPE:"#:S$;"1. AXE":S$;"2. BOW":S$;"3. CLUB":S$;"4. SPEAR":S$;"5. SWO91,9)::"====== PRESS ANY KEY TO CONTINUE ======";:A$::100Np /// QUITzUPĺ:"UPDATE HAS NOT BEEN APPLIED."::"PRESS ANY KEY TO CONTINUE";:A$::100D$"CLOSE"2)0:A2,A NANANI:100, /// APPLYxA1NA:D$"WRITE EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2,AD$"WRITE EAMON.DESC,R0":NR:NA:NE:NM:D$UP0100 /// CANCEL?UPUP:"UPDATE IS ";("CANCELLEDIN EFFECT",UP 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:I:D$:  AIA1NIIA:AN$(A)"DUMMY":A218:AD%(A,AW MANY TO INSERT?";NI$:(NI$)1(NI$)NA1003010r 8:"AFTER WHICH ARTIFACT:";IA$:(IA$)1(IA$)NART3020 :NI((NI$)):IA((IA$)):"INSERT ";NI;" ARTIFACTS AFTER ";IA;"." 6:"IS THIS CORRECT? (Y/N) "; A$:A$"Y"A$"N"3045A$"N"2045 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:D$:NANAND 100 /// ADD3 6:958::"HO6: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 ";D1ND1 6:"IS THIS CORRECT? (Y/N) "; A$:A$"Y"͠A$:(A$)1000,2000,3000,4000,5000,60009  /// LIST :LP0:A1NA:" ";A;". ";AN$(A):LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:A$::LP0:  B:"====== PRESS ANY KEY TO CONTINUE ======";:A$::100  /// DELETE? ں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"INPUT YOUR CHOICE (1-6):"; A$:(A$)1(A$)6130* D EAMON.DESC,R0":NR,NA,NE,NM6 (AN$(100),AD%(100,8)Y 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): FA:D$, d:17);"EAMON":9);"ARTIFACT MAINTENANCE":  ARTIFACT MAINTENANCE3 FOR EAMONL BY JOHN NELSONRXf 2-14-84l| D$(4)::6:" INSERT EAMON ADVENTURE DISKETTE AND"::6);"PRESS ANY KEY TO CONTINUE ...";:A$: D$"OPEN EAMON.DESC,L256":D$"REA     4. INIT FILE":S$;"5. LIST/DELETE CHARACTERS"W,S$;"6. RETURN TO MAIN MENU":X6:600{,S6100,6800,6200,6400,6600,510,///LIST FILE,AU1:C0:1300,8/// CONDENSE FILE,BI1NC,LNA$(I)""6300V-VJINC1:NA$(J)NA$(J1):SEX$(J)S(WT%(I,C),C)WO%(I,C);"%".+:SUB2SUB0:7+720O+AU1CNCAU0:C0^+AU11300q+SUB1SUB0:z+510+p /// FILE MAINTENANCE +z:8:" SELECT ACTION:":-,S$;"1. LIST FILE":S$;"2. SHORT LIST":S$;"3. CONDENSE FILE":S$;"TION:"7*" NAME TYPE CMPLX DMG ODDS";B*I14*WN$(I,C);18(WN$(I,C)));WT%(I,C);6((WO%(I,C))));WO%(I,C);"%";+7((WD%(I,C))"D"(WS%(I,C))));WD%(I,C);"D";WS%(I,C);5((2AG(C)WA%(WT%(I,C),C)WO%(I,C))));2AG(C)WA%)(A$"NONE"0)2AC(C)1A$"SHIELD ONLY":5220P)<AC(C)1A$"LEATHER ARMOR"n)FAC(C)3A$"CHAIN ARMOR")PAC(C)5A$"PLATE ARMOR")Z(AC(C)2)AC(C)2A$A$" & SHIELD")d:"ARMOR: ";A$)n" EXPERTISE: ";AE(C);"%"*x:"WEAPON INFORMA:WA%(1,C)F(" BLAST:";:12:SA%(1,C);:21:"2.BOW:";:30:WA%(2,C)( " HEAL:";:12:SA%(2,C);:21:"3.CLUB:";:30:WA%(3,C)(" SPEED:";:12:SA%(3,C);:21:"4.SPEAR:";:30:WA%(4,C)(" POWER:";:12:SA%(4,C);:21:"5.SWORD:";:30:WA%(5,C) MALE";"'SEX$(C)"F"ĺ"FEMALE";3'20:"GOLD:"k'"HARDINESS:";:12:HD(C);:21:"IN HAND: ";GOLD(C)'"AGILITY:";:12:AG(C);:21:"IN BANK: ";BANK(C)'"CHARM:";:12:CH(C)'20:"WEAPON ABILITY:" ("SPELL ABILITY:";:21:"1.AXE:";:30 KEY TO CONTINUE ======";:A$::(40< === DEL NONE?DL0ė:"PROGRAM HAS CALCULATED NO DELETIONS.":"WHY BOTHER?":"AN OVERLAP WOULD OCCUR. CANNOT CONTINUE.":NR:RMNM:NE:NM:D$"CLOSE""5 === VIEW ===:LP0:A1NA2:2((A)));A;"> ";(A$(A),12);:ANARĺ20((A1)));A1;"> ";(A$(A1),12)LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:A$:::LP0 ::"====== PRESS ANYTIFACTS,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";RDL100:(34);DE$;(34)RD$"WRITE EAMON.DESC,R0":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"70 iD$"OPEN EAMON.ARTIFACTS,L128" nRRMDL1NA1D$"READ EAMON.AR 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' "; XBD$:BD$"N"BD$"C"88 YBD$:BD$"N"NM0k Z:AM."Z 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"65 DA$:A$"V"1000 EA$"S"Ā" F:"NUMBER OF 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 FILES ARE SET UP":"CORRECTLY BEFORE RUNNING THIS PROGRONTINUE ...";:16368,0:A$:& 15t 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:A$(A)::D$;"CLOSE EAMON.ARTIFACTS"g (:"YOU WILL BE EAMON 9 REMOVE DUMMY ARTIFACTS X THIS PROGRAM WILL REMOVEw UNNEEDED ARTIFACTS FROM  EAMON FILES. 2-15-84 D$(4): :6:"INSERT EAMON ADVENTURE DISKETTE AND "::05);"PRESS ANY KEY TO C     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."Hu" YOU ARE IN A SMALL SIDE CHAMBER TO THEWEST OF THE LARGE CHAMBER. IT IS VERY ,R";REC:DE$:DK$4N20u --- INITIAL DATA ---@: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 NORTH/20.'A$:STX:X4:8'4* --- GET NUMBER ---V+8:958:"INPUT NUMBER: ";A$v +(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.DESC:A$(27)ġ:49003$D$;"PR#0":100F --- QUIT ---QUPĀ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$Ă:100)4100,42005NO1N%(ST):REC100(ST1)NO:20000G4500::4900Sh11000:o|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:A$: --- 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" (A$:10000:11000* ST3100,3200,3300,34005 20000M I2$DE$:600:DE$I$X 18000a 100y --- ROOM EDIT ---& RECNO: --- ART. EDIT --- RECNO100: --- EFF. ADD --- RECNO200:H --- MON. EDT ---R RECNM300:2400!600:DE$I2$:18000:10084 --- ROOM ADD ---M>NRNR1:RECNR:d --- ART. ADD ---}NANA1:RECNA100: --- EFF. ADD --- NENE1:RECNE200:` --- MON. ADD ---j NMNM1:RECNM300: --- EDIT A DESC --- UP1REC1NR:DE$:18000:+NA01035OR1NA:REC100R:DE$:18000:^ NE01045R1NE:REC200R:DE$:18000:NM01055R1NM:REC300R:DE$:18000:B100--- ADD A DESC ---UP1:10000:ST2100,2200,2300,25 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:UP1NR01025(7);:6159 qA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615b 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):6A$:(A$)1000,2000,3000,4000,5000V X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$` ]I$"" bI2$;:958:(I2$)āA1(I2$):(8);: gA$:A$(13)Č958:: jA$(17)LKġ::900 l(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ON"$ x8:4:"SELECT OPTION ...":g " 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); A$:A$"1"A$"5"170" E...";:16368,0:A$:9 2 ROOM,ARTIFACT,EFFECT,MONSTERY 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 DESCRIPTION EDIT":12);"BY JOHN NELS( DESCRIPTION PROGRAM7 BY JOHN NELSON=CIOU[a  DK$(4)::X14:TYP$(X)::5:" EDITING EAMON DESCRIPTION FILE"::" INSERT DISKETTE WITH ADVENTURE" :" PRESS ANY KEY TO CONTINU               PLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:6004S7200,7300,7800,76004 /// ADD NEW CHARACTER4*IC21:770044D$"WRITE CHARACTERS,R0":I:IC:75304/// REPLACE CHARACTERj5:" SEBE TRANSFERED TO, AND PRESS 'C'."[3:"HIT ANY OTHER KEY TO RETURN TO THE MAIN MENU.":r3A$::A$"C"5103D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$e4:" SELECT ACTION:":S$;"1. ADD CHARACTER AS NEW":S$;"2. READVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTER MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED."2v:"THE CHARACTER NOW LOADED IS:"::(40(NA$(C)))2:NA$(C)"3:"IF THE CHARACTER IS ALREADY LOADED, INSERT THE DISK IT IS TO HORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";1::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)""Ė21:"(?)";DD$(I);1:1S$" ":720:60001X /// MOVE CHARACTER 1bC0SUB1:1000t2l:"THIS ROUTINE WILL MOVE AN RITE CHARACTERS,R1"::D$:NC0:410=0/// CHAR LIST/DELETEK0:I1NCl0:"RECORD #";I;": ";NA$(I)0" KEEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)10060000/// SHORT LIST0I1NC:DD$(I)""S$""091:8:"S DISK!!!"\/(::" DO YOU WANT TO DELETE ALL THE":" CHARACTERS ON THIS DISK? ";A$/2A$"Y"ĺ::13:"ARE YOU SURE? ";A$/<A$"Y"6000/FD$;"DELETE CHARACTERS"/PNC1:D$;"OPEN CHARACTERS,L150":D$;"WRITE CHARACTERS,R0":NC#0ZD$;"WWD%(K,J)WD%(K,J1):WS%(K,J)WS%(K,J1):8.UP(J)1:JJ.NCNC1:ADD1s.I:::16)"DONE":I1500:I:6000./// INIT FILE. :6:16::"WARNING":.I13:(7);: /::" THIS SUBROUTINE WILL DELETE EVERY CHARACTER ON THISEX$(J1):GOLD(J)GOLD(J1):BANK(J)BANK(J1):HD(J)HD(J1):AG(J)AG(J1):CH(J)CH(J1)w-`K14:SA%(K,J)SA%(K,J1):-jK15:WA%(K,J)WA%(K,J1):-tAC(J)AC(J1):AE(J)AE(J1)).~K14:WN$(K,J)WN$(K,J1):WT%(K,J)WT%(K,J1):WO%(K,J)WO%(K,J1):COMPLETE... NO ERRORS FOUND."#,W"ERROR ";(222);" IN LINE #";(218)(219)256]AD$"READ EAMON.MONSTERS,R";M:MN$:13:25:M:F112:X::J D$"CLOSE"w :"DO YOU WANT TO VALIDATE STRUCTURE?"; A$:A$"Y"A$"N"210 A$:A$"N"300 D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":AD$:D$"VERIFY ";AD$:"VALIDATION D$"CLOSE":D$"OPEN EAMON.ARTIFACTS,L128":9:16:"ARTIFACT":M1NA:D$"READ EAMON.ARTIFACTS,R";M:9:25:M:AN$:X14:A%:X2T%A% :T%1āX14:A%: :D$"CLOSE"; D$"CLOSE":D$"OPEN EAMON.MONSTERS,L128":13:17:"MONSTER":M1NM:N$"Y"YN$"N"105 nYN$, xYN$"N"ĀM :5:7:"VERIFYING DATA..."p D$"OPEN EAMON.ROOM NAMES,L64" D$"OPEN EAMON.ROOMS,L64":7:20:"ROOM":R1NR:D$"READ EAMON.ROOMS,R";R:7:25:R:D16:RD%: D$"READ EAMON.ROOM NAMES,R";R:RN$:11:17:"EFFECTS "3 <NE0Ģ11:25:"(NONE)":80n FX1NE:D$"READ EAMON.DESC,R";X200:DE$:11:25:X: P13:17:"MONSTER ":X1NM:D$"READ EAMON.DESC,R";X300:DE$:13:25:X: ZD$"CLOSE" d:"DO YOU WANT TO CHECK FURTHER?"; iYN$:Y5:7:"VERIFYING DESCRIPTIONS...":g D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM (7:20:"ROOM ":X1NR:D$"READ EAMON.DESC,R";X:DE$:7:25:X: 29:16:"ARTIFACT ":X1NA:D$"READ EAMON.DESC,R";X100:DE$:9:25:X: 7^ EAMON CHECK ALL6 CHECK EAMON DISKK FILESQi BY JOHN NELSONo:"INSERT ADVENTURE TO BE TESTED FOR VALID":" TEXT FILES AND PRESS ANY KEY TO":" CONTINUE";:A$: D$(4)500$ :  :AC(I)J;#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$Y;#D$"CLOSE"_;#x;' ///ONERR ROUTINE ;'768;$'NC1(222)5NC0:410;.'D$;"CLOSE";8'D$;"OPEN CHARACTERS,L150";B'410A NC 27012 dI768777:N:I,N:):8:"*** END OF PROGRAM ***"::<:# /// WRITE RECORD [:#D$;"OPEN CHARACTERS,L150"y:#D$"WRITE CHARACTERS,R";I:#DD$(I)""NA$(I)"":#NA$(I):HD(I):AG(I):CH(I):J14:SA%(J,I)::J15:WA%(J,I):;#AE(I):SEX$(I):GOLD(I):BANK(I)I,0)0:9hAE0:AC0E9rADD1:NCNC1:CNC:UP(C)1:NCFULLFULL0]9|NA$(C)NA$(0):2000v9(# /// QUIT ROUTINE 92#D$;"CLOSE"9<#I1NC:UP(I)1İ91109F#9P#ADDĺD$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R0":NC:D$:#:Z#D$;"CLOSE":20;J:N$:S$;J;". ";N$::D$:7080?8@ // GENERATE NEW RECORD g8J:"NAME OF NEW CHARACTER: ";NA$(0)8THD(0)0:AG(0)0:CH(0)0:I15:WA%(I,0)0:9^I14:SA%(I,0)0::GOLD(0)0:BANK(0)0:I14:WN$(I,0)"NONE":WT%(I,0)0:WD%(I,0)0:WO%(I,0)0:WS%(:16:"ANY KEY":A$:87D$"OPEN CHARACTERS,L150":510b7J1C2:D$;"READ CHARACTERS,R";J:N$7NA$(C)N$IJĺD$:(7):"THE CHARACTER NAME ";NA$(C):"ALREADY EXISTS IN THIS FILE IN RECORD ";J::70807(: 8x:J1C2:D$;"READ CHARACTERS,R"00:7530!6L/// REPLACE BY REC#6VD$::10:"RECORD #:";I:I(I)IC2I1ĺD$::"THE HIGHEST RECORD IN THIS FILE IS ";C2:70806`77006j91206t:18:"DONE."::7206/// RETURN7D$"CLOSE"::5:" INSERT ORIGINAL DISKETTE AND PRESS"LECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2. REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MENU":X3:6005S7400,7500,70805:10:"NAME:";N1$5I1C2:D$"READ CHARACTERS,R";I:N2$:N2$N1$Ă:D$::"I DON'T FIND THAT NAME.":70806D$:77WRITE EAMON.ROOMS,R";R:D16:RD%(D):2 "1": D$;"CLOSE"::6:"DO YOU WANT TO CONVERT ANOTHER":" ADVENTURE? (Y/N) [_]";(8);(8); A$:A$"Y"A$"N"210 A$:A$"N"Ā 100 $TO ROOMS":12);"BY JOHN NELSON":6:"THIS PROGRAM ADDS A LIGHT FIELD TO THE EAMON.ROOMS FILE." 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:D16:RD%(D): 20:12:R' D$;" EAMON/ ADD LIGHT TO ROOMSF BY JOHN NELSONLX D$(4)d:6:"INSERT EAMON ADVENTURE DISKETTE AND "::"PRESS ANY KEY TO CONTINUE ...";:A$:+ n:11);"ADD LIGHT TO ROOMS":12);"BY JOHN NELSON":6:"THIS PROGRAM AD!! ! .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);"B  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"" " " " " """"""""