' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ 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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./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#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ 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̦µ_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õ`  \ 濭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-(, @àΠӠ@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u`'&6AD%(3,4)1AD%(3,4)ROOM14500c&6:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":&6MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0&6H2MD%(0,13)(11(1)5):H2(H210)1:H214080,14090,14100,14110 '7"YOU FEEL GREAT!"300"%."NOTHING HAPPENS."::300C%21950:S$"TROLLSFIRE"20000X%2S$"POWER"6000l%2S$"HEAL"7000%2S$"BLAST"8000%3S$"SPEED"10000%3:"OKAY, '";S$;"'"::300%6%61950:NBTL2020&6(S$,6)"POTION"(S$,6)"BOTTLE"145002MD%(0,2)c$.'SPD(25(1)1)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300$*:NBTLĺ"AS YOU SMILE, THE ENEMY ATTACKS YOU."::300$+"NOTHING HAPPENS."::300%.:NBTLĺ"AS YOU WAVE AT YOUR ENEMY, HE ATTACKS":" YOU."::S)2#jS2%(S)S2%(S)2:m#@1950:M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::300#^S1:7500:SUC300#h:"DIRECT HIT!"::S5:D1:DFM:3650::300#'S3:7500:SUC300 $$'SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2) OF YOUR HITS ARE HEALED."::MD%(0,13)0:3008"10020Q"XS2:7500:SUC14050Z"l300"LSUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95))"VSUCĺ:"NOTHING HAPPENED.":#`RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(RE IN ":" COLLAPSES AND YOU DIE.":DIE1:23010!RR31ĺ:"YOU ARE TELEPORTED SOMEWHERE IN THE":" DUNGEON"::R2(26(1)1):NBTL0:5100!RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300-"RR95ĺ:"ALLM:MD%(M,13)0:MD%(M,9)0AD%(MD%(M,9),4)0:MD%(M,9)MD%(0,9)MD%(0,9)0l M:RAISENBTL0:R2ROOM:5100 A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0 A:RAISEĺ:3000!RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU A00(1)):MD%(M,14)NBTL1ZAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)v(M:NBTL(TD%(0)0):100pS4:7500:SUC300I RAISE0:M1NM:M213M:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOT WAY!":V%(ROOM)0:100R3ROOM:ROOMR2:TD%(0)0:TD%(1)MD%(0,1):FD%(0)0:FD%(1)MD%(0,13):M1NM:MD%(M,5)R3ĭMD%(M,14)200(1)MD%(M,4)MD%(M,5)ROOM:5150MD%(M,5)ROOM5160 FRMD%(M,3):FRFR100FRFR((CH10)2)MD%(M,14)(FR1UNNEL GOING OFF TO":"THE EAST!"::3006NBTL2020]D16:(V$,1)("NSEWUD",D,1)ĂDK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$:R25100ROOM1D1ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":"SUNSET.":23010:"YOU CAN'T GO THA2020&S$"LABEL"S$"BOTTLE"15000LK0:A1NA1:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1A:LK300DK$;"READ EAMON.DESC,R";ROOM:A$:DK$::A$::ROOM15300'"YOU FOUND A HIDDEN T%(0)NBTL0"DF0DIE1:23010~MN$(DF)"PIRATE"ĺDK$;"READ EAMON.DESC,R203":A$:DK$::A$::AD%(10,8)6:V%(ROOM)0:MN$(DF)"MIMIC"ĺ:"AS THE MIMIC DIES, IT ROLLS OVER AND":"YOU FIND A RING UNDERNEATH IT.":AD%(6,4)ROOM:NBTL VERY BADLY INJURED.":Vj:MN$(DF);" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":tMN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:A2NA1NMDF:AD%(A2,4)ROOM:MD%(DF,9)0AD%(MD%(DF,9),4)ROOM ~FD%(0)TD)MD%(DF,1)3700iLAMD%(DF,14):FD%(A)FD%(A)D2:(MD%(DF,13)5MD%(DF,1)1)3670,3675,3680,3685,3690V:MN$(DF);" TAKES DAMAGE BUT":" IS STILL IN GOOD SHAPE.":[:MN$(DF);" IS HURTING.":`:MN$(DF);" IS IN PAIN.":e:MN$(DF);" ISHIT!":R2(100(1)1):R251A0:3650@R286S1.5S:3650W$R296D2D:3650o)R2100D3D:3650y.3700BD20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::GMD%(DF,13)MD%(DF,13)D2:MD%(DF,13HURTS USER!" FR1003560K DMD%(OF,11):SMD%(OF,12):DFOF:A1:3650{ DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:3650INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC:DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":3650'"A CRITICAL BE?":W14:WN$(W)"NONE"ĺ" ";WN$(W):WJ6rV:"(HIT 1-";W1;") ";n6|VA$:W2(A$):W21W2W122140x6VA$:77VNANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2%(3)20WA%(5)0ĺ"HE SHAKES HIS HEAD AND SAYS, 'YOU ARE":"NOT A BEGINNER! YOU CANNOT ADVENTURE":"HERE! GO BACK TO THE MAIN HALL.'":230105^VWN$(2)"NONE"W21:22160-6hV"HE TELLS YOU, 'YOU MAY ONLY TAKE ONE":"WEAPON INTO THE CAVE. WHICH SHALL IT4@V:"AS YOU STAND THERE, YOU SEE THE LOCAL":"KNIGHT MARSHAL COME OUT TO INSPECT YOU.":::WN$(1)"NONE"ĺ"HE SHAKES HIS HEAD AND SAYS, 'YOU MUST":"HAVE AT LEAST ONE WEAPON TO ADVENTURE":"HERE! GO BACK TO THE MAIN HALL.'":230105TVAEWA%(1)5WAAMES,L32":DK$;"OPEN EAMON.ROOMS,L64"46V:"YOU HAVE NO TROUBLE FINDING A HORSE":"THAT YOU, WELL, BORROW TO TAKE YOU":"ON YOUR FIRST ADVENTURE. YOU FOLLOW":"SEVERAL SIGNS TO TAKE YOU TO THE":"BEGINNERS CAVE."::DK$;"READ EAMON.DESC,R1":A$:DK$:A$CLOSE":DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A):%3VA15:WA%(A)::AE,SEX$,GOLD,BANK,AC:A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE":DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NREAD EAMON.ARTIFACTS":NA:AN$(NA1),AD%(NA1,8):A1NA:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A2g2VA:DK$;"OPEN EAMON.MONSTERS":DK$;"READ EAMON.MONSTERS":NM:MN$(NM),MD%(NM,15):A1NM:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"2,4)21050c0&RDK$;"READ EAMON.DESC,R201":A$:DK$::A$::AD%(12,4)0:MD%(7,5)ROOM:R2ROOM:51000:RS$"DOOR"ĺ:"THE DOOR WILL OPEN WHEN YOU MOVE THROUGH":"IT."::1000DR:"MIND TELLING ME HOW?"::1000Uz1UDK$;"OPEN EAMON.ARTIFACTS":DK$;"8)6:MD%(0,9)10MD%(0,12)6&/HN300/PDK$;"READ EAMON.DESC,R204":A$:DK$::A$::MD%(0,9)10ĺDK$;"READ EAMON.DESC,R205":A$:DK$:A$::S5:D1:DF0:A0:3650:300/PTR1:MD%(0,12)10:AD%(10,8)10:300/RNBTL2020 0RS$"CHEST"ROOMAD%(1300&.VJS$"CAVE"ROOM1V$"S":5000}.`J:"I'M NOT SURE WHAT YOU MEAN BY THAT.":"TRY GIVING A DIRECTION TO MOVE."::100. N.*NAD%(10,4)1ĺ:"NOTHING HAPPENS."::300.4NTR20500/>NDK$;"READ EAMON.DESC,R206":A$:DK$::A$::TR0:AD%(10,(1)1):R2117510-pDf-PF:"YOU ARE CARRYING THE FOLLOWING--":A1NA:AD%(A,4)1ĺ" ";AN$(A)q-ZF:300-8JNBTL2020-=J1950:S$"WATER"S$"SEA"19030.LJ:"SORRY, BUT I'M AFRAID TO GO INTO THE":" WATER WITHOUT MY LIFE PRESERVER!":::MD%(0,12)10:20000,hBL,rBNBTLĺ:"WHAT ARE YOU FLEEING FROM?"::100,wBMD%(7,5)ROOMĺ:"YOU ARE HELD FAST BY THE MIMIC AND":" CANNOT ";V$::300,|BM0:17500:NBTL0:5100,\DDK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$-fDR2DR%(6,4)1Ă::"YOU AREN'T CARRYING IT!"::100^+>AD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100+>MD%(0,10)(EAAE)(EAAE)AD%(A,5)WA%(AD%(A,6))2MD%(0,2):MD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8):S$"TROLLSFIRE"ĺ:"READIED."::300,>TR0G YOU. YOU SUDDENLY":"REALIZE THAT YOU ARE TURNING INTO A":"SMALL FISH."::ROOM26ĺ"YOU FALL INTO THE SEA AND ARE PROMPTLY":"EATEN BY A BIG FISH.":*:ROOM26ĺ"YOU FLOP THREE TIMES THEN DIE.":*:DIE1:23010-+>1950:A1NA:AN$(A)S$AD%(A)1ĺ"THE BOTTLE SAYS, 'HEALING POTION'"::300K):S$"TROLLSFIRE"20000):S$"BOOK"ĺ:"THERE ARE NO MARKINGS TO READ!"::300):AD%(9,4)1AD%(9,4)ROOMĺ"WHAT BOOK?"::300*:"AS YOU READ THE BOOK, YOU FEEL A WEIRD":"SENSATION OVERTAKIN(S$,3)"SEA"ĺ:"A JOB SIMILAR TO GETTING BLOOD FROM A":" TURNIP."::300(8:"THE WATER TASTED SALTY, BUT IT DOESN'T":"SEEM TO BE POISONOUS."::300(:1950:NBTL20200):S$"LABEL"S$"BOTTLE"ĭAD%(3,4)ROOMAD%(13,4)ROOMAD%(3,4)1AD%(13,4::14120*' 7"YOU FEEL BETTER."::14120v'7"THOUGH YOU FEEL BETTER, YOU ARE STILL":" VERY, VERY SICK!"::14120'7"THOUGH YOU FEEL BETTER, YOU ARE STILL":" AT DEATH'S DOOR, KNOCKING LOUDLY.":'(7AD%(3,4)0:AD%(13,4)1:300L(8S$"WATER"X15:WA%(X):~ 15:"M":2000:1300:4:"AXE":1:10:1:6:"BOW":2:10:1:5:"MACE":3:10:1:4:"SWORD":5:10:1:8 D$"CLOSE":D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":AD$:D$"CLOSE" D$"RUN ";AD$ BL,HE,SP,PO@ FWA%(1)15:WA%(2)0:WA%(3)30:WA%(4)10:WA%(5)20 d:5:"INSERT ADVENTURE TO TEST AND PRESS ANY"::" KEY TO CONTINUE" nA$::D$"OPEN FRESH MEAT":D$"WRITE FRESH MEAT" x1:"TESTOR OF BENCH":HD:AG:CH:BL:HE:SP:PO: TEST BENCH PROGRAM0 FOR EAMON7 N BY JOHN NELSONTb D$(4):"DO YOU WANT TO USE DEFAULTS?";A$::A$"N"HD18:AG18:CH18:HE40:SP40:70("HARDINESS:";HD:"AGILITY:";AG:"CHARISMA:";CH 2"SPELLS:";)N%(2)ĺ" [";AN$(M%(9));"]";':M22" ":Kp /// TOGGLE PRINTERVzSWSW_100oX /// QUITbD$"CLOSE":D$"PR#0":@SWĺA$:JAZ1(A$)40:(A$,AZ,40)::* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"" ":M2112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);gM23M24M27M210ĺ" %";M25M%(5)0M%(5)NRĺ" [";R$(M%(5));"]";M29M%(9)1ĺ" [ NO WEAPONS ]"M29M%(9)0ĺ" [ NATURAL WEAPONS ]";M29M%(9)0M%(9A14:SA%(A)::A15:WA%(A)::AE:SEX$:GOLD:BANK:AC@[A14:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A)::DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"@0\DK$;"RUN MAIN HALL"H MEAT":::5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT ANY KEY) ";:16368,0:A$::DIEĺDK$;"OPEN THE ADVENTURER":DK$;"DELETE THE ADVENTURER":23600:@[DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(0,1):MD%(0,2):CH:10>ZTPTPAD%(A,1)>ZA:TP;" GOLD PIECES."::MD%(9,5)1ĺ"ADDTIONALLY, YOU RECEIVE ";10CH;" GOLD":"PIECES AS A REWARD FOR THE SAFE RETURN":"OF CYNTHIA.":TPTP10CH>ZGOLDGOLDTP:::"(HIT ANY KEY TO CONTINUE) ";:A$:?[DK$;"DELETE FRES:WD%(W)AD%(WP%(W),7):WS%(W)AD%(WP%(W),8)=nZW::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";:TP0:A1NA1:AD%(A,4)123200>ZAD%(A,2)0AD%(A,1)AD%(A,1)CHW2123090*<+DK$;"READ EAMON.DESC,R";E200:A$:8000rH+::xR+DL40 #%'"PRINTER OUTPUT?";RE$='RE$"N"RE$"NO"ıU$'"PRINTER SLOT:";PSk.'PS7PS1ī100008'PS(PS)ī10000B'(4);"PR#";PSL'* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"TY$"A"EB1:11050 +TY$"M"ĺ"BY$"R":B1:9110+P#RE$"N"RE$"NO"ī90605Z#9010}d#"BEGIN AT ROOM,ARTIFACT,EFFECT OR MONSTER":"INPUT (R,A,E,M):";TY$n#R14:TY$("RAEM",R,1)Ă:9060x#"NUMBER:";B#BN%(R)ĺ"THERE AREN'T THAT MANY!":9080#PS0PL60#PS0P9M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";6:M2B" ":MSDK$;"CLOSE"cDK$;"PR#0"isBPı}::@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::(#///PRINTER ROUTINE2#"START AT BEGIN?";RE$F#RE$"Y"RE$"YES"TY112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);dJM23M24M27M210ĺ" %";:400TM25M%(5)0M%(5)N%(1)ĺ" [";R$(M%(5));"]";:400^M29M%(9)1ĺ" [ NO WEAPONS ]":410hM29M%(9)0ĺ" [ NATURAL WEAPONS ]";:400,rM2":A1N%(3)1İ110006(12);"LISTING MONSTERS":" ":M1N%(4):500:DK$;"READ EAMON.MONSTERS":MN$:M2112:M%(M2)::DK$;"READ EAMON.DESC,R";M300:A$;TY$"M"BMBP1:>BP0>@"MONSTER # ";M;" [";MN$;"]":" ":"DESC:":8000:" ":M2;:250:A24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";Q:A2:A%(2)2300A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2," ":" # ";A;" [";AN$(A);"]":" ":DK$;"READ EAMON.DESC,R";100A:A$:"DESC: ":8000:" "A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]""[";R$((DR%(D)));"]";" :D,R (12);"LISTING ARTIFACTS"::A1N%(2):500:DK$;"READ EAMON.ARTIFACTS":AN$(A):A214:A%(A2)::A%(2)1āA258:A%(A2): TY$"R"TY$"A"BP1::"BYPASSED.":305 TY$"A"ABĂ BP0R"ARTIFACT 8000P :"DIRECTIONS MOVED IN--":DK$;"READ EAMON.ROOMS,R";R:D16:DR%(D): D16:" ";("NORTHSOUTHEAST WEST UP DOWN ",(D1)51,5);": ";(DR%(D)0)((DR%(D))10));DR%(D);5) DR%(D)99ĺ"[EXIT]";:180 DR%(D)0(DR%(D))N%(1)T,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES0 x9000 :(12);"LIST OF ROOMS":R1N%(1):DK$;"READ EAMON.ROOM NAMES,R";R:R$(R)::TY$"R"ĺ"BYPASSED.":190 RBN%(1):: "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"READ EAMON.DESC,R";R:A$:),N%(2),N%(3),N%(4):DK$, <T14:T$(T):I FROOM,ARTIF,EFFECT,MONSTm PM$(12),M%(12):M112:M$(M): ZHD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES dR$(N%(1)),AN$(N%(2)):A18:A$(A):& nVALUE,TYPE,WEIGH" (DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L32":DK$;"OPEN EAMON.MONSTERS":DK$;"OPEN EAMON.ARTIFACTS":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.MONSTERS":N%(4):DK$"READ EAMON.ARTIFACTS":N%(2) 7DK$"READ EAMON.DESC,R0":N%(1y  (4);"MAXFILES 10"DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:10000 :DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:DK$;"CLOSE     PASSED.": +EBB#*+EEBN%(3);4+"EFFECT #";E;":":h>+DK$;"READ EAMON.DESC,R";E200:A$:8000rH+::xR+DL40 #%'"PRINTER OUTPUT?";RE$='RE$"N"RE$"NO"ıU$'"PRINTER SLOT:";PSk.'PS7PS1ī100008'PS(PS)ī10000B'(4);"PR#";PSL'* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"TY$"A"EB1:11050 +TY$"M"ĺ"BY$"R":B1:9110+P#RE$"N"RE$"NO"ī90605Z#9010}d#"BEGIN AT ROOM,ARTIFACT,EFFECT OR MONSTER":"INPUT (R,A,E,M):";TY$n#R14:TY$("RAEM",R,1)Ă:9060x#"NUMBER:";B#BN%(R)ĺ"THERE AREN'T THAT MANY!":9080#PS0PL60#PS0P9M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";6:M2B" ":MSDK$;"CLOSE"cDK$;"PR#0"isBPı}::@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::(#///PRINTER ROUTINE2#"START AT BEGIN?";RE$F#RE$"Y"RE$"YES"TY112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);dJM23M24M27M210ĺ" %";:400TM25M%(5)0M%(5)N%(1)ĺ" [";R$(M%(5));"]";:400^M29M%(9)1ĺ" [ NO WEAPONS ]":410hM29M%(9)0ĺ" [ NATURAL WEAPONS ]";:400,rM2":A1N%(3)1İ110006(12);"LISTING MONSTERS":" ":M1N%(4):500:DK$;"READ EAMON.MONSTERS":MN$:M2112:M%(M2)::DK$;"READ EAMON.DESC,R";M300:A$;TY$"M"BMBP1:>BP0>@"MONSTER # ";M;" [";MN$;"]":" ":"DESC:":8000:" ":M2;:250:A24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";Q:A2:A%(2)2300A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2," ":" # ";A;" [";AN$(A);"]":" ":DK$;"READ EAMON.DESC,R";100A:A$:"DESC: ":8000:" "A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]""[";R$((DR%(D)));"]";" :D,R (12);"LISTING ARTIFACTS"::A1N%(2):500:DK$;"READ EAMON.ARTIFACTS":AN$(A):A214:A%(A2)::A%(2)1āA258:A%(A2): TY$"R"TY$"A"BP1::"BYPASSED.":305 TY$"A"ABĂ BP0R"ARTIFACT 8000P :"DIRECTIONS MOVED IN--":DK$;"READ EAMON.ROOMS,R";R:D16:DR%(D): D16:" ";("NORTHSOUTHEAST WEST UP DOWN ",(D1)51,5);": ";(DR%(D)0)((DR%(D))10));DR%(D);5) DR%(D)99ĺ"[EXIT]";:180 DR%(D)0(DR%(D))N%(1)T,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES0 x9000 :(12);"LIST OF ROOMS":R1N%(1):DK$;"READ EAMON.ROOM NAMES,R";R:R$(R)::TY$"R"ĺ"BYPASSED.":190 RBN%(1):: "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"READ EAMON.DESC,R";R:A$:),N%(2),N%(3),N%(4):DK$, <T14:T$(T):I FROOM,ARTIF,EFFECT,MONSTm PM$(12),M%(12):M112:M$(M): ZHD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES dR$(N%(1)),AN$(N%(2)):A18:A$(A):& nVALUE,TYPE,WEIGH" (DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS":DK$;"OPEN EAMON.ARTIFACTS":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.MONSTERS":N%(4):DK$"READ EAMON.ARTIFACTS":N%(2) 7DK$"READ EAMON.DESC,R0":N%(1y  (4);"MAXFILES 10"DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:10000 :DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:DK$;"CLOSE     $ 30' === EDIT OLD RECORD ===1 1000O :"KEEP IT (Y/N)? ";:Y$_ Y$"N"30w "INPUT NEW RECORD" :"";A$ A$""30 D$;"WRITE SNAPPY, R";RN  A$:D$  30 C ? F30*  === EXAMINE RECORD ===0 V "RECORD NUMBER (1-";N;")? ";:RNr D$;"READ SNAPPY, R";RNz A$ D$ A$:   ==== ADD NEW RECORD ==== :"";A$ A$""30 NN1 D$;"WRITE SNAPPY,R";N A$ D  D$(4)(D$;"OPEN SNAPPY,L128"AD$;"READ SNAPPY,R0"HNPD$s:" SNAPPY MAINTENENCE":"EXAMINE,ADD,CHANGE,OR QUIT (E/A/C/Q)?"#A$(A$"E"İ1000:302A$"A"2000<A$"C"3000=A$"Q"30>D$"CLOSE"  NEVER CAN SPELL'EM NOR PRONOUNCE 'EM":D$"CLOSE" `NT PHRASE) (PP$,40):(PP$,41):::Q D$"WRITE SNAPPY,R0":NS:D$"CLOSE"W  :"PRESS ANY KEY TO CONTINUE":A$:30  /// INITIATE FILE2D$(4):D$"OPEN SNAPPY,L64":D$"WRITE SNAPPY,R0":1:D$"WRITE SNAPPY,R1":"STRANGE SAXON NAMES. 030- D$"WRITE SNAPPY,R";P:PHR$:D$:4500D /// LIST PHRASES\ "HARDCOPY (Y/N):";{ A$:A$"Y"A$"N"ī3020 :A$"Y"ĺD$"PR#1" P1NS:D$"READ SNAPPY,R";P:PHR$:PP$"MUTTERING ABOUT "PHR$:3500: D$"PR#0":4500 /// PRI #:";P$:(P$)NS(P$)1ĺ"NOT A VALID #":2010\ (P$)((P$))ĺ"NOT A VALID #":2010 P(P$):D$"READ SNAPPY,R";P:PHR$:D$ :"INPUT PHRASE:":"MUTTERING ABOUT ";PHR$;:X1(PHR$):(8);::(8);:" ";PHR$ (PHR$)63ĺ"TOO LONG!!":2$"4"A$"1"ī503 <A$:(A$)1000,2000,3000,4000L  /// ADD NEW PHRASE NSNS1:"INPUT PHRASE TO ADD:":"MUTTERING ABOUT ";PHR$:(PHR$)63ĺ"TOO LONG!!":1010 D$"WRITE SNAPPY,R";NS:PHR$:D$:4500  /// REPLACE PHRASE0 "WHICH PHRASE AND PRESS ANY KEY"::A$:] D$(4):D$"OPEN SNAPPY,L64":D$"READ SNAPPY,R0":NS:D$ :5:"SELECT ACTION:"::" 1. ADD NEW PHRASE"::" 2. REPLACE OLD PHRASE"::" 3. LIST PHRASES"::" 4. QUIT" ("INPUT YOUR CHOICE (1-4):"; 2A$:A4 EAMON SNAPPY FILE4 MAINTENANCE:T BY JOHN NELSONZ` MAINTAINS THE SNAPPY PHRASE FILE USED BY THE MAN AT THE DESK WHILE LOOKING THROUGH HIS BOOK. ::8:" INSERT MASTER DISKETTE":"  :D$"CLOSE"D  0,22,20,0,0,0,0,0,21,0,23,0,0,24,0,22,0,0,0,25,23,0,0,0,0,26,24,0,0,0,0,0,25,0,0$0,0,0,2,7,5,3,0,0H 0,0,0,4,0,0,0,0,7,0,0,0,4,10,8,6,0,0,0,0,0,7,0,0 0,0,10,0,0,0,7,13,11,9,0,0,0,0,0,10,0,0,0,0,13,0,0,0 10,15,14,12,0,0,0,0,0,13,0,0,13,20,16,0,0,0,0,0,17,15,0,0,0,0,18,16,0,0,0,0,0,17,0,0,0,0,20,0,0,0P 15,0,21,19,0,0,0, SOUTH EAST WEST UP$ DOWN.)1 dDK$(4)u nDK$;"OPEN EAMON.ROOMS,L64":NR:DK$;"WRITE EAMON.ROOMS,R0":NR xR1NR:D16:DR(D)::DK$;"WRITE EAMON.ROOMS,R";R:D16:DR(D):D,R DK$;"CLOSE" 26 0,2,0,0,0,0,1,4,0,0,0,0,0,0,4,Q SETTING UP FILE OF2 "EAMON.ROOMS" FORK THE BEGINNERS CAVEQg BY DONALD BROWNm (FILE IS RANDOM, LENGTH 64. RECORD 0 HOLDS NUMBER OF ROOMS, ALL OTHERS HOLD ROOM IN EACH DIRECTION, NORTH  HE LIBRARY,A T-INTERSECTION--N AND E/W AN E/W TUNNEL,THE TOP OF A STAIRWAY,THE BOTTOM OF A STAIRWAY,AN E/W TUNNEL, AN E/W TUNNEL SMELLING OF SALT,THE PIRATE'S COVE:D OF A LONG PASSAGE AN EAST CELL,A WEST CELL,THE MIDDLE OF A LONG PASSAGE,AN EAST CELL,A WEST CELL,THE SOUTH END OF A LONG PASSAGE,AN EAST CELL,A BROKEN NORTH/SOUTH PASSAGE& AN E/W TUNNEL WITH FAINT MUSIC,AN E/W TUNNEL WITH LOUD MUSIC,THE TEMPLE,T$;"OPEN EAMON.ROOM NAMES,L32":NR` xR1NR:ROOM$:DK$;"WRITE EAMON.ROOM NAMES,R";R:ROOM$:Rq DK$;"CLOSE"z  26 THE CAVE ENTRANCE,A DARK NORTH/SOUTH TUNNEL,THE WEST SIDE CHAMBER,A LARGE CHAMBER,THE EAST SIDE CHAMBER,A WEST CELL,THE NORTH EN SETTING UP THE FILE OF; "EAMON.ROOM NAMES" FORT THE BEGINNERS CAVEZr BY DONALD BROWNx(FILE IS RANDOM, LENGTH OF 32. EACH RECORD HOLDS THE NAME OF THE CORRESPONDING ROOM.) dDK$(4)! nDK  H,0,0,100,0%DEAD MIMIC,0,0,300,0? DEAD PRIEST,0,0,75,0Z DEAD CYNTHIA,0,0,50,0u DEAD PIRATE,0,0,300,08 DEAD WOLF,5,0,100,0B DEAD ORC,0,0,100,0L DEAD CAVE MAN,0,0,200,0A,100,0L DEAD CAVE MAN,0,0,200,0E MAN,0,0,200,HEST,0,1,300,14, EMPTY BOTTLE,1,1,1,0 J SWORD,15,2,10,0,0,5,1,8f CLUB,1,2,15,0,0,3,1,6DEAD BLACK RAT,0,0,5,0DEAD BROWN RAT,0,0,5,0DEAD TAN RAT,0,0,5,0DEAD HERMIT,0,0,75,0DEAD GORILLA,0,0,200,0 DEAD HEINRICAXE,25,2,4,0,0,1,1,6*RBOTTLE,50,1,2,5H\SWORD,25,2,4,0,-10,5,1,8afGOLD COINS,50,0,2,8upRING,150,1,5,0zMACE,40,2,4,0,10,3,1,4SPICES,100,1,3,18BOOK,250,1,1,19TROLLSFIRE,100,3,3,0,25,5,1,10JEWELS,1000,1,5,26C+  ORC,13,13,5,40,19,100,0,2,14,30,1,8 Y CAVE MAN,18,8,2,25,11,200,0,0,15,25,2,3 //DATA STORED ON ARTIFACTS IS NAME,VALUE,TYPE,WEIGHT,ROOM. IF TYPE IS WEAPON (2 OR 3) ALSO COMPLEXITY,W.TYPE,DICE,AND SIDES 4 28 >DIAMONDS,200,1,3,3H, HEINRICH,15,5,65,100,6,100,0,1,4,12,1,8T MIMIC,5,5,0,100,0,300,0,0,0,40,1,3~ PRIEST,10,6,0,100,18,75,0,1,7,25,1,4 CYNTHIA,3,20,95,5,18,50,0,0,-1,0,0,0 PIRATE,5,20,0,10,26,300,0,0,10,60,1,10 WOLF,8,22,1,80,9,100, 15,0,0,25,2,3 N #, ODDS TO HIT, W.DICE, AND W.SIDES. L 13X VBLACK RAT,2,10,0,10,3,5,0,0,0,30,1,1 `BROWN RAT,2,10,0,10,3,5,0,0,0,30,1,1 jTAN RAT,2,10,0,10,3,5,0,0,0,30,1,1 tHERMIT,13,22,50,75,5,75,0,0,2,55,1,6 ~GORILLA,12,15,0,60,8,200,0,0,0,45,1,4IFACTS":NA:A1NAL AN$:A214:AD%(A2)::AD%(2)1āA258:AD%(A2): AN$:A214:AD%(A2)::AD%(2)1āA258:AD%(A2): A:DK$;"CLOSE" % //DATA STORED ON MONSTERS IS NAME,HD,AG,FRIEND,COURAGE,ROOM,WEIGHT,DEF. ODDS, ARMOUR, WEAPO LINES AS DESCRIBED BELOW.) dDK$(4)> nMD%(99),AD%(99)y xDK$;"OPEN EAMON.MONSTERS":DK$;"OPEN EAMON.ARTIFACTS" NM:DK$;"WRITE EAMON.MONSTERS":NM:M1NM MN$:A112:MD%(A)::MN$:A112:MD%(A): M NA:DK$;"WRITE EAMON.ART CREATES FILES OF3 'EAMON.MONSTERS' ANDO 'EAMON.ARTIFACTS' FORh THE BEGINNERS CAVEn BY DONALD BROWN BOTH FILES SEQUENTIAL. FIRST LINE IN EACH IS NUMBER OF MONSTERS/ART- IFACTS, THEN ALL OTHER     xM A1NANM. AD%(A,4)RĺAN$(A): A::R@ "A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2):A2N ZA:D$ _"PRINTER OUTPUT?(Y/N):";YN$:YN$"Y"ĺD$"PR#1":(12);(40("ROOM ANALYSIS"))2);"ROOM ANALYSIS":: dR1NR:"ROOM ";R;" (";RN$(R);")" nM1NM:MD%(M,5)RĺMN$(M),L64":R1NR:D$"READ EAMON.ROOM NAMES,R";R:RN$(R)::D$"CLOSE" FD$"OPEN EAMON.MONSTERS,L128":M1NM:D$"READ EAMON.MONSTERS,R";M:MN$(M):M2112:MD%(M,M2):M2,M:D$"CLOSE"C PD$"OPEN EAMON.ARTIFACTS,L128":A1NANM:D$"READ EAMON.ARTIFACTS,R";B D$(4):\:"INSERT DUNGEON DISKETTE AND PRESS":" ANY KEY TO CONTINUE":A$:D$"OPEN EAMON DESC,L256,S6,D1":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE"MD%(NM,12),AD%(NA,8),MN$(NM),AN$(NA),RN$(NR)A 2D$"OPEN EAMON.ROOM NAMES   ,R";A:DE$ AA1:RP D$"WRITE EAMON.DESC,R0":NR:R1:NE:NM:D$"CLOSE"" iD$"OPEN EAMON.ARTIFACTS,L128"4 nRNANM1NM{ D$"READ EAMON.ARTIFACTS,R";R:AN$:A1,A2,A3,A4:A22ĄA5,A6,A7,A8 D$"WRITE EAMON.ARTIFACTS,R";A:AN$:A1:A2:A3:A4:A22ĺA5:A6:A7:A8 D$"READ EAMON.DESC,R";R:DE$:D$"WRITE EAMON.DESCNTER 'S' TO STOP NOW:";X$:X$"S"ĀA F"NUMBER OF ARTIFACTS:";Ae PA(A)ANAA10ĺ"WHOOPS!": ZA;" ARTIFACTS TO REMAIN ON FILE - PLUS":"BODIES FOR ";NM;" MONSTERS = ";ANM:"IS THIS CORRECT? (Y/N):"; _A$:A$"Y"A$"N"95 dA$"N"70INPUT 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 PROGRAM."# <:"ER EAMON 1 REMOVE DUMMY ARTIFACTSQ THIS PROGRAM WILL REMOVEq UNNEEDED ARTIFACTS FROM  EAMON FILES. D$(4):D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NMD$Y (:"YOU WILL BE REQUESTED TO     R1NR:D$"READ EAMON.ROOM NAMES,R";R:N$:D$"READ EAMON.ROOMS,R";R:D16:DR%(D): 2"ROOM ";R;":";N$:D16:D$(D);":";DR%(D):: <: FD$"PR#0":D$"CLOSE": d NORTH,SOUTH,EAST,WEST,UP,DOWN QUICKY PRINT ROOM2 BY JOHN NELSON8@  D$(4):D$"OPEN EAMON.ROOM NAMES,L64":D$"OPEN EAMON.ROOMS,L64":D$"OPEN EAMON.DESC,L256"D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE EAMON.DESC"D$"PR#1":X16:D$(X):V ( z#???  ԠȠ נӱ נӲà Р͠Ӡ РӠ ٠Ġ ٠Ԡ٠ԠàΠԠàΠԠ ԠŠƠĠ!ԠӠҠ"ԠŠĠ٠͠ԠŠ٠Ӡ͠Ӡ РүԠ  ԯŠӠ ŠԠƠΠؠԠ͠ؠҠŠؠΠԠ̠ҠΠ͠àΠӠРҠˠŠӠŠ:ΠŠӠΠˠήǠ ήǠNAMES,R";R:ROOM$:DK$;"READ EAMON.ROOMS,R";R:D16:DR%(D): R10);R;" ";(ROOM$,16);21);:D16:DR%(D)10);DR%(D);" ";:: R2:DK$::"(HIT 'C' TO CONTINUE) "; A$:A$"C"170 :R1:RdDK$(4):DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L32" nDK$;"READ EAMON.ROOMS,R0":NR:::"NUM ROOM";21);" N S E W U D" x34,2 R10(NR15)::R315:NRR11515R3NRR115> R21R3:RR115R2:DK$;"READ EAMON.ROOM  CHECKS DATA IN FILES4 'EAMON.ROOMS' ANDN 'EAMON.ROOM NAMES'.Tj BY DONALD BROWNp FOR EACH ROOM, PRINTS NUMBER, NAME, AND NUMBER OF ROOM ADJOINING IN EVERY DIRECTION (0=NO ADJOINING ROOM) G    K8(ST6UVk,ȱk-`)Y,-`b ::12:12:"ALIGNING MEMORY":63000xY140:"=";::X;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:F P33,21:3    CH WAY?";, A$:A$"Q"ĺA$:DK$;"CLOSE":S D16:A$("NSEWUD",D,1)Ă:150} A$:DR%(D)ĺ::"ILLEGAL!":::130 :R1DR%(D):120:OM NAMES,L32"9 nDK$;"READ EAMON.ROOMS,R0":NR:::R11 xDK$;"READ EAMON.ROOM NAMES,R";R1:ROOM$:DK$;"READ EAMON.ROOMS,R";R1:D16:DR%(D)::DK$ "IN ";ROOM$:" EXITS ";:D16:DR%(D)Ğ:("NSEWUD",D,1);::" "; :" (Q TO QUIT)":"WHI ALTERNATE CHECKER OF4 'EAMON.ROOMS' ANDT 'EAMON.ROOM NAMES'. WALKSo USER THROUGH DUNGEON SETUP, GIVING NAMES OF ROOMS ENTERED. BY DONALD BROWN dDK$(4):DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.RO  SAVE SETUP FOR ";M1;"K":"RENAME SETUP FOR ";M1;"K,SETUP FOR ";M2;"K":"LOCK SETUP FOR ";M2;"K"o "GOTO 200" DK$;"CLOSE":DK$;"EXEC EXEC": THIS LINE MUST BE 200 (4);"DELETE EXEC": DNAME THE BEGINNERS CAVE,BEGINNERS CAVE--";M2;"K":"LOCK BEGINNERS CAVE--";M2;"K" "UNLOCK BEGINNERS CAVE--";M1;"K":"RENAME BEGINNERS CAVE--";M1;"K,THE BEGINNERS CAVE":"LOCK THE BEGINNERS CAVE"_ "120 DATA ";M2;",";M1:"UNLOCK SETUP FOR ";M1;"K":" THE WONDERFUL WORLD OF2 EAMON8T CHANGE FILES SO WORKl WITH 32K APPLE.r BY DONALD BROWNdDK$(4)nM1,M2x 48,32DK$;"OPEN EXEC":DK$;"WRITE EXEC"P "UNLOCK THE BEGINNERS CAVE":"RE  FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED.":: FR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,9)1:: FR953550 " WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,9)1:(1).9ĺ:  " BROKEN WEAPON (DF,1):FD%(0)FD%(0)MD%(DF,13):FD%(1)FD%(1)MD%(DF,13):300\N R2ROOM:MD%(DF,14)0:5100v HIT0:MD%(OF,9)1ı MN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:RL5RLMD%(OF,10)HIT1 HIT3600 RL97ĺ"A MISS.":L "A AD%(MD%(0,9),6):WA%(W2)WA%(W2)23 EAAE300V (100(1)1)MD%(0,10)3130k& A2:EAAE1A10 AEAEA:MD%(0,10)MD%(0,10)A: (MD%(DF,14))DF0300=D MD%(DF,3)MD%(DF,3)2:NBTLMD%(DF,14)0:TD%(0)TD%(0)MD%(DF,1):TD%(1)TD%(1)MD%;" DROPPED." A:3002 1950:S$"RAT"3050V M13:MD%(M,5)ROOMS$MN$(M)] M M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::100 MD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100 OF0:DFM:3500:HIT3130" INCW2UNFRIENDLIES ABOUT!"::1005S$"ALL"2060A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100WTWTAD%(A,3)::"DROPPED.":AD%(A,4)ROOM::300 A1NA:AD%(A,4)12080 WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A)L16000*VA1NA:AD%(A,4)ROOM1140e`WTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":1140jAN$(A);" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)t::300S$""ĺ:C$(C);" WHAT";:S$:19501950"NBTLĺ:"YOU CAN'T DO THAT WITH &$S$"GOLD"S$"COINS"S$AN$(5)q.A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::1008WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100B:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300 00:M2200:M2:430M2:400ANBTL(FD%(0)TD%(0)):NBTLĂMGP1001950:S$"TORCH"ĺ:"ALL TORCHES ARE BOLTED TO THE WALL AND":"CANNOT BE REMOVED."::300S$"ALL"1110S$"RAT"1060A1416:AD%(A,4)ROOMS$AN$(A)14))FD%(MD%(M,14))MD%(M,13):4305^MD%(M,14)390_hOFM:TD%(1)MD%(0,1)DF0:3500:430rM21NM:MD%(M2,5)ROOMMD%(M2,14)(1).25DFM2:3500:M2200:M2:430|M2:DF0:3500:430OFMM21NM:MD%(M2,5)ROOMMD%(M2,14)DFM2:3500,21000 ,NBTL4407 @M1NM:MD%(M,5)ROOM430"JMRFD%(MD%(M,14))TD%(MD%(M,14))FD%(MD%(M,14))TD%(MD%(M,14))5(41(1)20):MD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::17500:MD%(M,5)R2:TD%(MD%(M,14))TD%(MD%(M,14))MD%(M,1):FD%(MD%(M,:C$(C);20(C$(C)));::::160> C$(C)S$S$V$:V$C$(C) C1000,1000,2000,3000,4000,4000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,5000,6000,7000,8000,10000,11000,12000,13000,14000,15000,16000,17000,17000,17000,18000,18000,19000,200(A$,1)" "A$(A$,2):165; A$""A$CZ$:(37):17:A$c CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):185! C1NC:C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC::A$:e M:A1NA1:AD%(A,4)ROOM(ANA)V%(ROOM)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$ AD%(A,4)ROOM(ANA)V%(ROOM)ĺ"YOU SEE ";AN$(A) A:AD%(NA,4)ROOMĺ"YOUR ";AN$(A);" IS HERE." V%(ROOM)1 :" YOUR COMMAND?";A$ " ";A$:F }V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$: M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERE." MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)1:M10ĺDK$;"READ EAMON.DESC,R202":A$:DK$8 BEGINNERS CAVEY:5:"YOUR HUMAN ADVENTURE IS JUST BEGINNING":DK$(4):22000_dn:SPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2) xV%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE STANDING IN":                    uD$(4):D$"OPEN EAMON.SPECLOG,L64":D$"WRITE EAMON.SPECLOG,R1":"MASTER DISKETTE":"MAIN HALL & BEGINNER'S CAVE":"DONALD BROWN":"PROD":D$"WRITE EAMON.SPECLOG,R0":1:D$"CLOSEC)=(A1NA:D$"READ ";FIL$;",R";A:AN$(A):RS$"S"ĄDS$(A)W(DN$(A):ST$(A)::D$])k ND$(4):*ND$"OPEN ";FI$;",L64":D$"WRITE ";FI$;",R0":14ND$"WRITE ";FI$;",R1":"MAIN HALL AND BEGINNER'S CAVE":"DONALD BROWN":"PROD":D$"CLOSE"0 ADVENTURES?":"(R OR S) - DEFAULT = R:";RS$U$'(RS$,1)"R"(RS$,1)"S"RS$"R".'L0:FI$"EAMON.ADVLOG":(RS$,1)"S"L64:FI$"EAMON.SPECLOG"(D$"OPEN ";FI$;",L";L64:D$" READ ";FI$;",R0":NA(RS$"S"ĆDS$(50)(AN$(50),DN$(50),ST$(50RS$"R"ĺ(15);22);"ADVENTURE #";A:X(14);(27);(71);(29(AN$(A)))2);AN$(A)s(27);(72);(20);" ""COPYRIGHT (C) 1981 BY ";DN$(A);" * DOS 3.3":(18);""X:' >>>> PUT FILE INTO TABLE,':::"SPECIAL DISKETTES OR REGULARE7110ENAE2BE7110'7500?  /// SINGLE LABELS|*"ADVENTURE #:";A$:A(A$):D$"PR#1":7800:D$"PR#0":20LD$"PR#1":ABE:7800::D$"PR#0":20x /// PRINT LABEL}X1NRS$"S"ĺ(15);18);"SPECIAL EAMON DISKETTE":'. SINGLE ADVENTURE"/lA$:A$"1"A$"3"7020iq"HOW MANY LABELS (DEFAULT = 1):";N$:N(N$):N0N1v:(A$)1B1:ENA:7500(A$)17100,7200 /// RANGE LABELS"INPUT RANGE AS BB-EE:";A$:B(A$):E((A$,((B))2)):B1BNAB"ARE YOU SURE YOU WANT TO DELETE ":AN$(A);"?":"INPUT (Y OR N):";A$:A$"N"20AN$(A)"(OPEN)":ST$(A)"NONE":DN$(A)"(NOBODY)":700:20X /// PRINT LABELSb:"SELECT LABELS FOR:":" 1. ALL ADVENTURES PRINTED":" 2. RANGE OF ADVENTURES":" 3>>> QUIT ROUTINE@ADDĺD$"WRITE ";FI$;",R0":NA:D$"CLOSE":QD$"CLOSE":lp /// DELETE ADVENTUREz"ADVENTURE # TO DELETE:";A$:A(A$):A1ANADV6010ST$(A)"PROD"ĺ"CANNOT DELETE A PRODUCTION ADVENTURE.":999:20OST$(A)"TEST"ĺE CHANGES FOR THIS RECORD? (Y/N)";@0 A$:A$"Y"A$"N"3120S: :A$"Y"3030`D 700:20v >>>> ADD RECORDADD1"ADVENTURE NAME:";AN$(NA1)"AUTHOR'S NAME:";DN$(NA1)"STATUS : ";ST$(NA1)ANA1:NANA1:700:20 >UTHOR NAME":" 3. STATUS":"INPUT YOUR CHOICE (1-3):";S A$:A$"1"A$"3"3050o :(A$)3070,3080,3090 "NEW ADVENTURE NAME:";AN$(A):3100  "NEW AUTHOR NAME:";DN$(A):3100  "NEW STATUS:";ST$(A):3100  >>>> CHECK FOR DONE"& "MOR$(A):2500: 999:PC0:20? PCPC1:PC20İ999:PC0::E _ >>>> CHANGE ROUTINEu "ADVENTURE #:";A A(A)ANAA13010 AN$(A);" ":"BY ";DN$(A):"STATUS:";ST$(A):7 "INPUT FIELD TO CHANGE:":" 1. ADVENTURE NAME":" 2. AD$"PR#1":A1NA:A$"A"ST$(A)"PROD"İ11004 8K BD$"PR#0":999:20` L >>> PRINT LINE VA". "AN$(A);57(AN$(A))(DN$(A))((A)));DN$(A);10(ST$(A)));ST$(A)   /// DISPLAY LIST PC0::A1NA:A;". ";AN$(A);29(AN$(A)));ST:AN$(A) RS$"S"ĺDS$(A)5 DN$(A):ST$(A):D$; U  >>>> WRITE RECORD 0s *D$"WRITE ";FI$;",R0":NAy 4 :"PRESS ANY KEY TO CONTINUE";:A$::  >>>> PRINT LIST "ALL OR PRODUCTION ONLY (A OR P):";A$:A$"A"A$"P"1010. " 3. CHANGE RECORD" F" 4. ADD RECORD":" 5. DELETE ADVENTURE":" 6. PRINT LABELS":" 7. QUIT":"INPUT YOUR CHOICE (1-7):"; PA$:A$"1"A$"7"80 Z:(A$)1000,2000,3000,4000,6000,7000,5000  >>>> WRITE RECORD D$"WRITE ";FI$;",R";A EAMON ADVENTURE LOG: MAINTENANCE@Z BY JOHN NELSON`fl D$(4)::10000:10);"EAMON ADVENTURE LOG":11);"BY JOHN C. NELSON":8:"SELECT ACTION:" " 1. PRINT LIST":" 2. DISPLAY LIST":     R - UNABLE TO READ DIRECTORY !!!":/ |:1000J 1:" 80N":0,63998:0X05),A$(105),T(105)* "X138:B$B$"=":H ,X10511:NAME$(X)B$:^ 6NAME$(0)(B$,19)j @D$(4) E12:12:"READING CATALOG ":12:29 Y63075 ^2054:D$"CATALOG" c216,0:D$"PR#0":D$"IN#0":# h(NA$(0),1)" "Ģ12:868:"!!! ERRO L40  MAXX' 85:34,225 23:958o "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010z A1Ĭ T(A)66T$"BRUN " T(A)84T$"EXEC " T(A)65T(A)73T$"RUN " 23:T$A$(A) 23:D$T$A$(A)  NAME$(1NA$(N),8,1))6520002 ((NA$(N),8,1))942000< XX1U A$(X)(NA$(N),8,30)o T(X)((NA$(N),2,1)) X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:20002,19:1:1::* U33,40:32,0:23:1::p Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$: dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))61N105:2000 ((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 РҠˬРҠˍˠРҠˍϠˠŠӠōŠŠӠŬӠŭˍˠӠŭˍˠӠŭˍŠӠŭˬŠӠōˠŠӠōˠРҠˍŠРҠˍŠҠƠ΍Ġ٠ȍččŠčΠ΍čӯʮ΍čĠٍŠ΍ččŠԍΠ΍č˧Ӡ΍Π΍č΍čҠōΠ΍ččԠΠŠŠ΍Π΍čŠƠŠŠ΍Π΍čԍŠˠȍΠ΍čŠԠҠ΍Π΍čŠҧӠӍӠ΍芊ƠԍӠ΍čӠƠ΍Π΍čΧӠō̠΍čȠōΠōčȠЍΠ΍ččԠҠō͠΍čӠƠŠčǮگЮ΍čύ͠ӍčӠōΠ΍čҧӠӍ͠΍čԠΠҍĠ΍čŠ̠͍Ġˍ芠ƠҍĠ΍čҠō͠΍čŠƠ͍Ġ΍čŠȠҍĠ΍čŞ̌Ӡ͠΍čΠ̠ĠҧӠōĠ΍čҠƠŠҍĠ΍čŠƠŠč͠΍č     ΠӠɍΠ΍̍ŠōΠ΍čΠӠɍΠ΍̍čŠƠԠٍΠ΍čȠҠٍΠ΍čҠōΠ̠ҧӠōĠ΍č   DESC,L256":DK$;"WRITE EAMON.DESC,R0":F14:"0":DDK$;"CLOSE"AMON.DESC,R";R:(34);I$;(34):DK$::150<D$"ADD":200k:"ENTER ";N$(TYPE);" #";N(TYPE)1::230zI$""150N(TYPE)N(TYPE)1:R(TYPE1)100N(TYPE):DK$;"WRITE EAMON.DESC,R";R:(34);I$;(34):DK$1303DK$(4):DK$;"OPEN EAMON.)31(I$)250ĺA$;:I$I$A$:240: (A$)8ĺ"";:240p (I$)ĺA$;" ";A$;:(I$)1I$(I$,(I$)1):240y "230 D$"EDIT":200 :"ENTER NUMBER TO EDIT (1-";N(TYPE); ") ";A$:N(A$):N1NN(TYPE)N(N)(N)A$ĺ:150- R(TYPE;"WRITE EAMON.DESC,R0":N14:N(N)::DK$;"CLOSE":: A$::"WANT TO ";D$;" ROOM, ARTIFACT, EFFECT":" OR MONSTER (HIT R,A,E OR M) "; A$:TYPE14:A$("RAEM",TYPE,1)Ă:210 A$: I$"" A$:A$""240 (A$)13ĺ:! (A$ EAMON.DESC,R0":N14:N(N)::DK$\ xN$(1)"ROOM":N$(2)"ART.":N$(3)"EFF.":N$(4)"MONS." ::N14:N$(N);" ";N(N);" ";:::34,2 "EDIT, ADD, OR QUIT (HIT E,A, OR Q)"; A$:A$"E"1000 A$"A"2000 A$"Q"1606 A$:DK$ARTIFACTS, EFFECTS, AND5 MONSTERS. RECORDS 0-100S HOLD CORRESPONDING ROOMo  DESCRIPTIONS; 101-200  ARTIFACT DESCRIPTIONS;  201-300 EFFECT PHRASES;  301-400 MONSTERS.  dDK$(4)# nDK$;"OPEN EAMON.DESC,L256":DK$;"READE HANDLES EAMON.DESC FILE< FOR THE BEGINNERS CAVEB[ BY DONALD BROWNa~ 'RUN 5000' INITS FILE. FILE IS RANDOM, LENGTH 256. RECORD ZERO HOLDS FOUR NUMBERS--NUMBER OF ROOMS GIVEN IN FILE,      ;" 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    ҠϠĤҤԠĤ٠ŮӢԠĤΠΠ͢Ši D$(4)< D$"OPEN EAMON.NAME":D$"WRITE EAMON.NAME"N"DEATH TRAP"X"10"g(D$"CLOSE" D$"OPEN EAMON.NAME":D$"WRITE EAMON.NAME":DN$:10:D$"CLOSE"NSTERS,L128" SWĺD$"PR#";PS6RBEGEN:5500:gD$"CLOSE EAMON.MONSTERS":D$:D$"PR#0":100n| D$;"READ EAMON.MONSTERS,R";R:MN$:M2112:M%(M2)::D$;"READ EAMON.DESC,R";R300:A$F"MONSTER # ";R;" [";MN$;"]":" ":"DESC:":8000:D$;"READ EAMON.DESC,R";R200:A$:80004::M /// LIST MONSTERSk"BEGINNING WITH #:";BEG$"ENDING WITH #:";EN$(BEG$)NM(BEG$)1BEG$"1"(EN$)NM(EN$)(BEG$)EN$(NM)BEG(BEG$):EN(EN$) D$"OPEN EAMON.MOTS "BEGINNING WITH #:";BEG$:"ENDING WITH #:";EN$](BEG$)NE(BEG$)1BEG$"1"(EN$)NE(EN$)(BEG$)EN$(NE)BEG(BEG$):EN(EN$)SWĺD$"PR#";PSRBEGEN:4500::D$D$"PR#0":100"EFFECT #";R;":":*0A%(4)NRĺ" [";R$(A%(4));"]";8 :A2:A%(2)23610A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2" ":" ": /// LIST EFFEC" ":D$;"READ EAMON.DESC,R";100R:A$:"DESC: ":8000:" " A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2); A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]";:3580  A24A%(4):EN(EN$)- D$"OPEN EAMON.ARTIFACTS,L128"A SWĺD$"PR#";PSW RBEGEN:3500: D$"CLOSE EAMON.ARTIFACTS":D$:D$"PR#0":100 D$;"READ EAMON.ARTIFACTS,R";R:X$:A14:A%(A)::A%(2)1āA58:A%(A):: "ARTIFACT # ";R;" [";AN$(R);"]":";:2160=fDR%(D)0(DR%(D))NRĺ"[";R$((DR%(D)));"]";Hp:D:_ /// LIST ARTIF. "BEGINNING WITH ARTIFACT:";BEG$ "ENDING WITH ARTIFACT:";EN$ (BEG$)NA(BEG$)1BEG$"1" (EN$)NA(EN$)(BEG$)EN$(NA)  BEG(BEG$)00T4"ROOM # ";R;" [";R$(R);"]":" ":"DESC:":D$;"READ EAMON.DESC,R";R:A$:8000H:"DIRECTIONS MOVED IN--":D$;"READ EAMON.ROOMS,R";R:D1ND:DR%(D):RD1ND:" ";DD$(D);": ";(DR%(D)0)((DR%(D))10));DR%(D);5)\DR%(D)99ĺ"[EXIT]WITH #:";BEG$'"ENDING WITH #:";EN$J(BEG$)NR(BEG$)1BEG$"1"r(EN$)NR(EN$)(BEG$)EN$(NR)BEG(BEG$):EN(EN$) D$"OPEN EAMON.ROOMS,L64" SWĺD$"PR#";PS*RBEGEN:2100:/D$"CLOSE EAMON.ROOMS":D$:D$"PR#0":1:" 7. QUIT":"INPUT YOUR CHOICE (1-6):";CHR CH1000,2000,3000,4000,5000,6000[ 130o ND6:216,0:50  /// SET UP PRINTER "WHAT SLOT IS PRINTER IN?";PS:PS1PS71010 PS(PS)1010 100  /// LIST ROOMS "BEGINNING UTINE :12);"EAMON DUNGEON LIST":11);"BY JOHN NELSON":8:"SELECT ACTION DESIRED:":" 1. SET UP PRINTER":" 2. LIST ROOMS":" 3. LIST ARTIFACTS":" 4. LIST EFFECTS", " 5. LIST MONSTERS":" 6. TOGGLE PRINTER (NOW ";("OFFON ",SW31,3);")"WEST' XD$"OPEN EAMON.ROOM NAMES,L64"\ ZR1NR:D$;"READ EAMON.ROOM NAMES,R";R:R$(R):| \D$"CLOSE EAMON.ROOM NAMES" _D$"OPEN EAMON.ARTIFACTS,L128":R1NA:D$"READ EAMON.ARTIFACTS,R";R:AN$(R)::D$"CLOSE EAMON.ARTIFACTS":D$ d /// MAIN ROOUR,WEAPON#,O.ODDS,W.DICE,W.SIDESE FR$(NR),AN$(NA):A18:A$(A):[ KD110:DD$(D): P VALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES U NORTH ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTH :D$;"OPEN EAMON.NAME":D$;"READ EAMON.NAME":DUNGN$:DR$:D$;"CLOSE"T #216,0b (ND(DR$) 2D$"OPEN EAMON.DESC,L256":D$;"READ EAMON.DESC,R0":NR,NA,NE,NM:D$ <M$(12),M%(12):M112:M$(M):! A HARD,AGIL,FRIEND,COUR,ROOM,WGHT,D.ODDS,ARM LIST DUNGEON, VERSION 2.0D BY JOHN NELSONJPg (4);"MAXFILES 5"D$(4)::5:"LISTING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN PRESS":" ANY KEY ";:16368,0:A$:200I      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$(     L1);ADV$;L2)::. d /// PRINT DESCRIPTION_ :"GOOD LUCK, ";NAME$;".":D$"RUN MAIN PGM" @::"PRESS ANY KEY TO CONTINUE";:A$: J:: ADVENTURE NAME1 BY JOHN NELSON7> L D$(4):D$"OPEN FRESH MEAT":D$"READ FRESH MEAT":REC:NAME$:D$"CLOSE":D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":ADV$:D$"CLOSE"::L1((40(ADV$))2):L240(ADV$)L1 ( PASSED.": +EBB#*+EEBN%(3);4+"EFFECT #";E;":":h>+DK$;"READ EAMON.DESC,R";E200:A$:8000rH+::xR+DL40 #%'"PRINTER OUTPUT?";RE$='RE$"N"RE$"NO"ıU$'"PRINTER SLOT:";PSk.'PS7PS1ī100008'PS(PS)ī10000B'(4);"PR#";PSL'* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"TY$"A"EB1:11050 +TY$"M"ĺ"BY$"R":B1:9110+P#RE$"N"RE$"NO"ī90605Z#9010}d#"BEGIN AT ROOM,ARTIFACT,EFFECT OR MONSTER":"INPUT (R,A,E,M):";TY$n#R14:TY$("RAEM",R,1)Ă:9060x#"NUMBER:";B#BN%(R)ĺ"THERE AREN'T THAT MANY!":9080#PS0PL60#PS0P9M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";6:M2B" ":MSDK$;"CLOSE"cDK$;"PR#0"isBPı}::@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::(#///PRINTER ROUTINE2#"START AT BEGIN?";RE$F#RE$"Y"RE$"YES"TY112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);dJM23M24M27M210ĺ" %";:400TM25M%(5)0M%(5)N%(1)ĺ" [";R$(M%(5));"]";:400^M29M%(9)1ĺ" [ NO WEAPONS ]":410hM29M%(9)0ĺ" [ NATURAL WEAPONS ]";:400,rM2":A1N%(3)1İ110006(12);"LISTING MONSTERS":" ":M1N%(4):500:DK$;"READ EAMON.MONSTERS":MN$:M2112:M%(M2)::DK$;"READ EAMON.DESC,R";M300:A$;TY$"M"BMBP1:>BP0>@"MONSTER # ";M;" [";MN$;"]":" ":"DESC:":8000:" ":M2;:250:A24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";Q:A2:A%(2)2300A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2," ":" # ";A;" [";AN$(A);"]":" ":DK$;"READ EAMON.DESC,R";100A:A$:"DESC: ":8000:" "A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]""[";R$((DR%(D)));"]";" :D,R (12);"LISTING ARTIFACTS"::A1N%(2):500:DK$;"READ EAMON.ARTIFACTS":AN$(A):A214:A%(A2)::A%(2)1āA258:A%(A2): TY$"R"TY$"A"BP1::"BYPASSED.":305 TY$"A"ABĂ BP0R"ARTIFACT 8000P :"DIRECTIONS MOVED IN--":DK$;"READ EAMON.ROOMS,R";R:D16:DR%(D): D16:" ";("NORTHSOUTHEAST WEST UP DOWN ",(D1)51,5);": ";(DR%(D)0)((DR%(D))10));DR%(D);5) DR%(D)99ĺ"[EXIT]";:180 DR%(D)0(DR%(D))N%(1)T,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES0 x9000 :(12);"LIST OF ROOMS":R1N%(1):DK$;"READ EAMON.ROOM NAMES,R";R:R$(R)::TY$"R"ĺ"BYPASSED.":190 RBN%(1):: "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"READ EAMON.DESC,R";R:A$:),N%(2),N%(3),N%(4):DK$, <T14:T$(T):I FROOM,ARTIF,EFFECT,MONSTm PM$(12),M%(12):M112:M$(M): ZHD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES dR$(N%(1)),AN$(N%(2)):A18:A$(A):& nVALUE,TYPE,WEIGH" (DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS":DK$;"OPEN EAMON.ARTIFACTS":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.MONSTERS":N%(4):DK$"READ EAMON.ARTIFACTS":N%(2) 7DK$"READ EAMON.DESC,R0":N%(1y  (4);"MAXFILES 10"DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:10000 :DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:DK$;"CLOSE         11050"+TY$"M"ĺ"BYPASSED.":+ +EBB;*+EEBN%(3)S4+"EFFECT #";E;":":>+DK$;"READ EAMON.DESC,R";E200:A$:8000H+::R+DPS0PL60#PS0PL40"#='"PRINTER OUTPUT?";RE$U'RE$"N"RE$"NO"ım$'"PRINTER SLOT:";PS.'PS7PS1ī100008'PS(PS)ī10000B'(4);"PR#";PSL'* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"TY$"A"EB1:F#RE$"Y"RE$"YES"TY$"R":B1:9110CP#RE$"N"RE$"NO"ī9060MZ#9010d#"BEGIN AT ROOM,ARTIFACT,EFFECT OR MONSTER":"INPUT (R,A,E,M):";TY$n#R14:TY$("RAEM",R,1)Ă:9060x#"NUMBER:";B#BN%(R)ĺ"THERE AREN'T THAT MANY!":9080 #WEAPONS ]";:400DrM29M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";N:M2Z" ":MkDK$;"CLOSE"{DK$;"PR#0"BPı::@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::(#///PRINTER ROUTINE2#"START AT BEGIN?";RE$':"DESC:":8000:" ":M2112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);|JM23M24M27M210ĺ" %";:400TM25M%(5)0M%(5)N%(1)ĺ" [";R$(M%(5));"]";:400^M29M%(9)1ĺ" [ NO WEAPONS ]":410hM29M%(9)0ĺ" [ NATURAL ; :A2," ":" ":A01N%(3)1İ110006(12);"LISTING MONSTERS":" ":M1N%(4):500:DK$;"READ EAMON.MONSTERS":MN$:M2112:M%(M2)::DK$;"READ EAMON.DESC,R";M300:A$;TY$"M"BMBP1:>BP0V@"MONSTER # ";M;" [";MN$;"]":" "APON",A%(2)121,12);"]";:250RA24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";i:A2:A%(2)2300A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]"BP0j"ARTIFACT # ";A;" [";AN$(A);"]":" ":DK$;"READ EAMON.DESC,R";100A:A$:"DESC: ":8000:" "A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WE(D)0(DR%(D))N%(1)ĺ"[";R$((DR%(D)));"]";: :D,R (12);"LISTING ARTIFACTS"::A1N%(2):500:DK$;"READ EAMON.ARTIFACTS":AN$(A):A214:A%(A2)::A%(2)1āA258:A%(A2): TY$"R"TY$"A"BP1::"BYPASSED.":305 TY$"A"ABĂAD EAMON.DESC,R";R:A$:8000h :"DIRECTIONS MOVED IN--":DK$;"READ EAMON.ROOMS,R";R:D16:DR%(D): D16:" ";("NORTHSOUTHEAST WEST UP DOWN ",(D1)51,5);": ";(DR%(D)0)((DR%(D))10));DR%(D);5) DR%(D)99ĺ"[EXIT]";:180/ DR%ES x132z :(12);"LIST OF ROOMS":R1N%(1):DK$;"READ EAMON.ROOM NAMES,R";R:R$(R)::TY$"R"ĺ"BYPASSED.":190 "WHAT THE SHIT IS THIS??": N%(1)R1:(222)5ij RBN%(1):: "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"RET$(T):% FROOM,ARTIF,EFFECT,MONSTI PM$(12),M%(12):M112:M$(M): ZHD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES dR$(N%(1)),AN$(N%(2)):A18:A$(A): nVALUE,TYPE,WEIGHT,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDME":DUNGN$:DK$;"CLOSE" (DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.MONSTERS":DK$;"OPEN EAMON.ARTIFACTS":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.MONSTERS":N%(4):DK$"READ EAMON.ARTIFACTS":N%(2) <T14:  (4);"MAXFILES 10"DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:N%(1)99:N%(3)0:10000:9000 :DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NA!! ! ! ! ! !!!!!!!!PASSED.": +EBB#*+EEBN%(3);4+"EFFECT #";E;":":h>+DK$;"READ EAMON.DESC,R";E200:A$:8000rH+::xR+DL40 #%'"PRINTER OUTPUT?";RE$='RE$"N"RE$"NO"ıU$'"PRINTER SLOT:";PSk.'PS7PS1ī100008'PS(PS)ī10000B'(4);"PR#";PSL'* ///LIST EFFECTS+(12);"LISTING EFFECTS" +TY$"R"TY$"A"EB1:11050 +TY$"M"ĺ"BY$"R":B1:9110+P#RE$"N"RE$"NO"ī90605Z#9010}d#"BEGIN AT ROOM,ARTIFACT,EFFECT OR MONSTER":"INPUT (R,A,E,M):";TY$n#R14:TY$("RAEM",R,1)Ă:9060x#"NUMBER:";B#BN%(R)ĺ"THERE AREN'T THAT MANY!":9080#PS0PL60#PS0P9M%(9)0M%(9)N%(2)ĺ" [";AN$(M%(9));"]";6:M2B" ":MSDK$;"CLOSE"cDK$;"PR#0"isBPı}::@PL40ĺA$:JAZ1(A$)40:(A$,AZ,40)::(#///PRINTER ROUTINE2#"START AT BEGIN?";RE$F#RE$"Y"RE$"YES"TY112:" ";M$(M2);10(M$(M2)));": ";6((M%(M2))));M%(M2);dJM23M24M27M210ĺ" %";:400TM25M%(5)0M%(5)N%(1)ĺ" [";R$(M%(5));"]";:400^M29M%(9)1ĺ" [ NO WEAPONS ]":410hM29M%(9)0ĺ" [ NATURAL WEAPONS ]";:400,rM2":A1N%(3)1İ110006(12);"LISTING MONSTERS":" ":M1N%(4):500:DK$;"READ EAMON.MONSTERS":MN$:M2112:M%(M2)::DK$;"READ EAMON.DESC,R";M300:A$;TY$"M"BMBP1:>BP0>@"MONSTER # ";M;" [";MN$;"]":" ":"DESC:":8000:" ":M2;:250:A24A%(4)0A%(4)N%(1)ĺ" [";R$(A%(4));"]";Q:A2:A%(2)2300A258:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);:A26A%(6)1A%(6)5ĺ" [";(" AXE BOW CLUB SPEARSWORD",(A%(6)1)51,5);"]";:A2," ":" # ";A;" [";AN$(A);"]":" ":DK$;"READ EAMON.DESC,R";100A:A$:"DESC: ":8000:" "A214:" ";A$(A2);10(A$(A2)));": ";6((A%(A2))));A%(A2);A22A%(2)0A%(2)3ĺ" [";("SET TREASURE TREASURE WEAPON ODD WEAPON",A%(2)121,12);"]""[";R$((DR%(D)));"]";" :D,R (12);"LISTING ARTIFACTS"::A1N%(2):500:DK$;"READ EAMON.ARTIFACTS":AN$(A):A214:A%(A2)::A%(2)1āA258:A%(A2): TY$"R"TY$"A"BP1::"BYPASSED.":305 TY$"A"ABĂ BP0R"ARTIFACT 8000P :"DIRECTIONS MOVED IN--":DK$;"READ EAMON.ROOMS,R";R:D16:DR%(D): D16:" ";("NORTHSOUTHEAST WEST UP DOWN ",(D1)51,5);": ";(DR%(D)0)((DR%(D))10));DR%(D);5) DR%(D)99ĺ"[EXIT]";:180 DR%(D)0(DR%(D))N%(1)T,ROOM,W.COMPLEX,W.TYPE,W.DICE,W.SIDES0 x9000 :(12);"LIST OF ROOMS":R1N%(1):DK$;"READ EAMON.ROOM NAMES,R";R:R$(R)::TY$"R"ĺ"BYPASSED.":190 RBN%(1):: "ROOM # ";R;" [";R$(R);"]":" ":"DESC:":DK$;"READ EAMON.DESC,R";R:A$:),N%(2),N%(3),N%(4):DK$, <T14:T$(T):I FROOM,ARTIF,EFFECT,MONSTm PM$(12),M%(12):M112:M$(M): ZHD,AG,FRIEND,COUR,ROOM,WEIGHT,DEF.ODDS,ARMOUR,WEAPON#,OFF.ODDS,W.DICE,W.SIDES dR$(N%(1)),AN$(N%(2)):A18:A$(A):& nVALUE,TYPE,WEIGH" (DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L32":DK$;"OPEN EAMON.MONSTERS":DK$;"OPEN EAMON.ARTIFACTS":DK$;"OPEN EAMON.DESC,L256" 2DK$;"READ EAMON.MONSTERS":N%(4):DK$"READ EAMON.ARTIFACTS":N%(2) 7DK$"READ EAMON.DESC,R0":N%(1y  (4);"MAXFILES 10"DK$(4)::5:"MAPPING A DUNGEON DESIGN FOR EAMON":::"INSERT DISKETTE WITH DUNGEON, THEN HIT ANY KEY ";:16368,0:A$:10000 :DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":DUNGN$:DK$;"CLOSE"" " " " " """"""""