+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮL1):LPLP1:2000:P$(P$,P):P0::800> LP60ĺ(12):LP0D 4e P$::D$;"CLOSE":D$;"PR#0"dAM DISK TO A PRINTER IN SLOT 1"::"IF YOU DO NOT HAVE A PRINTER, YOU MAY OBTAIN A PRINTOUTS OF THE MANUAL. SEND $1.00 TO:"9 :"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"::G ,D$"PR#1"` D$"OPEN MDS MANUAL"k 5000 XD$"READ MDS MANUAL" A$ A$(13)ĺP$:P$"":LPLP1:2000 P$P$A$:(P$)80800  xP8011:(P$,P,1)" "Ă' (P$,PgdD$(4):(21);x::3:10:"PRINT MANUAL PROGRAM":"THIS PROGRAM WILL PRINT THE MANUAL FROM DISK TO A PRINTER IN SLOT 1"::"IF YOU DO NOT HAVE A PRINTER, YOU MAY OBTAIN A PRINTOUTS OF THE MANUAL. SEND $1.00 TO:"9 :"EAMON ADVENTURER Y DON BROWN & JOHN NELSON"::A$;" WAS":" WRITTEN BY ";A2$ 2::"TO RUN THIS ADVENTURE, YOU MUST BOOT FROM THE EAMON MASTER DISKETTE.": <AEA$"(PUT ADVENTURE NAME HERE)":NUM0:A2$"(PUT YOUR NAME HERE)"O ::S$"****************************************":S$;60(A$)2);A$;60):1:S$:11);"EAMON ADVENTURE #";NUM::S$> ("THE EAMON GAMING SYSTEM WAS DEVELOPED B론䍠򮍠à宠箍䮍Π͠ɭˠ䮠󮠠󮍍栱嬠䠱䠲묠ɭˠӺ堧젲󮍍󮠠򠣠͠堳ﮍΠ͠ɭˠΠ͠렱렱ᠧΠͮ嬠̠Ҡ̠宍ΠԠĬ󮠠ԠΠŠ纠렳堣ΠŠé뺍̠Š렱Š͠Ԡ󮍍ˠϬԯΠ묠Ǡɭˠź䠱嬠젱󮠠ˠũ箍Ӻ젱嬠宠嬠ΠԠˠŠԯΠˠԯΠ묠ԠŠԯΠ䮠ԯΠϠԠԮԯΠ堧䠧姠󮍍󮠠묠ŠԯΠˮԯΠԠˠũ󺠱Š묠䠲ԯΠ묠󮠠ԯΠ嬠䮍Ԡˠũ묠宍箠ΠԠˠΠԠ讍ˠŠͺ嬠󮠠ŠӠˠŠӠ堷Ĭ򠲭쮍ǠˠōˠŠͺΠԠˮ姠뮠宍Ӡ뮠ĠΠ͠ˮ뮠ŠΠͮŠ뮠ԠΠŠ 򩍍ԠӠˮ󮠠堧묠堧Ǡˠōᠲ嬠򠱭嬠ĠΠԠˠϠӠ덍Π͠堲䠭䠧짠󮠠廠宠뮠̠䬠嬠젨쩠뮠堧짠䠰ήî짠󮠠짠묠ŠŠŠΠ̠Ӯ堨纠󬠱󬠸󬠦󩍍ɭˠӺ젱ήàήӠ䬠맮䠰ήà嬠ήӮ󺍍󍠠󍠠뺍ϭˠӺ󮠠纠󬠱󬠴󬠦󩬠򠳰ө嬠󮠠堷堲󬠲󬠲䠲核󮠠堵                NUE: ":A$:A$:A$"C"10025#.'g'16368,0:::"PUT 'ART/MON' DISK INTO DRIVE 1 AND TYPE 'C' TO INITIALIZE DISK":A$:A$:A$"C"Ā'(4)"INIT ART/MON DISK,D1"!':"PUT 'BOOT' DISK INTO DRIVE 1"$'DR2ĺ:"PUT 'ART/MON' DISK INTO DRIVE 2")'16368,0::"TYPE 'C' TO CONTICLOSE"` 16368,0:DR1ĺ:"PUT 'ADVENTURE' DISK IN DRIVE AND TYPE 'C'":A$:A$:A$"C"2310i 100'(26)"1":(21):::3:" * 'GENERATE ART/MON DISK' PROGRAM *":6'"ONE DRIVE SYSTEM OR TWO? ";DR$:DR(DR$):DR1DR210000'819,DR4)"READ EAMON.DESC,R"I:A$(J):JJ16:(4)"CLOSE"16368,0:DR1ĺ:"PUT 'ART/MON' DISK IN DRIVE AND TYPE 'C'":A$:A$:A$"C"2260(4)"OPEN EAMON.DESC,L242,D"DRJ0:IAX(4)"WRITE EAMON.DESC,R"I:(34)A$(J):JJ1:(4)"$(I):J111:M%(I,J):* :(4)"CLOSE"F (4)"OPEN EAMON.FILES"c (4)"WRITE EAMON.FILES" NR:NA:NE:NM:LR:LM:LA (4)"CLOSE" :"FILE TRANSFER COMPLETE": READ DESC. (4)"OPEN EAMON.DESC,L242,D1" J0:IAX#(A$:A$:A$"C"570= b(4)"OPEN EAMON.ARTIFACTS,L"LA",D"DRi lI1NA:(4)"WRITE EAMON.ARTIFACTS,R"I q(34)A$(I):J18:A%(I,J): v:(4)"CLOSE" (4)"OPEN EAMON.MONSTERS,L"LM",D"DR I1NM:(4)"WRITE EAMON.MONSTERS,R"I (34)M A$(I):J18:A%(I,J):/ :(4)"CLOSE"W (4)"OPEN EAMON.MONSTERS,L"LM",D1" &I1NM:(4)"READ EAMON.MONSTERS,R"I +M$(I):J111:M%(I,J): 0:(4)"CLOSE" :DR1Ĺ16368,0::"PUT 'ART/MON' DISK IN DRIVE "DR:" THEN TYPE 'C'":1:XCM100:NMXXNM. 824,X:XX600:2200 16368,0::"PUT 'BOOT' DISK IN DRIVE 1":" THEN TYPE 'C'":A$:A$:A$"C"450 A$(NA),A%(NA,8),M$(NM),M%(NM,11) (4)"OPEN EAMON.ARTIFACTS,L"LA",D1" I1NA:(4)"READ EAMON.ARTIFACTS,R"I DISK IN DRIVE 1 AND TYPE 'C'":A$:A$:A$"C"70 d:DR(819):LR(820):LM(821):LA(822):CA(823):CM(824):NA(825):NM(826) NA(CA)400 A$(100):ACA201:XCA100:NAXXNA 823,X:XX200:2200 CMNM450 A$(100):ACM60% GENERATE ART/MON DISK(1/8/89.910000O I820830:I,0:k(4)"OPEN EAMON.FILES"(4)"READ EAMON.FILES"(NR,NA,NE,NM,LR,LM,LA2(4)"CLOSE"<820,LR:821,LM:822,LA:825,NA:826,NM2 F16368,0::"PUT 'ADVENTURE'    RIVE SYSTEM OR TWO? ";DR$:DR(DR$):DR1DR210000B'819,DRm'::"PUT 'ART/MON' DISK INTO DRIVE 1"$'DR2ĺ:"PUT 'ADVENTURE' DISK INTO DRIVE 2")'16368,0::"TYPE 'C' TO CONTINUE: ":A$:A$:A$"C"10025.''A819):LR(820):LIAX8(4)"WRITE EAMON.DESC,R"I:(34)A$(J):JJ1K:(4)"CLOSE" 16368,0:DR1ĺ:"PUT 'ART/MON' DISK IN DRIVE AND TYPE 'C'":A$:A$:A$"C"2310 100'(26)"1":(21):::3:" * ART/MON TO BOOT CONVERT PROGRAM *":66'"ONE DAD DESC.+(4)"OPEN EAMON.DESC,L242,D1":J0:IAXe(4)"READ EAMON.DESC,R"I:A$(J):JJ1x:(4)"CLOSE"16368,0:DR1ĺ:"PUT 'ADVENTURE' DISK IN DRIVE AND TYPE 'C'":A$:A$:A$"C"2260(4)"OPEN EAMON.DESC,L242,D"DRJ0:N EAMON.FILES,D1"- (4)"READ EAMON.FILES"G NR,NA,NE,NM,LR,LM,LAX (4)"CLOSE"h NATA:NMTM (4)"OPEN EAMON.FILES,D"DR (4)"WRITE EAMON.FILES" NR:NA:NE:NM:LR:LM:LA (4)"CLOSE" :"FILE TRANSFER COMPLETE":RE,D"DR1 lI1NA:(4)"WRITE EAMON.ARTIFACTS,R"IT q(34)A$(I):J18:A%(I,J):g v:(4)"CLOSE" (4)"OPEN EAMON.MONSTERS,L"LM",D"DR I1NM:(4)"WRITE EAMON.MONSTERS,R"I (34)M$(I):J111:M%(I,J): :(4)"CLOSE" (4)"OPE:(4)"CLOSE", 3(4)"OPEN EAMON.FILES,D1"H 4(4)"READ EAMON.FILES"b 5NR,NA,NE,NM,LR,LM,LAs 6(4)"CLOSE" 7TANA:TMNM :16368,0::"PUT 'BOOT' DISK IN DRIVE "DR:" THEN TYPE 'C'":A$:A$:A$"C"570 b(4)"OPEN EAMON.ARTIFACTS,L"LA"NM,11)/ (4)"OPEN EAMON.ARTIFACTS,L"LA",D1"Z I1NA:(4)"READ EAMON.ARTIFACTS,R"Iw A$(I):J18:A%(I,J): :(4)"CLOSE" (4)"OPEN EAMON.MONSTERS,L"LM",D1" &I1NM:(4)"READ EAMON.MONSTERS,R"I +M$(I):J111:M%(I,J): 0M(821):LA(822):CA(823):CM(824):NA(825):NM(826)K NA(CA)400u A$(100):ACA201:XCA100:NAXXNA 823,X:XX200:2200 CMNM500 A$(100):ACM601:XCM100:NMXXNM 824,X:XX600:2200 A$(NA),A%(NA,8),M$(NM),M%(ART/MON TO BOOT CONVERT+1/10/891<10000R I820830:I,0:q(4)"OPEN EAMON.FILES,D1"(4)"READ EAMON.FILES"(NR,NA,NE,NM,LR,LM,LA2(4)"CLOSE"<820,LR:821,LM:822,LA:825,NA:826,NM: d:DR(819):LR(820):L       ."1 D$"OPEN EAMON.DESC":D$"WRITE EAMON.DESC"E I110:P(I):T &D$"CLOSE"Z i P(7)080 X(222)::"ERROR ";X" IN LINE "(218)(219)256AH, ARTIFACT RECORD LENGTH, # GLOBAL ARTIFACTS, # GLOBAL EFFECTS, # GLOBAL MONSTERS"4 (A$):A1A10A(A)100Y :"INPUT NEW VALUE FOR "P$(A);:": ";A$:P(A)((A$)):100 ::"DO YOU WISH TO EXIT NOW?";A$:(A$,1)"Y"100 :"DO YOU WISH TO SAVE THE ABOVE VALUES TO THE DISK?";A$:(A$,1)"Y"Ā :"SAVING VALUES TO DISK..,NM,LR,LM,LA,GA,GE,GM$ PD$"CLOSE"J d:3:"THE PRESENT VALUES ARE:": nI110:1(I10));I": ";P$(I);:J125(P$(I)):".";::P(I): x:"(TYPE 'X' TO EXIT PROGRAM)" :"NUMBER OF VALUE THAT YOU WISH TO CHANGE: ";A$:A$"X"500 A(21):::3:"MULTI-DISK FILE PARAMETER EDIT PROGRAM" 16368,0::10:"INSERT DISK TO BE EDITED,":" THEN TYPE 'C' TO CONTINUE:";:A$:A$"C"30 (A$ 2D$"OPEN EAMON.DESC":D$"READ EAMON.DESC" <1000 FI110:P(I): G INPUTNR,NA,NEFILE PARM EDIT"12/6/88(M D$(4):P$(10):I110:P$(I):# ROOMS,# ARTIFACTS, # EFFECTS,# MONSTERS,ROOM RECORD LENGTH, MONSTER RECORD LENGTH, ARTIFACT RECORD LENGTH, # GLOBAL ARTIFACTS, # GLOBAL EFFECTS, # GLOBAL MONSTERS"4 (   READY. SEE MANUAL FOR INSTRUCTIONS.)":10n'"ONE DRIVE SYSTEM OR TWO? ";DR$:DR(DR$):DR1DR210000z'819,DR'::"PUT 'SOURCE' DISK INTO DRIVE 1"$'DR2ĺ:"PUT 'COPY' DISK INTO DRIVE 2".':"HIT ANY KEY TO CONTINUE":A$:A$:AESC,R"I:(34)A$(J):JJ1-:(4)"CLOSE" 16368,0:DR1ĺ:"PUT 'SOURCE' DISK IN DRIVE AND TYPE 'C'":A$:A$:A$"C"2310 100,'(26)"1":(21):::3:" * GLOBAL VARIABLE TRANSFER PROGRAM *":6:"(BE SURE THAT YOUR 'COPY' DISKS ARE EAMON.DESC,L242,D1""J0:IAXM(4)"READ EAMON.DESC,R"I:A$(J):JJ1`:(4)"CLOSE"16368,0:DR1ĺ:"PUT 'COPY' DISK IN DRIVE AND TYPE 'C'":A$:A$:A$"C"2260(4)"OPEN EAMON.DESC,L242,D"DRJ0:IAX(4)"WRITE EAMON.D"N::"THE GLOBAL VARIABLES HAVE BEEN":"TRANSFERRED TO THE 'COPY' DISK."::"WHAT 'DISK NUMBER' SHOULD BE ASSIGNED TO THIS DISK?":A$:(4)"OPEN ADVENTURE DISK #"A$:(4)"CLOSE":"TRANSFER COMPLETE":READ DESC.(4)"OPEN E"+ (4)"OPEN EAMON.MONSTERS,L"LM",D"DRV I1GM:(4)"WRITE EAMON.MONSTERS,R"Iz (34)M$(I):J111:M%(I,J): :(4)"CLOSE" (4)"OPEN EAMON.DESC" (4)"WRITE EAMON.DESC" CR:GA:GE:GM:LR:LM:LA:GA:GE:GM(4)"CLOSEVE AND TYPE 'C'":A$:A$:A$"C"590v X(4)"OPEN EAMON.NAME,D"DR:(4)"WRITE EAMON.NAME":DN$:ND:VE:(4)"CLOSE" b(4)"OPEN EAMON.ARTIFACTS,L"LA",D"DR lI1GA:(4)"WRITE EAMON.ARTIFACTS,R"I q(34)A$(I):J18:A%(I,J): v:(4)"CLOSE"* (4)"OPEN EAMON.MONSTERS,L"LM",D1"T &I1GM:(4)"READ EAMON.MONSTERS,R"Ir +M$(I):J111:M%(I,J): 0:(4)"CLOSE" :(4)"OPEN EAMON.NAME":(4)"READ EAMON.NAME":DN$:ND:VE:(4)"CLOSE"% N16368,0:DR1ĺ:"PUT 'COPY' DISK IN DRI:2200 CMGM500? A$(100):ACM601:XCM100:GMXXGMX 829,X:XX600:2200~ A$(GA),A%(GA,8),M$(GM),M%(GM,12) (4)"OPEN EAMON.ARTIFACTS,L"LA",D1" I1GA:(4)"READ EAMON.ARTIFACTS,R"I A$(I):J18:A%(I,J): :(4)"CLOS(820):LM(821):LA(822):GA(823):GE(824):GM(825):CR(826):CA(827):CE(828):CM(829)q GA(CA)300 A$(100):ACA201:XCA100:GAXXGA 827,X:XX200:2200 ,GECE400 6A$(100):ACE401:XCE100:GEXXGE @828,X:XX400  GLOBAL TRANSFER$1/16/89*510000K I820830:I,0:i(4)"OPEN EAMON.DESC,D1"(4)"READ EAMON.DESC"(NR,NA,NE,NM,LR,LM,LA,GA,GE,GM2(4)"CLOSE"<820,LR:821,LM:822,LA:823,GA:824,GE:825,GM` d:DR(819):LR       MA:A%(A,4)0:MYMGM1NM:M%(M,0):M%(M,3):M%(M,5):M%(M,8):M%(M,13):mYA1NR:V%(A)::D$"CLOSE"YMMNMāMNM1MM:M%(M,5)0:Y35500TMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4)"MAXFILES 3"33000/ A%(A,6):A%(A,7):RXMGM1NM:M%(M,0):M%(M,3):M%(M,5):M%(M,8):M%(M,13):rXA1NR:V%(A)::D$"CLOSE"XȌDP(LD)1:35020XD$"OPEN XFER.SAVE":D$"READ XFER.SAVE":AGA1NZ:A%(A,0):A%(A,4):A%(A,5):A%(A,6):A%(A,7):YMANZāANZ111:M%(A,A2)XW:M%(A,12)M%(A,3):MM%(A,6)M%(A,3):M%(A,6)31000:MM%(A,6)M%(A,6)M^WqWDP%(DK)36500WD$"OPEN"ED$",L242":D$"OPEN"ER$",L"LRWLDDK:3500XD$"OPEN XFER.SAVE":D$"WRITE XFER.SAVE":AGA1NZ:A%(A,0):A%(A,4):A%(A,5):D$"VERIFY ADVENTURE DISK #"DKlVꈹ216,0:D$"OPEN"ED$:D$"READ"ED$:NR,NZ,NE,NM,LR,LM,LA,GA,GE,GM:D$"CLOSE"VD$"OPEN"EA$",L"LA:AGA1NZ:D$"READ"EA$",R"A:A$(A):A218:A%(A,A2): W:D$"OPEN"EM$",L"LM:AGM1NM:D$;"READ"EM$",R"A:M$(A):A21:1015,A2:A:D$(4):D$"BLOAD EAMON 7.1 SEARCH ROUTINE,A"A1IU򀥫33020jUD$"VERIFY GAME.PTRS":29000uU31000U CHANGE DISKS UˆD$"CLOSE"ULj36010Ü:"INSERT ADVENTURE DISK #"DK" AND PRESS 'C'":A$:A$:A$"C"35010Uֈ35020VA15:WA%(A)::AE:SE$:GO:BA:AC:A14:WP$(A):M14:WD%(A,M)::T:D$"OPEN THE ADVENTURER":D$"WRITE THE ADVENTURER":M$(0):RE:D$"CLOSE"TD$"RUN MAIN HALL"T耲 FAST START =UHM(115)(116)256:AHM290:A2(A256):1014,A1A2256'C' KEY) ";:16368,0-SA$:A$"C"325205SA$xSDIĺD$"OPEN THE ADVENTURER":D$"DELETE THE ADVENTURER":32900S&D$"OPEN CHARACTERS,L150":D$"WRITE CHARACTERS,R";RE:M$(0):M%(0,1):M%(0,2):CH:A03:SA%(A):S+ACM%(0,7)2:SHACAC1JT0A,1)((A%(A,2)0)CH10(A%(A,2)0))JR^~:TP(TP):TP;" GOLD PIECES.":bRh~GOGOTP:GO0GO0nRr~:59:zR~32510R~(26)"1": TURN OFF VIDEX 80-COLR~(21): TURN OFF //E 80-COLS~:5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE ):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)0Q6~:FF$::" YOU SELL YOUR GOODS TO THE LOCAL BUYER OF TREASURE (UNDER THE SIGN OF 3 BALLS). HE PAYS YOU ";Q;~A%(SH,4)0:A%(AR,4)0%R@~TP0:A1NA:A%(A,4)1TPTPA%(ONS ARE:"fPF}W1W2:4);W;"--";WP$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W2;") "PP}(37)1:A$:W5(A$):W51W5W232080PZ}A%(WP%(W5),4)1:WP$(W5)WP$(W2):WP%(W5)WP%(W2):W2W21:W2432060OQ,~WD%(4,4):W14:WP%(W)AWP%(W:A1NA:A%(A,4)1ĭA%(A,2)2A%(A,2)3W2W21:WP$(W2)A$(A):WP%(W2)A:A%(A,4)0eO2}:W2532300 P<}FF$::"AS YOU ENTER THE MAIN HALL, LORD WILLIAM CRANKHANDLE APPROACHES AND SAYS, 'YOU HAVE TOO MANY WEAPONS -- 4 IS THE LEGAL LIMIT."::"YOUR WEAPNGES,JABS,SWINGS,CHOPS,STABSyN|MISSED,MISSED,PARRIED,MISSED,MISSED,MISSED,PARRIED,MISSED,PARRIED,MISSED,PARRIED,MISSEDN} DONE N }:16368,0:59:N}D$"CLOSE":SPM%(0,2)M%(0,2)2N}DI32500SO(}WP%(NA),WP$(NA):W14:WP$(W)"NONE"::W20Y,BLAST,HEAL,POWER,SPEED,SMILE,SAY,READ,READY,SAVE,LIGHT,OPEN,PUT,DRINK,FREE,REQUEST,WEAR,REMOVE,USEM|(INSERT ADDITIONAL COMMANDS HERE)M|GROWL,LOOK,SMILEN|LUNGES,TEARS,CLAWS,SWINGS,CHOPS,SWINGS,SHOOTS,SHOOTS,SHOOTS,SWINGS,SWINGS,SWINGS,STABS,LU2)LzA13:SM$(A):WLzA05:A202:BV$(A,A2):::A05:A201:RB$(A,A2)::xLzL50:CP(768):CP80CP40LzW2A%(M%(0,8),6)LzDK1:LD1L|3500L|32dM|NORTH,SOUTH,EAST,WEST,UP,DOWN,GET,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORySH((AC2)AC2):SHNANA1:SHNA:A$(NA)"SHIELD":A%(NA,2)11:A%(NA,3)10:A%(NA,4)999:WTWT10:A%(NA,5)1KyM%(0,7)B%(SH0):M%(0,11)3KyEA0:AEACACEAAEACACKyNC:C$(NC3):C1NC:C$(C)::CC(NC3)1:R21LyW20:RO1:ND6:FF$(1,7):M%(0,10)A%(NZ1,8)'JhyW2NZ1NA`JryA1NZ:A$(A)A$(W2)A$(A)A$(A)"#":A999::31090J|y::B%AC2:B%NANA1:ARNA:A$(NA)("LEATHER CHAIN MAIL PLATE ARMOR",B%1110,11):A%(NA,2)11:A%(NA,3)B%7:A%(NA,4)999:WTWTB%7:A%(NA,5)B%2pKANZ1NZ4:A$(A),A%(A,6),A%(A,5),A%(A,7),A%(A,8)ILyA$(A)"NONE"NANA1::A%(A,2)2(A%(A,7)A%(A,8)25):A%(A,3)2:A%(A,4)1:WTWT2INy:D$"CLOSE"IOy?D$"DELETE FRESH MEAT"JTyD$"OPEN"ED$",L242":D$"OPEN"ER$",L";LR:M%(0,8)NZ1:M%(0,9)A%(NZ1(A,12)M%(A,3):MM%(A,6)M%(A,3):M%(A,6)31000:MM%(A,6)M%(A,6)MIH>ygH?yGOTO 33500:REMFAST.STARTH@yD$"OPEN FRESH MEAT":D$"READ FRESH MEAT":RE:M$(0),M%(0,1),M%(0,2),CH:A03:SA%(A):S2%(A)SA%(A)::A15:WA%(A)::AE,SE$,GO,BA,AC2IJyNANZ:A,8),M$(MM),M%(MM,13),DP%(10)]G'yNAMA:V%(99),SA%(3),S2%(3),SM$(3),BV$(5,2),RB$(5,1),WA%(5)G,yD$"OPEN"EA$",L"LA:A1NZ:D$"READ"EA$",R"A:A$(A):A218:A%(A,A2):G6y:D$"OPEN"EM$",L"LM:A1NM:D$;"READ"EM$",R"A:M$(A):A2111:M%(A,A2)CH;y:M%0Fy INIT `FyER$"EAMON.ROOMS":ED$"EAMON.DESC":EA$"EAMON.ARTIFACTS":EM$"EAMON.MONSTERS"F"y216,0:D$"OPEN"ED$:D$"READ"ED$:NR,NZ,NE,NM,LR,LM,LA,GA,GE,GM:D$"CLOSE"F#yMA0:MM0:PUT MAX ARRAY SIZES FOR ARTS & MONS HEREG$yMAMA6:A$(MA),A%(MD$"DELETE GAME.PTRS":D$"DELETE GAME.SVAR":D$"DELETE GAME.STR":Epq(4)"BLOAD GAME.PTRS":(4)"BLOAD GAME.SVAR":(4)"BLOAD GAME.STR"Ezq(26)"1":(21)::CP80ĺD$;"PR#3":(12):EqD$"OPEN"ED$",L242":D$"OPEN"ER$",L"LRFqF0:A$"":CZ$"":101::A$(A)" REMOVED.":98'D`m USE RDjm///INSERT YOUR OWN SPECIAL STUFF HEREtDp:"TRY ANOTHER COMMAND.":98DHq RESUME GAME DMq216,0DRq:"DO YOU WANT TO RESUME THE SAVED GAME?":" Y OR N:";D\qA$:A$"Y"A$"N"29020BEfqA$:A$"N"AC2*CeA%(A,4)999::A$(A)" WORN.":98SCe:"YOU'RE ALREADY WEARING ONE!":98bCxi REMOVE Ci4900:HA999:EMHA:WHHA:4810:Fĺ:"YOU AREN'T WEARING IT.":99CiASHM%(0,7)M%(0,7)1:SH0CiAARM%(0,7)M%(0,7)A%(A,5)2:AR0DiA%(A,4)%(M,8)M%(M,8)M1Bb5050*Be WEAR UBe4900:HA1:WHRO:EM999:4810:F94kBeA%(A,4)EM26100BeA%(A,2)1194BeA%(A,5)26080BeA%(A,5)1SH26100BeA%(A,5)1SHA:M%(0,7)M%(0,7)1:26080BeAR26100CeARA:M%(0,7)M%(0,7) REQUEST (AaS$Q$" FROM ":Q6:9800PAaA$""İ4900:A$S$:"FROM WHOM?";B$gAaS$B$:4700:F96AaM%(M,11)2āMMM:15030AaS$A$:HA(M1):WHHA:EMHA:4810:Fĺ:M$(M)" DOESN'T HAVE IT.":98Ba:"OKAY.":54:A%(A,4)1:WTWTA%(A,3):AM900:4804:F94$@]A%(A,2)1094F@]MA%(A,5):KA%(A,6):GA%(A,7)|@8^M%(G,5)ROĺ:M$(G)" WON'T LET YOU DO THAT!":98@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 Aa"("BETTERWORSE",(A%(A,5)0)61,6)"!":M%(0,13)0M%(0,13)0U?|V54:DF0:D20:7638^?V300k?Y READ ?Y4900:4804:F94?YA%(A,2)794?YA%(A,7)92?Z:"IT SAYS:":LL2?Z:X1A%(A,6):RA%(A,5)399X:45::300?] FREE @]4RA%(A,7)92.>RA%(Z,4)A500::"OKAY.":98N>R:"YOU CAN'T DO THAT.":98\>U DRINK s>U4900:4804:F94>VA%(A,2)694>VA%(A,7)92>^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 ":X1ND:RD%(X)A500RD%(X)A%(A,5)0=tO:98<=R PUT s=RS$Q$" IN ":Q4:9800:A$""Q$" ON ":Q4:9800=0RA$""ĺ:"PUT WHAT?";A$:"PUT IN/ON WHAT?";B$=lRS$A$:M0:4804:F21150=vRZA:S$B$:4804:AZF21150=RA%(A,2)421150 > N51:XA%(A,2):X4X6X720100:RNX820300:;$"BSAVE GAME.STR,A"(111)(112)256",L"(115)(116)256(111)(112)25619F:"THE GAME IS NOW SAVED. YOU CAN BOOT THISDISKETTE, OR RUN THE PROGRAM 'MAIN PGM' TO RESTART THE GAME."9F::"RESUME PLAY? ";A$:(A$,1)"N"2906098J LIGHT :BJ4F SAVE >8ZF:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";]8dFA$:A$"Y"A$"N"18020q8nFA$:A$"N"1008xFD$"CLOSE":X(0):D$"BSAVE GAME.PTRS,A$69,L8"8FD$"BSAVE GAME.SVAR,A"(105)(106)256",L"(109)(110)256(105)(106)2561M9FDT YOU."7::51:300"7> SAY ,7>4900N7B:"OKAY, "(34)S$(34)::98\7hB READY s7rB4900:4801:F917BA%(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.":98 8P:11500)66SPĺ:"NOTHING HAPPENED":98q66M%(0,2)M%(0,2)2:SPSP25(1)10::"YOUR MOVEMENTS QUICKEN!":986: SMILE 6:LT1006::M1NM:M%(M,5)ROĂ:3006:52:M$(M);:M%(M,3)1ĺ"S";6:" "SM$(M%(M,11));:M%(M,3)1ĺ"S";7:" A)100:RL11M%(0,13)ĺ:"YOUR WOUNDS HEAL!":M%(0,13)0:9852RL91ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::52:9853M1NM:M%(M,5)ROĺM$(M)" HEALS!":51:M%(M,13)053:R3RO:3600:30056 SPEED 66S2(S)2:SA%(S)SA%(S)2*4 -S2%(S)S2%(S).804-=4. HEAL ^4.S1:11500:M0:S$""İ47004/56:M%(M,13)ĺM$(M)"'S HEALTH IMPROVES!"4/M%(M,13)M%(M,13)310(1):M%(M,13)0M%(M,13)04/DFM:D20:7637:30042 POWER ;52S3:11500:RL(100A3,SU0:SA%(S)RL100(1):SU(((RLS2%(S))(RL5))(RL95))3,RL100ĺ:"SPELL BACKLASH!! YOUR ABILITY TO CAST THIS SPELL TEMPORARILY DIMINISHES!":S2%(S)S2%(S)10::983,SUĺ:"NOTHING HAPPENED."::984-RL100(1):RLS2%(S)S2%(S)S2%1:AC%:" "A$(A);:AM%(M,8)ĺ" (READY WEAPON)";R2'51::LKĺ" (NOTHING)":512'Mĺ" ";GO;" GOLD PIECES.":54:DFM:D20:76382'3002* BLAST 2+S0:11500:4900:4700:FTA1:70303*+:"DIRECT HIT!"::LL3:S5:D2:DFM:A0:7635::3J1L'M20:B%NA:D%999:A1NA:C%A:A,D%,A%(C%,4),C%,B%:C%A999:10090s1V'M2M21::M$(M)" IS WEARING:":541`'AC%:" "A$(A)1j':X11t':M$(M)" IS CARRYING:":541~'LK0:B%NA:D%X:A1NA:C%A:A,D%,A%(C%,4),C%,B%:C%A999:1013012'LK,11)101M%(M,11)SL100"0N%912000H& PARSE }0R&A$"":B$"":X1(S$):(S$,X,Q)Q$X2B$(S$,XQ):A$(S$,X1):X9990\&:0' INVEN 0'S$""M0:X999:100600$'LT1000.'4700:F9608'M%(M,11)3āMMM:150300B'XM1:10100 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)1/h$M%(M,13)M%(M,13)A%(A,5):M%(M,13)M%(M,13)(M%(M,13)0):DFM:D20:7637:9120/%SL(A$):SLGO910D%GOGOSL:M%(M,11)3M%(M.":(A$)09500*.#AM%(0,8)M%(0,8)1X.#A%(A,2)6ĭM%(M,13)A%(A,6)A%(A,7)9300w.#WTWTA%(A,3):A%(A,4)M1.#M%(M,8)0ĭA%(A,2)2A%(A,2)3M%(M,8)A.#M%(M,11)3M%(M,11)100M%(M,11)(30A%(A,1)100).#R3RO:3600:5050x/T$:M$(M)"X1ND:S$(C$(X),SL)DX:X99,-r:3030S-4!R2RD%(ND(1)1):R21R2NR8500]->!3500j-(# GIVE -2#S$Q$" TO ":Q4:9800-P#A$""Ą"GIVE WHAT?";A$-Z#(A$)0S$A$:4801:F91-d#B$""Ą"TO WHOM?";B$-n#S$B$:4700:F96.x#:"OKAY' WITH ART. # OF FIRST DEAD MONS. IF YOU ARE USING DEAD MONS.U,<DF0DI1::32000l,FF(1)T(1)T(1)0t,56,@ FLEE ,JT(1)ĺ:"THERE'S NOTHING TO FLEE FROM!"::100,TNX0ĺ:"THERE'S NO PLACE TO GO!":100,^S$""8500 -hSL(S$):":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%(DF,13)0:56+(M%(DF,5)0:M%(DF,3)M%(DF,12):A21NA:A%(A2,4)DF1A%(A2,4)RO+2:M%(DF,8)1=,7A%(DF+X-1,4)=RO:REMREPLACE 'X*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)7652,7655,7660,7665,7670,7675*"IN PERFECT HEALTH.":56*"OK.":56*"HURT.":56*"BADLY HURT.":56+"GRAVELY INJURED.3)R295RL3:7633/)R2100RLM%(DF,1):)SRLS)52:D20:D31D:D2D2S(1)::D2(D2AM%(DF,7)):D21ĭM%(DF,7)ĺ" BLOW TURNED!":56)D21ĺ" BLOW GLANCES OFF ARMOR!":56)51)52:M%(DF,3)1ĺ"ONE ";)M$(DF)" IS ";L%(W2)):(1)100WA%(W2)ĭ(EA)10(1)AEACACAEAE2:EAAEACACv(DM%(OF,9):SM%(OF,10):WDA%(W,7):SA%(W,8)(A1:(" ** ++",(DF0)31,3);:RL5ĺ"A HIT!":7633("WELL STRUCK!":52:R2100(1):R251A0:7633)RL1.5:R285RL2:763"A$(W)"!":56'oR957545Y'qR91ĺ" WEAPON DAMAGED!":A%(W,8)A%(W,8)1:A%(W,8)56't" WEAPON BROKEN!":WTWT((OF0)A%(A,3)):A%(W,4)0:M%(OF,8)1:(1).554'y" WEAPON HITS USER!":54:DFOF:(R100)17605,7610D(OFUP(100(1)WMWAM%(DF,8)0A2A%(M%(DF,8),6)F&`RL97Wĺ" --"RB$(A2,(1)2)"!":56&e" ..A FUMBLE!":52:R100(1):R41ĺ" FUMBLE RECOVERED.":56&jR81ĺ" WEAPON DROPPED!":WTWT((OF0)A%(W,3)):A%(W,4)RO:M%(OF,8)OF1:56 'lA%(W,2)3ĺ"SPARKS FLY FROM DO BATTLE *%QHI0:WM%(OF,8):W07400%SWM502(M%(OF,2)M%(DF,2)M%(OF,7)M%(DF,7)):W0WMWMA%(W,5)2:OF0WMWMWA%(W2)4EA%VAA%(W,6)(W0):M$(OF)" "BV$(A,(1)3)" AT "M$(DF)%W52:RL100(1):(RL5RLWM)RL97HI1:7600&[A20:,11)3)150:R3RO:3600:3002$ MONS P/U WEAP Y$M2(M%(OF,8)1):A%(M2,4)RO7440$M20:A1NA:A%(A,4)ROĭA%(A,2)2A%(A,2)3A2A%(A,7)A%(A,8):A2M2M2A$$M2ĺM$(OF)" PICKS UP "A$(M2)"."::A%(M2,4)OF1:M%(OF,8)M2$56 %L%(A,7)1::"THE "A$(A)" SHATTERS!":98@#A%(A,2)8A%(A,8)0#:"WHAM!! YOU ";("HITBLAST",TA31,3TA2);" THE "A$(A);"!":98#OF0:DFM:7500:HI7360#HIĭUPWA%(W2)WA%(W2)2#M%(DF,11)1DF0300$M%(DF,11)1M%(DF,11)1(M%(DF:F7300"vHARO:4805:F94Z"A%(A,2)8A%(A,2)4ĺ:"WHY WOULD YOU DO THAT?":99"DM%(0,9):SM%(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:A4700:Fĺ:"YOU SEE NOTHING SPECIAL.":98p!RM600:45:DFM:M%(M,3)1M%(M,13)0ĺ"THEY ARE ";:7652:300!DFM:D20:7637:300!d LOOK !nV%(RO)0:300!X ATTACK !bM%(0,8)1ĺ:"YOU HAVE NO WEAPON READY!":100"lTA0:4900:4700 :WT0:M%(0,8)1:300* p EXAMINE C z4900:4804:F6040^ A%(A,4)EMA%(A,4)RO ANZĺ:"THIS IS YOUR "A$(A)".":98 A%(A,2)8A%(A,8)0 A%(A,2)6ĺ" - THERE ARE "A%(A,6)" SWALLOWS LEFT.":56 RA200:45:A%(A,0)1:300,!NLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND.":LL3:5100AM%(0,8)M%(0,8)130051:B%NA:D%1:A1NA:C%A:A,D%,A%(C%,4),C%,B%:C%A999:5150AC%:A$(A)" DROPPED.":A%(A,4)RO:52)LTġ:100;.S$""ĺ:C$(C)" WHO OR WHAT";:S$:4900A8N DROP g4900:S$"ALL"5100x4801:F91WTWTA%(A,3):A%(A,4)RO::A$(A)" DROPPED.":54ALSLS0:LTNL::"THE "A$(A)" GOES OUT.":54kWT10M%(0,1)ĺ"YOU SUDDE HA1WHRO:EMRO200I4600:F0:C%0:D%0:S,S$,A$,C%:C%ıUX1NAD%C%:A2A%(C%,4):A2WHA2HAA2EMFF1:AC%:S$A$(C%)X999::R:C%D%Ă:X999::F1ĺ:"WHICH "S$" DO YOU WANT?":F0::99$ GET S$ HA1UfF0:C%0:D%0:S,S$,M$,C%:C%ĭ(S$)1ĭ(S$,1)"S"S$(S$,(S$)1):4710`kC%ıpD%C%:XC%:M%(X,5)HAM%(X,5)WH4770FF1:F1MXS$M$(X)MX:R:C%D%4720 ARTIF SEARCH HA1:WHHA:EMHA:4810(0,1)ĺ" IS TOO HEAVY.":4240E" TAKEN.":A%(A,4)1:WTWTA%(A,3)S52::98d SYNONYMS qSL(S$) PUT YOUR OWN SYNONYMS HERE. SEE MANUAL FOR DETAILSCH(SY$,SL)S$(SY$,SL)S$S$A$(SY):R\ MONS SEARCH aWHRO:1:WTWTA%(A,3):M%(0,8)1ĭA%(A,2)2A%(A,2)317100@6300h51:B%NA:D%RO:A1NA:C%A:A,D%,A%(C%,4),C%,B%:C%A999::300rAC%:A$(A);:A%(A,2)10ĺ" IS TIED DOWN!":4240wA%(A,3)900ĺ": DON'T BE ABSURD.":4240|WTA%(A,3)10M%):T(A)T(A)M%(M,1)M%(M,3)::+ GET D4900:S$"ALL"4200[HARO:4805:F94:A%(A,3)900ĺ"DON'T BE ABSURD.":98WTA%(A,3)10M%(0,1)ĺ"IT IS TOO HEAVY.":98A%(A,2)10ĺA$(A)" IS TIED DOWN!":987,"GOT IT.":54:A%(A,4)3)$M1NM[.M%(M,5)R3ĭ(M%(M,11)3(M%(M,11)1)200(1)M%(M,4))M%(M,5)RO:3670p8M%(M,5)ROĂ:BM%(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,3THE "A$(A)" BLOCKS THE WAY!":99+ GO = DKLD35000S R3RO:ROR2:3600 D$;"READ"ER$",R"R4:NX0:RN$:X1ND:RD%(X) RD%(X)0RD%(X)NRNXNX1 :NL:D$:LTNLLS100 ENEMY? T(1)0:T(3)M%(0,1):F(1)0:F(3)M%(0,1AL MOVES= R299ĺ:"YOU RETURN TO THE MAIN HALL.":32000ol /// INSERT HERE SPECIAL ROOM MOVE CHECKING> :"YOU CAN'T GO THAT WAY!":V%(RO)0:99H GATE/DOORR AR2500:A%(A,6)0A%(A,8)R2A%(A,5):3040\ A%(A,8)R20:3390 f :"SPECIAL EVERY-ROUND STUFF #1000 MOVE b T(1)ĺ:"YOU CAN'T TURN YOUR BACK HERE!":99j DC R2RD%(D):R203050 R203390 R210003060 R4R2:DK0 DKDK1:R4R41000:R410003040 R20R2NR3500 /// SPECI0C%1:B%NM:D%ROJA,D%,M%(C%,5),C%,B%:M%(C%,11)1C%C%1:410_DFC%:DFNM480M2DF1NM:C%M2:A,D%,M%(C%,5),C%,B%:C%M2999:430M2C%:M%(M2,11)1(1).25DFM2:M29997500T(1)M999:MC999: M:3600:MM2:MR%0:M%(M,5)500ATMC1:M%(M,3)8MCM%(M,3)8n^OFM:DF0:MCMCM%(M,3):M%(M,11)3400hT(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|:48M$(M)" FLEES!":54:M%(M,5)0:M2M:3600:MM2::500GNM%(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):M20,17000,18000,19000,20000,21000,22000,24000,25000,26000,27000,28000T, PICK FOE \151k6T(1)500@B%NM:D%RO:M1NM:C%M:A,D%,M%(C%,5),C%,B%:C%M999::500JMC%:M%(M,11)2Ă:5004MM%(M,3)1ĭM%(M,13)M%(M,1)(1)100M%(M,4)ĺ:F1ĺ:"I ONLY UNDERSTAND THESE COMMANDS-- "::C1CC:2:1403,10:C$(C);:15:1403,30:C$(CCC);:28:1403,50:C$(C2CC)::210C"C3000,3000,3000,3000,3000,3000,4000,5000,6500,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000,2300):16:A$:A$""275BCZ$A$:A2(A$):(A$,A,1)" "Ă`V$(A$,A1):S$(A$,A1)(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:A9990)A%(A,0)1:RA200:45:M21:" - ";I"YOU SEE "A$(A)".":52:M2İ51WC%C%1:ANZ1NA:A%(A,4)ROĺ"YOUR ";A$(A)" IS HERE.":52 CMD :56:" YOUR COMMAND?";A$:L0(A$,1)" "A$(A$,2):220 A$""A$CZ$:(370@ MC%:M20:M%(M,0)İ51:M%(M,0)1:RM600:45:M21:" - ";j 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::190%AC%:M20:A%(A,!":56O zA03:S2%(A)SA%(A)S2%(A)S2%(A)1.1:S2%(A)SA%(A)S2%(A)SA%(A)U { }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::161:A%(LS,5)0ĺ:"YOUR "A$(LS)" HAS GONE OUT!":LS0:LTNL:99~ 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 EXPIREDQ$::(37):L139:" ";:::(37):L0:O [:"YOU AREN'T CARRYING IT.":99t \:"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 > n56:LSA%(LS,5)A%(LS,5)-F1(111):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 EAMON ADVENTURE #NNN: (NAME OF ADVENTURE)@\ BY (YOUR NAME HERE)bVERSION 7.1 (MULTI-DISK) MPMD4 8/21/93 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4)"MAXFILES 3"33000/                                       z#    ˠϠԠӠ̠ ԠˠũFΠ͠ɭˠS ̠Ҡ Š͠Ԡ ԯΠϠԠԠ ŠԯΠˠ Ӡ̠#ķɭˠԠ Ԡź ΠԠˠEΠԠˠŠӠˠ  ԠӠˠΠ͠ˠQ(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615RA$(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):625A$(21)A$" ":62iA$(13)Č958:j4kA$(17)LKġ::900{l(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$;:I$I$I2$:I2$"":6153{A$ A$:>X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$SYTLTL238:605Z958:TL5Ė1:V(37):I1TL:U$;:::V1]I$"":IS0bI2$;:TL5ĺU$;:(8);d(I2$)āA1(I2$):(8);:gA$:A$(13)619hI$""ĺ(7);:605000,5000,6000,7000;ND$""DV4:ND$"6":D$;"CLOSE":55TDV5:D$;"CLOSE":55t >> SELECT WHAT TO WORK ON2:958:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";A$:A14:A$("RAEM",A,1)Ă:520ROOM, ARTIFACT":" OR MONSTER"(F" 6. SPECIAL FUNCTIONS"L]" 7. QUIT"":"ENTER KEY FOR YOUR CHOICE (1-7) ";,A$:A$(12)LKLK:1501A$(9)CICI:1506(A$)1(A$)7300@C(A$):A$^C1000,2000,3000,4CT OR":" MONSTER" Y " 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER"_ " 3. LIST NAMES OF ROOMS, ARTIFACT,ETC" " 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OLD)" "" 5. DUPLICATE A R,LM,LA:D$;"CLOSE"9 ZDR2DK1:VD1:23:DK2:VD2:24D DK$D$ :T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DU$:("LOCK",1,LK4);: " ";::("CONT.ISRT",1,9CI): "YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFED$;"CLOSE" 7(DV$,1)"7"ĺ:"THIS IS NOT A VERSION 7.X EAMON. USE THEPROGRAM NAMED 'DUNGEON EDIT' FOR THIS ADVENTURE DISK.":D$;"CLOSE": <ND(ND$):216,0 F35000 PD$;"OPEN EAMON.FILES,D1":D$;"READ EAMON.FILES":N%(1),N%(2),N%(3),N%(4),LIFACTS,L";LAQ DK2ĺD$;"OPEN EAMON.DESC,L242,D"DR:D$;"OPEN EAMON.ROOMS,L";LRW  D$(4)::5:11:"EAMON DUNGEON EDIT":14:"VERSION 7.1":9:"MULTI-DISK SUPPLEMENT" 36000 2D$;"OPEN EAMON.NAME,D1":D$;"READ EAMON.NAME":DU$:ND$:DV$:VD10 DR2DKCDĺD$"VERIFY"DK$(DK)",D"VD: DR1DKCDĺ:D$;"CLOSE":(7);"INSERT ";DK$(DK);" IN DRIVE":" THEN HIT ANY KEY TO CONTINUE":A$::CDDK D$"VERIFY"DK$(DK)",D"VD DK1ĺD$;"OPEN EAMON.MONSTERS,L";LM;",D1":D$;"OPEN EAMON.ARTB= DUNGEON EDIT 7.1 2-DISK SUPPLEMENT BY TOM ZUCHOWSKI | ADAPTED FROM 'DUNGEON EDIT' BY JOHN NELSON & DON BROWN DD5 8/21/93 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4);"MAXFILES 7":30 VDDK:DR1                      :" DDD 7.1 MULTI-DISK SUPPLEMENT"= 22:(4)"CATALOG">EAMON DUNGEON DESIGNER4 VERSION 7.1P MULTI-DISK SUPPLEMENTo BY DON BROWN/JOHN NELSON7.X MODS BY TOM ZUCHOWSKI I/O MODS BY DOUG TRUEMAN 10/17/88LAST UPDATE 8/21/93 :(21)' (:9);"EAMON ADVENTURE SYSTEM" ":(S$)6045,6200,6300,6400,6500,6600,6700,6800,6900K" >> GEN. DEADs"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%(2)1:LA%AN%GLE 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$)1(S$)SF60458 SELECT FUNCTION OR PRESS "::D z" 1. (NOT USED)":f " 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"8!:" 6. TOGART.@ZNOFROM:RECNO200:22000:20000:RECNC200:NONC:1230S >> DUP. EFF.NOFROM:RECNO400:20000:RECNC400:18000150 >> DUP. MONSTER"NOFROM:24000:20000:RECNC600:NONC:1430p >> SPECIAL FUNCTIONS+ u:SF9::" :TYPEA>C$"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:1130P >> DUP. TYPE4100,4200,4300,44001 >> REPLACE ROOM@700:1120Xh >> REPLACE ARTIF.rr700:RECNO200:1220 >> REPLACE EFFECT700:RECNO400:13200 >> REPLACE MONSTER:700:RECNO600:1420 >> DUPLICATEC$"DUPLIC.":500 :"PRESS ANY KEY TO RETURN TO MENU";:A$:::150H >> PAGE BREAKrLP0:HCĺ(12);"LISTING ";A$;"S"::$:" (PRESS ANY KEY TO CONTINUE) ";:16368,0:B$::(37)1:958j >> REPLACE ITEMC$"REPLACE":500:TYPEA ";:A$:::150AH F$"EAMON.MONSTERS":A$"MONSTER":DK1:3500U >> LIST STUFF 20:::LP0:"LISTING ";::A$;"S":::34,2:A1N%(TYP):D$;"READ ";F$;",R";A:NA$:D$:A$;"#";A;": ";::NA$: LPLP1:LP1930HCİ3600 A:D$;"PR#0"4::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 ANY KEY TO RETURN TO MENU)IST":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":DK2:3500 F$"EAMON.ARTIFACTS":A$"ARTIFACT":DK1:3500_ 30 >> EDIT ARTIFACTc700:RECNO200:20000:22000:X14:AL$(AFX)FML$(FMP%(AD%(2)),X):m1230 >> EDIT EFFECT 700:RECNO400:20000:1330` >> EDIT MONSTERj 700:RECNO600:24000:20000:1430 >> LIST THINGSn C$"LR'N%(4)N%(4)1:NON%(4):RECNO600PNA$"":DE$"":D1MF:M%(D)DM%(D):s14000:18000:31400:LKī150|800 >> EDIT OLD ITEMC$"EDIT":500:TYPEATYPE2100,2200,2300,24004 >> EDIT ROOM>700:RECNO:21000:20000:11O200VNA$"":DE$"":D1AF:AD%(D)DA%(D)::X14:AL$(XAF)FM$(FMP%(AD%(2)),X):y12000:31200:18000:LKī150800 >> ADD EFFECTN%(3)N%(3)1:NON%(3):RECNO400(DE$""213000:18000:LKī150<800x >> ADD MONSTE00:TYPEA'TYPE1100,1200,1300,14009L >> 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 ARTIFACTN%(2)N%(2)1:NON%(2):RECNE);:") ";A$:NO(A$):NO1NON%(TYPE)(C$"CREATE")NO(NO)ġ:150M`  >> LOCKED <<*:C1020,2020,3010,4020,5020,150,150z150 >> DELETE FROM LOCKLKLK:C1N%(TYP)N%(TYP)1:150150 >> ADD ITEM C$"ADD":55AA$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615iA$(8)(I$)I2$I$I2$:A$;:605zA$(8)605A$(27)ĺI2$:I$I$I2$:616615 >> GET NUMBER6:958:"INPUT NUMBER OF ";T$(TY);" TO ";C$G" (1-";N%(TYPX):TL0:600:I$""XDTDTDT1:10500626)I$""150Z2@)XDT1DTDT1:TY$(DT)I$:150h2J)TY$(X)I$s2^)105002h) === ADD A FORMAT ===2r)6:9583|)NFNF1:X14:"FIELD ";XAF;" LABEL:";:I2$"":TL0:600:FML$(NF,X)I$:"DEFAULT DATA:";:I2$"08001) >> ART TYPESz1):X0DT:" ";X;". ";TY$(X)::" ";DT1;". NEW TYPE":" ";DT2;". RETURN TO PREVIOUS MENU"1)"INPUT TYPE NUMBER:";A$:(A$)0(A$)DT2ĺ"TRY AGAIN, FROGFACE.":105201")X(A$):XDT26800'2,):"NEW TYPE:";:I2$TY$((6:958:"INPUT FORMAT NUMBER:";B0(A$:A$"1"A$(NF)10420R0(A$:F(A$)0(6:958:X14:"FIELD ";AFX;" LABEL:";:I2$FM$(F,X):TL0:600:FM$(F,X)I$0("DEFAULT DATA: ";:I2$(FD%(F,X)):TL0:600:((A$))32765FD%(F,X)(I$)0(1(6.....",1,20(TY$(X))((TY$(X))20));FM%(X):S/P("INPUT NUMBER 0 - ";DT;:":";A$x/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 ===#0A$)AF26800G.'X(A$)::"NEW LABEL:";A$:A$""XAFAFAF1:10200V.(A$""150r. (AL$(X)A$:XAFAFAF1}.2(10200.<( === CHANGE FPTR ===./F(6:958:"FOR WHICH ARTIFACT TYPE:":X0DT:" ";X;" = ";TY$(X);(".............................0-'M$(X)A$:XMFMFMF1'-'10100C-' >> 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 .'( ";X;". ";M$(X)::" ";MF1;". NEW FIELD":" ";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$""15;",D1":D$"WRITE ";A$:AF:X1AF:AL$(X)::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)::D$;"CLOSE ";A$+z150+t' >> MON. DATA ASSIGNR,~':X1MF:"::MF:X1MF:M$(X)::X1MF:DM%(X)::DT:X0DT:TY$(X)::D$;"CLOSE ";A$X*150l*  >> SAVE PARAM**6:958:"NAME OF PARAMETERS FILE:"::" ===> ";A$*4(A$,1)"?"DK1:20:D$;"CATALOG";(A$,2)::A$:7200^+>DK1:20:D$;"OPEN ";A$AMETERS FILE:(? FOR CATALOG)"::" ===> ";A$h)(A$,1)"?"DK1:20:D$;"CATALOG"::A$:::7100)DK1:20:D$;"OPEN ";A$;",D1":D$"READ ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::O*F1NF:X14:FD%(F,X):" 3. RETURN",(:"INPUT NUMBER (1-3): ";H(A$:A$"1"A$"3"6930e(A$:(A$)7100,7200,150s(X >> QUIT(bDK1:20:D$;"WRITE EAMON.FILES":T14:N%(T)::LR:LM:LA(lD$;"CLOSE"(v216,0:( >> LOAD PARAM0)6:958:"NAME OF PARNUMBER (1-7):";-'A$:(A$)1(A$)76830d'A$:(A$)10100,10200,10300,10400,10500,10600,150~' >> LOAD/SAVE PARAM. (:10);"LOAD/SAVE PARAMETERS":6:958:"SELECT LOAD/SAVE FUNCTION:"::" 1. LOAD PARAMETERS"::" 2. SAVE PARAMETERS"::A 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 TO MAIN MENU":"INPUT THE 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,150& >> CHANGE DAT,R";N%(2)201:"YOU SEE ARTIFACT ";N%(2)1;"."$DK1:20: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 DEFAULTSK%6:12);"CHANGE DEFAULTS":6:"(4)M#34500 #8 >> DELETEC#BC$"DELETE":500:N%(A)N%(A)1M#L6000a# === INCREMENT#C$"INCRMNT":500:N%(A)N%(A)1:6000#LKLK:6000#d >> GEN. DUMMY ART.#n#x"NBR ART. TO GEN:";NA.$DK2:20:A1NA:D$"WRITE EAMON.DESCS,R";M:A$:X216:MD%(X2)::D$:MM1Bӆ6:958:" 1. THE DEAD BODY OF ";A$::" 2. THE DEAD BODY OF THE ";A$::"CHOOSE THE CORRECT PHRASE (1-2):";BֆX$:X$"1"X$"2"34518B׆THE$("THE ",1,(X$"2")4):X$C؆NA$"DEAD "A$:DE$"YOU SEE TWRITE EAMON.ARTIFACTS,R";NO:(34);NA$;(34):D1AF4:AD%(D):JAyD$:aAz >> WRITE MONSTERAzDK1:20:D$;"WRITE EAMON.MONSTERS,R";NO:(34);NA$;(34):M1MF:M%(M)::D$AzAĆ === GENERATE DEAD'BΆDK1:20:XALA%:D$;"READ EAMON.MONSTER @VD$:!@] >> READ MONSTERb@]DK1:20:D$"READ EAMON.MONSTERS,R";NO:NA$:D1MF:M%(D):l@^D$:@|y >> WRITE ROOM@yDK2:20:D$;"WRITE EAMON.ROOMS,R";NO:(34);NA$@yD1ND:RD%(D)::LT:D$@y@y >> WRITE ART.@AyDK1:20:D$;">> READ DESC??*NDK2:20:D$;"READ EAMON.DESC,R";REC:DE$:D$E?4NX?R >> READ ROOM?RDK2:20:D$;"READ EAMON.ROOMS,R";NO:NA$:D1ND:RD%(D):?RLT?&RD$:?U >> READ ART.@UDK1:20:D$;"READ EAMON.ARTIFACTS,R";NO:NA$:X18:AD%(X):D1MF:DM%(D)M%(D):>;1505>; >> CHG DEF. ART.>;:"INPUT NEW DEFAULT VALUES FOR ALL FIELDS.":D1AF:AD%(D)DA%(D)::12050:D1AF:DA%(D)AD%(D):>;150>PF>> WRITE DESC>ZFDK2:20:D$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):D$: ? N0=P7 =Z7$=: >> CHG DEF. ROOMj=;:"INPUT DEFAULT VALUES DESIRED.":D1ND:RD%(D)DD%(D)::11055=;D1ND:DD%(D)RD%(D)::DLLT=;150=`; >> CHG DEF. MONST.>j;:"ENTER NEW DEFAULT VALUES FOR EACH FIELD.":D1MF:M%(D)DM%(D)::14040:END":" FOR RANDOM FRIENDLINESS,":" ENTER PERCENT LIKELY FRIENDLY + 100"<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):1415I$::"MONSTER # ";NO;" ";::NA$::3;6M1MF;7M1M6ĺ" IF GROUP MONSTER ENTER VALUE FOR JUST ONE MEMBER OF GROUP";7M3ĺ" SINGLE MONSTERS - ENTER 1":" GROUP MONSTERS - ENTER # OF MEMBERS"L<(7M11ĺ" 1=ENEMY 2=NEUTRAL 3=FRIDE$:TL238:600:DE$I$::1:6 >> EDIT MONSTER:6:"ENTERING MONSTER # ";NO::"** BE SURE TO ENTER *ALL* MONSTER NAMES IN A SINGULAR FORM **"::6:I2$NA$:TLML:"ENTER NAME:":600:I$""14010';6NA$I$::"ENTER DESC--":I2$DE$:TL238:600:DE$X;" = ";TYP$(X);:XDTĺ22);X1;" = ";TYP$(X1):9/::j9/"1=AXE, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":p909 0X14:AL$(XAF)FM$(FMP%(AD%(2)),X):90X14:AD%(AFX)FD%(FMP%(AD%(2)),X):9f092 >> EDIT EFFECT:2:"ENTER EFFECT #";NO:I2$ CARRYING IT":"-1.................CARRIED BY PLAYER":"-999...............WORN BY PLAYER"8&/AL$(D);" : ";:I2$(AD%(D)):TL5:600:AD%(D)(I$)8+/D2PTAD%(2)İ1230080/8:/8/D112250,12290,12290,12290,122608/1229009/X0DT2:" ";1AD%(2)4)İ1220097/D8ĭAD%(2)8ĺ" 1 = HIDDEN DOOR"w7/D7ĭAD%(2)4AD%(2)6AD%(2)7ĺ"OPEN = 1; CLOSED = 0"7/D2PTAD%(2)Z8%/D4ĺ"ARTIFACT# + 500....INSIDE ARTIFACT#":"ROOM# + 200........EMBEDDED IN ROOM#":"(- MONSTER# - 1)...MONSTER#NA$:TLAL::"ENTER ARTIFACT NAME:":6.600:I$""120106.3:958:"ARTIFACT NAME:":" ";::I$::NA$I$:6:I2$DE$:TL2386/"ARTIFACT DESCRIPTION:":I2$DE$:600:6:958:"ARTIFACT DESCRIPTION:"::I$::DE$I$:7/D1AF4:D2(DAF2AD%(2)L THINGS"5/+D1ND54+"MOVE ";DD$(D);"...";:I2$(RD%(D)):TL5:600:RD%(D)(I$):RD%(D)(RD%(D))(RD%(D))I$Ģ(37):110605H+:"LIGHT (0 = NONE; 1 = NORMAL) ";:I2$(LT):600:LT(I$):5. >> EDIT ARTIFACT$6.:"ENTERING ARTIFACT ";NO:I2$N:":600:6:958:"ROOM DESCRIPTION:"::I$::DE$I$:4*+958:"FOR EACH DIRECTION ENTER THE ROOM # THATTHIS ROOM CONNECTS TO:" 5,+" NO CONNECTION: 0":" EXIT TO MAIN HALL: -99":" DOORS: ARTIFACT # OF DOOR + 500":" NEGATIVE NUMBER FOR UNUSUA":600*3)((I$))32765FD%(NF,X)(I$)03):3)6800M3* >> EDIT ROOM3+:"ENTERING ROOM ";NO::I2$NA$:TLRL:"ENTER ROOM NAME:"3 +600:I$""110103+3:958:"ROOM NAME:":" ";::I$::NA$I$:TL238:6:I2$DE$74 +"ENTER ROOM DESCRIPTIO:D$;"CLOSE":35'  SET UP PRINTER Q 6:958:"WHAT SLOT IS PRINTER IN?";m A$:A$"1"A$"7"1020 A$:PS(A$):100  LIST ROOMS 6:958:"BEGINNING WITH # (1): ";BE$:BE$""BE$"1":6:23:BE$#8:"ENDING WITH # ("NR;:"): " 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON",PRT31,3PRT);")":" 7. QUIT":"INPUT YOUR CHOICE (1-7):";CH CH1000,2000,3000,4000,5000,6000,7000 130 DR$""DV4:DR$"6":216,0:D$;"CLOSE":32 DV5:R$(R)::D$"CLOSE"6 _D$"OPEN EAMON.DESC,L242,D"DRA cSIZ40V d MAIN ROUTINE n:12);"EAMON DUNGEON LIST 7.1"::(40(ADV$))21);::ADV$: 8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS": EAMON.MONSTERS,L"LM;",D1":R1NM:D$"READ EAMON.MONSTERS,R";R:MN$(R): FD$"OPEN EAMON.ARTIFACTS,L"LA;",D1":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE" ZDK2:40000:D$"OPEN EAMON.ROOMS,L"LR;",D"DR:R1NR:D$;"READ EAMON.ROOMS,R";RN.NAME":ADV$:DR$,DV:D$;"CLOSE"w DV7ĺ:"THIS ADVENTURE IS NOT VERSION 7.X."::"USE DUNGEON LIST VERSION 6.0": #216,0 (ND(DR$) 2D$"OPEN EAMON.FILES":D$;"READ EAMON.FILES":NR,NA,NE,NM,LR,LM,LA 7R$(NR),AN$(NA),MN$(NM)I <D$"OPENA3 DUNGEON LIST 7.1 2-DISK BY TOM ZUCHOWSKI f DEVELOPED FROM VERSION 6.0 BY JOHN NELSON oDL3|8/21/93 (4);"MAXFILES 3":D$(4)::5:10:"DUNGEON LIST 2-DISK":35000200! :D$;"OPEN EAMON.NAME,D1":D$;"READ EAMO          AB= DUNGEON EDIT 7.0 2-DISK SUPPLEMENT BY TOM ZUCHOWSKI } ADAPTED FROM 'DUNGEON EDIT' BY JOHN NELSON & DON BROWN DD4 6/6/89 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4);"MAXFILES 7":30 DR2DKCD$(2)"ADVENTURE DISK"JҌJ`"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.":JHD$(4):DK1:20:D$"OPEN EAMON.FILES,D1":D$;"WRITE EAMON.FILES":T14:N%(T)::LR:LM:LA VDDK:DR1,USER#8,0I<dI10:8:"ONE DISK DRIVE OR TWO? ";:16368,0:A$:A$:DR(A$):DR1DR236000I:"PUT 'BOOT' DISK IN DRIVE 1":DR2ĺ:"PUT 'ADVENTURE DISK IN DRIVE 2"I:"HIT ANY KEY TO CONTINUE:":16368,0:A$:A$JȌDK$(1)"BOOT DISK":DK8,0,HEAL AMT,10,NBR USES,5,OPEN?,0,USER #8,0Hz1ST EFF.,1,#EFFECTS,1,OPEN?,0,USER #8,0,ROOM BEYOND,1,KEY#,99,STRENGTH,999,HIDDEN?,0HUSER #5,0,USER #6,0,USER #7,0,USER #8,0HފMONSTER#,0,KEY#,0,GUARD#,0,USER #8,0 I芃ARMOR CLASS,0,TYPE,0,USER#7,0X0NF:F14:FML$(X,F),FD%(X,F):*G1G9_G0,0,1,1,2,3,4,5,6,7,8,9:FORMAT POINTERSGUSER#5,0,USER#6,0,USER#7,0,USER#8,0GODDS,10,W.TYPE,3,DICE,1,SIDES,4,KEY#,99,STRENGTH,100,OPEN?,0,USER #8,0,HHCOUNTER,999,USER #6,0,USER #7,0,USER #$(MF5),M%(MF5):M1MF:M$(M):lF숃 HD,AG,# MEMBERS,COUR,ROOM,WEIGHT,ARMOR,WEAPON#,# DICE,# SIDES,FRIENDFDM%(MF5):M1MF:DM%(M):F16,16,1,100,0,150,0,0,1,4,3: MONS. DEFAULTS$GNF:FMP%(DT5),FML$(DT5,4),FD%(DT5,4):X0DT:FMP%(X)::4CX),AD%(AF4CX):T1AF:AL$(T):@EˈVALUE,TYPE,WEIGHT,ROOMVËT1AF:DA%(T):sEш50,1,5,0:ART. DEFAULTSEֈD110:DD$(D):E؈ N ,S ,E ,W ,U ,D ,NE,NW,SE,SWEۈT110:DD%(T)::DLE0,0,0,0,0,0,0,0,0,0,1:DEFAULT ROOM #S!FMF11:MRLLR34:MLLM62:ALLA42:U$(95)>DˆCX5:T14:T$(T):XDÈROOM,ART.,EFF.,MONS.DLjDT:TYP$(DTCX):T0DT:TYP$(T):DȈ11,GOLD,TREASURE,WEAPON,MAG WEAPON,CONTAINER,LIGHT,HEALING,READABLE,DOOR/GATE,KEY,BOUND MONSTER,WEARABLE$EʈAF4:AL$(AFHE DEAD BODY OF "THE$A$"."wC↭(DE$)40ĭ(DE$,41,1)" "DE$(DE$,25):S2640:DE$DE$" "::DE$DE$THE$A$"."C熁X21AF4:AD%(X2)0::AD%(2)1:AD%(3)MD%(6)CRECX200:NOX:18000:N%(2)N%(2)1C31200:C150C === SETUP DATA %D11));?M25MD%(R,5)0MD%(R,5)NRĺ" [";R$(MD%(R,5));"]";hM28MD%(R,8)1ĺ" [ NO WEAPONS ]"M28MD%(R,8)0ĺ" [ NATURAL WEAPONS ]";M28MD%(R,8)0MD%(R,8)(NA)ĺ" [";AN$(MD%(R,8));"]";M28MD%(R,8)0MD%(R,8)N%(2)ĺ" [";ANDESC,R";R600:A$J"MONSTER # ";R;" [";MN$(R);"]":"DESC:":A$:LPLP4M2111:LPLP1:" ";M$(M2);(PR$,1,10(M$(M2)));(PR$,1,6((MD%(R,M2))));MD%(R,M2);M211MD%(R,11)99ĺ" [";MD%(R,11)100;"%]";M211MD%(R,11)4ĺ" ";FR$(MD%(R,D$"OPEN EAMON.MONSTERS,L"LM;",D1"lRBEEN:D$;"READ EAMON.MONSTERS,R";R:MN$(R):M2111:MD%(R,M2)::D$"CLOSE EAMON.MONSTERS"DK2:40000PRTĺD$"PR#";PS:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEEN|D$;"READ EAMON.BEGINNING WITH # (1): ";BE$:BE$""BE$"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$):MD%(NM,12)!DK1:40000:R#";PS:LP500:RBEEN"HMRG);"EFFECT #";R;":"::LPLP2rD$;"READ EAMON.DESC,R";R400:A$:A$D$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)Ā:D$D$"PR#0": LIST MONSTERS 76:958:"EGINNING WITH # (1): ";BE$:BE$""BE$"1":23:6:BE$8:958:"ENDING WITH # ("NE;:"): ";EN$:EN$""EN$(NE):21:8:EN$(BE$)NE(BE$)1BE$"1"(EN$)NE(EN$)(BE$)EN$(NE)BE(BE$):EN(EN$)DK2:40000PRTĺD$"P3)ĭA%(R,A2)1A%(R,A2)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(R,6)1)51,5);"]";]eA2kD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::A$(27)Ā:D$"CLOSE":D$"PR#0": LIST EFFECTS 66:958:"B999ĺ" [WORN BY ";MN$((A%(R,4))1);"]";C:A2:A%(R,2)113740]$FMP%(A%(R,2))03740.A258:(A$(A2),5)"USER#"(A$(A2))03730BLPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(R,A2))));A%(R,A2);WtA26(A%(R,2)2A%(R,2)Rĺ" [";R$(A%(R,4));"]";c A24A%(R,4)0A%(R,4)NM1ĺ" [CARRIED BY ";MN$((A%(R,4))1);"]"; A24A%(R,4)200A%(R,4)200NRĺ" [";R$(A%(R,4)200);"]";A24A%(R,4)500A%(R,4)NA500ĺ" [INSIDE ";AN$(A%(R,4)500);"]";(A24A%(R,4)READ EAMON.DESC,R";200R:A$:"DESC: ":A$ A214:LPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(R,A2))));A%(R,A2); A22A%(R,2)11ĺ" [SPECIAL CATEGORY]";:3580 A22ĺ" [";TYP$(A%(R,2));"]";:3580 A24A%(R,4)0A%(R,4)N2:40000) PRTĺD$"PR#";PS:(9);"80N"R (SIZ(ADV$))2);ADV$:::RBEENX  A%(R,2)DTāX14:A$(AFX)"FIELD "(AFX)::3520 FMP%(A%(R,2))0āX14:A$(AFX)FL$(FMP%(A%(R,2)),X):* "ARTIFACT # ";R;" [";AN$(R);"]":LPLP2:D$;"BE$)NA(BE$)1BE$"1"? (EN$)NA(EN$)(BE$)EN$(NA)a BE(BE$):EN(EN$):A%(NA,8) DK1:40000:D$"OPEN EAMON.ARTIFACTS,L"LA;",D1" RBEEN:D$;"READ EAMON.ARTIFACTS,R";R:X$:A18:A%(R,A):: D$"CLOSE EAMON.ARTIFACTS" DKSS ANY KEY TO CONTINUE ";::A$::CD$"CLOSE":D$"PR#0":W LIST ARTIF.  6:958:"BEGINNING WITH ARTIFACT (1): ";BE$:BE$""BE$"1":6:30:BE$ 8:958:"ENDING WITH ARTIFACT ("NA;:"): ";EN$:EN$""EN$(NA):28:8:EN$ ((D);": ";(DR%(R,D)0)((DR%(R,D))10));DR%(R,D);5)Y\DR%(R,D)99ĺ"[EXIT]";:2160fDR%(R,D)0(DR%(R,D))NRĺ"[";R$((DR%(R,D)));"]";kDR%(R,D)500ĺ"[";AN$(DR%(R,D)500);"]";p:D:"LIGHT: ";DR%(R,D):D$(z:PRTĺ::" PRE:D$"CLOSE EAMON.ROOMS".DR1İ40000O PRTĺD$"PR#";PS:(9);"80N"*:(SIZ(ADV$))2);ADV$:::LP3:RBEEN4:"ROOM # ";R;" [";R$(R);"]":"DESC:":D$;"READ EAMON.DESC,R";R:A$:A$H"DIRECTIONS MOVED IN--"6RD1ND:" ";DD$";EN$:EN$""EN$(NR):8:21:EN$C(BE$)NR(BE$)1BE$"1"j(EN$)NR(EN$)(BE$)EN$(NR)BE(BE$):EN(EN$):DR%(NR,7) DK2:40000:D$"OPEN EAMON.ROOMS,L"LR;",D"DRRBEEN:D$;"READ EAMON.ROOMS,R";R:X$:D1ND1:DR%(R,D): *SURE* THAT YOU HAVE SUFFICIENT DISK SPACE TO ACCOMMODATE THE EXTRA BYTES.""IN THIS CASE, YOU WILL NEED APPROX. "((NT(A))L(A)2562):"ADDITIONAL SECTORS":"TYPE 'C' TO BEGIN, OR ANY OTHER KEY TO ABORT: ";:Q$:Q$:Q$"C"ĀA1ĥ, OR YOU WILL WIND UP WITH A PAR-TIAL FILE OR NO FILE AT ALL." :"IT IS *STRONGLY* RECOMMENDED THAT THIS PROCESS NOT BE PERFORMED UNLESS YOU HAVEA BACK-UP COPY OF THE ADVENTURE DISK." NT(A)0170O:"IF YOU ARE INCREASING THE NAME SIZE, BE"INSERT ADVENTURE DISK IN DRIVE 1":x s"BE SURE THAT THE DISK IN THE DRIVE NOW IS THE ONE WHICH 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 PROCESSA1A370Z P:3:"DO YOU WISH TO CHANGE THE NAME SIZE OF "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:A1ĺ)42:::"THE PRESENT NAME SIZES ARE:"::" ROOMS:....."T(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$):LITY":11:"TWO-DISK SUPPLEMENT"| 6:"INSERT 'BOOT' DISK OF ADVENTURE TO BE MODIFIED AND TYPE 'C'":A$:A$:A$"C"30 (D$"OPEN EAMON.FILES":D$"READ EAMON.FILES":N(1),N(3),NE,N(2),L(1),L(2),L(3):D$"CLOSE"h 2T(1)L(1)34:T(2)L(2)62:T(3)L(3Z RESIZE FILES UTILITY 2 2-DISK VERSION G RSA2D 11/22/88 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 UTI 1 AND":"HIT ANY KEY TO CONTINUE:":16368,0:A$:A$:LDDK@%JEROM VERSION 6.0 BY JOHN NELSON qDL2DA~1/24/89 (4);"MAXFILES 3":D$(4)::5:10:"DUNGEON LIST 2-DISK":35000200# :D$;"OPEN EAMON.NAME,D1":D$;"READ EADRIVE OR TWO? ";:16368,0:A$:A$:DR(A$):DR1DR236000b$:"PUT 'BOOT' DISK IN DRIVE 1"$DR2ĺ:"PUT 'ADVENTURE DISK IN DRIVE 2"$:"HIT ANY KEY TO CONTINUE:":16368,0:A$:A$$Ȍ:%@DR1DKLDĺ:"PUT '"DK$(DK)"' DISK INTO DRIVE USES,OPEN?,USER#89#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,USER#8#jDK$(1)"BOOT":DK$(2)"ADVENTURE">$10:8:"ONE DISK F14:FL$(X,F):2":PR$"...................."l"FR$(1)"[ENEMY]":FR$(2)"[NEUTRAL]":FR$(3)"[FRIEND]"s"9"ފ0,0,1,1,2,3,4,5,6,7,8,9"ODDS,W.TYPE,DICE,SIDES"KEY#,STRENGTH,OPEN?,USER#8"$COUNTER,USER#6,USER#7,USER#8#.HEAL AMT,NBRA18:A$(A):H!ƉVALUE,TYPE,WEIGHT,ROOM,USER#5,USER#6,USER#7,USER#8!䉃NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST!HD110:DD$(D):"zNF:FMP%(DT),FL$(DT,4):X0DT:FMP%(X)::X1NF:NTURER":M1MF:M$(M):h  HARD,AGIL,# IN GROUP,COUR,ROOM,WGHT,ARMOR,WEAPON #,# DICE,# SIDES,FRIEND? DT:TYP$(DT):X0DT:TYP$(X): 11 GOLD,TREASURE,WEAPON,MAGIC WEAPON,CONTAINER,LIGHT,HEAL,READABLE,DOOR/GATE,KEY,BOUND MON.,WEARABLE!PRTMRG0:SIZ40100)X QUIT DbD$"CLOSE":D$"PR#0":T@PRTĺA$:JAZ1(A$)40:MRG);(A$,AZ,40):LPLP1::LPLP1: READ DATÄAF:MFꈃ 4,11: AF = # ARTIF FIELDS, MF = # MONST FIELDS M$(MF),M%(MF):M$(0)"ADVE$(MD%(R,8));"]";:M2:D$RLP36PRTLP0:(12);(SIZ(ADV$))21);ADV$:PRTĞ:7);"PRESS ANY KEY TO CONTINUE";6);:A$:::A$(27)Ā:D$"CLOSE":D$"PR#0":p TOGGLE PRINTER zPRTPRTPRTMRG10:SIZ809::160G MC%:M20:M%(M,0)İ51:M%(M,0)1:RM600:45:M21:" - ";q 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::190,AC%:M20:EXPIRED!":56V zA03:S2%(A)SA%(A)S2%(A)S2%(A)1.1:S2%(A)SA%(A)S2%(A)SA%(A)\ { }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%M99%(LS,5)1:A%(LS,5)0ĺ:"YOUR "A$(LS)" HAS GONE OUT!":LS0:LTNL:99 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 ";:Q$::(37):L139:" ";:::(37):L0:V [:"YOU AREN'T CARRYING IT.":99{ \:"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 E n56:LSA%(LS,5)A30006 -F1(111):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ı1 ;" (PRESS ANY KEY TO CONTINUE) O EAMON ADVENTURE #NNN: (NAME OF ADVENTURE)@\ BY (YOUR NAME HERE)u 2-DISK VERSION VERSION 7.1  8/21/93 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4)"MAXFILES 3" 3                          THESE FILES FROM THE BOOT DISK TO THE ADVENTURE DISK:"c d:10:"EAMON.ROOMS":10:"EAMON.DESC" n:"DELETE THESE FILES FROM THE BOOT DISK AFTER TRANSFERRING THEM TO THE ADVENTUREDISK.AON.ARTIFACTS" ::3:12:"2-DISK ADVENTURE":8:"FILE):N(3):NE:N(2):L(1):L(2):L(3):D$"CLOSE" F"INSERT INITIALIZED DISK 2 IN DRIVE 1"::"TYPE 'C' TO CONTINUE, OR ANY OTHER KEY TO ABORT":A$::A$"C"Ā PD$;"OPEN ADVENTURE DISK":D$;"CLOSE"8 Z:"USE THE FID UTILITY (OR EQUIVALENT) TO COPY OR ANY OTHER KEY TO ABORT":A$::A$"C"Ā (D$"OPEN EAMON.DESC":D$"READ EAMON.DESC":N(1),N(3),NE,N(2),L(1),L(2),L(3):D$:D$;"WRITE EAMON.DESC"::D$;"CLOSE" 2D$;"OPEN BOOT DISK":D$;"CLOSE". <D$"OPEN EAMON.FILES":D$"WRITE EAMON.FILES":N(1S CONVERSION UTILITY" :"IT IS STRONGLY RECOMMENDED THAT YOU HAVE A BACKUP COPY OF YOUR ADVENTURE BEFORE PERFORMING THIS PROCEDURE!", ::"INSERT ADVENTURE DISK TO BE MODIFIED"::"BE SURE TO HAVE INITIALIZED DISK 2 READY"::"TYPE 'C'TO CONTINUE(2-DISK ADVENTURE FILES CONVERSION<AFC2D 11/22/88 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:12:"2-DISK ADVENTURE":8:"FILE   N EAMON.FILES":D$"WRITE EAMON.FILES":N(1):N(3):NE:N(2):L(1):L(2):L(3):D$"CLOSE"AER'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 UTI2(A2)20%1D$"OPEN"E$(A)",L"L(A)H6I1N(A):D$"WRITE"E$(A)",R"IS@A$(I)kJJ1X:A%(I,J)::zTD$"CLOSE"^A1ĥ360hA1ĺ:"INSERT BOOT DISK INTO DRIVE 1":"HIT ANY KEY TO CONTINUE":A$::D$;"VERIFY BOOT DISK":216,0XD$"OPE190/A1ĺD$;"VERIFY ADVENTURE DISK":216,0GA$(200),A%(200,15)YX11:A1X7fA3X8D$"OPEN "E$(A)",L"L(A)I1N(A):D$"READ"E$(A)",R"I:A$(I)J1X:A%(I,J)::D$"CLOSE":D$"DELETE "E$(A) ,L(A)N34:A1L(A)N4%:A2A%(C%,4):A2WHA2HAA2EMFF1:AC%:S$A$(C%)X999::SR:C%D%Ă:X999::F1ĺ:"WHICH "S$" DO YOU WANT?":F0::99$ GET S$ )LTġ:100.S$""ĺ:C$(C)" WHO OR WHAT";:S$:49008 DROP 4900:S$"ı/pD%C%:XC%:M%(X,5)HAM%(X,5)WH4770BFF1:F1MXVS$M$(X)MX:jR:C%D%4720p ARTIF SEARCH HA1:WHHA:EMHA:4810HA1WHRO:EMRO2004600:F0:C%0:D%0:S,S$,A$,C%:C%ıX1NA@D%CONYMS SL(S$)L PUT YOUR OWN SYNONYMS HERE. SEE MANUAL FOR DETAILSRC}H(SY$,SL)S$(SY$,SL)S$S$A$(SY):R\ MONS SEARCH aWHRO:HA1fF0:C%0:D%0:S,S$,M$,C%:C%ĭ(S$)1ĭ(S$,1)"S"S$(S$,(S$)1):4710kC%%A:A,D%,A%(C%,4),C%,B%:C%A999::300_rAC%:A$(A);:A%(A,2)10ĺ" IS TIED DOWN!":4240wA%(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 SYN:A%(A,3)900ĺ"DON'T BE ABSURD.":98[WTA%(A,3)10M%(0,1)ĺ"IT IS TOO HEAVY.":98A%(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)3171006300*h51:B%NA:D%RO:A1NA:C8M%(M,5)ROĂ:yBM%(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(EAD"ER$",R"RO:NX0:RN$:X1ND:RD%(X)H RD%(X)0RD%(X)NRNXNX1_ :NL:D$:LTNLLSh100w 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:3670ERT HERE SPECIAL ROOM MOVE CHECKINGP> :"YOU CAN'T GO THAT WAY!":V%(RO)0:99aH 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$;"R! SPECIAL EVERY-ROUND STUFF *1007 MOVE i T(1)ĺ:"YOU CAN'T TURN YOUR BACK HERE!":99q DC R2RD%(D):R25003400 R20R2NR3500 /// SPECIAL MOVES R299ĺ:"YOU RETURN TO THE MAIN HALL.":32000#l /// INS|:480C%1:B%NM:D%ROQA,D%,M%(C%,5),C%,B%:M%(C%,11)1C%C%1:410fDFC%:DFNM480M2DF1NM:C%M2:A,D%,M%(C%,5),C%,B%:C%M2999:430M2C%:M%(M2,11)1(1).25DFM2:M29997500T(1)M999:MC999:0):M2M:3600:MM2:MR%0:M%(M,5)500HTMC1:M%(M,3)8MCM%(M,3)8u^OFM:DF0:MCMCM%(M,3):M%(M,11)3400hT(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:M2999M,4)ĺ:M$(M)" FLEES!":54:M%(M,5)0:M2M:3600:MM2::500NNM%(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)00,23000,17000,18000,19000,20000,21000,22000,24000,25000,26000,27000,28000[, PICK FOE c151r6T(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%(9F1ĺ:"I ONLY UNDERSTAND THESE COMMANDS-- "::C1CC:2:1403,10:C$(C);:15:1403,30:C$(CCC);:28:1403,50:C$(C2CC)::210J"C3000,3000,3000,3000,3000,3000,4000,5000,6500,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,160$:(37):16:A$!:A$""275ICZ$A$:A2(A$):(A$,A,1)" "ĂgV$(A$,A1):S$(A$,A1)(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:A99A%(A,0)A%(A,0)1:RA200:45:M21:" - ";P"YOU SEE "A$(A)".":52:M2İ51^C%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 -(# GIVE (-2#S$Q$" TO ":Q4:9800D-P#A$""Ą"GIVE WHAT?";A$d-Z#(A$)0S$A$:4801:F91~-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.#W)T(1)T(1)0,56#,@ FLEE X,JT(1)ĺ:"THERE'S NOTHING TO FLEE FROM!"::100,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,>!35001M%(DF,3)M%(DF,3)1:M%(DF,13)0:56m+(M%(DF,5)0:M%(DF,3)M%(DF,12):A21NA:A%(A2,4)DF1A%(A2,4)RO+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(1M%(DF,1)2(M%(DF,13)0)7652,7655,7660,7665,7670,7675T*"IN PERFECT HEALTH.":56c*"OK.":56t*"HURT.":56*"BADLY HURT.":56*"GRAVELY INJURED.":56*"DYING.":56* MONSTER DIES&+"DEAD!":F(A)F(A)M%(DF,1)M%(DF,13):M%(DF,3):D2(D2AM%(DF,7)):D21ĭM%(DF,7)ĺ" BLOW TURNED!":56h)D21ĺ" BLOW GLANCES OFF ARMOR!":56p)51)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)77006*M%(DF,13)5):WDA%(W,7):SA%(W,8)Q(A1:(" ** ++",(DF0)31,3);:RL5ĺ"A HIT!":7633("WELL STRUCK!":52:R2100(1):R251A0:7633(RL1.5:R285RL2:7633(R295RL3:7633(R2100RLM%(DF,1)(SRLS<)52:D20:D31D:D2D2S(1):" WEAPON BROKEN!":WTWT((OF0)A%(W,3)):A%(W,4)0:M%(OF,8)1:(1).554'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:R100(1):R41ĺ" FUMBLE RECOVERED.":56&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)56L'tW0WMWMA%(W,5)2:OF0WMWMWA%(W2)4EAd%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!":52M20:A1NA:A%(A,4)ROĭA%(A,2)2A%(A,2)3A2A%(A,7)A%(A,8):A2M2M2AR$$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)):AST",TA31,3TA2);" THE "A$(A);"!":98F#OF0:DFM:7500:HI7360d#HIĭUPWA%(W2)WA%(W2)2~#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)RO7440L$DM%(0,9):SM%(0,10):TA1D2:S5I"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 ";("HITBL ARE ";:7652:300+!DFM:D20:7637:3008!d LOOK J!nV%(RO)0:300Y!X ATTACK !bM%(0,8)1ĺ:"YOU HAVE NO WEAPON READY!":100!lTA0:4900:4700:F7300!vHARO:4805:F94!A%(A,2)8A%(A,2)4ĺ:"WHY WOULD YOU DO THAT?":99#") ANZĺ:"THIS IS YOUR "A$(A)".":98B A%(A,2)8A%(A,8)0 A%(A,2)6ĺ" - THERE ARE "A%(A,6)" SWALLOWS LEFT.":56 RA200:45:A%(A,0)1:300 4700:Fĺ:"YOU SEE NOTHING SPECIAL.":98!RM600:45:DFM:M%(M,3)1M%(M,13)0ĺ"THEY":LL3:5100'AM%(0,8)M%(0,8)10300w51:B%NA:D%1:A1NA:C%A:A,D%,A%(C%,4),C%,B%:C%A999:5150AC%:A$(A)" DROPPED.":A%(A,4)RO:52:WT0:M%(0,8)1:300p EXAMINE z4900:4804:F6040 A%(A,4)EMA%(A,4)ROALL"51004801:F91OWTWTA%(A,3):A%(A,4)RO::A$(A)" DROPPED.":54ALSLS0:LTNL::"THE "A$(A)" GOES OUT.":54 WT10M%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND.=RS$Q$" IN ":Q4:9800:A$""Q$" ON ":Q4:9800h=0RA$""ĺ:"PUT WHAT?";A$:"PUT IN/ON WHAT?";B$=lRS$A$:M0:4804:F21150=vRZA:S$B$:4804:AZF21150=RA%(A,2)421150=RA%(A,7)92=RA%(Z,4)A500::"OKAY.":98>R:"YOU CAN1A<O:"YOU FIND "("NOSOME",LK21,22LK)"THING INSIDE.":98LN51:XA%(A,2):X4X6X720100:RNX820300:\NS$"DOOR"S$"GATE"ĺ"TRY GOING IN THAT DIRECTION.":99;f1)(112)2561}9F:"THE GAME IS NOW SAVED. YOU CAN BOOT THISDISKETTE, OR RUN THE PROGRAM 'MAIN PGM' TO RESTART THE GAME."9F::"RESUME PLAY? ";A$:(A$,1)"N"2906098J LIGHT 9BJ4910:4801:F91 :`J:LTNL:A%(A,2)5A%(A,5)1ĺ"IT WON'T 8nFA$:A$"N"10038xFD$"CLOSE":B$"BOOT":35020f8FD$"CLOSE":X(0):D$"BSAVE GAME.PTRS,A$69,L8"8FD$"BSAVE GAME.SVAR,A"(105)(106)256",L"(109)(110)256(105)(106)25619FD$"BSAVE GAME.STR,A"(111)(112)256",L"(115)(116)256(117rB4900:4801:F91L7BA%(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"18020MENTS QUICKEN!":98!6: SMILE .6:LT100P6::M1NM:M%(M,5)ROĂ:300q6: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 D SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::52:98u53M1NM:M%(M,5)ROĺM$(M)" HEALS!":51:M%(M,13)053:R3RO:3600:30056 SPEED 56S2:1150056SPĺ:"NOTHING HAPPENED":9866M%(0,2)M%(0,2)2:SPSP25(1)10::"YOUR MOVE.4/56:M%(M,13)ĺM$(M)"'S HEALTH IMPROVES!"e4/M%(M,13)M%(M,13)310(1):M%(M,13)0M%(M,13)0~4/DFM:D20:7637:30042 POWER 42S3:11500:RL(1)100:RL11M%(0,13)ĺ:"YOUR WOUNDS HEAL!":M%(0,13)0:98>52RL91ĺ:"YOU HEAR A VERY LOUSH!! YOUR ABILITY TO CAST THIS SPELL TEMPORARILY DIMINISHES!":S2%(S)S2%(S)10::98|3,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 4.S1:11500:M0:S$""İ4700";GO;" GOLD PIECES.":54:DFM:D20:763812'300?2* BLAST i2+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))V3,RL100ĺ:"SPELL BACKLA(M)" IS WEARING:":54(1`'AC%:" "A$(A)31j':X1S1t':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)":51(2'Mĺ" B$(S$,XQ):A$(S$,X1):X999'0\&:50' INVEN R0'S$""M0:X999:10060_0$'LT100p0.'4700:F9608'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:100901V'M2M21::M$M%(M,1):A%(A,6)A%(A,6)1m/h$M%(M,13)M%(M,13)A%(A,5):M%(M,13)M%(M,13)(M%(M,13)0):DFM:D20:7637:9120/%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$X2TWTA%(A,3):A%(A,4)M1G.#M%(M,8)0ĭA%(A,2)2A%(A,2)3M%(M,8)A~.#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)|LUNGES,TEARS,CLAWS,SWINGS,CHOPS,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:N}D$0 L|32L|NORTH,SOUTH,EAST,WEST,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,SMILExMEA0:AEACACEAAEACACOKyNC:C$(NC3):C1NC:C$(C)::CC(NC3)1:R21lKyW20: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)L|350 CHAIN MAIL PLATE ARMOR",B%1110,11):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)3KyD$"DELETE FRESH MEAT"!IQy31058iIRy:12:"PLEASE INSERT DISK 2 AND PRESS 'C'";:X$:X$:X$"C"31058vISy216,0:ITy35000IhyW2NZ1NAIryA1NZ:A$(A)A$(W2)A$(A)A$(A)"#":A999::31090gJ|y::B%AC2:B%NANA1:ARNA:A$(NA)("LEATHER M%(0,1),M%(0,2),CH:A03:SA%(A):S2%(A)SA%(A)::A15:WA%(A)::AE,SE$,GO,BA,ACHJyNANZ: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"IOy?PEN EAMON.MONSTERS,L"LM:A1NM:D$;"READ 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.STARTSH@yD$"OPEN FRESH MEAT":D$"READ FRESH MEAT":RE:M$(0),D EAMON.FILES":NR,NZ,NE,NM,LR,LM,LA:D$"CLOSE"F'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):VG6y:D$"OR":LEpq(4)"BLOAD GAME.PTRS":(4)"BLOAD GAME.SVAR":(4)"BLOAD GAME.STR"~Ezq(26)"1":(21)::CP80ĺD$;"PR#3":(12):Eq35000EqF0:A$"":CZ$"":100Ey INIT EyER$"EAMON.ROOMS":ED$"EAMON.DESC"/F"y216,0:D$"OPEN EAMON.FILES":D$"REAN SPECIAL STUFF HERE6Dp:"TRY ANOTHER COMMAND.":98JDHq RESUME GAME UDMq216,0DRq:"DO YOU WANT TO RESUME THE SAVED GAME?":" Y OR N:";D\qA$:A$"Y"A$"N"29020EfqA$:A$"N"ĺD$"DELETE GAME.PTRS":D$"DELETE GAME.SVAR":D$"DELETE GAME.STADY WEARING ONE!":98$Cxi REMOVE lCi4900:HA999:EMHA:WHHA:4810:Fĺ:"YOU AREN'T WEARING IT.":99CiASHM%(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 Djm///INSERT YOUR OWRO:EM999:4810:F94-BeA%(A,4)EM26100ABeA%(A,2)1194UBeA%(A,5)26080mBeA%(A,5)1SH26100BeA%(A,5)1SHA:M%(0,7)M%(0,7)1:26080BeAR26100BeARA:M%(0,7)M%(0,7)AC2BeA%(A,4)999::A$(A)" WORN.":98Ce:"YOU'RE ALRE$:"FROM WHOM?";B$)AaS$B$:4700:F96GAaM%(M,11)2āMMM:15030AaS$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 Be4900:HA1:WHA%(A,7)>@8^M%(G,5)ROĺ:M$(G)" WON'T LET YOU DO THAT!":98v@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:9800AaA$""İ4900:A$S?|V54:DF0:D20:7638 ?V300-?Y READ D?Y4900:4804:F94W?YA%(A,2)794h?YA%(A,7)92?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):G'T DO THAT.":98>U DRINK 5>U4900:4804:F94H>VA%(A,2)694Y>VA%(A,7)92>^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)0IS ADVENTURE DISK.":D$;"CLOSE":6 <ND(ND$):216,0 >D$;"OPEN EAMON.FILES":D$;"READ EAMON.FILES":N%(1),X,N%(3),X,LR,LM,LA:D$;"CLOSE" AD$;"OPEN EAMON.FILES":D$;"READ EAMON.FILES":X,N%(2),X,N%(4),LR,LM,LA:D$;"CLOSE" Z35000I :T14:OOT DISKETTE IN DRIVE":" THEN HIT ANY KEY TO CONTINUE":A$:G !::P (55 2D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DU$:ND$:DV$:D$;"CLOSE"! 7(DV$,1)"7"ĺ:"THIS IS NOT A VERSION 7.0 EAMON. USE THEPROGRAM NAMED 'DUNGEON EDIT' FOR THD$;"OPEN EAMON.MONSTERS,L";LM:D$;"OPEN EAMON.ARTIFACTS,L";LAc DR2ĺD$;"OPEN EAMON.ROOMS,L";LRo CDDR: D$(4)::5:11:"EAMON DUNGEON EDIT":14:"VERSION 7.0":9:"MULTI-DISK SUPPLEMENT":11:"INPUT DATA PROGRAM"= 20:16368,0:"INSERT B(4);"MAXFILES 7"H DR$(1)"ART/MON DISK":DR$(2)"ADVENTURE DISK":30j DRCDĺD$;"VERIFY "DR$(DR): D$;"CLOSE":"INSERT ";DR$(DR);" IN DRIVE":" THEN HIT ANY KEY TO CONTINUE":A$: D$;"VERIFY "DR$(DR)= D$;"OPEN EAMON.DESC,L242":DR1ĺ\Db DUNGEON EDIT 7.1 2-DISK SUPPLEMENT (1-DRIVE VERSION) INPUT DATA PROGRAM BY TOM ZUCHOWSKI  ADAPTED FROM 'DUNGEON EDIT' BY JOHN NELSON & DON BROWN ID5 8/21/93 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012                  !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""ERT "B$" DISK INTO DRIVE 1 AND PRESS 'C'":A$:A$:A$"C"35025`WֈD$"VERIFY"B$" DISK":216,0WD$"OPEN"ED$",L242":D$"OPEN"ER$",L";LRWꈭB$"BOOT"18055W31070MS":D$"WRITE FS.PARMS":A:M:D$"CLOSE"GV悺D$"BSAVE FS.PTRS,A$69,L8"zVD$"BSAVE FS.SVAR,A"A",L"(109)(110)256A1VD$"BSAVE FS.STR,A"(111)(112)256",L"M(111)(112)2561V31040V DISK2 VˆB$"ADVENTURE"V̈35025@Wш:"INSD$"READ FS.PARMS":A:B:D$"CLOSE"U(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":31000(V܂X(0):A(105)(106)256:M(115)(116)256:D$"OPEN FS.PARMAIN HALL"T耲 FAST START THM(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":29000T31000"UD$"VERIFY FS.PARMS":D$"OPEN FS.PARMS":RACTERS,R";RE:M$(0):M%(0,1):M%(0,2):CH:A03:SA%(A):XS+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" TD$"RUN ~(21): TURN OFF //E 80-COLrR~:5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0RA$:A$"C"32520RA$RDIĺD$"OPEN THE ADVENTURER":D$"DELETE THE ADVENTURER":32900;S&D$"OPEN CHARACTERS,L150":D$"WRITE CHAF 3 BALLS). HE PAYS YOU ";5Q;~A%(SH,4)0:A%(AR,4)0Q@~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-COLR1:WP$(W5)WP$(W2):WP%(W5)WP%(W2):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)0Q6~:FF$::" YOU SELL YOUR GOODS TO THE LOCAL BUYER OF TREASURE (UNDER THE SIGN ODLE APPROACHES AND SAYS, 'YOU HAVE 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$):W51W5W2320807PZ}A%(WP%(W5),4)"CLOSE":SPM%(0,2)M%(0,2)2+N}DI32500N(}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}:W2532300eO<}FF$::"AS YOU ENTER THE MAIN HALL, LORD WILLIAM CRANKHANRS":A$"MONSTER":DR1:3500/ >> LIST STUFF 20:::LP0:"LISTING ";::A$;"S":::34,2:A1N%(TYP):D$;"READ ";F$;",R";A:NA$:D$:A$;"#";A;": ";::NA$: LPLP1:LP1930HCİ3600 A:D$;"PR#0" :"PRESS ANY KEY TO RETURN TO MENU":::34,2:A1N%(TYPE):RECA400:DR2:20000:A$;" #";Ag HCāX1(DE$)40:(DE$,X,40):LPLP1:} HCĺDE$:LPLP1 ::LPLP1:LP1235HCİ3600* A:D$;"PR#0"4 :"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::150H F$"EAMON.MONSTETHAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$::150V HCĺD$;"PR#1"t TYPE3100,3200,3300,3400 F$"EAMON.ROOMS":A$"ROOM":DR2:3500 F$"EAMON.ARTIFACTS":A$"ARTIFACT":DR1:35009 ::LP0:"LISTING ";:A$"EFFECT"::A$;"S"22000:X14:AL$(AFX)FML$(FMP%(AD%(2)),X):81230M >> EDIT EFFECTs 700:RECNO400:DR2:20000:1330` >> EDIT MONSTERj 700:RECNO600:24000:DR1:20000:1430 >> LIST THINGSC C$"LIST":500:TYPEA:N%(TYPE)0ĺ::"NONE OF (D)DM%(D):414000:DR1:18000:31400:LKī150=800T >> EDIT OLD ITEMnC$"EDIT":500:TYPEATYPE2100,2200,2300,24004 >> EDIT ROOM>700:RECNO:21000:DR2:20000:1130 >> EDIT ARTIFACT.700:RECNO200:DR1:20000:2)),X):012000:31200:DR1:18000:LKī1509800M >> ADD EFFECTsN%(3)N%(3)1:NON%(3):RECNO400~(DE$""213000:DR2:18000:LKī150<800x >> ADD MONSTERN%(4)N%(4)1:NON%(4):RECNO600 NA$"":DE$"":D1MF:M%):RECNOG`NA$"":DE$"":D1ND:RD%(D)DD%(D)NO(DD%(D)0)::LTDLRj11000rt31100:DR2:18000:LK150{~800 >> ADD ARTIFACTN%(2)N%(2)1:NON%(2):RECNO200NA$"":DE$"":D1AF:AD%(D)DA%(D)::X14:AL$(XAF)FM$(FMP%(AD%( >> LOCKED <<7*:C1020,2020,3010,4020,5020,150,150@z150[ >> DELETE FROM LOCKLKLK:C1N%(TYP)N%(TYP)1:150150 >> ADD ITEMC$"ADD":500:TYPEATYPE1100,1200,1300,1400L >> ADD ROOMVN%(1)N%(1)1:NON%(1)I2$I$I2$:A$;:605'A$(8)605IA$(27)ĺI2$:I$I$I2$:616R615f >> GET NUMBER6:958:"INPUT NUMBER OF ";T$(TY);" TO ";C$" (1-";N%(TYPE);:") ";A$:NO(A$):NO1NON%(TYPE)(C$"CREATE")NO(NO)ġ:150  PA$(9)CIISIS:H(36):V(37):39:1::(" I",IS1,1)::H1:V1:615nA$(9)I2$" "I2$:610A$(21)(I2$)A$(I2$,1):625A$(21)A$" ":625A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615A$(8)(I$1)(I2$)))(I$)(I2$)TLĺ(7);:615LnA$(31)ISĺA$;:I$I$A$:610zqA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615vA$(5)ĺI2$;:I$I$I2$:I2$"":615{A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615A$(4)I2$(I2$,2):6101Z958:TL5Ė1:V(37):I1TL:U$;:::V1@]I$"":IS0\bI2$;:TL5ĺU$;:(8);}d(I2$)āA1(I2$):(8);:gA$:A$(13)619hI$""ĺ(7);:605iA$(13)Č958:jkA$(17)LKġ::900(l(A$(31)A$(9)(A$(25! >> SELECT WHAT TO WORK ON2:958:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";A$:A14:A$("RAEM",A,1)Ă:520A$:X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$YTLTL238:605 7. QUIT"5":"ENTER KEY FOR YOUR CHOICE (1-7) ";S,A$:A$(12)LKLK:150l1A$(9)CICI:1506(A$)1(A$)7300@C(A$):A$^C1000,2000,3000,4000,5000,6000,7000ND$""DV4:ND$"6":D$;"CLOSE":55DV5:D$;"CLOSE":5NSTER" :" 3. LIST NAMES OF ROOMS, ARTIFACT,ETC"@" 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OLD)"" 5. DUPLICATE A ROOM, ARTIFACT":" OR MONSTER"" 6. SPECIAL FUNCTIONS" "T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DU$:("LOCK",1,LK4);:p " ";::("CONT.ISRT",1,9CI): "YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" MONSTER" " 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MOMF:X1MF:M$(X)::X1MF:DM%(X)::DT:X0DT:TY$(X)::D$;"CLOSE ";A$U,150i,  >> SAVE PARAM,*6:958:"NAME OF PARAMETERS FILE:"::" ===> ";A$,4(A$,1)"?"DR1:20:D$;"CATALOG";(A$,2)::A$:7200U->DR1:20:D$;"OPEN ";A$:DPARAMETERS FILE:(? FOR CATALOG)"::" ===> ";A$k+(A$,1)"?"DR1:20:D$;"CATALOG"::A$:::7100+DR1:20:D$;"OPEN ";A$:D$"READ ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::L,F1NF:X14:FD%(F,X):::;*hDR2:20:D$;"CLOSE EAMON.DESC":D$;"CLOSE EAMON.ROOMS"*l:"INSERT BOOT DISK IN DRIVE"::"AND HIT ANY KEY TO CONTINUE:":A$:A$:D$;"WRITE EAMON.FILES":T14:N%(T)::LR:LM:LA:D$"CLOSE"*v216,0:* >> LOAD PARAM3+6:958:"NAME OF :"INPUT NUMBER (1-3): ";6)A$:A$"1"A$"3"6930S)A$:(A$)7100,7200,150a)X >> QUIT)bDR1:20:D$;"WRITE EAMON.FILES":T14:N%(T)::LR:LM:LA:D$"CLOSE")eD$;"CLOSE EAMON.DESC":D$;"CLOSE EAMON.MONSTERS":D$;"CLOSE EAMON.ARTIFACTS"A$:(A$)1(A$)76830R(A$:(A$)10100,10200,10300,10400,10500,10600,150l( >> LOAD/SAVE PARAM.(:10);"LOAD/SAVE PARAMETERS":6:958:"SELECT LOAD/SAVE FUNCTION:"::" 1. LOAD PARAMETERS"::" 2. SAVE PARAMETERS"::" 3. RETURN")8);"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 NUMBER (1-7):";(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 ASSIGN':0U SEE ARTIFACT ";N%(2)1;"."%DR1:20: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 DEFAULTS9&6:12);"CHANGE DEFAULTS":6:"SELECT DEFAULT TO $8 >> DELETE1$BC$"DELETE":500:N%(A)N%(A)1;$L6000O$ === INCREMENTy$C$"INCRMNT":500:N%(A)N%(A)1:6000$LKLK:6000$d >> GEN. DUMMY ART.$n$x"NBR ART. TO GEN:";NA%DR1:20:A1NA:D$"WRITE EAMON.DESC,R";N%(2)201:"YO200,6300,6400,6500,6600,6700,6800,69009# >> GEN. DEADa#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%(2)1:LA%AN%(4)M#34500;("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$)1(S$)SF6045&#:(S$)6045,6OR PRESS "::2!z" 1. (NOT USED)":T!" 2. DELETE LAST R,A,E,M":x!" 3. ADD TO NBR OF R,A,E,M":!" 4. TOGGLE LOCK MODE (NOW ";("OFFON",LK31,3LK);")"!:" 5. GENERATE DUMMY ARTIFACTS"&":" 6. TOGGLE PRINTER (NOW "0:DR1:20000:RECNC200:NONC:12307  >> DUP. EFF.l NOFROM:RECNO400:DR2:20000:RECNC400:18000u 150  >> DUP. MONSTER "NOFROM:24000:DR1:20000:RECNC600:NONC:1430 p >> SPECIAL FUNCTIONS!u:SF9::" SELECT FUNCTION O:C$"CREATE":700:NCNOfNON%(TYPE)ĺ"CREATING A ";T$(TYPE);" FROM ANOTHER.":N%(TYPE)N%(TYPE)1TYPE5100,5200,5300,5400 >> DUP. ROOMNOFROM:RECNO:21000:DR2:20000:RECNC:NONC:1130P >> DUP. ART.$ ZNOFROM:RECNO200:2200EPLACE ROOM700:11202h >> REPLACE ARTIF.Lr700:RECNO200:1220d >> REPLACE EFFECT~700:RECNO400:13200 >> REPLACE MONSTER:700:RECNO600:1420 >> DUPLICATEC$"DUPLIC.":500:TYPEAC$"DUP. FROM":700:FROMN;:A$:::150" >> PAGE BREAKLLP0:HCĺ(12);"LISTING ";A$;"S"::$:" (PRESS ANY KEY TO CONTINUE) ";:16368,0:B$::(37)1:958j >> REPLACE ITEMC$"REPLACE":500:TYPEATYPE4100,4200,4300,4400  >> R38:600:DE$I$::(<6 >> EDIT MONSTER<6:"ENTERING MONSTER # ";NO::"** BE SURE TO ENTER *ALL* MONSTER NAMES IN A SINGULAR FORM **":<6:I2$NA$:TLML:"ENTER NAME:":600:I$""14010=6NA$I$::"ENTER DESC--":I2$DE$:TL238:600:DE$I$::"MYP$(X);:XDTĺ22);X1;" = ";TYP$(X1)1;/::a;/"1=AXE, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":g;0; 0X14:AL$(XAF)FM$(FMP%(AD%(2)),X):;0X14:AD%(AFX)FD%(FMP%(AD%(2)),X):;f0;2 >> EDIT EFFECT<2:"ENTER EFFECT #";NO:I2$DE$:TL2 IT":"-1.................CARRIED BY PLAYER":"-999...............WORN BY PLAYER":&/AL$(D);" : ";:I2$(AD%(D)):TL5:600:AD%(D)(I$):+/D2PTAD%(2)İ12300:0/::/:/D112250,12290,12290,12290,12260:/12290';/X0DT2:" ";X;" = ";T4)İ1220009/D8ĭAD%(2)8ĺ" 1 = HIDDEN DOOR"n9/D7ĭAD%(2)4AD%(2)6AD%(2)7ĺ"OPEN = 1; CLOSED = 0"9/D2PTAD%(2)Q:%/D4ĺ"ARTIFACT# + 500....INSIDE ARTIFACT#":"ROOM# + 200........EMBEDDED IN ROOM#":"(- MONSTER# - 1)...MONSTER# CARRYINGL::"ENTER ARTIFACT NAME:"18.600:I$""12010w8.3:958:"ARTIFACT NAME:":" ";::I$::NA$I$:6:I2$DE$:TL2388/"ARTIFACT DESCRIPTION:":I2$DE$:600:6:958:"ARTIFACT DESCRIPTION:"::I$::DE$I$: 9/D1AF4:D2(DAF2AD%(2)1AD%(2) 7/+D1ND{74+"MOVE ";DD$(D);"...";:I2$(RD%(D)):TL5:600:RD%(D)(I$):RD%(D)(RD%(D))(RD%(D))I$Ģ(37):110607H+:"LIGHT (0 = NONE; 1 = NORMAL) ";:I2$(LT):600:LT(I$):7. >> EDIT ARTIFACT8.:"ENTERING ARTIFACT ";NO:I2$NA$:TLA6:958:"ROOM DESCRIPTION:"::I$::DE$I$:z6*+958:"FOR EACH DIRECTION ENTER THE ROOM # THATTHIS ROOM CONNECTS TO:"7,+" NO CONNECTION: 0":" EXIT TO MAIN HALL: -99":" DOORS: ARTIFACT # OF DOOR + 500":" NEGATIVE NUMBER FOR UNUSUAL THINGS")((I$))32765FD%(NF,X)(I$)'5)15)6800D5* >> EDIT ROOM5+:"ENTERING ROOM ";NO::I2$NA$:TLRL:"ENTER ROOM NAME:"5 +600:I$""110105+3:958:"ROOM NAME:":" ";::I$::NA$I$:TL238:6:I2$DE$.6 +"ENTER ROOM DESCRIPTION:":600:600:I$""XDTDTDT1:10500-46)I$""150Q4@)XDT1DTDT1:TY$(DT)I$:150_4J)TY$(X)I$j4^)105004h) === ADD A FORMAT ===4r)6:9584|)NFNF1:X14:"FIELD ";XAF;" LABEL:";:I2$"":TL0:600:FML$(NF,X)I$:"DEFAULT DATA:";:I2$"0":600!5 >> ART TYPESq3):X0DT:" ";X;". ";TY$(X)::" ";DT1;". NEW TYPE":" ";DT2;". RETURN TO PREVIOUS MENU"3)"INPUT TYPE NUMBER:";A$:(A$)0(A$)DT2ĺ"TRY AGAIN, FROGFACE.":105203")X(A$):XDT268004,):"NEW TYPE:";:I2$TY$(X):TL0:8:"INPUT FORMAT NUMBER:";92(A$:A$"1"A$(NF)10420I2(A$:F(A$)2(6:958:X14:"FIELD ";AFX;" LABEL:";:I2$FM$(F,X):TL0:600:FM$(F,X)I$2("DEFAULT DATA: ";:I2$(FD%(F,X)):TL0:600:((A$))32765FD%(F,X)(I$)2(2(68003)20(TY$(X))((TY$(X))20));FM%(X):J1P("INPUT NUMBER 0 - ";DT;:":";A$o1Z((A$)DTY(A$)0Ģ(37):10320{1_(X(A$)1d("NEW POINTER (0-";NF;:"): ";A$:(A$)0(A$)NFĢ(37):103401n(FMP%(X)(A$):68001( === CHANGE FORMAT ===2(6:956800>0'X(A$)::"NEW LABEL:";A$:A$""XAFAFAF1:10200M0(A$""150i0 (AL$(X)A$:XAFAFAF1t02(102000<( === CHANGE FPTR ===%1F(6:958:"FOR WHICH ARTIFACT TYPE:":X0DT:" ";X;" = ";TY$(X);("..................................",1,X)A$:XMFMFMF1/'10100:/' >> 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.":102200'(A$)AF2";M$(X)::" ";MF1;". NEW FIELD":" ";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$($"WRITE ";A$:AF:X1AF:AL$(X)::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)::D$;"CLOSE ";A$-z150-t' >> MON. DATA ASSIGNI.~':X1MF:" ";X;". NY KEY TO CONTINUE:":A$:A$:D$;"WRITE EAMON.FILES":T14:N%(T)::LR:LM:LA:D$"CLOSE"5KI  ADAPTED FROM 'DUNGEON EDIT' BY JOHN NELSON & DON BROWN ID5 8/21/93 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  pK`"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:(222)10ĺ"CAN'T SAVE FILE - LOCKED.":KHD$(4):DR1:20:D$"OPEN EAMON.FILES":D$;"WRITE EAMON.FILES":T14:N%(T)::LR:LM:LA[LR:"INSERT BOOT DISK IN DRIVE"::"AND HIT A0,NBR USES,5,OPEN?,0,USER #8,0xJz1ST EFF.,1,#EFFECTS,1,OPEN?,0,USER #8,0,ROOM BEYOND,1,KEY#,99,STRENGTH,999,HIDDEN?,0JUSER #5,0,USER #6,0,USER #7,0,USER #8,0JފMONSTER#,0,KEY#,0,GUARD#,0,USER #8,0J芃ARMOR CLASS,0,TYPE,0,USER#7,0,USER#8,0K<:FML$(X,F),FD%(X,F):I#I9QI0,0,1,1,2,3,4,5,6,7,8,9:FORMAT POINTERSzIUSER#5,0,USER#6,0,USER#7,0,USER#8,0IODDS,10,W.TYPE,3,DICE,1,SIDES,4,KEY#,99,STRENGTH,100,OPEN?,0,USER #8,0JHCOUNTER,999,USER #6,0,USER #7,0,USER #8,0,HEAL AMT,15):M1MF:M$(M):^H숃 HD,AG,# MEMBERS,COUR,ROOM,WEIGHT,ARMOR,WEAPON#,# DICE,# SIDES,FRIENDHDM%(MF5):M1MF:DM%(M):H16,16,1,100,0,150,0,0,1,4,3: MONS. DEFAULTSINF:FMP%(DT5),FML$(DT5,4),FD%(DT5,4):X0DT:FMP%(X)::X0NF:F14CX):T1AF:AL$(T):2GˈVALUE,TYPE,WEIGHT,ROOMHG̈T1AF:DA%(T):eGш50,1,5,0:ART. DEFAULTS{GֈD110:DD$(D):G؈ N ,S ,E ,W ,U ,D ,NE,NW,SE,SWGۈT110:DD%(T)::DLG0,0,0,0,0,0,0,0,0,0,1:DEFAULT ROOM #SHMF11:M$(MF5),M%(MFLM62:ALLA42:U$(95)0FˆCX5:T14:T$(T):JFÈROOM,ART.,EFF.,MONS.rFLjDT:TYP$(DTCX):T0DT:TYP$(T):FȈ11,GOLD,TREASURE,WEAPON,MAG WEAPON,CONTAINER,LIGHT,HEALING,READABLE,DOOR/GATE,KEY,BOUND MONSTER,WEARABLEGʈAF4:AL$(AF4CX),AD%(AF4HE$A$"."dE↭(DE$)40ĭ(DE$,41,1)" "DE$(DE$,25):S2640:DE$DE$" "::DE$DE$THE$A$"."E熁X21AF4:AD%(X2)0::AD%(2)1:AD%(3)MD%(6)ERECX200:NOX:DR1:18000:N%(2)N%(2)1E31200:E150E === SETUP DATA FRLLR34:MLЄMD%(X2)::D$:MM1Dӆ6:958:" 1. THE DEAD BODY OF ";A$::" 2. THE DEAD BODY OF THE ";A$::"CHOOSE THE CORRECT PHRASE (1-2):";DֆX$:X$"1"X$"2"34518D׆THE$("THE ",1,(X$"2")4):X$ E؆NA$"DEAD "A$:DE$"YOU SEE THE DEAD BODY OF "TTS,R";NO:(34);NA$;(34):D1AF4:AD%(D):7CyD$:NCz >> WRITE MONSTERCzDR1:20:D$;"WRITE EAMON.MONSTERS,R";NO:(34);NA$;(34):M1MF:M%(M)::D$CzCĆ === GENERATE DEADDΆDR1:20:XALA%:D$;"READ EAMON.MONSTERS,R";M:A$:X216:> READ MONSTEROB]DR1:20:D$"READ EAMON.MONSTERS,R";NO:NA$:D1MF:M%(D):YB^D$:mB|y >> WRITE ROOMByDR2:20:D$;"WRITE EAMON.ROOMS,R";NO:(34);NA$ByD1ND:RD%(D)::LT:D$ByBy >> WRITE ART.-CyDR1:20:D$;"WRITE EAMON.ARTIFAC,A*N20:D$;"READ EAMON.DESC,R";REC:DE$:D$2A4NEAR >> READ ROOMARDR2:20:D$;"READ EAMON.ROOMS,R";NO:NA$:D1ND:RD%(D):ARLTA&RD$:AU >> READ ART.AUDR1:20:D$;"READ EAMON.ARTIFACTS,R";NO:NA$:X18:AD%(X):AVD$:B] >%(D)M%(D):@;150,@; >> CHG DEF. ART.@;:"INPUT NEW DEFAULT VALUES FOR ALL FIELDS.":D1AF:AD%(D)DA%(D)::12050:D1AF:DA%(D)AD%(D):@;150@PF>> WRITE DESC@ZF20:D$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):D$:@ N>> READ DESC?Z7?: >> CHG DEF. ROOMa?;:"INPUT DEFAULT VALUES DESIRED.":D1ND:RD%(D)DD%(D)::11055?;D1ND:DD%(D)RD%(D)::DLLT?;150?`; >> CHG DEF. MONST. @j;:"ENTER NEW DEFAULT VALUES FOR EACH FIELD.":D1MF:M%(D)DM%(D)::14040:D1MF:DM FOR RANDOM FRIENDLINESS,":" ENTER PERCENT LIKELY FRIENDLY + 100">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>P7ONSTER # ";NO;" ";::NA$::*=6M1MFy=7M1M6ĺ" IF GROUP MONSTER ENTER VALUE FOR JUST ONE MEMBER OF GROUP"=7M3ĺ" SINGLE MONSTERS - ENTER 1":" GROUP MONSTERS - ENTER # OF MEMBERS"C>(7M11ĺ" 1=ENEMY 2=NEUTRAL 3=FRIEND":"