8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L ::"THIS EAG UTILITY DISK HAS BEEN CONVERTEDFOR USE WITH PRODOS. A FEW DOS 3.3 PROGRAMS WERE DELETED AND A FEW PRODOS ONES WERE ADDED, AND THE PROMPTINGS AND WARNINGS WERE SLIGHTLY IMPROVED."C :"HOWEVER, THESE ARE STILL CRUDE PROGRAMS BY M0! |,UTILITY.LIST>!>UTILITY.LIST>"!>,LIST.PRINTER >#!!>#/START.ADVENTURE( /CHAR.FILE.MAINT=6 >#CHAR.REBIRTH 'COMBINE.ROOM.FI ;REV.DATE Q /IIPLUS.SHRINKIT,! */IIPLUS.UNSHRINK8% /DUNGEON.LIST.6Gx *TEST.BENCH  .ADVANCED.BENCH# *DESC.PURGE -!ӴROOM.LEN.LISTER 9)FRESH.SAMx W./ADD.LIGHT.TO.RMB $*DUNGEONAIDE % .LIST.EAMON.RAMM ( -ROOM.ANALYSISQx 6 -QK.ROOM.PRINTV  .FLEX.DNGN.LISTZ   .DUNGEON.LIST.Zd ROOM.NAME.CONV  ARTIFACTS.CONV .ARTIFACT.MAINT */DUMP.DUMMY.ARTS! -)DESC.EDIT'e) !.UNIV.CHK.FILES= \Q: !PEAMON.UTILITIES' "'STARTUP\ % REV.30JAN95 ? +CHANGE.NAME| $DESC.LISTER ,VERSION.TEST  ROOMS.CONVERT? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RODERN STANDARDS, WITH LITTLE OR NO ERROR AND PATHNAME HANDLING." :"TO USE MOST OF THESE PROGRAMS YOU WILL HAVE TO LOAD THE DESIRED UTILITY THEN SET THE PREFIX BEFORE ACUTALLY RUNNING THE UTILITY. A FEW ASK FOR PREFIXES BUTTHIS IS THE EXCEPTION. E" ~D$"WRITE EAMON.NAME"( NAM$: ND$""ĺND$J V$""ĺV$Y D$"CLOSE"u x"PROCESSING COMPLETED"{  OPEN EAMON.NAME"1 PD$"READ EAMON.NAME":ADV$; U100D ZND$L _V$[ dD$"CLOSE" n216,0::6:" OLD ADVENTURE NAME IS ...": x" ";::ADVNAM$:: ::"NEW NAME:";NAM$ 1500 D$"UNLOCK EAMON.NAME" LD$"OPEN EAMON.NAM  RENAME EAMON ADVENTURE: BY JOHN NELSONn REWORKED FOR PRODOS BY TOM ZUCHOWSKI 5/18/90THIS PROGRAM WILL RENAME ANY ADVENTURE EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  D$(4) FD$" 5Z"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"t(10:"UTILITIES DISK"2::"LAST UPDATE: 1/30/95"SS YOU HAVE VERY OLD COPIES OF THE FIRST 4 EAMONS THAT WON'T WORK WITH 'DUNGEON.LIST.6G'" CHECK.FILES QK.ROOM.PRINT CHAR.FILE.MAINT TEST.BENCH FRESH.SAM CHAR.REBIRTH"[<:"THE PROGRAM 'DUNGEON.LIST.Z' IS FOR VERSION 1-3 EAMONS. AS ALL EAMONS HAVE BEEN UPGRADED TO VERSION 4, DON'T USE THIS UNLEVERSION.TEST' FIRST. RESULTS WITH VERSION 7 EAMONS WILL NOT BE GOOD."v -::"(HIT ANY KEY TO CONTINUE)";:A$: 2:"MOST OF THESE PROGRAMS ARE GOFASTERS FOREAMON PROGRAMMERS. EAMON USERS MIGHT FIND THESE PROGRAMS USEFUL:"x 7" VERSION.TEST RUN THE PROGRAM ON THE ADVENTURE DISK NAMED 'MAKE.ARTS.MONS' TO GENERATE THEM FROM THE 'FAST.START' FILE."J (:"MOST OF THESE PROGRAMS WILL WORK *ONLY* WITH EAMON VERSIONS 4 THROUGH 6 (THE VAST MAJORITY). IF YOU ARE NOT SURE, RUN THE PROGRAM '"/ ::"(HIT ANY KEY TO CONTINUE)";:A$: #:"ALSO, MANY PROGRAMS EXPECT TO FIND ALL OF THE DATA FILES: EAMON.ROOMS EAMON.ROOM.NAME EAMON.ARTIFACTS EAMON.MONSTERS"p %:"IF ALL OF THESE FILES ARE NOT PRESENT,  D$(4)+D$"OPEN EAMON.DESC,L256"UI136: INSERT DESIRED NUMBERS HEREq(D$"READ EAMON.DESC,R"Iy2A$<D$:I:A$::FD$"CLOSE"  D$(4)MD$;"OPEN EAMON.ROOM.NAME,L64":D$;"OPEN NEW.ROOM.NAME,L32"YI187(D$;"READ EAMON.ROOM.NAME,R";I:A$2D$;"WRITE NEW.ROOM.NAME,R";I:A$<FD$;"CLOSE"  D$(4)ED$;"OPEN EAMON.ROOMS,L64":D$;"OPEN NEW.ROOMS,L20"QI187(D$;"READ EAMON.ROOMS,R";I:J16:D%(J):2D$;"WRITE NEW.ROOMS,R";I:J16:D%(J):<FD$;"CLOSE"200250!.'LN160DV4:10008'LN150ĺ:"THIS DUNGEON IS NOT PROPERLY FORMATTED."::" (PRESS ANY KEY) ... ";:A$::100*:"UNEXPECTED ERROR... LINE ";LN:D$"CLOSE":N 4 - MOST OTHERS 7P# L64,L64,L256,L128,L128]U# VERSION 5 - DDD 5.0 DISKS Z# L64,L64,L256,L128,L128, _# VERSION 6.0 DDD VERSION 6.0 DISKS d# L64,L64,L256,L128,L128' === ERROR ==='LN(218)(219)256 $'LNHS === )# 6I -# VERSION 1 - BEGINNERS CAVE TREASURE ISLAND c 2# L64,L32,L256,"","" 7# VERSION 2 - LAIR OF MINOTAUR <# L64,L64,L256,"","" A# VERSION 3 - CAVE OF THE MIND F# L64,L64,L256,"",""K# VERSIO1ĭAD$"THE BEGINNERS CAVE"AD$"CAVES OF TREASURE ISLAND"ĺ:"OOPS! - I MISSED!":D$"CLOSE": DV4ĺ"IT'S NAME IS ";AD$: $DV2ĭAD$"THE CAVE OF THE MIND"AD$"LAIR OF THE MINOTAUR"ĺ:"OOPS! - I MISSED!":D$"CLOSE": (# === FILE LENGT);LN$(DV) 600F &X17:D$;"READ EAMON.ROOM.NAME,R";X:RN$:U 0DV1:1000 XDVDV1:DV4ĺ:"I CAN'T FIGURE THIS OUT.":D$"CLOSE": b510  === I GOT IT! === D$"CLOSE"::"THIS DUNGEON IS A VERSION ";DV;".0":" DUNGEON.":c DV15:D$;"READ EAMON.ARTIFACTS";(",R",1,(LA$(DV)));((X),1,(LA$(DV))):X1$,X2$,X3$,X4$f r:500 DVDV1:DV4ĺ:"I CAN'T FIGURE THIS ONE OUT.":D$"CLOSE": 320 DV41000 D$;"CLOSE" D$;"OPEN EAMON.ROOM.NAME";(",",1,(LN$(DV))(X),LA$(X),LM$(X):! x10000[ D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":AD$:DV1i ND$:DV5z D:D0DVD D$;"CLOSE" DV41000 , === CHECK ART/MON === @390 ^D$;"OPEN EAMON.ARTIFACTS";(",",1,(LA$(DV)));LA$(DV)[ hX EAMON DUNGEON1 VERSION ANALYSISE PROGRAMKc BY JOHN NELSONiPRODOS CONVERSION 5/18/90 TJZ EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 2D$(4) <NV:X1NV:LR$(X),LN$(X),LD$  D$(4)ND$;"OPEN EAMON.ARTIFACTS,L128":D$;"OPEN NEW.ARTIFACTS,L64"ZI192(D$;"READ EAMON.ARTIFACTS,R"I:A$:J14:A%(J)::A%(2)2A%(2)3āJ58:A%(J):2D$;"WRITE NEW.ARTIFACTS,R"I:A$:J18:A%(J):<IAD$;"CLOSE" FD$"CLOSE" UP0100% /// CANCELUPUP:"UPDATE IS ";("CANCELLEDIN EFFECT",UP91,9)::"====== PRESS ANY KEY TO CONTINUE ======";:A$::100p /// QUITzUPĺ:"UPDATE HAS NOT BEEN APPLIED."::"PRESS ANY KEY TO CONTINUE";:A$::100 AD%(I,A2)AD%(IANI1,A2):A2, XX1:Ig AIA1NIIA:AN$(A)"DUMMY":A218:AD%(A,A2)0:A2,Ay NANANI:100 /// APPLYA1NA:D$"WRITE EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2,AD$"WRITE EAMON.DESC,R0":NR:NA:NE:NM;" ARTIFACTS AFTER ";IA;"."@ 6:"IS THIS CORRECT? (Y/N) ";^ A$:A$"Y"A$"N"3045r A$:A$"N"100 UP1:X0:INANIIA11:D$"READ EAMON.DESC,R";INI100:RD$:D$"WRITE EAMON.DESC,R";I100:(34);RD$;(34) AN$(I)AN$(NAX):A218:D):A218:AD%(DND,A2)AD%(D,A2):A27D:NANAND@ 100N /// ADD 6:958::"HOW MANY TO INSERT?";NI$:(NI$)1(NI$)NA1003010 8:"AFTER WHICH ARTIFACT:";IA$:(IA$)1(IA$)NART3020 :NI((NI$)):IA((IA$)):"INSERT ";NID1$)::"DELETE ARTIFACTS ";D1;" THRU ";D1ND1T 6:"IS THIS CORRECT? (Y/N) ";r A$:A$"Y"A$"N"2045 A$:A$"N"100 UP1:DD1NDNA:D$"READ EAMON.DESC,R";D100:RD$:D$"WRITE EAMON.DESC,R";DND100:(34);RD$;(34)' AN$(DND)AN$(A$::LP0: Q B:"====== PRESS ANY KEY TO CONTINUE ======";:A$::100b  /// DELETE 6:958:"HOW MANY TO DELETE?";ND$:(ND$)1(ND$)NART2010 8:958:"FIRST ARTIFACT TO DELETE:";D1$:(D1$)1(D1$)NART20201 ND(ND$):D1(" 5. CANCEL CHANGES":" 6. QUIT"F x"INPUT YOUR CHOICE (1-6):";c A$:(A$)1(A$)6130 A$:(A$)1000,2000,3000,4000,5000,6000  /// LIST :LP0:A1NA:" ";A;". ";AN$(A):LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2):5 F d:17);"EAMON":9);"ARTIFACT MAINTENANCE":12);"BY JOHN NELSON":10:"SELECT ACTION:" i" 1. LIST ARTIFACTS":" 2. DELETE ARTIFACTS":" 3. INSERT ARTIFACTS":" 4. APPLY CHANGES TO FILE"% nOT COMPATIBLE WITHTHIS PROGRAM.":D$"CLOSE":E 216,0:D$"CLOSE" D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM (AN$(100),AD%(100,8) 2D$"OPEN EAMON.ARTIFACTS,L128"/ <A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD ARTIFACT MAINTENANCE3 FOR EAMONL BY JOHN NELSONRXf 2-14-84PRODOS CONVERSION 5/18/90 TJZ D$(4):: 25D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":A$:A$:V/ V6ĺ::"ADVENTURE VERSION IS N EAMON 9 REMOVE DUMMY ARTIFACTS X THIS PROGRAM WILL REMOVEw UNNEEDED ARTIFACTS FROM  EAMON FILES. 2-15-84PRODOS CONVERSION 5/18/90 TJZ D$(4): 20b D$"OPEN EAMON.NAME":D$"READ EAMON.&()*+,-./0123456789:;16368,0:A$:2 2 ROOM,ARTIFACT,EFFECT,MONSTER; 765 <DK$"OPEN EAMON.NAME":DK$"READ EAMON.NAME":A$:A$:V:V6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THIS PROGRAM.":DK$"CLOSE": A216,0:DK$"CLOSE" FDK$;"OPEN EAMON.DESC,L256"U P# EDIT DESCRIPTION PROGRAM< BY JOHN NELSONBT REV.8/22/93Z| DK$(4)::X14:TYP$(X)::5:" EDITING EAMON DESCRIPTION FILE"::" INSERT DISKETTE WITH ADVENTURE" :" PRESS ANY KEY TO CONTINUE...";:= PRESS ANY KEY TO CONTINUE ======";:A$:::LP0n::"====== PRESS ANY KEY TO CONTINUE ======";:A$::v40 === DEL NONE?DL0ė:"PROGRAM HAS CALCULATED NO DELETIONS.":"WHY BOTHER?":"AN OVERLAP WOULD OCCUR. CANNOT CONTINUE.":AMON.DESC,R";RDL100:(34);DE$;(34)/RjD$"WRITE EAMON.DESC,R0":NR:RMNM:NE:NM:D$"CLOSE"p === VIEW ===:LP0:A1NA2:2((A)));A;"> ";(A$(A),12);:ANARĺ20((A1)));A1;"> ";(A$(A1),12)3LPLP1:LP22ĺ"=====0&iD$"OPEN EAMON.ARTIFACTS,L128"8nRRMDL1NAD$"READ EAMON.ARTIFACTS,R";R:AN$:A1,A2,A3,A4:A21ĄA5,A6,A7,A8D$"WRITE EAMON.ARTIFACTS,R";RDL:AN$:A1:A2:A3:A4:A22ĺA5:A6:A7:A8(D$"READ EAMON.DESC,R";R100:DE$:D$"WRITE E PRESS 'C' ";/ XBD$:BD$"N"BD$"C"88F YBD$:BD$"N"NM0 Z:RM;" ARTIFACTS TO REMAIN ON FILE - PLUS":"BODIES FOR ";NM;" MONSTERS = ";RMNM:"IS THIS CORRECT? (Y/N):"; _A$:A$"Y"A$"N"95 bDLNARMNM:DL12000dA$:A$"N"7"V"A$"S"A$"C"65. DA$:A$"V"1000< EA$"S"Āp F:"NUMBER OF ARTIFACTS TO REMAIN:";A$:RM(A$) PRM(RM)RMNARM10ĺ"THAT CANNOT BE ACCEPTED.":70 U:"IF THERE ARE NO MONSTER BODIES ON THE ARTIFACT FILE, PRESS 'N'; OTHERWISE :"BE SURE THE EAMON FILES ARE SET UP":"CORRECTLY BEFORE RUNNING THIS PROGRAM." 4:"YOU MAY VIEW THE NAMES OF ALL ARTIFACTS BY PRESSING 'V' AT THE NEXT INPUT.": <"PRESS 'S' TO STOP; 'V' TO VIEW ARTIFACTS":"OR 'C' TO CONTINUE --> "; AA$:A$AMON.ARTIFACTS,R";A:A$(A)::D$;"CLOSE EAMON.ARTIFACTS" (:"YOU WILL BE REQUESTED TO INPUT THE ":"NUMBER OF ARTIFACTS THAT YOU WANT TO ":"KEEP. THIS WILL BE THE NUMBER OF "R 2"ARTIFACTS TO REMAIN ON THE FILE. (DO ":"NOT COUNT MONSTER BODIES.)": "#$%NAME":A$:A$:V:V6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THIS PROGRAM.":D$"CLOSE":x 216,0:D$"CLOSE" D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:216,0: A$(NA):D$;"OPEN EAMON.ARTIFACTS,L128":A1NA:D$;"READ EDK$;"READ EAMON.DESC,R0":X14:N%(X)::NRN%(1):NAN%(2):NEN%(3):NMN%(4):DK$m d --- MAIN MENU --- n:9);"EAMON DESCRIPTION EDIT":12);"BY JOHN NELSON" x8:4:"SELECT OPTION ...": " 1. INITIALIZE BEGINNER'S CAVE"::" 2. ADD A DEF RISES OUT OF SIGHT. BURNING TORCHES LINETHE WALLS, MAKING IT EASY TO SEE.TUNNELSLEAD NORTH AND SOUTH,AND THERE ARE SMALLSIDE CHAMBERS TO BOTH THE EAST AND WEST."Du" YOU ARE IN A SMALL SIDE CHAMBER TO THEEAST OF THE LARGE CHAMBER. IT IS VERY COLDING TORCH LIGHT, BUT YOU CANNOT MAKE OUT ANY DETAILS."u" YOU ARE IN A SMALL SIDE CHAMBER TO THEWEST OF THE LARGE CHAMBER. IT IS VERY COLD HERE, AND THE ONLY LIGHT COMES IN DIMLY FROM THE LARGE CHAMBER."u" YOU ARE IN A HUGE CHAMBER, THE ROOSOUTH, OVER THE TUNNEL ENTRANCE, IS A SIGN SAYING 'BEGINNERS ONLY.' TO THE NORTH IS THE ROAD BACK TO TOWN.":u" YOU ARE IN A DARK NORTH/SOUTH TUNNEL. TO THE NORTH YOU SEE THE BRIGHT LIGHT STREAMING IN FROM THE OUTSIDE. TO THE SOUTH YOU SEE FLICKER010+NO(A$):(PF >> WRITE DESCbZFDK$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):DK$:u N >> READ DESC*NDK$;"READ EAMON.DESC,R";REC:DE$:DK$4N0u --- INITIAL DATA ---:u 0,0,0,0nu" YOU ARE AT THE ENTRANCE OF A CAVE. TO THE NA:NE:NM:DK$;"CLOSE":3' --- GET TYPE ---f'8:958:"INPUT TYPE: R/A/E/M [_]";(8);(8);$'A$:X14:("RAEM",X,1)A$Ă:10020.'A$:STX:X4:8'* --- GET NUMBER ---+8:958:"INPUT NUMBER: ";A$ +(A$)N%(ST)(A$)1110000:4500:4900M:TYP$(ST);" ";NO:::LW1(DE$)40:(DE$,LW,40):24::7);"PRESS ANY KEY TO CONTINUE";7);:16368,0:A$::A$(27)ġ:4900$DK$;"PR#0":100 --- QUIT ---UPĀDK$;"WRITE EAMON.DESC,R0":NR:DESCRIPTION"::"INPUT YOUR CHOICE 1-2 OR [P] ";QA$:A$""PRTPRT:4020iA$"1"A$"2"4020A$:PRTĺDK$;"PR#1"(A$)4100,4200NO1N%(ST):REC100(ST1)NO:200004500::4900h11000:|ST3100,3200,3300,34002--& RECNO:) --- ART. EDIT ---: RECNO100:R --- EFF. ADD ---c RECNO200:{H --- MON. EDT ---R RECNO300: --- VIEW A DESC ---1000028:958:"SELECT VIEW OPTIONS:"::" 1. ALL DESCRIPTIONS"::" 2. SINGLE 100: --- EFF. ADD ---8 NENE1:RECNE200:O` --- MON. ADD ---hj NMNM1:RECNM300: --- EDIT A DESC --- UP1:10000:11000 ST3100,3200,3300,3400 20000 I2$DE$:600:DE$I$ 18000 100 --- ROOM EDIT -E$:18000:NM01055@R1NM:REC300R:DE$:18000:FOB100g--- ADD A DESC ---UP1:10000:ST2100,2200,2300,2400600:DE$I2$:18000:1004 --- ROOM ADD --->NRNR1:RECNR: --- ART. ADD ---NANA1:RECNAI2$:A$;:600 A$(8)600?A$(27)ĺI2$:I$I$I2$:H615f --- INIT BEGIN CAVE ---|NR,NA,NE,NM:UP1NR01025REC1NR:DE$:18000:NA01035R1NA:REC100R:DE$:18000: NE01045 R1NE:REC200R:DA1(I$):(8);::I2$I$I2$:I$"":615I A$(4)I2$(I2$,2):610g A$(9)I2$" "I2$:610 A$(21)(I2$)A$(I2$,1):625 A$(21)A$" ":625 A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615A$(8)(I$)I2$I$""2 bI2$;:958:(I2$)āA1(I2$):(8);:N gA$:A$(13)Č958:: l(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ĺ(7);:615 qA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615 vA$(5)ĺI2$;:I$I$I2$:I2$"":615* {A$(2)(I$)āSCRIPTION"Y :" 3. EDIT A DESCRIPTION"::" 4. VIEW A DESCRIPTION"::" 5. QUIT" :"INPUT NUMBER (1-5) [_]";(8);(8); A$:A$"1"A$"5"170 A$:(A$)1000,2000,3000,4000,5000 X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$ ]I$ HERE, AND THE ONLY LIGHT COMES IN DIMLY FROM THE LARGE CHAMBER."u" YOU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE EAST SIDE OF THE ROOM."u" YOU ARE AT THE NORTH END OF A LONG HALL. A TUNNEL GOES NORTH. TO THE EAST AND WEST ARE DOORS THAT ARE BOLTED SHUT (LOCKING SOMETHING IN?) IN THE DIM LIGHTYOU CAN SEE THAT THE HALL GOES SOUTH,BUTYOU CANNOT MAKE OUT ANY DETAIu" YOU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE WEST SIDE OF THE ROOM."u" YOU ARE IN A SMALL, STARK CELL WITH ABODY OF HEINRICH LIES HERE."g(Vw"THE DEAD BODY OF THE CHEST-MIMIC IS SPRAWLED ON THE GROUND."(`w"THE PRIEST LIES DEAD HERE, STILL WITH A LOOK OF MANIACAL HATRED ON HIS FACE."(jw"THE DEAD BODY OF THE GIRL CYNTHIA LIES HERE." )tw"THE DEA''w"THERE IS AN EMPTY BOTTLE HERE."N'w"THERE IS A DEAD BLACK RAT HERE."u'$w"THERE IS A DEAD BROWN RAT HERE."'.w"THERE IS A DEAD TAN RAT HERE."'8w"THE HERMIT'S BODY LIES DEAD HERE."'Bw"THE SHAGGY CORPSE OF A GORILLA IS HERE."(Lw"THE DEAD SERVED."&v"THERE IS A BEAUTIFUL SWORD HERE WITH INTRICATE CARVING ON THE HANDLE. WRITTEN ON THE BLADE IS THE NAME, 'TROLLSFIRE'."&v"THERE IS A LARGE PILE OF JEWELS HERE!"'w"THERE IS A LARGE CHEST IN THE CENTER OF THE ROOM." 50 GOLD PIECES HERE!"D%v"THERE IS AN UNMARKED GOLD RING HERE."{%v"THERE IS A HIGH QUALITY MARCOS MACE HERE."%v"THERE ARE SEVERAL RARE SPICES HERE." &v"THERE IS AN OLD BOOK HERE. IT GLOWS IN THE DARKNESS AND IS REMARKABLY WELL PRETHE SEA, IS A BROKEN OLD BOAT."O$v"THERE IS A PILE OF DIAMONDS HERE!"{$v"THERE IS A STANDARD MARCOS AXE HERE."$v"THERE IS A BOTTLE HERE WITH A STRANGE POTION INSIDE!"$v"THERE IS A POOR QUALITY MARCOS SWORD HERE."%v"THERE ARENNEL.YOU SEELIGHT TO THE EAST, AND FEEL A COOL WIND COMING FROM THERE. IN THE WIND YOU SMELLA HINT OF SALT."&$v" YOU ARE IN A SMALL BAY. HIGH WALLS SURROUND YOU SO THAT THE ONLY EXIT IS BACK IN THE TUNNEL TO THE WEST. TO THE EAST, ON THE BANK OF THE BOTTOM OF A FLIGHT OF A LIGHT CAN BE SEEN UP AT THE TOP OF THESTAIRS, AND A VERY DIM LIGHT CAN BE SEENDOWN THE TUNNEL TO THE EAST.""zv" YOU ARE IN AN EAST/WEST TUNNEL. DIM LIGHT CAN BE SEEN IN BOTH DIRECTIONS."n#v" YOU ARE IN AN EAST/WEST TU HINGES."c!\v" YOU ARE IN A DARK EAST/WEST TUNNEL. YOU CAN SEE TORCHLIGHT BOTH DIRECTIONS."!fv" YOU ARE AT THE TOP OF A FLIGHT OF STAIRS. A TORCH IS ON THE WALL. IT LOOKS VERY DARK DOWN THERE. A TUNNEL HEADS WEST.""pv" YOU ARE AT ALSO LIES ON THE GROUND. THE EXIT IS TO THE EAST." !Rv" YOU ARE IN A T-INTERSECTION.A BRIGHTLYBURNING TORCH IS BOLTED TO THE SOUTH WALL. DARK TUNNELS LEAD NORTH AND EAST. TO THE WEST IS A PLACE WHERE ONCE A DOORSTOOD, BUT IT HAS BEEN TORN FROM ITS VERED WITH GOLD PAINT AND THE OTHER STAINED WITH BLOOD. THE ONLY EXIT LEADS TO THE WEST."5 Hv" YOU ARE IN WHAT WAS ONCE OBVIOUSLY A LIBRARY. MOST OF THE BOOKS HAVE BEEN DESTROYED, WITH THE SCRAPS LYING ON THE GROUND. A DOOR, TORN FROM ITS HINGES, HE EAST."4v" YOU ARE IN AN EAST/WEST PASSAGE. YOU CAN VERY CLEARLY HEAR RELIGIOUS MUSIC BEING PLAYED, AND CAN SMELL INCENSE FROMTHE EAST."\>v" YOU ARE IN THE TEMPLE. PICTURES OF GREAT DEEDS COVER THE WALLS. THERE ARE TWO ALTARS HERE, ONE COELL WITH A DOOR ON THE WEST SIDE." v" YOU ARE IN A TUNNEL GOING NORTH AND SOUTH. THE SIDES OF THE TUNNEL ARE VERYBROKEN AND ROUGH. YOU SEE TORCHLIGHT TO THE SOUTH." *v" YOU ARE IN A SECRET EAST/WEST PASSAGE.YOU HEAR A FAINT MELODY COMING FROM TALL, STARK CELL WITH A DOOR ON THE EAST SIDE." v" YOU ARE AT THE SOUTH END OF THE LONG HALL. TO YOUR GREAT SHOCK ARE TWO DOORS ON THE EAST AND WEST.THE HALL GOES NORTHFROM HERE, AND A BROKEN TUNNEL GOES SOUTH."$v" YOU ARE IN A SMALL, STARK C DOOR ON THE EAST SIDE."u" YOU'RE IN THE MIDDLE OF THE LONG HALL.DOORS ARE BOLTED ON BOTH SIDES OF YOU (EAST AND WEST). THE HALL EXTENDS NORTHAND SOUTH."u" YOU ARE IN A SMALL, STARK CELL WITH A DOOR ON THE WEST SIDE."0v" YOU ARE IN A SMD BODY OF THE PIRATE IS HERE.")~w"AS YOU APPROACH THE CHEST, IT SUDDENLY BECOMES ALIVE AND TWO TENTACLES COME OUTOF THE SIDE, HOLDING YOU FAST. ANOTHER TENTACLE RISES FROM THE TOP AND ATTEMPTSTO HURT YOU."M*w"AS THE PIRATE MUTTERS A WORD THAT YOU CAN'T MAKE OUT, BRIGHT GREEN FLAME SURROUNDS THE BLADE OF HIS SWORD."*w"AS THE PIRATE CHOKES AND DIES, THE FLAMEON HIS SWORD DIES ALSO."*w"AS YOU SAY THE SWORD'S NAME (TROLLFIRE),BRIGHT GREEN FLAME APPEARS AROUND THE SWORD'S BLADE."+w"SV:"DIRECTIONS: ";ND:"ROOM LIGHTING: ";LT$N s:22:"EAMON.DESC"} x"NO. OF RECORDS:";:22:"RECORD OFFSETS:" z" ROOMS: ";NR;:25:"ROOMS: ";RO |" ARTIFACTS: ";NA;:25:"ARTIFACTS: ";AO ~" EFFECTS: ";NE;:25:MON.DESC,R0":NR,NA,NE,NM:D7ĄLR,LM,LA3 P2000A RDV590J T88 VD$"OPEN"RF$",L"LR:D$"READ"RF$",R1":R1ND1:R%::LT1:LT$"YES":90 XLT0:LT$"NO" Z216,0:D$"CLOSE" cPRINT INFO SCREEN6 dD$:::DU$:::"MAIN.PGM VERSION: ";D (60& -DV:LT1:LT$"YES":608 2DV4:LT$"NO" <216,0:D$"CLOSE":RF$"EAMON.ROOMS":DL256:RO0:AO100:EO200:MO300:LR64:LN64:LA128:LM128:D7(DV7):D7DL242:RO0:AO200:EO400:MO600 ANDND6) FD$"OPEN EAMON.DESC,L"DL:D$"READ EA<>?@D PRESS ANY KEY TO CONTINUE":23:A$:9 D$(4):DV5B 50u #D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DU$ %DU$"SANCTUARY"ĺD$"CLOSE"::"'SANCTUARY' HAS A UNIQUE RECORD STRUCTURE AND CANNOT BE VERIFIED BY THIS PROGRAM.": &ND- EAMON UNIVERSAL CHECK FILES PROGRAM JPRODOS VERSION 10/16/91 EAMON ADVENTURERS GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  :5:" UNIVERSAL EAMON FILE CHECK PROGRAM"( 10:"INSERT ADVENTURE TO BE TESTED FOR VALID TEXT FILES ANR:20000M1DK$;"WRITE TEMP.TEXT":CNT;"DATA";(34);DE$;(34):CNTCNT10d1::DK$;"CLOSE": IS WEILDING A VERY FANCILY ENGRAVED SWORD."K0@ === FAKE INIT ===0JDK$(4):DK$DK$:DK$"OPEN EAMON.DESC,L256":CNT30100:DK$;"READ EAMON.DESC,R0":X14:N%(X)::DK$0ODK$;"OPEN TEMP.TEXT":DK$0TTY140^R1N%(TY) 1REC100(TY1)A MACE."/ x"YOU SEE A BEAUTIFUL GIRL IN A FLOWING WHITE DRESS. YOU RECOGNIZE HER AS CYNTHIA, DUKE LUXOM'S NOT-TOO-BRIGHT DAUGHTER."30x"YOU SEE A MAN WITH A BEARD AND A BRASS RING IN HIS EAR. HE IS WEARING CLOTHES MADE OUT OF SILK ANDINRICH!'".w"A CHEST-SHAPED MONSTER IS IN THE ROOM, HOLDING YOU WITH TWO TENTICLES AND ATTEMPTING TO DISASSEMBLE YOU WITH A THIRD." /x"THERE IS A HUGE MAN IN RELIGOUS GARB AND AN INSANE LOOK ON HIS FACE. IN HIS RIGHT HAND HE CARRIES ATH IN FORTY YEARS) IN THE ROOM."v-w"THERE IS A HUGE, HAIRY, STRONG AND ANGRY GORILLA IN THE ROOM WITH YOU!" .w"A HUMAN WARRIOR STANDS BEFORE YOU, ARMED A LONG SWORD AND CARRYING A SHIELD. ON HIS SHIELD IS A STICKER WHICH SAYS, 'HI! I'M HEGE BLACK RAT WITH SHARP WHITE TEETH HERE!"t,w"THERE IS A HUGE BROWN RAT WITH SHARP WHITE TEETH HERE!",w"THERE IS A HUGE TAN RAT WITH SHARP WHITE TEETH HERE!"'-w"THERE IS A GRIZZLED OLD HERMIT (WHO SMELLS AS IF HE HASN'T TAKEN A BINCE YOU WERE WEARING THE SWORD WHEN ITFLAMED ON, YOU TAKE SOME BURN DAMAGE UNTIL THE SWORD (HEARING YOUR CRIES OF PAIN?) EXTINGUISHES ITS FLAME."+w"AS YOU SAY THE SWORD'S NAME, THE BRIGHT GREEN FLAME DISAPPEARS FROM THE SWORD."1,w"THERE IS A HU"EFFECTS: ";EOE " MONSTERS ";NM;:25:"MONSTERS: ";MO :"RECORD LENGTHS:":" EAMON.DESC: ";DL:D7ĺ" EAMON.ROOM.NAMES: ";LN$ " "RF$":";:22:LR$:" EAMON.ARTIFACTS: ";LA$:" EAMON.MONSTERS ";LM$622:16338,0:7:"HIT ANY KEY TO CONTINUE:";:A$:A$:A$(3)ĀMVERIFY EAMON.DESCpD$::"VERIFYING: ";::DU$:{1000D$"OPEN EAMON.DESC,L"DL:::"EAMON.DESC: ROOM ":X1NR:4:22:X:D$"READ EAMON.DESC,R";XRO:DE$:76:13:"ARTIFACT "1210 A$4 (A$)1000,2000,3000,4000,5000K  /// LIST MONSTERb M112:MS%(M)0: 10:958:"SELECT DATA FIELD TO LIST:" M112:7((M)));M;". ";ML$(M): 23:1:" INPUT 1-12 OR ";A$:A$""A$"13" M(A$):";NA;" EFF:";NE;" MONST:";NMP 210:958:"SELECT ONE OF THE FOLLOWING:": <" 1. LIST MONSTERS"::" 2. LIST ARTIFACTS"::" 3. LIST ROOMS"::" 4. TOGGLE PRINTER": F" 5. QUIT" "INPUT YOUR CHOICE (1-5):"; A$:(A$)5(A$)S PROGRAM.":D$"CLOSE":0 216,0:D$"CLOSE"s D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM~ #216,0 (D$::11);"EAMON DUNGEON AID":12);"BY JOHN NELSON":6:15:"PRINT ";("OFFON",PRT31,3PRT):8 -"ROOMS:";NR;" ARTIF.:DFGHIJKP$(8):DN$(21)( MD%(12),MS%(12)2 8000 :6:" INSERT EAMON ADVENTURE DISKETTE"::10);"AND PRESS ANY KEY ...";:A$: 26 D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":A$:A$:V:V6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THI DUNGEON AID PROGRAM7 BY JOHN NELSON> ] THIS PROGRAM LISTS ANY{ DATA FIELDS FOR ROOMS, ARTIFACTS OR MONSTERSPRODOS CONVERSION 5/18/90 TJZ 2-19-84 D$(4)::UP$(10):DN$(11):(637)255UITE EAMON.ROOMS,R";R:D16:RD%(D):2 "1": D$;"CLOSE"::6:"DO YOU WANT TO CONVERT ANOTHER":" ADVENTURE? (Y/N) [_]";(8);(8); A$:A$"Y"A$"N"210 A$:A$"N"Ā 100 AC A LIGHT FIELD TO THE EAMON.ROOMS FILE." xD$;"OPEN EAMON.ROOMS,L64":D$;"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR:D$;"CLOSE EAMON.DESC" 13:12:"ROOM #" R1NR:D$;"READ EAMON.ROOMS,R";R:D16:RD%(D): 20:12:R' D$;"WR EAMON/ ADD LIGHT TO ROOMSF BY JOHN NELSONLX D$(4)d:6:"INSERT EAMON ADVENTURE DISKETTE AND "::"PRESS ANY KEY TO CONTINUE ...";:A$:+ n:11);"ADD LIGHT TO ROOMS":12);"BY JOHN NELSON":6:"THIS PROGRAM ADDS:X1NA:6:22:X:D$"READ EAMON.DESC,R";XAO:DE$:M8:15:"EFFECT "mNE0Ģ8:22:"(NONE)":270X1NE:8:22:X:D$"READ EAMON.DESC,R";XEO:DE$:10:14:"MONSTER ":X1NM:10:22:X:D$"READ EAMON.DESC,R";XMO:DE$:D$"CLOSE(A$)1(A$)13Ģ(37):1030M M13Ģ10M:10::ML$(M)::MS%(M)1:1030d B /// LIST MONSTERw GPRTĺD$"PR#1" LFS0:X112:FSFSMS%(X)::D$"OPEN EAMON.MONSTERS,L128"VLP0::M1NM:D$"READ EAMON.MONSTERS,R";M:MN$:M2112:MD%(M2):M2:D$`M;". ";MN$:LPLP1gjM2112:MS%(M2)ĺ" ";ML$(M2);":";20((MD%(M2))));MD%(M2):LPLP1tM2::LPLP1:LPFS22PRTĺ:"====== PRESS ANY KEY TO CONTINUE ======";:A$::LP0:vyD$"CLOSE"|D$"PR#0""~:"====== PRESS ANY KEnture:";DUNGN$::"LISTING ";A$;"S"::34,2:LN4{ A1N:DK$;"READ ";F$;",R";A:A2$:DK$:A$;"#";A;": ";:A2$:LNLN1 (16384)128ĺ:"(HIT ANY KEY TO CONTINUE) ";:A$:A$::(37)1 LN58PRTĺ(12);A$;" - CONT'D."::LN2< LN20PRTĞ PS(A$):DK$"PR#";PS7 @///LIST THINGS ROUTINED JTYP13] TTYPE8030,8040,8050 ^F$"EAMON.ROOM.NAME":A$"ROOM":NNR:8060 hF$"EAMON.ARTIFACTS":A$"ARTIFACT":NNA:8060 rF$"EAMON.MONSTERS":A$"MONSTER":NNM:80602 |::(12);"Adve$;"READ EAMON.DESC,R0":NR,NA,NE,NM:DK$"CLOSE EAMON.DESC"_ <DK$"OPEN EAMON.ROOM.NAME,L64" :6:"DO YOU WANT PRINTER OUTPUT (Y/N): "; A$:A$"Y"A$"N"1010 A$:A$"N"8000 :"INPUT PRINT SLOT (1-7): "; A$:A$"1"A$"7"1040LNOON.NAME":DK$;"READ EAMON.NAME":DUNGN$:ND:V:V6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THIS PROGRAM.":DK$;"CLOSE": #216,0:DK$"CLOSE" (DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256"< 2DK DUNGEON ABBREV.LIST ; BY JOHN NELSON AGZ REV. 10-9-84 DK$(4)::5:"LISTING A DUNGEON'S MONSTERS/ARTIFACTS":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:35 :DK$;"OPEN EAM&r NORTH,SOUTH,EAST,WEST,UP,DOWN{| HD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF. ODDS,ARMOUR,WEAPON#,OFF.ODDS,W DICE,W SIDES VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES$::D$"CLOSE":40- === TOGGLE PRT ===:PRTPRTs21:6:868:("OFFON",PRT31,3PRT):22:25:868|210 /// QUITD$"CLOSE":@ /// DATA LABELSJX16:RL$(X):TML$(12):X112:ML$(X):^X18:AL$(X):h :"ROOM #";R;" ";RN$:LPLP1h X16:RD%(X)0ĺ" ";RL$(X);":";20((RD%(X))));RD%(X):LPLP1 :D$:LP17PRTĺ:"====== PRESS ANY KEY TO CONTINUE ======";:A$::LP0:  D$"PR#0" :"====== PRESS ANY KEY TO CONTINUE ======";:A0((AD%(A2))));AD%(A2)& LPLP1, A /// LIST ROOMSW :PRTĺD$;"PR#1" D$"OPEN EAMON.ROOM.NAME,L64":D$"OPEN EAMON.ROOMS,L64" LP0::R1NR D$"READ EAMON.ROOM.NAME,R";R:RN$:D$"READ EAMON.ROOMS,R";R:D16:RD%(D): 8:AD%(A2):/D$d4LPFS18PRTĺ:"====== PRESS ANY KEY TO CONTINUE ======";:A$:::LP0>A;". ";AN$:LPLP1:A214:2500:HAD%(2)1āA258:2500:A2R:A:::1145 /// CHECK AND PRINT AS%(A2)ı " ";AL$(A2);":";237):20309A9Ģ10A:10::AS%(A)1:AL$(A)::2030W  /// READY TO LIST ARTIFj"PRTĺD$"PR#1"%FS0:X18:FSFSAS%(X)::D$"OPEN EAMON.ARTIFACTS,L128"*LP0::A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$:A214:AD%(A2)::AD%(2)1āA25Y TO CONTINUE ======";:A$::40; /// LIST ARTIFACTSZA18:AD%(A)0:AS%(A)0:10:958:"SELECT DATA FIELD TO LIST:"A18:7((A)));A;". ";AL$(A):19:1:" INPUT 1-8 OR ";A$:A$""A$"9" A(A$):A1A9Ģ(:" PRESS ANY KEY TO CONTINUE ";:JN$::::LN0 A:PRTĺ::" PRESS ANY KEY TO CONTINUE ";:A$::::LN0 TYP:PRTĺ::" PRESS ANY KEY TO CONTINUE ";:A$::::LN0 #DK$"PR#0":DK$"CLOSE": EAMON ROOM ANALYSIS7 BY JOHN NELSON> x PRINT MONSTERS AND ARTIFACTS IN ROOMS~ 11-8-84 D$(4)::6:"INSERT DUNGEON DISKETTE AND PRESS"::10);"ANY KEY TO CONTINUE ...";:A$: V6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THIS PROGRAM.":R `216,0` bND(DR$) dD$"OPEN EAMON.ROOM.NAME,L64":D$"OPEN EAMON.ROOMS,L64":D$"OPEN EAMON.DESC,L256" D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE EAMON.DESC" ,PRTĺD$UWX PRINTER OUTPUT (Y/N):";6 <A$:A$"Y"A$"N"60T FA$:PRT(A$"Y"):PRT92} K:"WHAT SLOT IS PRINTER IN (1-7):"; PA$:A$"1"A$"7"80 ZA$:PS(A$) \800 ^D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:V:D$;"CLOSE"G _ EAMON. QUICKY ROOM PRINTG BY JOHN NELSONMU [au REV. 11-13-85 D$(4)40(:6:" INSERT EAMON ADVENTURE DISKETTE AND"::10);"PRESS ANY KEY TO CONTINUE ...";:A$: 2:6:"DO YOU WANT5:  === CHANGE SPEED ===ATST21SP251ĩSP5:SPSP5]TST8SP5SPSP5:SPqTST0:16368,0w& CONTINUE";7);:A$::p:10);"EAMON ROOM ANALYSIS":3:" NO. ROOMS: ";NR:" AVG. ROOMS/MONSTER: ";NRNM" AVG. ROOMS/ARTIFACT: ";NRNA:" EMPTY ROOMS: ";ER" AVG. # THINGS IN NON-EMPTY ROOMS: ";(WMWA)(NRER)D$"CLOSE":D$;"PR#0":25RMR1:WMWM1 xM+ AR0:A1NANMS AD%(A,4)RĺAN$(A):ARAR1:WAWA1 AD%(A,4)0ANAN1: #ARTIFACTS IN NATURAL PLACES (NOT ROOM 0) A:"---------------------------------------":AR0MR0ERER1 R::7);"PRESS ANY KEY TOSLOW/SPEED SCROLLING":g cYN$"Y"ĺD$"PR#1":(12);(40("ROOM ANALYSIS"))2);"ROOM ANALYSIS":: d16368,0:SP255:255:R1NR::"ROOM ";R;" (";RN$(R);")" i(16384)127TST(16384)128:500 mTST0: nMR0:M1NM:MD%(M,5)RĺMN$(M):M PD$"OPEN EAMON.ARTIFACTS,L128":A1NANM:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2):A2 ZA:D$ \"PRINTER OUTPUT?(Y/N):"; ^YN$:YN$"Y"YN$"N"94 `YN$::"USE LEFT/RIGHT ARROW KEYS TO MD%(NM,12),AD%(NA,8),MN$(NM),AN$(NA),RN$(NR) 2D$"OPEN EAMON.ROOM.NAME,L64":R1NR:D$"READ EAMON.ROOM.NAME,R";R:RN$(R)::D$"CLOSE" FD$"OPEN EAMON.MONSTERS,L128":M1NM:D$"READ EAMON.MONSTERS,R";M:MN$(M):M2112:MD%(M,M2):M2,M:D$"CLOSE"PRST18 D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":A$:ND:V:V6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THIS PROGRAM.":D$"CLOSE": 216,0:D$"CLOSE" D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE" 216,00 "PR#";PS ^X1ND:D$(X):% w R1NR:D$"READ EAMON.ROOM.NAME,R";R:N$:D$"READ EAMON.ROOMS,R";R:D1ND:DR%(D): D$ "ROOM ";R;":";N$:D1ND:DR%(D)0ĺD$(D);":";15(D$(D))((DR%(D))));DR%(D):PRTĭ(37)20İ900 &: X: D$"PR#0":D$"CLOSE":1 ND6:216,0:100m :" PRESS ANY KEY TO CONTINUE ";:A$::::  NORTH,SOUTH,EAST,WEST,UP,DOWN,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTEAMON.ARTIFACTS,L128"+ SWĺD$"PR#";PSA RBEGEN:3500:s D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100 D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(A)::A%(2)1āA58:A%(A):$ "ARTIFACT # ";R;" [";AN$(R);"]":" ":D$;"READ EAMON.DESCR$((DR%(D)));"]";p:D:6 /// LIST ARTIF.a "BEGINNING WITH ARTIFACT #(1): ";BEG$ "ENDING WITH ARTIFACT #(";NA;"): ";:EN$ (BEG$)NA(BEG$)1BEG$"1" (EN$)NA(EN$)(BEG$)EN$(NA) BEG(BEG$):EN(EN$) D$"OPEN ESC:":D$;"READ EAMON.DESC,R";R:A$:8000wH:"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D):RD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99ĺ"[EXIT]";:2160fDR%(D)0(DR%(D))NRĺ"[";(BEG$)NR(BEG$)1BEG$"1"I(EN$)NR(EN$)(BEG$)EN$(NR)cBEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" SWĺD$"PR#";PS*RBEGEN:2100:/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":100+4"ROOM # ";R;" [";R$(R);"]":" ":"D3000,4000,5000,6000,7000#1307ND6:216,0:50Q /// SET UP PRINTER"WHAT SLOT IS PRINTER IN?";PS:PS1PS71010PS(PS)1010130 /// LIST ROOMS"BEGINNING WITH #(1): ";BEG$"ENDING WITH #(";NR;"): ";:EN$!ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON ",SW31,3);")":" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CH$CH(CH$):CH1000,2000,D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$w a130 d /// MAIN ROUTINE x:"(HIT ANY KEY TO RETURN TO MENU)";:AN$h :12);"EAMON DUNGEON LIST":11);"BY JOHN NELSON":8:"SELECT LEX,W.TYPE,W.DICE,W.SIDES U NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWEST XD$"OPEN EAMON.ROOM.NAME,L64" ZR1NR:D$;"READ EAMON.ROOM.NAME,R";R:R$(R): \D$"CLOSE EAMON.ROOM.NAME"n _":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$Q <M$(12),M%(12):M112:M$(M): A HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAPON#,O.ODDS,W.DICE,W.SIDES FR$(NR),AN$(NA):A18:A$(A): KD110:DD$(D): P VALUE,TYPE,WEIGHT,ROOM,W.COMPY[\]^_`abSS":" ANY KEY ";:16368,0:A$:5 200 :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:V:D$;"CLOSE" V6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THIS PROGRAM.": #216,0 (ND(DR$)- 2D$"OPEN EAMON.DESC,L256 LIST DUNGEON, VERSION 2.1D BY JOHN NELSONJd LINES 97,120,150~ BY T. ZUCHOWSKI  11/6/83 + D$(4)::5:"LISTING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN PRE,R";100R:A$:"DESC: ":8000:" "j A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2); A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]";:3580  A24A%(4)0A%(4)NRĺ" [";R$(A%(4));"]";" :A2:A%(2)23610A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2" ":" ": /// LIST EFFECTS"BEGINNING WITH A22(A24AD%(R,A2)1)ĺ\A22AD%(R,2)0AD%(R,2)3ĺ" ";("[SET TREASURE][TREASURE] [WEAPON] [ODD WEAPON] ",AD%(R,2)141,14)fA24AD%(R,4)0AD%(R,4)NR2210pX17:R$R$(AD%(R,4)):510A2:AD%(R,2)22250>A258:" 0; SWĺD$;"PR#";PS:10);DUNGN$;" -- ARTIFACTS"::E ::R RBEENx *D$;"READ EAMON.DESC,R";100R:A$ 4710 >:"ARTIFACT # ";R;" [";AN$(R);"]"::A$: HA214:" ";A$(A2);10(A$(A2)));": ";6((AD%(R,A2))));AD%(R,A2);RDR%(D);" ";- DR%(D)99ĺ"[EXIT]":1230= RDNR1230U X30:R$R$(RD):510\ Dh ::: D$;"CLOSE EAMON.ROOMS":D$;"PR#0":9010  /// LIST ARTIFACTS :(20(DUNGN$)2));DUNGN$::15)"ARTIFACTS": 11020 NNNA:950GN$;" -- ROOMS"::( .::RBEENN 8D$;"READ EAMON.DESC,R";R:A$:D$\ BX99:710 j:"DIRECTIONS AVAILABLE:":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D)::D$ tD1ND:DR%(D)0Ă:1240 ~RD(DR%(D)):" ";DD$(D);":";(RD10)(DR%(D)0)); *****************************"D L(R$(R))::L38Ė(40L1)2_ "[";R$(R);"]"::A$:v  ///LIST ROOMS :(20(DUNGN$)2));DUNGN$::17)"ROOMS": 11030 NNNR:9500 D$;"OPEN EAMON.ROOMS,L"R1 SWĺD$;"PR#";PS:10);DUNcefghijklmnopqrstuvC. ( L(R$):SWLXĺ" [";R$;"]":J LLX11:(R$,LL,1)" "Ăe LLLL1:" [";(R$,LL) &39LLL);(R$,LLL);"]" 0  /// CTRL-Z AND ROOM Z(16384):Z127Ĺ16368,0:Z154ġ:D$;"PR#0":9010 X99ı! :"ROOM # ";R;"DUNGEON LIST 2.1 8VERSION 2.0 BY JOHN NELSONX2.1 MODS BY TOM ZUCHOWSKI rLAST UPDATE: 7/10/84PRODOS CONVERSION 5/18/90 TJZ EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 d10000  /// PRINT ROOM DES0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";/:M2:" ":Sp /// TOGGLE PRINTER^zSWSWg100xX /// QUITbD$"CLOSE":D$"PR#0":@SWĺA$:JAZ1(A$)40:(A$,AZ,40)::8000:" ":M2112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);oM23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]";%M29M%(9)MON.MONSTERS,L128"(SWĺD$"PR#";PS>RBEGEN:5500:oD$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100v| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$N"MONSTER # ";R;" [";MN$;"]":" ":"DESC:":EAD EAMON.DESC,R";R200:A$:8000-::F /// LIST MONSTERSh"BEGINNING WITH #(1): ";BEG$"ENDING WITH #(";NM;"): ";:EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$)D$"OPEN EA#(1): ";BEG$3"ENDING WITH #(";NE;"): ";:EN$V(BEG$)NE(BEG$)1BEG$"1"~(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)SWĺD$"PR#";PSRBEGEN:4500::D$D$"PR#0":100"EFFECT #";R;":":#D$;"R ";A$(A2);10(A$(A2)));": ";6((AD%(R,A2))));AD%(R,A2);A26AD%(R,6)0AD%(R,6)5ĺ" ";("[AXE] [BOW] [CLUB] [SPEAR][SWORD]",(AD%(R,6)1)71,7);::D$"PR#0":9010 ///LIST EFFECTS  :(20(DUNGN$)2));DUNGN$::16)"EFFECTS":@ NE0Č868:15:(7);"NO EFFECTS!":9010P NNNE:9500 SWĺD$;"PR#";PS:10);DUNGN$;" -- EFFECTS":: RBEEN 710 ::"EFFECT #";R;":": D$;"READ EAMON.DESC,R";R200:A$:A$ & D$;"PR#0":901019:16368,0:" INPUT YOUR CHOICE (1-9): ";CH$r#CH(CH$):CH8000,1000,2000,3000,4000,5000,6000,7000,12000|#9020% /// GET BE & EN 0%16368,0:::(9):"BEGINNING WITH #(1):";BE$:BE(BE$):%BE1BE1:(37):29:"1"D%BENNĺ:952:"TURN OFF PRINTER (NOW ";::"ON";::")";d#:" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS"n#" 5. LIST MONSTERS":" 6. ROOM ANALYSIS"x#" 7. DUNGEON MAP":" 8. WALK-THROUGH"2#" 9. QUIT":/// MAIN ROUTINE F2#:" (HIT ANY KEY FOR MENU)":AN$:34,0f<#:(40(DUNGN$))2:DUNGN$F#:"ROOMS:";NR;" ART:";NA;" EFF:";NE;" MONSTERS:";NMP#7:" SELECT ONE OF THE FOLLOWING:":.Z#" 1. SET UP PRINTER (NOW OFF)";:SWĖ1099D11:D:731070909@ /// SET UP PRINTER FTSW8090U^PS0PS1h19:"WHAT SLOT IS PRINTER IN? (";PS;:") ";OP$:OP(OP$):OP0OP78040rOP$""OP08040|OP$""8090OP(OP)8040PSOPSWSW:9020(# MENU)":5"WHICH WAY";:868:A$:A$"Q"7320bD$;"CLOSE EAMON.ROOMS":D$;"PR#0":9020A$""A$AA$:(37):12:A$AA$A$:(A$)1A$A$" "D1ND:A$DD$(D)Ă:(37):(7);:7300DR%(D)Ģ(37):(7);:7300:RDR%(D):RD$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D)::D$PD1ND:DR%(D)0ĂD:7290 RD(DR%(D)):" ";DD$(D);":";(RD10)(DR%(D)0));DR%(D);" ";*DR%(D)99ĺ"[EXIT]":72804RDNR7280fX30:R$R$(RD):510pD z:" Q : (RETURN TO MAIN;PS:R1R0RRCD$;"READ EAMON.DESC,R";R:A$:D$L730m:"YOU SEE:";:VD0:VS(37)M1NM:MD%(M,5)Rĺ(7);10);MN$(M):VD1A1NA:AD%(A,4)Rĺ(7);10);AN$(A):VD1:VD0ĢVS1 :"DIRECTIONS AVAILABLE:":1ND8DR%(D)0ĺ" ";;BDR%(D)10DR%(D)10ĺ" ";TLDR%(D);:D10ĺ" ";^V::r`D$"PR#0":9010X /// WALK-THROUGH b:(20(DUNGN$)2));DUNGN$::14)"WALK-THROUGH":l11010D$;"OPEN EAMON.ROOMS,L"R1SWĺD$;"PR#"ĺ15);: SWĹ34,2>D$"OPEN EAMON.ROOMS,L"R1wRBEEN:D$"READ EAMON.ROOMS,R";R:D1ND:DR%(D):710R$R$(R):L(R$):LLLR$(R$,LL)R10ĺ" ";R;":[";R$;"]";SWLLLĺ$SWLLLāI1LLL:".";:.DON MAP Bz:(20(DUNGN$)2));DUNGN$::14)"DUNGEON MAP":M11030bD99:NNNR:9500n:LL35v:SWĺD$;"PR#";PS:10);DUNGN$;" -- DUNGEON MAP":: ::" DIRECTIONS:";43);:D1ND:DD$(D);(" ",1(D6D10));::ND6NNNR:9500ISWĺD$;"PR#";PS:10);DUNGN$;" -- ROOM ANALYSIS"::eRBEEN::"ROOM # ";Rn710"[";R$(R);"]"M1NM:MD%(M,5)Rĺ" ";MN$(M) A1NAAD%(A,4)Rĺ" "AN$(A):(D$;"PR#0":9010 p /// DUNGE9)1ĺ" [NO WEAPONS]";@rMD%(R,9)0ĺ" [NATURAL WEAPONS]";w|MD%(R,9)0MD%(R,9)(NA)ĺ" [";AN$(MD%(R,9));"]";}M2:D$;"PR#0":9010 /// ROOM ANALYSIS :(20(DUNGN$)2));DUNGN$::13)"ROOM ANALYSIS":11010 (R);"]"::A$::M2112:" ";M$(M2);10(M$(M2)));": ";6((MD%(R,M2))));MD%(R,M2);"M24155,4155,4140,4140,4150,4155,4140,4155,4200,4140,4155,4155," %":42306MD%(R,5)0MD%(R,5)NRX18:R$R$(MD%(R,5)):510:4230;:4230hMD%(R, /// LIST MONSTERS M:(20(DUNGN$)2));DUNGN$::16)"MONSTERS":X11010hNNNM:9500SWĺD$;"PR#";PS:10);DUNGN$;" -- MONSTERS"::RBEEN710D$;"READ EAMON.DESC,R";R300:A$::Y"MONSTER # ";R;" [";MN$0CN%16368,0::(11):"ENDING WITH #(";NN;:"):";EN$:EN(EN$)iX%EN1ENNN:(37):28(EN9):EN|b%ENNNĺ:9550l%:" (HIT TO ABORT LIST)":D99āD1500:Dv%'D$(4):D1, ':3:" UNIVERSAL EAMON DUNGEON LISTER"::18:"- BY -"::11:"THOMAS J. ZUCHOWSKI"v $'11:9:"INSERT DUNGEON DISKETTE":::8:" HIT ANY KEY FOR DRIVE #1" .':11:"HIT '2' FOR DRIVE #2":16368,0:AN$::AN$"2"D(AN$) 8'10070\!B'D$;"OPEN EAMON.NAME,D";D:D$;"READ EAMON.NAME":DUNGN LIST DUNGEON- VERSION 6.0E BY JOHN NELSON^ MYLIST G BY TOM Zdj| REV. 2-9-85 D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::" PRESS ANY KEY ...";,0:197-/868:::8:"*** END OF PROGRAM ***": /// LOAD EAMON.ROOM.NAME B,,D$;"OPEN EAMON.ROOM.NAME,L";R2u,-R1NR:D$;"READ EAMON.ROOM.NAME,R"R:R$(R):, -RFLAG1,-D$;"CLOSE":D$,"OPEN EAMON.DESC,L256":,. /// QUIT ,.D$;"CLOSE":D$;"PR#0",.12050,/D$;"CLOSE,D1"-/216"RB+B,AN$(R):A14:AD%(R,A)::AD%(R,2)1āA58:AD%(R,A):W+L,:AFLAG1:11540+, /// LOAD EAMON.MONSTERS (RANDOM) +,D$;"OPEN EAMON.MONSTERS,L128"+,R1NM:D$;"READ EAMON.MONSTERS,R"R:MN$(R):M112:MD%(R,M)::+,MFLAG1:11540,,RS (SEQUENTIAL) W*+D$;"OPEN EAMON.MONSTERS":D$;"READ EAMON.MONSTERS":AN$:R1NMy*+MN$(R):M112:MD%(R,M)::*+MFLAG1:11540*$, /// LOAD EAMON.ARTIFACTS (RANDOM) *.,D$;"OPEN EAMON.ARTIFACTS,L128"+8,R1NA:D$;"READ EAMON.ARTIFACTS,RNG EAMON.ROOM.NAME)":11510#) +K)\+ /// LOAD ARTIFACTS (SEQUENTIAL) )f+D$;"OPEN EAMON.ARTIFACTS":D$;"READ EAMON.ARTIFACTS":AN$:R1NA)p+AN$(R):A14:AD%(R,A)::AD%(R,2)1āA58:AD%(R,A):)z+:AFLAG1:11540*+ /// LOAD EAMON.MONSTEE,NW,SE,SW+()D$;"OPEN EAMON.DESC,L256"5()9000R(* /// GET NEEDED FILES (+MFLAG0ĺ:7:"(LOADING EAMON.MONSTERS)":DT11210,11210,11210,11410( +AFLAG0ĺ:7:"(LOADING EAMON.ARTIFACTS)":DT11110,11110,11110,11310)+RFLAG0ĺ:7:"(LOADI'h) ///LIST HEADINGS 0'r)M112:M$(M):'|) HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOR,WEAPON#,O.ODDS,W.DICE,W.SIDES')A18:A$(A):')D110:DD$(D):') VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES () N ,S ,E ,W ,U ,D ,NN EAMON.MONSTERS":D$;"READ EAMON.MONSTERS":NM:D$w&(D$;"OPEN EAMON.ARTIFACTS":D$;"READ EAMON.ARTIFACTS":NA:D$&(::"ROOMS:";NR;" ART:";NA;" EFF:";NE;" MONSTERS:";NM:&(R$(NR),AN$(NA),AD%(NA,8),MN$(NM),MD%(NM,12),M$(12)')D$;"CLOSE"ALUE IN THOSE FILES"H%F(DT2ĺ:" NO VALUES STORED FOR NR OR NE"d%( /// GET NR,NA,NE,NM %(D$;"OPEN EAMON.DESC,L256"%(DT2ĺD$;"READ EAMON.DESC,R0":NR,NA,NE,NM%(D$%(DT4R164:R264:10480%(R164:R232(DT(DT3))5&(D$;"OPEN.ROOM.NAME..RANDOM,L64"C$(" EAMON.ARTIFACTS...RANDOM,L128"l$((" EAMON.MONSTERS....RANDOM,L128"$2(DT2ĺ:9:"VALUES FOR NR,NA,NE,NM":6:"ARE STORED IN EAMON.DESC,R0"%<(DT4ĺ::"CORRECT VALUES FOR NA AND NM ARE STORED AS THE FIRST V-#':" EAMON.DESC........RANDOM,L256"U#'" EAMON.ROOMS.......RANDOM,L64"e#'DT410260#'" EAMON.ROOM.NAME..RANDOM,L"32(DT(DT3))#'" EAMON.ARTIFACTS...SEQUENTIAL"#(" EAMON.MONSTERS....SEQUENTIAL"# (10290$(" EAMOIR OF THE MINOTAUR"DT2:NR92:NE0M"'DUNGN$"THE CAVE OF THE MIND"DT3}"'DUNGN$"THE CAVES OF TREASURE ISLAND"DT1"'DUNGN$""ĺ::(7);" THIS IS NOT AN EAMON DUNGEON DISK!":"':(40(DUNGN$))2:DUNGN$#'::" DATA STORAGE TYPE ";DT$:DR$:V:D$;"CLOSE":V6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THIS PROGRAM.":q!L'ND(DR$):10080z!V'ND6!`'216,0!t' ///IDENTIFY DUNGEON TYPE !~'DT4:DEFAULT DATA TYPE!'DUNGN$"THE BEGINNERS CAVE"DT1:ND6%"'DUNGN$"THE LA:16368,0:A$: 200 :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$:DR$,DV:D$;"CLOSE":DV6ĺ::"ADVENTURE VERSION IS NOT COMPATIBLE WITH THIS PROGRAM.": #216,0 (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NRwyz{|}~:A2:A%(2)1037402$FMP%(A%(2))03740X.A258:A$(A2)"(NOT USED)"3740BLPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2);tA26(A%(2)2A%(2)3)ĭA%(A2)1A%(A2)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6A24A%(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%(4)100);"]";A24A%(4)300A%(4)300NRĺ" [HIDDEN ";R$(A%(4)300);"]";R";100R:A$:"DESC: ":A$s A214:LPLP1:" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2); A22A%(2)10ĺ" [SPECIAL CATEGORY]";:3580 A22ĺ" [";TYP$(A%(2));"]";:3580 A24A%(4)0A%(4)NRĺ" [";R$(A%(4));"]";A $;"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%(2)),X): "ARTIFACT # ";R;" [";AN$(R);"]":LPLP2:D$;"READ EAMON.DESC,EG$)1BEG$"1"9 (EN$)NA(EN$)(BEG$)EN$(NA)S BEG(BEG$):EN(EN$)v D$"OPEN EAMON.ARTIFACTS,L128" PRTĺD$"PR#";PS:(9);"80N" (SIZ(ADV$))2);ADV$:::RBEGEN:3500: D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100P DANY KEY TO CONTINUE ";::A$::<A$(27)ġ:100BY /// LIST ARTIF. 6:958:"BEGINNING WITH ARTIFACT:";BEG$:BEG$""BEG$"1":6:25:BEG$ 8:958:"ENDING WITH ARTIFACT:";EN$:EN$""EN$(NA):22:8:EN$ (BEG$)NA(BEAMON.ROOMS,R";R:D1ND:DR%(D):,MLTsRD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99ĺ"[EXIT]";:2160fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";p:D:"LIGHT: ";LT:D$'zPRTĺ::" PRESS 64"& PRTĺD$"PR#";PS:(9);"80N"_*:(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:2100:/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1004:"ROOM # ";R;" [";R$(R);"]":"DESC:":D$;"READ EAMON.DESC,R";R:A$:A$$H"DIRECTIONS MOVED IN--":D$;"READ G6: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(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L000,2000,3000,4000,5000,6000,7000, 130\ DR$""DV4:DR$"6":216,0:D$;"CLOSE":35u DV5:D$;"CLOSE":35  /// SET UP PRINTER 6:958:"WHAT SLOT IS PRINTER IN?"; A$:A$"1"A$"7"1020 A$:PS(A$):100 /// LIST ROOMSx 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-6):";CH# CH1"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 ROUTINE n:12);"EAMON DUNGEON LIST":14);"BY JOHN NELSON":(40(ADV$))21);::ADV$:,NA,NE,NM:D$ <350006 FR$(NR),AN$(NA),MN$(NM)X XD$"OPEN EAMON.ROOM.NAME,L64" ZR1NR:D$;"READ EAMON.ROOM.NAME,R";R:R$(R): \D$"CLOSE EAMON.ROOM.NAME" _D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$)1)51,5);"]";:A2"dD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::yA$(27)ġ:100 /// LIST EFFECTS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$8:958:"ENDING WITH #:";EN$:EN$""EN$(NE):15:8:EN$A(BEG$)NE(BEG$)1BEG$"1"i(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)PRTĺD$"PR#";PS:LP500:RBEGEN:4500::D$D$"PR#0":100MRG);"EFFECT #";R;":"::LPLP2$D$C> OR HIT RESET WHEN PROMPTED TO INSERT MASTER DISK."` ::"DO YOU WANT TO USE DEFAULTS?";} A$:A$"N"A$"Y"150 A$:A$"Y"HD18:AG18:CH18:HE40:SP40:5000 "HARDINESS:";HD:"AGILITY:";AG:"CHARISMA:";CH, "BLAST ABIL:";BL:"HEAL TEST BENCH, BY JOHN NELSON2UPRODOS CONVERSION 5/18/90 TJZc 2-29-84p DK$(4)7 d:"THIS PROGRAM WILL SEND A TEST CHARACTER INTO ANY ADVENTURE. DO *NOT* RETURN HIM TO THE MAIN HALL AS HE DOES NOT EXIST THERE!! TYPE >> READ DATÄAF:MFꈃ 4,12: AF = # ARTIF FIELDS, MF = # MONST FIELDS/M$(MM29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";?:M2:D$sLP36PRTLP0:(12);(SIZ(ADV$))21);ADV$:PRTĞ:7);"PRESS ANY KEY TO CONTINUE";6);:A$:::A$(27)ġ:100:p /// TOGGLE PRINTERzPRTPRT PRTMRG10M2)));(PR$,1,6((M%(M2))));M%(M2);HM23M24M27M210ĺ" %";yM25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]";M29M%(9)0M%(9)NARĺ" [";AN$(M%(9));"]";100:7D$"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;" [";MN$;"]":"DESC:":A$:LPLP4'M2112:LPLP1:" ";M$(M2);(PR$,1,10(M$(ITH #:";EN$:EN$""EN$(NM):8:15:EN$N(BEG$)NM(BEG$)1BEG$"1"v(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$)D$"OPEN EAMON.MONSTERS,L128"PRTĺD$"PR#";PS:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:55;"READ EAMON.DESC,R";R200:A$:A$2LP500ıD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)ġ:100 /// LIST MONSTERS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$+8:958:"ENDING W ABIL:";HE:"SPEED ABIL:";SP:"POWER:";POWa WA%(1)15:WA%(2)0:WA%(3)30:WA%(4)10:WA%(5)20s X"ARMOUR:";AC  === GO ON ADVENTURE === 8:5:"INSERT ADVENTURE (IF NECESSARY) AND TYPE ITS PREFIX TO CONTINUE: " 8PX$:DK$"PREFIX"PX$- 8:DK0 : 4TH WEAPON$' M,2000,4000C8 === GO ON ADVENTURE ===8:5:"INSERT ADVENTURE TO TEST, AND TYPE ITS PREFIX: ";PX$8DK$"PREFIX"PX$8:DK$;"OPEN FRESH.MEAT":DK$;"WRITE FRESH.MEAT"81:NA$:HD:AG:CH:X14:SP%(X)::X15:WAST/HEAL/SPEED/POWER2L' 30 : ARMOUR EXPERTISEIV' 4: ARMOUR CLASS`' 40,10,55,15,40: WEAPON ABIL: AXE/BOW/MACE/SPEAR/SWORDj' MACE,3,10,1,4: 1ST WEAPONt' SWORD,5,10,1,8: 2ND WEAPON~' EXCALIBUR,5,25,2,8: 3RD WEAPON' NONE,0,0,0,X::" IS THIS ACCEPTABLE? (Y/N) ";::" ";PbA$:A$"Y"A$"N"610blA$"Y"14500k230' BLAST,HEAL,SPEED,POWER$' AXE,BOW,MACE,SPEAR,SWORD.' TESTOR: NAME8' 20,18,16: HARDINESS/AGILITY/CHARISMAB' 50,90,60,50: BLA)A$(13)470( A$(13)A$(AC)G 9:13:958::AC(A$):ACR X15 9X:958:WT$(X);" EXPERTISE (0-100%) ";WA%(X);:(36)((WA%(X)))1:"";A$:(A$)0(A$)100510 A$""A$(WA%(X)):(37):(WT$(X))21:A$&WA%(X)(A$):3:A$ SP%(X)(A$): "ARMOUR TYPE:":" 1. SHIELD ONLY":" 2. LEATHER":" 3. LEATHER AND SHIELD":" 4. CHAIN MAIL":" 5. CHAIN AND SHIELD" " 6. PLATE ARMOUR":" 7. PLATE AND SHIELD":"INPUT NUMBER 1-7 : ";AC;(8); A$:(A$"1"A$"7"AGG ^"CHARISMA:";CH;:10:"";CH$:CH$""CH$(CH):(37):10:CHi rHD(HD$):AG(AG$):CH(CH$)t X14 SN$(X);" ABILITY (%): ";SP%(X);:(36)((SP%(X)))1:"";A$:(A$)0(A$)100Ģ(37):420 A$""A$(SP%(X)):(37):(SN$(X))1550 ST$:ST$"Y"15000' 15000x :"NAME OF CHARACTER:";NA$;:(36)(NA$)1:"";A$:A$""A$NA$:1:19:A$ NA$A$ "HARDINESS:";HD;:11:"";HD$:HD$""HD$(HD):(37):11:HD ,"AGILITY:";AG;:9:"";AG$:AG$""AG$(AG):(37):9:R BACK TO THEMAIN HALL--HE DOES NOT EXIST THERE AND WILL MESS UP THE CHARACTERS FILE!" <:"WHEN PROMPTED TO INSERT THE MASTER DISK,TYPE OR HIT RESET TO KILL THE PROGRAM." d::"DO YOU WANT TO USE STANDARD?"; ST$:ST$"N"ST$"Y"1 ADVANCED BENCH3 BY JOHN NELSON9?M 8-24-84pPRODOS CONVERSION 5/19/90 TJZ} DK$(4)X14:SN$(X)::X15:WT$(X):Y 2:"THIS PROGRAM SENDS A TEST CHARACTER ON ANY ADVENTURE"::"DO *NOT* SEND THIS CHARACTELEADIN"$;"OPEN FRESH.MEAT":DK$;"WRITE FRESH.MEAT"u 81:"TESTOR OF BENCH":HD:AG:CH:BL:HE:SP:PO:X15:WA%(X): 815:"M":2000:1300:4:"AXE":1:10:1:6:"BOW":2:10:1:5:"MACE":3:10:1:4:"SWORD":5:10:1:8 8DK$"CLOSE" 9DK$"RUN %(X):W8AE:SEX$:GOLD:BANK:AC:X14:WN$(X):WT%(X):WC%(X):WD%(X):WS%(X):g8DK$"CLOSE"|9DK$"RUN LEADIN":NAME$:HD,AG,CH:X14:SP%(X)::AE:AC:X15:WA%(X)::X14:WN$(X),WT%(X),WC%(X),WD%(X),WS%(X)::SEX$,GOLD,BANK:NM$NA$:STD$"Y"14500".;HIT TO CONTINUE: ";A$:OL:"INSERT THE 'SOURCE' DISK NOW.":1000V:"INSERT THE 'DESTINATION' DISK NOW.":10001110mhD$"PREFIX "DP$:D$"OPEN PURGE.DESC,L256":I1NM:D$"WRITE PURGE.DESC,R"I300:Z$(I)::D$"CLOSE":5:"PURGE COMPLETED."::"TRANSFER THE NEW FILE 'PURGE.DESC' TO THE EAMON DISK/DIRECTORY, AND RENAME IT TO 'EAMON.DESC'.""23:""CLOSE"6SD1İ1110@D$"PREFIX "DP$:D$"OPEN PURGE.DESC,L256":I1NE:D$"WRITE PURGE.DESC,R"I200:Z$(I)::D$"CLOSE"JSD1İ1100TD$"PREFIX "SP$:D$"OPEN EAMON.DESC,L256":I1NM:D$"READ EAMON.DESC,R"I300:Z$(I)::D$"CLOSE"^SD1İ"I100:Z$(I)::D$"CLOSE",SD1İ1110D$"PREFIX "DP$:D$"OPEN PURGE.DESC,L256":I1NA:D$"WRITE PURGE.DESC,R"I100:Z$(I)::D$"CLOSE""SD1İ1100 ,D$"PREFIX "SP$:D$"OPEN EAMON.DESC,L256":I1NE:D$"READ EAMON.DESC,R"I200:Z$(I)::D$SD1İ1110mD$"PREFIX "DP$:D$"OPEN PURGE.DESC,L256":D$"WRITE PURGE.DESC,R0":NR:NA:NE:NM:D$I1NR:D$"WRITE PURGE.DESC,R"I:Z$(I)::D$"CLOSE"SD1İ1100D$"PREFIX "SP$:D$"OPEN EAMON.DESC,L256":I1NA:D$"READ EAMON.DESC,RE' DISK IN ONE DRIVE, AND THE 'DESTINATION DISK IN ANOTHER."i SD1ĺ"INSERT THE 'SOURCE DISK NOW."s 1000 D$"PREFIX "SP$:D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$I1NR:D$"READ EAMON.DESC,R"I:Z$(I)::D$"CLOSE""DP$@ x:"IS THIS CORRECT?";A$:A$(A$,1):A$"N"A$"n"80Y A$"Y"A$"y"120k SP$DP$SD3 (SP$,1)"/"SP$"/"SP$ (DP$,1)"/"DP$"/"DP$ :SD3ĺ"INSERT THE DISK THAT IS TO BE WORKED ON NOW."? SDĺ"INSERT THE 'SOURC:"ENTER THE PREFIX OF THE 'SOURCE' DISK THAT CONTAINS THE 'EAMON.DESC' FILE"::SP$ Z:"ENTER THE PREFIX OF THE 'DESTINATION' DISK THAT CONTAINS THE 'EAMON.DESC' FILE":DP$ d:"THE 'SOURCE' PREFIX IS: "SP$ n:"THE 'DESTINATION' PREFIX IS: S TO THE 'EAMON.DESC' TEXT FILE WHICH IS TO BE PURGED." (:"IT CAN USE ONE OR TWO 5.25 DRIVES, OR ONE OR MORE 3.5 DRIVES." 2::"ARE YOU USING A SINGLE 5.25 DRIVE? ";A$:A$(A$,1):A$"Y"A$"y"SD1:80 <A$"N"A$"n"50 F1000X P:N THE 'EAMON.VERSION' PROGRAM TO FIND OUT."a :"QUIT NOW? ";A$:(A$,1)"N"(A$,1)"n"Ā :::" *** EAMON.DESC FILE PURGE UTILITY ***":10:"(FOR VERSION 4-6)": :"THIS PROGRAM REQUIRES APPROX. 160 FREE BLOCKS OF SPACE ON A DISK AND ACCES6/19/90# D$(4):Z$(100) :5:"*** NOTE *** NOTE *** NOTE *** NOTE ***"::"THIS PROGRAM WILL *NOT* WORK CORRECTLY ON VERSION 7 EAMON DATA FILES!"- :"IT WILL *TRASH* THEM!!"::"IF YOU ARE NOT SURE WHAT VERSION THIS EAMON IS, FIRST RU  D$(4)JD$"OPEN EAMON.DESC":D$"READ EAMON.DESC":NR:D$"CLOSE"fR$(NR),RD$(NR,7),L(NR)(D$"OPEN EAMON.ROOM.NAME,L64"2I1NR:D$"READ EAMON.ROOM.NAME,R"I<R$(I)::D$"CLOSE"FD$"OPEN EAMON.ROOMS,L64" PI1NR:D$"READ EAMON:DK$"READ CHARACTERS,R";R:X$: R;". ";X$::DK$:20@ F  DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE" :5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::' $DK$;"OPEN FRESH.MEAT":DK$;"WRITE FRESH.MEAT":REISKETTE AND TYPE ITS PREFIX: ";PX$9 iDK$"PREFIX"PX$C n1000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):W  >> LIST NAMES R1NCACTER IS NOT HERE.":"TRY AGAIN.":20 2DK$;"READ CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE <SEX$ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE"% d:"INSERT ADVENTURE D" AND PRESS ANY KEY TO CONTINUE...";:16368,0:A$:G DK$(4) DK$"OPEN CHARACTERS,L150":DK$"READ CHARACTERS,R0":NC:DK$ "NAME OF ADVENTURER:";NA$:NA$"?"500 REC1NC:DK$"READ CHARACTERS,R";REC:N$' N$NA$Ă:DK$:"THAT CHAR ADVENTURE ONLY3 BY JOHN NELSON:  THIS PROGRAM ALLOWS YOU TO GO ON AN ADVENTURE WITHOUT USING THE MAIN HALL. YOU MUST RETURN TO THE SAME DISKETTE YOU CAME FROM: :6:"INSERT DISKETTE WITH CHARACTER DESIRED"::' 39,0,36,34,671 ' CRYSTAL SWORD,5,60,10,2F $' SWORD,5,10,5,4_ .' STARFIRE,5,80,10,6w 8' DRUINVAL,5,30,4,8DK$"CLOSE"U DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE" :5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$::: $DK$;"OPEN FRESH.MEAT":DK$;"WRITE FRESH.MEAT":REC:200:DK$;"CLOSE":DK$;"-LEADIN" '65,168,63,122 AE:SEX$a GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wg m  :DK$"CAT": :"WHAT IS PATHNAME OF ADVENTURE?":PX$ DK$"PREFIX "PX$ DK$"OPEN EAMON.PREFIX":DK$"WRITE EAMON.PREFIX":"NONSUCH": DK$(4)`dNAME$"SAM":HD24:AG18:CH24:X14:SA%(X)::X15:WA%(X)::AE25:SE$"M"nGO52647:BA200000:AC5:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):Wx1000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::.ROOMS,R"I0 ZJ17:RD$(I,J):::D$"CLOSE"< dI1NRP nL(I)(R$(I))2[ xJ17y L(I)L(I)(RD$(I,J))1: L(I):MXL(I)MXL(I) MXC:200:DK$;"CLOSE":DK$;"RUN LEADIN"4 CHARACTER FILE MAINTENANCE BY TOM ZUCHOWSKIJ DEC 1983 ePRODOS UPDATE 1/23/90vREV.1/30/95 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N: n 104,168,104,166,223,154,72,152,72,96(I,C):DD$(0)DD$(C)= :(40(NA$(0)))2:NA$(0):" INPUT FIELD TO CHANGE:"::S$;" 1. NAME":S$;" 2. HARDINESS":S$;" 3. AGILITY":S$;" 4. CHARISMA" S$;" 5. SPELL ABILITIES":S$;" 6. WEAPON ABILITIES":S$;" 7. ARMOR"?*S$;" 8. S0)SEX$(C):GOLD(0)GOLD(C):BANK(0)BANK(C):HD(0)HD(C):AG(0)AG(C):CH(0)CH(C)I14:SA%(I,0)SA%(I,C)::I15:WA%(I,0)WA%(I,C): AE(0)AE(C):AC(0)AC(C):I14:WN$(I,0)WN$(I,C):WT%(I,0)WT%(I,C):WO%(I,0)WO%(I,C):WD%(I,0)WD%(I,C):WS%(I,0)WS%ECORD #!"RECORD NUMBER:";C\CNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000kC1C:5000 /// NEXT RECORDCNCĺ:14);"END OF FILE.":C0:710(CC1:5000 /// MODIFY RECORD C0SUB1:1000PNA$(0)NA$(C):SEX$(MBER":S$;"3. NEXT RECORD":S$;"4. RETURN TO MAIN MENU":X4:600:^S1100,1210,1300,510pL /// BY NAMEV"CHARACTER NAME:";NA$(0)`I1NC:NA$(I)NA$(0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000jCI:C1C:5000  /// BY R(A$):S1SX620vA$:9 /// CONTINUE PROMPT p:" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY KEY TO CONTINUE)";:A$:: /// SELECT RECORD D:6:" SELECT RECORD BY:"::S$;"1. NAME":S$;"2. RECORD NU THIS RECORD":S$;"3. FILE MAINTENANCE"m&S$;"4. TRANSFER THIS RECORD":S$;"5. GENERATE A NEW CHARACTER"0S$;"6. UPDATE RECORD AND QUIT":X6:600:S1000,2000,6000,7000,8000,9000X /// GET NUMBER b:" INPUT (1-";X;"):";lA$:S BEING SAVED TO DISK. RERUN THE PROGRAM TO CONTINUE.":9000:17);"EAMON"::" CHARACTER FILE MAINTENANCE":6:S$;" CHARACTER: NONE";:C0Ė21:NA$(C);" ";8::" SELECT ACTION:":)S$;"1. SELECT A RECORD":S$;"2. MANIPULATETY."K :S$;" YOUR ONLY OPTION IS TO":S$;" GENERATE A NEW CHARACTER. ::S$;:" DO YOU WISH TO DO THIS?";A$:A$"Y"8000 9050  /// MAIN MENU BTX$"":UP0::FULL0Ģ8:" THE DIMENSIONED ARRAYS ARE FULL; THE CHARACTER ARRAYS ARE)""380< hD$:D$;"READ CHARACTERS,R";I:NA$(I):DD$(I)U rNA$(I)"(DEAD)":320r |GOLD(I):BANK(I):AC(I) J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I): I:D$ 216,0:NC0510 :10 " THE CHARACTERS FILE IS EMP00< "DD$(I):DD$(I)""NA$(I)"(BAD DATA IN FILE)":400n ,DD(DD$(I)):DD$(I)""DD0NA$(I)"(DEAD)" 6DD0HD(I)DD:330 @HD(I) JAG(I):CH(I) TJ14:SA%(J,I)::J15:WA%(J,I): ^AE(I):SEX$(I):SEX$(I)"M"SEX$(I)"F"SEX$(INNC10:FULLN NA$(N),SEX$(N),GOLD(N),BANK(N),HD(N),AG(N),CH(N),SA%(4,N),WA%(5,N),AC(N),AE(N),WN$(4,N),WT%(4,N),WO%(4,N),WD%(4,N),WS%(4,N),UP(N),DD$(N) NC0420 I1NC D$;"READ CHARACTERS,R";I:NA$(I) NA$(I)""320 100 xD$(4):+ S$" ":7 SPACES5 :10J D$"PREFIX":PX$k /// INPUT DATA FROM DISK u 215 D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$:216,0:220 216,0:(7)::"UNABLE TO LOAD CHARACTERS FILE":::440 EX":S$;" 9. GOLD":S$;"10. ARMOR EXPERTISE":S$;"11. WEAPON"4S$;"--------------------":S$;"12. DISPLAY RECORD":S$;"13. RETURN TO MAIN MENU">S$;"14. ADD AS A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";S:HS2200,2400,2600,2800,3000,3200,3400,3600,3800,4000,4200,4400,4600,4800,510DR2060DD$(0)""ĺ:"THIS CHARACTER IS DEAD. THE PREVIOUS NAME OF THIS CHARACTER WAS:"::15:"(?)";DD$(0)::2220:"OLD NAME: "NA$(0)+"NEW NAME: ";X$:(X$)0(X$,1)"A"(X$"NONE"Ă:4200$(I4ĭWN$(I1,0)"NONE"WN$(I,0)WN$(I1,0):WT%(I,0)WT%(I1,0):WO%(I,0)WO%(I1,0):WS%(I,0)WS%(I1,0):WD%(I,0)WD%(I1,0):WN$(I1,0)"NONE":WT%(I1,0)0:WO%(I1,0)0:WS%(I1,0)0:WD%(I1,0)0:Z1$*:Z14200,4390%0C1C:C0:SUB:S$;"5. SWORD"'#:WT%(W,0):4260L#UP1:"NEW TYPE:";WT%(W,0):4260q#UP1:"NEW ODDS:";WO%(W,0):4260#UP1:"NEW DICE:";WD%(W,0):4260#UP1:"NEW SIDES:";WS%(W,0):4260#WW1:W4260,4260,4260,4260,4390#$&Z0:I14:WN$(I,0)340,4350,4360,4370,4390"UP1:"NEW NAME:";Z$:(Z$)15ĺ(7)"MAX NAME LENGTH OF 15 CHARACTERS.":"HIT ANY KEY ";:Z$:Z$:4260"Z$""Z$"NONE""WN$(W,0)Z$:4260"UP1:"NEW TYPE:"#:S$;"1. AXE":S$;"2. BOW":S$;"3. CLUB":S$;"4. SPEAR"!WS::S5ı!" SELECT FIELD TO CHANGE:"::S$;"1. NAME",WN$(W,0):S$;"2. TYPE",WT%(W,0):S$;"3. COMP.",WO%(W,0):S$;"4. DICE",WD%(W,0):S$;"5. SIDES",WS%(W,0)!S$;"6. NEXT WEAPON":S$;"7. RETURN TO WEAPON MENU":X7:600":S4290,4300,4I,0);:19:WT%(I,0);6((WO%(I,0))));WO%(I,0);"%"; |7((WD%(I,0))"D"(WS%(I,0))));WD%(I,0);"D";WS%(I,0);5((2AG(0)WA%(WT%(I,0),0)WO%(I,0))));2AG(0)WA%(WT%(I,0),0)WO%(I,0);"%" !"-----------------":"5. RETURN TO MENU":X5:600:3830BANK(0)X::"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000UP1:AE(0)X:h:8:"SELECT WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS";::I146 rI;".";WN$(E:"::S$;"1. GOLD IN HAND",GOLD(0):S$;"2. GOLD IN BANK",BANK(0):X2:600::S3810,3830"HOW MUCH GOLD IN HAND:";X:X0X50000X(X)ĺ:"INVALID AMOUNT.":3810GOLD(0)X:"HOW MUCH IN BANK:";X:X0X50000X(X)ĺ::"INVALID AMOUNT."N ARMOR & SHIELD":S$;"6. PLATE ARMOR":S$;"7. PLATE ARMOR & SHIELD"{\ :S$;"(CURRENTLY ";AC(0);")":X7:600:AC(0)S::"OLD SEX: ";SEX$(0)"NEW SEX: ";X$:X$"M"X$"F"ĺ:"INVALID SEX":3600$UP1:SEX$(0)X$:[UP1::8:"SELECT ON):32009 UP1:"NEW SPEAR EXPERTISE:";WA%(4,0):3200i UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200o H UP1::" ARMOR CLASS:"::S$;"1. SHIELD ONLY":S$;"2. LEATHER ARMOR":S$;"3. LEATHER ARMOR & SHIELD":S$;"4. CHAIN ARMOR"FR S$;"5. CHAIR",WA%(4,0):S$;"5. SWORD",WA%(5,0):S$;"----------":S$;"6. RETURN TO MENU":X6:600~ :S3230,3240,3250,3260,3270,3280 UP1:"NEW AXE EXPERTISE:";WA%(1,0):3200 UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200  UP1:"NEW CLUB EXPERTISE:";WA%(3,01:"NEW HEAL RATING:";SA%(2,0):3000T UP1:"NEW SPEED RATING:";SA%(3,0):3000 UP1:"NEW POWER RATING:";SA%(4,0):3000  :8:" SELECT WEAPON ABILITY:":S$;"1. AXE",WA%(1,0):S$;"2. BOW",WA%(2,0):S$;"3. CLUB",WA%(3,0)W S$;"4. SPEA:8:" SELECT SPELL:":S$;"1. BLAST",SA%(1,0):S$;"2. HEAL",SA%(2,0):S$;"3. SPEED",SA%(3,0) S$;"4. POWER",SA%(4,0):S$;"----------":S$;"5. RETURN TO MENU":X5:600::S3020,3030,3040,3050,3060 UP1:"NEW BLAST RATING:";SA%(1,0):3000' UP2400j UP1:HD(0)X:w( :"OLD AGILITY:";AG(0):"NEW AGILITY:";X:X3X300X(X)ĺ:"INVALID AGILITY.":26002 UP1:AG(0)X: :"OLD CHARISMA:";CH(0):"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":2800 UP1:CH(0)X:b ,1)"Z"(X$)20ĺ:"INVALID NAME.":2200EI1NC:NA$(I)X$ĂNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200DD$(0)"":UP1:NA$(0)X$:` :"OLD HARDINESS:";HD(0):"NEW HARDINESS:";X:X3X300X(X)ĺ:"INVALID HARDINESS.":1:5000:CC1:(% /// CHANGE ARRAY%NA$(C)NA$(0):SEX$(C)SEX$(0):GOLD(C)GOLD(0):BANK(C)BANK(0):HD(C)HD(0):AG(C)AG(0):CH(C)CH(0)% I14:SA%(I,C)SA%(I,0)::I15:WA%(I,C)WA%(I,0):G&AE(C)AE(0):AC(C)AC(0):I14:WN$(I,C)WN$(I,0):WT%(I,C)WT%(I,0):WO%(I,C)WO%(I,0):WD%(I,C)WD%(I,0):WS%(I,C)WS%(I,0):Y& DD$(C)DD$(0)p&*UP1UP(C)1:UP0{&4:510&FULL0ĺ:"THE DIMENSIONED ARRAYS ARE FULL. YOU MAY NOT ADD A CHARACTER TO THIS FILE UNTIL THE PROGRAM IS RERUN.":720:'RT THE DISK IT IS TO BE TRANSFERRED TO, AND PRESS 'C'."r4:"HIT ANY OTHER KEY TO RETURN TO THE MAIN MENU.":4A$::A$"C"5104"PREFIX OF TRANSFER DISK: ";TX$:TX$""5104110004D$"PREFIX"TX$4708035D$"CLOSE":D$"OPEN CHARAROUTINE WILL MOVE AN ADVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTER MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED."3v:"THE CHARACTER NOW LOADED IS:"::(40(NA$(C)))2:NA$(C)94:"IF THE CHARACTER IS ALREADY LOADED, INSE"" 2P2:8:"SHORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";2::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)""Ė21:"(?)";DD$(I);2:2S$" ":720:60002X /// MOVE CHARACTER 2bC0SUB1:10003l:"THIS RS,R0":NC:1ZD$;"WRITE CHARACTERS,R1"::D$:NC0:410T1/// CHAR LIST/DELETEb1:I1NC1:"RECORD #";I;": ";NA$(I)1" KEEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)11160001/// SHORT LIST2I1NC:DD$(I)""S$ER ON THIS DISK!!!"h0(::" DO YOU WANT TO DELETE ALL THE":" CHARACTERS ON THIS DISK? ";A$02A$"Y"ĺ::13:"ARE YOU SURE? ";A$0<A$"Y"60000FD$"CLOSE":D$;"DELETE CHARACTERS" 1PNC1:D$;"OPEN CHARACTERS,L150":D$;"WRITE CHARACTEO%(K,J1):WD%(K,J)WD%(K,J1):WS%(K,J)WS%(K,J1):D/UP(J)1:JV/NCNC1:ADD1/I:::16)"DONE":I1500:I:6000//// INIT FILE/ :6:16::"WARNING":/I13:(7);:0::" THIS SUBROUTINE WILL DELETE EVERY CHARACT:SEX$(J)SEX$(J1):GOLD(J)GOLD(J1):BANK(J)BANK(J1):HD(J)HD(J1):AG(J)AG(J1):CH(J)CH(J1).`K14:SA%(K,J)SA%(K,J1):.jK15:WA%(K,J)WA%(K,J1):.tAC(J)AC(J1):AE(J)AE(J1)5/~K14:WN$(K,J)WN$(K,J1):WT%(K,J)WT%(K,J1):WO%(K,J)WILE":S$;"4. INIT FILE":S$;"5. LIST/DELETE CHARACTERS"c-S$;"6. RETURN TO MAIN MENU":X6:600-S6100,6800,6200,6400,6600,510-///LIST FILE-AU1:C0:1300-8/// CONDENSE FILE-BI1NC-LNA$(I)""6300b.VJINC1:NA$(J)NA$(J1)AG(C)WA%(WT%(I,C),C)WO%(I,C);"%":,:SUB2SUB0:C,720[,AU1CNCAU0:C0j,AU11300},SUB1SUB0:,510,p /// FILE MAINTENANCE ,z:8:" SELECT ACTION:":9-S$;"1. LIST FILE":S$;"2. SHORT LIST":S$;"3. CONDENSE F+x:"WEAPON INFORMATION:"N+" NAME TYPE CMPLX DMG ODDS";Y+I14+WN$(I,C);:19:WT%(I,C);6((WO%(I,C))));WO%(I,C);"%";%,7((WD%(I,C))"D"(WS%(I,C))));WD%(I,C);"D";WS%(I,C);5((2AG(C)WA%(WT%(I,C),C)WO%(I,C))));2RD:";:30:WA%(5,C)#*(A$"NONE"G*2AC(C)1A$"SHIELD ONLY":5220g*<AC(C)1A$"LEATHER ARMOR"*FAC(C)3A$"CHAIN ARMOR"*PAC(C)5A$"PLATE ARMOR"*Z(AC(C)2)AC(C)2A$A$" & SHIELD"*d:"ARMOR: ";A$+n" EXPERTISE: ";AE(C);"%"";:21:"1.AXE:";:30:WA%(1,C)])" BLAST:";:12:SA%(1,C);:21:"2.BOW:";:30:WA%(2,C)) " HEAL:";:12:SA%(2,C);:21:"3.CLUB:";:30:WA%(3,C))" SPEED:";:12:SA%(3,C);:21:"4.SPEAR:";:30:WA%(4,C)*" POWER:";:12:SA%(4,C);:21:"5.SWO(:SEX$(C)"M"ĺ"MALE";9(SEX$(C)"F"ĺ"FEMALE";J(20:"GOLD:"("HARDINESS:";:12:HD(C);:21:"IN HAND: ";GOLD(C)("AGILITY:";:12:AG(C);:21:"IN BANK: ";BANK(C)("CHARM:";:12:CH(C)(20:"WEAPON ABILITY:"!)"SPELL ABILITY:I1NC:NA$(I)NA$(0)Ăa'NA$(I)NA$(0)ĺ:" THAT NAME IS ALREADY BEING USED.":720:'NCNC1:CNC:ADD1:UP(C)1:NCFULLFULL0'4610' /// DISPLAY CHARACTER ':"RECORD #: ";:SUB1ĺC1;'SUB0ĺC;(15:"NAME: ";NA$(C)CTERS,L150":D$"READ CHARACTERS,R0":C2:D$:70805216,0::" SELECT ACTION:":S$;"1. ADD CHARACTER AS NEW":S$;"2. REPLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:6005S7200,7300,7800,76006 /// ADD NEW CHARACTER+6*IC21:7700Q64D$"WRITE CHARACTERS,R0":I:7530l6/// REPLACE CHARACTER6C20S1ĺ:"***NEW FILE***":70807:" SELECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2. REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MEu IY oW "p X0#ʽ/a8  Q0  " 1 "'!# , * ꣣ʹ  먤˩˪ˮ˥ & "$ ! 0 + "H !O :"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"8:"EAMON ADVENTURE #NNN"::"ADVENTURE NAME"::"BY AUTHOR"15:"LAST UPDATE: N/N/NN".ROOMS,R"I0 ZJ17:RD$(I,J):::D$"CLOSE"P _I1NR:R$(I)(34)R$(I):n dD$"OPEN EAMON.ROOMS,L64" nI1NR:D$"WRITE EAMON.ROOMS,R"I xR$(I):J17:RD$(I,J):: D$"CLOSE"  D$(4)JD$"OPEN EAMON.DESC":D$"READ EAMON.DESC":NR:D$"CLOSE"fR$(NR),RD$(NR,7),L(NR)(D$"OPEN EAMON.ROOM.NAME,L64"2I1NR:D$"READ EAMON.ROOM.NAME,R"I<R$(I)::D$"CLOSE"FD$"OPEN EAMON.ROOMS,L64" PI1NR:D$"READ EAMON FME$(NA$,2)Ă:500x PD$"WRITE CHARACTERS,R";R:NA$:D$"CLOSE"::"O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.": "I CAN'T FIND ANY DEAD ";NA$:D$"CLOSE"  D$(4):Z:5:"INSERT MASTER DISKETTE AND PRESS"::" ANY KEY":A$:D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$("CHARACTER TO BE RESURRECTED:";NA$2R1NC:D$"READ CHARACTERS,R";R:N$:ME$ <N$""Ă:500I):GOLD(I):BANK(I):AC(I)`=#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$o=#D$"CLOSE"u=#=' ///ONERR ROUTINE ='768=$'NC1(222)5NC0:410=.'D$;"CLOSE"=8'D$;"OPEN CHARACTERS,L150"=B'410<>*(222)6ĺ::($:9$\% d# %L#\% %L<$\% %L7$8 (+  hhhhۘHH d#$ * i# % d#[% % *ݮ$L$ $H$H`.  $$$$$$$$[% (+[% `[% %L$[% d# %L$[% %L$ (*%#ܦ# E"!( (`# E"(*)+ E"!(* (*%"ܦ" E"!( (`$%LE"?2`2` La"((((PPPP#8 (+' *CHOOSE: % % d#\% %$` * #L# #H#H`.  YyNn$.5^8CD "2&'!#" E"!( (# $"%&H s#(t#)J&%h``"HH`") + +> 2 $20 )@`%2 "$$! $%%#% "hh`"`$ $!$%"%L"""H% E"$h(""`" E"(*)+ E"!(*H a"hL*I. a"` /` 2/` ]/b//.33/`P , 0L @ ȁ/L,/J03333`/ /0L///L/0/ / /8/ /6 8L// /` , 3 /`L, 0M0N0K0 L0L0M0N0K0L0M0eN0e 3 I0`HL=L, X0`A@`@A@`0HiE] h0` 0`11 1111 11111ɰ1,101 %<:>i 0333333 Π3 ̪3` ,. K2'T@ ) * Ǡ˺  a" *@mi:>i 0'# Y@ @ύW@X@ɛɮ 3` '@p 0 @ϥ͢'L>M08鑍N0ɛɮ Х3:L7Le: ?L p 0 @L=M08鑍N0K0L0 0 ? Ѡ3 Υ3528;>62<>72=> Х3LE ;:>>)?.....@m5262 72 ;> <> =>ѩ)ҩ J<Щѩ1ҩ J<`NF؎4<5< 1:>`ЁȱЁӠJӡ)ʊӱjjJJJJʊ``72 62LE ) * Ǡź  a" L3@mi:>i 0 @ؠŮӠԠŠŠ٠ŠĮŠǿHH D2 <3hh Щѩ ҩ J<Щѩҩ J< ;`;; 10` D2 <!<@ /ɅЩ.ѩ!ҩ J<ŅЩ.٬^8^8ج^8@@ K2. 3LQ: 27 ELQ: <ͺП͹Зm  m 333 Υ3 D2Щѩҩ J< ;  / 0 7L ADD:ADD DISK:ӠŠӠԠH \$9H 9H`998HH:HH ]% 0L LY9ʎ@@ ѥ3 Υ3 >>H 3h Х3L   Lx: 'n5H:HH@ F 0L ' [0@ b) ѥ3 Υ3ة p)轀L9ة ٠ * ľ #3 #3 #3 *L(+SHRINK:SHRINK DISK::ۅ H:HH F 0L b) p)::: c//// /0 / ݆3L8:L1 ;  &; D1L :H /G , 1L7L c/ Q;0 0ة ٠)@7)?٬^8^8ج^8@@ K2. 3L7 27 EL7 <ͺЖ͹ЎL7 Q;333 Υ30 0 0L 0 +/L H8HSH F` +8 (+ ʎ@@'H'H'H 7h'h'h' /GL, 1L46L c/ Q;0 00333 >>H 0 3h +/L 7L 'n5 H8HDH@ FL ' [0@ b)0333ة p)'ܑ)?]8٢轀]8L6 7ɢ  I I!`K0L0 0 ? Ѡ3 ;:>' @LL?>?@m..  > > ;> <> => %< Υ3:>i 0 3`e;><>=>` 13 ʐ3L- ,3#֭3ip׬3ץɀL@` 13pV@ S@L, 2V@V@W@X@V@ɀ`p')p,'0Lm@ @μ@/ɪɖ꽌8*@-@`` C C BAA B8 B Br IY oW @!p Ǧ.#ʽ/a8  .  @! / "'!# * m( ꣣ʿ  먤˩˪ˮ˥ & "$ -! .) m( ѭ a" i#LL)vL i# a"sL d#ȱ a"vL8vL a" . a"ܪȱ 0 a"i!Хiѥ%2 ^2Li# *Ԡپ a"Li# *ԠԾ a"Li# Q0Ƚ P P'PȌjG b)LI1LxH2)012)xKH wKh) Q0LG CHOOSE PATH..H d#sLhLKsLHuL E"hLwLpG LLʊʎtL b)tL )tL d#$)vL)𨩾! `)vLȱ vL詯 Q0,LG)/jG K Q0LGL/KLI d# +$ a" .(G( &(( ' Ȍ  )/ Ȍ {KK  Q0LGL.GpGoG ʽ )/ GoGnGޠ0!nG'РܮK 'L?I 'L?I)?'ܭjG K,mG0LIjG( KuL"ʊLnIH "#huLjGjG KmGLxHjGkG KuL# H "huLjGjG KmGLxHHHKHH ]% 'LGjG`pG"'nG ' &. ζ. ʮ. L8`8 ,8`lG)pGа`)ܢ(L)uL KkGHuL Kh%#` *K')ݿH)oGx(H(  'LI HHHH`.   / UuHHIIHPIPIIII]J.KHH '`LxHKjGp*oG *ź #"' qGLdG d# + * a"' i# RHuLjG xHH !h` Ȩ.hhLIPkG b)....+...lGlG ζ. , G 7HkGPP ̦.8`kGpGkG ̦.`lG lG ϶..i.FL ,FFFF FF@ Ѡ3 Υ3 ;>)?.....@m52 62  72  %<:> 0333333 Π3 ̪3` ,p@p@oGpGnG !hhhhh$HH d# ΠčĠٺҠǠӍïϠ٠ӍؠΠōͬˠź * (+L /FFJ0F F ) * Ġź  a" L3@mi:> 0ɛ` 13 8鑍N0K0L0 0&D#D#D&D#Dɷ꩑&Dʆ`8 (+% *ABOUT...ԨͩӠؠōٮΠ͠ӍɫԮȠōŮŠōȬԠϠԠ̮ԠӠCPCPCCɑ`p3e8 |C |C |C8eɀ` |C `pCCCCCɀhh`` B8 B B B`M0LA /B ɶ C`LGBIFjf=Bȥ yB)JJJee ɶ Ci`hhLC ?H ɶ Ch`ɶLC ȄA AJJJJ E E**iPLA) ȱLA 8  P  8  PP i i@)ҠȱLA ȥȥ /B LAJJJJ խ L !L;-L2 "'!#L* "2&'!#" y!!( (# $"%&H "(")J&%h`!HH!) + +> 2 $20 )@`%2 "$$! $%%#% "hh!`$ $!$%"%.8-. ..6 8L./. +.`LM ]+ )1 B.`L]+ 0... .Ls......e.e )1 ˗.`L]+ Ʀ.`A@`@A@` .`+/,/ -/+//,/ /,/+//+' @ . @! eG-Tَ,ʈH !hL!), !` {-` -` ȹ--C.-q2v2,.`P ]+ .L @ -L]+-.[2c2h2o2`H-...hL.0-. .. ) =) ) )Lx '+GHLNW&,0,@,S,_,q,},ɯϠŠŠŠĠƠŠƩŠŠӱӕ!$ !! !"Ȅ% $ "!$ "%%# # " !$ !! " !"# "LW!H)h, )1 "8 )#  m( ERROR:,, ,ڽ,۩ S)L+, m(̠Ҡ, !)L+ m(ӠҠ, !),a,b m(hh !) ! hhۢ۱ڕ HH" y!H H(h!h#٭  * )`8`ʊ )ፃ)e !"#" y!H H(h!h#ح)ୃ) % y! )` " " " w( )Lw((((((((((()H)JJJJ .)h) 0:iL!),a R)` y! !LY)` y!!$%2 "$ %2L")))(*Ls*)`hh۩eڐۅڥHH )8` L)ʊ )ፃ)!h$ !L" ! !L" !L"b1 "%!# *LW!hh׊HHנ M ) !Lw( )H )H`hhHH`ױօ$ױօ%Lw(ױօ$Lw(ױօ%Lw( "Lw( "Lw( "Lw(0%Lw($Lw(ױ֍ )L>'='>'H='H`Ԙ?'?'@' ` A'Li& !Li& $-' "`-'L"' ",' Y')`0 ⮜'Ң' Y'?V&V&QV& '8``ܩQݩV&` '`)?ܙ8`i'ܐ`"$H Q%P& O&) 8`Ȍ `L. H$ y!)?h a'&S@').(/ ?'!a)[A:L&. ȑHh-' "$Li& &H&H` &&&')'/'/' A'hh?'?'@'='%2)NW%C)JJJJ,%i C%D%BFG &@"ȍ%%`#%%`%`%`% Q)%`%i y!$ z%%Q) Q !$ !$ !%QJJJJ) ! ! !Q !L% !L"% $% %%%L#N%% " % =) U$L9$ a$H`$H`.  $$$$$$$$### m( ϠŠ =)%L9$ )` $ & /% ) `%ʊL9$ %%%%L3$%͠L9$ %%%%L3$12)# #$` =) &#L # 1#H0#H`  YyNnC#J#T#T#T#T#t#t#}#}# )` )# `# ##Li## " #L ## #Lg## #Lb#H#$ #ڹ#۩ S)hL""##ӠϠ "8 )$ hhhhh%h%HH "$ S) " &%% z%$L!""H% y!$h(""`" y!(*)+ y!!(* (*%#ܦ# y!!( (`# y!(*)+ y!!(* (*%"ܦ" y!!( (`$%Ly!?2`2` L!((((PPPP"8 )' m(CHOOSE: # # "/ɰ-/,-/0*/ !` d' " m( ( ! #U/HT/H`W/ L-HH " m(ԡhhڅ۩ S) #/H/H`//``HH8 )%  m( ALERT!hhڅ۩ S) m(Ӡ =) )L ]  >  I I! `+0E] +0` --K0S2m2L>0 J0`L]+ J0`L]+ ` -` )-` ]+ m(Ϡ`) 0 ! ! !jjJJJJʊ 0 !J 0 ! !`έ­ҭҭ٭έ̭ǭЭԭ֭í c?  8@ȥȥ L=Li> ȱ ȱ Iȥ && L}> ȥ9>>e)JJJe  ɶ!` H7.7~7I~787$~7F.7G.~7E. 3. < Y? Y?u7)))`6) c? G> ʥ 8@ȱȱL=Ѣ~<_2 Z2T` b2_2}<]2]2}<`]2]2e2f2e2f2}<~< b2 b2L5< Z2H . -h ]+<i< <L]+<<<<<ͳ . ;# ; ;R( m(ӠǺv78x7w7y7 . " e) m( Ǡź  ( m(QЩ ѩҩ- f8F -J -K - z2 t-G@ ]+LPB --K0L0 M0 N0B ,-F --J .-K /-YЩ ѩ3ҩ- f81? < OĮſԠĠȠԮпĠŮпĠ̠ԠԮп҈РȡБѠ ѡЪ芢ѡЪ芢 *ґҡЪ芢 ҁ`88 00`88 06 ` 3)8 )  m(  :1 :1 :1 =) )L `@ )@ )@ /a8 `UNSHRINK FROMUNSHRINK TO (800K) DISK:DESTINATION FOLDERԠؠŮҠҠĮſҠ .L6-. . 8L6 @L6K  8707L<61747HH7HH #^K  %Ȱ n %# I8 [/97..u7 -. .L6-. . %:H )1hr7L s7n7o7 $;4 5 )7 [/L p7q7p7 q7 . 7L L77: E2; F2< G2E2.F2.G2r2mE2r2s2mF2s2t2mG2t2 - ~7 777 7 7 u7777~7mr2r27ms2s27mt2t27: К7; ВL6 p2t7]r7r7H7HH JL -C.-u7)..u7 -.q7 . 7L -6 ʽ0 -... . u2 $;L3r7x7y7) -0 8N20 L47 [/s7L4L N 38 [/s7s7L66 ʽ0 +ʽ0 %A!-... . 0n7o7 u2 c1 >7" ' -s2t2 - }30 0r2z7 p2L3 5G.L'  }3z70 ʈL3 .7L/H2`8` Cp7q7x7y7r7ة ٭S&v7T&w7S&T&L v7x7w7y7 . 7L p7 ȱ)q7Mp7q7p7 L*2 p2 A-... . u2w2r2x2s2y2t2`NFlNFq22 )/ ﭶ2`Hʎ 2hL2G ]+ H7HH JL S& .@ ' ' . -! "  ii`8 `%# %)p`%# %)p`,0 `b1# e)b1$ !`L02w2r2x2s2y2t2: E2; F2G2E2.F2.G2r2mE2r2s2mF2s2t2mG2t2C2D2 -7 mr2r2 ms2s2mt2t2C2D2C2: ȭD2; 7L?78$7΀7F.$G.D.E. 3. h` Y?8HHL? H >h``u7)  8@ȥȥ 驂 O@t7 hhL= &eeiQ` `Hh8e `C.AB R( m(ӠǺv78x7w7y7 . " e) m( Ġź  K S& &! `)Pȱ ̏P詯 .,L7K)/K O .L7KLHOLM " e)$ ! G='K>' &@'?' W& Ȍ  )/ Ȍ ĔOO  .L7KLGKKK M U&`LLOKKꭈK孇Kޠ0!KS&РܮO S&LXM S&LXM)?S&ܭK O,K0LMK( OP"ʊLMH V"hP΃KK OKLLK̈́K OP# H "hPKK OKLLHHOHH # =&L7KK`K"S&K K --i-- - - L8`8 ]+8`K)𼭉Kа`)ܢ(L'P OKHP Oh%#` =)OU&)L)K㢑='L>'  W&LN LHLH`.   / UuMMMNMiMiMMMMvNGO M-!hhhhh$HH " S)K m(ź W!S& KL}K " e) m( !' " kLPK LH -!h` -hhLMQK ' - ---+---KK - ]+ K PLKQQ -8`KKK -`hԆթJ GJ GJJ GJEMJ GJiԥiJJ`HJ h `JJ8J3IiJ.JNJ.JJJJ JJ JIΰJ뭴JJ` JV `%C)JJJJ,%i JJBDEFG `L]+KKK xI J ,I`ϥ% J UJL IJ`gԆՠ2J801݌LUIIL^IHhɀꝍ݌콎`+L]+gԆՠI IJI I󢫩I I II IΰJ`I I``ժުժު N- ! !3 m(L`H m(ˠL`H m(ˠL`H$ɩ ! !) !)$0`)> "L"* "L"i&ܐ`8&ܰ`8 )   m( Ǯ% x H(` J`%H)pJh轊J#JJ UJJE0 " "))ܩ !S&T&S&GЖLFS&T&R)Pp ܩ> "LhG ܩ* "S&T&GLFLF0 ")H !H ! m(LG m(ŠLG m(ˠ$ m(L Hȱ& S&  " GܩQݩک ۩HH)&H۱)@ H L\FHHHH H  HL4F`H H LEHH " G H00 "0 " GGLEHH/ " G0  V"LF0HΛHΚH H " GGLHH H  $;LDz7w2x2y2 u2ܩQݩHH " G "0HHH H ( H GHHH H 00ة 0HHGܩQݭ   =) )ELE EHEH`. Pp EEEEGGGFFFFL T&SŠō 0"ܩQ -N20 LPDHHL H H L"E6 ʽ0 -... . u2 c1 E!E - E!E E: !E; ܭܠ 8 ȭF ȭJ ȭK ܠ$> ȭ HHHHC "sCsCsC 7CLBsC 7C "sCsCsC 7CLBQC$ TCڹUC۩ S)L"ZCcCjCŠР̠ )-,-) Í,- )- - )C CHCH`29@ )`HHS&T&) W!# " " '0 m(Ӻ . m(EBMB /B O0 n2 i0` n2 -` n2 -` @B HB`q@q@C8 )#  m( FILE EXISTS: 7C 7C 7C "sC 7C " e)H " (h =))BLB BHBH`.  BBBCCBB )L sC BHBH`sCCBsC 7( m(QЩ ѩҩ- f8F -J -K - z2 t-G@ ]+LPB --K0IBL0 M0 N0B ,-F --J .-K /-YЩ ѩ3ҩ- f8L0BDBLB@EBMBɛ`hd H1BB>B /BLA