' +JJJJ ?\>m0M='+l> /+l  P˵B̵CõDĵEµµBD ĵ ⵭µ ۰ µL` B H@Aﳈ  @A ਦ@A LL$ 鷎귭෍ᷩ췩緈JJJJx i L8ᷭ緍췩 i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&" ʎ L/ ɃL`  !"#$%&'()*+,-./0123456789:;<=>? ( 1 +".*$ (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#01)*#;?;/4>:(+02&<#)#0*Eb ;1h  !"`H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` ƥ LꢭɛL`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   d@ŵLҦL [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\޼e<6e<ԍ L}JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\8õ浍õĵBD` L[W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& $`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLLz L^ ۰L^  ȟ QlXJ̥KlV  ȟ QlV eօ3L׮ʊHLQ &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ȿõ` F`  \ 濭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`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUTYP!pppp p p p p`" t""#x"p0p@p@@@p@!y q q t@  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- (  Ԡ͠@跻~!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 ꝍ ŤL{ BH [ h`Lo õ ڬL ꝍ ŤL~H hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8DH ؿ 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뷭鷭  ˤLª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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#ՠķҠՠĶÍ͠ՠōҠՠųŹҠՠԠՠŶƸԠՠųűՠŰŲՠűԱՠĸ̱ՠčԠՠčԠՠҠ̍Ҡ͍РӧѠ įԍ ōҺ Í ĺ Ӭج ؽŬ ٽΩ Ժ ɬ ũǠưÍؠ٠Ƶؠƶ٠ƷӍ̠    ҍԫ ׍ؠԍŠˍѠԍӍԍԫ٠ԩٍѠԍˠ٠ ԩٍѠōɠōРàōĠƍԩٍŠٍŠŠ٠ԩٍ؍ٍԩ٠ ҠĶ ōàҍàĠ ӭ ōà ĬōàōӍҠؠ ұРĴ ҍԠ ɬٍ٠ԠٍРŠԍŠōԠؠŠԱРàԱĠƍŠٍԱٍ٠ŠԍԠӍ ҍҠ̍Ҡŷ ҍ ؠÍàұȱРȍ ï ҍ Ӎ ҭ čԠҠԍؠč٠ĩٍٍĩٍٍĩՠųՠŰՠűՠŲĠՠĠՠƹԠՠȠՠƍǠҠ̍Ҡ͍ ԭ ōРѠȱР֧ѠԍРħѠРЧѠԍ Ĭ ϩ Ժ Ь ЧǠưÍؠ٠Ƶؠƶ٠ƷӍ̠ՠķ͠ՠō ͍ Ⱥ Ӎ ů Һ ֬ ũ ĩ Һ  = Ӎ Ģ ؍ ̺ Ԯ ō Ӎ Ӎ    ERROR":"CODE #"X:"IN LINE #"(218)(219)256:A%Ҳ 80 COL? %Һ(4)"PR#0":::"80 COLUMN DISPLAY?";A$:A$(A$,1):A$"Y"A$"N"54000%CP40:A$"Y"CP80:(4)"PR#3"%ӱ"CLOSE":60:"ASSEMBLING WEAPON DATA":"FOR MONSTER #":M1NM:M%(M,8)0W$(M)A$(M%(M,8)):A18:W%(M,A)A%(M%(M,8),A):2:14:M:LK1:$z˂:M140:A::50110$ϲ ERROR TRAP $ϰ60:X(222):X0X22X16ĺ"DOS";:53030$Ϻ"APPLESOFT";1%&Ϻ" ΍ōӍԠč ׍ؠԍŠˍѠԍԫ٠ԩٍѠԍˠ٠ ԩٍѠōɠōРàōĠƍԩٍŠٍŠŠ٠ԩٍ؍ٍԩ٠ ҍԫ ōàҍàĠ ӭ ōà ĬōàōӍҠؠ ұРҍ ҍԠ ӍԍٍРŠԍŠōԠؠŠԱРàԱĠƍŠٍԱٍ٠ŠԍԠӍ ҍҠ̍Ҡŷ ҍ ҠĶÍàұ ï ҍ Ӎ ҭ čԠҠԍؠč٠ĩٍٍĩٍٍĩٍ٠ԠڠƠԠōڠƠԠō VENTORY,10000 POWER,150000 RESUME,29000@ SAVE,18000O SAY,16000` SMILE,15000q #SPEED,14000 (COLUMNS,34000 2SHORT,35000 { ޥAD@SYPtM ߦȱȱ@" a)ߑ` { R ֐ }~`ZL 0L}gh 0`)_ȱ ōǠ؍Ӎ΍̠ԍo|" ";:C$8oC$(27)ġ:7400:7400:1540>oPo(# ERROR TRAP o2#:24:X(222):("Applesoft ProDOS",(X0X22X16)91,9)" error #"X" in "(218)(219)256:o'127,106,130,144,112,113,129,119,142,132,102,135,113,131,138ččȠçԠŠڍРРȠçԠŠڍˠ٠ ԩٍѠōɠōРàōĠƍԩٍŠٍŠŠ٠ԩٍ؍ٍԩ٠ ҍԫ ׍ؠԍŠˍѠԍؠэҠ͍ҠԍؠŠҍαٍŠβàѠԍβ؍ŠαؠэРō ҍԠ Ӎԍԫ٠ԩٍѠԍ÷ ҍ ҠĶ ōàҍàĠ ӭ ōà ĬōàōӍҠؠұРĴ ōĠҠٍĩٍٍĩٍ٠ԠٍРŠԍŠōԠؠŠԱРàԱĠƍŠٍԱٍ٠ŠԍԠӍ ҍҠ̍ҠѠРӧѠčРЧѠԍؠÍàұ ï ҍ Ӎ ҭ čԠҠԍؠč٠ĩٍǠčǧӠ͍ӠԠčōԠƍōԠ΍ōԠ΍ōԠՠųԠՠŶƸѠՠՠҠՠðՠŰՠűՠŲĠՠĠՠƹԠՠǠҠ͍Ҡ̍Ҡ͍ ԭ ōРѠԍРħ ϩ ĺ Ӭجٍ Ժ Ь Ч̠ՠķ͠ՠō ҭō ů Һ ө ҩ ĩ Һ өĬ؍ ̵ӍҍԠٍōӍàҍčծӮōͭÍҠō׍ĠҍȠŠč̠ҍàԍŠԠƠ͍Šҍ΍ŠŭҍōĠԍԠ΍ōŠٍҠč.PARMS":30000 GAME.PTRS":29000 }30000u }D$(4):D$"VERIFY FS.PARMS":D$"OPEN FS.PARMS":D$"READ FS.PARMS":A,B:D$"CLOSE" }(105)(106)256A(115)(116)256BĺD$"BLOAD FS.PTRS":(4)"BLOAD FS.SVAR":(4)"BLOAD FS.STR":216,0:30780 #}(4)"DELETE FS$"CLOSE"h xD$"BSAVE FS.PTRS,A$69,L8":D$"BSAVE FS.SVAR,A";A",L";(109)(110)256(105)(106)2561 (xD$"BSAVE FS.STR,A";(111)(112)256;",L";B(111)(112)2561 PxPLACE 'FRESH MEAT' STUFF HERE } FAST START }32020 }(4)"VERIFYԠҍǠō* DOS 3.3 EQUIVILENT OF 'FAST.START' 70u INIT L:uPLACE INIT HEREw:::"REBUILD FAST START FILES? ";A$:A$"N"ĺA$:30780wA$"Y"30700 xX(0):A(105)(106)256:B(115)(116)256:D$"OPEN FS.PARMS":D$"WRITE FS.PARMS":A:B:D  0:0:LR:LM:LAfCL$`pD$"BSAVE SEARCH.RTN,A$800,L289":D$"BSAVE EAMON.UTILS,A$2F0,L151"xzD$;"EXEC EXEC":10DUNGEON INIT 8.02 OCT 94EAMON ADVENTURER'S GUILD7625 HAWKHAVEN DR.CLEMMONS, NC 27012D0 PRINT D$";C3$;"RUN EAMON DUNGEON DESIGNER 8.0"C3$@"RUN 10] OP$" LAST UPDATE:":CL$*EA$".NAME":WR$" EAMON.NAME"4AN$:6:"8.0":CL$>EA$".ROOMS":EA$".MONSTERS"HEA$".ARTIFACTS":CL$REA$".DESC":WR$" EAMON.DESC"\0:0:U:"SAVE EAMON ADVENTURE #";NUR"20 PRINT D$"C3$"RENAME EXEC,SAVE ";AN$;" HERE"30 PRINT "C3$"PUT DESIGN DISK IN DRIVE NOW"C3$";"40 POKE -16368,0: GET PT$: PRINT: ONERR GOTO 60 "50 NORMAL : POKE 103,1 : POKE 104,8 : POKE 2048,0"3"6IFACTS..";AL"D23:"OK? (Y/N)";@NA$:A$"N"A$"n"ĺ:500YXA$"Y"A$"y"590:D$;"INIT EAMON ADVENTURE #";NUOP$" EXEC":WR$" EXEC""1 AN$="C3$AN$C3$":NU="NU":A2$="C3$A2$C3$"DEL 100,1000""DELETE EAMON ADVENTURE #";N (DEFAULT 30): ";A$:A$""550BML(((A$))):ML10ML80530&13:LMML62:AL30:" ARTIFACT NAMES (DEFAULT 30): ";A$:A$""5700AL(((A$))):AL10AL80550 :17:LAAL42:"NAME LENGTHS:":" ROOMS......";RL:" MONSTERS...";ML:" ART300T7:"ADVENTURE NUMBER: ";A3$:NU(A3$):NU(NU)NU0NU999(NU)A3$40010:RL38:"LENGTH OF: (MIN 10 : MAX 80)"" ROOM NAMES (DEFAULT 38): ";A$:A$""530RL(((A$))):RL10RL8050012:LRRL34:ML30:" MONSTER NAMESY TOM ZUCHOWSKI":8:"V8 MODS BY FRANK KUNZE"o 8:"NAME OF ADVENTURE (MAX. 25 CHARACTERS)"::" ";::25); 5:":";AN$:AN$"A"AN$"ZZZZ"(AN$)25240 ::((40(AN$))2)1::AN$:,5:"AUTHOR NAME (MAX 25 CHARACTERS)":A2$:(A2$)25Y TO INITIALIZE THIS DISKETTE?"::" ENTER Y/N ";] 16368,0:A$:(A$)96A$((A$)32)v A$"Y"A$"N"170 A$:A$"N"100 === GET INFORMATION 216,0- :12:"EAMON DUNGEON INIT":8:"BY DON BROWN & JOHN NELSON":8:"V7 MODS B** WARNING ***"::6:"INSERT A NEW (BLANK) DISKETTE BEFORE PROCEEDING!":9:"PRESS 'C' WHEN READY ..."; 16368,0:A$:A$"C"A$"c"130 A$:200 OP$D$"OPEN":WR$D$"WRITE":CL$D$"CLOSE":EA$OP$"EAMON"2 D$;"CATALOG"::"IS IT OKAU MUST BOOT FROM THE EAMON MASTER DISKETTE.":9 < d(103)(104)2562338Ĺ768,(103):769,(104):103,34:104,9:2337,0:"RELOCATING...":D$"RUNDUNGEON INIT" nP1(768):P2(769):D$"BLOAD SEARCH.RTN":D$"BLOAD EAMON.UTILS"k x:12::"* ADVENTURE #";NU::S$g ("THE EAMON GAMING SYSTEM WAS DEVELOPED BY DON BROWN & JOHN NELSON": -"VERSION 7 WAS WRITTEN BY TOM ZUCHOWSKI. VERSION 8 MODS BY FRANK KUNZE." 2:AN$;" WAS":" WRITTEN BY ";A2$3 7:"TO RUN THIS ADVENTURE, YO /D$(4):C3$(34):(26)"1":(21)::10079kD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"v 216,0 D$(4):(26)"1":(21):::S$"****************************************":S$;60(AN$)2);AN$;60):1:S$: 11);"EAMON     ҠŠÍǠčˍàōōԍīō΍čԍō΍ōԍīō̠ҍōӍŠōL` { ޥSLA P (NOT USED)":80:B$"<6> (NOT USED)":80:B$"<7> RETURN TO MAIN MENU":80e:CP215);:"-->";A$:A((A$,1)):A1A726000e::A26100,26200,26300,26400,26500,26600,10000e" DONE!"::59:26000+eWP1::"DONE.":59:10000*a SELECT ALL qaM1NM:M%(M,11)1:::"ALL FIGHTERS ARE NOW READY!"::59:10000e EXTRA STUFF e70::B$"<1> STOCK ARENA WITH XTRA WEPS.":80:B$"<2> REMOVE XTRA WEPS.":80:B$"<3> RESTORE ORIG. WEPS.":80:B$"<4>R BATTLE.":11:59:100000] SELECT A RANGE \]70:"SELECTING A RANGE FROM 1-"NM"..."]:"BEGINNING WITH?";A$:A(A$):A1ANMĺ:"USE 1-"NM".":24020]:"ENDING WITH?";A$:M2(A$):M21M2NMĺ:"USE 1-"NM".":24030]MAM2:M%(M,11)1::U SELECT BY # U70:gV"NUMBER?";A$::M(A$):M1MNMĺ"INVALID! USE 1-"NM"."::22020rV23030Y SELECT BY NAME Y70:Y:"NAME?";A$::M1NM:M$(M)A$Ă:"NAME NOT FOUND.":59:10000YM%(M,11)1:A$M$(M)" IS READY FO1:R LIST (RM1NM:M10ĺ" ";iRM": ";(" * ",(M%(M,11)1)21,2);:M%(M,3)1ĺM%(M,3)" ";&RM$(M);(" S",(M%(M,3)1)1,1):LL1:L22İ210500R:21050:10000:R::"*=READY FOR BATTLE. HIT ANY KEY";::A$:A$(27)ġ:10000DR75$"<6> SPECIAL FUNCTIONS":80:B$"<7> STAGE A BATTLE":80:B$"<8> QUIT":80':CP215);:"-->";A$:A((A$,1)):A1A810000.'75:A21000,22000,23000,24000,25000,26000,1008'75:A$" DON'T MISS THE EXCITING MATCH SCHEDULED FOR NEXT WEEK!":14^B$"IN "(R%)" ROUNDS":60::65::59:10000F' MAIN LOOP '70::B$"<1> LIST FIGHTERS":80:B$"<2> SELECT A FIGHTER BY #":80:B$"<3> SELECT A FIGHTER BY NAME":80:B$"<4> SELECT SEVERAL FIGHTERS":80K'B$"<5> SELECT ALL FIGHTERS":80:B0:M%(DF,8)0A%(M%(DF,8),4)1:M%(DF,8)0DTT1:T1ġ:59:8000L56d@ WINNER'S CIRCLE JM%(OF,3)M%(OF,12):M%(OF,11)0:M%(OF,13)0:70:TB$"LADIES AND GENTLEMEN, WE HAVE A WINNER!":60::B$" "M$(OF)" ":CP2(B$)2);::B$;:::"IN PERFECT HEALTH.":56-"OK.":56>"HURT.":56U"BADLY HURT.":56q"GRAVELY INJURED.":56"DYING.":56 DEAD! "DEAD!":52:M%(DF,3)1M%(DF,3)M%(DF,3)1:M%(DF,13)0:51)xM%(DF,3)M%(DF,12):M%(DF,11)0:M%(DF,13)F,7)):D21ĭM%(DF,7)ĺ" BLOW TURNED!":56WD21ĺ" BLOW GLANCES OFF ARMOR!":56t52:M%(DF,3)1ĺ"ONE ";M$(DF)" IS ";:M%(DF,13)M%(DF,13)D2:M%(DF,13)M%(DF,1)7700M%(DF,13)5M%(DF,1)2(M%(DF,13)0)7652,7655,7660,7665,7670,7675CA1:(" *** +++ ",(M%(OF,8)1)51,5);:RL5ĺ"A HIT!":7633x"WELL STRUCK!":52:R2100(1):R251A0:7633RL1.5:R285RL2:7633R295RL3:7633R2100RLM%(DF,1)SRLS,52:D20:KZD:D2D2S(1)::D2(D2AM%(D$(W)"!":56oR957545WqR91ĺ" WEAPON DAMAGED!":A%(W,8)A%(W,8)1:A%(W,8)56tA$A$(W)" BREAKS!":11:A%(W,4)0:M%(OF,8)0:(1).551y" WEAPON HITS USER!":52:DFOF:(R100)17600,7610DM%(OF,9):SM%(OF,10):WDA%(W,7):SA%(W,8)%(DF,8),6)R`RL97Wĺ" --- "("MISSED! DODGED! PARRIED!",((1)3)81,8):56e" ...A FUMBLE!":52:R100(1):R41ĺ" FUMBLE RECOVERED.":56jR81A$M$(OF)" DROPS "A$(W)"!":A%(W,4)1:M%(OF,8)0:11:51 lA%(W,2)3ĺ"SPARKS FLY FROM "AWP07000:HI0:WM%(OF,8):W1GWWP7400qSWM502(M%(OF,2)M%(DF,2)M%(OF,7)M%(DF,7)):W0WMWMA%(W,5)2VAA%(W,6)(W0):A$M$(OF)" "BV$(A,(1)4)"S AT "M$(DF):11]RL100(1):(RL5RLWM)RL97HI1:7600 _A20:M%(DF,8)0A2A%(M,4)1M2OF:7440;M10:M20:A1NA:A%(A,4)1Ă:7440dA2A%(A,7)A%(A,8):A2M1M2A:M1A2jM2W0:M%(OF,8)0:7507A$M$(OF)" PICKS UP "A$(M2)".":A%(M2,4)OF1:M%(OF,8)M2:11:GWM%(OF,3)1GWM251L BATTLE *Q%(DF,0):&X MON GET ORIGINAL WEP 5bGWPE1ıHlA%(OF,4)1ıvA$M$(OF)" GRABS "A$(OF):M%(OF,8)0A%(M%(OF,8),4)1:A$A$", DROPPING "A$(M%(OF,8))A%(OF,4)OF1:M%(OF,8)OF:A$A$".":11::51 MONSTER GRABS WEAPON A%(OFF%(M,0):GW0:M%(OF,3)11809 M%(OF,8)0GWM%(OF,8)b PE1M%(OF,3):200:PE1M%(OF,8)0 7500:GWĭA%(GW,4)OF1M%(OF,8)GW :190 200:7500 :NF5İ90 120 DF((1)NF)1:M%(F%(DF,0),11)1F%(DF,0)OF200 DFF4)"IF YOU THINK I'M GOING TO KILL MYSELF THEN YOU'RE OUT OF YER BLOODY MIND!"(34):11::59:10000 w75:5:B$"WELCOME TO THE BATTLE ROYALE II":60::B$"PLACE YOUR BETS NOW...":60:X1500::23:59 xR%R%1:M1NF:M%(F%(M,0),11)1190 OFM,11)1Ă:' _NFNF1:F%(NF,0)M::= d COMBAT ROUNDS O nR%0:90:TNF sNFA$" YOU HAVEN'T SELECTED ANY FIGHTERS YET. THIS WOULD BE A BORING MATCH.":11::59:10000e tNF1A$" "M$(F%(1,0))" LOOKS UP AT YOU AND SAYS STERNLY, "(38,0:"[MORE] ";:Z$::(37):L16:" ";:::(37):L0:R <CP2(B$)2)B$:j AA1CP:"_";::: F75:B$"BATTLE ROYALE II":60:B$"BY DOCTOR SAX":60:B$"REVISION: 2/25/94":60:65: K(12)::L0: PCP215)B$: ZNF0:M1NM:M%( (A$,1)" "A$(A$,2):147 (A$)CPĺA$:52:{ KCP111:(A$,K,1)" "ĺ(A$,K1):A$(A$,(A$)K):52:14 : 51:11:100 51:11:51: 11:100 56:190 3 4LL1:58 6LL1 8LL2: :L23ı: ;4916/f EAMON BATTLE ROYALE II BY FRANK "DOCTOR SAX" KUNZE INSPIRED BY JOHN NELSON'S "BATTLE ROYALE"  SEND COMMENTS TO: 216 AL OERTER DR. CLARKSVILLE, TN 37042 50000: EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  16                 READEAMON.ROOM NAMES,R"M:A$:D$ U:"SHIFTING NAME OF ROOM #"M:A$:D$"WRITEEAMON.ROOM NAMES,R"M:Q$;A$;Q$:D$::D$"CLOSE"::"DONE.":  SHIFT PROGRAM A752808:D:A,D::752: 169,76,162,0,160,3,141,245,3,142,246,3,140,247,3,96,32,2C,R"A200:Q$;A$;Q$:D$: <A1NM::"SHIFTING MON #"A:D$"READ EAMON.DESC,R"A300:A$:D$:A$:D$"WRITE EAMON.DESC,R"A300:Q$;A$;Q$:D$: FD$"CLOSE"::"Length of ROOM NAMES file? >";A$:A(A$):A0Ā PD$"OPENEAMON.ROOM NAMES,L"A:M1NR:D$"ʮĠō͠ō,3)1:A,M%(M,4),A,M%(M,6),A,M%(M,7),M%(M,8),A,M%(M,9),M%(M,10)::D$"CLOSE"#\˰60:"LOADING ARTIFACT #":D$"OPEN EAMON.ARTIFACTS":D$"READ EAMON.ARTIFACTS":A:A1NA:1:19:A"/"NA#f˄A$(A):A214:A%(A,A2)::A%(A,2)1āA258:A%(A,A2):$p˂:D$OF DOOM"D2%483u">˺D$"OPEN EAMON.DESC":D$"READ EAMON.DESC":A,NA,A,NM:D$"CLOSE":NANANM:50200:A$(NA),A%(NA,8)"H˺D$"OPEN EAMON.MONSTERS":60:"LOADING MONSTER #":D$"READ EAMON.MONSTERS":NM:M1NM:1:18:M"/"NML#R˄M$(M):M%(M,1),M%(M,2):M%(MM:D$"READ EAMON.ARTIFACTS,R"M%(M,8):W$(M):M218:W%(M,M2)::W%(M,4)0::D$"CLOSE":50110p! ˲ SEQ. INIT !*˺D$"CLOSE":231,CP::D$(4):CP(231):53000"4˺D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":NA$:D$"CLOSE":D1%256:D2%300:NA$"DUNGEON M%(M,1),M%(M,2):M%(M,3)1:A,M%(M,4),A,M%(M,6),A,M%(M,7),M%(M,8),A,M%(M,9),M%(M,10)::D$"CLOSE":53000 ǺD$"OPEN EAMON.ARTIFACTS,L128":60:"LOADING WEAPON DATA FOR":" MONSTER #" ǁM1NM:M%(M,8)1NAM%(M,8)Ă:D$"CLOSE":50110^!LK1:2:12:8Dz PRE-7.X INIT *BǺD$"CLOSE":52000LǺD$"OPEN EAMON.DESC":D$"READ EAMON.DESC":A,NA,A,NM:D$"CLOSE":D1%256:D2%300:50200tǺD$"OPEN EAMON.MONSTERS,L128":60:"LOADING MONSTER #":M1NM:1:18:M"/"NMh ~ǺD$"READ EAMON.MONSTERS,R"M:M$(M)::100Ã32,190,222,32,227,223,160,0,177,131,133,224,200,177,131,133,225,200,177,131,133,226,160,0,177,225,201,97,144,4,41,223,145,225,200,196,224,208,241,96 ÃAXE,BOW,CLUB,SPEAR,SWORDĆW%(NM,8),M%(NM,11),W$(NM),M$(NM):M1NM:W$(M)"NONE"::1Ă:D$"CLOSE":50110~LK1:2:12:M:D$"READ EAMON.ARTIFACTS,R"M%(M,8):W$(M):M218:W%(M,M2)::W%(M,4)0::D$"CLOSE"íLKĢ10:"-- ALL MONSTERS ARE WEAPONLESS --":50130ÁM1NM:768,M$(M):768,W$(M):å53000ÁM15:WT$(M)::200RúD$"OPEN EAMON.MONSTERS,L"LM:60:"LOADING MONSTER #":M1NM:1:18:M"/"NMúD$"READ EAMON.MONSTERS,R"M:M$(M):M2111:M%(M,M2):::D$"CLOSE"úD$"OPEN EAMON.ARTIFACTS,L"LA:60:"LOADING WEAPON DATA FOR":" MONSTER #"ÁM1NM:M%(M,8)NTURE":30:B$"YOU WANT TO TRANSFER MONSTERS FROM":30:A$:iúD$"OPEN EAMON.NAME":D$"READ EAMON.NAME":NA$,A,A$:D$"CLOSE":(A$,1)"7"51000jå53000núD$"OPEN EAMON.DESC":D$"READ EAMON.DESC":A,A,A,NM,A,LM,LA:D$"CLOSE":D1%242:D2%600:50203)1A$(M%(0,3))" "A$"S"7(A$)39A$(A$,39)rA$(M)": "A$:A$40(A$))B$:LL1:L54L0:(12):D$"PR#0":CP40100:D$"PR#3":100Pò 7.X INIT ZD$(4):A768807:M:A,M::51000<dð60:B$"INSERT THE DISK WITH THE ADVE$:P(A$):A$""P1&P1P76000:"INSERT MONSTER DISK":"ALIGN PRINTER PAPER":"THEN HIT ANY KEY (ESC EXITS)"::201910:D$"PR#"P:"NAME:"35)"WEAPON:"::L2:M1M2:D$"READ MONSTER.MASTER,R"M:A$,A,A,M%(0,3),A,A,A,A,A,A,A,B$:D$:M%(0,:M%(M,8)M2:D$"WRITE MONSTER.MASTER,R"M2:M$(M):A110:M%(M,A):W$(M):A18:W%(M,A):::D$"WRITE MONSTER.MASTER,R0":M2:D$"CLOSE""FINISHED!":20:100p PRINT FILE z50:"PRINTING MASTER FILE..."::"PRINTER SLOT? ";AHOLDS "M2" RECORDS":20:"TRANSFERING MONSTERS..."e:"BEGINING WITH # (1):";A$:A$""B%1:5040B%(A$):B%B%NMİ1900:5020:"ENDING WITH # ("NM;:"):";A$:A$""E%NM:5060E%(A$):E%E%B%E%NMİ1900:5040CMB%E%:M2M210,M1)::D$"WRITE MONSTER.MASTER,R"A:M$(0):M1110:M%(0,M1)::W$(0):M118:W%(0,M1)::D$:"DONE!":20:4900$::20:100 ADD MONS TO MASTER 295:D$"OPEN MONSTER.MASTER,L160":D$"READ MONSTER.MASTER,R0":M2:D$:50::"FILE CURRENTLY -->";A$:M1((A$,1)):M11M1340204M134900CM124500s:"NEW NAME FOR "M$(M);:A$:M$(M)A$:4900:"NEW NAME FOR REC. #"A;:A$:"CHANGING NAME...":M$(0)A$:D$"READ MONSTER.MASTER,R"A:A$:M1110:M%(0,M1):rW$(0):M118:W%(TER":0:100 DUPE CHECK 1910:M1NM:"CHECKING FOR "M$(M)"...":A1M2:D$"READ MONSTER.MASTER,R"A:A$:D$:A$M$(M)4900%"FOUND A MATCH, RECORD #"A::"WHAT NOW?":"<1> RENAME "M$(M):"<2> CHANGE NAME IN RECORD #"A:"<3> IGNORE"::" FILE p 60::" ** WARNING ** ";:::"THIS WILL ERASE ALL MONSTERS IN FILE"::"CONTINUE ";:80:A$"N"100  50::B$"INSERT MONSTER DISK":30:A$::D$"OPEN MONSTER.MASTER":D$"DELETE MONSTER.MASTER":D$"OPEN MONSTER.MASTER":D$"WRITE MONSTER.MAS1:L20İ20:60:20:100H 1910:60:"NAME:"CP25)"WEAPON:": M1M2:D$"READ MONSTER.MASTER,R"M:A$,A,A,A,A,A,A,A,A,A,A,B$:D$:A$(M)":"A$:(A$)CP21A$(A$,CP21) A$CP2(A$))B$:LL1:L20İ20:60 :20:100 NEWLE IS EMPTY"::20:1000 SHORT LIST u50:"(M)ONSTERS OR (F)ILE?";A$:A$(A$,1):A$"M"A$"F"2000A$"F"250060:"NAME:"CP25)"WEAPON:"::M1NM:A$(M)":"M$(M):(A$)CP21A$(A$,CP21)A$CP2(A$))W$(M):LLX)::D$K60:B$"RECORD #"(M1):30:B$"":M%(0,3)1B$(M%(0,3))" "pB$B$M$(0):M%(0,3)1B$B$"S"~M0:1100l:"--INVALID NUMBER! USE 1-"NM::20:v95:D$"OPEN MONSTER.MASTER,L160":D$"READ MONSTER.MASTER,R0":M2:M2ĺD$::"FI,6))")":"ODDS: "W%(M,5):"DAMAGE: "W%(M,7)"-"W%(M,7)W%(M,8)}t20:DSĺD$"READ EAMON.DESC,R"MD2%:A$:D$:768,A$:A$:20~:100 LIST MASTER FILE 1910:M11M2:D$"READ MONSTER.MASTER,R"M1:M$(0):X110:M%(0,X)::W$(0):X18:W%(0,"S"SL30:40::"HARDINESS: "M%(M,1):"AGILITY: "M%(M,2):"COURAGE: "M%(M,4)"%"V"ARMOR (HITS ABSORBED): "M%(M,7):"DAMAGE (WITH BARE HANDS): "M%(M,9)"-"M%(M,9)M%(M,10)`:"WEAPON: ";:W$(M)"NONE"ĺ"[BARE HANDS]":1140=jW$(M)" ("WT$(W%(M""B%1:10601 B%(A$):B%B%NMİ1900:1040i $:"ENDING WITH # ("NM;:"):";A$:A$""E%NM:1080 .E%(A$):E%E%B%E%NMİ1900:1060 8MB%E%:60:B$"MONSTER #"(M):30:B$"":M%(M,3)1B$(M%(M,3))" "BB$B$M$(M):M%(M,3)1B$B$ME AGAIN.":30:  LIST b 50:"(M)ONSTERS OR (F)ILE?";A$:A$(A$,1):A$"M"A$"F"1000s A$"F"1500 50:"LISTING MONSTERS..."::"VIEW DESCRIPTIONS ";:80:A$"Y"DS1:90:D$"OPEN EAMON.DESC,L"D1% :"BEGINING WITH # (1):";A$:A$ILE":70 xB$"<4> DUPLICATE-CHECK MASTER":70:B$"<5> TRANSFER MONSTER(S)":70:B$"<6> PRINT MASTER FILE":70:B$"<7> QUIT":70 :CP215);:" -->";A$:A((A$,1)):A1A7(A$)1100 A1000,2000,3000,4000,5000,6000 D$"CLOSE":60:B$"CON"80 UE Z60:B$"INSERT YOUR DISK WITH":30:B$NA$:30:A$::r _60:B$"INSERT MONSTER DISK":30:A$:: d MAIN LOOP  nD$"CLOSE":DS0:50:B$"<1> LIST MONSTER(S)/FILE":70:B$"<2> SHORT LIST (NAMES ONLY)":70:B$"<3> CREATE NEW MONSTER F (A1CP:"_";::: 2:60:B$"BATTLE ROYALE II UTILITIES":30:B$"BY DOCTOR SAX":30:B$"REVISION: 2/17/94":30::B$"TRANSFERING MONSTERS FROM:":30:B$NA$:30:40:: <(12)::L0: FCP215)B$: P" (Y/N)?";A$:A$(A$,1):A$"Y"A$"K EAMON BATTLE ROYALE II MASTER FILE UTILITIES BY DOCTOR SAX - 2/94  54000:50000: EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 :"[ HIT ANY KEY TO CONTINUE ] ";:X$:::X$(27)ġ:100CP2(B$)2)B$:                  0a(222)255ĺ"PLEASE STOP THE CTRL-C!!":=aX(222)UaX0X16X216600na"DISK ERROR #"X:a"APPLESOFT ERROR #"X:"IN LINE #"(218)256(219):a READ NAMES bD$"OPENARTIFACT.NAMES":D$"READARTIFACT.NAMES":X132:A$(X):cret door lies open to the north. The corridor continues east and west.":1535Y`nP$:`x" A door lies south. The corridor continues west.":1535`"Stairway:":a" Stairs lead down into darkness. There is a door to the north.":1535"Wide Chambers:":_" This room is less dusty and looks like it's used often. There are doors to the northeast and northwest.":1535_2"Chamber:":_<" There is strange writing on the north wall. You can go south.":1535_PP$:O`Z" A sed!' When they see you, the Goblins attack!":7400:NF4:Y3:6640^" Three Goblins lie dead on the floor. A door is to the north.":1535^"Potion Room:":^" Dozens of broken bottles litter the floor. A secret door leads North.":1535_ door lies east.":1535!]P$:h]" A door lies south and the corridor continues north.":1535}]"Large Room:":]MO(3)56370A^" A small Goblin is frantically telling two other Goblins something that sounds like, 'A Troll killed Fur leads west.":1535%\t"Chamber:":7\~MO(8)56290\" A Troll is feasting on a Goblin leg. He looks at you and smiles. "Q$"Ahh. fresh meat!"Q$" He grumbles...":7400:NF8:Y8:6640]" A dead Troll lies next to a partly cooked Goblin. A16240[V" Oremm thanks you for finding his den. He informs you that a secret door lies south and you may have whatever you find.":SD(9)1:1535\`" Dusty old books and tomes lie among old furniture. A Magic-User once lived here. A door7410::23:"As you try, Thanos grabs his knife and kills you!":7400:7400|Z"Thou art dead!":X15000::D$"RUN MENU"Z$P$:Z." There are doors to the north and south. The corridor continues west.":1535ZB"Mage's Den:":[LNP(2)ciously killedthe Cleric. The gods are not happy!"mYNP(1)5:ST5:DX5:HP90:33,40:7210:7400:7400:1540Y33,40:3:1:" ":7410::23:"You have killed the old Wizard..."YNP(2)5:7400:7400:1540KZ$:D$"WRITE EAMON.DESC,R"A:Q$;A$;Q$:D$: (A1NA::"SHIFTING ART #"A:D$"READ EAMON.DESC,R"A100:A$:D$:A$:D$"WRITE EAMON.DESC,R"A100:Q$;A$;Q$:D$: 2A1NE::"SHIFTING EFFECT #"A:D$"READ EAMON.DESC,R"A200:A$:D$:A$:D$"WRITE EAMON.DES[ 1000:D$(4):Q$(34):"INSERT EAMON ADVENTURE...":" (6.X DATABASE SYSTEM)"::A$:D$"OPEN EAMON.DESC":D$"READ EAMON.DESC":NR,NA,NE,NM:D$"CLOSE"* D$"OPEN EAMON.DESC,L256":A1NR::"SHIFTING ROOM #"A:D$"READ EAMON.DESC,R"A:A$:D$:A  ҠٍŭԠ̍         (4)"BRUN DT#3": 05570TR10R9:100.TR12R11:100BT&R13R12:100VT0R15R14:100jT:R16R15:100~TDR17R16:100TNR18R17:100TXR20D(5)05570TbR20R19:100TlR22R21:100TvR24R23:100TR26D(7)05570Uagic"!SX14:CO(X)1ĺCO$(X)?S:8060:7400:7400:1540RS"West.":5580S768,255:769,40:770:"Locked door!":1540SR3R2:100SR4R3:100SR6R5:100SR7R6:100SR9D(1)05570SR9R8:100TR10D(2)X1224RhCO(X)1ĺCO$(X)#RrAR|X2729:CO(X)1ĺCO$(X)GReRX3132:CO(X)1ĺCO$(X)qR:8060R:"Weapons:":RCO(25)1ĺCO$(25)RCO(26)1ĺCO$(26)RX511:CO(X)1ĺCO$(X)R:8060R:"Armor:":SCO(30)1ĺ"MCO(30)1ĺ"Magic";:5350%QX13;QCO(X)1ĺCO$(X);AQ_QCO(4)1ĺ"/Shield":5370eQQ:"Weapon: ";:CO(26)1ĺCO$(26):5440QCO(25)1ĺCO$(25):5440Q"X511Q,CO(X)1ĺCO$(X):X11Q6Q@8060RT:" Equipment:":ENX."F$:D$"WRITEX."F$r PA1A%:(A);6((A)));A$(A);45(A$(A))((A)));:MA%A:(M);6((M)));A$(M): dD$"CLOSE"7 (21):::"INSERT DISK WITH SOURCE CODE";:A$:KF$"T.EDGAR.ML"`D$(4):A$(300)D$"OPEN"F$:D$"READ"F$:70(AA1:A$(A):40F216,0:D$"CLOSE":NAA1:A%(NA2)(NA2(NA2)) K:"INSERT DISK TO SAVE ON ... ";:A$::D$"OP:A1NA:A$A$(A):30::60:60d L"MONSTERS (1-"NM"):":60:60:60:A1NM:A$M$(A):30::60:60 V"EFFECTS (1-"NE"):":60:60:60:A1NE:A$E$(A):30::60:60:(12):D$"PR#0" `"DONE!"00:A$(A):s $A1NE:D$"READ EAMON.DESC,R"A400:E$(A)::A1NM:D$"READ EAMON.DESC,R"A600:M$(A)::"CLOSE" ."TURN ON PRINTER";:A$: 8D$"PR#1":"ROOMS (1-"NR"):":::L3:A1NR:A$R$(A):30::60:60 B"ARTIFACTS (1-"NA"):":60:60:60DISK WITH ADVENTURE ...";:A$:i "OPENEAMON.DESC":"READEAMON.DESC":NR,NA,NE,NM,LR,LM,LA:"CLOSE" D$(4):CP99:R$(NR),A$(NA),E$(NE),M$(NM) D$"OPENEAMON.DESC,L242":A1NR:D$"READ EAMON.DESC,R"A:R$(A)::A1NA:D$"READ EAMON.DESC,R"A21):::"THIS IS A PROGRAM WHICH SENDS ALL OF THE'EAMON.DESC' FILE TO A PRINTER FOR EASY PROOF-READING." :"IT IS CURRENTLY CONFIGURED FOR A PRINTERWITH A PRINT CAPACITY OF AT LEAST 99 COLUMNS.": "THIS IS FOR VERSION 7 EAMONS"(7)::"INSERT 11000: PRINT DESC 7 BY FRANK KUNZE 9/94 Q(A$,1)" "A$(A$,2):20n(A$)CPĺA$:60::60(KCP11:(A$,K,1)" "ĺ(A$,K1):A$(A$,(A$)K):60:202:D$"PR#0":"WORD TOO LONG!":<LL1:L57ıF(12):L0:h (2   :100::A$(A)I$::"CODE? ";A$:A$"Y"įC,A$(A)T "ANOTHER? ";:A$:A$:A$"Y"Ă D$"OPEN HINTS":D$"WRITE HINTS":M1A:A$(A)::D$"CLOSE"O?";R2:3500:" -- JUMP TO?";R2:3500ROOM = "RO:"ROOMS: 1-"NR;:" -- JUMP TO?";R2:3500ԍРħѠРӧѠčРЧѠԍؠÍàұ ï ҍ Ӎ ҭ čԠҠԍؠč٠ĩԠՠųԠՠŶƸѠՠՠҠՠðҠՠĴՠŰՠűՠŲĠՠĠՠƹԠՠǠҠ͍Ҡ̍Ҡ͍ ԭ ōРѠ ϩ ĺ Ӭجٍ Ժ Ь Ч̠ՠķ͠ՠōITEDATABASE"h PA1A%:(A);6((A)));A$(A);45(A$(A))((A)));:MA%A:(M);6((M)));A$(M): ZA1M%:(A);6((A)));M$(A);45(M$(A))((A)));:MM%A:(M);6((M)));M$(M): dD$"CLOSE"6,13,3,96:230 ,A$(21)A$" ":230_ 6A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:160 @A$(8)(I$)I2$I$I2$:A$;:130 JA$(8)130 TA$(27)ĺI2$:I$I$I2$:170 ^160 A$(100):D$(4):D$"BRUN HINT MAKER.OBJ":0 A1100$I$I2$:I2$"":160Q A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":160p A$(4)I2$(I2$,2):140 A$(9)CIISIS:H(36):V(37):39:1::(" I",IS1,1)::H1:V1:160 A$(9)I2$" "I2$:140 "A$(21)(I2$)A$(I2$,1))200 I$""ĺ(7);:1302 A$(13)Č958:8 R A$(17)LKġ::900 (A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)TLĺ(7);:160 A$(31)ISĺA$;:I$I$A$:140 A$(31)ĺA$;:I$I$A$:I2$(I2$,2):160 A$(5)ĺI2$;:IM IS DIFFERENT, THEN DON'T USE THIS!":C$: IN CASE OF A SCREW UP. IT HAS NEVER FAILED ON ME, BUT IT DOESN'T HURT TO BE SAFE.";:A$:0(7)(7)(7):"STOP!! WHOA!! HANG ON!!"1::"I DON'T KNOW IF THIS WORKS WITH FILES CREATED BY DD 7! I USED IT ON A DD 6 PROGRAM! IF THE STORAGE SYSTEO CHECK FOR ERRORS (SENSIBLE MAKES""MINCEMEAT OUT OF RANDOM-ACCESS FILES). ONCE YOU ARE DONE CHECKING, CHOOSE REVERT AND THE DATA WILL BE REASSEMBLED INTO A FILE CALLED 'EAMON.NEW.DESC' OR"[&"SOMETHING LIKE THAT, SO YOU'LL HAVE YOURORIGINALTO CHECK THE SPELLING IN MY EAMON.DESC FILES. IT WILL CONVERT THE ROOM, ARTIFACT, MONSTERAND EFFECTS INTO SEPARATE SEQUENTIAL"#"FILES. THE # OF EVERYTHING IS STORED AT THE BEGINNING OF THE ROOM FILE. THIS WASCREATED SO I COULD USE SENSIBLE SPELLER TDESC":X1NM:768,RO$(X)::C$:"WRITTING MONSTERS...":O$"NEW.DESC,L256":X1NM:W$"NEW.DESC,R"X300:(34)RO$(X)(34)::C$:"ALL FINISHED...":D$"CATALOG":"FILE: EAMON.NEW.DESC HOLDS YOUR DATA.":::"THIS IS A PROGRAM THAT I USE )(34)::C$c:"READING EFFECTS 1-"NE:O$"EFCT.DESC":R$"EFCT.DESC":X1NE:768,RO$(X)::C$:"WRITTING EFFECTS...":O$"NEW.DESC,L256":X1NE:W$"NEW.DESC,R"X200:(34)RO$(X)(34)::C$:"READING MONSTERS 1-"NM:O$"MON.DESC":R$"MON.(NM4)_ (D$"OPENEAMON.ARTIFACTS,L"LA:A1NA:D$"READEAMON.ARTIFACTS,R"A:A$(A)::D$"CLOSE" 2D$"OPENEAMON.MONSTERS,L"LM:A1NM:D$"READEAMON.MONSTERS,R"A:M$(A)::D$"CLOSE" <:"INSERT DISK TO WRITE TO ... ";:A$: FD$"OPENDATABASE":D$"WR5XXEAMON DATABASE CREATE 7XBY FRANK KUNZE 9/94Xi (21):::"INSERT ADVENTURE DISK ... ";:A$:D$(4):D$"OPENEAMON.DESC":D$"READEAMON.DESC":A,NA,A,NM,A,LM,LA:D$"CLOSE" A%(NA2)(NA2(NA2)):M%(NM2)(NM2(NM2)):A$(NA4),M$"NEW.DESC,L256"FX1NR:W$"NEW.DESC,R"X:(34)RO$(X)(34)::C$f:"READING ARTIFACTS 1-"NAO$"ART.DESC":R$"ART.DESC":X1NA:768,RO$(X)::C$:"WRITTING ARTIFACTS..." O$"NEW.DESC,L256":X1NA:W$"NEW.DESC,R"X100:(34)RO$(X133,133,132,134,32,44,213,200,32,233,227,76,154,218,0E|360::350O$"ROOM.DESC":R$"ROOM.DESC":NR,NA,NE,NM:"READING ROOMS 1-"NR:RO$(99):X1NR:768,RO$(X)::"WRITTING ROOMS..."C$:O$"NEW.DESC":W$"NEW.DESC":NR:NA:NE:NM:C$:O$AD EAMON.MONSTERS":NM%:A1NM%:MN$(A):A2112:MD%(A,A2)::{#tD$"CLOSE EAMON.ARTIFACTS":D$"CLOSE EAMON.MONSTERS":ACTS":NA%:A1NA%:AN$(A):A214:A%(A,A2)::A%(A,2)1āA258:A%(A,A2):"j:D$"READ EAMON.MONSTERS":NM%:A1NM%:MN$(A):A2112:MD%(A,A2)::"tD$"CLOSE EAMON.ARTIFACTS":D$"CLOSE EAMON.MONSTERS":S":D$"CLOSE EAMON.MONSTERS":D$"RENOT USED)4!. CHANCES,HEAL AMT,NBR USES,(NOT USED)c!8 1ST EFFECT,# EFFECTS,READABLE,(NOT USED)!B ROOM INTO,KEY#,STRENGTH,(NOT USED)!L (NOT USED),(NOT USED),(NOT USED),(NOT USED)!V MONSTER#,KEY#,GUARD#,ATTACHED!<N"`D$"READEAMON.ARTIFNF:FMP%(DT),FL$(DT,4):X0DT:FMP%(X)::X1NF:F14:FL$(X,F):g :PR$"...................."m v 8 ފ 0,0,1,1,2,3,4,5,6,7,8  ODDS,W.TYPE,DICE,SIDES  KEY#,STRENGTH,(NOT USED),(NOT USED) !$ COUNTER,(NOT USED),(NOT USED),(RE,WEAPON,SP.WEAPON,CONTAINER,LIGHT,HEAL,READABLE,DOOR,KEY,BOUND MON.ZA1AF:A$(A):xƉ VALUE,TYPE,WEIGHT,ROOM䉃 NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTHD110:DD$(D):F z 4,12: AF = # ARTIF FIELDS, MF = # MONST FIELDSkM$(MF),M%(MF):M$(0)"ADVENTURER":M1MF:M$(M): HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARMOUR,WEAPON#,O.ODDS,W.DICE,W.SIDESDT:TYP$(DT):X0DT:TYP$(X): 10E GOLD,TREASU00:!p /// TOGGLE PRINTER.zPRTPRTEPRTMRG10:SIZ80\PRTMRG0:SIZ40e100uX /// QUITbD$"CLOSE":D$"PR#0":@PRTĺA$:JAZ1(A$)80:MRG);(A$,AZ,80):LPLP1::LPLP1: >>> READ DATÄAF:MF4ꈃNS ]";9M29M%(9)0M%(9)NARĺ" [";AN$(M%(9));"]";mM29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";{:M2:D$LP36PRTLP0:(12);(SIZ(ADV$))21);ADV$:PRTĞ:7);"PRESS ANY KEY TO CONTINUE";6);:A$:::A$(27)ġ:18000:LPLP4cM2112:LPLP1:" ";M$(M2);(PR$,1,10(M$(M2)));(PR$,1,6((M%(M2))));M%(M2);M23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPOS@:(12);(SIZ(ADV$))2);ADV$:::LP3:RBEGEN:5500:qD$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100x| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$ "MONSTER # ";R;" [";MN$;"]":"DESC:":;BEG$:BEG$""BEG$"1":18:6:BEG$e8:958:"ENDING WITH #:";EN$:EN$""EN$(NM):8:15:EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$)D$"OPEN EAMON.MONSTERS,L128"PRTĺD$"PR#";P":100 2MRG);"EFFECT #";R;":"::LPLP2^D$;"READ EAMON.DESC,R";R200:A$:8000lLP500ıD$::PRTĞ:7);"PRESS ANY KEY TO CONTINUE";7);:A$::::A$(27)ġ:100 /// LIST MONSTERS$6:958:"BEGINNING WITH #:"BEG$"1":18:6:BEG$V8:958:"ENDING WITH #:";EN$:EN$""EN$(NE):15:8:EN$y(BEG$)NE(BEG$)1BEG$"1"(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)PRTĺD$"PR#";PS:LP500:RBEGEN:4500::D$D$"PR#0z#70p/  ŠŠŠ֠ ήĮϮѠ Р ԠҠԠҮʠ ӠĠϠѠ  Ԡà ĠԠ"ΠӮӠ  ӮȮǮӠ  ǠȮӠ ٠ȮӠįԮӠ Ӡ ŠŠɠӠ ҮҠӮӠ ήŠǠȠ٠ȠįԠ Ԡ͠ԣԶ@ԷBŠӠήԮ ŠŠɠ .ee%LѠȥ񠰶L` ghȱ I Iuv 3L `ghij L `  !0 ΔJJJJ)ŨƨLX$"LLRHM MLgL Ȅ HL)RLu  D ! t C 0Lu 3 j)Ȅ  `LgŪ嫰G L ҺŠϠ d' HIS ATTACKER.":zL(P"THINKS OF SIEGLINDE, THE BLONDE":"ADVENTURESS FROM THE MAIN HALL.":L2PLxP///PAUSELPX13000:X:LP/// CURSESLP"APOLLO PUTS A CURSE ON YOU FOR":"KILLING HIS SACRED PYTHON!"2MPSEA< 1h $?A 1 ,0 1 1A LT ,0ɠ<H?2h )`< H$h, ɠ Lɠ )H h`Lڱ`55`55`Ɉɋ`ɕɊ`` H h` $H h02`ҥ>=`C@A,-.=/> Z$?0< 1Ȅ< 1)$?$$@ :@A Z<: 1 1L,0 - 1< ZA<$? < 1ȱ Z::  ` 0ALX$?0 H e< ZC => $>=ɠɛɓɃ8 L`./gh.ȱ>=.ȱ/,-L`@(`B B ,BB`8Єτ ,0`ɛɓɠɃL<ɠ `,`:<: ɱɺ ::<`hh >= / .   Ǝ oLP  C $20  ƍ$?0 C$?0$  bL@A - $: b$?,0 6   b,  -  A$?0$ȱ/ȱL \, Ǝ  eL< 0AL$?0H e - A$h $?A b ,0 b bA L$?"ɲ $@0@2)LL `8f?  , ֠ȱ ,л ЯhhPQPQPQ  ڥP8$?02 6Lp - @Aȱȱل>= >= $$?$ )$?($@$: h(hh`h,` 6 L<,W,T,R,P,V,U,S  ((((*(((1<((EN((((WWW WWW0WWWWWW*6NONELISTCATALOG,D1H/A DUMP $CONVERT CURSORCATALOG,D2DISASM $AUTO-NUMPEEK(Ѝ 89L,0)$ L<$ L<$ L<$ H.3(ɛ" 0hɖ $ Ɇ,ɠLh` Y  AH ! c0 , 5h 3` |{ 35`HH -hv@ȥA@` @ȭ@@`, %C 3CC 3C) 3CLuCH h`,C0* @I,C` DrYB@ZBhhLXB,C`ERROR: UNKNOWN VERSION OFGPLED.T.DOSCALL BEAGLE BROS FOR HELP DOUBLE-TAKE.LC (C) 1983 M SIMONSEN;LRZ\*;AIK58LTVM?<qo@trp, @8ɿ@iAq@@LEBɾLC@iAq@@ AC0@ZB CL3C@iL`C D D@ DPD QD@A@@@@ @C`@CA@LC @Ȋȭ@@@C`ȱ@Cꈊ tB,,?څAC@@  BCC@,ɾ@LcALC,,@ZW,,@!,,L@i, @ߍL" @AA@AA @<>B>@C@=@? ,C ԧ@s@L#@DYBEަ߫@L@@ ԧ@,@ `BLA tB,,?څAC@@  BCC@,L,ٶ@A[@@LAL@@C@,@ `B tBAC@@  B @@ @LALC@L3A          $,1)"7"ĺ:"THIS IS NOT A VERSION 7.X EAMON. USE THEPROGRAM NAMED 'DUNGEON EDIT' FOR THIS ADVENTURE DISK.":D$;"CLOSE": <ND(ND$):216,0 AD$;"OPEN EAMON.DESC":D$;"READ EAMON.DESC":N%(1),N%(2),N%(3),N%(4),LR,LM,LA:D$;"CLOSE"i FD$;"OPEN EA" D$(4)::5:11:"EAMON DUNGEON EDIT":14:"VERSION 7.1":10:" INSERT DISKETTE WITH ADVENTURE"::" PRESS ANY KEY TO CONTINUE...";:16368,0:A$: (55 2D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DU$:ND$:DV$:D$;"CLOSE"| 7(DV@:"PR#3":(17)A DUNGEON EDIT 7.1 BY TOM ZUCHOWSKI  ADAPTED FROM 'DUNGEON EDIT' BY JOHN NELSON & DON BROWN DD16 8/9/93 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4);"MAXFILES 7":SL$"6":DR$"1                    L0`HÍhL',0LqLL Lu $(*0ޠ L"H?2hHɠ '2h`LX,, LLLL$` MM`,0,@,0 (6(7)8@9A` éP L,{`$`,L׸HJxUT(T(hHPh(Hh`NOCREA@(LLLL͚LКLӚLL&L)LBLELJLLLTLLL/L?L 󩍝`,,Hh0!,6H7H8H9H Jh9h8h7h6`,0 fP,,0J`, L(`,L$L[,{$`LL[,L#8H $(*)+!h80" HT LINE TO BE RENUMBERED (RETURN = END OF PROGRAM)FIRST LINE TO BE RENUMBERED (RETURN = START OF PROGRAM)INCREMENT BETWEEN LINES (RETURN = 10)STARTING LINE NUMBER (RETURN = 10)Ϡ ";AE;" %.":20600VSGOLDGOLD1000_WS:"ZEUS INQ , { RPQLƗNO PROGRAM IN MEMORYLINES NOT FOUNDINC TOO LARGEDUPLICATE LINE NUMBER ATOUT OF MEMORYPROGRAM HIDDENHIDE BUFFER IN USEPROGRAMS MERGING...ERROR: LINE# > 63999LINE TOO LONGINC = 0 -->WAIT...m5LASsthhLL`EȱEi棠 ȱȱ`ijEȱEi槠`+H h` $ mmȩ`Lɗ™ L< 5, , { RPhȱȘeiȑ ]Lz ' (iLsůtLLg'h(s)t*stsưƯsgůh尐giihijgZ tLu G/ ^& &^ &^e^e&e  LhhLȪ`棟膨`hhH th tLu ' (8stijLLstKgh'ȱQȱQvu 3L LKȱȘeiL;| tghLBC)>*?s> LIST STUFF ::LP0:"LISTING "A$"S"::34,2:A1N%(TY):D$;"READ "F$",R"A:NA$:D$:A": "$ F$"EAMON.ROOMS":A$"ROOM":3500Q F$"EAMON.ARTIFACTS":A$"ARTIFACT":3500 ::LP0:"LISTING ";:A$"EFFECT"::A$;"S":::34,2:A1N%(TYPE):RECA400:20000:A$;" #";A HCāX1(DE$)40:(DE$,X,40):LPLP1: HCĺDE$:LPLP1 :330` >> EDIT MONSTERAj 700:RECNO600:24000:20000:1430V >> LIST THINGS C$"LIST":500:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$::150 HCĺD$;"PR#1" TYPE3100,3200,3300,3400":500:TYPEA+TYPE2100,2200,2300,2400>4 >> EDIT ROOMb>700:RECNO:21000:20000:1130y >> EDIT ARTIFACT700:RECNO200:20000:22000:X14:AL$(AFX)FML$(FMP%(AD%(2)),X):1230 >> EDIT EFFECT 700:RECNO400:20000:1N%(3)1:NON%(3):RECNO400'(DE$""C213000:18000:LKī150L<800ax >> ADD MONSTERN%(4)N%(4)1:NON%(4):RECNO600NA$"":DE$"":D1MF:M%(D)DM%(D):14000:18000:31400:LKī150800 >> EDIT OLD ITEM C$"EDIT11000 t31100:18000:LK150)~800? >> ADD ARTIFACTeN%(2)N%(2)1:NON%(2):RECNO200NA$"":DE$"":D1AF:AD%(D)DA%(D)::X14:AL$(XAF)FM$(FMP%(AD%(2)),X):12000:31200:18000:LKī150800 >> ADD EFFECTN%(3)LETE FROM LOCK5LKLK:C1N%(TYP)N%(TYP)1:150>150P >> ADD ITEMiC$"ADD":500:TYPEATYPE1100,1200,1300,1400L >> ADD ROOMVN%(1)N%(1)1:NON%(1):RECNO`NA$"":DE$"":D1ND:RD%(D)DD%(D)NO(DD%(D)0)::LTDLj615 >> GET NUMBERK6:958:"INPUT NUMBER OF ";T$(TY);" TO ";C$" (1-";N%(TYPE);:") ";A$:NO(A$):NO1NON%(TYPE)(C$"CREATE")NO(NO)ġ:150  >> LOCKED <<*:C1020,2020,3010,4020,5020,150,150z150 >> DE615!A$(9)I2$" "I2$:610GA$(21)(I2$)A$(I2$,1):625aA$(21)A$" ":625A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615A$(8)(I$)I2$I$I2$:A$;:605A$(8)605A$(27)ĺI2$:I$I$I2$:616-qA$(31)ĺA$;:I$I$A$:I2$(I2$,2):615VvA$(5)ĺI2$;:I$I$I2$:I2$"":615{A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615A$(4)I2$(I2$,2):610A$(9)CIISIS:H(36):V(37):39:1::(" I",IS1,1)::H1:V1:L5ĺU$;:(8);0d(I2$)āA1(I2$):(8);:GgA$:A$(13)619^hI$""ĺ(7);:605tiA$(13)Č958:zjkA$(17)LKġ::900l(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)TLĺ(7);:615nA$(31)ISĺA$;:I$I$A$:610FECT, OR MONSTER (HIT KEY, RAEM) ";QA$:A18:A$("RAEMraem",A,1)Ă:520` A4AA4jA$:X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$YTLTL238:605Z958:TL5Ė1:V(37):I1TL:U$;:::V1]I$"":IS0bI2$;:TCICI:150%6(A$)1(A$)73005@C(A$):A$_^C1000,2000,3000,4000,5000,6000,7000ND$""DV4:ND$"6":D$;"CLOSE":60DV5:D$;"CLOSE":60 >> SELECT WHAT TO WORK ON$2:958:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFIFACT OR":" MONSTER (WITHOUT VIEWING OLD)"5 o " 5. DUPLICATE A ROOM, ARTIFACT":" OR MONSTER"u " 6. SPECIAL FUNCTIONS"  " 7. QUIT" ":"ENTER KEY FOR YOUR CHOICE (1-7) "; ,A$:A$(12)LKLK:150 1A$(9).ISRT",1,9CI):d "YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" MONSTER"j " 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER" " 3. LIST NAMES OF ROOMS, ARTIFACT,ETC" / " 4. REPLACE OLD ROOM,ARTMON.ROOMS,L";LR:D$;"OPEN EAMON.MONSTERS,L";LM:D$;"OPEN EAMON.ARTIFACTS,L";LA:D$;"OPEN EAMON.DESC,L242"t Z35000 60000 D$"PR#3":(17)::T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING ";::DU$:("LOCK",1,LK4);: " ";::("CONT$:D$"WRITE ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::*HF1NF:X14:FD%(F,X):::MF:X1MF:M$(X)::X1MF:DM%(X)::DT:X0DT:TY$(X)::D$;"CLOSE ";A$*z150*t' >> MON. DATA ASSIGNM+~':X1MF:" ";X:X14:FD%(F,X):::MF:X1MF:M$(X)::X1MF:DM%(X)::DT:X0DT:TY$(X)::D$;"CLOSE ";A$k)150)  >> SAVE PARAM)*6:958:"NAME OF PARAMETERS FILE:"::" ===> ";A$)4(A$,1)"?"ĺD$;"CATALOG";(A$,2)::A$:7200Y*>D$;"OPEN ";AAD PARAMS(6:958:"NAME OF PARAMETERS FILE:(? FOR CATALOG)"::" ===> ";A$((A$,1)"?"ĺD$;"CATALOG";(A$,2)::A$:::7100(D$;"OPEN ";A$:D$"READ ";A$:AF:X1AF:AL$(X)::X1AF:DA%(X)::NF:F1NF:X14:FM$(F,X)::b)F1NF PARAMETERS"::" 2. SAVE PARAMETERS"::" 3. RETURN"V':"INPUT NUMBER (1-3): ";r'A$:A$"1"A$"3"6930'A$:(A$)7100,7200,150'X >> QUIT'bD$;"WRITE EAMON.DESC,R0":T14:N%(T)::LR:LM:LA'lD$;"CLOSE"'v216,0:( >> LO":" 7. RETURN TO MAIN MENU":"INPUT THE NUMBER (1-7):";W&A$:(A$)1(A$)76830&A$:(A$)10100,10200,10300,10400,10500,10600,140& >> LOAD/SAVE PARAM.7':10);"LOAD/SAVE PARAMETERS":6:958:"SELECT LOAD/SAVE FUNCTION:"::" 1. LOAD15100,15200,15300,1502% >> CHANGE DATA ASSIGN%:08);"CHANGE DATA ASSIGNMENTS":6:"SELECT DATA TYPE:":" 1. MONSTER DATA":" 2. ARTIFACT DATA":" 3. CHANGE FORMAT POINTER":" 4. CHANGE A FORMAT"9&" 5. ARTIFACT TYPES":" 6. ADD A FORMATFAULTSu$6:12);"CHANGE DEFAULTS":6:"SELECT DEFAULT TO CHANGE:"::" 1. ROOM VALUES"::" 2. MONSTER VALUES"$@:" 3. ARTIFACT VALUES"::" 4. RETURN TO MAIN MENU"::"INPUT YOUR CHOICE (1-4):";$JA$:(A$)1(A$)46730%TA$:(A$)R ART. TO GEN:";NAa#A1NA:D$"WRITE EAMON.DESC,R";N%(2)201:"YOU SEE ARTIFACT ";N%(2)1;"."#D$"WRITE EAMON.ARTIFACTS,R";N%(2)1:"ARTIFACT ";N%(2)1:X18:0::N%(2)N%(2)1:#D$:150# >> TOGGLE H/C#HCHC:150$, >> CHANGE DE%""MONSTER NUMBER TO START ON:";MA"AN%(2)1:LA%AN%(4)ML"34500\"8 >> DELETE"BC$"DELETE":500:N%(A)N%(A)1"L6000" === INCREMENT"C$"INCRMNT":500:N%(A)N%(A)1:6000"LKLK:6000"d >> GEN. DUMMY ART."n#x"NB;"):";!S$:S$(13)ĺ:150:!(S$)1(S$)SF6045t!:(S$)6045,6200,6300,6400,6500,6600,6700,6800,6900! >> GEN. DEAD!6:958:"ALL DEAD BODIES (Y/N):";!A$:A$"Y"A$"N"6110"A$:A$"Y"AN%(2)1:M1:LA%AN%(4)1:34500;")"+ :" 5. GENERATE DUMMY ARTIFACTS"t :" 6. TOGGLE PRINTER (NOW ";("OFFON",HC31,3HC);")":SF76040 :" 7. CHANGE DEFAULTS"::" 8. CHANGE DATA ASSIGNMENTS"::" 9. LOAD/SAVE CUSTOMIZED PARAMETERS"!:"INPUT YOUR CHOICE (1-";SF600:NONC:1430+p >> SPECIAL FUNCTIONSgu:SF9::" SELECT FUNCTION OR PRESS "::z" 1. (NOT USED)":" 2. DELETE LAST R,A,E,M":" 3. ADD TO NBR OF R,A,E,M": " 4. TOGGLE LOCK MODE (NOW ";("OFFON",LK31,3LK)FROM:RECNO:21000:20000:RECNC:NONC:1130@P >> DUP. ART.|ZNOFROM:RECNO200:22000:20000:RECNC200:NONC:1230 >> DUP. EFF.NOFROM:RECNO400:20000:RECNC400:18000150 >> DUP. MONSTER"NOFROM:24000:20000:RECNC00:RECNO600:1420& >> DUPLICATECC$"DUPLIC.":500:TYPEAzC$"DUP. FROM":700:FROMNO:C$"CREATE":700:NCNONON%(TYPE)ĺ"CREATING A ";T$(TYPE);" FROM ANOTHER.":N%(TYPE)N%(TYPE)1TYPE5100,5200,5300,5400 >> DUP. ROOM-NOj >> REPLACE ITEM9C$"REPLACE":500:TYPEAWTYPE4100,4200,4300,4400m >> REPLACE ROOM|700:1120h >> REPLACE ARTIF.r700:RECNO200:1220 >> REPLACE EFFECT700:RECNO400:13200 >> REPLACE MONSTER:7NA$" LPLP1:LP1935HCİ36009 A::HCĺD$"PR#0"p :"PRESS ANY KEY TO RETURN TO MENU";:A$:::150 >> PAGE BREAKLP0:HCĺ(12);"LISTING ";A$;"S"::$:" (PRESS ANY KEY TO CONTINUE) ";:16368,0:B$::(37)1:958:"MONSTER # ";NO;" ";::NA$::.:6M1MF}:7M1M6ĺ" IF GROUP MONSTER ENTER VALUE FOR JUST ONE MEMBER OF GROUP":7M3ĺ" SINGLE MONSTERS - ENTER 1":" GROUP MONSTERS - ENTER # OF MEMBERS"G;(7M11ĺ" 1=ENEMY 2=NEUTRAL 3=FRIEND":TL238:600:DE$I$::,96 >> EDIT MONSTER96:"ENTERING MONSTER # ";NO::"** BE SURE TO ENTER *ALL* MONSTER NAMES IN A SINGULAR FORM **":96:I2$NA$:TLML:"ENTER NAME:":600:I$""14010":6NA$I$::"ENTER DESC--":I2$DE$:TL238:600:DE$I$: ";TYP$(X);:XDTĺ22);X1;" = ";TYP$(X1)58/::e8/"1=AXE, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":k808 0X14:AL$(XAF)FM$(FMP%(AD%(2)),X):80X14:AD%(AFX)FD%(FMP%(AD%(2)),X):8f082 >> EDIT EFFECT92:"ENTER EFFECT #";NO:I2$DE$:YING IT":"-1.................CARRIED BY PLAYER":"-999...............WORN BY PLAYER"7&/AL$(D);" : ";:I2$(AD%(D)):TL5:600:AD%(D)(I$)7+/D2PTAD%(2)İ1230070/7:/7/D112250,12290,12290,12290,122607/12290+8/X0DT2:" ";X;" =(2)4)İ1220046/D8ĭAD%(2)8ĺ" 1 = HIDDEN DOOR"r6/D7ĭAD%(2)4AD%(2)6AD%(2)7ĺ"OPEN = 1; CLOSED = 0"6/D2PTAD%(2)U7%/D4ĺ"ARTIFACT# + 500....INSIDE ARTIFACT#":"ROOM# + 200........EMBEDDED IN ROOM#":"(- MONSTER# - 1)...MONSTER# CARRTLAL::"ENTER ARTIFACT NAME:"55.600:I$""12010{5.3:958:"ARTIFACT NAME:":" ";::I$::NA$I$:6:I2$DE$:TL2385/"ARTIFACT DESCRIPTION:":I2$DE$:600:6:958:"ARTIFACT DESCRIPTION:"::I$::DE$I$: 6/D1AF4:D2(DAF2AD%(2)1AD%NGS"4/+D1ND44+"MOVE ";DD$(D);"...";:I2$(RD%(D)):TL5:600:RD%(D)(I$):RD%(D)(RD%(D))(RD%(D))I$Ģ(37):110604H+:"LIGHT (0 = NONE; 1 = NORMAL) ";:I2$(LT):600:LT(I$):4. >> EDIT ARTIFACT5.:"ENTERING ARTIFACT ";NO:I2$NA$:600:6:958:"ROOM DESCRIPTION:"::I$::DE$I$:~3*+958:"FOR EACH DIRECTION ENTER THE ROOM # THATTHIS ROOM CONNECTS TO:"4,+" NO CONNECTION: 0":" EXIT TO MAIN HALL: -99":" DOORS: ARTIFACT # OF DOOR + 500":" NEGATIVE NUMBER FOR UNUSUAL THI0%2)((I$))32765FD%(NF,X)(I$)+2)52)6800H2* >> EDIT ROOM2+:"ENTERING ROOM ";NO::I2$NA$:TLRL:"ENTER ROOM NAME:"2 +600:I$""110102+3:958:"ROOM NAME:":" ";::I$::NA$I$:TL238:6:I2$DE$23 +"ENTER ROOM DESCRIPTION:":0:600:I$""XDTDTDT1:10500116)I$""150U1@)XDT1DTDT1:TY$(DT)I$:150c1J)TY$(X)I$n1^)105001h) === ADD A FORMAT ===1r)6:9582|)NFNF1:X14:"FIELD ";XAF;" LABEL:";:I2$"":TL0:600:FML$(NF,X)I$:"DEFAULT DATA:";:I2$"0":600) >> ART TYPESu0):X0DT:" ";X;". ";TY$(X)::" ";DT1;". NEW TYPE":" ";DT2;". RETURN TO PREVIOUS MENU"0)"INPUT TYPE NUMBER:";A$:(A$)0(A$)DT2ĺ"TRY AGAIN, FROGFACE.":105200")X(A$):XDT26800"1,):"NEW TYPE:";:I2$TY$(X):TL958:"INPUT FORMAT NUMBER:";=/(A$:A$"1"A$(NF)10420M/(A$:F(A$)/(6:958:X14:"FIELD ";AFX;" LABEL:";:I2$FM$(F,X):TL0:600:FM$(F,X)I$/("DEFAULT DATA: ";:I2$(FD%(F,X)):TL0:600:((A$))32765FD%(F,X)(I$)/(/(6800",1,20(TY$(X))((TY$(X))20));FM%(X):N.P("INPUT NUMBER 0 - ";DT;:":";A$s.Z((A$)DTY(A$)0Ģ(37):10320._(X(A$).d("NEW POINTER (0-";NF;:"): ";A$:(A$)0(A$)NFĢ(37):10340.n(FMP%(X)(A$):6800.( === CHANGE FORMAT ===/(6:F26800B-'X(A$)::"NEW LABEL:";A$:A$""XAFAFAF1:10200Q-(A$""150m- (AL$(X)A$:XAFAFAF1x-2(10200-<( === CHANGE FPTR ===).F(6:958:"FOR WHICH ARTIFACT TYPE:":X0DT:" ";X;" = ";TY$(X);("..................................'M$(X)A$:XMFMFMF1",'10100>,' >> ARTIF. DATA ASSIGN,':X1AF:" ";X;". ";AL$(X)::" ";AF1;". NEW FIELD":" ";AF2;". RETURN TO PREVIOUS MENU",'"INPUT FIELD NUMBER:";A$:(A$)1(A$)AF2ĺ"TRY AGAIN, FROGFACE.":10220-'(A$)A;". ";M$(X)::" ";MF1;". NEW FIELD":" ";MF2;". RETURN TO PREVIOUS MENU"+'"INPUT FIELD NUMBER:";A$:(A$)1(A$)MF2ĺ"TRY AGAIN, FROGFACE.":10120+'(A$)MF26800+'X(A$)::"NEW LABEL:";A$:A$""XMFMFMF1:10100+'A$""150, 4"OPEN PATCH":"WRITE PATCH":6:"CLOSE":|XXEAMON ADVENTURER'S GUILDX7625 HAWKHAVEN DR.XCLEMMONS, NC 27012XX (4)"MAXFILES 3":1000-:DK$"READ EAMON.DESC,R"R:A$:DK$:A$::"YOU ARE":" "RN$: V%(RO)V%(RO)1:RRO:45     (222)10ĺ"CAN'T SAVE FILE - LOCKED.":HHD$(4):D$"OPEN EAMON.DESC,L242":D$;"WRITE EAMON.DESC,R0":T14:N%(T)::LR:LM:LA:N%(T)::LR:LM:LA8,0,ROOM BEYOND,1,KEY#,99,STRENGTH,999,HIDDEN?,0]GUSER #5,0,USER #6,0,USER #7,0,USER #8,0GފMONSTER#,0,KEY#,0,GUARD#,0,USER #8,0G芃ARMOR CLASS,0,TYPE,0,USER#7,0,USER#8,0G<(H`"FOUND AN ERROR - CODE ";(222):"ON LINE # ";(218)(219)256:POINTERS1FUSER#5,0,USER#6,0,USER#7,0,USER#8,0}FODDS,10,W.TYPE,3,DICE,1,SIDES,4,KEY#,99,STRENGTH,100,OPEN?,0,USER #8,0FHCOUNTER,999,USER #6,0,USER #7,0,USER #8,0,HEAL AMT,10,NBR USES,5,OPEN?,0,USER #8,00Gz 1ST EFF.,1,#EFFECTS,1,OPEN?,0,USER ## DICE,# SIDES,FRIEND6EDM%(MF5):M1MF:DM%(M):hE16,16,1,100,0,150,0,0,1,4,3: MONS. DEFAULTSENF:FMP%(DT5),FML$(DT5,4),FD%(DT5,4):X0DT:FMP%(X)::X0NF:F14:FML$(X,F),FD%(X,F):EE9F0,0,1,1,2,3,4,5,6,7,8,9:FORMAT Dш50,1,5,0:ART. DEFAULTS2DֈD110:DD$(D):VD؈ N ,S ,E ,W ,U ,D ,NE,NW,SE,SWpDۈT110:DD%(T)::DLD0,0,0,0,0,0,0,0,0,0,1:DEFAULT ROOM #SDMF11:M$(MF5),M%(MF5):M1MF:M$(M):E숃 HD,AG,# MEMBERS,COUR,ROOM,WEIGHT,ARMOR,WEAPON#,.)CLjDT:TYP$(DTCX):T0DT:TYP$(T):CȈ11,GOLD,TREASURE,WEAPON,MAG WEAPON,CONTAINER,LIGHT,HEALING,READABLE,DOOR/GATE,KEY,BOUND MONSTER,WEARABLECʈAF4:AL$(AF4CX),AD%(AF4CX):T1AF:AL$(T):CˈVALUE,TYPE,WEIGHT,ROOMC̈T1AF:DA%(T):E$DE$" "::DE$DE$THE$A$"."RB熁X21AF4:AD%(X2)0::AD%(2)1:AD%(3)MD%(6)zBRECX200:NOX:18000:N%(2)N%(2)1B31200:B150B === SETUP DATA BRLLR34:MLLM62:ALLA42:U$(95)BˆCX5:T14:T$(T):CÈROOM,ART.,EFF.,MONS 2. THE DEAD BODY OF THE ";A$::"CHOOSE THE CORRECT PHRASE (1-2):";cAֆX$:X$"1"X$"2"34518A׆THE$("THE ",1,(X$"2")4):X$A؆NA$"DEAD "A$:DE$"YOU SEE THE DEAD BODY OF "THE$A$"." B↭(DE$)40ĭ(DE$,41,1)" "DE$(DE$,25):S2640:DD$:@z >> WRITE MONSTERf@zD$;"WRITE EAMON.MONSTERS,R";NO:(34);NA$;(34):M1MF:M%(M)::D$l@z@Ć === GENERATE DEAD@ΆXALA%:D$;"READ EAMON.MONSTERS,R";M:A$:X216:MD%(X2)::D$:MM1FAӆ6:958:" 1. THE DEAD BODY OF ";A$::"READ EAMON.MONSTERS,R";NO:NA$:D1MF:M%(D):9?^D$:M?|y >> WRITE ROOMy?yD$;"WRITE EAMON.ROOMS,R";NO:(34);NA$?yD1ND:RD%(D)::LT:D$?y?y >> WRITE ART.?yD$;"WRITE EAMON.ARTIFACTS,R";NO:(34);NA$;(34):D1AF4:AD%(D):@y(>*ND$;"READ EAMON.DESC,R";REC:DE$:D$.>4NA>R >> READ ROOMx>RD$;"READ EAMON.ROOMS,R";NO:NA$:D1ND:RD%(D):>RLT>&RD$:>U >> READ ART.>UD$;"READ EAMON.ARTIFACTS,R";NO:NA$:X18:AD%(X):>VD$:>] >> READ MONSTER/?]D$"F:DM%(D)M%(D):=;1500=; >> CHG DEF. ART.=;:"INPUT NEW DEFAULT VALUES FOR ALL FIELDS.":D1AF:AD%(D)DA%(D)::12050:D1AF:DA%(D)AD%(D):=;150=PF>> WRITE DESC=ZFD$;"WRITE EAMON.DESC,R";REC:(34);DE$;(34):D$:= N>> READ DESC7> CHG DEF. ROOMe<;:"INPUT DEFAULT VALUES DESIRED.":D1ND:RD%(D)DD%(D)::11055<;D1ND:DD%(D)RD%(D)::DLLT<;150<`; >> CHG DEF. MONST.=j;:"ENTER NEW DEFAULT VALUES FOR EACH FIELD.":D1MF:M%(D)DM%(D)::14040:D1M" FOR RANDOM FRIENDLINESS,":" ENTER PERCENT LIKELY FRIENDLY + 100";27M8ĺ:" ART.#...WEAPON #":" 0.......NATURAL WEAPONS":" - 1.....WEAPONLESS";F7"ENTER ";M$(M);": ";:I2$(M%(M)):TL5:600:M%(M)(I$):(M%(M))I$ĺ(7):(37):14150:300qB"OKAY, "(34)S$(34)".":300` SAX'S CHEATS j"MONSTER"21)"ROOM - SEEN?":M1NM:A$"("(M)") "MN$(M):A$30(A$));:A$(MD%(M,5)):A$7(A$))MD%(M,0)::10ĺ" (READY WEP)";2V'LK19LK1::"MORE ";:A$N`'::LKĺ" (NOTHING)"mj'Mĺ:" "GO" GOLD PIECES"t'DFM:7650:300:B%NM:D%RO:M1NM:C%M:A,D%,MD%(C%,5),C%,B%:MC%:MM999:15900:MN$(M)" ";:MD%(M,14)15030,15040,15050:15900&%GOGOA:MD%(M,14)0:MD%(M,3)MD%(M,3)(1A100):9090R'S$""M0:X1:10040e$'4700:F9020p.'XM18'MN$(M)" IS CARRYING:"::LK0B'B%NA:D%X:A1NA:C%A:A,D%,AD%(C%,4),C%,B%:AC%:C%A999:10080L'LKLK1:" "AN$(A);:AMD%(M,9)":1009d#"OKAY.":AD%(A,4)M1:AMD%(0,9)MD%(0,9)1`n#MD%(M,9)1ĭAD%(A,2)1MD%(M,9)Ax#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)#R3RO:3600:5050%AGOĺ"YOU CAN'T AFFORD THAT MUCH!":1007,4)M1Ă:7900#<AD%(A,4)RO:+:O2#S$""Ą"WHO TO GIVE TO? ";S$:<#4700:Fĺ"NOBODY HERE BY THAT NAME!":100F#MD%(M,14)1ĺMN$(M)" GROWLS AT YOU.":300P#"WHAT TO GIVE? ";S$::A(S$):A09500Z#4804:Fĺ"YOU DON'T HAVE THAT.RE.":100|MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:A2DFNZNM:AD%(A2,4)ROMD%(DF,9)0MD%(DF,10)MD%(DF,10)AD%(MD%(DF,9),5):MD%(DF,9)1:MD%(DF,4)MD%(DF,4)2(DF0DIE1:20002A1NA:AD%(AC%:S$AN$(C%)X999::+R:C%D%Ă:^X999::F1ĺ"BE MORE SPECIFIC THAN: "S$:100d}dS$""RRO:45:300n4804:FĭANZR100A:45:300xFĺ"THIS IS YOUR "AN$(A)".":3004700:FR300M:45:300 "THERE IS NO "S$" HEWH4770FF1:F1MX0S$MN$(X)MX:DR:C%D%4720J] ART SEARCH yHA1:WHHA:EMHA:4810HA1WHRO:EMRO200A0:F0:C%0:D%0:S,S$,AN$,C%:C%ıX1NAD%C%:A2AD%(C%,4):A2WHA2HAA2EMFF1:A CONTINUE) ";:A$: R3RO:ROR2:DK$"OPEN EAMON.ROOM NAMES,L64":DK$"READ EAMON.ROOM NAMES,R"RO:RN$:DK$"CLOSE EAMON.ROOM NAMES":3600 \ MON SEARCH aWHRO:HA1 fF0:C%0:D%0:S,S$,MN$,C% kC%ıpD%C%:XC%:MD%(X,5)HAMD%(X,5)ѹ1014,A1A2256:1015,A2:A:DK$(4):DK$"BLOAD EAMON.SEARCH,A"A1} $DK$"OPEN EAMON.DESC,L256":DK$"OPEN EAMON.ROOMS,L64" lR21:3500 49168,0::"(HIT RETURN TO CONTINUE) ";A$:DK$"CLOSE" 8 GOGOTP:DK$"DELETE FRESH MEAT":"(HIT ANY KEY TO$A$:A2(A$):(A$,A,1)" "Ă? V$(A$,A1):S$(A$,A1)` (S$,1)" "S$(S$,2):260z C%0:S,V$,C$,C%:CC% C%ĺ"HUH? I ONLY UNDERSTAND THESE COMMANDS--":C1NC:C$(C)20(C$(C));:::210C M(115)(116)256:AM290:A2(A256):- "; "YOU SEE "AN$(A)R :ANZ1NA:AD%(A,4)ROĺ"YOUR "AN$(A)" IS HERE."X v :" YOUR COMMAND? ";A$: A$(6)Ą"FUNCTION?";A:A60010,60020,60030,60040,60050 (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37)1:17:A$:! CZG B%NM:D%RO:M1NM:C%M:A,D%,MD%(C%,5),C%,B%:MC%:MM999:160u MD%(M,0)MD%(M,0)1:RM300:45:" - "; MN$(M)" IS HERE." :B%NZ:D%RO:A1NZ:C%A:A,D%,AD%(C%,4),C%,B%:AC%:C%A999:190 AD%(A,0)AD%(A,0)1:RA100:45:" $:OP$"EAMON.NAME":RD$"EAMON.NAME":NA$:C$W Q$(34):A$(NA),RN$(NR),M$(NM),E$(NE) (:5:23(NA$))NA$::"# ROOMS = "NR:"# ARTIFACTS = "NA:"# MONSTERS = "NM:"# EFFECTS = "NE::"CONTINUE? (Y/N) >";:A$:A$:A$"Y"Ā1 250,50:"CONVERT OR R 2 EAMON RND TO SEQ 7 BY FRANK KUNZE 9/2/94  6000:D$(4):D$"PR#0":D$"IN#0":::255::O$D$"OPENEAMON.DESC":R$D$"READEAMON.DESC":C$D$"CLOSE":OP$D$"OPEN":RD$D$"READ":W$D$"WRITEEAMON.DESC,R", 5000:O$:R$:NR,NA,NE,NM,LR,LM,LA:C   L` { ޥC R5L ߠȱȱZ@ A芑` ߠȱȱA[ Zʊ`IAD EAMON.ROOM NAMES,R"A:RO$:D$K dA$(A)": "RO$:(A$)54A$(A$,54) nA$;55(A$));:A216:A$(RD(A2)):A$;4(A$));:: xLL1:L54L0:(12) ::D$"CLOSE":(12):D$"PR#0" <P(A$):D$"PR#"P F18)"DOCTOR SAX'S QUICK MAP"::"LISTING: "NA$;NM$:::D$"OPEN EAMON.ROOMS,L"LR:D$"OPEN EAMON.ROOM NAMES,L"LN P"-- ROOM NAME --"40)"N S E W U D":L6 ZA1NR:D$"READ EAMON.ROOMS,R"A:A216:RD(A2)::D$"REA$:D$"CLOSE":LN64:NA$"THE BEGINNERS CAVE"LN32` #LR64:NA$"DUNGEON OF DOOM"LR30:LN40 (:"LISTING ";::NA$:::"PRINTER SLOT? >";A$:A$""A$"1":(37):16:A$ 2:"ADVENTURE # (RETURN = NEVERMIND) >";B$:NM$" (#"B$")":B$""NM$B$A PROGRAM TO MAP0EAMON ADVENTURES TO?A PRINTERE (21):D$(4):::"INSERT ADVENTURE DISK (6.X OR EARLIER)":19):A$:D$"OPEN EAMON.DESC":D$"READ EAMON.DESC":NR:D$"CLOSE"3 D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":NōĠƠ ҭ ԍŠҠԍؠű؍àűРҍРҠ̱РҍŠؠű؍ҠĵٍҠҍҠҍРԱӠؠƬììōРſѠ̍РƠſŠˍ̠ؠűѠР ōàűؠ̱Ӭ؍ѠҍҠԍ؍Š̱ˠРōàР čРŰàԍ٠ؠؠű ҍҠؠұӬ؍ѠˍҠԍ؍ÍҠԍРұˠð Ŀ̠ҠōԠð ōРĠοčРɧѠԍؠРĴĠҠԍؠűҠ͍ҠԍؠŲıðӱٍŠӲàŲѠԍӲ؍ŠӱؠűРıԠӍԠҠԍҠҍ9000 LLOOK,6500# VOPEN,200002 `PUT,21000B jREAD,23000S tREADY,17000e ~REMOVE,27000t USE,28000 WEAR,26000 ATTACK,7000 BLAST,11000 FREE,24000 GIVE,9000 HEAL,12000 REQUEST,25000 TALK,30000 INA1NC1:LN(A)",";::LN(NC)H (:(7)"DON'T FORGET TO DELETE 31910!"P 38q N,3000,S,3000,E,3000,W,3000 UP,3000,DOWN,3000,FLEE,8000 CLOSE,20500 DRINK,22000 DROP,5000 $EAT,22500 .EXAMINE,6000 8GET,4000 BLIGHT,1 ";:A$::;:49168,0:"INSERT WORK DISK ... ";:A$::]pA752799:A1:A,A1::752: z169,76,162,0,160,3,141,245,3,142,246,3,140,247,3,96,32,248,230,134,224,32,190,222,32,248,230,134,225,173,48,192,136,208,4,198,225,240,8,202,208,246,166,224,7:C$Or5000:O$",L242":A601600NM:W$A:Q$M$(A600)Q$::C$:100,50:310|5010:OP$"EFFECTS":RD$"EFFECTS":A1NE:E$(A)::C$5000:O$",L242":A401400NE:W$A:Q$E$(A400)Q$::C$:100,50:310 :49168,0:"INSERT ADVENTURE DISK ... R:W$A:Q$RN$(A)Q$::C$:100,50:310qTA$"A"360:5010:OP$"ARTIFACTS":RD$"ARTIFACTS":A1NA:A$(A)::C$^5000:O$",L242":A201200NA:W$A:Q$A$(A200)Q$::C$:100,50:310hA$"M"380:5010:OP$"MONSTERS":RD$"MONSTERS":A1NM:M$(A):ҍЍōčȍҍǠ̠ōōˠԍύǠ׍"EFFECTS":D$"WRITEEFFECTS":A1NE:Q$E$(A)Q$::C$:100,50:40O , REVERT 6:"REVERT WHAT? (R/A/M/E) >";:A$:A$:A$"R"A$"A"A$"M"A$"E"310 @A$"R"340:5010:OP$"ROOMS":RD$"ROOMS":A1NR:RN$(A)::C$%J5000:O$",L242":A1N242":A601600NM:5:"LOADING #"A600:R$",R"A:M$(A600): C$:5010:OP$"MONSTERS":D$"WRITEMONSTERS":A1NM:Q$M$(A)Q$::C$:100,50:40 A$"E"180:5000:O$",L242":A401400NE:5:"LOADING #"A400:R$",R"A:E$(A400):@ C$:5010:OP$RITEROOMS":A1NR:Q$RN$(A)Q$::C$:100,50:40 A$"A"160:5000:O$",L242":A201200NA:5:"LOADING #"A200:R$",R"A:A$(A200): C$:5010:OP$"ARTIFACTS":D$"WRITEARTIFACTS":A1NA:Q$A$(A)Q$::C$:100,50:40= A$"M"180:5000:O$",LEVERT (C/R) >";A$:A$"C"A$"R"50:A$"R"300A d CONVERT n:"CONVERT WHAT? (R/A/M/E) >";:A$:A$:A$"R"A$"A"A$"M"A$"E"110 xA$"R"140:5000:O$",L242":A1NR:5:"LOADING #"A:R$",R"A:RN$(A):0 C$:5010:OP$"ROOMS":D$"WT1000: HINT SHEET MAKER BY FRANK KUNZE 4/94 INPUT ROUTINE FROM DNG EDIT 7.1 ed INPUT I$ wnTL238:U$"_"x958:1:V(37):I1TL:U$;:::V1I$"":IS0I2$;:TL5ĺU$;:(8);(I2$)āA1(I2$):(8);: A$:A$(13  L` { ޥS I%L 0L"` l݅ ʩ LE,ɍ8Ɉ&  ɞ) LC LC 3 LC ϩ ĺ Ӭجٍ Ժ Ь Ч̠ՠķ͠ՠ ҭō ů Һ ө ҩ ĩ Һ өĬ؍   Ӎ ٍ ؍ ̺ Ӎ Ӎ ΍      ڍѠҠčҠ ҍà ٍàҍàڵàҫڵŠЍȠ͍٠ҩٍҠӍѠٴٲٍ٠ΠĿѠȠӍٴҩ٠ύРҩٍѠٲ؍ɠ΍΍Íà΍Íàҍҍàӱàҫӱ٠ѠٴΠà͍͍Р ǍР٠ҩٍΠ ҍٍҩ٠ ҍҍٍҩٍҫΠ ҿР΍ɠΠӬ ҍؠ îҍÍàҍҫàҫ٠ҩٍڍàҍŠӲàҫӲҠ͍ҠԠ Íҍ٠ҫÍРӠΠ ԍÍӠЍԠҠԍҠ͍ҠԠ î٠٠͍ԩٍ΍ٍԩ٠ ōҍٍԩٍҫҠ͍ҠԠ å ٍ î ȍҠՠ͠ՠŰΠՠűҠՠŲڠՠŴΠՠŶҠՠŷҠՠŹҠՠҠԍРҧŠԍҠ±Ԡՠ·Ԡՠ͠ՠōԠՠųԠՠƷĹǠ ȍ ɍ Ӭ¤å ź č Ǎ ¤ ō  Ӎ ɍ Ӻ Ӭ¤ä ȩ ȩǠưÍؠ٠Ƶؠƶ٠ƷӍԠՠ   L` R 8E ߠృȱȱ i祜i ߅<ȱȱ0&008eiЯ`ԍōȍԠ̍ōҍԍ î٠ԩٍ͍Р٠ٍ̩Р̍Šٍٍ̩Р̫Ѡȍà̍Šà̫à̍Šڳà̫ڳàҍÍ͍à٠ԩٍٍٍ̬ԩٍٍ̬Ҡ͍ҠԠ î̍٠̫Ҡ͍ҠԠ î å͍٠ͫ٠ԩٍҍҠ͍ҠԠȍ ¥ ٍ̠ՠŰî ō͠ՠŲ ا͠ՠŴî å̠ՠŶ ōҠՠŸ ԍҠԠ ō ȍ ɍ ĥج٩å¥ ź č ĥ ō جة ٍ å ا î  E Ӎ ɍ ͮ Ӻ ĥج٩å¥ǠưÍؠ٠Ƶؠƶ٠ƷӍԠՠ͠ՠōԠՠųǠ  uL` ߠȱ ߅ ߅ ߠȱ8ܩ`ԍԍŠˍѠԍˠ٠ ԩٍѠōɠōРàōĠƍԩٍŠٍŠŠ٠ԩٍ؍ٍԩ٠ ҍԫ ׍ؠԍŠˍѠԍؠэҠ͍ҠԍؠŠҍαٍŠβàѠԍβ؍ŠαؠэРō ҍԠ Ӎԍԫ٠ԩٍѠԍҠŷ ҍ ҠĶ ōàҍàĠ ӭ ōà ĬōàōӍҠؠұРĴ ōĠҠÍٍĩٍٍĩٍ٠ԠٍРŠԍŠōԠؠŠԱРàԱĠƍŠٍԱٍ٠ŠԍԠӍ ҍҠ̍ħѠРӧѠčРЧѠԍؠÍàұ ï ҍ Ӎ ҭ čԠҠԍؠč٠ĩٍōԠՠųԠՠŶƸѠՠՠҠՠðՠŰՠűՠŲĠՠĠՠƹԠՠǠҠ͍Ҡ̍Ҡ͍ ԭ ōРѠԍРōAMON.":C$D$"CLOSE" JA T"INSERT EAMON DISK...";:A$:A$:i ^"INSERT TARGET DISK...";:A$:A$: hI768816:V:I,V::5r 32,183,0,201,44,208,3,32,190,222,32,6,227,201,34,208,11,32,129,222,169,59,32,192,222,32,61,219,32,227,223,32,108,221,:O$"DESC,L256"N X1NM:R$"DESC,R"X300:RO$(X):5:7:"MONSTER #"X::C$ ":350:O$"MON.DESC":W$"MON.DESC":X1NM:RO$(X)::C$ ,D$"CATALOG"::"TRANFER COMPLETE...": 6 @D$(4):R$D$"READ EAMON.":O$D$"OPEN EAMON.":W$D$"WRITE E350:O$"ART.DESC":W$"ART.DESC":X1NA:RO$(X)::C$Q :340::"LOADING..." O$"DESC,L256":X1NE:R$"DESC,R"X200:RO$(X):5:7:"EFFECT #"X::C$ :350:O$"EFCT.DESC":W$"EFCT.DESC":X1NE:RO$(X)::C$ :340::"LOADING...MONSTERS"X) 5:7:"ROOM #"X::C$A :"INSERT TARGET DISK":A$:A$ O$"ROOM.DESC":W$"ROOM.DESC":NR:NA::NE:NM:X1NR:RO$(X): C$ :X(0):320:340 O$"DESC,L256":X1NA:R$"DESC,R"X100 RO$(X):5:7:"ARTIFACT #"X::C$6 :MS: "NR,"ARTIFACTS: "NA9 n"EFFECTS: "NE,"MONSTERS: "NM{ x17:"DOES THIS SOUND RIGHT? (Y/N)";:A$:A$"Y"A$"N"120 A$"N"ĺ:"STOPPING PROGRAM":D$"NOMON C,I,O": :"LOADING...ROOMS":O$"DESC,L256" RO$(99):X1NR:R$"DESC,R"X:RO$(2  BY DOC SAX ::560,520:""5320p(::"CONVERT OR REVERT? (C/R)";A$:A$"C"A$"R"402A$"R"380<:340F:"SEARCHING..."PO$"NAME":R$"NAME":N$:C$ZO$"DESC":R$"DESC":NR,NA,NE,NM:C$ d::N$:::"ROO     ,1,blink,2,curse,1,lesser demon,3 .'Odin's eye,2,thunder bolt,1,incinerate,0,higher demon,3,disintegrate,0,restore health,2,raise dead,21:SA%(X)R99SA%(X)SA%(X)R::"Nukes ability raises!"A %U ' SPELL VERBS  'casts,hurtles a,attempts,calls forth $'21,magic missle,1,heal,0,light,2,curse,1! )'knock,0,friends,2,scare,2,duplicate,4,famillar,4,disperse familiar,0,fireball,A,2::9000:A1255:S,A,2::& '#7 (# SUCCESS? v 2#RL((1)100)1:RLSA%(X)ġ:"Spell failed!":S,255,20: <#" --- Success!":SU1: % COMBAT SPELLS &%:"DIRTY BIRDY IS IN PAIN!";::: % RAISE ABILITY? ; %(1).5R((1)2)1000,1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100I <SUİ9600V FSU0:30k d MAGIC MISSLE xA2001002:S,A,5::A150::9000:S,220,100:D2((1)51):9500 HEAL , LIGHT  CURSE  BLINK A25511:S NS21:1014,0:1015,3A03:SV$(A)::SV$(4)SV$(3)" his":SV$(3)SV$(3)" a":NS:SA%(NS),SP$(NS,1):A1NS:SP$(A,0),SP$(A,1):SA%(A)60::"SPELL? ";X("Nuke "SV$((SP$(X,1)))" "SP$(X,0)"!"; 2X100,200,300,400,500,600,700,800,900,   ӠЍҍȠ٠ҍٍͩӍ@ D$(4):A$(63),M$(30)>D$"OPEN EAMON.ARTIFACTS,L92" 00:18000:LKī150<8001x >> ADD MONSTERWN%(4)N%(4)1:NON%(4):RECNO300NA$"":DE$"":D1MF:M%(D)DM%(D):14000:18000:31400:LKī150800 >> EDIT OLD ITEMC$"EDIT":500:TYPEATYPE2100,2200,2300,24004>> ADD ARTIFACT5N%(2)N%(2)1:NON%(2):RECNO100NA$"":DE$"":D1AF:AD%(D)DA%(D)::X14:AL$(XAF)FM$(FMP%(AD%(2)),X):12000:31200:18000:LKī150800 >> ADD EFFECTN%(3)N%(3)1:NON%(3):RECNO200(DE$""2130:150150  >> ADD ITEM9C$"ADD":500:TYPEAWTYPE1100,1200,1300,1400iL >> ADD ROOMVN%(1)N%(1)1:NON%(1):RECNO`NA$"":DE$"":D1ND:RD%(D)DD%(D)NO(DD%(D)0)::LTDLj11000t31100:18000:LK150~800 UMBER OF ";T$(TY);" TO ";C$w" (1-";N%(TYPE);:") ";A$:NO(A$):NO1NON%(TYPE)(C$"CREATE")NO(NO)ġ:150}  >> LOCKED <<*:C1020,2020,3010,4020,5020,150,150z150 >> DELETE FROM LOCKLKLK:C1N%(TYP)N%(TYP)11)(I2$)A$(I2$,1):6254A$(21)A$" ":625tA$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:615A$(8)(I$)I2$I$I2$:A$;:600A$(8)600A$(27)ĺI2$:I$I$I2$:615 >> GET NUMBER6:958:"INPUT N)vA$(5)ĺI2$;:I$I$I2$:I2$"":615f{A$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":615A$(4)I2$(I2$,2):610A$(9)CIISIS:H(36):V(37):39:1::(" I",IS1,1)::H1:V1:615A$(9)I2$" "I2$:610A$(2V10bI2$;:958:(I2$)āA1(I2$):(8);:LgA$:A$(13)Č958::fjA$(17)LKġ::900l(A$(31)A$(9)(A$(21)(I2$)))(I$)(I2$)250ĺ(7);:615nA$(31)ISĺA$;:I$I$A$:610qA$(31)ĺA$;:I$I$A$:I2$(I2$,2):6152:958:"DO YOU WANT TO ";C$;" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";A$:A14:A$("RAEM",A,1)Ă:520A$:X///ROUTINE TO INPUT I$, HAVING BEEN PASSED I2$]I$"":H(36):V(37):38:1::(" I",IS1,1)::H1:ICE (1-7) ";*,A$:A$(12)LKLK:150C1A$(9)CICI:150\6(A$)1(A$)7300l@C(A$):A$^C1000,2000,3000,4000,5000,6000,7000ND$""DV4:ND$"6":DK$;"CLOSE":60DV5:DK$;"CLOSE":60 >> SELECT WHAT TO WORK ON]MS, ARTIFACT,ETC" f " 4. REPLACE OLD ROOM,ARTIFACT OR":" MONSTER (WITHOUT VIEWING OLD)"l " 5. DUPLICATE A ROOM, ARTIFACT":" OR MONSTER" " 6. SPECIAL FUNCTIONS"  " 7. QUIT" ":"ENTER KEY FOR YOUR CHO;::DUNGN$:("LOCK",1,LK4);:G " ";::("CONT.ISRT",1,9CI): "YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":" MONSTER" " 2. EDIT OLD ROOM,ARTIFACT, EFFECT":" MONSTER"  " 3. LIST NAMES OF ROO35000:DV6DT3:TY$(3)"ODD WEAPON" dDV6.9ĺ(7):"THIS ADVENTURE DISKETTE IS VERSION 7.X. USE 'DUNGEON EDIT 7.0' TO EDIT THIS ADVENTURE.":DK$"CLOSE": 60000 DK$"PR#3":(17) :T14:T$(T);"-";N%(T);" ";:::3:4);"EDITING "DK$;"CLOSE"! <ND(ND$):216,0 FDK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"OPEN EAMON.DESC,L256" PDK$;"READ EAMON.DESC,R0":N%(1),N%(2),N%(3),N%(4):DK$% Z(43626)):DR$((43624)) DK$(4)::5:" EDITING AN ADVENTURE FOR EAMON"::" INSERT DISKETTE WITH ADVENTURE"::" PRESS ANY KEY TO CONTINUE...";:16368,0:A$: (400 2DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:ND$:DV:> DUNGEON EDIT PROGRAM7 BY JOHN NELSON=q ADAPTED FROM DON BROWN'S DUNGEON EDIT THIS PROGRAM ADDS AND MODIFIES SIX AND TEN DIRECTION DUNGEONS. REV. 7/17/90  (4);"MAXFILES 7":SL$(                     !!! ! ! ! ! !!!!!!!!!DD A FORMAT":" 7. RETURN TO MAIN MENU":"INPUT THE NUMBER (1-7):";b&A$:(A$)1(A$)76830&A$:(A$)10100,10200,10300,10400,10500,10600,140& >> LOAD/SAVE PARAM.B':10);"LOAD/SAVE PARAMETERS":6:958:"SELECT LOAD/SAVE FUNCTION:"::A$:(A$)15100,15200,15300,150=% >> CHANGE DATA ASSIGN%:08);"CHANGE DATA ASSIGNMENTS":6:"SELECT DATA TYPE:":" 1. MONSTER DATA":" 2. ARTIFACT DATA":" 3. CHANGE FORMAT POINTER":" 4. CHANGE A FORMAT"D&" 5. ARTIFACT TYPES":" 6. A> CHANGE DEFAULTS$6:12);"CHANGE DEFAULTS":6:"SELECT DEFAULT TO CHANGE:"::" 1. ROOM VALUES"::" 2. MONSTER VALUES"$@:" 3. ARTIFACT VALUES"::" 4. RETURN TO MAIN MENU"::"INPUT YOUR CHOICE (1-4):";$JA$:(A$)1(A$)46730 %T#x"NBR ART. TO GEN:";NAj#A1NA:DK$"WRITE EAMON.DESC,R";N%(2)101:"YOU SEE ARTIFACT ";N%(2)1;"."#DK$"WRITE EAMON.ARTIFACTS,R";N%(2)1:"ARTIFACT ";N%(2)1:X18:0::N%(2)N%(2)1:#DK$:150# >> TOGGLE H/C#HCHC:150$, >1:34500.""MONSTER NUMBER TO START ON:";MI"AN%(2)1:LAAN%(4)MT"34500d"8 >> DELETE"BC$"DELETE":500:N%(A)N%(A)1"L6000" === INCREMENT"C$"INCRMNT":500:N%(A)N%(A)1:6000"LKLK:6000"d >> GEN. DUMMY ART."nCE (1-";SF;"):";)!S$:S$(13)ĺ:150D!(S$)1(S$)SF6045~!:(S$)6100,6200,6300,6400,6500,6600,6700,6800,6900! >> GEN. DEAD!6:958:"ALL DEAD BODIES (Y/N):";!A$:A$"Y"A$"N"6110 "A$:A$"Y"AN%(2)1:M1:LAAN%(4)31,3LK);")"5 :" 5. GENERATE DUMMY ARTIFACTS"~ :" 6. TOGGLE PRINTER (NOW ";("OFFON",HC31,3HC);")":SF76040 :" 7. CHANGE DEFAULTS"::" 8. CHANGE DATA ASSIGNMENTS"::" 9. LOAD/SAVE CUSTOMIZED PARAMETERS"!:"INPUT YOUR CHOI1430 p >> SPECIAL FUNCTIONSgu:SF9::" SELECT FUNCTION OR PRESS ":::DV6SF6z" 1. GENERATE DEAD BODIES":" 2. DELETE LAST R,A,E,M":" 3. ADD TO NBR OF R,A,E,M": " 4. TOGGLE LOCK MODE (NOW ";("OFFON",LK20000:RECNC:NONC:1130+P >> DUP. ART.gZNOFROM:RECNO100:22000:20000:RECNC100:NONC:1230z >> DUP. EFF.NOFROM:RECNO200:20000:RECNC200:18000150 >> DUP. MONSTER"NOFROM:24000:RECNO300:20000:RECNC300:NONC: >> DUPLICATE.C$"DUPLIC.":500:TYPEAeC$"DUP. FROM":700:FROMNO:C$"CREATE":700:NCNONON%(TYPE)ĺ"CREATING A ";T$(TYPE);" FROM ANOTHER.":N%(TYPE)N%(TYPE)1TYPE5100,5200,5300,5400 >> DUP. ROOMNOFROM:RECNO:21000:CE ITEM$C$"REPLACE":500:TYPEABTYPE4100,4200,4300,4400X >> REPLACE ROOMg700:1120h >> REPLACE ARTIF.r700:RECNO100:1220 >> REPLACE EFFECT700:RECNO200:13200 >> REPLACE MONSTER:700:RECNO300:1420LP1930HCİ3600$ A:DK$;"PR#0"[ :"PRESS ANY KEY TO RETURN TO MENU";:A$:::150o >> PAGE BREAKLP0:HCĺ(12);"LISTING ";A$;"S"::$:" (PRESS ANY KEY TO CONTINUE) ";:16368,0:B$::(37)1:958j >> REPLAPR#0">4 :"(HIT ANY KEY TO RETURN TO MENU) ";:A$:::150iH F$"EAMON.MONSTERS":A$"MONSTER":3500} >> LIST STUFF ::LP0:"LISTING ";::A$;"S":::34,2:A1N%(TYP):DK$;"READ ";F$;",R";A:NA$:DK$:A$;"#";A;": ";::NA$: LPLP1:$"EAMON.ARTIFACTS":A$"ARTIFACT":3500 ::LP0:"LISTING ";:A$"EFFECT"::A$;"S":::34,2:A1N%(TYPE):RECA200:20000:A$;" #";A HCāX1(DE$)40:(DE$,X,40):LPLP1: HCĺDE$:LPLP1 ::LPLP1:LP1235HCİ3600* A:DK$;"4000:20000:1430& >> LIST THINGS C$"LIST":500:TYPEA:N%(TYPE)0ĺ::"NONE OF THAT TYPE TO PRINT!":::"(HIT ANY KEX TO CONTINUE) ";:A$::150 HCĺDK$;"PR#1" TYPE3100,3200,3300,3400 F$"EAMON.ROOM