+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮLؠҍҫÍӠԍ͍ӍȠ٠ ҩٍѠΠ ōРƍӠ׍Рà׍Íà ύҩ٠ ōנ٠ōŠȫΠ٠ҩٍ؍ٍҩ٪ ҍ ԍ ЮЮ̮Ů Ү ǷҠՠԠՠàՠİǠԠЍҍԫҫԠ٠ҩ٠ čŠȠ ±٠ ٍÍàҠ ҮԠӍ٠ Ӎٍ±ٍŠҍ٠ ȍٍٍҠ٠ ҍѠԠ ō±٠ ҮР ſàҠ ԍĠƠ Ūï ҍ ɍ ōغ ԠՠųՠŰՠű±ՠŲ²ՠųǠҠԠ Ӎ٠٠Ҡ͍٠ҩٍҠӍ΍Íàҍҍàӱàҫӱ٠ѠٴΠà͍͍РڍѠҠčҠ ҍà ٍàҍàڵàҫڵŠЍȠҩٍҫΠ ҿР΍ɠΠӬ ҍؠ٠Ѡٴٲٍ٠ΠĿѠȠӍٴҩ٠ύРҩٍѠٲ؍ɠ΍΍ÍàԫӲҠ͍ҠԠ Íҍ٠ҫÍРӠΠ ǍР٠ҩٍΠ ҍٍҩ٠ ҍҍٍԩ٠ ōҍٍԩٍҫҠ͍ҠԠ îҍÍàҍҫàҫ٠ҩٍڍàҍŠӲàڠՠŴΠՠŶҠՠŷҠՠŹҠՠȠРҧŠԍҠԍÍӠЍԠҠԍҠ͍ҠԠ î٠٠͍ԩٍ΍ٍθ Ӭ¤å ź č Ǎ ¤ ō å ٍ î ȍҠՠ͠ՠŰΠՠűҠՠŲ٠ٍ̩Р̫Ѡȍà̍Šà̫à̍Šڳà̫ڳàҍÍ͍àҍӠЍҍȠ٠ҍٍͩӍ ȍ ɍ̍٠̫Ҡ͍ҠԠ î å͍٠ͫ٠ԩٍҍҠ͍ҠԠ î٠ԩٍ͍Р٠ٍ̩Р̍Šٍ ا͠ՠŴî å̠ՠŶ ōҠՠŸ ԍҠԠ ō٠ԩٍٍٍ̬ԩٍٍ̬Ҡ͍ҠԠ î ō جة ٍ å ا î ȍ ¥ ٍ̠ՠŰî ō͠ՠŲ Í͠ՠōԠՠųԠՠƷĹǠҠԍРŠȍҠԍҠ͍ ȍ ɍ ĥج٩å¥ ź č ĥ ê Ӎ ɍ Ӻ Ӭ¤ä ȩ ȩ ͮ Ӻ ĥج٩å¥Ԡՠ±Ԡՠ·Ԡՠ     N A8E7:46 49 4C 45 44 55 4D D0 N 9D48:DE BC N A933:20 30 N D9C6G":130:144R } I1(HEX$):511I,((HEX$,I,1))128::72,0:2G":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"L xFD$"Y"HEX$"BCDF:20 8E FD 20 A3 A2 20 8C A6 F0 05 20 ED FD D0 F6 20 FC A2 60 6368,0:FS$:FS$"N"FS$"n"ĺFS$:125@ <FS$"Y"FS$"y"50I FFS$j Z" INSTALLING FREE SPACE" 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 F0 88 D0 E9 A6 40 A5 41 AC 06 E0 D0 03 4C 24 ED 4C 1B E5 N D7D (Y/N) ?";C 16368,0:B$:B$"Y"B$"y"ĺB$:FS$"Y":FD$"Y":90[ B$"N"B$"n"23 B$:"DO YOU WANT FILEDUMP (Y/N) ?"; !16368,0:FD$:FD$"Y"FD$"y"ĺFD$:119 $FD$"N"FD$"n"33 (FD$:"DO YOU WANT FREE SPACE (Y/N) ?";& 21:5:(21) "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 BOTH4gh` a8 ȱ8 % ߠȱȱa)ߑ` ,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& <:"T USED),(NOT USED),(NOT USED),(NOT USED)L#V MONSTER#,KEY#,GUARD#,ATTACHEDR#<BY TOM Zdk } REV. 7/17/90 (4);"MAXFILES 5"* D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::" USES,(NOT USED)="81ST EFFECT,# EFFECTS,READABLE,(NOT USED)e"BROOM INTO,KEY#,STRENGTH,(NOT USED)"L(NOT USED),(NOT USED),(NOT USED),(NOT USED)"V MONSTER#,KEY#,GUARD#,ATTACHED"<M MONSTER#,KEY#,GUARD#,ATTACHED"<>> READ DATÄAF:MFꈃ 4,12: AF = # ART0ĺ" [ NATURAL WEAPONS ]";NM29M%(9)0M%(9)NARĺ" [";AN$(M%(9));"]";M29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";:M2:D$LP45PRTLP0:(12);(SIZ(ADV$))21);ADV$:PRTĞ:7);"PRESS ANY KEY TO CONTINUE";6);:A$::[";MN$;"]":"DESC:":8000:LPLP4xM2112:LPLP1:" ";M$(M2);(PR$,1,10(M$(M2)));(PR$,1,6((M%(M2))));M%(M2);M23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)"PRTĺD$"PR#";PSU:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:5500:D$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$!"MONSTER # ";R;" :"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$z8:958:"ENDING WITH #:";EN$:EN$""EN$(NM):8:15:EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$)D$"OPEN EAMON.MONSTERS,L12800::D$D$"PR#0":100!GMRG);"EFFECT #";R;":"::LPLP2sD$;"READ EAMON.DESC,R";R200:A$:8000LP500ıD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)ġ:100 /// LIST MONSTERS96:958TH #:";BEG$:BEG$""BEG$"1":18:6:BEG$k8:958:"ENDING WITH #:";EN$:EN$""EN$(NE):15:8:EN$(BEG$)NE(BEG$)1BEG$"1"(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)PRTĺD$"PR#";PS:LP500:RBEGEN:45A%(2)2A%(2)3)ĭA%(A2)1A%(A2)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";i:A2oD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::A$(27)ġ:100 /// LIST EFFECTS*6:958:"BEGINNING WI4)100);"]";NA24A%(4)300A%(4)300NRĺ" [HIDDEN ";R$(A%(4)300);"]";g:A2:A%(2)103740$FMP%(A%(2))03740.A258:A$(A2)"(NOT USED)"3740BLPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2);_tA26(";TYP$(A%(2));"]";:3580I A24A%(4)0A%(4)NRĺ" [";R$(A%(4));"]"; A24A%(4)0A%(4)NM1ĺ" [CARRIED BY ";MN$((A%(4))1);"]"; A24A%(4)200A%(4)200NRĺ" [";R$(A%(4)200);"]"; A24A%(4)100A%(4)100NARĺ" [INSIDE ";AN$(A%(%(2)),X):i "ARTIFACT # ";R;" [";AN$(R);"]":LPLP2:D$;"READ EAMON.DESC,R";100R:A$:"DESC: ":8000 A214:LPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2); A22A%(2)10ĺ" [SPECIAL CATEGORY]";:3580 A22ĺ" [::RBEGEN:3500:F D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100 D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(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"ENDING WITH ARTIFACT:";EN$:EN$""EN$(NA):22:8:EN$\ (BEG$)NA(BEG$)1BEG$"1" (EN$)NA(EN$)(BEG$)EN$(NA) BEG(BEG$):EN(EN$) D$"OPEN EAMON.ARTIFACTS,L128" PRTĺD$"PR#";PS:(9);"80N" (SIZ(ADV$))2);ADV$:";R$((DR%(D)));"]";/p:D:"LIGHT: ";LT:D$rzPRTĺ::" PRESS ANY KEY TO CONTINUE ";::A$::A$(27)ġ:100 /// LIST ARTIF. 6:958:"BEGINNING WITH ARTIFACT:";BEG$:BEG$""BEG$"1":6:25:BEG$9 8:958:":D$;"READ EAMON.DESC,R";R:A$:8000oH"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D):wMLTRD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99ĺ"[EXIT]";:2160fDR%(D)0(DR%(D))NRĺ"[EN$)(BEG$)EN$(NR)0BEG(BEG$):EN(EN$)N D$"OPEN EAMON.ROOMS,L64"o PRTĺD$"PR#";PS:(9);"80N"*:(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:2100:/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":100%4:"ROOM # ";R;" [";R$(R);"]":"DESC:";A$:A$"1"A$"7"10204A$:PS(A$):100J /// LIST ROOMS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":6:18:BEG$8:"ENDING WITH #:";EN$:EN$""EN$(NR):8:15:EN$(BEG$)NR(BEG$)1BEG$"1"(EN$)NR(N",PRT31,3PRT);")":" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CHl CH1000,2000,3000,4000,5000,6000,7000u 130 DR$""DV4:DR$"6":216,0:D$;"CLOSE":35 DV5:D$;"CLOSE":35  /// SET UP PRINTER6:958:"WHAT SLOT IS PRINTER IN?"EAMON DUNGEON LIST":14);"BY JOHN NELSON":(40(ADV$))21);::ADV$: 8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS"A " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$ bD$"OPEN EAMON.MONSTERS,L128":R1NM:D$"READ EAMON.MONSTERS,R";R:MN$(R)::D$"CLOSE EAMON.MONSTERS" cSIZ40 d /// MAIN ROUTINEJ n:12); (ND(DR$)U 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$` <35000| FR$(NR),AN$(NA),MN$(NM) XD$"OPEN EAMON.ROOM NAMES,L64" ZR1NR:D$;"READ EAMON.ROOM NAMES,R";R:R$(R): \D$"CLOSE EAMON.ROOM NAMES"f _D$"OPE PRESS ANY KEY ...";:16368,0:A$:/ 200{ :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$:DR$,DV:D$;"CLOSE" #216,0:DV6.9ĺ(7):"THIS EAMON ADVENTURE IS VERSION 7.X. USE 'DUNGEON LIST 7.1' TO LIST THIS ADVENTURE.":D$"CLOSE": LIST DUNGEON- VERSION 6.0E BY JOHN NELSON^ MYLIST G BY TOM Zdk x 1/31/95 (4);"MAXFILES 5"% D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::"           C,L256":D$"WRITE EAMON.DESC,R0":N%(1):N%(2):N%(3):N%(4):D$"CLOSE"E"ITE EAMON.DESC,R0":N%(1):N%(2):N%(3):N%(4):D$"CLOSE",ND MODIFIES SIX AND TEN DIRECTION DUNGEONS. REV. 7/17/90  (4);"MAXFILES 7":SL$(SED),0?E(NOT USED),0,(NOT USED),0,(NOT USED),0,(NOT USED),0lEފMONSTER#,0,KEY#,0,GUARD#,0,(NOT USED),0rE<E`"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.":GFHD$(4):D$"OPEN EAMON.DES,DICE,1,SIDES,4,KEY#,0,STRENGTH,100,(NOT USED),0,(NOT USED),0DHCOUNTER,999,(NOT USED),0,(NOT USED),0,(NOT USED),0,CHANCES,100,HEAL AMT,6,NBR USES,5,(NOT USED),0Ez1ST EFF.,1,#EFFECTS,1,READABLE,1,(NOT USED),0,ROOM BEYOND,1,KEY#,0,STRENGTH,999,(NOT U5):M1MF:DM%(M):LC 16,16,0,100,0,150,0,0,0,50,1,4:MONSTER DEFAULTSCNF:FMP%(DT5),FML$(DT5,4),FD%(DT5,4):X0DT:FMP%(X)::X1NF:F14:FML$(X,F),FD%(X,F):CC8C0,0,1,1,2,3,4,5,6,7,8:FORMAT POINTERS=DODDS,10,W.TYPE,3D):(B؈ N ,S ,E ,W ,U ,D ,NE,NW,SE,SWBBۈT110:DD%(T)::DLsB0,0,0,0,0,0,0,0,0,0,1:DEFAULT ROOM NUMBERSBMF12:M$(MF5),M%(MF5):M1MF:M$(M):B숃HD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDESCDM%(MFeAȈ10,GOLD,TREASURE,WEAPON,MAG WEAPON,CONTAINER,LIGHT,HEALING,READABLE,DOOR/GATE,KEY,BOUND MONSTERAʈAF4:AL$(AF4CX),AD%(AF4CX):T1AF:AL$(T):AˈVALUE,TYPE,WEIGHT,ROOMÄT1AF:DA%(T):Aш50,1,5,0:ARTIFACT DEFAULTSBֈD110:DD$(" "::DE$DE$THE$A$"."K@熁X21AF4:AD%(X2)0::AD%(2)1:AD%(3)MD%(6)s@RECX100:NOX:18000:N%(2)N%(2)1@31200:@150@ === SETUP DATA @ˆCX5:T14:T$(T):@È ROOM,ARTIF,EFFECT,MONSTALjDT:TYP$(DTCX):T0DT:TYP$(T):HE DEAD BODY OF THE ";A$::"CHOOSE THE CORRECT PHRASE (1-2):";\?ֆX$:X$"1"X$"2"34518?׆THE$("THE ",1,(X$"2")4):X$?؆NA$"DEAD "A$:DE$"YOU SEE THE DEAD BODY OF "THE$A$"."@↭(DE$)40ĭ(DE$,41,1)" "DE$(DE$,25):S2640:DE$DE$Ȳ >> WRITE MONSTER^>zDK$;"WRITE EAMON.MONSTERS,R";NO:(34);NA$;(34):M1MF:M%(M)::DK$d>z|>Ć === GENERATE DEAD>ΆXALA:DK$;"READ EAMON.MONSTERS,R";M:A$:X216:MD%(X2)::DK$:MM1??ӆ6:958:" 1. THE DEAD BODY OF ";A$::" 2. T:=|y >> WRITE ROOMN=yDK$;"WRITE EAMON.ROOM NAMES,R";NO:(34);NA$;(34)=yDK$;"WRITE EAMON.ROOMS,R";NO:D1ND:RD%(D)::LT:DK$=y=y >> WRITE ART.=yDK$;"WRITE EAMON.ARTIFACTS,R";NO:(34);NA$;(34):D1AF4:AD%(D):=yDK$:>zD1ND:RD%(D):$<RLT1:DV5ĄLT/<&RDK$:B> READ ART.> READ MONSTER<]DK$"READ EAMON.MONSTERS,R";NO:NA$:D1MF:M%(D):=^DK$AD%(D):;;150&;PF >> WRITE DESC`;ZFDK$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):DK$:s; N >> READ DESC;*NDK$;"READ EAMON.DESC,R";REC:DE$:DK$;4N;R >> READ ROOM<RDK$;"READ EAMON.ROOM NAMES,R";NO:NA$:DK$;"READ EAMON.ROOMS,R";NO::`; >> CHG DEF. MONST.:j;:"ENTER NEW DEFAULT VALUES FOR EACH FIELD.":D1MF:M%(D)DM%(D)::14040:D1MF:DM%(D)M%(D)::;150:; >> CHG DEF. ART. ;;:"INPUT NEW DEFAULT VALUES FOR ALL FIELDS.":D1AF:AD%(D)DA%(D)::12050:D1AF:DA%(D)A$::96M1MFl96"ENTER ";M$(M);": ";:I2$(M%(M)):600:M%(M)(I$):(M%(M))I$ĺ(7):(37):14050r96x969: >> CHG DEF. ROOM9;:"INPUT DEFAULT VALUES DESIRED.":D1ND:RD%(D)DD%(D)::110559;D1ND:DD%(D)RD%(D)::DLLT:;15082 >> EDIT EFFECTF82:"ENTER EFFECT #";NO:I2$DE$:600:DE$I$::\86 >> EDIT MONSTER86:"ENTERING MONSTER # ";NO::I2$NA$:"ENTER NAME:";:600:I$""(I$)301401096NA$I$::"ENTER DESC--":I2$DE$:600:DE$I$::"MONSTER # ";NO;" ";::N,12290,12290,122607/12290b7/X0DT2:" ";X;" = ";TYP$(X);:XDTĺ22);X1;" = ";TYP$(X1)l7/::7/"1=AXE, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":707 0X14:AL$(XAF)FM$(FMP%(AD%(2)),X):70X14:AD%(AFX)FD%(FMP%(AD%(2)),X):7f0MP%(AD%(2))0120806%/D4ĺ"+100 = INSIDE ARTIF. +200 = EMBEDDED":"+300 = HIDDEN IN ROOM +400 = BURIED":"-2 > -NM = MONSTER CARRYING IT"6&/AL$(D);" : ";:I2$(AD%(D)):600:AD%(D)(I$)6+/D2PTAD%(2)İ1230060/6:/7/D112250,12290ARTIFACT NAME:":" ";::I$::NA$I$:6:I2$DE$5/"ARTIFACT DESCRIPTION:":I2$DE$:600:6:958:"ARTIFACT DESCRIPTION:"::I$::DE$I$:5/D1AF4:D2(DAF2AD%(2)1AD%(2)4)İ122005/D2PTAD%(2)5!/AL$(D)"(NOT USED)"120806$/DAFĭF(RD%(D))I$Ģ(37):11060^4H+:"LIGHT (0 = NONE; 1 = NORMAL) ";:I2$(LT):600:LT(I$):u4. >> EDIT ARTIFACT4.:"ENTERING ARTIFACT ";NO:I2$NA$::"ENTER ARTIFACT NAME:"4." ";:600:(I$)39Ģ3:20:"TOO LONG!":I2$I$:1220/5.3:958:"N:"::I$::DE$I$:3*+13:958:"FOR EACH DIRECTION,GIVE THE ROOM THAT THIS ROOM CONNECTS TO (USE ZERO FOR NO CONNECTION, NEGATIVE NUMBER FOR UNUSUAL THINGS.)"3/+D1ND44+"MOVE ";DD$(D);"...";:I2$(RD%(D)):600:RD%(D)(I$):RD%(D)(RD%(D))2* >> EDIT ROOMK2+:"ENTERING ROOM ";NO::I2$NA$:"ENTER ROOM NAME:"2 +" ";:600:(I$)39Ģ3:20:"TOO LONG!":I2$I$:110202+3:958:"ROOM NAME:":" ";::I$::NA$I$:6:I2$DE$3 +"ENTER ROOM DESCRIPTION:":600:6:958:"ROOM DESCRIPTIO$1@)XDT1DTDT1:TY$(DT)I$:15021J)TY$(X)I$=1^)10500X1h) === ADD A FORMAT ===e1r)6:9581|)NFNF1:X14:"FIELD ";XAF;" LABEL:";:I2$"":600:FML$(NF,X)I$:"DEFAULT DATA:";:I2$"0":6001)((I$))32765FD%(NF,X)(I$)1)1)6800";TY$(X)::" ";DT1;". NEW TYPE":" ";DT2;". RETURN TO PREVIOUS MENU"0)"INPUT TYPE NUMBER:";A$:(A$)0(A$)DT2ĺ"TRY AGAIN, FROGFACE.":105200")X(A$):XDT268000,):"NEW TYPE:";:I2$TY$(X):600:I$""XDTDTDT1:1050016)I$""150(A$:A$"1"A$(NF)10420+/(A$:F(A$)w/(6:958:X14:"FIELD ";AFX;" LABEL:";:I2$FM$(F,X):600:FM$(F,X)I$/("DEFAULT DATA: ";:I2$(FD%(F,X)):600:((A$))32765FD%(F,X)(I$)/(/(6800/) >> ART TYPESI0):X0DT:" ";X;". M%(X):,.P("INPUT NUMBER 0 - ";DT;:":";A$Q.Z((A$)DTY(A$)0Ģ(37):10320]._(X(A$).d("NEW POINTER (0-";NF;:"): ";A$:(A$)0(A$)NFĢ(37):10340.n(FMP%(X)(A$):6800.( === CHANGE FORMAT ===.(6:958:"INPUT FORMAT NUMBER:";/:";A$:A$""XAFAFAF1:10200/-(A$""150K- (AL$(X)A$:XAFAFAF1V-2(10200q-<( === CHANGE FPTR ===.F(6:958:"FOR WHICH ARTIFACT TYPE:":X0DT:" ";X;" = ";TY$(X);("..................................",1,20(TY$(X))((TY$(X))20));F,' >> ARTIF. DATA ASSIGN,':X1AF:" ";X;". ";AL$(X)::" ";AF1;". NEW FIELD":" ";AF2;". RETURN TO PREVIOUS MENU",'"INPUT FIELD NUMBER:";A$:(A$)1(A$)AF2ĺ"TRY AGAIN, FROGFACE.":10220,'(A$)AF26800 -'X(A$)::"NEW LABELELD":" ";MF2;". RETURN TO PREVIOUS MENU"|+'"INPUT FIELD NUMBER:";A$:(A$)1(A$)MF2ĺ"TRY AGAIN, FROGFACE.":10120+'(A$)MF26800+'X(A$)::"NEW LABEL:";A$:A$""XMFMFMF1:10100+'A$""150+'M$(X)A$:XMFMFMF1,'10100)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::*HF1NF:X14:FD%(F,X):::MF:X1MF:M$(X)::X1MF:DM%(X)::DT:X0DT:TY$(X)::DK$;"CLOSE ";A$*z150*t' >> MON. DATA ASSIGN++~':X1MF:" ";X;". ";M$(X)::" ";MF1;". NEW FI)::X1MF:DM%(X)::DT:X0DT:TY$(X)::DK$;"CLOSE ";A$E)150Y)  >> SAVE PARAM)*6:958:"NAME OF PARAMETERS FILE:"::" ===> ";A$)4(A$,1)"?"ĺDK$;"CATALOG";(A$,2)::A$:72006*>DK$;"OPEN ";A$:DK$"WRITE ";A$:AF:X1AF:AL$(XE OF PARAMETERS FILE:"::" ===> ";A$a((A$,1)"?"ĺDK$;"CATALOG";(A$,2)::A$:::7100(DK$;"OPEN ";A$:DK$"READ ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::<)F1NF:X14:FD%(F,X):::MF:X1MF:M$(X 2. SAVE PARAMETERS"::" 3. RETURN"E':"INPUT NUMBER (1-3): ";a'A$:A$"1"A$"3"6930~'A$:(A$)7100,7200,150'X >> QUIT'bDK$;"WRITE EAMON.DESC,R0":T14:N%(T):'lDK$;"CLOSE"'v216,0:' >> LOAD PARAM)(6:958:"NAMO MAIN MENU":"INPUT THE NUMBER (1-7):";F&A$:(A$)1(A$)76830}&A$:(A$)10100,10200,10300,10400,10500,10600,140& >> LOAD/SAVE PARAM.&':10);"LOAD/SAVE PARAMETERS":6:958:"SELECT LOAD/SAVE FUNCTION:"::" 1. LOAD PARAMETERS"::",150!% >> CHANGE DATA ASSIGN%:08);"CHANGE DATA ASSIGNMENTS":6:"SELECT DATA TYPE:":" 1. MONSTER DATA":" 2. ARTIFACT DATA":" 3. CHANGE FORMAT POINTER":" 4. CHANGE A FORMAT"(&" 5. ARTIFACT TYPES":" 6. ADD A FORMAT":" 7. RETURN T);"CHANGE DEFAULTS":6:"SELECT DEFAULT TO CHANGE:"::" 1. ROOM VALUES"::" 2. MONSTER VALUES"$@:" 3. ARTIFACT VALUES"::" 4. RETURN TO MAIN MENU"::"INPUT YOUR CHOICE (1-4):";$JA$:(A$)1(A$)46730%TA$:(A$)15100,15200,15300#A1NA:DK$"WRITE EAMON.DESC,R";N%(2)101:"YOU SEE ARTIFACT ";N%(2)1;"."#DK$"WRITE EAMON.ARTIFACTS,R";N%(2)1:"ARTIFACT ";N%(2)1:X18:0::N%(2)N%(2)1:#DK$:150# >> TOGGLE H/C#HCHC:150#, >> CHANGE DEFAULTSd$6:12ER TO START ON:";M-"AN%(2)1:LAAN%(4)M8"34500H"8 >> DELETEk"BC$"DELETE":500:N%(A)N%(A)1u"L6000" === INCREMENT"C$"INCRMNT":500:N%(A)N%(A)1:6000"LKLK:6000"d >> GEN. DUMMY ART."n"x"NBR ART. TO GEN:";NAN(13)ĺ:150(!(S$)1(S$)SF6045b!:(S$)6100,6200,6300,6400,6500,6600,6700,6800,6900u! >> GEN. DEAD!6:958:"ALL DEAD BODIES (Y/N):";!A$:A$"Y"A$"N"6110!A$:A$"Y"AN%(2)1:M1:LAAN%(4)1:34500""MONSTER NUMBGENERATE DUMMY ARTIFACTS"b :" 6. TOGGLE PRINTER (NOW ";("OFFON",HC31,3HC);")":SF76040 :" 7. CHANGE DEFAULTS"::" 8. CHANGE DATA ASSIGNMENTS"::" 9. LOAD/SAVE CUSTOMIZED PARAMETERS" :"INPUT YOUR CHOICE (1-";SF;"):"; !S$:S$IONSKu:SF9::" SELECT FUNCTION OR PRESS ":::DV6SF6nz" 1. GENERATE DEAD BODIES":" 2. DELETE LAST R,A,E,M":" 3. ADD TO NBR OF R,A,E,M":" 4. TOGGLE LOCK MODE (NOW ";("OFFON",LK31,3LK);")" :" 5.  >> DUP. ART.KZNOFROM:RECNO100:22000:20000:RECNC100:NONC:1230^ >> DUP. EFF.NOFROM:RECNO200:20000:RECNC200:18000150 >> DUP. MONSTER"NOFROM:24000:RECNO300:20000:RECNC300:NONC:1430p >> SPECIAL FUNCTPLIC.":500:TYPEAIC$"DUP. FROM":700:FROMNO:C$"CREATE":700:NCNONON%(TYPE)ĺ"CREATING A ";T$(TYPE);" FROM ANOTHER.":N%(TYPE)N%(TYPE)1TYPE5100,5200,5300,5400 >> DUP. ROOMNOFROM:RECNO:21000:20000:RECNC:NONC:1130P0:TYPEA&TYPE4100,4200,4300,4400< >> REPLACE ROOMK700:1120ch >> REPLACE ARTIF.}r700:RECNO100:1220 >> REPLACE EFFECT700:RECNO200:13200 >> REPLACE MONSTER:700:RECNO300:1420 >> DUPLICATEC$"DU$;"PR#0"? :"PRESS ANY KEY TO RETURN TO MENU";:A$:::150S >> PAGE BREAK}LP0:HCĺ(12);"LISTING ";A$;"S"::$:" (PRESS ANY KEY TO CONTINUE) ";:16368,0:B$::(37)1:958j >> REPLACE ITEMC$"REPLACE":50O RETURN TO MENU) ";:A$:::150MH F$"EAMON.MONSTERS":A$"MONSTER":3500a >> LIST STUFF ::LP0:"LISTING ";::A$;"S":::34,2:A1N%(TYP):DK$;"READ ";F$;",R";A:NA$:DK$:A$;"#";A;": ";::NA$: LPLP1:LP1930HCİ3600 A:DKFACT":3500o ::LP0:"LISTING ";:A$"EFFECT"::A$;"S":::34,2:A1N%(TYPE):RECA200:20000:A$;" #";A HCāX1(DE$)40:(DE$,X,40):LPLP1: HCĺDE$:LPLP1 ::LPLP1:LP1235HCİ3600* A:DK$;"PR#0""4 :"(HIT ANY KEY TIST THINGS C$"LIST":500:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$::150 HCĺDK$;"PR#1" TYPE3100,3200,3300,3400 F$"EAMON.ROOM NAMES":A$"ROOM":3500  F$"EAMON.ARTIFACTS":A$"ARTINO:21000:20000:1130- >> EDIT ARTIFACTw700:RECNO100:20000:22000:X14:AL$(AFX)FML$(FMP%(AD%(2)),X):1230 >> EDIT EFFECT 700:RECNO200:20000:1330` >> EDIT MONSTERj 700:RECNO300:24000:20000:1430  >> Lx >> ADD MONSTER;N%(4)N%(4)1:NON%(4):RECNO300dNA$"":DE$"":D1MF:M%(D)DM%(D):14000:18000:31400:LKī150800 >> EDIT OLD ITEMC$"EDIT":500:TYPEATYPE2100,2200,2300,24004 >> EDIT ROOM>700:REC(2)1:NON%(2):RECNO100jNA$"":DE$"":D1AF:AD%(D)DA%(D)::X14:AL$(XAF)FM$(FMP%(AD%(2)),X):12000:31200:18000:LKī150800 >> ADD EFFECTN%(3)N%(3)1:NON%(3):RECNO200(DE$""213000:18000:LKī150<800ITEMC$"ADD":500:TYPEA;TYPE1100,1200,1300,1400ML >> ADD ROOMoVN%(1)N%(1)1:NON%(1):RECNO`NA$"":DE$"":D1ND:RD%(D)DD%(D)NO(DD%(D)0)::LTDLj11000t31100:18000:LK150~800 >> ADD ARTIFACTN%(2)N%[" (1-";N%(TYPE);:") ";A$:NO(A$):NO1NON%(TYPE)(C$"CREATE")NO(NO)ġ:150at  >> LOCKED <<*:C1020,2020,3010,4020,5020,150,150z150 >> DELETE FROM LOCKLKLK:C1N%(TYP)N%(TYP)1:150150 >> ADD A$(21)A$" ":625XA$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615A$(8)(I$)I2$I$I2$:A$;:600A$(8)600A$(27)ĺI2$:I$I$I2$:615 >> GET NUMBER6:958:"INPUT NUMBER OF ";T$(TY);" TO ";C$$:I2$"":615J{A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615iA$(4)I2$(I2$,2):610A$(9)CIISIS:H(36):V(37):39:1::(" I",IS1,1)::H1:V1:615A$(9)I2$" "I2$:610A$(21)(I2$)A$(I2$,1):625A1(I2$):(8);:0gA$:A$(13)Č958::JjA$(17)LKġ::900l(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ĺ(7);:615nA$(31)ISĺA$;:I$I$A$:610qA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615 vA$(5)ĺI2$;:I$I$I2$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";jA$:A14:A$("RAEM",A,1)Ă:520tA$:X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$]I$"":H(36):V(37):38:1::(" I",IS1,1)::H1:V1bI2$;:958:(I2$)2)LKLK:150'1A$(9)CICI:150@6(A$)1(A$)7300P@C(A$):A$z^C1000,2000,3000,4000,5000,6000,7000ND$""DV4:ND$"6":DK$;"CLOSE":60DV5:DK$;"CLOSE":60 >> SELECT WHAT TO WORK ONA2:958:"DO YOU WANT TO ";C" 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OLD)"P " 5. DUPLICATE A ROOM, ARTIFACT":" OR MONSTER" " 6. SPECIAL FUNCTIONS"  " 7. QUIT" ":"ENTER KEY FOR YOUR CHOICE (1-7) ";,A$:A$(1);:+ " ";::("CONT.ISRT",1,9CI): "YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" MONSTER" " 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER" " 3. LIST NAMES OF ROOMS, ARTIFACT,ETC" J :DV6DT3:TY$(3)"ODD WEAPON" dDV6.9ĺ(7):"THIS ADVENTURE DISKETTE IS VERSION 7.X. USE 'DUNGEON EDIT 7.1' TO EDIT THIS ADVENTURE.":DK$"CLOSE": 60000 :T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DUNGN$:("LOCK",1,LK4CLOSE" <ND(ND$):216,0 FDK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256" PDK$;"READ EAMON.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$ Z35000)):DR$((43624)) DK$(4)::5:" EDITING AN ADVENTURE FOR EAMON"::" INSERT DISKETTE WITH ADVENTURE"::" PRESS ANY KEY TO CONTINUE...";:16368,0:A$: (400 2DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:ND$:DV:DK$;"H> DUNGEON EDIT PROGRAM7 BY JOHN NELSON=q ADAPTED FROM DON BROWN'S DUNGEON EDIT THIS PROGRAM ADDS AND MODIFIES SIX AND TEN DIRECTION DUNGEONS. 1/31/95 (4);"MAXFILES 7":SL$((43626                                     ESC":N(1):N(3):NE:N(2):L(1):L(2):L(3):D$"CLOSE"4ON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  D$(4):E$(1)"EAMON.ROOMS":E$(2)"EAMON.MONSTERS":E$(3)"EAMON.ARTIFACTS"::3:10:"RESIZE FILES UTILITY"::C 6:"INSA$(I)J1X:A%(I,J)::?D$"CLOSE":D$"DELETE "E$(A)e,L(A)N34:A1L(A)N42(A2)201D$"OPEN"E$(A)",L"L(A)6I1N(A):D$"WRITE"E$(A)",R"I@A$(I)JJ1X:A%(I,J)::TD$"CLOSE"7D$"OPEN EAMON.DESC":D$"WRITE EAMON.DLL NEED APPROX. "((NT(A))L(A)2562):"ADDITIONAL SECTORS":"TYPE 'C' TO BEGIN, OR ANY OTHER KEY TO ABORT: ";:Q$:Q$:Q$"C"ĀA$(200),A%(200,15)X11:A1X7A3X8D$"OPEN "E$(A)",L"L(A)I1N(A):D$"READ"E$(A)",R"I:HIS PROCESS NOT BE PERFORMED UNLESS YOU HAVEA BACK-UP COPY OF THE ADVENTURE DISK."f NT(A)0170 :"IF YOU ARE INCREASING THE NAME SIZE, BE *SURE* THAT YOU HAVE SUFFICIENT DISK SPACE TO ACCOMMODATE THE EXTRA BYTES."="IN THIS CASE, YOU WISH TO RESIZE." x:"THE COMPUTER WILL NOW READ IN THE DISK FILE, DELETE IT, AND REWRITE IT IN THE NEW SIZE. DO *NOT* HALT THE RESIZING PROCESS, OR YOU WILL WIND UP WITH A PAR-TIAL FILE OR NO FILE AT ALL."S :"IT IS *STRONGLY* RECOMMENDED THAT TF "E$(A);:A$:(A$,1)"Y"50 Z::"ENTER THE NEW NAME SIZE THAT YOU WANT FOR "E$(A):"(OLD SIZE: "T(A);:"): ";N$:N(N$) d:"IS THE ABOVE CORRECT? ";Q$:(Q$,1)"Y"Ā n:3:"BE SURE THAT THE DISK IN THE DRIVE NOW IS THE ONE WHICH YOU WI(1):" MONSTERS:.."T(2):" ARTIFACTS:."T(3) <:"WHICH ONE DO YOU WISH TO RESIZE?"::" 1) ROOMS":" 2) MONSTERS":" 3) ARTIFACTS" F:"ENTER THE NUMBER OF YOUR SELECTION: ";A$:A(A$):A1A370 P:3:"DO YOU WISH TO CHANGE THE NAME SIZE OERT ADVENTURE DISK TO BE MODIFIED AND TYPE 'C'":A$:A$:A$"C"30 (D$"OPEN EAMON.DESC":D$"READ EAMON.DESC":N(1),N(3),NE,N(2),L(1),L(2),L(3):D$"CLOSE"- 2T(1)L(1)34:T(2)L(2)62:T(3)L(3)42:::"THE PRESENT NAME SIZES ARE:"::" ROOMS:....."T9RESIZE FILES UTILITY 1 RSD 10/4/88 y EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  D$(4):E$(1)"EAMON.ROOMS":E$(2)"EAMON.MONSTERS":E$(3)"EAMON.ARTIFACTS"::3:10:"RESIZE FILES UTILITY"::C 6:"INS      ԮӠҠ묠젳宍ԠԠΠԠħ󮠠ϠԠŠŠӠΠΠΡůР󬠦󮠠箠嬠宍ΠԠΠԠ堳ΠŠҠîĠïà֠ҠӍŠӠΠŠҮïà֠àĠïà̷֬婮嬠ì̷Π͠ˠïà󮠠ΠͮŠҠàԠî䠴Π͠Šààɧ󮠠򠴰嬠져ààǠҠŠԠΠ΍ɧ宠íà         ĥͥåå¥͠͠ȍƠԠåΠ͠ԺϠ͠Ϡȍ͠å͠ЧРРϠΠƠȍԠͤͩӠŮԠ͠͠ȠԠƠٍήͺ¥͠͠ŠƠҠٍĥϠ͠ȠŠ͠ΠӠũҠ͠Ϡ͠͠ŠРϠԠǠîå͠͠ǠΠƠȠԠԠج٩占ا䍠å占¥͍اا荠荠¥䍠ĥ占ՠԿƠ΍󺍍ĥج٩å¥庠荠ĥ占ج٩å򠽠ƠƠƠΠ͠å͠ԠȍƠӤͤåΠ͠åΠ͠ԠȍҠ͠ȠҠ̠ӍƠåĥΠ͠ƠҠȠΠƠƠΠԠȠӤȠΧōӬӤͤå͠ȠҠȠҠӤٍͤƠԠåΠΠ͠ϠȠƠåӠȠĥå͠ŠΠƠȍƠͥåĠͥåȠΠ謠䍍ҍήͺȠϺ͠ŠӠƠҍƠ͠ħǍå͠ԠԠ٠Πĥ͠Ԡ占宍Ԡ䮍åԠ宍å䍍獠䍠å荍ӧ䍠Ӥ笠宍󺍍ӬӤå庠Ӡ荠Ӥ宠嬠堳̠󮠠宍󮠠嬠ȮŬ讠 󩬠򠴸󩬠Ӥ宠Ԡ嬠䮍٠ȠؠĠӍ庠ήͬ嬠栨栨󠵰䬠󠵰嬠栲栲栱栶嬠䮠ᰮ嬠ᠴ堦󮠠󠵰򮠠󠨱堲嬠嬠䠶䠱󺠱컠䮠󮍠󮠠嬠栣堽䠣󠽠䠸廠󮠠䮍庠獠󍠠󮠠堥栲򮍠䮠ẍ宠򍠠ᠧ栱庠堧󠧴ӧ堧嬠ᠧ栱嬠䮍Ӎ砨婠쮠嬠䮍Ӎ殠庍Ҡ ᮠҠ󮍍Ԡ嬠󠵰Ԡ䡍ήԮַ󠲱Ԡ򮠠䮠򠱷嬠򮠠􍠣򍠠Ԡ堧󧬠͠堷堧اԠ栧報堧Ԡ󺍠獠䬠󍠠򍠠썠򍍠庍砨쮠󩍠쮠󩍠󍠠󍠠宍庠򮠠姠ήͬ亍㮍򮠠䠵䮠䠶䮠䠷䠮ͩ䮠󻠠ՠΧԠϠԠ٠䮠㠨堧秠ǠҠΠ䠶䬠䮠ᠧ㮻㮠䠽ᠨө䠵󮠠䠷ήà宠䠵堣䠶堣䮠堧Π硠䠽㮠򮍍庠򮠠䠵䠶䮠䠵䠷㻠㮠ᠧ庠䮠ﬠ箍庠嬠ՠĠǧ䮠䠵򮠠䧠쮍䬠栵䮠ή͠젨堪栲ፍ嬠⬠䮠堧堦󮍍쬠󍶭Ҡ卷Ҡ䣠ҠҠҠҠ亠嬠󮍍庠䍶󠠠󠠠䠠䠠荸ҠҠҠ򣠠򍶭堠蠠Ҡ堠䠠Ҡ󠠠ҠҠ򮮸宮󠱭嬠嬠󠵭纍箠庍堠􍠠䮮宮򮮮宮宮宮嬠󮠠져箠Ҡήͬz#?    ӠҠ ïà֠ ŠҠ ůРŮΠȠŮïà֠ŮŠҠ ΠȠŠԠҠ ҧӠ̠v Ӡ̠ ŠӠ ΠԠ@ΠԠΠΠҠ Ԡź ΠԠ  ΠԠB ΠԠΠ͠ Π͠PMON ADVENTURE #";NUG"20 PRINT D$"C3$"RENAME EXEC,SAVE ";AN$;" HERE~"30 PRINT "C3$"PUT DESIGN DISK IN DRIVE NOW"C3$";"40 POKE -16368,0: GET PT$: PRINT: ONERR GOTO 60 "50 NORMAL: PRINT D$"C3$"RUN EAMON DUNGEON DESIGNER 7.1"RUN 10LD23:"OK? (Y/N)";5NA$:A$"N"A$"n"ĺ:500NXA$"Y"A$"y"590t:D$;"INIT EAMON ADVENTURE #";NUOP$" EXEC":WR$" EXEC""0 AN$="C3$AN$C3$":NU="NU":A2$="C3$A2$C3$"DEL 100,1000""DELETE EAMON ADVENTURE #";NU:"SAVE EA0): ";A$:A$""5507ML(((A$))):ML10ML80530&13:LMML62:AL30:" ARTIFACT NAMES (DEFAULT 30): ";A$:A$""5700AL(((A$))):AL10AL80550:17:LAAL42:"NAME LENGTHS:":" ROOMS......";RL:" MONSTERS...";ML:" ARTIFACTS..";A"ADVENTURE NUMBER: ";A3$:NU(A3$):NU(NU)NU0NU999(NU)A3$400w 10:RL38:"LENGTH OF: (MIN 10 : MAX 80)" " ROOM NAMES (DEFAULT 38): ";A$:A$""530 RL(((A$))):RL10RL8050012:LRRL34:ML30:" MONSTER NAMES (DEFAULT 3":8:"V7.1 MODS BY TOM ZUCHOWSKI"d 8:"NAME OF ADVENTURE (MAX. 25 CHARACTERS)"::" ";::25); 5:":";AN$:AN$"A"AN$"ZZZZ"(AN$)25240 ::((40(AN$))2)1::AN$: ,5:"AUTHOR NAME (MAX 25 CHARACTERS)":A2$:(A2$)25300I 7:G"::"IS IT OKAY TO INITIALIZE THIS DISKETTE?"::" ENTER Y/N ";m 16368,0:A$:(A$)96A$((A$)32) A$"Y"A$"N"170 A$:A$"N"100 === GET INFORMATION 216,0" :12:"EAMON DUNGEON INIT":8:"BY DON BROWN & JOHN NELSON{ x:12::"*** WARNING ***"::6:"INSERT A NEW (BLANK) DISKETTE BEFORE PROCEEDING!":9:"PRESS 'C' WHEN READY ..."; 16368,0:A$:A$"C"A$"c"130 A$:200 OP$D$"OPEN":WR$D$"WRITE":CL$D$"CLOSE":EA$OP$"EAMON"B D$;"CATALOt ("THE EAMON GAMING SYSTEM WAS DEVELOPED BY DON BROWN & JOHN NELSON"::AN$;" WAS":" WRITTEN BY ";A2$ 2::"TO RUN THIS ADVENTURE, YOU MUST BOOT FROM THE EAMON MASTER DISKETTE.": < dD$"BLOAD EAMON 7.1 SEARCH ROUTINE,A$5000" #D$(4):C3$(34):(21):100+9_D$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"j 216,0 D$(4):(21):::S$"****************************************":S$;60(AN$)2);AN$;60):1:S$: 11);"EAMON ADVENTURE #";NU::S$::"PRESS KEY FOR YOUR CHOICE (1-5) : ";O P16368,0:C$:C(C$):C1C580n ZC$:C100,200,300,400,500 d(4);"RUN DUNGEON INIT 7.1" (4);"RUN DUNGEON EDIT 7.1" ,(4);"RUN DUNGEON LIST 7.1" (4);"RUN TEXT PRINTER 7.1" :37,255GNER":13);"SELECTION MENU":14);"VERSION 7.1"^ 28:"SELECT PROGRAM FUNCTION DESIRED..." <:" 1. INITIALIZE NEW DUNGEON DISKETTE"::" 2. EDIT DATA FILES":) F" 3. LIST DATA IN A DUNGEON'S FILES"::" 4. PRINT MANUALS"::" 5. STOP":EAMON DUNGEON DESIGNER4 VERSION 7.1; Z BY DON BROWN/JOHN NELSONy7.0 MODS BY TOM ZUCHOWSKI I/O MODS BY DOUG TRUEMAN 10/17/88LAST UPDATE 8/9/93 :(21)1 (:9);"EAMON ADVENTURE SYSTEM":11);"ADVENTURE DESI    >> ADD ITEM+C$"ADD":500:TYPEAITYPE1100,1200,1300,1400[L >> ADD ROOM}VN%(1)N%(1)1:NON%(1):RECNO`NA$"":DE$"":D1ND:RD%(D)DD%(D)NO(DD%(D)0)::LTDLj11000t31100:18000:LK150~800 >> ADD ARTIFACTY);" TO ";C$i" (1-";N%(TYPE);:") ";A$:NO(A$):NO1NON%(TYPE)(C$"CREATE")NO(NO)ġ:150o  >> LOCKED <<*:C1020,2020,3010,4020,5020,150,150z150 >> DELETE FROM LOCKLKLK:C1N%(TYP)N%(TYP)1:150150$,1):625#A$(21)A$" ":625cA$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615A$(8)(I$)I2$I$I2$:A$;:605A$(8)605A$(27)ĺI2$:I$I$I2$:616615 >> GET NUMBER 6:958:"INPUT NUMBER OF ";T$($;:I$I$I2$:I2$"":615U{A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615tA$(4)I2$(I2$,2):610A$(9)CIISIS:H(36):V(37):39:1::(" I",IS1,1)::H1:V1:615A$(9)I2$" "I2$:610 A$(21)(I2$)A$(I2(13)619 hI$""ĺ(7);:6056iA$(13)Č958:<jVkA$(17)LKġ::900l(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)TLĺ(7);:615nA$(31)ISĺA$;:I$I$A$:610qA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615vA$(5)ĺI2$:A14:A$("RAEM",A,1)Ă:520,A$:`X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$uYTLTL238:605Z958:TL5Ė1:V(37):I1TL:U$;:::V1]I$"":IS0bI2$;:TL5ĺU$;:(8);d(I2$)āA1(I2$):(8);: gA$:A$(A$):A$4^C1000,2000,3000,4000,5000,6000,7000]ND$""DV4:ND$"6":D$;"CLOSE":60vDV5:D$;"CLOSE":60 >> SELECT WHAT TO WORK ON2:958:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";"ALD)" D " 5. DUPLICATE A ROOM, ARTIFACT":" OR MONSTER"J h " 6. SPECIAL FUNCTIONS"n  " 7. QUIT" ":"ENTER KEY FOR YOUR CHOICE (1-7) "; ,A$:A$(12)LKLK:150 1A$(9)CICI:150 6(A$)1(A$)7300 @C:" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" MONSTER"? { " 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER" " 3. LIST NAMES OF ROOMS, ARTIFACT,ETC"  " 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OEAMON.MONSTERS,L";LM:D$;"OPEN EAMON.ARTIFACTS,L";LA:D$;"OPEN EAMON.DESC,L242"Z Z35000f 60000 :T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DU$:("LOCK",1,LK4);: " ";::("CONT.ISRT",1,9CI):9 "YOUR CHOICES ARE--":A VERSION 7.X EAMON. USE THEPROGRAM NAMED 'DUNGEON EDIT' FOR THIS ADVENTURE DISK.":D$;"CLOSE":w <ND(ND$):216,0 AD$;"OPEN EAMON.DESC":D$;"READ EAMON.DESC":N%(1),N%(2),N%(3),N%(4),LR,LM,LA:D$;"CLOSE"O FD$;"OPEN EAMON.ROOMS,L";LR:D$;"OPEN AMON DUNGEON EDIT":14:"VERSION 7.1":10:" INSERT DISKETTE WITH ADVENTURE"::" PRESS ANY KEY TO CONTINUE...";:16368,0:A$: (55 2D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DU$:ND$:DV$:D$;"CLOSE"b 7(DV$,1)"7"ĺ:"THIS IS NOT W@+ DUNGEON EDIT 7.1 BY TOM ZUCHOWSKI k ADAPTED FROM 'DUNGEON EDIT' BY JOHN NELSON & DON BROWN x1/31/95 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4);"MAXFILES 7":SL$"6":DR$"1" D$(4)::5:11:"E                     $5000,L$11B"$zD$;"EXEC EXEC":10:DUNGEON INIT 7.1G11/3/88eEAMON ADVENTURER'S GUILD}7625 HAWKHAVEN DR.CLEMMONS, NC 27012F OP$" LAST UPDATE:":CL$=*EA$".NAME":WR$" EAMON.NAME"U4AN$:6:"7.1":CL$v>EA$".ROOMS":EA$".MONSTERS"HEA$".ARTIFACTS":CL$REA$".DESC":WR$" EAMON.DESC"\0:0:0:0:LR:LM:LAfCL$ pD$"BSAVE EAMON 7.1 SEARCH ROUTINE,AECT DEFAULT TO CHANGE:"::" 1. ROOM VALUES"::" 2. MONSTER VALUES"$@:" 3. ARTIFACT VALUES"::" 4. RETURN TO MAIN MENU"::"INPUT YOUR CHOICE (1-4):";$JA$:(A$)1(A$)46730$TA$:(A$)15100,15200,15300,150% >> CHANGE DATA AN.DESC,R";N%(2)201:"YOU SEE ARTIFACT ";N%(2)1;"."#D$"WRITE EAMON.ARTIFACTS,R";N%(2)1:"ARTIFACT ";N%(2)1:X18:0::N%(2)N%(2)1:#D$:150# >> TOGGLE H/C#HCHC:150#, >> CHANGE DEFAULTSH$6:12);"CHANGE DEFAULTS":6:"SEL%(2)1:LA%AN%(4)M"34500/"8 >> DELETER"BC$"DELETE":500:N%(A)N%(A)1\"L6000p" === INCREMENT"C$"INCRMNT":500:N%(A)N%(A)1:6000"LKLK:6000"d >> GEN. DUMMY ART."n"x"NBR ART. TO GEN:";NA4#A1NA:D$"WRITE EAMO(S$)SF6045G!:(S$)6045,6200,6300,6400,6500,6600,6700,6800,6900Z! >> GEN. DEAD!6:958:"ALL DEAD BODIES (Y/N):";!A$:A$"Y"A$"N"6110!A$:A$"Y"AN%(2)1:M1:LA%AN%(4)1:34500!"MONSTER NUMBER TO START ON:";M"AN :" 6. TOGGLE PRINTER (NOW ";("OFFON",HC31,3HC);")":SF76040 :" 7. CHANGE DEFAULTS"::" 8. CHANGE DATA ASSIGNMENTS"::" 9. LOAD/SAVE CUSTOMIZED PARAMETERS" :"INPUT YOUR CHOICE (1-";SF;"):"; S$:S$(13)ĺ:150 !(S$)1u:SF9::" SELECT FUNCTION OR PRESS "::Sz" 1. (NOT USED)":u" 2. DELETE LAST R,A,E,M":" 3. ADD TO NBR OF R,A,E,M":" 4. TOGGLE LOCK MODE (NOW ";("OFFON",LK31,3LK);")":" 5. GENERATE DUMMY ARTIFACTS"GP >> DUP. ART.OZNOFROM:RECNO200:22000:20000:RECNC200:NONC:1230b >> DUP. EFF.NOFROM:RECNO400:20000:RECNC400:18000150 >> DUP. MONSTER"NOFROM:24000:20000:RECNC600:NONC:1430p >> SPECIAL FUNCTIONS:"DUPLIC.":500:TYPEAMC$"DUP. FROM":700:FROMNO:C$"CREATE":700:NCNONON%(TYPE)ĺ"CREATING A ";T$(TYPE);" FROM ANOTHER.":N%(TYPE)N%(TYPE)1TYPE5100,5200,5300,5400 >> DUP. ROOMNOFROM:RECNO:21000:20000:RECNC:NONC:1130:500:TYPEA*TYPE4100,4200,4300,4400@ >> REPLACE ROOMO700:1120gh >> REPLACE ARTIF.r700:RECNO200:1220 >> REPLACE EFFECT700:RECNO400:13200 >> REPLACE MONSTER:700:RECNO600:1420 >> DUPLICATEC$A:D$;"PR#0"C :"PRESS ANY KEY TO RETURN TO MENU";:A$:::150W >> PAGE BREAKLP0:HCĺ(12);"LISTING ";A$;"S"::$:" (PRESS ANY KEY TO CONTINUE) ";:16368,0:B$::(37)1:958j >> REPLACE ITEM C$"REPLACE"Y KEY TO RETURN TO MENU) ";:A$:::150TH F$"EAMON.MONSTERS":A$"MONSTER":3500h >> LIST STUFF ::LP0:"LISTING ";::A$;"S":::34,2:A1N%(TYP):D$;"READ ";F$;",R";A:NA$:D$:A$;"#";A;": ";::NA$: LPLP1:LP1930HCİ3600  A$"ARTIFACT":3500w ::LP0:"LISTING ";:A$"EFFECT"::A$;"S":::34,2:A1N%(TYPE):RECA400:20000:A$;" #";A HCāX1(DE$)40:(DE$,X,40):LPLP1: HCĺDE$:LPLP1 ::LPLP1:LP1235HCİ3600* A:D$;"PR#0")4 :"(HIT AN430 >> LIST THINGS C$"LIST":500:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$::150 HCĺD$;"PR#1" TYPE3100,3200,3300,3400 F$"EAMON.ROOMS":A$"ROOM":3500 F$"EAMON.ARTIFACTS":$>700:RECNO:21000:20000:1130; >> EDIT ARTIFACT700:RECNO200:20000:22000:X14:AL$(AFX)FML$(FMP%(AD%(2)),X):1230 >> EDIT EFFECT 700:RECNO400:20000:1330` >> EDIT MONSTERj 700:RECNO600:24000:20000:1ī150<800#x >> ADD MONSTERIN%(4)N%(4)1:NON%(4):RECNO600rNA$"":DE$"":D1MF:M%(D)DM%(D):14000:18000:31400:LKī150800 >> EDIT OLD ITEMC$"EDIT":500:TYPEATYPE2100,2200,2300,24004 >> EDIT ROOMT'N%(2)N%(2)1:NON%(2):RECNO200xNA$"":DE$"":D1AF:AD%(D)DA%(D)::X14:AL$(XAF)FM$(FMP%(AD%(2)),X):12000:31200:18000:LKī150800 >> ADD EFFECTN%(3)N%(3)1:NON%(3):RECNO400(DE$""213000:18000:LK2$(RD%(D)):TL5:600:RD%(D)(I$):RD%(D)(RD%(D))(RD%(D))I$Ģ(37):110604H+:"LIGHT (0 = NONE; 1 = NORMAL) ";:I2$(LT):600:LT(I$):4. >> EDIT ARTIFACT4.:"ENTERING ARTIFACT ";NO:I2$NA$:TLAL::"ENTER ARTIFACT NAME:"5.600:I$I$:Q3*+958:"FOR EACH DIRECTION ENTER THE ROOM # THATTHIS ROOM CONNECTS TO:"3,+" NO CONNECTION: 0":" EXIT TO MAIN HALL: -99":" DOORS: ARTIFACT # OF DOOR + 500":" NEGATIVE NUMBER FOR UNUSUAL THINGS"3/+D1NDR44+"MOVE ";DD$(D);"...";:I2)68002* >> EDIT ROOMZ2+:"ENTERING ROOM ";NO::I2$NA$:TLRL:"ENTER ROOM NAME:"p2 +600:I$""110102+3:958:"ROOM NAME:":" ";::I$::NA$I$:TL238:6:I2$DE$3 +"ENTER ROOM DESCRIPTION:":600:6:958:"ROOM DESCRIPTION:"::I$::DE$150(1@)XDT1DTDT1:TY$(DT)I$:15061J)TY$(X)I$A1^)10500\1h) === ADD A FORMAT ===i1r)6:9581|)NFNF1:X14:"FIELD ";XAF;" LABEL:";:I2$"":TL0:600:FML$(NF,X)I$:"DEFAULT DATA:";:I2$"0":6001)((I$))32765FD%(NF,X)(I$)1);TY$(X)::" ";DT1;". NEW TYPE":" ";DT2;". RETURN TO PREVIOUS MENU"0)"INPUT TYPE NUMBER:";A$:(A$)0(A$)DT2ĺ"TRY AGAIN, FROGFACE.":105200")X(A$):XDT268000,):"NEW TYPE:";:I2$TY$(X):TL0:600:I$""XDTDTDT1:1050016)I$"""A$(NF)10420 /(A$:F(A$)q/(6:958:X14:"FIELD ";AFX;" LABEL:";:I2$FM$(F,X):TL0:600:FM$(F,X)I$/("DEFAULT DATA: ";:I2$(FD%(F,X)):TL0:600:((A$))32765FD%(F,X)(I$)/(/(6800/) >> ART TYPESH0):X0DT:" ";X;". "("INPUT NUMBER 0 - ";DT;:":";A$F.Z((A$)DTY(A$)0Ģ(37):10320R._(X(A$).d("NEW POINTER (0-";NF;:"): ";A$:(A$)0(A$)NFĢ(37):10340.n(FMP%(X)(A$):6800.( === CHANGE FORMAT ===.(6:958:"INPUT FORMAT NUMBER:";/(A$:A$"1"XAFAFAF1:10200$-(A$""150@- (AL$(X)A$:XAFAFAF1K-2(10200f-<( === CHANGE FPTR ===-F(6:958:"FOR WHICH ARTIFACT TYPE:":X0DT:" ";X;" = ";TY$(X);("..................................",1,20(TY$(X))((TY$(X))20));FM%(X):!.PRTIF. DATA ASSIGNu,':X1AF:" ";X;". ";AL$(X)::" ";AF1;". NEW FIELD":" ";AF2;". RETURN TO PREVIOUS MENU",'"INPUT FIELD NUMBER:";A$:(A$)1(A$)AF2ĺ"TRY AGAIN, FROGFACE.":10220,'(A$)AF26800-'X(A$)::"NEW LABEL:";A$:A$"MF2;". RETURN TO PREVIOUS MENU"q+'"INPUT FIELD NUMBER:";A$:(A$)1(A$)MF2ĺ"TRY AGAIN, FROGFACE.":10120+'(A$)MF26800+'X(A$)::"NEW LABEL:";A$:A$""XMFMFMF1:10100+'A$""150+'M$(X)A$:XMFMFMF1+'10100,' >> AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::*HF1NF:X14:FD%(F,X):::MF:X1MF:M$(X)::X1MF:DM%(X)::DT:X0DT:TY$(X)::D$;"CLOSE ";A$*z150*t' >> MON. DATA ASSIGN +~':X1MF:" ";X;". ";M$(X)::" ";MF1;". NEW FIELD":" ";1MF:DM%(X)::DT:X0DT:TY$(X)::D$;"CLOSE ";A$>)150R)  >> SAVE PARAM)*6:958:"NAME OF PARAMETERS FILE:"::" ===> ";A$)4(A$,1)"?"ĺD$;"CATALOG";(A$,2)::A$:7200,*>D$;"OPEN ";A$:D$"WRITE ";A$:AF:X1AF:AL$(X)::X1ALE:(? FOR CATALOG)"::" ===> ";A$]((A$,1)"?"ĺD$;"CATALOG";(A$,2)::A$:::7100(D$;"OPEN ";A$:D$"READ ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::5)F1NF:X14:FD%(F,X):::MF:X1MF:M$(X)::X3. RETURN")':"INPUT NUMBER (1-3): ";E'A$:A$"1"A$"3"6930b'A$:(A$)7100,7200,150p'X >> QUIT'bD$;"WRITE EAMON.DESC,R0":T14:N%(T)::LR:LM:LA'lD$;"CLOSE"'v216,0:' >> LOAD PARAM&(6:958:"NAME OF PARAMETERS FIBER (1-7):";*&A$:(A$)1(A$)76830a&A$:(A$)10100,10200,10300,10400,10500,10600,140{& >> LOAD/SAVE PARAM. ':10);"LOAD/SAVE PARAMETERS":6:958:"SELECT LOAD/SAVE FUNCTION:"::" 1. LOAD PARAMETERS"::" 2. SAVE PARAMETERS"::" SSIGN%:08);"CHANGE DATA ASSIGNMENTS":6:"SELECT DATA TYPE:":" 1. MONSTER DATA":" 2. ARTIFACT DATA":" 3. CHANGE FORMAT POINTER":" 4. CHANGE A FORMAT" &" 5. ARTIFACT TYPES":" 6. ADD A FORMAT":" 7. RETURN TO MAIN MENU":"INPUT THE NUM(D):)D؈ N ,S ,E ,W ,U ,D ,NE,NW,SE,SWCDۈT110:DD%(T)::DLoD0,0,0,0,0,0,0,0,0,0,1:DEFAULT ROOM #SDMF11:M$(MF5),M%(MF5):M1MF:M$(M):D숃 HD,AG,# MEMBERS,COUR,ROOM,WEIGHT,ARMOR,WEAPON#,# DICE,# SIDES,FRIEND EDM%(MF5):M1MF:11,GOLD,TREASURE,WEAPON,MAG WEAPON,CONTAINER,LIGHT,HEALING,READABLE,DOOR/GATE,KEY,BOUND MONSTER,WEARABLECʈAF4:AL$(AF4CX),AD%(AF4CX):T1AF:AL$(T):CˈVALUE,TYPE,WEIGHT,ROOMC̈T1AF:DA%(T):Cш50,1,5,0:ART. DEFAULTSDֈD110:DD$4:AD%(X2)0::AD%(2)1:AD%(3)MD%(6)MBRECX200:NOX:18000:N%(2)N%(2)1ZB31200:cB150yB === SETUP DATA BRLLR34:MLLM62:ALLA42:U$(95)BˆCX5:T14:T$(T):BÈROOM,ART.,EFF.,MONS.BLjDT:TYP$(DTCX):T0DT:TYP$(T):jCE CORRECT PHRASE (1-2):";6AֆX$:X$"1"X$"2"34518ZA׆THE$("THE ",1,(X$"2")4):X$A؆NA$"DEAD "A$:DE$"YOU SEE THE DEAD BODY OF "THE$A$"."A↭(DE$)40ĭ(DE$,41,1)" "DE$(DE$,25):S2640:DE$DE$" "::DE$DE$THE$A$"."%B熁X21AFAMON.MONSTERS,R";NO:(34);NA$;(34):M1MF:M%(M)::D$?@zW@Ć === GENERATE DEAD@ΆXALA%:D$;"READ EAMON.MONSTERS,R";M:A$:X216:MD%(X2)::D$:MM1Aӆ6:958:" 1. THE DEAD BODY OF ";A$::" 2. THE DEAD BODY OF THE ";A$::"CHOOSE TH: ?^D$: ?|y >> WRITE ROOML?yD$;"WRITE EAMON.ROOMS,R";NO:(34);NA$j?yD1ND:RD%(D)::LT:D$p?y?y >> WRITE ART.?yD$;"WRITE EAMON.ARTIFACTS,R";NO:(34);NA$;(34):D1AF4:AD%(D):?yD$:?z >> WRITE MONSTER9@zD$;"WRITE E>R >> READ ROOMK>RD$;"READ EAMON.ROOMS,R";NO:NA$:D1ND:RD%(D):S>RLT]>&RD$:p>U >> READ ART.>UD$;"READ EAMON.ARTIFACTS,R";NO:NA$:X18:AD%(X):>VD$:>] >> READ MONSTER?]D$"READ EAMON.MONSTERS,R";NO:NA$:D1MF:M%(D)RT.l=;:"INPUT NEW DEFAULT VALUES FOR ALL FIELDS.":D1AF:AD%(D)DA%(D)::12050:D1AF:DA%(D)AD%(D):u=;150=PF>> WRITE DESC=ZFD$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):D$:= N>> READ DESC=*ND$;"READ EAMON.DESC,R";REC:DE$:D$>4N DEFAULT VALUES DESIRED.":D1ND:RD%(D)DD%(D)::11055Z<;D1ND:DD%(D)RD%(D)::DLLTc<;150|<`; >> CHG DEF. MONST.> CHG DEF. AENT LIKELY FRIENDLY + 100"p;27M8ĺ:" ART.#...WEAPON #":" 0.......NATURAL WEAPONS":" - 1.....WEAPONLESS";F7"ENTER ";M$(M);": ";:I2$(M%(M)):TL5:600:M%(M)(I$):(M%(M))I$ĺ(7):(37):14150;P7;Z7;: >> CHG DEF. ROOM8<;:"INPUTFP:7M1M6ĺ" IF GROUP MONSTER ENTER VALUE FOR JUST ONE MEMBER OF GROUP":7M3ĺ" SINGLE MONSTERS - ENTER 1":" GROUP MONSTERS - ENTER # OF MEMBERS";(7M11ĺ" 1=ENEMY 2=NEUTRAL 3=FRIEND":" FOR RANDOM FRIENDLINESS,":" ENTER PERCd96:"ENTERING MONSTER # ";NO::"** BE SURE TO ENTER *ALL* MONSTER NAMES IN A SINGULAR FORM **":96:I2$NA$:TLML:"ENTER NAME:":600:I$""1401096NA$I$::"ENTER DESC--":I2$DE$:TL238:600:DE$I$::"MONSTER # ";NO;" ";::NA$:::6M1M8/::88/"1=AXE, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":>80i8 0X14:AL$(XAF)FM$(FMP%(AD%(2)),X):80X14:AD%(AFX)FD%(FMP%(AD%(2)),X):8f082 >> EDIT EFFECT82:"ENTER EFFECT #";NO:I2$DE$:TL238:600:DE$I$::86 >> EDIT MONSTERER":"-999...............WORN BY PLAYER"`7&/AL$(D);" : ";:I2$(AD%(D)):TL5:600:AD%(D)(I$){7+/D2PTAD%(2)İ1230070/7:/7/D112250,12290,12290,12290,122607/122907/X0DT2:" ";X;" = ";TYP$(X);:XDTĺ22);X1;" = ";TYP$(X1)N DOOR"E6/D7ĭAD%(2)4AD%(2)6AD%(2)7ĺ"OPEN = 1; CLOSED = 0"X6/D2PTAD%(2)(7%/D4ĺ"ARTIFACT# + 500....INSIDE ARTIFACT#":"ROOM# + 200........EMBEDDED IN ROOM#":"(- MONSTER# - 1)...MONSTER# CARRYING IT":"-1.................CARRIED BY PLAY""12010N5.3:958:"ARTIFACT NAME:":" ";::I$::NA$I$:6:I2$DE$:TL2385/"ARTIFACT DESCRIPTION:":I2$DE$:600:6:958:"ARTIFACT DESCRIPTION:"::I$::DE$I$:5/D1AF4:D2(DAF2AD%(2)1AD%(2)4)İ122006/D8ĭAD%(2)8ĺ" 1 = HIDDETIFACT ("NA;:"): ";EN$:EN$""EN$(NA):28:8:EN$U (BE$)NA(BE$)1BE$"1"| (EN$)NA(EN$)(BE$)EN$(NA) BE(BE$):EN(EN$) D$"OPEN EAMON.ARTIFACTS,L"LA PRTĺD$"PR#";PS:(9);"80N" (SIZ(ADV$))2);ADV$:::RBEEN0);"]";"p:D:"LIGHT: ";LT:D$ezPRTĺ::" PRESS ANY KEY TO CONTINUE ";::A$::zA$(27)ġ:100 LIST ARTIF.  6:958:"BEGINNING WITH ARTIFACT (1): ";BE$:BE$""BE$"1":6:30:BE$5 8:958:"ENDING WITH ARD IN--":D$;"READ EAMON.ROOMS,R";R:X$:D1ND:DR%(D):@MLTRD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99ĺ"[EXIT]";:2160fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";kDR%(D)500ĺ"[";AN$(DR%(D)50PEN EAMON.ROOMS,L"LR5 PRTĺD$"PR#";PS:(9);"80N"m*:(SIZ(ADV$))2);ADV$:::LP3:RBEEN:2100:/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1004:"ROOM # ";R;" [";R$(R);"]":"DESC:":D$;"READ EAMON.DESC,R";R:A$:80008H"DIRECTIONS MOVEIST ROOMS Q6:958:"BEGINNING WITH # (1): ";BE$:BE$""BE$"1":6:23:BE$8:"ENDING WITH # ("NR;:"): ";EN$:EN$""EN$(NR):8:21:EN$(BE$)NR(BE$)1BE$"1"(EN$)NR(EN$)(BE$)EN$(NR)BE(BE$):EN(EN$) D$"O7):";CH2 CH1000,2000,3000,4000,5000,6000,7000; 130k DR$""DV4:DR$"6":216,0:D$;"CLOSE":32 DV5:D$;"CLOSE":35  SET UP PRINTER 6:958:"WHAT SLOT IS PRINTER IN?"; A$:A$"1"A$"7"1020 A$:PS(A$):100  L21);::ADV$: 8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON",PRT31,3PRT);")":" 7. QUIT":"INPUT YOUR CHOICE (1-AD EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$ bD$"OPEN EAMON.MONSTERS,L"LM:R1NM:D$"READ EAMON.MONSTERS,R";R:MN$(R)::D$"CLOSE EAMON.MONSTERS" cSIZ40 d MAIN ROUTINE  n:12);"EAMON DUNGEON LIST 7.1"::(40(ADV$))PEN EAMON.DESC,L242":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM,LR,LM,LA:D$R <35000n FR$(NR),AN$(NA),MN$(NM) ZD$"OPEN EAMON.ROOMS,L"LR:R1NR:D$;"READ EAMON.ROOMS,R";R:R$(R)::D$"CLOSE EAMON.ROOMS"@ _D$"OPEN EAMON.ARTIFACTS,L"LA:R1NA:D$"RETINUE":16368,0:A$: 200l :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$:DR$,DV:D$;"CLOSE" DV7ĺ:"THIS ADVENTURE IS NOT VERSION 7.X."::"USE THE PROGRAM NAMED 'DUNGEON LIST' FOR THIS ADVENTURE": #216,0 (ND(DR$)G 2D$"O , DUNGEON LIST 7.1 BY TOM ZUCHOWSKI _ DEVELOPED FROM VERSION 6.0 BY JOHN NELSON hDL9u1/31/95 (4);"MAXFILES 3" :D$(4)::5:12:"DUNGEON LIST 7.1":9:" INSERT EAMON ADVENTURE DISKETTE"::" PRESS ANY KEY TO CON       $(4):D$"OPEN EAMON.DESC,L242":D$;"WRITE EAMON.DESC,R0":T14:N%(T)::LR:LM:LAS,0/GUSER #5,0,USER #6,0,USER #7,0,USER #8,0YGފMONSTER#,0,KEY#,0,GUARD#,0,USER #8,0G芃ARMOR CLASS,0,TYPE,0,USER#7,0,USER#8,0G<G`"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.":VHHD#8,0PF ODDS,10,W.TYPE,3,DICE,1,SIDES,4,KEY#,0,STRENGTH,100,OPEN?,0,USER #8,0FHCOUNTER,999,USER #6,0,USER #7,0,USER #8,0,HEAL AMT,10,NBR USES,5,OPEN?,1,USER #8,0Gz 1ST EFF.,1,#EFFECTS,1,OPEN?,1,USER #8,0,ROOM BEYOND,1,KEY#,0,STRENGTH,999,HIDDEN?DM%(M):;E16,16,1,100,0,150,0,0,1,4,3: MONS. DEFAULTSENF:FMP%(DT5),FML$(DT5,4),FD%(DT5,4):X0DT:FMP%(X)::X0NF:F14:FML$(X,F),FD%(X,F):EE9E0,0,1,1,2,3,4,5,6,7,8,9:FORMAT POINTERSFUSER#5,0,USER#6,0,USER#7,0,USERH,OPEN?,USER#80"$COUNTER,USER#6,USER#7,USER#8T".HEAL AMT,NBR USES,OPEN?,USER#8{"81ST EFFECT,# EFFECTS,OPEN?,USER#8"BNEXT ROOM,KEY#,STRENGTH,HIDDEN?"LUSER#5,USER#6,USER#7,USER#8"VMONSTER#,KEY#,GUARD#,USER#8#`ARMOR CLASS,TYPE,USER#7,):M!zNF:FMP%(DT),FL$(DT,4):X0DT:FMP%(X)::X1NF:F14:FL$(X,F):n!:PR$"...................."!FR$(1)"[ENEMY]":FR$(2)"[NEUTRAL]":FR$(3)"[FRIEND]"!!9!ފ0,0,1,1,2,3,4,5,6,7,8,9!ODDS,W.TYPE,DICE,SIDES"KEY#,STRENGTER,LIGHT,HEAL,READABLE,DOOR/GATE,KEY,BOUND MON.,WEARABLEL A18:A$(A): ƉVALUE,TYPE,WEIGHT,ROOM,USER#5,USER#6,USER#7,USER#8 䉃NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST!HD110:DD$(DF FIELDS, MF = # MONST FIELDSTM$(MF),M%(MF):M$(0)"ADVENTURER":M1MF:M$(M): HARD,AGIL,# IN GROUP,COUR,ROOM,WGHT,ARMOR,WEAPON #,# DICE,# SIDES,FRIEND?DT:TYP$(DT):X0DT:TYP$(X):118 GOLD,TREASURE,WEAPON,MAGIC WEAPON,CONTAIN6);:A$:::"A$(27)ġ:100(:?p TOGGLE PRINTER LzPRTPRT\PRTSIZ80mPRTSIZ40{PS1000100X QUIT bD$"CLOSE":D$"PR#0":@A$:LPLP((A$)80)1: READ DATÄAF:MFꈃ 4,11: AF = # ARTIM28M%(8)0ĺ" [ NATURAL WEAPONS ]";YM28M%(8)0M%(8)(NA)ĺ" [";AN$(M%(8));"]";M28M%(8)0M%(8)N%(2)ĺ" [";AN$(M%(8));"]";:M2:D$LP45PRTLP0:(12);(SIZ(ADV$))21);ADV$ :PRTĞ:7);"PRESS ANY KEY TO CONTINUE";M2111:LPLP1:" ";M$(M2);(PR$,1,10(M$(M2)));(PR$,1,6((M%(M2))));M%(M2);}M211M%(11)99ĺ" [";M%(11)100;"%]";M211M%(11)4ĺ" ";FR$(M%(11));M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M28M%(8)1ĺ" [ NO WEAPONS ]"%(SIZ(ADV$))2);ADV$:::LP3:RBEEN:5500:`D$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100f|D$;"READ EAMON.MONSTERS,R";R:MN$:M2111:M%(M2)::D$;"READ EAMON.DESC,R";R600:A$"MONSTER # ";R;" [";MN$;"]":"DESC:":8000:LPLP4Q"1":23:6:BE$\8:958:"ENDING WITH # ("NM;:"): ";EN$:EN$""EN$(NM):8:21:EN$|(BE$)NM(BE$)1BE$"1"(EN$)NM(EN$)(BE$)EN$(NM)BE(BE$):EN(EN$)D$"OPEN EAMON.MONSTERS,L"LMPRTĺD$"PR#";PS/:(12);MRG);"EFFECT #";R;":"::LPLP2LD$;"READ EAMON.DESC,R";R400:A$:8000ZLP500ıD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)ġ:100 LIST MONSTERS 6:958:"BEGINNING WITH # (1): ";BE$:BE$""BE$K8:958:"ENDING WITH # ("NE;:"): ";EN$:EN$""EN$(NE):21:8:EN$k(BE$)NE(BE$)1BE$"1"(EN$)NE(EN$)(BE$)EN$(NE)BE(BE$):EN(EN$)PRTĺD$"PR#";PS:LP500:RBEEN:4500::D$D$"PR#0":100 [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";@:A2FD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::A$(27)ġ:100 LIST EFFECTS 6:958:"BEGINNING WITH # (1): ";BE$:BE$""BE$"1":23:6:BE$BY ";MN$((A%(4))1);"]";2:A2:A%(2)103740J$FMP%(A%(2))03740|.A258:(A$(A2),5)"USER#"(A$(A2))03740BLPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2);6tA26(A%(2)2A%(2)3)ĭA%(A2)1A%(A2)5ĺ" A%(4)NRĺ" [";R$(A%(4));"]";d A24A%(4)0A%(4)NM1ĺ" [CARRIED BY ";MN$((A%(4))1);"]"; A24A%(4)200A%(4)200NRĺ" [";R$(A%(4)200);"]";A24A%(4)500A%(4)NA500ĺ" [INSIDE ";AN$(A%(4)500);"]";A24A%(4)999ĺ" [WORN );"]":LPLP2:D$;"READ EAMON.DESC,R";200R:A$:"DESC: ":8000 A214:LPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2); A22A%(2)11ĺ" [SPECIAL CATEGORY]";:3580 A22ĺ" [";TYP$(A%(2));"]";:3580 A24A%(4)0:3500:: D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100q D$;"READ EAMON.ARTIFACTS,R";R:X$:A18: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 zA03:S2%(A)SA%(A)S2%(A)S2%(A)1.1:S2%(A)SA%(A)S2%(A)SA%(A)M {z }LTĺ:"IT'S TOO DARK TO SEE.":52:210 "YOU ARE ":" "RN$:54 V%(RO)RRO:45:V%(RO)1 B%NM:D%RO:M1NM:C%M:A,D%,M%(C%,5),C%,B%:C%M999::1608 MS,5)0ĺ:"YOUR "A$(LS)" HAS GONE OUT!":LS0:LTNL:99v sLSĭA%(LS,5)10ĺ:"YOUR "A$(LS)" IS ALMOST OUT!":54:120 uLSĭA%(LS,5)20ĺ:"YOUR "A$(LS)" GROWS DIM!":54 xSPSPSP1:SPM%(0,2)M%(0,2)2:"YOUR SPEED SPELL HAS JUST EXPIRED!":56G37):L139:" ";:::(37):L0:G [:"YOU AREN'T CARRYING IT.":99l \:"YOU MUST FIRST OPEN IT.":99 ^:"YOU CAN'T "C$(C)" "S$:98 `:"NOBODY HERE BY THAT NAME!":99 b54:310 c54 d YOU SEE 6 n56:LSA%(LS,5)A%(LS,5)1:A%(L11):F2(112):D$"READ"ED$",R"R:A$:D$ 2LL((A$)CP1)CP:LLLL:58:A$:LLLL(L0):((109)(110)256(A$))(F1F2256)Ĺ111,F1:112,F2 3 4LL1:58 6LL1 8LL2: :L23ı" ;" (PRESS ANY KEY TO CONTINUE) ";:Q$::(N EAMON ADVENTURE #NNN: (NAME OF ADVENTURE)@\ BY (YOUR NAME HERE)bz VERSION 7.1 MP57 5/25/96 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4)"MAXFILES 3"33000' -F1(1                         D$"RUN MAIN PGM"$XI11000::[@23:8)"HIT ANY KEY TO CONTINUE:";:Q$::FF$::$ICH WEAPON IS THEIRS IF THEY DROP IT":"14) CHANCES TO HIT ARE NOW DETERMINED BY AGILITY ONLY":"15) GROUP MONSTERS ARE SUPPORTED":"OTHER CHANGES WILL BECOME EVIDENT DURING PLAY"8000 PUT YOUR INTRO TEXT HERE IN LINES 1001-4999 TO YOU":"9) NEW CMDS: REQUEST, WEAR, REMOVE, USE":"10) YOU CAN 'INVENTORY' OTHER MONSTERS" "11) 'EXAMINE' (MONSTER) ALSO GIVES THE STATE OF ITS WOUNDS":(C$,1)"Y"İ8000"12) 'INVENTORY' GIVES THE STATE OF YOUR WOUNDS":"13) MONSTERS KNOW WH FIELDS":"5) WEAPONS WITH MAX HITS OF MORE THAN 24 ARE CLASSED 'MAGICAL'":"6) SPELL ABILITY REPLENISHES IF YOU GIVE IT A 'REST'":"7) YOU CAN 'HEAL' OTHER MONSTERS"\ "8) IF YOU 'GIVE' A HEALING POTION TO A MONSTER, HE WILL TAKE A SIP AND RETURN IT OUS EAMON VERSIONS:" :"1) ABBREVIATIONS ARE ALWAYS RECOGNIZED":"2) SECRET PASSAGES ARE NO LONGER FOUND USING THE 'LOOK' CMD; INSTEAD THERE IS PROVISION FOR CONCEALING DOORS":"3) NEW ARTIFACT TYPE: 'WEARABLE" "4) MANY ARTIFACT TYPES HAVE NEW"NA$"!":7000s x10:"DOST THOU HAVE 80-COLUMN CAPABILITY? ";C$:7000:(C$,1)"Y"ĺ:"WOULDST USE IT? ";C$:7000 8000:C$(C$,1):768,40:C$"Y"Ĺ768,80:(4);"PR#3":FF$: "THE VERSION 7.0 EAMON SYSTEM HAS A NUMBER OF CHANGES FROM PREVI? ";A$:(A$,1)"Y"ĺD$"DELETE GAME.PTRS"> (A$,1)"N"16I 216,0 D$"OPEN FRESH MEAT":D$"READ FRESH MEAT":RE:NA$:D$"CLOSE" D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":AN$:D$"CLOSE" (::SP(40(AN$))2:SP:AN$ n5:"GREETINGS, \LEADIN PROGRAM )REVC 10/6/88p EAMON ADVENTUER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 (4);"MAXFILES 3" FF$(12):D$(4) 18D$"VERIFY GAME.PTRS") :"THERE IS A SAVED GAME ON THIS DISK.":"START A NEW GAME     USER#8 #<D,USER#7,USER#8%#<CONSTER#,KEY#,GUARD#,USER#8g#`ARMOR CLASS,TYPE,USER#7,USER#8m#< C%:M%(X,5)HAM%(X,5)WH47704FF1:F1MXHS$M$(X)MX:\R:C%D%4720bx ARTIF SEARCH HA1:WHHA:EMHA:4810HA1WHRO:EMRO2004600:F0:C%0:D%0:S,S$,A$,C%:C%ıX1NA2D%C%:A2A%(C%,4):(S$)> PUT YOUR OWN SYNONYMS HERE. SEE MANUAL FOR DETAILSDCoH(SY$,SL)S$(SY$,SL)S$S$A$(SY):uR\ MONS SEARCH aWHRO:HA1fF0:C%0:D%0:S,S$,M$,C%:C%ĭ(S$)1ĭ(S$,1)"S"S$(S$,(S$)1):4710kC%ı!pD%C%:X%,4),C%,B%:C%A999::300QrAC%:A$(A);:A%(A,2)10ĺ" IS TIED DOWN!":4240~wA%(A,3)900ĺ": DON'T BE ABSURD.":4240|WTA%(A,3)10M%(0,1)ĺ" IS TOO HEAVY.":4240" TAKEN.":A%(A,4)1:WTWTA%(A,3)52::98 SYNONYMS SL00ĺ"DON'T BE ABSURD.":98MWTA%(A,3)10M%(0,1)ĺ"IT IS TOO HEAVY.":98xA%(A,2)10ĺA$(A)" IS TIED DOWN!":98,"GOT IT.":54:A%(A,4)1:WTWTA%(A,3):M%(0,8)1ĭA%(A,2)2A%(A,2)3171006300h51:B%NA:D%RO:A1NA:C%A:A,D%,A%(CĂ:kBM%(M,11)100FRM%(M,11)100(CH10)2:M%(M,11)1:FR100(1)M%(M,11)2:FR200(1)M%(M,11)3VAM%(M,11):F(A)F(A)M%(M,13)M%(M,3):T(A)T(A)M%(M,1)M%(M,3):: GET 4900:S$"ALL"4200HARO:4805:F94:A%(A,3)9NX0:RN$:X1ND:RD%(X): RD%(X)0RD%(X)NRNXNX1Q :NL:D$:LTNLLSZ100i ENEMY? T(1)0:T(3)M%(0,1):F(1)0:F(3)M%(0,13)$M1NM.M%(M,5)R3ĭ(M%(M,11)3(M%(M,11)1)200(1)M%(M,4))M%(M,5)RO:36708M%(M,5)ROAL ROOM MOVE CHECKINGB> :"YOU CAN'T GO THAT WAY!":V%(RO)0:99SH GATE/DOORR AR2500:A%(A,6)0A%(A,8)R2A%(A,5):3040\ A%(A,8)R20:3390f :"THE "A$(A)" BLOCKS THE WAY!":99 GO  R3RO:ROR2:3600 D$;"READ"ER$",R"RO: EVERY-ROUND STUFF 100) MOVE [ T(1)ĺ:"YOU CAN'T TURN YOUR BACK HERE!":99c DC~ R2RD%(D):R25003400 R20R2NR3500 /// SPECIAL MOVES R299ĺ:"YOU RETURN TO THE MAIN HALL.":32000l /// INSERT HERE SPECI%1:B%NM:D%ROCA,D%,M%(C%,5),C%,B%:M%(C%,11)1C%C%1:410XDFC%:DFNM480M2DF1NM:C%M2:A,D%,M%(C%,5),C%,B%:C%M2999:430M2C%:M%(M2,11)1(1).25DFM2:M29997500T(1)M999:MC999: SPECIALM2:MR%0:M%(M,5)Ă:500:TMC1:M%(M,3)8MCM%(M,3)8g^OFM:DF0:MCMCM%(M,3):M%(M,11)3400}hT(3)M%(0,1)480rB%NM:D%RO:M21NM:C%M2:A,D%,M%(C%,5),C%,B%:C%M2999:380wM2C%:M%(M2,11)3(1).25DFM2:M2999|:480CEES!":54:M%(M,5)0:M2M:3600:MM2::500=NM%(M,3)1340O(M%(M,12)M%(M,3))M%(M,12)(1)100M%(M,4)MR%(1)M%(M,3)1::MR%" "M$(M);PMR%ĺ(" FLEES!S FLEE!",1(MR%1)7,7):54:M%(M,3)M%(M,3)MR%:M%(M,5)M%(M,5)(M%(M,3)0):M2M:3600:M000,19000,20000,21000,22000,24000,25000,26000,27000,28000J, PICK FOE R151a6T(1)500@B%NM:D%RO:M1NM:C%M:A,D%,M%(C%,5),C%,B%:C%M999::500JMC%:M%(M,11)2Ă:500*MM%(M,3)1ĭM%(M,13)M%(M,1)(1)100M%(M,4)ĺ:M$(M)" FLĺ:"I ONLY UNDERSTAND THESE COMMANDS-- "::C1CC:2:1403,10:C$(C);:15:1403,30:C$(CCC);:28:1403,50:C$(C2CC)::2109"C3000,3000,3000,3000,3000,3000,4000,5000,6500,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000,23000,17000,18:A$""2758CZ$A$:A2(A$):(A$,A,1)" "ĂVV$(A$,A1):S$(A$,A1)w(S$,1)" "S$(S$,2):260SL(V$):A1ND:(C$(A),SL)V$CA:A999::290:F0:AND1NC:(C$(A),SL)V$CA:FF1:C$(A)V$F1:A999F10)1:RA200:45:M21:" - ";A"YOU SEE "A$(A)".":52:M2İ51OC%C%1:ANZ1NA:A%(A,4)ROĺ"YOUR "A$(A)" IS HERE.":52 CMD :56:" YOUR COMMAND?";A$:L0(A$,1)" "A$(A$,2):220A$""A$CZ$:(37):16:A$C%:M20:M%(M,0)İ51:M%(M,0)1:RM600:45:M21:" - ";b M%(M,3)1ĺM$(M)" IS HERE.":52:156 M%(M,3)" "M$(M)"S ARE HERE.":52 M2İ51 51:B%NZ:D%RO:A1NZ:C%A:A,D%,A%(C%,4),C%,B%:C%A999::190AC%:M20:A%(A,0)A%(A,@ FLEE ?,JT(1)ĺ:"THERE'S NOTHING TO FLEE FROM!"::100k,TNX0ĺ:"THERE'S NO PLACE TO GO!":100{,^S$""8500,hSL(S$):X1ND:S$(C$(X),SL)DX:X99,r:3030,4!R2RD%(ND(1)1):R21R2NR8500,>!3500,(# GIVE -2#S$Q$"(DF,13)0:56T+(M%(DF,5)0:M%(DF,3)M%(DF,12):A21NA:A%(A2,4)DF1A%(A2,4)ROf+2:M%(DF,8)1+7A%(DF+X-1,4)=RO:REMREPLACE 'X' WITH ART. # OF FIRST DEAD MONS. IF YOU ARE USING DEAD MONS.+<DF0DI1::32000+FF(1)T(1)T(1)0+56 ,7652,7655,7660,7665,7670,7675;*"IN PERFECT HEALTH.":56J*"OK.":56[*"HURT.":56r*"BADLY HURT.":56*"GRAVELY INJURED.":56*"DYING.":56* MONSTER DIES +"DEAD!":F(A)F(A)M%(DF,1)M%(DF,13):M%(DF,3)1M%(DF,3)M%(DF,3)1:M%1ĭM%(DF,7)ĺ" BLOW TURNED!":56O)D21ĺ" BLOW GLANCES OFF ARMOR!":56W)51t)52:M%(DF,3)1ĺ"ONE ";)M$(DF)" IS ";)AM%(DF,11):F(A)F(A)D2:M%(DF,13)M%(DF,13)D2:M%(DF,13)M%(DF,1)7700*M%(DF,13)5M%(DF,1)2(M%(DF,13)0)):SA%(W,8)D(A1:(" ** ++",(DF0)31,3);:RL5ĺ"A HIT!":7633y("WELL STRUCK!":52:R2100(1):R251A0:7633(RL1.5:R285RL2(R295RL3(R2100RLM%(DF,1)(SRLS#)52:D20:D31D:D2D2S(1)::D2(D2AM%(DF,7)):D2KEN!":WTWT((OF0)A%(W,3)):A%(W,4)0::M%(OF,8)1:(1).554y'y" WEAPON HITS USER!":54:DFOF:(R100)17605,7610'OFUP(100(1)WMWA%(W2)):(1)100WA%(W2)ĭ(EA)10(1)AEACACAEAE2:EAAEACAC (DM%(OF,9):SM%(OF,10):WDA%(W,741ĺ" FUMBLE RECOVERED.":56r&jR81ĺ" WEAPON DROPPED!":WTWT((OF0)A%(W,3)):A%(W,4)RO:M%(OF,8)OF1:56&lA%(W,2)3ĺ"SPARKS FLY FROM "A$(W)"!":56&oR957545&qR91ĺ" WEAPON DAMAGED!":A%(W,8)A%(W,8)1:A%(W,8)56?'t" WEAPON BRO,5)2:OF0WMWMWA%(W2)4EAV%VAA%(W,6)(W0):M$(OF)" "BV$(A,(1)3)" AT "M$(DF)%W52:RL100(1):(RL5RLWM)RL97HI1:7600%[A20:M%(DF,8)0A2A%(M%(DF,8),6)%`RL97Wĺ" --"RB$(A2,(1)2)"!":56&e" ..A FUMBLE!":52:R100(1):RA%(A,4)ROĭA%(A,2)2A%(A,2)3A2A%(A,7)A%(A,8):A2M2M2AD$$M2ĺM$(OF)" PICKS UP "A$(M2)"."::A%(M2,4)OF1:M%(OF,8)M2$56$L DO BATTLE $QHI0:WM%(OF,8):W07400%SWM502(M%(OF,2)M%(DF,2)M%(OF,7)M%(DF,7)):W0WMWMA%(WTA2);" THE "A$(A);"!":988#OF0:DFM:7500:HI7360V#HIĭUPWA%(W2)WA%(W2)2p#M%(DF,11)1DF0300#M%(DF,11)1M%(DF,11)1(M%(DF,11)3)150:R3RO:3600:300# MONS P/U WEAP #M2(M%(OF,8)1):A%(M2,4)RO7440>$M20:A1NA:%(0,10):TA1D2:S5;"SX7:K6:A%(A,2)4SXSX1:KK1"D20:X1D:D2D2(1)S1::A%(A,SX)A%(A,SX)D2:A%(A,SX)1A%(A,SX)0:A%(A,K)0:A%(A,7)1::"THE "A$(A)" SHATTERS!":98"A%(A,2)8A%(A,8)0#:"WHAM!! YOU ";("HITBLAST",TA31,3ȫ300!DFM:D20:7637:300*!d LOOK N51:XA%(A,2):X4X6X720100:RNX820300:\NS$"DOOR"S$"GATE"ĺ"TRY GOING IN THAT DIRECTION.":99:fN"IT WON'T OPEN.":99:N OPENABLE%;NA%(A,7)OT THISDISKETTE, OR RUN THE PROGRAM 'MAIN PGM' TO RESTART THE GAME."t9F::"RESUME PLAY? ";A$:(A$,1)"N"29060z9F98J LIGHT 9BJ4910:4801:F919`J:LTNL:A%(A,2)5A%(A,5)1ĺ"IT WON'T LIGHT!":98:jJLT1:LSA:"YOU'VE MANAGED TO LIGHTD$"CLOSE":X(0):D$"BSAVE GAME.PTRS,A$69,L8"8FD$"BSAVE GAME.SVAR,A"(105)(106)256",L"(109)(110)256(105)(106)25618FD$"BSAVE GAME.STR,A"(111)(112)256",L"(115)(116)256(111)(112)2561D9F:"THE GAME IS NOW SAVED. YOU CAN BOBA%(A,2)2A%(A,2)3ĺ:"THAT ISN'T A WEAPON!":997BM%(0,8)A:M%(0,9)A%(A,7):M%(0,10)A%(A,8):W2A%(A,6)::A$(A)" READIED.":987PF SAVE 7ZF:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";7dFA$:A$"Y"A$"N"180207nFA$:A$"N"100-8xF SMILE 6:LT10076::M1NM:M%(M,5)ROĂ:300X6:52:M$(M);:M%(M,3)1ĺ"S";6:" "SM$(M%(M,11));:M%(M,3)1ĺ"S";6:" AT YOU."6::51:3006> SAY 6>49006B:"OKAY, "(34)S$(34)::986hB READY 6rB4900:4801:F9137CHOES THROUGH THE TUNNELS."::52:98\53M1NM:M%(M,5)ROĺM$(M)" HEALS!":51:M%(M,13)0s53:R3RO:3600:30056 SPEED 56S2:1150056SPĺ:"NOTHING HAPPENED":9856M%(0,2)M%(0,2)2:SPSP25(1)10::"YOUR MOVEMENTS QUICKEN!":986:"'S HEALTH IMPROVES!"L4/M%(M,13)M%(M,13)310(1):M%(M,13)0M%(M,13)0e4/DFM:D20:7637:300s42 POWER 42S3:11500:RL(1)100:RL11M%(0,13)ĺ:"YOUR WOUNDS HEAL!":M%(0,13)0:98%52RL91ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ET THIS SPELL TEMPORARILY DIMINISHES!":S2%(S)S2%(S)10::98c3,SUĺ:"NOTHING HAPPENED."::983-RL100(1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)23 -S2%(S)S2%(S).83-3. HEAL 3.S1:11500:M0:S$""İ47004/56:M%(M,13)ĺM$(M)DFM:D20:76382'300&2* BLAST P2+S0:11500:4900:4700:FTA1:70302*+:"DIRECT HIT!"::LL3:S5:D2:DFM:A0:7635::3002,SU0:SA%(S)RL100(1):SU(((RLS2%(S))(RL5))(RL95))=3,RL100ĺ:"SPELL BACKLASH!! YOUR ABILITY TO CAS'AC%:" "A$(A)1j':X1:1t':M$(M)" IS CARRYING:":541~'LK0:B%NA:D%X:A1NA:C%A:A,D%,A%(C%,4),C%,B%:C%A999:101301'LK1:AC%:" "A$(A);:AM%(M,8)ĺ" (READY WEAPON)";1'51::LKĺ" (NOTHING)":512'Mĺ" ";GO;" GOLD PIECES.":54::X9990\&:0' INVEN 90'S$""M0:X999:10060F0$'LT100W0.'4700:F96v08'M%(M,11)3āMMM:150300B'XM1:101000L'M20:B%NA:D%999:A1NA:C%A:A,D%,A%(C%,4),C%,B%:C%A999:100900V'M2M21::M$(M)" IS WEARING:":541`1T/h$M%(M,13)M%(M,13)A%(A,5):M%(M,13)M%(M,13)(M%(M,13)0):DFM:D20:7637:9120k/%SL(A$):SLGO91/D%GOGOSL:M%(M,11)3M%(M,11)101M%(M,11)SL100/N%9120/H& PARSE 0R&A$"":B$"":X1(S$):(S$,X,Q)Q$X2B$(S$,XQ):A$(S$,X1)..#M%(M,8)0ĭA%(A,2)2A%(A,2)3M%(M,8)Ae.#M%(M,11)3M%(M,11)100M%(M,11)(30A%(A,1)100){.#R3RO:3600:5050/T$:M$(M)" DRINKS THE "A$(A):" THEN RETURNS IT TO YOU.":LL3:51:M%(M,11)3M%(M,11)14060M%(M,13)M%(M,1):A%(A,6)A%(A,6) TO ":Q4:9800+-P#A$""Ą"GIVE WHAT?";A$K-Z#(A$)0S$A$:4801:F91e-d#B$""Ą"TO WHOM?";B$|-n#S$B$:4700:F96-x#:"OKAY.":(A$)09500-#AM%(0,8)M%(0,8)1-#A%(A,2)6ĭM%(M,13)A%(A,6)A%(A,7)9300.#WTWTA%(A,3):A%(A,4)M1ST,UP,DOWN,GET,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAST,HEAL,POWER,SPEED,SMILE,SAY,READ,READY,SAVE,LIGHT,OPEN,PUT,DRINK,FREE,REQUEST,WEAR,REMOVE,USEL|(INSERT ADDITIONAL COMMANDS HERE)L|GROWL,LOOK,SMILEVM|LUNGES,TEARS,CLAWS,SWINGS,CHOPS:C$(NC3):C1NC:C$(C)::CC(NC3)1:R21JKyW20:RO1:ND6:FF$(12)_KzA13:SM$(A):KzA05:A202:BV$(A,A2):::A05:A201:RB$(A,A2)::KzL50:CP(768):CP80CP40KzW2A%(M%(0,8),6)K|3500K|32L|NORTH,SOUTH,EAST,WE2)):A%(NA,2)11:A%(NA,3)B%7:A%(NA,4)999:WTWTB%7:A%(NA,5)B%2JySH((AC2)AC2):SHNANA1:SHNA:A$(NA)"SHIELD":A%(NA,2)11:A%(NA,3)10:A%(NA,4)999:WTWT10:A%(NA,5)1JyM%(0,7)B%(SH0):M%(0,11)3JyEA0:AEACACEAAEACAC-KyNC$",L242":D$"OPEN"ER$",L";LR:M%(0,8)NZ1:M%(0,9)A%(NZ1,7):M%(0,10)A%(NZ1,8)`IhyW2NZ1NAIryA1NZ:A$(A)A$(W2)A$(A)A$(A)"#":A999::31090EJ|y::B%AC2:B%NANA1:ARNA:A$(NA)("LEATHER CHAIN MAIL PLATE ARMOR",B%1110,73(B%1)(B%(A)SA%(A)::A15:WA%(A)::AE,SE$,GO,BA,AClHJyNANZ:ANZ1NZ4:A$(A),A%(A,6),A%(A,5),A%(A,7),A%(A,8)HLyA$(A)"NONE"NANA1:A%(A,2)2(A%(A,7)A%(A,8)25):A%(A,3)2:A%(A,4)1:WTWT2HNy:D$"CLOSE"HOy?D$"DELETE FRESH MEAT"PITyD$"OPEN"EDREAD EAMON.MONSTERS,R"A:M$(A):A2111:M%(A,A2)}G;y:M%(A,12)M%(A,3):MM%(A,6)M%(A,3):M%(A,6)31000:MM%(A,6)M%(A,6)MG>yG?yGOTO 33500:REMFAST.START.H@yD$"OPEN FRESH MEAT":D$"READ FRESH MEAT":RE:M$(0),M%(0,1),M%(0,2),CH:A03:SA%(A):S2%D$"CLOSE"mF'yNANZ6:A$(NA),A%(NA,8),M$(NM),M%(NM,13),V%(NR),SA%(3),S2%(3),SM$(3),BV$(5,2),RB$(5,1),WA%(5)F,yD$"OPEN EAMON.ARTIFACTS,L"LA:A1NZ:D$"READ EAMON.ARTIFACTS,R"A:A$(A):A218:A%(A,A2):1G6y:D$"OPEN EAMON.MONSTERS,L"LM:A1NM:D$;"AR":(4)"BLOAD GAME.STR"KEzq(26)"1":(21)::CP80ĺD$;"PR#3":(12):vEqD$"OPEN"ED$",L242":D$"OPEN"ER$",L"LREqF0:A$"":CZ$"":100Ey INIT EyER$"EAMON.ROOMS":ED$"EAMON.DESC" F"y216,0:D$"OPEN"ED$:D$"READ"ED$:NR,NZ,NE,NM,LR,LM,LA:98DHq RESUME GAME "DMq216,0_DRq:"DO YOU WANT TO RESUME THE SAVED GAME?":" Y OR N:";~D\qA$:A$"Y"A$"N"29020DfqA$:A$"N"ĺD$"DELETE GAME.PTRS":D$"DELETE GAME.SVAR":D$"DELETE GAME.STR":Epq(4)"BLOAD GAME.PTRS":(4)"BLOAD GAME.SV999:EMHA:WHHA:4810:Fĺ:"YOU AREN'T WEARING IT.":99ZCiASHM%(0,7)M%(0,7)1:SH0CiAARM%(0,7)M%(0,7)A%(A,5)2:AR0CiA%(A,4)1::A$(A)" REMOVED.":98C`m USE Cjm///INSERT YOUR OWN SPECIAL STUFF HEREDp:"TRY ANOTHER COMMAND.":A%(A,2)1194"BeA%(A,5)26080:BeA%(A,5)1SH26100gBeA%(A,5)1SHA:M%(0,7)M%(0,7)1:26080uBeAR26100BeARA:M%(0,7)M%(0,7)AC2BeA%(A,4)999::A$(A)" WORN.":98Be:"YOU'RE ALREADY WEARING ONE!":98Bxi REMOVE 9Ci4900:HA,11)2āMMM:15030^AaS$A$:HA(M1):WHHA:EMHA:4810:Fĺ:M$(M)" DOESN'T HAVE IT.":98Aa:"OKAY.":54:A%(A,4)1:WTWTA%(A,3):AM%(M,8)M%(M,8)M1Ab5050Ae WEAR Ae4900:HA1:WHRO:EM999:4810:F94AeA%(A,4)EM26100Be THAT!":98C@B^A%(K,4)1K0ĺ:"YOU DON'T HAVE THE KEY!":100@V^:"YOU HAVE FREED "M$(M)".":M%(M,5)RO:A%(A,4)0:R3RO:3600:98@a REQUEST @aS$Q$" FROM ":Q6:9800@aA$""İ4900:A$S$:"FROM WHOM?";B$@aS$B$:4700:F96AaM%(M4900:4804:F94$?YA%(A,2)7945?YA%(A,7)92M?Z:"IT SAYS:":LL2{?Z:X1A%(A,6):RA%(A,5)399X:45::300?] FREE ?]4900:4804:F94?]A%(A,2)1094?]MA%(A,5):KA%(A,6):GA%(A,7) @8^M%(G,5)ROĺ:M$(G)" WON'T LET YOU DO94>VA%(A,2)694&>VA%(A,7)92Q>^VA%(A,6)1ĺ:"THERE'S NONE LEFT.":98>rVA%(A,6)A%(A,6)1:M%(0,13)M%(0,13)A%(A,5)::"YOU FEEL "("BETTERWORSE",(A%(A,5)0)61,6)"!":M%(0,13)0M%(0,13)0>|V54:DF0:D20:7638>V300>Y READ ?Y005=0RA$""ĺ:"PUT WHAT?";A$:"PUT IN/ON WHAT?";B$S=lRS$A$:M0:4804:F21150u=vRZA:S$B$:4804:AZF21150=RA%(A,2)421150=RA%(A,7)92=RA%(Z,4)A500::"OKAY.":98=R:"YOU CAN'T DO THAT.":98=U DRINK >U4900:4804:FUTS OF THE MANUALS. SEND $1.00 TO:"w :"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012":: "TYPE THE NUMBER OF THE MANUAL WHICH YOU WISH TO PRINT:"::" 1) ";FI$(1):" 2) "FI$(2):" 3) EXIT TO DESIGN MENU :"ENTdD$(4):(21)QnFI$(1)"DESIGNER'S MANUAL 7.1":FI$(2)"UTILITIES MANUAL"yx::3:10:"PRINT MANUALS PROGRAM"% :"THIS PROGRAM WILL PRINT THE MANUALS FROMDISK TO A PRINTER IN SLOT 1"::"IF YOU DO NOT HAVE A PRINTER, YOU MAY OBTAIN PRINTOiЯ`C`t@ Ak ߠȱ ߅ ߅ ߠȱ8ܩ`R 8E ߠృȱȱ i祜i ߅<ȱȱ0&008eCLOSE"%V悺D$"BSAVE FS.PTRS,A$69,L8"XVD$"BSAVE FS.SVAR,A"A",L"(109)(110)256A1VD$"BSAVE FS.STR,A"(111)(112)256",L"M(111)(112)2561V31040CILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4)"MAXFILES 3"33000' -F1(1yU(105)(106)256A(115)(116)256Bĺ(4)"BLOAD FS.PTRS":(4)"BLOAD FS.SVAR":(4)"BLOAD FS.STR":216,0:31040U (4)"DELETE FS.PARMS":31000V܂X(0):A(105)(106)256:M(115)(116)256:D$"OPEN FS.PARMS":D$"WRITE FS.PARMS":A:M:D$"HM(115)(116)256:AHM290:A2(A256):1014,A1A2256:1015,A2:A:D$(4):D$"BLOAD EAMON 7.1 SEARCH ROUTINE,A"A1T򀥫33020TD$"VERIFY GAME.PTRS":29000T31000UD$"VERIFY FS.PARMS":D$"OPEN FS.PARMS":D$"READ FS.PARMS":A:B:D$"CLOSE"0,2):CH:A03:SA%(A):6S+ACM%(0,7)2:SHACAC1S0A15:WA%(A)::AE:SE$:GO:BA:AC:A14:WP$(A):M14:WD%(A,M)::S:D$"OPEN THE ADVENTURER":D$"WRITE THE ADVENTURER":M$(0):RE:D$"CLOSE"SD$"RUN MAIN HALL"S耲 FAST START wT~:5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0gRA$:A$"C"32520oRA$RDIĺD$"OPEN THE ADVENTURER":D$"DELETE THE ADVENTURER":32900S&D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R";RE:M$(0):M%(0,1):M%((SH,4)0:A%(AR,4)0_Q@~TP0:A1NA:A%(A,4)1TPTPA%(A,1)((A%(A,2)0)CH10(A%(A,2)0))Q^~:TP(TP):TP;" GOLD PIECES.":Qh~GOGOTP:GO0GO0Qr~:59:Q~32510Q~(26)"1": TURN OFF VIDEX 80-COLQ~(21): TURN OFF //E 80-COLPR):W2W21:W2432060P,~WD%(4,4):W14:WP%(W)AWP%(W):WD%(W,1)A%(A,6):WD%(W,2)A%(A,5):WD%(W,3)A%(A,7):WD%(W,4)A%(A,8):A%(A,4)0P6~:FF$::" YOU SELL YOUR GOODS TO THE LOCAL BUYER OF TREASURE (UNDER THE SIGN OF 3 BALLS). HE PAYS YOU ";Q;~A%E TOO MANY WEAPONS -- 4 IS THE LEGAL LIMIT."::"YOUR WEAPONS ARE:"OF}W1W2:4);W;"--";WP$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W2;") "OP}(37)1:A$:W5(A$):W51W5W232080PZ}A%(WP%(W5),4)1:WP$(W5)WP$(W2):WP%(W5)WP%(W2DI32500N(}WP%(NA),WP$(NA):W14:WP$(W)"NONE"::W20:A1NA:A%(A,4)1ĭA%(A,2)2A%(A,2)3W2W21:WP$(W2)A$(A):WP%(W2)A:A%(A,4)0N2}:W2532300CO<}FF$::"AS YOU ENTER THE MAIN HALL, LORD WILLIAM CRANKHANDLE APPROACHES AND SAYS, 'YOU HAV,SWINGS,SHOOTS,SHOOTS,SHOOTS,SWINGS,SWINGS,SWINGS,STABS,LUNGES,JABS,SWINGS,CHOPS,STABSM|MISSED,MISSED,PARRIED,MISSED,MISSED,MISSED,PARRIED,MISSED,PARRIED,MISSED,PARRIED,MISSEDM} DONE M }:16368,0:59:M}D$"CLOSE":SPM%(0,2)M%(0,2)2 N}廠ήԮַ嬠ŮӠ嬠󬠦ήԬַήԮַˮؠήԮַ廠Ǡά֮ŬήήϬήͬŮԮԬŮӮӠήԮַήԮַĠ婠ήŠήԮַήԮַήԠήԠ󮠠Ҭή̠ήͮŠƠŠΠΠōԠź堲뮠ήԠήԠ䮠Ӡ䬠堨׮Ҡ婮䠣Ů䮠宍宠䬠ŮҠ䬠ή̠䬠Ӡ宠ήͬ宠ȮԠ嬠ήŠ宠ή̠󮍍嬠Ӡ嬠ӠӠŮҍ̠ҠΠŠӍΠ               !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""                  P$,P1):LPLP1:2000:P$(P$,P):P0::800B LP60ĺ(12):LP0H 4i P$::D$;"CLOSE":D$;"PR#0"r 120 pD$"RUN EAMON DUNGEON DESIGNER 7.1"dIER CHOICE...";5 16368,0:A$:A(A$):A1A3170E :A36000S ,D$"PR#1"h D$"OPEN "FI$(A)s 5000 XD$"READ "FI$(A) A$ A$(13)ĺP$:P$"":LPLP1:2000 P$P$A$:(P$)80800  xP8011:(P$,P,1)" "Ă+ (ήͮ宍Ӡή͠ҠԮԮήԮַ󮠠䬠殍堮ήԮַˮ؍堳姠嬠䮠򮍍Ġ΍֮ōήήύή͍ŮԮԍŮӮӍ嬠󺍠ήԮַ󍠠宠Р٠Ġ婍宠ήĮַ䮍㮩亍ᮠ⮠󍠠㮠󍠠䮠ήԮַĠ堢䬠箠宠󻠠󮍍ήԮַᬠ󮠠核宍ήԮַ䬠Ҡ󠨢ٮԠ󠨢΢Πź̭ĺ򮍍̭ɺĠĠө嬠󺍍ú̠堦򮍍κ䮍̭º̭򬠦場宠뮠砨져젴󩮠嬠宠󠲯󮍍場ͬԬԬҩ宠嬠箠ԠԠ䠲󺍠獠占占􍠠퍠ӠúҺź֤úäȺ󠳱󠳲󮠠ɠ䮠󠳲󮍍󺍍Ạ묠箠䬠堳䠱䩬䩬䠲ϩ젍󠱶䬠򧬠㮍󠲸䬠ήͬ箍󠳱͠堷堧اԠ󠱳쮠ﮍ젧󠷰󠷷ͮ堧堧堧󧬠ƠϠΠ٤̢٠ Š̬󠳰󠴶򮠠宠٤٠堣򮠠嬠ҲϠ 󮠠Š뮍󠱰󠵰󠳰󮠠뮍Ǡ嬠嬠ԮǠŠή͍ή͠Ĭ좠Ǡ󮍍嬠󮠠Ǡ箠ﺍ䍠򮍠àΠήͮή͠Ω䬠ŠϠ宍庠Ӡ宠嬠ŮԮԠԮԠήӠήӠ󮠠ŮӮӠԮԠ宠嬠嬠ﮠ堧䠨䩠젭堨Ġ΢뮠䮍Ӎ󬠨䬠󩬠宠䮠䬠䬠蠨󩮠쮠ήͮή͠殠󮠠㮠栭ŮӮӍ󠹠Ạ廠󺠢ՠŠ婢堢ΠŠ̢笠宠庠󭳸󭳰󭳰栲󮠠ĥᠨХԺ獍ΠӺӬӬӬӺպٺ٤Ԩкк֤֥㮍̺򠱭ΤϺӤӲŤͯƩȺ̺ͤкͺҺ׺ںήӍƺҲҳ¤ĥź堠占󍠱󍠱ͤúҥúź̺ԺͥẠ򬠲󺍠獠󍠠占퍠􍠠򍠠ҺϺɺ̺ήӍͺήӍҺήӍ̺Ӻк󠨴򠸰ڤIJƺɺĤ̭čĤήçҤήӧƺ䧠ƨƱƲ