L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`OD,QUEST FOR THE HOLY GRAIL,EVAN HODSON,PROD4R CITY IN THE CLOUDS,EVAN HODSON,PROD,MUSEUM OF UNNATURAL HISTORY,RICK VOLBERDING,PROD,DAEMON'S PLAYGROUND,RICK VOLBERDING,PROD,CAVERNS OF LANST,RICK VOLBERDING,PROD^54S ALTERNATE BEGINNER'S CAVE,RICK VOLBDON BROWN,PROD,UNDERGROUND CITY,STEVE ADELSON,PROD,THE GAUNTLET,JOHN NELSON,PROD,HOUSE OF ILL REPUTE,ANONYMOUS,PROD3R ORB OF POLARIS,JOHN NELSON,PROD,4lR DEATH'S GATEWAY,BOB LINDEN,PROD,LAIR OF MUTANTS,EVAN HODSON,PROD,CITADEL OF BLOOD,EVAN HODSON,PRPLAMONDON,PROD,TEMPLE OF NGURCT,J&R PLAMONDON,PROD,BLACK MOUNTAIN,JOHN NELSON,PROD2@Q NUCLEAR NIGHTMARE,JOHN NELSON,PROD,ASSAULT ON THE MOLE MAN,JOHN NELSON,PROD,REVENGE OF THE MOLE MAN,JOHN NELSON,PROD,TOWER OF LONDON,F&S SMITH,PRODs3Q APPLE ISLAND,JOHN NELSON,PROD1xP CAVES OF MONDAMEN,JOHN NELSON,PROD,MERLIN'S CASTLE,RANDALL HERSON,PROD,HOGARTH CASTLE,KEN NESTLE,PROD,DEATH TRAP,JOHN NELSON,PRODR2P THE BLACK DEATH,JOHN NELSON,PROD,QUEST FOR MARRON,JOHN NELSON,PROD,THE SENATOR'S CHAMBERS,JAMES ACOBSON,PROD0O ASSAULT ON THE CLONEMASTER,JIM JACOBSON,PROD,MAGICAL KINGDOM,DAVID COOK,PROD,TOMB OF MOLINAR,DON BROWN,PROD,QUEST FOR TREZORE,JIM JACOBSON,PROD1P CAVES OF TREASURE ISLAND,G.GENZ/P.BRAUN,PROD,FURIOSO,WILLIAM DAVIS,PROD,HEROES CASTLE,BEGINNER CAVE,DON BROWN,PROD,LAIR OF THE MINOTAUR,DON BROWN,PROD,CAVE OF THE MIND,JIM JACOBSON,PROD,ZYPHUR RIVERVENTURE,JIM JACOBSON,PROD 0LO CASTLE OF DOOM,DON BROWN,PROD,DEATH STAR,DON BROWN,PROD,DEVIL'S TOMB,JIM JACOBSON,PROD,ABDUCTOR'S QUARTERS,JIM JDVENTURE.LOG,L64":D$;"WRITE ADVENTURE.LOG,R0":NA|.:A1NA:UP%(A)ĺD$;"WRITE ADVENTURE.LOG,R";A:AN$(A):DN$(A):ST$(A).::D$;"CLOSE":. N === INIT FILE ===.*N:NA:X1NA:AN$(X),DN$(X),ST$(X):.RN15000:100.N 66/N MAIN HALL & :US%(A)ĺD$;"WRITE SPECIAL.LOG,R";S:SID$(S):SN$(S):SAU$(S):SC$(S)Z-2:D$;"CLOSE":t-6 === SPECIAL LABELS-9TI$"Special Eamon Diskette":MT$SN$(A):ST$SC$(A):SB$"Copyright (C) 1983 BY "SA$(A):7900:-: === WRITE FILE ===2.:D$;"OPEN AN"11030, +A$:A$"N"100',*+12000@,. === BUILD SPEC ===,.:XX:X1XX:A$,A$,A$::NS:X1NS:SID$(X),SN$(X),SAU$(X),SC$(X):,/13000:100,2 === WRITE FILE ===,2D$;"OPEN SPECIAL.LOG,L128":D$;"WRITE SPECIAL.LOG,R0":NSF-2S1NSREAD SPECIAL.LOG,R";S:SID$(S),SN$(S),SAU$(S),SC$(S)::D$;"CLOSE"O+`'216,0:k+* === ERROR ON SPEC ===z++216,0:D$+ +8:958::"CONFIRM";::" - DO YOU WANT TO RE-INITIAL":"THE SPECIAL DISK FILE?"::"PRESS 'Y' OR 'N' ";,+A$:A$"Y"A$" DISKS"*'9000U*$':D$;"OPEN ADVENTURE.LOG,L64":D$;"READ ADVENTURE.LOG,R0":NA*.'A1NA:D$;"READ ADVENTURE.LOG,R";A:AN$(A):DN$(A):ST$(A)::D$;"CLOSE"*8'11000*B'D$;"OPEN SPECIAL.LOG,L128":D$;"READ SPECIAL.LOG,R0":NSB+L'S1NS:D$;"IAL":"THE ADVENTURE FILE?"::"PRESS 'Y' OR 'N' ";Q)<#A$:A$"Y"A$"N"9020e)F#A$:A$"N"100p)P#20000)' === TABLE FILE ===*'AN$(100),DN$(100),ST$(100),UP%(100),SN$(20),SID$(20),SAU$(20),SC$(20),US%(20):TH$(0)"ADVENTURES":TH$(1)"SPECIALSA$(S1)SA$(S):SI$(S1)SI$(S):SC$(S1)SC$(S):US%(S1)1:(!SN$(AW1)SN$:SA$(AW1)SA$:SI$(AW1)SI$:SC$(AW1)SC$:NSNS1:US%(AW1)1:LKī8520(!100((# === INIT FILE ===(-#216,0:D$3)2#8:958::"CONFIRM";::" - DO YOU WANT TO RE-INITIALd'H!10:958:"AFTER WHICH DISK NUMBER (1-";NS;:")";AW$:(AW$)0(AW$)NS((AW$))AW$100r'\!AW(AW$)'!12:"DISK NAME:";SN$'!14:"SUBTITLE:";SC$'!16:"AUTHOR'S NAME:";SA$'!18:"DISK ID: ";SID$<(!SNSAW11:SN$(S1)SN$(S):NAME:";AN$(&14:"AUTHOR'S NAME:";DN$A&16:"STATUS : ";ST$&CHG1:ANAAW11:AN$(A1)AN$(A):DN$(A1)DN$(A):ST$(A1)ST$(A):UP%(A1)1:&AN$(AW1)AN$:DN$(AW1)DN$:ST$(AW1)ST$:NANA1:UP%(AW1)1:LKī8020&100'4! == INSERT SPEC(ST$))2);ST$)%"(27);(72);(20);"";L%,(60(SB$))2);SB$:(18);""R%6h%@ === INSERT ===u%JSS8500%T10:958:"AFTER WHICH ADVENTURE NUMBER (1-";NA;:")";AW$:(AW$)0(AW$)NADV((AW$))AW$100%hAW(AW$) &12:"ADVENTURE );(71);(29(AN$(A)))2);AN$(A)<$(27);(72);(20);" "G$30000$"Copyright (C) 19";YY;" BY ";DN$(A);" * DOS 3.3":(18);""$$ === SPECIAL LABEL ===$(15);(60(TI$))2);TI$:$(14);(27);(71);(29(MT$))2);MT$%(60# === SETS OR GROUP?S#10:958:"AS SET OR GROUPED?":"INPUT 'S' OR 'G':";t#SG$:SG$"S"SG$"G"7620#SG$:#D$"PR#1":X1N:ABE:7800:::D$"PR#0":100#x === PRINT LABEL ===#(15);22);"Adventure #";A:!$(14);(27"MAJOR TITLE:";MT$/""SECONDARY TITLE:";ST$G""BOTTOM LINE:";SB$s"D$"PR#1":X1N:7900::D$"PR#0":100"LSG$"G":N1İ7600"VSG$"S"7700"`D$"PR#1":ABE"jSSāX1N:7800:::D$"PR#0":100#tX1N:14800:::D$;"PR#0":100INGLE LABELSO!*10:958:TH$(SS);(8);:" #:";A$:A(A$):A$""A1ANR100{!/SSĺD$"PR#1":X1N:14800::D$"PR#0"!4SSĺD$"PR#1":X1N:7800::D$"PR#0"!>LK7210!H100! === CUST. LABELS!10:958:"TITLE (1ST LINE):";TI$"):N0N1 v, (A$)1B1:ENR:7500H (A$)17100,7200,7300_  === RANGE LABELS 10:958:"INPUT RANGE AS BB-EE:";A$:X1(A$):(A$,X,1)"-"B(A$):E((A$,X1)) :B1BNRBE7110 ENRE2BE7110 7500 !  === S"SELECT LABELS FOR:":" 1. ALL ";TH$(SS);" PRINTED":" 2. RANGE OF ";TH$(SS):" 3. SINGLE ";TH$(SS);(8);" "g" 4. CUSTOM LABEL":"INPUT YOUR CHOICE (1-4):";lA$:A$"1"A$"4"7020 qA$:10:958:"HOW MANY LABELS (DEFAULT = 1):";N$:N(N$$"C"6550 A$:A$"O"6600XANS:SN$(X)SN$(X1):SID$(X)SID$(X1):SAU$(X)SAU$(X1):SC$(X)SC$(X1)::NSNS1:100 === LEAVE OPEN ===SN$(A)"(OPEN)":SID$(A)"":SAU$(A)"(NOBODY)":SC$(A)"":100X === PRINT LABELSpb10:958:(Y OR N):";)LA$:A$"Y"A$"N"6220@VA$:A$"N"ġ:100L`DLT1:ed === DELETE SPECIALn8:958:"SPECIAL DISK # TO DELETE:";A$:A(A$):A1ANS100:"LEAVE OPEN OR COMPRESS LIST?":" (ENTER 'O' OR 'C') ... "; A$:A$"O"AKXANA:AN$(X)AN$(X1):DN$(X)DN$(X1):ST$(X)ST$(X1)::NANA1:100d === LEAVE OPEN ===AN$(A)"(OPEN)":ST$(A)"NONE":DN$(A)"(NOBODY)":1008 === CONFIRM DELETE === B8:958:"ARE YOU SURE YOU WANT TO DELETE ":AN$(A);"?":"INPUT TO DELETE:";A$:A(A$):A1ANADV100oST$(A)"PROD"ĺ"CANNOT DELETE A PRODUCTION ADVENTURE.":39000:100ST$(A)"TEST"İ6200:"LEAVE OPEN OR COMPRESS LIST?":" (ENTER 'O' OR 'C') ... ";A$:A$"O"A$"C"6050A$:A$"O"6100ITLE : ";SC$(NS1)714:"AUTHOR'S NAME:";SAU$(NS1)SSNS1:NSNS1:LK4500\100s === QUIT ROUTINEADDCHGDLTİ15000ASCSDSİ13000D$"CLOSE":::37,255:p === DELETE ADVENTUREuSS6500'z8:958:"ADVENTURE #UTHOR'S NAME:";DN$(NA1)7"12:"STATUS : ";ST$(NA1)S,ANA1:NANA1:LK4100\61006:958:14);"SPECIAL DISK #";NS1:US%(NS1)18:"SPECIAL DISK NAME:";SN$(NS1):SN$(NS1)""10010:"SPECIAL DISK ID:";SID$(NS1)12:"SUBTLKAA1:ANS3530#1008 === ADD RECORDo:10);"EAMON ADVENTURE LOG":14);"ADD A RECORD"SSAS1:4500ADD16:958:14);"ADVENTURE #";NA1:UP%(NA1)18:"ADVENTURE NAME:";AN$(NA1):AN$(NA1)""10010:"A:";SAU$(A):3700714:958:"NEW ID:";SID$(A):3700c14:958:"NEW SUBTITLE:";SC$(A):3700yt === CHECK DONE~16:958:US%(A)1:"MORE CHANGES FOR THIS RECORD? (Y/N)";A$:A$"Y"A$"N"A$"y"A$"n"3720:A$"Y"A$"y"3530E (MAIN TITLE)":" 2. AUTHOR NAME":" 3. DISK ID":" 4. SUBTITLE":" 5. RETURN":"INPUT YOUR CHOICE (1-5):"; A$:A$"1"A$"5"3550 A$:(A$)3570,3580,3590,3600,100 14:958:"NEW DISK NAME:";SN$(A):3700 14:958:"NEW AUTHOR NAME>>>> CHANGE SPECIALL CS1:8:958:"SPECIAL #:";A$:(A$)1(A$)NS100o A(A$):A(A)ANSA13510 8:958:"SPECIAL #";A:" ";SN$(A):" BY ";SAU$(A):" ID:";SID$(A):" SUBTITLE:";SC$(A):p "INPUT FIELD TO CHANGE:":" 1. DISK NAM;DN$(A):31007 13:958:"NEW STATUS:";ST$(A):3100L === CHECK DONE& 16:958:UP%(A)1:"MORE CHANGES FOR THIS RECORD? (Y/N)";0 A$:A$"Y"A$"N"A$"y"A$"n"3120: :A$"Y"A$"y"3030D LKAA1:ANADV3030N 100 CHANGE:":" 1. ADVENTURE NAME":" 2. AUTHOR NAME":" 3. STATUS":" 4. RETURN":"INPUT YOUR CHOICE (1-4):"; A$:A$"1"A$"4"3050 A$:(A$)3070,3080,3090,100 13:958:"NEW ADVENTURE NAME:";AN$(A):3100  13:958:"NEW AUTHOR NAME:"00:PC0:: + >>>> CHANGE ROUTINE8 SS3500v CHG1:8:958:"ADVENTURE #:";A$:(A$)1(A$)NADV100 A(A$):A(A)ANAA13010 8:958:"ADVENTURE #";A:" ";AN$(A):" BY ";DN$(A):" STATUS:";ST$(A):n "INPUT FIELD TO T/IDPRTĺD$;"PR#1"%SS2200qPC0::A1NA:2((A)));A;". ";AN$(A);29(AN$(A)));ST$(A):2500:39000:PC0:100PC0::A1NS:2((A)));A;". ";SN$(A);29(SN$(A)));SID$(A):2500:39000:PC0:100  PCPC1:PC20İ390LP1 b!l >>> PRINT LINExvSSĺ2((A)));A;". ";SID$(A);" ";SN$(A);34);SAU$(A):" ";SC$(A)::LPLP1:2((A)));A;". "AN$(A);57(AN$(A))(DN$(A))((A)));DN$(A);10(ST$(A)));ST$(A)LPLP1 === LIST NAME & STARGHTĺ2((A)));A;". ";AN$(A);:RGHT1:Z40((A)));A;". ";AN$(A):RGHT0:LPLP1`y === PRINT ADV/AUTHSSĺ2((A)));A;". ";SN$(A);28);SAU$(A):LPLP1:&2((A)));A;". "AN$(A);57(AN$(A))(DN$(A))((A)));DN$(A)0LPPRTĭLP55İ40300("::PRTİ39000:.6N@ === PRINT ADVENTURE ONLY{JSSĺ2((A)));A;". ";SN$(A):LPLP1:^2((A)));A;". ";AN$(A)hLPLP1 === PRINT 2 COLSSĺ2((A)));A;". ";SN$(A);40);SC$(A):LPLP1:+000:100# L === PRINT REPORT ===L jRGHT0:FR6SS0:1500:SS1:1500:X ~1500:r  === PRINT LIST === NRNA:SSNRNS :40300:A1NR:ST$(A)SS$SS$"ALL"1570 FR1600,1700,1800,2000,1900,1700 (37)20PRTİ39000:3000,4000,6000,7000,9000,50002  === PRINT LISTF :40200:N$"1"~ PRTĢ8:958:"NUMBER OF COPIES:";N$:N$""N$"1" N(N$):PRTĭ(N$)0(N$)1001020 40100:CLĄ"DATE:";DT$ PRTĺD$;"PR#1" $COPY1N:1100: BD$;"PR#0":39X A$:A$(16)PRTPRT:6:18::("SCREENPRINT ",PRT61,6)::19:25MG:868:500 A$(3)Ģ8:DT$"":19::CLCL:("CLUB",1,4CL);::" ":19:25MG:500 &A$(12)50000 0A$(19)50100 XA$"1"A$"8"500 :(A$)1000,8000,);"1. PRINT/DISPLAY LIST":MG2);"2. INSERT ";TH$(SS):MG2)"3. CHANGE ";TH$(SS) MG2);"4. ADD ";TH$(SS):MG2);"5. DELETE ";TH$(SS):MG2);"6. PRINT LABELS" MG2);"7. RE-INITIALIZE FILE":MG2);"8. QUIT":MG);"INPUT YOUR CHOICE (1-8):";NRNSO 14);NR;" ";TH$(SS);" ":24:" ";{ 6:18::("SCREENPRINT ",PRT61,6): 8:19::("CLUB",1,4CL);::" " 18:LKĺ" " LKĖ18::"LOCKED": ,10:MG);"SELECT ACTION:"R ^MG2&7 EAMON ADVENTURE LOG5 MAINTENANCE< V BY JOHN NELSON] c| 7-11-84 8:00 P.M. D$(4)::MG7:10000d === MAIN MENU ===n:10);"EAMON ADVENTURE LOG":11);"BY JOHN C. NELSON": xNRNA:SS                   * d::D$(4)),D$;"CATALOG"DR":DK$"BLOAD GAME.STR"b JyDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR" TyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64" hy1002561V u:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."\ un y /// RESTART "y216,0::"DO YOU WANT TO RESTART THIS GAME?"; ,yA$:A$"Y"A$"N"31020 6yA$:A$"N"Ā @yDK$"BLOAD GAME.PTRS":DK$"BLOAD GAME.SVA"30020 NuA$:A$"N"1003 XuDK$;"CLOSE":X(0)U buDK$"BSAVE GAME.PTRS,A$69,L8" luDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 vuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)BD$(4):D$"OPEN APPEND SAVE RTN":D$"WRITE APPEND SAVE RTN"J5,[D$"CLOSE":d 50DK$(4):DK$"VERIFY GAME.PTRS":310002216,0:10000u // SAVE GAME:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :"; DuA$:A$"Y"A$"N͠Ӭ̶ϠŮӢԠˤĠŮҢԠˤĠŮҢԠˤŠŮӢԠˤŠŮҢԠˤŠŮҢԠˤΠήì̲ԠˤΠήӬ̶ԠˤΠŠŮĠ͠ԍŠԠԠϠՠԠϠԠӠſԠ٠ҠκԠƠ٢Ġ΢ΠԠƠ΢ΠĠԠˤĠǠˠԠˤŠŮҬˠˠ̢ˠˠˠˠԠԠŠŠӠנĮԠΠӢԠŠϠԠȠ΢ΠԠƠ΢ΠԠˤŢؠŠԠˤŠŮӬ̸ԠˤŠŮҬˠˠ̢ˠˠˠҠϠˤҤԠˤ٠ŮӢϠŠϠ͠ŠōŠԠԠϠՠԠϠŠӠſԠٯΩԠƠ٢Ġ  PTRS":DK$"BLOAD GAME.SVAR":DK$"BLOAD GAME.STR"{ jJDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR" tJDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64" ~J1000111)(112)2561a F:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."g Fz 8J /// RESTART BJ216,0::"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:"; LJA$:A$"Y"A$"N"19020 VJA$:A$"N"Ā0 `JDK$"BLOAD GAME."Y"A$"N"18020& nFA$:A$"N"100> xFDK$;"CLOSE":X(0)` FDK$"BSAVE GAME.PTRS,A$69,L8" FDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 FDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(DD$(4):D$"OPEN APPEND SAVE BASE":D$"WRITE APPEND SAVE BASE"M10,^D$"CLOSE":g 50DK$(4):DK$"VERIFY GAME.PTRS":190002216,0:1000PF // SAVE GAMEZF216,0::"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :"; dFA$:A$  CLOSE":40 uD$;"CLOSE"HAT IS THE RECORD LENGTH? ";NB< (:D$;"OPEN ";RF$;",L";NBj 2"READ WHICH RECORDS (FROM,TO)? ";R1,R2:w <IR1R2 FD$;"READ ";RF$;",R";I PA$::A$;:(A$)1380 Z:D$::50 0uER(222) uER5ĺD$:"RECORD CALLED OUT OF BOUNDS":D$;" D$""30000 "PROGRAM TO DISPLAY RANDOM ACCESS FILES":"ASSUMES ONE LINE OF TEXT PER RECORD...":"(I.E. ONE RETURN CHARACTER/RECORD" :"HIT ANY KEY TO CONTINUE":A$::D$;"CATALOG""RANDOM TEXT FILENAME: ";RF$ "WRETURN TO QUIT"; C$) C$"C"1500= x(1155)3000W ::(4);"CATALOG":q A$"APPLE ][ AND AAA"} X112 1:X1:A$; X:" ";:Z125:Z:X  :X121:X:25:A$ Z150:Z:X:W LAS VEGAS NV 89121 K, RECOPIED WITH"> R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC"i "DOMAIN LIBRARY, WITH MANY THANKS.":r 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET" 7:"CHEYENNE * WY * USA * 82009": 255 2:"PRESS C FOR CATALOG OR M?":0 &"MAYBE YOU EVEN TOOK LOTS OF TIME TO"\ X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENJOY AND USE." 6:"-- PLEASE, SEND 3A A COPY --": "WE'LL RETURN YOUR DIS------------------  ( n::5 xQ$(34)N (1155)İ2000::W ,2: " AN INVITATION FOR APPLE PROGRAMMERS " : "PERHAPS YOU FOUND SOME ";Q$;"FAULTY";Q$;" PUBLIC" "DOMAIN PROGRAMS ON THIS DISK AND YOU" "FIXED THE3A MESSAGE+BY RON MALEIKA13A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 --------------------- MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121  >(4);"OPEN FIX BOOT PGM":(4);"WRITE FIX BOOT PGM":5,R(4);"CLOSE":Z9D$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM" 216,00 :'  NORTH,SOUTH,EAST,WEST,UP,DOWNPESC,R0":NR,NA,NE,NM:D$"CLOSE EAMON.DESC"? ,PRTĺD$"PR#";PSS ^X16:D$(X): R1NR:D$"READ EAMON.ROOM NAMES,R";R:N$:D$"READ EAMON.ROOMS,R";R:D16:DR%(D): "ROOM ";R;":";N$:D16:D$(D);":";DR%(D):: X: D$"PR#0":D$"CLOSE"UTPUT (Y/N):";* <A$:A$"Y"A$"N"60i FA$:PRT(A$"Y"):PRTĺ:"WHAT SLOT IS PRINTER IN (1-7):"; PA$:A$"1"A$"7"80 ZA$:PS(A$) dD$"OPEN EAMON.ROOM NAMES,L64":D$"OPEN EAMON.ROOMS,L64":D$"OPEN EAMON.DESC,L256"* D$"READ EAMON.D( EAMON. QUICKY ROOM PRINTG BY JOHN NELSONMU c 2-15-84iu D$(4)~40(:6:" INSERT EAMON ADVENTURE DISKETTE AND"::10);"PRESS ANY KEY TO CONTINUE ...";:A$: 2:6:"DO YOU WANT PRINTER O $(A)9 A:"---------------------------------------":RJ D$;"PR#0":_"PRINTER OUTPUT?(Y/N):";: bYN$:YN$"Y"YN$"N"98 cYN$:YN$"Y"ĺD$"PR#1":(12);(40("ROOM ANALYSIS"))2);"ROOM ANALYSIS":: dR1NR::"ROOM ";R;" (";RN$(R);")" nM1NM:MD%(M,5)RĺMN$(M) xM A1NANM AD%(A,4)RĺANMON.MONSTERS,L128":M1NM:D$"READ EAMON.MONSTERS,R";M:MN$(M):M2112:MD%(M,M2):M2,M:D$"CLOSE" PD$"OPEN EAMON.ARTIFACTS,L128":A1NANM:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2):A2 ZA:D$ :A$:T D$"OPEN EAMON DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE"_ 216,0 MD%(NM,12),AD%(NA,8),MN$(NM),AN$(NA),RN$(NR) 2D$"OPEN EAMON.ROOM NAMES,L64":R1NR:D$"READ EAMON.ROOM NAMES,R";R:RN$(R)::D$"CLOSE"d FD$"OPEN EAL EAMON ROOM ANALYSIS7 BY JOHN NELSON> x PRINT MONSTERS AND ARTIFACTS IN ROOMS~ 2-14-84 D$(4): 15 :6:"INSERT DUNGEON DISKETTE AND PRESS"::10);"ANY KEY TO CONTINUE ...";WRITE 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 DDS A LIGHT FIELD TO THE EAMON.ROOMS FILE." xD$;"OPEN EAMON.ROOMS,L64":D$;"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR:D$;"CLOSE EAMON.DESC" 13:12:"ROOM #" R1NR:D$;"READ EAMON.ROOMS,R";R:D16:RD%(D): 20:12:R' D$;" EAMON/ ADD LIGHT TO ROOMSF BY JOHN NELSONLX D$(4)d:6:"INSERT EAMON ADVENTURE DISKETTE AND "::"PRESS ANY KEY TO CONTINUE ...";:A$:+ n:11);"ADD LIGHT TO ROOMS":12);"BY JOHN NELSON":6:"THIS PROGRAM AD  ONSTERS,R";R:NN$:X112:MD%(X):5 <R:D$"CLOSE"D7 D$(4):MD%(12){D$"OPEN EAMON.MONSTERS,L128":R2734:D$"READ EAMON.MONSTERS,R";R:MN$:X112:MD%(X):X1(MN$):(MN$,X,1)" "Ă(NN$(MN$,X1)" "(MN$,X1):"NEW NAME IS ";NN$;"; OLD NAME WAS ";MN$# 2D$"WRITE EAMON.M  J dQ:DK$"CLOSE":<! THIS PROGRAM CHECKS THEE DESCRIPTION FILE FOR ERRORSKX DK$(4)DK$"OPEN EAMON.DESC,L256":DK$"READ EAMON.DESC,R0":J14:N%(J):Q14(N%(Q)01002J1N%(Q)<DK$"READ EAMON.DESC,R"(Q1)100J:A$:A$ F  KEY TO CONTINUE ======";:A$::(40< === DEL NONE?DL0ė:"PROGRAM HAS CALCULATED NO DELETIONS.":"WHY BOTHER?":"AN OVERLAP WOULD OCCUR. CANNOT CONTINUE.":NR:RMNM:NE:NM:D$"CLOSE""5 === VIEW ===:LP0:A1NA2:2((A)));A;"> ";(A$(A),12);:ANARĺ20((A1)));A1;"> ";(A$(A1),12)LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:A$:::LP0 ::"====== PRESS ANYTIFACTS,R";R:AN$:A1,A2,A3,A4:A21ĄA5,A6,A7,A8D$"WRITE EAMON.ARTIFACTS,R";RDL:AN$:A1:A2:A3:A4:A22ĺA5:A6:A7:A8D$"READ EAMON.DESC,R";R100:DE$:D$"WRITE EAMON.DESC,R";RDL100:(34);DE$;(34)RD$"WRITE EAMON.DESC,R0":RM;" ARTIFACTS TO REMAIN ON FILE - PLUS":"BODIES FOR ";NM;" MONSTERS = ";RMNM:"IS THIS CORRECT? (Y/N):"; _A$:A$"Y"A$"N"95 bDLNARMNM:DL12000 dA$:A$"N"70 iD$"OPEN EAMON.ARTIFACTS,L128" nRRMDL1NA1D$"READ EAMON.AR ARTIFACTS TO REMAIN:";A$:RM(A$)] PRM(RM)RMNARM10ĺ"THAT CANNOT BE ACCEPTED.":70 U:"IF THERE ARE NO MONSTER BODIES ON THE ARTIFACT FILE, PRESS 'N'; OTHERWISE PRESS 'C' "; XBD$:BD$"N"BD$"C"88 YBD$:BD$"N"NM0k Z:AM."Z 4:"YOU MAY VIEW THE NAMES OF ALL ARTIFACTS BY PRESSING 'V' AT THE NEXT INPUT.": <"PRESS 'S' TO STOP; 'V' TO VIEW ARTIFACTS":"OR 'C' TO CONTINUE --> "; AA$:A$"V"A$"S"A$"C"65 DA$:A$"V"1000 EA$"S"Ā" F:"NUMBER OF REQUESTED TO INPUT THE ":"NUMBER OF ARTIFACTS THAT YOU WANT TO ":"KEEP. THIS WILL BE THE NUMBER OF " 2"ARTIFACTS TO REMAIN ON THE FILE. (DO ":"NOT COUNT MONSTER BODIES.)"::"BE SURE THE EAMON FILES ARE SET UP":"CORRECTLY BEFORE RUNNING THIS PROGRONTINUE ...";:16368,0:A$:& 15t D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$:216,0 A$(NA):D$;"OPEN EAMON.ARTIFACTS,L128":A1NA:D$;"READ EAMON.ARTIFACTS,R";A:A$(A)::D$;"CLOSE EAMON.ARTIFACTS"g (:"YOU WILL BE EAMON 9 REMOVE DUMMY ARTIFACTS X THIS PROGRAM WILL REMOVEw UNNEEDED ARTIFACTS FROM  EAMON FILES. 2-15-84 D$(4): :6:"INSERT EAMON ADVENTURE DISKETTE AND "::05);"PRESS ANY KEY TO C       91,9)::"====== PRESS ANY KEY TO CONTINUE ======";:A$::100Np /// QUITzUPĺ:"UPDATE HAS NOT BEEN APPLIED."::"PRESS ANY KEY TO CONTINUE";:A$::100D$"CLOSE"2)0:A2,A NANANI:100, /// APPLYxA1NA:D$"WRITE EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2,AD$"WRITE EAMON.DESC,R0":NR:NA:NE:NM:D$UP0100 /// CANCEL?UPUP:"UPDATE IS ";("CANCELLEDIN EFFECT",UP A$:A$"N"100 UP1:X0:INANIIA11:D$"READ EAMON.DESC,R";INI100:RD$:D$"WRITE EAMON.DESC,R";I100:(34);RD$;(34) AN$(I)AN$(NAX):A218:AD%(I,A2)AD%(IANI1,A2):A2 XX1:I:D$:  AIA1NIIA:AN$(A)"DUMMY":A218:AD%(A,AW MANY TO INSERT?";NI$:(NI$)1(NI$)NA1003010r 8:"AFTER WHICH ARTIFACT:";IA$:(IA$)1(IA$)NART3020 :NI((NI$)):IA((IA$)):"INSERT ";NI;" ARTIFACTS AFTER ";IA;"." 6:"IS THIS CORRECT? (Y/N) "; A$:A$"Y"A$"N"3045A$"N"2045 A$:A$"N"100 UP1:DD1NDNA:D$"READ EAMON.DESC,R";D100:RD$:D$"WRITE EAMON.DESC,R";DND100:(34);RD$;(34) AN$(DND)AN$(D):A218:AD%(DND,A2)AD%(D,A2):A2 D:D$:NANAND 100 /// ADD3 6:958::"HO6:958:"HOW MANY TO DELETE?";ND$:(ND$)1(ND$)NART2010 8:958:"FIRST ARTIFACT TO DELETE:";D1$:(D1$)1(D1$)NART2020 ND(ND$):D1(D1$)::"DELETE ARTIFACTS ";D1;" THRU ";D1ND1 6:"IS THIS CORRECT? (Y/N) "; A$:A$"Y"͠A$:(A$)1000,2000,3000,4000,5000,60009  /// LIST :LP0:A1NA:" ";A;". ";AN$(A):LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:A$::LP0:  B:"====== PRESS ANY KEY TO CONTINUE ======";:A$::100  /// DELETE? ں12);"BY JOHN NELSON":10:"SELECT ACTION:" i" 1. LIST ARTIFACTS":" 2. DELETE ARTIFACTS":" 3. INSERT ARTIFACTS":" 4. APPLY CHANGES TO FILE" n" 5. CANCEL CHANGES":" 6. QUIT" x"INPUT YOUR CHOICE (1-6):"; A$:(A$)1(A$)6130* D EAMON.DESC,R0":NR,NA,NE,NM6 (AN$(100),AD%(100,8)Y 2D$"OPEN EAMON.ARTIFACTS,L128" <A1NA:D$"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2): FA:D$, d:17);"EAMON":9);"ARTIFACT MAINTENANCE":  ARTIFACT MAINTENANCE3 FOR EAMONL BY JOHN NELSONRXf 2-14-84l| D$(4)::6:" INSERT EAMON ADVENTURE DISKETTE AND"::6);"PRESS ANY KEY TO CONTINUE ...";:A$: D$"OPEN EAMON.DESC,L256":D$"REA        ;" MONSTERS."B <D$"WRITE EAMON.DESC,R0":NR:0:0:0:D$"CLOSE".DY AND"K "PRESS ANY KEY TO CONTINUE":" (GENTLY, PLEASE.)":A$: (D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ 2"THERE ARE ";NR;" ROOMS ON THIS DISKETTE.":"THERE ARE SUPPOSEDLY ";NA;" ARTIFACTS":"AND THERE ARE ";NMCORRECT RECORD ZERO.  THIS PROCESS IS THE EQUIVALENT TO RUNNING THE COPY MAZE PROGRAM, BUT IT WILL RUN FASTER FOR LARGER DUNGEONS.  BY JOHN NELSON  D$(4): :"INSERT ADVENTURE DISKETTE THAT HAS THE":"ROOMS COPIED ONTO IT ALREAD ERASE ARTIFACTS, EFFECTS AND MONSTERS. THIS PROGRAM WILL READ THE DESC FILE AND RE-WRITE RECORD ZERO SO THAT NO ARTIFACTS, MONSTERS OR EFFECTS  ARE ON THE FILE. THIS IS DONE SO THAT YOU MAY USE FID TO COPY THE MAZE OF ANOTHER DUNGEON AND THEN  99D7:D:12220//12080:D2./:" (TYPE 'Q' TO RETURN TO MAIN MENU)":Y./"WHICH WAY? ";:A$:A$"Q"12230./:D$;"CLOSE EAMON.ROOMS":D$;"PR#0":2020./D16:A$("NSEWUD",D,1)Ă:(7):12210./A$:DR%(D)ĺ(7);"YOU CAN'T GO THAT WAY!":12210//:RDR%(D):Rl/S-v/:"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D)::D$-/D1ND:" ";(DD$(D),ND1);": ";(DR%(D)0)((DR%(D))10));DR%(D);" ";-/DR%(D)99ĺ"[EXIT]";:12190-/DR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";./,/SWĺD$;"PR#";PS<,/:10);DUNGN$:10)"WALK-THROUGH"F,&/:R1l,0/D$;"READ EAMON.DESC,R";R:A$:D$,:/"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":A$:"YOU SEE:",D/M1NM:MD%(M,5)Rĺ" ";MN$(M),N/,X/A1NA,b/AD%(A,4)Rĺ" "AN$(A)-K-THROUGH B+.:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010+.:VT:AFLAG0ĺ"...LOADING EAMON.ARTIFACTS...":DT10110,10110,10110,10310+.:VT:MFLAG0ĺ"...LOADING EAMON.MONSTERS...":DT10210,10210,10210,10410,/D$;"OPEN EAMON.ROOMS,L"R1// LOAD EAMON.MONSTERS (RANDOM) C*(D$;"OPEN EAMON.MONSTERS,L128"*(R1NM:D$;"READ EAMON.MONSTERS,R"R:MN$(R):M112:MD%(R,M)::*(MFLAG1*)D$;"CLOSE":D$,"OPEN EAMON.DESC,L256":** /// QUIT *+D$;"CLOSE":D$;"PR#0": +. /// WAL(R):M112:MD%(R,M)::,)'MFLAG1:10500V)<( /// LOAD EAMON.ARTIFACTS (RANDOM) z)F(D$;"OPEN EAMON.ARTIFACTS,L128")P(R1NA:D$;"READ EAMON.ARTIFACTS,R"R)Z(AN$(R):A14:AD%(R,A)::AD%(R,2)1āA58:AD%(R,A):)d(:AFLAG1:10500 *( /ARTIFACTS":D$;"READ EAMON.ARTIFACTS":AN$:R1NAp('AN$(R):A14:AD%(R,A)::AD%(R,2)1āA58:AD%(R,A):(':AFLAG1:10500(' /// LOAD EAMON.MONSTERS (SEQUENTIAL) ('D$;"OPEN EAMON.MONSTERS":D$;"READ EAMON.MONSTERS":AN$:R1NM)'MN$;" SW:";DR%(10)'#SW0ĺ!'#5'#D$"PR#0":2010W'' /// LOAD EAMON.ROOM NAMES |''D$;"OPEN EAMON.ROOM NAMES,L";R2'$'R1NR:D$;"READ EAMON.ROOM NAMES,R"R:R$(R):'.'RFLAG1:10500't' /// LOAD ARTIFACTS (SEQUENTIAL) 2(~'D$;"OPEN EAMON.AMON.ROOMS,R";R:D1ND:DR%(D):;&x#"ROOM ";R;":";R$(R);X&#I140(R$(R)):".";:j&#"N:";DR%(1);}&#" S:";DR%(2);&#" E:";DR%(3);&#" W:";DR%(4);&#" U:";DR%(5);&#" D:";DR%(6)'#ND6ĺ40)"NE:";DR%(7);" NW:";DR%(8);" SE:";DR%(9)" "AN$(A)%:(%D$;"PR#0":2010@%(# /// DUNGEON MAP x%2#:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010%<#NNNR:2500%A#:%F#SWĺD$;"PR#";PS:10);DUNGN$;" -- DUNGEON MAP"::%P#D$"OPEN EAMON.ROOMS,L"R1!&n#RBEEN:D$"READ ELAG0ĺ"...LOADING EAMON.MONSTERS...":DT10210,10210,10210,10410Q$hNNNR:2500$rSWĺD$;"PR#";PS:10);DUNGN$;" -- ROOM ANALYSIS"::$|RBEEN::"ROOM # ";R;" [";R$(R);"]"$M1NM:MD%(M,5)Rĺ" ";MN$(M)$$A1NA %AD%(A,4)RD%(R,9)0MD%(R,9)(NA)ĺ" [";AN$(MD%(R,9));"]";:#::O#D$;"PR#0":2010j#@ /// ROOM ANALYSIS #J:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010#T:VT:AFLAG0ĺ"...LOADING EAMON.ARTIFACTS...":DT10110,10110,10110,10310A$^:VT:MF2112:" ";M$(M2);10(M$(M2)));": ";6((MD%(R,M2))));MD%(R,M2);f"M23M24M27M210ĺ" %";"M25MD%(R,5)0MD%(R,5)NRĺ" [";R$(MD%(R,5));"]";"M29MD%(R,9)1ĺ" [NO WEAPONS]";"M29MD%(R,9)0ĺ" [NATURAL WEAPONS]";0#M29MMFLAG0ĺ"...LOADING EAMON.MONSTERS...":DT10210,10210,10210,10410T!NNNM:2500!SWĺD$;"PR#";PS:10);DUNGN$;" -- MONSTERS"::!RBEEN!D$;"READ EAMON.DESC,R";R300:A$!::E""MONSTER # ";R;" [";MN$(R);"]"::"DESC:":A$::MECT #";R;":":8 D$;"READ EAMON.DESC,R";R200:A$:A$> S D$;"PR#0":2010m X /// LIST MONSTERS b:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010 l:VT:AFLAG0ĺ"...LOADING EAMON.ARTIFACTS...":DT10110,10110,10110,10310D!v:VT:("[AXE] [BOW] [CLUB] [SPEAR][SWORD]",(AD%(R,6)1)71,7);C:K(:_2D$"PR#0":2010wp ///LIST EFFECTS NE0Ė15:(7);"NO EFFECTS!":2010NNNE:2500SWĺD$;"PR#";PS:10);DUNGN$;" -- EFFECTS"::RBEEN ::"EFFRE] [WEAPON] [ODD WEAPON] ",AD%(R,2)141,14);qA24AD%(R,4)0AD%(R,4)NRĺ" [";R$(AD%(R,4));"]";:A2:AD%(R,2)25160 A258:" ";A$(A2);10(A$(A2)));": ";6((AD%(R,A2))));AD%(R,A2);;A26AD%(R,6)0AD%(R,6)5ĺ" "; ::RBEEN=D$;"READ EAMON.DESC,R";100R:A$t"ARTIFACT # ";R;" [";AN$(R);"]"::"DESC: ":A$:A214:" ";A$(A2);10(A$(A2)));": ";6((AD%(R,A2))));AD%(R,A2);7A22AD%(R,2)0AD%(R,2)3ĺ" ";("[SET TREASURE][TREASUMS":D$;"PR#0":20100 /// LIST ARTIFACTS h:RFLAG0ĺ"...LOADING EAMON.ROOM NAMES...":10010:VT:AFLAG0ĺ"...LOADING EAMON.ARTIFACTS...":DT10110,10110,10110,10310NNNA:2500SWĺD$;"PR#";PS:10);DUNGN$;" -- ARTIFACTS"::"READ EAMON.ROOMS,R";R:D1ND:DR%(D)::D$|D1ND:" ";(DD$(D),ND1);": ";(DR%(D)0)((DR%(D))10));DR%(D);" ";DR%(D)99ĺ"[EXIT]";:4120DR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";:D":::,D$;"CLOSE EAMON.ROONAMES...":10010 NNNR:2500?D$;"OPEN EAMON.ROOMS,L"R1sSWĺD$;"PR#";PS:10);DUNGN$;" -- ROOMS"::::RBEEND$;"READ EAMON.DESC,R";R:A$:D$"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":A$,:"DIRECTIONS MOVED IN--":D$;ENNN:(37):16:EN( ENNNĺ:2540. I /// SET UP PRINTER V SW3040 PS0ĺ:"WHAT SLOT IS PRINTER IN?";PS$:PS(PS$):PS1PS73020 PS(PS)3020 SWSW:2020 ///LIST ROOMS :RFLAG0ĺ"...LOADING EAMON.ROOM *CH(CH$):CH3000,4000,5000,6000,7000,8000,9000,12000,11000I42020a /// GET BE & EN k VT2 ::868:"BEGINNING WITH #: ";BE$:BE(BE$) BE1BE1:(37):19:"1" BENNĺ:2510 :"ENDING WITH #: ";EN$:EN(EN$) EN1N OFF PRINTER (NOW ON)";c :" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS"" 5. LIST MONSTERS":" 6. ROOM ANALYSIS" " 7. DUNGEON MAP":" 8. WALK-THROUGH"%" 9. QUIT"::"INPUT YOUR CHOICE (1-9): ";CH$? /// MAIN ROUTINE C:" (HIT ANY KEY FOR MENU)":AN$c:(40(DUNGN$))2:DUNGN$:"ROOMS:";NR;" ART:";NA;" EFF:";NE;" MONSTERS:";NM7:"SELECT ONE OF THE FOLLOWING:":" 1. SET UP PRINTER (NOW OFF)";:SWĖ8:"TUR.DICE,W.SIDES!A18:A$(A):7D110:DD$(D):t VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTD$;"OPEN EAMON.DESC,L256"$@:"ROOMS:";NR;" ART:";NA;" EFF:";NE;" MONSTERS:";NMxR$(NR),AN$(NA),AD%(NA,8),MN$(NM),MD%(NM,12),M$(12)D$;"CLOSE":1910l ///LIST HEADINGS vM112:M$(M):  HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOR,WEAPON#,O.ODDS,WMON.DESC,L256"?TDT2ĺD$;"READ EAMON.DESC,R0":NR,NA,NE,NMG^D$chDT4R164:R264:1680rR164:R232(DT(DT3))|D$;"OPEN EAMON.MONSTERS":D$;"READ EAMON.MONSTERS":NM:D$D$;"OPEN EAMON.ARTIFACTS":D$;"READ EAMON.ARTIFACTS":NA:D,L128"LDT2ĺ:"VALUES FOR NR,NA,NE,NM ARE STORED IN EAMON.DESC,R0"DT4ĺ:"CORRECT VALUES FOR NA AND NM ARE STORED AS THE FIRST VALUE IN THOSE FILES"DT2ĺ:"NO VALUES STORED FOR NR OR NE"@ /// GET NR,NA,NE,NM JD$;"OPEN EADT41190<~" EAMON.ROOM NAMES..RANDOM,L"32(DT(DT3))b" EAMON.ARTIFACTS...SEQUENTIAL"" EAMON.MONSTERS....SEQUENTIAL"1220" EAMON.ROOM NAMES..RANDOM,L64"" EAMON.ARTIFACTS...RANDOM,L128"" EAMON.MONSTERS....RANDOM(1-3), ASSIGNING THEM TO VARIABLE 'DT' IN LINE ";LN;"."R.:25:"TOM ZUCHOWSKI"8:::8:"(HIT ANY KEY TO CONTINUE)":A$:DT4:1000V::"DATA STORAGE TYPE ";DT`:" EAMON.DESC........RANDOM,L256"j" EAMON.ROOMS.......RANDOM,L64" tI DIDN'THAVE THIS DUNGEON, AND SO DIDN'T KNOW WHAT DATA TYPE IT IS.":"THE PROGRAM IS GOING TO TRY DATA TYPE 4.IF THE DUNGEON LOADS AND LISTS OK, THEN DELETE LINE ";LN;" AND RESAVE THIS PROGRAM."7$"IF YOU GET AN ERROR, TRY THE OTHER DATA TYPES I"DT1:LN720QDUNGN$""ĺ::(7);" THIS IS NOT AN EAMON DUNGEON DISK!":q:(40(DUNGN$))2:DUNGN$DT01110F::(7);"AT THE TIME THIS PROGRAM WAS WRITTEN, I DID NOT HAVE ALL OF THE DUNGEONS. THIS MESSAGE IS TO LET YOU KNOW THAT AL HISTORY"DT1:LN590G XDUNGN$"DAEMON'S PLAYGROUND"DT1:LN600s bDUNGN$"CAVERNS OF LANST"DT1:LN610 lDUNGN$"ALTERNATE BEGINNER'S CAVE"DT1:LN620 DUNGN$"SEARCH FOR THE KEY-PART I"DT1:LN710DUNGN$"RESCUE MISSION-PART IUNGN$"DEATH'S GATEWAY"DT1:LN540S &DUNGN$"LAIR OF THE MUTANTS"DT1:LN550 0DUNGN$"CITADEL OF BLOOD"DT1:LN560 :DUNGN$"QUEST FOR THE HOLY GRAIL"DT1:LN570 DDUNGN$"CITY IN THE CLOUDS"DT1:LN580 NDUNGN$"MUSEUM OF UNNATUR$"TOWER OF LONDON"DT1:LN480P DUNGN$"LOST ISLAND OF APPLE"DT1:LN490| DUNGN$"UNDERGROUND CITY"DT1:LN500 DUNGN$"GAUNTLET"DT1:LN510 DUNGN$"HOUSE OF ILL REPUTE"DT1:LN520 DUNGN$"ORB OF POLARIS"DT1:LN530$ D ///IDENTIFY DUNGEON TYPE ; DT4: DEFAULT DATA TYPEf DUNGN$"THE BEGINNERS CAVE"DT1:ND6 DUNGN$"THE LAIR OF THE MINOTAUR"DT2:NR92:NE0 DUNGN$"THE CAVE OF THE MIND"DT3 DUNGN$"THE CAVES OF TREASURE ISLAND"DT1 DUNGNDUNGEON LISTER"::17:"- BY -"::10:"THOMAS J. ZUCHOWSKI" :::"INSERT DUNGEON DISKETTE AND HIT ANY KEY":16368,0:A$: 170 D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:D$;"CLOSE" ND(DR$):180 ND6 216,0 '  UNIVERSAL DUNGEON LISTER X BY TOM ZUCHOWSKI WINSTOM-SALEM,NC 27103 2THANKS TO ALL THE EAMON UTILITY PROGRAMMERS WHOSE PROGRAMS I BORROWED QUITE FREELY FROM. dMARCH 1984nD$(4):VT21< x:3:" UNIVERSAL EAMON                          NSTER#,KEY#,GUARD#,ATTACHED!#<DOT USED),(NOT USED)B"$ COUNTER,(NOT USED),(NOT USED),(NOT USED)m". CHANCES,HEAL AMT,NBR USES,(NOT USED)"8 1ST EFFECT,# EFFECTS,READABLE,(NOT USED)"B ROOM INTO,KEY#,STRENGTH,(NOT USED)"L (NOT USED),(NOT USED),(NOT USED),(NOT USED)#V MOT,NORTHWEST,SOUTHEAST,SOUTHWEST5!HD110:DD$(D):!zNF:FMP%(DT),FL$(DT,4):X0DT:FMP%(X)::X1NF:F14:FL$(X,F):!:PR$"...................."!! 8!ފ 0,0,1,1,2,3,4,5,6,7,8! ODDS,W.TYPE,DICE,SIDES" KEY#,STRENGTH,(N:TYP$(DT):X0DT:TYP$(X):' 10~ GOLD,TREASURE,WEAPON,SP.WEAPON,CONTAINER,LIGHT,HEAL,READABLE,DOOR,KEY,BOUND MON. A1AF:A$(A): Ɖ VALUE,TYPE,WEIGHT,ROOM!䉃 NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEASLPLP1::LPLP1:' >>> READ DATA3̈AF:MFmꈃ 4,12: AF = # ARTIF FIELDS, MF = # MONST FIELDSM$(MF),M%(MF):M$(0)"ADVENTURER":M1MF:M$(M): HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAPON#,O.ODDS,W.DICE,W.SIDES DTSS ANY KEY TO CONTINUE";6);:A$:::;A$(27)ġ:100A:Zp /// TOGGLE PRINTERgzPRTPRT~PRTMRG10:SIZ80PRTMRG0:SIZ40100X /// QUITbD$"CLOSE":D$"PR#0":@PRTĺA$:JAZ1(A$)40:MRG);(A$,AZ,40):1ĺ" [ NO WEAPONS ]"?M29M%(9)0ĺ" [ NATURAL WEAPONS ]";rM29M%(9)0M%(9)NARĺ" [";AN$(M%(9));"]";M29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";:M2:D$LP36PRTLP0:(12);(SIZ(ADV$))21);ADV$&:PRTĞ:7);"PRENSTER # ";R;" [";MN$;"]":" ":MRG);"DESC:":8000:" ":LPLP4M2112:LPLP1:MRG);" ";M$(M2);(PR$,1,10(M$(M2)));(PR$,1,6((M%(M2))));M%(M2);M23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)ERS,L128"PRTĺD$"PR#";PS]:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:5500:D$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$?MRG);"MO6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$8:958:"ENDING WITH #:";EN$:EN$""EN$(NM):8:15:EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$) D$"OPEN EAMON.MONSTG);"EFFECT #";R;":"::LPLP2ID$;"READ EAMON.DESC,R";R200:A$:8000{LP48PRTĺ(12);(SIZ(ADV$))2);ADV$:LP1LP500ıD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)ġ:100 /// LIST MONSTERSA8:958:"ENDING WITH #:";EN$:EN$""EN$(NE):15:8:EN$^(BEG$)NE(BEG$)1BEG$"1"(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)PRTĺD$"PR#";PS:LP500:4525:RBEGEN:4500::D$D$"PR#0":100MR; :A2?LP36PRTLP0:(12);(SIZ(ADV$))21);ADV$D$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);::A$::A$(27)ġ:100 /// LIST EFFECTS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":18:6:BEG$;:A2:FMP%(A%(2))03740A.A258:A$(A2)"(NOT USED)"3740BLPLP1:MRG);" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2);tA26(A%(2)2A%(2)3)ĭA%(A2)1A%(A2)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]"4A%(4)0A%(4)NM1ĺ" [CARRIED BY ";MN$((A%(4))1);"]";x 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);"]";2:" ":D$;"READ EAMON.DESC,R";100R:A$:MRG);"DESC: ":8000:" " A214:LPLP1:MRG);" ";A$(A2);(PR$,1,10(A$(A2)));(PR$,1,6((A%(A2))));A%(A2); A22ĺ" [";TYP$(A%(2));"]";:3580 A24A%(4)0A%(4)NRĺ" [";R$(A%(4));"]";= A2PR#0":100_ D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(A)::DV5A%(2)1āA58:A%(A): A%(2)DTāX14:A$(AFX)"FIELD "(AFX)::3520 FMP%(A%(2))0āX14:A$(AFX)FL$(FMP%(A%(2)),X):C MRG);"ARTIFACT # ";R;" [";AN$(R);"]":LPLP (BEG$)NA(BEG$)1BEG$"1"G (EN$)NA(EN$)(BEG$)EN$(NA)a BEG(BEG$):EN(EN$) D$"OPEN EAMON.ARTIFACTS,L128" PRTĺD$"PR#";PS :(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:3500:  D$"CLOSE EAMON.ARTIFACTS":D$:D$":" PRESS ANY KEY TO CONTINUE ";::A$::JA$(27)ġ:100Pg /// 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$R%(D):\RD1ND:LPLP1:MRG);" ";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:D$:LP(48ND)PRTĺ(12);(SIZ(ADV$))2);ADV$:LP15zPRTĺ:::LP3:RBEGEN:2100:H/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1004:MRG);"ROOM # ";R;" [";R$(R);"]"::MRG);"DESC:":LPLP4:D$;"READ EAMON.DESC,R";R:A$:8000H:MRG);"DIRECTIONS MOVED IN--":LPLP2:D$;"READ EAMON.ROOMS,R";R:D1ND:D18:BEG$C8:"ENDING WITH #:";EN$:EN$""EN$(NR):8:15:EN$f(BEG$)NR(BEG$)1BEG$"1"(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" PRTĺD$"PR#";PS*:(12);(SIZ(ADV$))2);ADV$:R$"6":216,0:D$;"CLOSE":356 DV5:D$;"CLOSE":35P  /// SET UP PRINTERz 6:958:"WHAT SLOT IS PRINTER IN?"; A$:A$"1"A$"7"1020 A$:PS(A$):100  /// LIST ROOMS6:958:"BEGINNING WITH #:";BEG$:BEG$""BEG$"1":6:. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS" " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON",PRT31,3PRT);")":" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CH CH1000,2000,3000,4000,5000,6000,7000 130 DR$""DV4:D:R1NM:D$"READ EAMON.MONSTERS,R";R:MN$(R)::D$"CLOSE EAMON.MONSTERS"T cSIZ40k d /// MAIN ROUTINE n:12);"EAMON DUNGEON LIST":14);"BY JOHN NELSON":(40(ADV$))21);::ADV$:9 8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2N EAMON.ROOM NAMES,L64"L ZR1NR:D$;"READ EAMON.ROOM NAMES,R";R:R$(R):l \D$"CLOSE EAMON.ROOM NAMES" _D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$I bD$"OPEN EAMON.MONSTERS,L128" ...";:16368,0:A$: 200l :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":ADV$:DR$,DV:D$;"CLOSE"w #216,0 (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ <35000 FR$(NR),AN$(NA),MN$(NM) XD$"OPE" LIST DUNGEON- VERSION 6.0E BY JOHN NELSONKQWi REV. 2-9-85 (4);"MAXFILES 5" D$(4)::5:" LISTING A DUNGEON DESIGN FOR EAMON"::" INSERT DISKETTE WITH DUNGEON, THEN"::" PRESS ANY KEY           L256":D$"WRITE EAMON.DESC,R0":N%(1):N%(2):N%(3):N%(4):D$"CLOSE"D,0I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4      K$"OPEN EAMON.NAME":DK$"READ EAMON.NAME":AD$:DK$"CLOSE"M 9DK$"RUN ";AD$:8A$::DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT"~ 81:"TESTOR OF BENCH":HD:AG:CH:BL:HE:SP:PO:X15:WA%(X): 815:"M":2000:1300:4:"AXE":1:10:1:6:"BOW":2:10:1:5:"MACE":3:10:1:4:"SWORD":5:10:1:8: 8DK$"CLOSE":DF "BLAST ABIL:";BL:"HEAL ABIL:";HE:"SPEED ABIL:";SP:"POWER:";POW{ WA%(1)15:WA%(2)0:WA%(3)30:WA%(4)10:WA%(5)20 X"ARMOUR:";AC  === GO ON ADVENTURE === 8:5:"INSERT ADVENTURE TO TEST AND PRESS ANY"::" KEY TO CONTINUE"6 N TEST BENCH, BY JOHN NELSON28F 2-29-84S DK$(4)zd:"DO YOU WANT TO USE DEFAULTS?";A$:A$"N"A$"Y"150A$:A$"Y"HD18:AG18:CH18:HE40:SP40:5000"HARDINESS:";HD:"AGILITY:";AG:"CHARISMA:";CHĠԠ҇Π:";" +A$:A$"Y"A$"N"110205+A$:A$"N"10? +5000 2):LIN(218)(219)256:ERR5LIN2011000_B':6:"AN ERROR HAS OCCURED. CANNOT CONTINUE."L'"ERROR CODE IS ";ERR;" ON LINE ";LINj'* === NO FILE ===+:6:"THERE IS NO SNAPPY FILE ON THIS DISKETTE":"DO YOU WISH TO CREATE ONE? (Y OR N)ANY KEY TO CONTINUE"7);:A$::30: /// INITIATE FILEsD$(4):D$"OPEN SNAPPY,L64":D$"WRITE SNAPPY,R0":1D$"WRITE SNAPPY,R1":"STRANGE SAXON NAMES. NEVER CAN SPELL'EM NOR PRONOUNCE 'EM":D$"CLOSE"20' === ERROR ===,$'ERR(22:"======================================="o (37)16ĺ:"^^^^^^ PRESS ANY KEY TO CONTINUE ^^^^^^";:A$::u  D$"PR#0":4500 /// PRINT PHRASE (PP$,40):(PP$,41):::D$"WRITE SNAPPY,R0":NS:D$"CLOSE"":7)"PRESS )63ĺ"TOO LONG!!":2040B D$"WRITE SNAPPY,R";P:PHR$:D$:4500Y /// LIST PHRASESs :"HARDCOPY (Y/N):"; A$:A$"Y"A$"N"ī3020 A$:A$"Y"ĺD$"PR#1" + P1NS:D$"READ SNAPPY,R";P:PHR$:D$:PP$" MUTTERING ABOUT "PHR$:3500[6:958:"WHICH PHRASE #:";P$:(P$)NS(P$)1ĺ"NOT A VALID #":X12000:X:2010(P$)((P$))ĺ"NOT A VALID #":2010P(P$):D$"READ SNAPPY,R";P:PHR$:D$:"INPUT PHRASE:":" MUTTERING ABOUT ";:I2$PHR$:600:PH$I$(PHR$z#   ԠȠήŠڠՠ ҠŠ  Ҡ٠ ҠҠ ҮҠ"" ٠"٠Š  ̮Ǡ ΠҠ ΠҠ Πՠ"̠ҠΠ̠ ŠҠŠŲΠӠ ŠǠ9Š٠ ŮǠŠήŠӠΠO DISKETTE INTO DRIVE 1"::" AND PRESS ANY KEY TO CONTINUE"I n1000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):W  >> LIST NAMES& ARACTER IS NOT HERE.":"TRY AGAIN.":20 2DK$;"READ CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE <SEX$ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE"? d:"INSERT ADVENTURE:" AND PRESS ANY KEY TO CONTINUE...";:16368,0:A$:G DK$(4) DK$"OPEN CHARACTERS,L150":DK$"READ CHARACTERS,R0":NC:DK$ "NAME OF ADVENTURER:";NA$:NA$"?"500 REC1NC:DK$"READ CHARACTERS,R";REC:N$' N$NA$Ă:DK$:"THAT CH8 ADVENTURE ONLY3 BY JOHN NELSON:  THIS PROGRAM ALLOWS YOU TO GO ON AN ADVENTURE WITHOUT USING THE MAIN HALL. YOU MUST RETURN TO THE SAME DISKETTE YOU CAME FROM: :6:"INSERT DISKETTE WITH CHARACTER DESIRED":;TH$(SS);" ":19:25MG:868:500500t:"------- SPECIAL EAMON DISKETTES --------";DT$;("----------------------------------------",1,40(DT$)):>PLKLK:7:18:LKĺ" ":19:25MG:868:500>Zâ7:18::"LOCKED":19:25MG:868::500%?SSSS:4:15:NRNSSSNA(SS):NR;" " 6. ADVENTURES AND SPECIAL":"SELECT A NUMBER (1-6):";S=&A$:A$"1"A$"6"40230f=0A$:FR(A$):|=l === HEADING ====vLP0:SSĺ(12);"------- EAMON ADVENTURE DISKETTES ------";DT$;("----------------------------------------",1,40(DT$)):n>$"2"Ģ10:958:" STATUS WANTED:";SS$0<̜E< === FORMAT ===<10:958:"SELECT FORMAT OF LIST:":" 1. DISKETTE NAMES ONLY":" 2. TWO COLUMNS":" 3. DISKETTE NAMES / AUTHORS"6=" 4. TITLE AND STATUS/ID":" 5. ALL INFORMATION":" yYY84:B;X:"====== PRESS ANY KEY TO CONTINUE ======";:A$::Y; === ALL/PROD ===;10:958:"STATUS WANTED :":" 1. ALL STATUS CODES":" 2. SELECTED STATUS CODE":"SELECT NUMBER 1 OR 2 ";;A$:A$"1"A$"2"40120*<œA$:SS$"ALL":A:j^ U3,EAMON UTILITIES III,JOHN NELSON,MONSTER BATTLESr:t^ U4,EAMON UTILITIES IV,JOHN NELSON,CUSTOMIZER TOOLS:0u === COPYRIGHT YEARS ===::uA10YY79::DuA16YY80::NuA24YY81::XuA29YY79::buA28YY82::luA45YY83:;TOURNAMENT 1,D.BROWN,CASTLE OF COUNT FUEY[9B^ T2A,TOURNAMENT 2,D.BROWN,SEARCH FOR THE KEY9L^ T2B,TOURNAMENT 2,DON BROWN,THE RESCUE9V^ U1,EAMON UTILITIES I,JOHN NELSON,PLAYER'S UTILITIES9`^ U2,EAMON UTILITIES II,JOHN NELSON,DESIGNER'S UTILITIES8l8U SCHOOL OF DEATH,KURT TOWNSEND,PROD,DUNGEONS OF XENON,SAM BHAYANI,PROD,CHAOSIUM CAVES,SAM BHAYANI,PRODt8] 98$^ DD5,DUNGEON DESIGNER DISKETTE,D.BROWN/J.NELSON,VERSION 5.08.^ DD6,DUNGEON DESIGNER DISKETTE,J.NELSON/D.BROWN,VERSION 6.0)98^ T1,ROD,LAND OF DEATH,TIM BERGE,PROD,JUNGLES OF VIETNAM,JEFF ALLEN,PROD,SEWERS OF CHICAGO,JEFF ALLEN,PROD8(U BLACK CASTLE OF NAGOG,DOUG BURROWS,PROD,DUNGEON OF DOOM,MATHEW MULLIN,PROD,VALKENBURG CASTLE,JEFF WEENER,PROD,MODERN PROBLEMS,BONNIE ANDERSON,PRODOUMAKES,PROD,BEHIND THE SEALED DOOR,TIM BERGE,PROD,EAMON BLUFF,TIM BERGE,PROD6`T FEAST OF CARROLL,D&J LILIENKAMP,PROD,CRYSTAL MOUNTAIN,KEN HOFFMAN,PROD,MASTER'S DUNGEON,JEFF ALLEN,PROD,LOST ADVENTURE,JEFF ALLEN,PRODe7T MANXOME FOE,RAY OLSZEWSKI,PERDING,PROD,PRIESTS OF XIM!,MARTY & ED BAUMAN,PROD,ESCAPE FROM THE ORC LAIR,JAY HINKLEMAN,PROD5S SWORDQUEST,ROGER PENDER,PROD,LIFEQUEST,DAVID CRAWFORD,PROD,FUTUREQUEST,ROGER PENDER,PRODM6S PICNIC IN PARADISE,JOHN NELSON,PROD,CASTLE KOPHINOS,DON DàΠōΠ΍čŠӍΠӍččĠŠĠҍ͠ōčӠƠΠƍ͠ōčŠ͠àҍ٠΍ččԍҠҍčԍĠččԍҠҍčΧӠčˠǍčӠƠԍˠǍčŠҧӠōˠǍčԧӠƠ͍٠Ġ΍č̠ƠčΠ΍čԠҠŠ٠̍Π΍č٠ΠŠӍΠ΍č͠Ơٍ̠ˠǍčŠƠ̠Šů̩Ӎč ƠӍΠ΍čȧӠٍ ΍čҠƠӍΠ΍ččҠƠ΍Ġ٠ȍčԠĠƠōĠ΍čĠٍŠ΍čԍΠ΍ččˠ΍Π΍čҠōΠ΍čԠΠŠŠ΍Π΍čŠƠŠŠ΍Π΍čˠȍΠ΍ččԠҠ΍Π΍čҧӠӍӠ΍ččŠƠԍӠ΍čӠƠ΍Π΍čΧӠō̠΍čȠōΠōčȠЍΠ΍čԠҠō͠΍čӠƠŠčǠڠР΍čύ͠ӍčӠōΠ΍čҧӠӍ͠΍čԠΠŠҍĠ΍č̠͍Ġˍč ƠҍĠ΍čҠō͠΍čŠƠ͍Ġ΍čȠҍĠ΍ç̌Ӡ͠΍čΠҠִҧӠōĠ΍čҠƠŠҍĠ΍čŠƠŠčҠ͠ʠ΍č          FRESH MEAT":REC:200:DK$;"CLOSE":DK$;"RUN ";ADNAME$AR1NC:DK$"READ CHARACTERS,R";R:X$@ R;". ";X$::DK$:20F N A$T  DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE" :5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::7 $DK$;"OPEN FRESH MEAT":DK$;"WRITELOCKED. IF YOU WISH TO CHANGE ITANYWAY, PRESS 'C' ...";f A$::A$"C"ĺ:"NO CHANGES MADE.":1850 D$;"UNLOCK EAMON.NAME":1050 : === DONE === l"PROCESSING COMPLETED." OULD SEE SEVERAL PROMPTS.":"THIS IS NORMAL."A D$;"EXEC TEMP"G [  === ERROR ===w ERR(222):ERR101700 @ERR6ĺ:"FILE NOT FOUND. TERMINATING.":1850 r"UNABLE TO COMPLETE. ERROR CODE = ";ERR:"NO CHANGE MADE":18507 :"FILE IS D EAMON ADVENTURE #";NUM:"0 A$=";(34);NAM$;(34);":A2$=";(34);AU$;(34);":NUM=";NUM P"UNLOCK EAMON ADVENTURE #";NUM:"SAVE EAMON ADVENTURE #";NUM:"LOCK EAMON ADVENTURE #";NUM:"DELETE TEMP" ZD$;"CLOSE" x"PROCESSING COMPLETED"- :"YOU SHUM$:(NUM$)2(NUM$)254Ģ(37):958:160< NUM(NUM$)G 1500b D$"DELETE EAMON.NAME"{ LD$"OPEN EAMON.NAME" ~D$"WRITE EAMON.NAME" NAM$:ND$ D$"CLOSE" D$"RENAME ";ADVNAM$;",";NAM$V FD$;"OPEN TEMP":D$;"WRITE TEMP":"LOA) A50# FD$"OPEN EAMON.NAME"/ KND$"6"N PD$"READ EAMON.NAME":ADV$X U100a ZND$p dD$"CLOSE" n:6:" OLD ADVENTURE NAME IS ...": x" ";::ADVNAM$:: ::"NEW NAME:";NAM$ "AUTHOR NAME:";AU$, "ADVENTURE #";N  RENAME EAMON ADVENTURE: BY JOHN NELSON@| THIS PROGRAM WILL RENAME ANY ADVENTURE  2-22-842:6:" INSERT EAMON ADVENTURE DISKETTE AND "::12);"PRESS ANY KEY...";:16368,0:A$: <D$(4ȠҠŠ٭ԠĠ΍čŠέԠĠ΍čȠҠƍʠΠĠӍčŠƠŠӍΠ΍čŧӠ΍ ӍčŠƠԠٍĠ΍čŠΠΠō͠ōčР΍ΠōčԍҠҍčŠƠŠčʠΠĠӍčȧӠčΠҍččˠŠƠǍǠӍč Ơ٧ÍԠˍčΠ ٍŠōčΠӍέέ΍č̠ƠȍԠččӠƠҍ͠ɍč͠Ӎ͠ɍčӠƠύƠ΍čč٠čΠҍččΧӠƠ͍נ΍čǠōƠҍččԠōƠ΍čŠō٠ɍččĠƠȍ͠ōččӠƠ͍Ơ΍čç̌Ӡ΍Š̍čԠƠ̍ΠΠЍč̠΍Π΍čҧӠ΍Ơ΍č宍砭笠堢좠䮍箠宍䮠䮍堭宠宍堭宠宠󍠠򍠠獮宠󠭠宠堠􍠠􍠠獠占󍠠󍠠򍠠Үͮ占󍠠󍠠箍ɠ󺍍󍠠占占֠宠ɠ󮍍ɠ󮍍ɠ󮍍Ů占ᠠ宠嬠򮍍                         ōƍčōōō䍠䍠򍠠򍠠Үͮ占󍠠堠󍠠䍠􍠠󍠠􍠠獠占􍠠󍠠󍠠ﺍ􍠠Ůᠠɠ򮍍㮠笠宍砭򮍍򠭠宍砭宠宍󠭠宠䠠宍󠭠宠宍󠭠堭쮠嬠宠Ԡ͠塠宠䬠Үͮ欠䮠箍򠭠嬠󠭠宠宠嬠䮍󠭠宠宠堭젭䮠ح謠䠭䮠箍򠭠嬠󠭠䮠󠭠䬠䮍宠堭宠䮠ح謠砭笠堢좠宍箠宍嬠宠䬠讍󠭠宠㮩宍䮠㠨笠󮍍䠭󮍍󠭠󍠠򍠠獮ɠɠ宠ﬠ殍嬠􍠠Ůᠠɍɠ宍砭ﺍ󮍍󠭠宠宍󮍍𠭠򮍍󮍍𠭠󮍍堭󠢱䢠䢠栢䠱䠲𠭠宠䮠嬠宠宍󠭠䮠󮍍堭쮠Үͮ欠Ԡ͠塠宠򠭠䬠宠쮠宍宠嬠󮍍堨䮠䠭䮠宠󮍍򠭠Үͮ䍍󠭠䍍蠭嬠䮠ɠ󮠍宠宠ɠ򮍍堭ﮠ宍砭à笠䍍䠭䍍󠭠䍍䍍堭䍍䍍堭獠占􍠠Үͮ󍠠荠򍍍󠭠䍍󠭠󠠠󍠠󍠠䍠󍠠􍠠占􍠠占􍠠󮍍֠󺍍ɠ򮍍򠭠󮍮֍֠嬠宍堭󮍍堭󮠨ɠɠ򮍍庍占占A%(4): Q4V"ENTER NEW AXE ABILITY:";WA%(1)::[a`"ENTER NEW BOW ABILITY:";WA%(2):gej"ENTER NEW CLUB ABILITY:";WA%(3):ot"ENTER NEW SPEAR ABILITY:";WA%(4):y~"ENTER NEW SWORD ABILITY:";WA%(5):"ENTER NG:";AG:AG29AG24:P$"ENTER NEW CHARISMA RATING:";CH:CH29CH24:V)~."ENTER NEW BLAST RATING:";SA%(1):38"ENTER NEW HEAL RATING:";SA%(2):=B"ENTER NEW SPEED RATING:";SA%(3):GL"ENTER NEW POWER RATING:";S 23q OP3590,3600,3610,3620,3630,3640,3650,3660,3670,3680,3690,3700,3710,3720,3730,3750,3760,3770,3790,3870 OP20100 3500"ENTER NEW NAME";NAME$:"ENTER NEW HARDINESS RATING:";HD:HD29HD24:"ENTER NEW AGILITY RATIEC:NA$ * NA$CHA$Ă:3410( 4 90002 > 3420; H REC R :10:10::"CHARACTER NOT FOUND."::TIME12000:TIME:DK$;"CLOSE":3000 \ DK$;"CLOSE" X120 X9ĺX;". ";OBJ$(X):3540 X;". ";OBJ$(X) X :"SELECT:";OP CMD$ !  CMD$"M"33003  CMD$"R"100=  8000G & 3060b ///MODIFY A CHARACTER :6:"ENTER CHARACTER:";CHA$ 16368,0  DK$;"OPEN CHARACTERS,L150" DK$;"READ CHARACTERS,R0":NC  REC1NC DK$"READ CHARACTERS,R";RFUL WORLD OF EAMON",  /// ADVENTURE LISTA DK$"RUN ADVLOG"\ ///MODIFY A CHARACTERl 16368,0: 10::"CHARACTER MODIFICATION": 6:10:"<";::"M";::">ODIFY A CHARACTER": 10:"<";::"R";::">ETURN TO MAIN MENU" 8000";::">AMES OF CHARACTERS":' 80009 :"E";::22C CMD$I b CMD$(13)CMD$"E" X15:CMD$("EAMON",X,1)Ă:8000:210 CX:X5: C1000,2000,3000,4000,5000 8000 220  /// ENTER EAMON DK$;"RUN THE WONDER :": o958( s16:CP$:a x6:10:"<";::"E";::">NTER THE WORLD OF EAMON": 10:"<";::"A";::">DVENTURE/AUTHOR LIST": 10:"<";::"M";::">ODIFY A CHARACTER": 10:"<";::"O";::">THER MENU": 10:"<";::"N  EAMON MENU' BY; JON HENGL ANDb JOHN NELSONh DK$(4)::OBJ$(20):X120:OBJ$(X):60000Q16336d /// MAIN MENU n::15::": :":15:" EAMON MENU ":15:":           011:(P$,P,1)" "Ă:P$:P$"":\ " ";(P$,P1):LPLP1:2000:P$(P$,P):P0::1300s LP60ĺ(12):LP0y 4   (P$)80ĺ" ";P$:P$"":LPLP1:2000:  1300:" ";P$:LPLP1:P$"":dD dD$(4)%"FILE NAME:";FILE$4,D$;"PR#1"JD$;"OPEN ";FILE$U1200kXD$;"READ ";FILE$qy A$A$(13)İ2300:800P$P$A$:(P$)200İ1300:800L7001300:P$::D$;"CLOSE":D$;"PR#0":(P$)80ı$ xP8  2, ZARDAX AND OTHERS!"D :"HOWEVER; FIRST RUN THE PROGRAM NAMED"p "'DOCUMENTATION PRINTER' TO SEE IF IT" "WILL WORK WITH YOUR PRINTER." :"IF IT DOES WORK YOU ARE IN LUCK." d:8<"TO READ OR PRINT THE 'DOCUMENTATION'"g"FILE WHICH DESCRIBES THE PURPOSE OF","EACH PROGRAM AVAILABLE ON THE EAMON""UTILITY DISKS REQUIRES A WORD PROCESSOR""THAT WILL READ TEXT FILES, SUCH AS," X"APPLE WRITER  :14::"TEST ADVENTURE"::6:10:"<";::"B";::">UG LIST":q 610:"<";::"R";::">ETURN TO MAIN MENU": 610:"<";::"A";::">DVENTURE WITH REG. CHAR.": 610:"<";::"T";::">EST CHARACTER": 68000 6:"R";:22::CMD$!6CMD$E$(I)));WODDS%(I);"%";6(WODDS%(I)0)((WOODS%(I))9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);33(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"3I324::"PRESS ANY KEY TO CONTINUE ";::A$:31006 ///TEST ADVENTURE@ 690r3"CHAIN";:13190,|3"PLATE";:13190h3(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"q3" "3"WEAPON INFORMATION:"3"NAME COMPLEXITY DAM ODDS"3" "3I143WNAME$(I)"NONE"13280d3WNAME$(I);17(WNAM3);" POWER ";SA%(4)4,3" ":13);"WEAPON ABILITY"l63"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3)@34);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)J3" "T3"ARMOUR: ";:(AC2)113150,13160,13170,13180^3"SKIN";:13190h3"LEATHER";:13120000:FOUND1002900002:"NAME: ";NA$g2"SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANKp2" "3"HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH3" "313);"SPELL ABILITY""3"BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(K$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE"~v/:5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::/DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:12080:DK$;"CLOSE":DK$;"RUN ";ADNAME$2 DISPLAY CHAR2:102ISKETTE INTO DRIVE 1"::" AND PRESS ANY KEY TO CONTINUE"N&/A$::121100/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):WD/N/b/Al/DB#X14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSIDES%(X):X#EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40#EAEAAE:EA0EA0#DK$;"CLOSE"&..:10:20000:FOUND100.9000=/:"INSERT ADVENTURE DNTINUE>";:A$100m@::20:15:"SELECT:";:BUZ12:CLICK110:S(Q):CLICK:TIME110:TIME:BUZ:sJ(#DK$;"READ CHARACTERS,R";REC2#NA$<#HD,AG,CHF#X14:SA%(X):XP#X15:WA%(X):XZ#AEd#SEX$n#GOLD,BANKx#AC":DK$;"READ CHARACTERS,R0":NC:N1NC:DK$;"READ CHARACTERS,R";N:N$VN$""ĄN2$DK$:"#";N;": ";N$;:N$""ĺ"(";N2$;")";(N20)N20ĺ:8:"";:A$::N:DK$;"CLOSE" ::8:"AIN MENU":@10:"<";::"A";::">DVENTURE ONLY":l10:"<";::"S";::">EE CHARACTERS":10:"<";::"T";::">EST AN ADVENTURE":10:"<";::"E";::">ND":10:"<";::"R";::">ESURRECT A CHARACTER":8000:RITE CHARACTERS,R";REC:12080:DK$;"CLOSE"02< NAME,HARDINESS,AGILITY,CHARISMA,BLAST,HEAL,SPEED,POWER,AXE,BOW,CLUB,SPEAR,SWORD,ARMOUR EXPERTISE,SEX CHANGE,GOLD,BANK,ARMOUR CLASS,WEAPON DATA,QUIT///OTHER MENU6:95810:"<";::":TDTDWD%(WN)WS%(WN)4"ENTER COMP:";WOODS%(WN)R"ENTER DICE:";WDICE%(WN)r"ENTER SIDES:";WSIDES%(WN)TDTDWD%(WN)WS%(WN):TDOTĭWD%(WN)WS%(WN)24WD%(WN)1:WS%(WN)8 ///SAVE CHARACTER*(DK$;"OPEN CHARACTERS,L150":DK$;"WBANK Z"ENTER NEW ARMOUR CLASS:";AC:AC7ĺ"ARMOUR CLASS MAY NOT EXCEED 7.":3770`X14:TDTDWD%(X)WS%(X):"ENTER WHICH WEAPON TO EDIT(1-4):";WN:"ENTER NEW WEAPON NAME:";WNAME$(WN)"ENTER WEAPON TYPE:";WTYPE%(WN)OTTDNEW ARMOUR EXPERTISE:";AE:!kSEX$"M"ĺ"CHARACTER IS NOW A FEMALE.":SEX$"F":TIME11000:TIME:SEX$"F"ĺ"CHARACTERS IS NOW A MALE.":SEX$"M":TIME11000:TIME:"ENTER NEW GOLD AMOUNT:";GOLD:"ENTER NEW GOLD IN BANK AMOUNT:"; YN$:YN$"Y"PF0:YN$:NLNB:5107 YN$"N"480O YN$:D$"PR#1":460] NL1530m D$"PR#1": "MORE LABELS? (Y/N):"; YN$:YN$"Y"YN$"N"540 &:YN$"N"Ā 020(2) hCL%(CL%83.5)1 rSP%(CL%(L$(X)))2T |SP$"":Y1SP%:SP$SP$" ":Yo CR$;DS$;DW$;SP$;L$(X)v X N:PFı D$"PR#0" 530  ///PRINT TEST LABELS NBNL:NL1 PF1:260 D$"PR#0":"IS PRINTER ALIGNED? (Y/N)";% N1NL:X16, CR$(X)"C"CR$(15)F CR$(X)"R"CR$(18)` "DS$(X)"D"DW$(14)w ,DS$(X)"R"DW$"" 6DR$(X)"D"DS$(27)(71) @DR$(X)"R"DS$(27)(72) JCR$(X)"R"CL%80 TCR$(X)"C"CL%132 ^DS$(X)"D"CL%(CL% "DOUBLE STRIKE/REG. (D/R)";T DR$(X):DR$(X)"D"DR$(X)"R"DR$(X)""170k DR$(X)""DR$"R"w DR$(X)} "HOW MANY LABELS:";NL "TEST LABELS WANTED? (Y/N)"; YN$:YN$"Y"YN$"N"230 YN$:D$"PR#1" YN$"Y"İ440X))1):50! PL$(X)L$(X)X$:50` ZL$(X)""L$(X)" ":DR$(X)"R":DS$(X)"R":CR$(X)"R":200t d"COMP./REG.:"; nCR$(X):CR$(X)"C"CR$(X)"R"110 xCR$(X) "DOUBLE WIDE/REG. (D/R):"; DS$(X):DS$(X)"D"DS$(X)"R"140 DS$(X) GENERAL PURPOSE8 LABEL PROGRAM>Z BY JOHN NELSON`ft :D$(4)X16"LINE ";X;":";(L$(X)""2X$:X$;:X$(13)90<X$(8)(L$(X))1L$(X)"":50 FX$(8)L$(X)(L$(X),(L$(PER":10:"CHARACTERS FILE."[(ERR6LN350ė:10:5:"THIS IS NOT THE MASTER DISKETTE."(21::"ERROR";::":";ERR;" -IN LINE ";LN(:7:"";:A$::100EC:N$$'4NN$NA$Ă:FOUND0:201007'>NFOUND1:DK$:'N:10:10::"CHARACTER NOT FOUND."::TIME12000:TIME:DK$;"CLOSE":'`///ERROR ROUTINES'jERR(222)'tLN(218)(219)256(~ERR6ERR5LN4040ė:10:5:"DISK DOES NOT CONTAIN PRO7&>:NA$;" ISN'T DEAD OR DOESN'T EXIST.":DK$"CLOSE"k&>22:7:"";:A$:100q&?& N /// FIND CHAR'*N"NAME OF ADVENTURER:";NA$:DK$"OPEN CHARACTERS,L150":DK$"READ CHARACTERS,R0":NC:REC1NC:DK$"READ CHARACTERS,R";RSURRECTED:";NA$1%>DK$;"READ CHARACTERS,R0":NC`%>R1NC:DK$"READ CHARACTERS,R";R:N$:ME$u%>N$""Ă:16110%>ME$(NA$,2)Ă:16110&>DK$"WRITE CHARACTERS,R";R:NA$:DK$"CLOSE"::"VERY WELL,";NA$;",":" YOU HAVE BEEN RESURRECTED.":16120DK$"READ EAMON.NAME":AD$:DK$"CLOSE"9$9DK$"RUN ";AD$G$: /// ENDX$:DK$;"CLOSE"^$:q$> ///RESURRECT$>:5:10:"INSERT MASTER DISKETTE."::07:" ";:A$:$>$>DK$;"OPEN CHARACTERS,L150"%>:"CHARACTER TO BE RERESH MEAT":DK$;"WRITE FRESH MEAT"j#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":DK$"OPEN EAMON.NAME"::HE40:SP40:14540G"8"HARDINESS:";HD:"AGILITY:";AG:"CHARISMA:";CHb"8"SPELLS:";BL,HE,SP,PO"8WA%(1)15:WA%(2)0:WA%(3)30:WA%(4)10:WA%(5)20"8:5:"INSERT ADVENTURE TO TEST AND PRESS ANY"::" KEY TO CONTINUE""#8A$::DK$;"OPEN F(13)CMD$"R">!6X14:CMD$("BRAT",X,1)Ă:8000:14050L!6SX:X4:k!7:S14100,100,12000,14500|!7 ///BUGLIST!7DK$"RUN BUGLOG"!8"DO YOU WANT TO USE DEFAULTS?";!8A$::A$"N"A$"Y"İ8000:14510"8A$:A$"Y"HD18:AG18:CH18P!'CW%CW%(M)PPM:CW%CW%(M)r'MN$(M);" IS READY FOR BATTLE."::"(PRESS ANY KEY TO CONTINUE)";:A$::100*CW%(M)MD%(M,1)MD%(M,4)(MD%(M,6)35)(MD%(M,7)MD%(M,8))(2MD%(M,5)) N >>> PREDICT A FIGHTU*NM0ĺ:"THERE IS NO MATCH SCHEDULE;R:MN$(M):MD$:MD%(M,1),X,MD%(M,2),X,X,X,MD%(M,4),MD%(M,5),X,MD%(M,6),MD%(M,7),MD%(M,8):D$ 'MN$(M)MN$(M)"("(R)")":MD%(M,2)M1:M1MD%(M,2)2 'CW%(M)MD%(M,1)MD%(M,4)(MD%(M,6)35)(MD%(M,7)MD%(M,8))(2MD%(M,5))'CW%CW%(M)MD%(M,2)PR.MASTER,R";R:NA$:@ B'NA$X$Ă:"I CAN'T FIND THAT MONSTER."M L'MD$:D$| V':NA$::MD$::"IS THIS THE RIGHT ONE?"; `'RE$:RE$"Y"RE$"N"10080 j'RE$:RE$"N"NA$"":10050 t' >>> READ A MONSTER y'MM1] ~'D$"READ MONSTER.MASTER,R":"SELECT MONSTER BY # OR NAME:";X$@ $'(X$,1)"#"X$(X$,2)f .'(X$)0(X$)NMR(X$):10100 3'(X$)NMĺ:"THERE AREN'T THAT MANY FIGHTERS IN THE":"WORLD. TRY AGAIN."::"(PRESS ANY KEY TO CONTINUE)";:A$::10000 8'R1NM:D$"READ MONSTESTERS FOR A BATTLE":" 2. PREDICT THE OUTCOME OF A BATTLE":" 3. WAGE A BATTLE":" 4. QUIT" "INPUT YOUR CHOICE (1-4):"; A$:(A$)1(A$)4150 (A$)10000,20000,30000,40000 ' >>> SELECT FIGHTERS$ ':11);"MONSTER SELECTION":AD MONSTER.MASTER,R0":NM:D$( 216,01 (100 F:"NO MONSTER MASTER HAS BEEN CREATED...":X11000:X:D$"RUN EAMON UTILITIES II" d >>> MAIN ROUTINE n:12);"BATTLE ROYALE"::11)"BY JOHN NELSON"::^ x"SELECT ACTION:":" 1. SELECT MON BATTLE ROYALE0 BY JOHN NELSON6 THIS PROGRAM WILL STAGE A GIANTIC MONSTER BATTLE OR A CONTEST BETWEEN ANY EAMON MONSTERS YOU SELECT. D$(4)::MN$(100),MD%(100,10),CW%(100)70 D$"OPEN MONSTER.MASTER,L384":D$"RE      :X121:X:25:A$. Z150:Z:X: MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121 ------------------:( 7:"CHEYENNE * WY * USA * 82009":1 255b 2:"PRESS C FOR CATALOG OR RETURN TO QUIT";j C${ C$"C"1500 x(1155)3000 ::(4);"CATALOG": A$"APPLE ][ AND AAA" X112 1:X1:A$; X:" ";:Z125:Z:X JOY AND USE."6 6:"-- PLEASE, SEND 3A A COPY --":c "WE'LL RETURN YOUR DISK, RECOPIED WITH" R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC" "DOMAIN LIBRARY, WITH MANY THANKS.": 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET";"FAULTY";Q$;" PUBLIC"B "DOMAIN PROGRAMS ON THIS DISK AND YOU"W "FIXED THEM?": &"MAYBE YOU EVEN TOOK LOTS OF TIME TO" X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENpd3A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 ---------------------zn::xQ$(34)(1155)İ2000::,2:" AN INVITATION FOR APPLE PROGRAMMERS ": "PERHAPS YOU FOUND SOME ";Q$    !!"E :"DO YOU WANT TO RESURRECT THIS CHARACTER?":"(Y OR N):";A$i (A$,1)"Y"(A$,1)"N"1020| (A$,1)"N"Ā D$"RUN RESURRECT" X  D$(4)1000}D$"OPEN THE ADVENTURER":D$"READ THE ADVENTURER":NA$,REC:D$"CLOSE":D$"DELETE THE ADVENTURER"(NA$;" HAS SUCCESSFULLY RETURNED.":D$"RUN CHAR MAINT" /// ADVENTURER DIED "TOO BAD. YOU'RE DEAD.":"AAA-W-W-W-W-W!100> WD1ĺ:"INSERT MONSTER MASTER AND PRESS KEY";:A$:J M1MT D$"WRITE MONSTER.MASTER,R";NM1:MN$(M):(34);MD$(M);(34):X112:M%(M,X): NMNM1: D$:100  >>> DONE PUTTING MONSTERS D$"WRITE MONSTER.MASTER,R0":NM:,X,NEz MT1:M1NE:D$"READ EAMON.MONSTERS,R";M:MN$(MT):A112:M%(MT,A)::D$"READ EAMON.DESC,R";M300:MD$(MT):D$ MTNM;". ";MN$(MT):"WANT THIS ONE?"; YN$:YN$"Y"YN$"N"220 YN$:YN$"N"ĂM:245 MTMT1:M:MTMT1 MT0ND ENTER ADVENTURE #":"ADVENTURE #:";AN: AN4AN13ĺ:"USE VERSION 0 OF THIS PROGRAM!!":"THIS PROGRAM USES IMPROPER FORMAT.":160 AN98ī1000 D$"OPEN EAMON.MONSTERS,L128,S6,D1":D$"OPEN EAMON.DESC,L256,S6,D1":D$"READ EAMON.DESC,R0":X,XCH20000,90,2000,1000d Z:"INSERT WORK DISKETTE IN DRIVE ";WD:" AND PRESS ANY KEY":A$: _D$"OPEN MONSTER.MASTER,L384,S6,D";WD:D$"READ MONSTER.MASTER,R0":NM:D$ d >>> MAIN ROUTINE* :"INSERT EAMON ADVENTURE IN DRIVE 1":" AD$(4)::M%(30,12),ML$(12),MD$(30),MN$(30),MD%(12):16000 :10);"MONSTER CONSOLIDATION":6:" SELECT ACTION:":" 1. INITIALIZE/CREATE FILE":" 2. ADD MONSTERS TO MASTER":" 3. LIST MONSTERS":" 4. QUIT" " INPUT YOUR CHOICE:";CH:  EAMON MONSTER, INVENTORY= ANDT CONSOLIDATIONg PROGRAMm BY JOHN NELSON THIS PROGRAM READS MONSTERS FROM ALL THE EAMON ADVENTURES AND PUTS THE MONSTERS ALL OUT TO A SINGLE FILE <     ֈ:A$"Y"ıG"DO YOU WANT THE WINNER TO FIGHT AGAIN?":"(Y/N):"fꈾA$:A$"Y"A$"N"35050z:A$"N"M0:Y18:MD%(1,Y)MD%(W,Y)::M1@ >>> QUITJD$"CLOSE":GOOD SHAPE.":4MN$(DF);" IS LIGHTLY INJURED!":SMN$(DF);" IS INJURED!!":{`MN$(DF);" IS SEVERELY INJURED!!":ĆMN$(DF);" IS CRITICALLY WOUNDED!!": >>> TOURNAMENTˆ"DO YOU WANT A REMATCH? (Y/N):";̈A$:A$"Y"A$"N"35020 OVER=255:X1M:MD%(X,10)0Ă:"EVERYBODY LOST!!!!":bMN$(X);" HAS WON!!!":WX:35000:"(PRESS ANY KEY TO CONTINUE)";:A$::100耲 >>> BATTLE CONTIUESDMD%(DF,3)MD%(DF,3)D:MD%(DF,2)OF:300304MN$(DF);" IS STILL IN AD!!!":MD%(DF,10)1:32000Xu(MD%(DF,9)5MD%(DF,1)1)34100,34200,34300,34400,34500cu33000{} >>> DEFENDER DIES }MD%(DF,10)1:MFMF1:MF232900}X1M:MD%(X,10)XOFMD%(OF,2)X:MD%(OF,3)0:XM1(}Z}33000 >>> BATTLE ISOF,6)MD%(DF,4))RAN96HIT1Rlu" -- A ";("MISS!HIT!!",HIT51,5):HIT33000vuX1MD%(OF,7):DD((1)MD%(OF,8)1)::DDMD%(DF,5):D0MD%(DF,9)MD%(DF,9)DxuD1ĺ" BLOW BOUNCES OFF ARMOUR!":33000{uMD%(DF,9)MD%(DF,1)ĺMN$(DF);" IS DETINUE)";:A$::100Hu150EIuX1M:MD%(X,9)0:MD%(X,10)0::MFMfNuOF1M:MD%(OF,10)Ă:30030SuMD%(MD%(OF,2),10)MD%(OF,2)((1)M1):30035XuDFMD%(OF,2)::MN$(OF);" ATTACKS ";MN$(DF);"!!"buD0:HIT0:RAN((1)1001):(RAN5RANMD%(uM1ĺ:"THERE IS NO ONE HERE TO FIGHT."::"(PRESS ANY KEY TO CONTINUE)";:A$::100DuM1ĺMN$(1);" LOOKS UP AT YOU AND":"SAYS:":(34);"WELL, IF YOU THINK I'M GOING TO KILL ":"MYSELF, YOU'RE OUTTA YER BLOODY MIND!!";(34)::"(PRESS ANY KEY TO CON8))(2MD%(M,5))9HN:X1M:CW%(X)CW%CW%CW%(X):PPXRN::"I GUESS I'D HAVE TO PUT MY MONEY ON":MN$(PP);" TO WIN THIS ONE."\NX1M:XPP(1).65MD%(X,2)PPfNDR:"(PRESS ANY KEY TO CONTINUE)";:A$::1000u >>> BATTLE ROUTINEV:D. HOW CAN I":"POSSIBLY PICK A WINNER?"::"(PRESS ANY KEY TO CONTINUE)";:A$::1004NM1ĺ:"I'LL TAKE ";MN$(M);" TO WIN HANDS DOWN."::"(PRESS ANY KEY TO CONTINUE)":A$::100>NCW%0:X1M:CW%(X)MD%(X,1)MD%(X,4)(MD%(X,6)35)(MD%(X,7)MD%(X,D,OFF.ODDS,W.DICE ,W.SIDES ">@ N >>> INIT MONSTER MASTERL%ND$(4)*ND$"OPEN MONSTER.MASTER,L384,S6,D2":D$"WRITE MONSTER.MASTER,R0":0:D$"CLOSE"4N}D$(4):D$"OPEN MONSTER.MASTER,L384":D$"WRITE MONSTER.MASTER,R0":175:D$"CLOSE"12:M%(X):L:"MONSTER #";M::MN$::MD$:X112:ML$(X);": ";M%(X):|D$::"PRESS ANY KEY TO CONTINUE";:A$::> >>> LOAD TABLE>X112:ML$(X):> HD ,AG ,FRIEND ,COUR ,ROOM ,WEIGHT ,DEF.ODDS,ARMOUR ,WEAPON# ECRS$",R" M 1000  >>> END OF JOBb D$"WRITE MONSTER.MASTER,R0":NM:D$"CLOSE":z  >>> LIST MONSTERS D$"OPEN MONSTER.MASTER,L384,S6,D2":D$"READ MONSTER.MASTER,R0":NM  M1NM:D$"READ MONSTER.MASTER,R";M:MN$:MD$:X1ONSTERS":NE:RS$""3 M1NE:SPECRS$RS$(M) D$"READ EAMON.MONSTERS";RS$:MN$:A112:M%(A)::D$"READ EAMON.DESC,R";M300:MD$ NM;". ";MN$ D$"WRITE MONSTER.MASTER,R";NM:MN$:(34);MD$;(34):X112:M%(X): D$:NMNM1 SPTER ADVENTURE #":"ADVENTURE #:";AN:V SPEC0:FS$",L128":AN4AN13FS$"":SPEC1e AN99ī20 D$"OPEN EAMON.MONSTERS";FS$;",S6,D1":D$"OPEN EAMON.DESC,L256,S6,D1" SPECĺD$"READ EAMON.DESC,R0":X,X,X,NE:RS$",R" SPECĺD$"READ EAMON.M0M Z:"INSERT WORK DISKETTE IN DRIVE 2":" AND PRESS ANY KEY":A$: _D$"OPEN MONSTER.MASTER,L384,S6,D2":D$"READ MONSTER.MASTER,R0":NM:D$ d >>> MAIN ROUTINE NM0NM1:160% :"INSERT EAMON ADVENTURE IN DRIVE 1":" AND ENRIVE 2., D$(4)::M%(12),ML$(12):16000 :"MONSTER INVENTORY"::"SELECT ACTION:":" 1. INITIALIZE FILE":" 2. CREATE MONSTER MASTER":" 3. ADD TO MASTER":" 4. LIST MONSTERS":" 5. QUIT" "INPUT YOUR CHOICE:";CH:CH20000,90,90,2000,100 EAMON MONSTER- INVENTORY> ANDU CONSOLIDATIONh PROGRAMn BY JOHN NELSON THIS PROGRAM READS MONSTERS FROM ALL THE EAMON ADVENTURES AND PUTS THE MONSTERS ALL OUT TO A SINGLE FILE ON DN DRIVE ";WD;" AND PRESS ANY KEY":A$:|4ND$"OPEN MONSTER.MASTER,L384,S6,D";WD:D$"WRITE MONSTER.MASTER,R0":0:D$"CLOSE">N20}D$(4):D$"OPEN MONSTER.MASTER,L384":D$"WRITE MONSTER.MASTER,R0":16:D$"CLOSE"D?23:"(PRESS ANY KEY TO CONTINUE)...";7H?16368,0AR?A$:p?:"DRIVE # OF MONSTER MASTER: (1 OR 2) ";?A$:A$"1"A$"2"16310?A$:WD(A$)gB N >>> INIT MONSTER MASTER'*N:"INSERT DISKETTE TO RECEIVE MONSTER FILE"::" IDONE SO THAT THE":"AUTHOR COULD WRITE A DUNGEON GENERATION":"PROGRAM. AFTER COMPLETION OF THE MONSTERINVENTORY PROGRAM, THE IDEA OF A GIANT">"MONSTER BATTLE PROGRAM CAME TO MIND. THEPROGRAM WAS DESIGNED AND WRITTEN AND THERESULT IS THIS DISKETTE.") ,AG ,FRIEND ,COUR ,ROOM ,WEIGHT ,DEF.ODDS,ARMOUR ,WEAPON# ,OFF.ODDS,W.DICE ,W.SIDES >:"THIS PROGRAM WILL CREATE A MONSTER FILE":"CALLED 'MONSTER.MASTER' ON DISK. THIS MIGHT BE DONE FOR MANY REASONS.">"THIS WAS ORIGINALLY G$):EN(EN$):MBEGEN:D$"READ MONSTER.MASTER,R";M:MN$:MD$:X112:MD%(X)::"MONSTER #";M::MN$::MD$:X112:ML$(X);": ";MD%(X):D$::"PRESS ANY KEY TO CONTINUE";:A$:: 20> >>> LOAD TABLE>