' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `II`>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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-#(#6 @I͠٠ˠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠Iz# Iu`ٍ͍ōō ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"[D[DK$;"RUN MAIN HALL"A EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 (919)766-7490 (:10:"PLEASE WAIT A SHORT WHILE"::" (WAKING UP THE MONSTERS)"ETE THE ADVENTURER":23300CZDK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A):CZA15:WA%(A)::AE:SEX$:GOLD:BANK:ACCZA14:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A):BDZDK$;"OPEN THEETURN":"OF CYNTHIA.":TPTP10CH2BZGOLDGOLDTP`BZ::"(HIT ANY KEY TO CONTINUE) ";:A$:BZDK$;"DELETE FRESH MEAT":::5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT ANY KEY) ";:16368,0:A$:CZDIEĺDK$;"OPEN THE ADVENTURER":DK$;"DELAMINES YOUR GOODS AND":"PAYS YOU ";KAZTP0:A1NA1:AD%(A,4)123210tAZAD%(A,2)0AD%(A,1)AD%(A,1)CH10AZTPTPAD%(A,1)!BZA:TP;" GOLD PIECES."::MD%(9,5)1ĺ"ADDITIONALLY, YOU RECEIVE ";10CH;" GOLD":"PIECES AS A REWARD FOR THE SAFE R4)WN$(W5)WN$(W4)WN$(W4)"#":231400@nZW5,W4@xZW14:WP%(W)WT%(W)AD%(WP%(W),6):WO%(W)AD%(WP%(W),5):WD%(W)AD%(WP%(W),7):WS%(W)AD%(WP%(W),8)$AZW::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EX;"--";WN$(W4):::"HIT THE NUMBER KEY FOR ONE TO THROW":" AWAY (1-";W21;") ";x?FZA$:W5(A$):W51W5W2123110?PZWP%(W5)AD%(WP%(W5),4)1?ZZWN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W2523090%@dZW511:W5:W42W21:W51W41:WN$(W)1WN$(W2)AN$(W3):WP%(W2)W3:W2W21:AD%(W3,4)0G>(ZW3:W2623160>2Z:5:"AS YOU TRY TO LEAVE, THE KNIGHT":"MARSHALL REAPPEARS AND TELLS YOU, 'YOU":"HAVE TOO MANY WEAPONS--4 IS THE LEGAL":"LIMIT.'"::"YOUR WEAPONS ARE--"S?ZW2W:W31NA1:AD%(W3,2)1AD%(W3,4"MAY NOW PROCEED' AND HE WALKS AWAY."::"(HIT ANY KEY TO CONTINUE) ";:A$:::100]NDK$;"READ EAMON.DESC,R206":A$:DK$::A$::TR0:AD%(10,8)6:MD%(0,9)10MD%(0,12)61HN300M2PDK$;"READ EAMON.DESC,R204":A$:DK$::A$::MD%(0,20200BJ1950/0LJS$"WATER"S$"SEA"190400VJ:"SORRY, BUT I'M AFRAID TO GO INTO THE":" WATER WITHOUT MY LIFE PRESERVER!"::3000`JS$"CAVE"ROOM1V$"S":50001jJ:"I'M NOT SURE WHAT YOU MEAN BY THAT.":"TRY GIVING A DIRECTION TO MOVE.":IC AND":" CANNOT ";V$::300-/BM0:17500>/BNBTL0:5100w/\DDK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$/fDR2DR%(6(1)1):R2117510/pD/PF:"YOU ARE CARRYING THE FOLLOWING--":A1NA:AD%(A,4)1ĺ" ";AN$(A)/ZF:30008JNBTL)2MD%(0,2):MD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8)h.>S$"TROLLSFIRE"ĺ:"READIED."::300.>TR0:MD%(0,12)10:20000.hB///FLEE COMMAND.rBNBTLĺ:"WHAT ARE YOU FLEEING FROM?"::100/|BMD%(7,5)ROOMĺ:"YOU ARE HELD FAST BY THE MIMFLOP THREE TIMES THEN DIE.":.-:DIE1:23010E->///READY A WEAPONO->1950->A1NA:AN$(A)S$AD%(A,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)K?"::300,:"AS YOU READ THE BOOK, YOU FEEL A WEIRD":"SENSATION OVERTAKING 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 ~+:S$"LABEL"S$"BOTTLE"ĭAD%(3,4)ROOMAD%(13,4)ROOMAD%(3,4)1AD%(13,4)1ĺ"THE BOTTLE SAYS, 'HEALING POTION'"::300+:S$"TROLLSFIRE"20000+:S$"BOOK"ĺ:"THERE ARE NO MARKINGS TO READ!"::300 ,:AD%(9,4)1AD%(9,4)ROOMĺ"WHAT BOO(7AD%(3,4)0:AD%(13,4)1"*27300*8S$"WATER"(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*:///READ COMMAND*:1950*:NBTL2020H214080,14090,14100,14110:)7"YOU FEEL GREAT!"::14120[) 7"YOU FEEL BETTER."::14120)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.":*201(6(S$,6)"POTION"(S$,6)"BOTTLE"14500X(6AD%(3,4)1AD%(3,4)ROOM14500(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:"::300''."NOTHING HAPPENS."::300;'2///SAY COMMANDE'21950`'2S$"TROLLSFIRE"20000u'2S$"POWER"6000'2S$"HEAL"7000'2S$"BLAST"8000'3S$"SPEED"10000'3:"OKAY, '";S$;"'"::300'6///DRINK COMMAND'61950(6NBTL20(0,2)2MD%(0,2)h&.'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.T SPELL%J1950^%TM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::300v%^S1:7500:SUC300%h:"DIRECT HIT!"::S5:D1:DFM:3650::300%'///SPEED SPELL%'S3:7500:SUC300&$'SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%///HEAL SPELL&$bS2:7500:SUC14050/$l300v$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%(S)2$jS2%(S)S2%(S)2$t%@///BLAS"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ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300#10020 $XMD%(0,9)0."M:RAISENBTL0:R2ROOM:5100q"A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0"A:RAISEĺ:300"RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:23010R#RR31ĺ:M,1)!(M:NBTL(TD%(0)0)$!21008!p///POWER SPELLP!zS4:7500:SUC300 "RAISE0:M1NM:M213M:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:MD%(M,9)0AD%(MD%(M,9),4)0:MD%(M,9)MD%(0,9),13)N M1NM:MD%(M,5)R3ĭMD%(M,14)200(1)MD%(M,4)MD%(M,5)ROOM:5150g MD%(M,5)ROOM5160 FRMD%(M,3):FRFR100FRFR((CH10)2) MD%(M,14)(FR100(1)):MD%(M,14)NBTL1!AMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(5DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$BR25100ROOM1D1ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":"SUNSET.":23010:"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 R3ROOM:ROOMR2:TD%(0)0:TD%(1)MD%(0,1):FD%(0)0:FD%(1)MD%(0ESC,R";A100:A$:DK$::A$::LK11A:LK300rDK$;"READ EAMON.DESC,R";ROOM:A$:DK$::A$::ROOM15300"YOU FOUND A HIDDEN TUNNEL GOING OFF TO":"THE EAST!"::300///MOVE COMMANDNBTL2020D16:(V$,1)("NSEWUD",D,1)Ă"MIMIC"ĺ:"AS THE MIMIC DIES, IT ROLLS OVER AND":"YOU FIND A RING UNDERNEATH IT.":AD%(6,4)ROOMi:~///LOOK COMMANDNBTL2020S$"LABEL"S$"BOTTLE"15000LK0"A1NA1:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DMD%(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%(0)NBTL0DF0DIE1:23010MN$(DF)"PIRATE"ĺDK$;"READ EAMON.DESC,R203":A$:DK$::A$::AD%(10,8)6:V%(ROOM)0:aMN$(DF):" IS STILL IN GOOD SHAPE.":@[:MN$(DF);" IS HURTING.":``:MN$(DF);" IS IN PAIN.":e:MN$(DF);" IS VERY BADLY INJURED.":j:MN$(DF);" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":dtMN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::GMD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)3700LAMD%(DF,14):FD%(A)FD%(A)D2Q(MD%(DF,13)5MD%(DF,1)1)3670,3675,3680,3685,3690 V:MN$(DF);" TAKES DAMAGE BUT"D%(OF,10)):MD%(OF,10)MD%(OF,10)2INC^DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":3650"A CRITICAL HIT!":R2(100(1)1):R251A0:3650R286S1.5S:3650$R296D2D:3650)R2100D3D:3650.3700HBD20:D31D:D2D2 FR953550U " WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,9)1:(1).9ĺ:x " BROKEN WEAPON HURTS USER!" FR1003560 DMD%(OF,11):SMD%(OF,12):DFOF:A1:3650 DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:3650&INC((100(1)1)M" --";= RL(100(1)1):HIT0:RL5RLMD%(OF,10)HIT1K HIT3600c RL97ĺ"A MISS.": "A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED.":: FR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,9)1::(DF,14))DF0300D MD%(DF,3)MD%(DF,3)2:NBTLMD%(DF,14)0:TD%(0)TD%(0)MD%(DF,1):TD%(1)TD%(1)MD%(DF,1):FD%(0)FD%(0)MD%(DF,13):FD%(1)FD%(1)MD%(DF,13):300N R2ROOM:MD%(DF,14)0:5100 HIT0:MD%(OF,9)1ı MN$(OF);" ATTACKS ";MN$(DF)::100= MD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100\ OF0:DFM:3500:HIT3130 INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2 EAAE300 (100(1)1)MD%(0,10)3130& A2:EAAE1A10 AEAEA:MD%(0,10)MD%(0,10)A: (MD%:300$ A1NA:AD%(A,4)12080YWTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED."e A:300| ///ATTACK COMMAND 1950 S$"RAT"3050 M13:MD%(M,5)ROOMS$MN$(M) M M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?":50///DROP COMMAND'1950oNBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100S$"ALL"2060A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100WTWTAD%(A,3)::"DROPPED.":AD%(A,4)ROOM:(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300AV16000b`A1NA:AD%(A,4)ROOM1150jWTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":1150tAN$(A);" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)~::300S$""ĺ:C$(C);" WHAT";:S$:19S$"RAT"10704A1416:AD%(A,4)ROOMS$AN$(A):$^.S$"GOLD"S$"COINS"S$AN$(5)8A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100BWTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::1006L:"GOT IT.":AD%ROOMMD%(M2,14)DFM2:3500:M2200:M2:4309M2:400?aNBTL(FD%(0)TD%(0)):NBTLĂMgp100///GET COMMAND1950S$"TORCH"ĺ:"ALL TORCHES ARE BOLTED TO THE WALL AND":"CANNOT BE REMOVED."::300S$"ALL"1120M,14))MD%(M,1):FD%(MD%(M,14))FD%(MD%(M,14))MD%(M,13):430O^MD%(M,14)390yhOFM:TD%(1)MD%(0,1)DF0:3500:430rM21NM:MD%(M2,5)ROOMMD%(M2,14)(1).25DFM2:3500:M2200:M2:430|M2:DF0:3500:430OFM,M21NM:MD%(M2,5),///COMMANDS RETURN TO HERE-6NBTL440M@M1NM:MD%(M,5)ROOM430JMRFD%(MD%(M,14))TD%(MD%(M,14))FD%(MD%(M,14))TD%(MD%(M,14))5(41(1)20)<TMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::17500:MD%(M,5)R2:TD%(MD%(M,14))TD%(MD%(0(C$(C)));::::1604 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,20000,21000A$(A$,2):1651 A$""A$CZ$:(37):17:A$Y CZ$A$:A2(A$):(A$,A,1)" "Ăw 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:C$(C);2 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$,1)" "< }V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$:u 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$::A$:[ 2DK$(4):220002 d///GIVE ROOM DESC IF NEVERQ i///HERE, THEN GET COMMANDW n sSPDSPDSPD1: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":" ";A$:\< EAMON ADVENTURE #1:-> THE BEGINNERS CAVE <-@Y BY DONALD BROWN_ EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 (919)766-7490 (:10:"PLEASE WAIT A SHORT WHILE"::" (WAKING UP THE MONSTERS)"                    10;.'D$;"CLOSE"1;8'D$;"OPEN CHARACTERS,L150":;B'400AY - \THOMAS J. ZUCHOWSKI v WINSTON-SALEM, NC  DEC 1983  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N: n 104,168,104,(I)""M:#NA$(I):HD(I):AG(I):CH(I):J14:SA%(J,I)::J15:WA%(J,I):z:#AE(I):SEX$(I):GOLD(I):BANK(I):AC(I):#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$:#:' ///ONERR ROUTINE :'768;$'NC1(222)5NC0:4NE 92#D$;"CLOSE".9<#I1NC:UP(I)1İ911049F#_9P#ADDĺD$"WRITE CHARACTERS,R0":NC:D$:9Z#D$;"CLOSE":20:8:"*** END OF PROGRAM ***"::9# /// WRITE RECORD 9#D$;"OPEN CHARACTERS,L150"9#D$"WRITE CHARACTERS,R";I:#DD$(I)""NA$:AG(0)0:CH(0)0:I15:WA%(I,0)0:8^I14:SA%(I,0)0::GOLD(0)0:BANK(0)0:I14:WN$(I,0)"NONE":WT%(I,0)0:WD%(I,0)0:WO%(I,0)0:WS%(I,0)0:8hAE0:AC08rADD1:NCNC1:CNC:UP(C)1:NCFULLFULL08|NA$(C)NA$(0):20009(# /// QUIT ROUTIJĺD$:(7):"THE CHARACTER NAME ";NA$(C):"ALREADY EXISTS IN THIS FILE IN RECORD ";J::7080g7(:7x:J1C2:D$;"READ CHARACTERS,R";J:N$:S$;J;". ";N$::D$:70807@ // GENERATE NEW RECORD 7J:"NAME OF NEW CHARACTER: ";NA$(0)$8THD(0)0 FILE IS ";C2:70806`7700'6j9120A6t:18:"DONE."::720Q6/// RETURN6D$"CLOSE"::5:" INSERT ORIGINAL DISKETTE AND PRESS":16:"ANY KEY":A$:6D$"OPEN CHARACTERS,L150":5106J1C2:D$;"READ CHARACTERS,R";J:N$_7NA$(C)N$I400,7500,7080$5:10:"NAME:";N1$5I1C2:D$"READ CHARACTERS,R";I:N2$:N2$N1$Ă:D$::"I DON'T FIND THAT NAME.":70805D$:7700:75305L/// REPLACE BY REC#6VD$::10:"RECORD #:";I:I(I)IC2I1ĺD$::"THE HIGHEST RECORD IN THIS300,7800,7600(4 /// ADD NEW CHARACTER94*IC21:7700c44D$"WRITE CHARACTERS,R0":I:IC:7530~4/// REPLACE CHARACTER4:" SELECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2. REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MENU":X3:600 5S7     H3D$"CLOSE":D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":C2:D$3:" SELECT ACTION:":S$;"1. ADD CHARACTER AS NEW":S$;"2. REPLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:600 4S7200,7"C2v:"THE CHARACTER NOW LOADED IS:"::(40(NA$(C)))2:NA$(C)2:"IF THE CHARACTER IS ALREADY LOADED, INSERT THE DISK IT IS TO BE TRANSFERED TO, AND PRESS 'C'."2:"HIT ANY OTHER KEY TO RETURN TO THE MAIN MENU.":2A$::A$"C"510""Ė21:"(?)";DD$(I);1::1S$" ":720:6000U1X /// MOVE CHARACTER j1bC0SUB1:10002l:"THIS ROUTINE WILL MOVE AN ADVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTER MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED. KEEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)1>0H06000\0/// SHORT LISTz0I1NC:DD$(I)""S$""00:8:"SHORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";1::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)ARE YOU SURE? ";A$$/<A$"Y"6000@/FD$;"DELETE CHARACTERS"/PNC1:D$;"OPEN CHARACTERS,L150":D$;"WRITE CHARACTERS,R0":NC/ZD$;"WRITE CHARACTERS,R1"::D$:NC0:410//// CHAR LIST/DELETE/:I1NC/:"RECORD #";I;": ";NA$(I)80"./// INIT FILE/. :6:16::"WARNING":C.I13:(7);:.::" THIS SUBROUTINE WILL DELETE EVERY CHARACTER ON THIS DISK!!!".(::" DO YOU WANT TO DELETE ALL THE":" CHARACTERS ON THIS DISK? ";A$/2A$"Y"ĺ::13:"1):%-jK15:WA%(K,J)WA%(K,J1):E-tAC(J)AC(J1):AE(J)AE(J1)-~K14:WN$(K,J)WN$(K,J1):WT%(K,J)WT%(K,J1):WO%(K,J)WO%(K,J1):WD%(K,J)WD%(K,J1):WS%(K,J)WS%(K,J1):-UP(J)1:J-NCNC1:ADD1.I:::16)"DONE":I1500:I:60006600,510,///LIST FILE-,AU1:C0:1300D,8/// CONDENSE FILEP,BI1NCe,LNA$(I)""6300,VJINC1:NA$(J)NA$(J1):SEX$(J)SEX$(J1):GOLD(J)GOLD(J1):BANK(J)BANK(J1):HD(J)HD(J1):AG(J)AG(J1):CH(J)CH(J1)-`K14:SA%(K,J)SA%(K,JȢΠůנ̢Πůנ̠ǠƠԢŠŧӠŢԭέΠĠůעΠůנ̢ŠРƠ٢Š͠Ơ٢Πůנ̠ȠԠâΠůנ̠ȠĠâŠŢŠ٢Ԡ̢ŠȠĠƠǠŢΠԠ̢ΠȯȠŢΠԠ̢Ԡ̢ŠŠƠǠŢΠԠ̢ŠҢŠԠŠҢԠ̢ŠȠĠƠǠŢŠŠŢˠȯȠ̢ŠԠŠҢ     +510$+p /// FILE MAINTENANCE E+z:8:" SELECT ACTION:":+S$;"1. LIST FILE":S$;"2. SHORT LIST":S$;"3. CONDENSE FILE":S$;"4. INIT FILE":S$;"5. LIST/DELETE CHARACTERS"+S$;"6. RETURN TO MAIN MENU":X6:600,S6100,6800,6200,6400,O%(I,C))));WO%(I,C);"%";*7((WD%(I,C))"D"(WS%(I,C))));WD%(I,C);"D";WS%(I,C);5((2AG(C)WA%(WT%(I,C),C)WO%(I,C))));2AG(C)WA%(WT%(I,C),C)WO%(I,C);"%"*:SUB2SUB0:*720*AU1CNCAU0:C0*AU11300*SUB1SUB0:AC(C)5A$"PLATE ARMOR"D)Z(AC(C)2)AC(C)2A$A$" & SHIELD"X)d:"ARMOR: ";A$v)n" EXPERTISE: ";AE(C);"%")x:"WEAPON INFORMATION:")" NAME TYPE CMPLX DMG ODDS";)I14*WN$(I,C);18(WN$(I,C)));WT%(I,C);6((W;:30:WA%(3,C)M(" SPEED:";:12:SA%(3,C);:21:"4.SPEAR:";:30:WA%(4,C)(" POWER:";:12:SA%(4,C);:21:"5.SWORD:";:30:WA%(5,C)((A$"NONE"(2AC(C)1A$"SHIELD ONLY":5220(<AC(C)1A$"LEATHER ARMOR"(FAC(C)3A$"CHAIN ARMOR")PGILITY:";:12:AG(C);:21:"IN BANK: ";BANK(C)H'"CHARM:";:12:CH(C)c'20:"WEAPON ABILITY:"'"SPELL ABILITY:";:21:"1.AXE:";:30:WA%(1,C)'" BLAST:";:12:SA%(1,C);:21:"2.BOW:";:30:WA%(2,C)( " HEAL:";:12:SA%(2,C);:21:"3.CLUB:"FULL0&4610.& /// DISPLAY CHARACTER O&:"RECORD #: ";:SUB1ĺC1;^&SUB0ĺC;w&15:"NAME: ";NA$(C)&:SEX$(C)"M"ĺ"MALE";&SEX$(C)"F"ĺ"FEMALE";&20:"GOLD:"&"HARDINESS:";:12:HD(C);:21:"IN HAND: ";GOLD(C).'"A"THE DIMENSIONED ARRAYS ARE FULL. YOU MAY NOT ADD A CHARACTER TO THIS FILE UNTIL THE PROGRAM IS RERUN.":720:%I1NC:NA$(I)NA$(0)Ă%NA$(I)NA$(0)ĺ:" THAT NAME IS ALREADY BEING USED.":720:&NCNC1:CNC:ADD1:UP(C)1:NCFULLH(0)>$ I14:SA%(I,C)SA%(I,0)::I15:WA%(I,C)WA%(I,0):$AE(C)AE(0):AC(C)AC(0):I14:WN$(I,C)WN$(I,0):WT%(I,C)WT%(I,0):WO%(I,C)WO%(I,0):WD%(I,C)WD%(I,0):WS%(I,C)WS%(I,0):$ DD$(C)DD$(0)$*UP1UP(C)1:UP0$4:510u%FULL0ĺ:DICE:";WD%(W,0):4260;#UP1:"NEW SIDES:";WS%(W,0):4260a#WW1:W4260,4260,4260,4260,4380g##0C1C:C0:SUB1:5000:CC1:# /// CHANGE ARRAY$NA$(C)NA$(0):SEX$(C)SEX$(0):GOLD(C)GOLD(0):BANK(C)BANK(0):HD(C)HD(0):AG(C)AG(0):CH(C)C4370,4200."UP1:"NEW NAME:";WN$(W,0):4260D"UP1:"NEW TYPE:"":S$;"1. AXE":S$;"2. BOW":S$;"3. CLUB":S$;"4. SPEAR":S$;"5. SWORD"":WT%(W,0):4260"UP1:"NEW TYPE:";WT%(W,0):4260"UP1:"NEW ODDS:";WO%(W,0):4260#UP1:"NEW ı!" SELECT FIELD TO CHANGE:"::S$;"1. NAME",WN$(W,0):S$;"2. TYPE",WT%(W,0):S$;"3. COMP.",WO%(W,0):S$;"4. DICE",WD%(W,0):S$;"5. SIDES",WS%(W,0)!S$;"6. NEXT WEAPON":S$;"7. RETURN TO WEAPON MENU":X7:600 ":S4290,4300,4340,4350,4360,(I,0);6((WO%(I,0))));WO%(I,0);"%"; |7((WD%(I,0))"D"(WS%(I,0))));WD%(I,0);"D";WS%(I,0);5((2AG(0)WA%(WT%(I,0),0)WO%(I,0))));2AG(0)WA%(WT%(I,0),0)WO%(I,0);"%"  "-----------------":"5. RETURN TO MENU":X5:600!WS::S5:"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000zUP1:AE(0)X:h:8:"SELECT WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS";::I14& rI;".";WN$(I,0);16(WN$(I,0)));WT%D",GOLD(0):S$;"2. GOLD IN BANK",BANK(0):X2:600::S3810,3830"HOW MUCH GOLD IN HAND:";X:X0X50000X(X)ĺ:"INVALID AMOUNT.":3810GOLD(0)X:"HOW MUCH IN BANK:";X:X0X50000X(X)ĺ::"INVALID AMOUNT.":3830BANK(0)X:gŠӠō  PLATE ARMOR":S$;"7. PLATE ARMOR & SHIELD"`\ :S$;"(CURRENTLY ";AC(0);")":X7:600:AC(0)S:{:"OLD SEX: ";SEX$(0)"NEW SEX: ";X$:X$"M"X$"F"ĺ:"INVALID SEX":3600$UP1:SEX$(0)X$:@UP1::8:"SELECT ONE:"::S$;"1. GOLD IN HANEAR EXPERTISE:";WA%(4,0):3200N UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200T H UP1::" ARMOR CLASS:"::S$;"1. SHIELD ONLY":S$;"2. LEATHER ARMOR":S$;"3. LEATHER ARMOR & SHIELD":S$;"4. CHAIN ARMOR"+R S$;"5. CHAIN ARMOR & SHIELD":S$;"6.",WA%(5,0):S$;"----------":S$;"6. RETURN TO MENU":X6:600c :S3230,3240,3250,3260,3270,3280 UP1:"NEW AXE EXPERTISE:";WA%(1,0):3200 UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200 UP1:"NEW CLUB EXPERTISE:";WA%(3,0):3200 UP1:"NEW SP%(2,0):30009 UP1:"NEW SPEED RATING:";SA%(3,0):3000f UP1:"NEW POWER RATING:";SA%(4,0):3000l  :8:" SELECT WEAPON ABILITY:":S$;"1. AXE",WA%(1,0):S$;"2. BOW",WA%(2,0):S$;"3. CLUB",WA%(3,0)< S$;"4. SPEAR",WA%(4,0):S$;"5. SWORD:S$;"1. BLAST",SA%(1,0):S$;"2. HEAL",SA%(2,0):S$;"3. SPEED",SA%(3,0) S$;"4. POWER",SA%(4,0):S$;"----------":S$;"5. RETURN TO MENU":X5:600::S3020,3030,3040,3050,3060 UP1:"NEW BLAST RATING:";SA%(1,0):3000  UP1:"NEW HEAL RATING:";SA\( :"OLD AGILITY:";AG(0):"NEW AGILITY:";X:X3X300X(X)ĺ:"INVALID AGILITY.":2600o2 UP1:AG(0)X: :"OLD CHARISMA:";CH(0):"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":2800 UP1:CH(0)X:G :8:" SELECT SPELL:"LID NAME.":2200*I1NC:NA$(I)X$ĂjNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200DD$(0)"":UP1:NA$(0)X$:` :"OLD HARDINESS:";HD(0):"NEW HARDINESS:";X:X3X300X(X)ĺ:"INVALID HARDINESS.":2400j UP1:HD(0)X:00,4000,4200,4400,4600,4800,510)R2060DD$(0)""ĺ:"THIS CHARACTER IS DEAD. THE PREVIOUS NAME OF THIS CHARACTER WAS:"::15:"(?)";DD$(0)::2220:"OLD NAME: "NA$(0)"NEW NAME: ";X$:(X$)0(X$,1)"A"(X$,1)"Z"(X$)20ĺ:"INVA0. ARMOR EXPERTISE":S$;"11. WEAPON"z4S$;"--------------------":S$;"12. DISPLAY RECORD":S$;"13. RETURN TO MAIN MENU">S$;"14. ADD AS A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";SHS2200,2400,2600,2800,3000,3200,3400,3600,38ōԍȍÍԍΠԍΠԍˠԍ  " :(40(NA$(0)))2:NA$(0):" INPUT FIELD TO CHANGE:"::S$;" 1. NAME":S$;" 2. HARDINESS":S$;" 3. AGILITY":S$;" 4. CHARISMA" S$;" 5. SPELL ABILITIES":S$;" 6. WEAPON ABILITIES":S$;" 7. ARMOR"$*S$;" 8. SEX":S$;" 9. GOLD":S$;"1):BANK(0)BANK(C):HD(0)HD(C):AG(0)AG(C):CH(0)CH(C)oI14:SA%(I,0)SA%(I,C)::I15:WA%(I,0)WA%(I,C):AE(0)AE(C):AC(0)AC(C):I14:WN$(I,0)WN$(I,C):WT%(I,0)WT%(I,C):WO%(I,0)WO%(I,C):WD%(I,0)WD%(I,C):WS%(I,0)WS%(I,C):DD$(0)DD$(C)ER:";CACNCĺ(7):"ONLY ";NC;" RECORDS IN FILE.":720:1000PC1C:5000f /// NEXT RECORDCNCĺ:14);"END OF FILE.":C0:710(CC1:5000 /// MODIFY RECORD C0SUB1:10005NA$(0)NA$(C):SEX$(0)SEX$(C):GOLD(0)GOLD(C":S$;"4. RETURN TO MAIN MENU":X4:600:CS1100,1210,1300,510UL /// BY NAMEsV"CHARACTER NAME:";NA$(0)`I1NC:NA$(I)NA$(0)Ă:(7):"NO SUCH CHARACTER IN THIS FILE.":720:1000jCI:C1C:5000 /// BY RECORD #"RECORD NUMB: /// CONTINUE PROMPT U:" (PRESS ANY KEY TO CONTINUE)";:A$::510:" (PRESS ANY KEY TO CONTINUE)";:A$:: /// SELECT RECORD ):6:" SELECT RECORD BY:"::S$;"1. NAME":S$;"2. RECORD NUMBER":S$;"3. NEXT RECORDE MAINTENANCE"R&S$;"4. TRANSFER THIS RECORD":S$;"5. GENERATE A NEW CHARACTER"0S$;"6. UPDATE RECORD AND QUIT":X6:600:S1000,2000,6000,7000,8000,9000X /// GET NUMBER b:" INPUT (1-";X;"):";lA$:S(A$):S1SX620vA$ RERUN THE PROGRAM TO CONTINUE.":9000:17);"EAMON"::" CHARACTER FILE MAINTENANCE":6:S$;" CHARACTER: NONE";:C0Ė21:NA$(C);" ";8::" SELECT ACTION:":S$;"1. SELECT A RECORD":S$;"2. MANIPULATE THIS RECORD":S$;"3. FILYOUR ONLY OPTION IS TO":S$;" GENERATE A NEW CHARACTER.p ::S$;:" DO YOU WISH TO DO THIS?";A$:A$"Y"8000z 9050  /// MAIN MENU 'UP0::FULL0Ģ8:" THE DIMENSIONED ARRAYS ARE FULL; THE CHARACTER ARRAYS ARE BEING SAVED TO DISK.D$;"READ CHARACTERS,R";I:NA$(I):DD$(I)A rNA$(I)"(DEAD)":320^ |GOLD(I):BANK(I):AC(I) J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I): I:D$ 216,0:NC0510 :10 " THE CHARACTERS FILE IS EMPTY."7 :S$;" $(I)""NA$(I)"(BAD DATA IN FILE)":400Z ,DD(DD$(I)):DD$(I)""DD0NA$(I)"(DEAD)"s 6DD0HD(I)DD:330~ @HD(I) JAG(I):CH(I) TJ14:SA%(J,I)::J15:WA%(J,I): ^AE(I):SEX$(I):SEX$(I)"M"SEX$(I)"F"SEX$(I)""380( hD$:10:FULLN NA$(N),SEX$(N),GOLD(N),BANK(N),HD(N),AG(N),CH(N),SA%(4,N),WA%(5,N),AC(N),AE(N),WN$(4,N),WT%(4,N),WO%(4,N),WD%(4,N),WS%(4,N),UP(N),DD$(N) I1NC D$;"READ CHARACTERS,R";I:NA$(I) NA$(I)""320 10000( "DD$(I):DDՠŠΠȠĠĠӠǠΠӠҮŠӠǠӠŠԠƠˠĠӠǠ٠٠ĠĮՠŠ̠̠ΠǠŠӮՠŠҠӠŠͧӠԭϭԠҮŠӠŠΠΠӠ ĠΠŠˠΠӠŮΠӠԠĠŠӠŮԭĠҠӠΠŠͬǠՠȠϠӠĠǠϠŠՠȠĮΠҠӠŠլĠǠĠĠǠĮΠӠĠӠҠȠӬɡɧ͠ȡŠӠŬ٬ǠĠ٠ΠŠ͠ȠաŠӠĠĠԠϠӠӠƠŠΧԠΠȠΠ٠өΠŠͮŠӠŠΠԠȠРŠȠšŠӠŠΠԠȠРŠȠšŠӠŠˠԠȠРŠȠš       Ӡՠ٠ŠħӠŬŠԠΠŠӠ͠ŠĮŠՠŠǠŠĠΠĠάՠŠŠΠŠ̠ŠĠǠҠӠƠοӠӠŮӠՠ٠ŠħӠŠũԠΠŠӠĠŠħӠŮӠŠŠӠĠӬŠΠӠĠӠϮӠŠŠӠĠԠՠΧԠŠԬԠΠŠӠŠŠƠӠĮӠՠȠŠԬԠ٠ӠŠĠϠӠŠƠŠŬǠՠԮҠŠӠ͠ŠРĠϠԠծŠĠ٠ƠŠŠӠŮŠĠ٠ƠŠ̠ӠŮ z   ŠԠӠĠŬ̠ȠˠƠ̠ĠΠӠŮŠĠ٠ƠŠԭàӠĠΠŠĮŠĠ٠ƠȠӠŮŠ٠ŠƠӠŮŠԧӠ٠ӠĠŮŠӠĠΠԠŮŠӠĠΠԠŮŠӠĠˠԠŮŠӠΠ٠ŠŮŠӠŠԠΠŠҠƠŠͮŠӠŠŠƠӠšŠӠ̠ĠŠȠŠǠΠŠŮΠΠŠŠӠŠŬŧŠӠΠĠˠŮԠӠΠŠӠĠӠ٠̠ĮŠŠ̠ŠӠŮŠӠȠ٠ӠŠŮŠӠΠĠĠǠŮŠŠĠӠšŠӠҠ٠ӠĠŮŠӠŠŠȠŠΠšŠӠĠӠŠŮŠӠŠƠӠšՠŠΠ̠ٮȠӠĠՠϠԠŠ٠ԠӠˠΠŠ̠ϠŠԮϠŠԬΠŠˠƠŠӠΠĠԮՠŠΠΠԯԠ̮ՠԠϠŠԬĠ̠̠ĠǠ͠ŮΠŠĠՠԠƠԮՠŠΠΠԯԠ̮͠ԠΠŠΠΠȠӮՠŠԠŠ͠ƠԠƠԠΠŠΠРԠŠРƠӬĠ٠͠ԠΠŠΠŠ̠ϠŠԮՠŠԠŠРƠԠƠӮȠӠΠŠ̮ԠӠ٠ˠΠŮ̠ӠԮՠŠΠˠԯԠ̮ՠΠŠԠȠӮՠŠΠԭήǠȠӠĠϠŠȠ̮ˠӠĠȠĠԮϠŠԠӠŠŠŠĬԠԠӠΠΠ͠ӠӮՠŠΠԠӠŠ٠ٮԠƠŠӠŠΠĬȠŠӠǠΠŠĮҬΠ͠ӠӬϠӠΠŠĮŠԠӠϠŠԮՠŠΠŠŮӠƠԠӠҠŠӮŠŠϠӠŬŠĠȠĠԠĠŠҠĠȠĮŠ٠ԠӠϠŠԮՠŠΠΠԯԠŮՠΠ٠٠ҠӠàǠĬĠΠ̠ŠŠԮՠŠΠԠԯԠŮՠҠԠ٠Ǡ͠ŠԮՠŠΠ̠ǠȠĠȮŠӠƠŠ̠ŠΠĠȮՠŠԠϠŠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠԠŠȠĠƠŠǠ̮ϠҠԠˠŠϠӠΠŠԠĠԮŠ̠Ӡ͠ŬĠΠ̠ӠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŮէŠΠŠŠƠŠǠ̮ӠŠĠΠȠӠƠՠԠĠԩŠ̠ӠĠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠԠŠȠĠƠǠ̮̠ӠȮϠŠԠĠԠŠӠԠŠĠԠǠǠοΠŠ͠ՠΠŠԠŠ̠ӠȬՠԠŠԠ٠ӮӠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠŠҬŠƠӠԠƠԮǠӠŠӬǠԠ٠ϠŮĠȠĠȬĠŠŠŠӠϠȠŠԠĠԮŠӠϠȠŠԠĠԮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠˠȯȠ̮ϠŠȠՠŠŠԠԠǠΠ͠ŠŮϠŠȠՠŠǠȠԬԠՠԠŠԠ٠ӮՠŠԠŠŠƠŮϠŠȬҠŠ̠ŬӠΠǠӠٮϠŠȠӠŠĠˠϠή                      166,223,154,72,152,72,96& xD$(4):A S$" ":7 SPACESK :10 " INSERT MASTER DISKETTE"::" AND PRESS ANY KEY":A$: /// INPUT DATA FROM DISK D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$ NNC;3 CHARACTER FILE / MAINTENANCE B - BY - \THOMAS J. ZUCHOWSKI v WINSTON-SALEM, NC  DEC 1983  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 dI768777:N:I,N: n 104,168,104,                         ĠĠōĠÍĠԍĠĠȍĠΠԍĠԍĠˠԍĠΠԍԍ٠ōōӍӍˍǍōčĠӍōōӍ     Iz#  Ԡź"ΠҧӠΠҮӬà ŠҠ ԠҧӠ̠ ҧӠ̠cΠҠŠԠ5Ӡ٠"ԠҠ ήӠ ήàE ήӠ ήŠή͠ӠήӠŠӠŠ> ΠϠŠ̠ĠƠΠήà"נӠΠ̠/!ŭŠӠ"ׯŠӠ͠٠ˠ˧ӠϠӮŠӠޭΠΠϠϠԠޭōōōҠԍ͍ōōōō̠čˍȍ͍ōōōō΍͍čٍ΍RECTORY !!!": |:10005 1:" 80N":0,63998:0"X138:B$B$"=":3 ,X10511:NAME$(X)B$:I 6NAME$(0)(B$,19)U @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:"!!! ERROR - UNABLE TO READ DI85:34,22 23:958T "SELECT A FILE BY NUMBER -->";A$:A(A$):AMAX2010_ 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$(105),A$(105),T(105) ((NA$(N),8,1))942000! XX1: A$(X)(NA$(N),8,30)T T(X)((NA$(N),2,1))h X21İ30:2000 X21X61X101İ80 X41İ40:2000 $X41X81İ90 .X61İ30:2000 8X81İ40:2000 BX101İ30:2000 L40  MAXX 32,0:23:1::U Z85:23:"IS YOUR PROGRAM LISTED HERE? Y/";::"N";::" ";:A$:w dA$"Y"MAXN1:N105::2000 n23:958:34,1:35,21::35,24: 60:X0 N1105 ((NA$(N),8,1))652000 ((NA$(N),8,1))61N105:2000 68(ST6UVk,ȱk-`),-`G ::63000]Y140:"=";::qX;:5:A$(X):(" "X" ";:6:(A$(X),15):2X" ";:5:(NA$(X),8,15):<1:20:22:20:34,1:2:FP33,21:32,19:1:1:: U33,40:     ٠ǠӠŠΧΠƠȠŠҠȮ٠ӠΧΠ٠ĠҠŠΠϠϮǠӠΧҠ̠ŠӠΧРĠ̠٠Ġ̠ԠӠҠҠήǠϠŠӠΠˠӠŮǠΠ٠ӠŠԠҠǠŠӠ׭ԭ̠ӠƠŠנӠ̠Ϡ͠ήƠŠӠŠŠŧӠǠϠԠӠԠŮŠĠŠϠӠҠĠΠΠήĠҠΧǠӠĠŠΠԠΠǮŠΠӠŠΠҠŠԠŠ̮ŠĠŠϠӠҠĠŠϠٮǠҠӠϠϠΠǠŠӠƠӮǠӠǠŠϠĠ͠٠ŠčŠӠŠӠϠȠҠŠĠӮ2 A$(13)ĺP$:P$"":LPLP1:LP60ĺ(12):LP0M P$P$A$:(P$)80800S t xP8011:(P$,P,1)" "Ă (P$,P1):LPLP1:LP60ĺ(12):LP0 @P$(P$,P):P0::800 pD$"CLOSE":D$"PR#0":d# SEND $1.00 TO:"; :"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012"::s "READY YOUR PRINTER AND TYPE 'P' TO PRINT MANUAL." 16368,0:A$:A$"P"A$"p"150 A$ ,D$"PR#1" D$"OPEN PLAYER'S MANUAL" 6000 XD$"READ PLAYER'S MANUAL" A$dD$(4):(21)<x::3:10:"PRINT MANUALS PROGRAM":"THIS PROGRAM WILL PRINT THE MANUAL FROM DISK TO A PRINTER IN SLOT 1"::"IF YOU DO NOT HAVE A PRINTER, YOU MAY OBTAIN PRINTOUTS OF THE MANUAL. SEND $1.00 TO:"; :"EAMON ADVENTUR   enter name AGAIN!!":503 X216,0:B$"B"B$:1000C (4);B$;A$] B$"EXEC":(4);B$;A$_ (4);"PR#3"&(4);"CATALOG"0500R("Enter program name to run."_-B$"RUN"g2A$w<(4);B$;A$}F(222)13ī600(222)6ĺ"Wrong name!! Try again.":50 (222)11ĺ"Incorrect parameter or form! BE more CAREFULL &  ҠӍ򮠠砳堧觠󮠠嬠宠塍ﬠ宠󮍍䠨宠䮍Π宠嬠󮍍Π宠宠䬠嬠箠䬠ŠϠŠ̠ĠƠΠ䠲Π䠢󢮠婠謠                      ! ! ! ! !!!!!!!!!" " " " """"ҠԍҠӍҠӍؠàǬ؍Ҡԍ؍̠Í΍РōàРԍנ ҢעǠàҢ čƍЫƫԢҠԍˍҠōҠÍӢҠԍԍҠōҠÍҠԍƫҠōƍҠōҠÍؠč؍׬؍ʍРԍԠЍĠƍԍĠ̍ҍҍҍҍˍؠÍ̠Ыàč؍ĠؠčЫ̍̍̍ĠưˍˍЍԠƍҠƹРÍРōԠčӠ·µӠųŠԠ·čˠ·ÍĠ·ƴƠ·ư̠·Π·ƵԍҍԍҫӍӠӠӠϠҍغӮٍýĠ׬ҩ˽ˠϠөӽҠŠԩҽӠϠ׍ֱïǠ    󩬠姠󮠠󺠵󮠠堳笠󮠠䮍Ӡԍ䬠䠭䬠衠ᬠ栰䭭嬠򮠠ᮠ讍젳䮠ᠹ󮍍ٍ󮠠쬠堨㩬塍嬠栱堨Ԡ쩠򠱰宠譭Ӎ󮠠宠쮠䠧󠧳ĸ嬠堠䩮Ӭ٬ L?   ʽ   LL׽ҍ 15 2A:3) Change the 22 to 60 - on my disk at Block 8C Byte 022MKNOTE:- After usingӠƠҠҠԠŠԠӠ̠宠栱嬠쭠󭭠場宠쬠󩮠嬠栨Í䠧짮䬠堨䩬ᠱ婬栨婺򠨵堨堨堨젨宍嬠󮠠ᠧ堳󿩠䠠嬠󠲬󠵠󮍍ģĸ宠䭠󮠠䮠쬠䬠򮠠笠堧秠䮍箍笠箍栠󬠭󬠲󬠱䠰󮠨9  D$(4)7D$"RUN THE WONDERFUL WORLD OF EAMON" 80"KD$(4)\(D$"CATALOG" EVER":"SEEN BEFORE! (AND NEVER WILL AGAIN.)":IN:X A COMPUTERIZED FANTASYs ROLE-PLAYING SYSTEMy RULES AND CORE PROGRAMS BY DONALD BROWN  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 (919)766-EN HE SAYS 'ARE YE READY T' TALK NOW?":vCNT13ĺ"THE MAN CUTS OFF ANOTHER FINGER!!!":"HE EATS THIS ONE TOO!!":/"THE MAN STARTS SLOWLY, 'WELL YE BE ":"OUTTA FINGERS!'":"THE MAN THEN SPINS AROUND AND RUNS YOU":"THROUGH WITH A SPEED YOU HAVE NYE'D BEST BE GIVIN'":"ME YER NAME LADDIE, IF YE KNOW WOTS":"GOOD FER YE!!!"SCNT2ĺ"I'VE 'BOUT HAD ME FILL O' YER SICK":"SENSA 'UMOR!!":"NOW GIMME YER NAME!!":(CNT3ĺ"THE MAN CUTS ONE OF YOUR FINGERS OFF!!":"HE THEN EATS IT!!!!":"THFUN IN THE HALL!'":8T350:DK$;"RUN MAIN HALL,S6,D1"^DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE": ///NO NAME ROUTINECNTCNT1:CNT1450M" HE PULLS OUT A SWORD AND BEGINS TO":"SHARPEN IT, SAYING 'OREHEAD AND SAYS, 'AH,"::"YE MUST BE NEW HERE! WELL, WAIT JUST"::"A MINUTE AND I'LL BRING SOMEONE OUT TO"::"TAKE CARE OF YE.'":@350:DK$;"RUN NEW CHARACTERS,S6,D1"JDK$::" HE LOOKS UP AND SAYS, 'AH, HERE YE"::"BE! WELL, GO AND HAVE :A$NAME$330R:DK$:" HE EVENTUALLY LOOKS AT YOU AND SAYS,"::"'YER NAME'S NA IN HERE. HAVE YE GIVEN"::"IT TO ME ARIGHT?'"::"HOW DO YOU ANSWER (HIT 'Y' OR 'N') ";"A$:A$"N"ĺA$::400:230,A$"Y"2906A$::" HE HITS HIS F(NAME$)20ĺ" HE SCOWLS AT YOU AND SAYS, 'YER"::"NAME'S TOO LONG FER ME BOOK. I CANNA"::"USE MORE THAN TWENTY LETTERS."::230" HE STARTS LOOKING THROUGH HIS BOOK,"::"MUTTERING ABOUT ";C1$::C2$:R1NC:DK$;"READ CHARACTERS,R";R:A$ YOU ARE GREETED THERE BY A BURLY"::"IRISHMAN WHO LOOKS AT YOU WITH A SCOWL"::"AND ASKS YOU, 'WHAT'S YOUR NAME?'"::"YOU GIVE HIM YOUR NAME (TYPE IT IN NOW) ";NAME$:NAME$""(NAME$)2(NAME$,1)"A"(NAME$,1)"Z"İ400:2305ĂX16368,0:(A$:A$"D"2209A$"M"190A$:::" AS YOU GO OVER TO THE MEN, YOU FEEL"::"A SWORD BEING THRUST THROUGH YOUR BACK"::"AND YOU HEAR SOMEONE SAY, 'YOU REALLY"::"MUST LEARN TO FOLLOW DIRECTIONS!'":yA$:::" "f "A CUBBYHOLE WITH A DESK. OVER THE DESK":"IS A SIGN WHICH SAYS 'REGISTER HERE":"OR ELSE!'": ::"DO YOU GO OVER TO THE DESK OR JOIN THE":" MEN DRINKING THE BEER?"::" (HIT 'D' FOR DESK OR 'M' FOR MEN) ";X11000:(16384)1550":DK$;"READ CHARACTERS,R0":NC:DK$ " YOU ARE IN THE OUTER CHAMBER OF THE":"HALL OF THE GUILD OF FREE ADVENTURERS.":"MANY MEN AND WOMEN ARE GUZZLING BEER" "AND THERE IS LOUD SINGING AND LAUGHTER."::" ON THE NORTH SIDE OF THE CHAMBER IS(4):DK$;"BLOAD EAMON.PIC,A$2000":16304,0:16297,0:16302,0W xX((78)(79)) }DK$"OPEN SNAPPY,L64":DK$"READ SNAPPY,R0":NS:R((1)NS1):DK$"READ SNAPPY,R";R:CM$:C1$(CM$,23):C2$(CM$,24):DK$"CLOSE SNAPPY"& DK$;"OPEN CHARACTERS,L1AND EITHER SENDS TO- $///MAIN HALL (IF OLDJ %///CHARACTER) OR TO NEWg &///CHARACTERS (IF NEW).m ' d(4);"MAXFILES 3" i:::"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012":"(919)766-7490":I1500::::A nDK$7490 '  DRAGON PICTURE SHOWN?  DURING PROGRAM BY]  R.L. PHILLIPS & FRIENDSw  OF ANN ARBOR, MICH.  THE BEAUTY IS GREATLY  ENJOYED.  ///BOOTUP PROGRAM FOR !///EAMON UNIVERSE. "///GETS NAME OF PLAYER #///0 THE WONDERFUL WORLD OF4 EAMON:X A COMPUTERIZED FANTASYs ROLE-PLAYING SYSTEMy RULES AND CORE PROGRAMS BY DONALD BROWN  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 (919)766-     נϠ٠΍Πɬ嬠򠱠報䠧孠󮠠䮍䮠󮠠宍䬠쬠䮠䭠󮠠宠졍ǠȠӍ쮍쬠󮠠쬠󮍍٠嬠笠ҍ砢硢殠報讍č󮠠쬠宠Ķ堨̍䬠ᠵ箍場庍ԍHE THINGS HE HAS TO GO,HE SHOULD HAVE LISTENED6& 40 THAN WIPING THE NOSES OF GREENHORNS.,NEEDING SOMEONE TO LEAD THEM BY THE HAND,THROUGH FOR SOME STUPID UPSTARTS.,TO HIS MOTHER AND BEEN A BRAIN SURGEON.:}]U]Yп那ȇಠ"<"0ǟ࿈$$فȖ$  描ῠȁ6""$" " "  }kI]]਼揿"0ऎ񟈌$؛  $̱>"" > О쁠"  Aw]c]ο"  >>Ɓ ǟ ȇФ£ۃ㟬Ⴣ Ïئ          A]]c]Á́Ʊ"<"Ã">>Ł<"< < " Ȣ "< "<賐Ї"""" """"""""""""*"""""""""""" ""*"""}]]]]6""""0ύ࿂""" 8""8"8̣ 8 "" 8"""號Ё>""2<><""""""<"""*">"*$>>"2"""**><"""*>"*>"}A]]M迌сر*>"*>">>$$>0<"<$">$<$"$ȁ$>*">$">""Ġ"*"*  "  """""" <"""""*$" "<ρÁ㣞*"">"**" <   """""*"<a]U]Uȁؿكș*""*""""$$"0·޿ " $"">$ $ "$$"*<" $""<"ᗠ"*"&<" ""< Ƈ&<< "< 묠䠱宍堵䬠򬠲쬠䠵嬠嬠쬠栱栵栭婬栰婬䠨栱婮󠵠嬠Ķ栲ᠱĶ栴ᠱĴ栲ᠱĵ栲ᠱĸ򮍍󮍍ǠӠĠҍ堲嬠孠宠䮠ɠ䮠àԧ婮宠嬠䬠宠庠󮠠塩殍笠򡩮ǠΠΠō󮠠歠󮠠宠栠宠嬠嬠뮠쬠쮍堢â쮠뮠䬠ā̃>"""<<<""<<"<"<<""<""<<<<"<"<EY TO CONTINUE) ";:A$::|"YOU MAY ALSO HIRE A WIZARD TO TEACH YOU":"SOME MAGIC SPELLS. THERE ARE FOUR":"SPELLS YOU MAY LEARN."::"BLAST--HURT YOUR ENEMIES FROM A DISTANCEHEAL --REMOVE DAMAGE FROM YOUR BODY.":"SPEED--DOUBLE YOUR DEXTERITY FOR A "AFTER YOU BEGIN TO ACCUMULATE WEALTH,":"YOU MAY WANT TO PUT SOME OF YOUR MONEY":"INTO THE BANK, WHERE IT CANNOT BE":"STOLEN. HOWEVER, IT IS A GOOD IDEA TO":"CARRY SOME GOLD WITH YOU FOR USE IN"r"BARGAINING AND RANSOM SITUATIONS."::"(HIT ANY K YOUR":"CHARISMA LESS TEN, DIFFERENCE TIMES TWO":"(";(CH10)2;"%)":^"YOU START OFF WITH 200 GOLD PIECES,":"WHICH YOU WILL WANT TO SPEND ON SUPPLIESFOR YOUR FIRST ADVENTURE. YOU WILL GET":"A LOWER PRICE FOR ITEMS IF YOUR CHARISMAIS HIGH.":hOLD THINGS SUCH AS"::" 'WOW! THAT ONE HURT!'":"OR 'YOU DON'T FEEL VERY WELL'":J"(HIT ANY KEY TO CONTINUE) ";:A$::GT"YOUR CHARISMA (";CH;") AFFECTS HOW CITIZENS":"OF EAMON REACT TO YOU. YOU AFFECT A":"MONSTER'S FRIENDLINESS RATING BY6"ADDITIONALLY, YOUR HARDINESS TELLS HOW":"MANY POINTS OF DAMAGE YOU CAN SURVIVE.":"THEREFORE, YOU CAN BE HIT WITH ";HD:"1-POINT BLOWS BEFORE YOU DIE.":U@"HOWEVER, YOU WILL NOT BE TOLD HOW MANY":"BLOWS YOU HAVE TAKEN. YOU WILL BE":"MERELY THOWEVER, THE NET EFFECT OF ARMOUR":"WILL NEVER INCREASE YOUR CHANCE TO HIT.":|""(HIT ANY KEY TO CONTINUE) ";:A$::,:"YOU CAN CARRY WEIGHTS UP TO TEN TIMES":"YOUR HARDINESS, OR ";HD10;" GRONDS.":"(A MEASURE OF WEIGHT, ONE GROND=10 DOS)":5);"-60%":" SHIELD";18);1;35);"- 5%":::"YOU WILL DEVELOP AN ARMOUR EXPERTISE,":"WHICH WILL GO UP WHEN YOU HIT A BLOW":"WEARING ARMOUR AND YOUR EXPERTISE IS":"LESS THAN THE ARMOUR YOU ARE WEARING."O"NO MATTER HOW HIGH YOUR ARMOUR EXPERTISEIS, ACED UPON YOU(ALMOST":"ALWAYS!) BUT THEY LOWER YOUR CHANCE TO""HIT. THE PROTECTIONS ARE--"::"ARMOR";15);"HITS PROTECT ODDS ADJUST"::" NONE";18);"0";35);"- 0%":" LEATHER";18);1;35);"-10%":" CHAIN";18);2;35);"-20%"" PLATE";18);5;3DOM NUMBER FROM 1-100":"IS LESS THAN YOUR CHANCE TO MISS!":g"(HIT ANY KEY TO CONTINUE)";:A$::?"THERE ARE FOUR ARMOR TYPES, AND YOU MAY":"ALSO CARRY A SHIELD IF YOU DO NOT USE":"A TWO-HANDED WEAPON. THESE PROTECTIONS":"WILL ABSORB HITS PLTH EACH) ARE--":" CLUB/MACE 20%":" SPEAR 10%":" AXE 5%":" SWORD 0%":" BOW -10%":="EVERY TIME YOU SCORE A HIT IN BATTLE,":"YOUR ABILITY IN THE WEAPON CLASS MAY GO":"UP BY 2%, IF A RANE WORLD OF EAMON ": :"YOU WILL HAVE TO BUY A WEAPON. YOUR":"CHANCE TO HIT WITH IT WILL BE THE":"WEAPON COMPLEXITY, PLUS YOUR ABILITY":"IN THAT CLASS, PLUS TWICE YOUR AGILITY.": "THE FIVE CLASSES OF WEAPONS (AND YOUR":"CURRENT ABILITIES WI;HD:" AGILITY --";AG:" CHARISMA --";CH;"'":I }HDAGCH39İ600 "(HIT 'R' TO READ INSTRUCTIONS, 'T' TO GIVE THEM BACK)"; A$:A$"T"500 A$"R"140 ::"YOU READ THE INSTRUCTIONS AND THEY SAY--"::" INFORMATION ABOUT THS AWAY AND IN WALKS A":"TALL MAN OF POSSIBLY ELVISH DESCENT."::"HE STUDIES YOU FOR A MOMENT AND SAYS,":"'HERE IS A BOOKLET OF INSTRUCTION FOR" d"YOU TO READ, AND YOUR PRIME ATTRIBUTES":"ARE--": nHDA(8):AGA(8):CHA(8)3 x" HARDINESS--"$;"READ THE ADVENTURER":NAME$:DK$;"CLOSE" 2:"THE IRISHMAN SAYS, 'FIRST I MUST KNOW":"WHETHER YE BE MALE OR FEMALE. WHICH ARE":"YE (HIT 'M' FOR MALE, 'F' FOR FEMALE)?"; <SEX$:SEX$"M"80 FSEX$"F"60 PSEX$: Z:"THE IRISHMAN WALK THE WONDERFUL WORLD OF4 EAMON:V CHARACTER GENERATORp AND INSTRUCTIONSv BY DONALD BROWN DK$(4)R(X)(X(1)1)A(X)R(X)R(X)R(X)+ (DK$;"OPEN THE ADVENTURER,S6,D1":DK         讠䬠졮箠宠宠ɠ򮠠䬠讍ŠҧӠō䬠嬠󮠠塍ǠŠō宠嬠쬠嬠嬠󮠠뮩Ǡƍ嬠䬠宍Šҍ쬠宠庠򠨱󩬠젨䠨嬠쬠孠ǠӍ. ENTER 'Y' TO"::"COMMIT SUICIDE, ELSE 'N'";KlA$:A$"Y"A$"N"620]v::A$"N"ı"WE RESSURRECT YOU AGAIN AND YOUR PRIME"::"ATTRIBUTES ARE --":::110D"0":JS:"0":SEX$:JG:"0":"0"560DE"TDDK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE"mNDK$;"RUN MAIN HALL"sSX /// SUICIDE ROUTINE .b:"YOUR CHARACTER IS SUCH A POOR EXCUSE"::"FOR AN ADVENTURER THAT WE WILL ALLOW"::"YOU TO COMMIT SUICIDEEAD CHARACTERS,R";R:A$:A$""Ă:DK$;"WRITE CHARACTERS,R0":NC1:RNC1pDK$;"WRITE CHARACTERS,R";R:NAME$HD:AG:CH:X14:"0":&"5":"-10":"20":"10":"0":"0":SEX$:"200":"0":"0"0W14:"NONE":"0":"0":"0,0"::DK$;"CLOSND SAYS, 'IT IS NOW TIME":"FOR YOU TO START YOUR LIFE.' HE MAKES":"AN ODD SIGN WITH HIS HAND AND SAYS,":"'LIVE LONG AND PROSPER.'":"YOU NOW WANDER INTO THE MAIN HALL."IDK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:R1NC:DK$;"RTHEYWERE FOUND. THUS, IT IS BEST (AND YOU""HAVE NO CHOICE BUT TO) SELL ALL ITEMS":"FOUND IN ADVENTURES, EXCEPT FOR WEAPONS":"AND ARMOUR.":"(HIT ANY KEY TO CONTINUE) ";:A$::"THE MAN BEHIND THE DESK TAKES BACK THE":"INSTRUCTIONS ATIME"Y"POWER--DOES SOMETHING WEIRD. THE EXACT":" EFFECT IS UNPREDICTABLE.":+:"OTHER TYPES OF MAGIC MAY WORK IN VARIOUSADVENTURES, AND ITEMS MAY HAVE SPECIAL":"PROPERTIES. HOWEVER, THESE WILL NOT":"WORK IN OTHER ADVENTURES THAN WHERE LES AND SAYS, 'COME BACK":"AGAIN SOON!' AS HE SHOOS YOU OUT OF HIS":"SHOP."::100:"MARCOS ASKS YOU, 'IS THIS WEAPON YOU":"WANT TO SELL ME A STANDARD WEAPON LIKE":"I SELL? (HIT 'Y' OR 'N') ";A$:A$"Y"2350A$"N"2230A$::PDGOLDPOf"MARCOS HANDS YOU YOUR WEAPON AND TAKES":"THE PRICE FROM YOU.":epGOLDP(50)2210z"HE NOW ASKS YOU, 'NOW HOW ABOUT SOME":"ARMOUR?'"::"(HIT Y OR N) ";A$:A$"N"ĺA$::2210A$"Y"2180A$:2490T"MARCOS SMIBACK WHEN YOU GOTTA MORE":"GOLD OR YOU WANT SOMETHING YOU CAN":"AFFORD.' HE THEN SHOOS YOU OUT THE":"DOOR."::100HW14:WN$(W)N$N$N$"#":2120RW:W14:WN$(W)"NONE"Ă\WN$(W)N$:WT%(W)TP:WO%(W)10(2Q):WD%(W)DICE:WS%(W)SIDES:GOLBP2):"WHICH DO YOU WANT?'"::"(HIT THE KEY, G F OR P) ";f*A$:Q13:A$("GFP",Q,1)Ă:20904A$:PBPBP(Q1)BP2(Q3):PP(P)u>PGOLDĺ:"MARCOS SHAKES A FINGER AT YOU AND SAYS,":"'YOU SHOULDN'T PLAY TRICKS ON AN OLD":"FRIEND! COME A AXE, BOW,":"MACE, SPEAR, OR SWORD?"::2650:"MARCOS SAYS, 'WELL, I JUST HAPPEN TO":"HAVE THREE ";N$;"S IN, OF VARYING":"QUALITY. I'VE GOT A VERY GOOD ONE FOR":P(2BP);" GP, A FAIR ONE FOR ";P(BP);" GP,"= "AND A KINDA SHABBY ONE FOR ";P(90WN$(4)"NONE"ĺ"MARCOS SMILES AT YOU AND SAYS, 'THATSA":"GOOD, BUT FIRST YOU GOTTA SELL ME A":"WEAPON. YOU KNOW THE LAW--NO MORE THAN":"FOUR WEAPONS PER PERSON!'"::2220. "MARCOS SMILES AT YOU AND SAYS, 'GOOD.":"I GOTTA THE BEST. YOU WANTSN'T MY OLD PAL":NAME$;"! SO, YOU WANT TO":"BUY A WEAPON, SELL A WEAPON, OR GET":"SOME BETTER ARMOUR?"::"(HIT THE KEY, B S OR A) ";C2CH(11(1)5):C2C2(C20):RTIO10C2A$:TR13:A$("BSA",TR,1)Ă:2030A$::TR2050,2220,24::b$DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:200:DK$;"CLOSE":DK$;"RUN ";ADNAME$:"AS YOU ENTER THE WEAPON SHOP, MARCOS":"CAVIELLI (THE OWNER) COMES FROM OUT OF":"THE BACK ROOM AND SAYS, 'WELL, AS I""LIVE AND BREATH, IF IT IINNERS CAVE) IN"::"DISK DRIVE IN SLOT SIX, DRIVE ONE THEN"::"HIT 'C'"::::" ";:16368,0yA$:A$"C"1020DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE":5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:AE:SEX$_ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):We DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC::DK$;"CLOSE"c:5:"INSERT DISKETTE WITH ADVENTURE (OR KEEP"::"THIS DISKETTE FOR BEG" 5. EXAMINE YOUR ABILITIES.":" 6. TEMPORARILY LEAVE THE UNIVERSE."u x:"(HIT THE KEY FOR YOUR CHOICE, 1-6)"; A$:CMD(A$):CMD1CMD6130 CMD::CMD1000,2000,3000,4000,5000,6000 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X):: YOU CAN DO ONE OF SIX THINGS--":" 1. GO ON AN ADVENTURE.":" 2. VISIT THE WEAPON SHOP FOR WEAPONS AND/OR ARMOUR."H n" 3. HIRE A WIZARD TO TEACH YOU SOME SPELLS.":" 4. FIND THE BANKER TO DEPOSIT OR":" WITHDRAW SOME GOLD.":AD CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AEU <SEX$ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE" PP(X)(XRTIO.5)} d:"AS YOU WANDER ABOUT THE HALL, YOU":"REALIZE7012  DK$(4)o :5:"EAMON ADVENTURER'S GUILD":"7625 HAWKHAVEN DR.":"CLEMMONS, NC 27012":I1500:z 7000 DK$;"OPEN THE ADVENTURER":DK$;"READ THE ADVENTURER":NAME$:REC:DK$;"CLOSE" (100K 2DK$;"OPEN CHARACTERS,L150":DK$;"RE- THE WONDERFUL WORLD OF2 EAMON8T MAIN HALL (BUY SPELLSp AND EQUIPMENT AND GO ON ADVENTURES) BY DONALD BROWN REV. 10/19/89 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 2                    HICH WILL IT BE?'"::"(HIT THE KEY FOR YOUR SPELL:":" N FOR NOTHING, OR B,H,S OR P) ";& A$:SP15:A$("BHSPN",SP,1)Ă:3040& SP3060,3070,3080,3090,3200& "BLAST":PP(3000):3100& "HEAL":PP(1000):3100' "SPEED":PP(5000):3TO TEACH YOU SOME MAGIC, HEH HEH?"}% "WELL, IT'LL COST YOU. TODAY MY FEES ARE:":C2CH(11(1)5):C2C2(C20):RTIO10C2% " BLAST ";P(3000);"GP":" HEAL ";P(1000);"GP":" SPEED ";P(5000);"GP":" POWER ";P(100);"GP":\& "WELL, W:BP25:TP4:SIDE5:N$"SPEAR":27505$ A$"W"2720^$ "WORD":BP50:N$"SWORD":TP5:SIDE8k$ DICE1:q$ "% :"AFTER A FEW MINUTES DILIGENT SEARCHING,":"YOU FIND HOKAS TOKAS, THE OLD MAGE. HE":"LOOKS AT YOU AND SAYS, 'SO YOU WANT OLD":"TOKEY B M SP OR SW) ";:=#d A$:W14:A$("ABMS",W,1)Ă:2660X#n W2680,2690,2700,2710#x "AXE":BP25:N$"AXE":TP1:SIDE6:2750# "BOW":BP40:N$"BOW":TP2:SIDE6:2750# "MACE":BP20:N$"MACE":TP3:SIDE4:2750# A$;:#$ A$:A$"P"ĺ"PEAR"DO NOT HAVE":"ENOUGH GOLD TO BUY THE SHIELD, MARCOS":"FROWNS AND SAYS, 'I'M SORRY, BUT I":"DON'T GIVE CREDIT!'"::2630"< GOLDGOLDP(50):SH1:"MARCOS TAKES YOUR GOLD AND GIVES YOU":"A SHIELD.":"F ACA22SH::100"P #Z "(HIT THE KEY(S), ADP:A2A1! SH2630! "MARCOS SMILES AND SAYS, 'NOW HOW ABOUT":"A SHIELD? I CAN LET YOU HAVE ONE FOR":"ONLY ";P(50);" GOLD PIECES!'"::"(HIT Y OR N)";! A$:A$"N"ĺA$::2630!( A$"Y"2590z"2 A$::GOLDP(50)ĺ"WHEN HE SEES THAT YOU 3)500(A4))TI:PGOLDĺ"MARCOS FROWNS WHEN HE SEES THAT YOU DO":"NOT HAVE ENOUGHT TO PAY FOR YOUR":"ARMOUR AND SAYS, 'I DON'T GIVE CREDIT!'"::2570 ! "MARCOS TAKES YOUR OLD ARMOUR AND YOUR":"GOLD AND HELPS YOU INTO YOUR NEW":"ARMOUR."::GOLDGOLTE.":` TIĺ"ALSO, I CAN GIVE YOU A TRADE-IN ON YOUR":"OLD ARMOUR OF ";TI;" GOLD PIECES.": "WELL, WHAT WILL IT BE?'"::"(HIT N FOR NOTHING OR L C OR P) "; A$:A14:A$("NLCP",A,1)Ă:2530 A$::A12570 PP(100(A2)250(A SHOWS YOU SUITS OF":"LEATHER ARMOUR, CHAIN ARMOUR, AND PLATE.":TIB12TIB12 :"HE SAYS, 'I CAN PUT YOU IN ANY OF THESE":"VERY CHEAPLY. I NEED ";P(100);" GOLD":"PIECES FOR THE LEATHER, ";P(250);" FOR":"THE CHAIN, AND ";P(500);" FOR THE PLA40,2450,2460,2470~ X( BP25:23708 BP40:2370H BP20:2370g (W$,2,1)"P"BP25:2370w BP50:2370Q A2(AC2):SHACA22:B125(A21)60(A22)100(A23):TI(B1RTIO.5):"MARCOS TAKES YOU TO THE ARMOUR SECTION":"OF HIS SHOP ANDUR WEAPONS AND SAYS,":"'WELL, YOU'VE BANGED IT UP A BIT, BUT":"I CAN GIVE YOU ";P;" GOLD PIECES":"FOR IT, TAKE IT OR LEAVE IT.'"::"(HIT T OR L) ";V A$:A$"L"ĺA$::2210` A$"T"2390j A$::2300t :X14:("ABMS",X,1)(W$,1)ĴX24ON YOU":"WANTA RETURN?"::2650:8 W2W:W14:(WN$(W),(N$))N$Ă:"MARCOS LAUGHS AND SAYS, 'YOU NEVER":"BOUGHT ONE FROM ME, REMEMBER?'"::2210B BPBPBP(WO%(T)5)BP2(WO%(T)5):P(BPRTIO.5):PBP4P(BP4.5)L "MARCOS EXAMINES YO(W21):WO%(W2)WO%(W21):WD%(W2)WD%(W21):WS%(W2)WS%(W21)::WN$(4)"NONE" :"MARCOS ASKS YOU, 'HOW ABOUT BUYING A":"WEAPON?'"::"(HIT Y OR N) "; A$:A$"Y"ĺA$::2050 A$"N"2320$ A$::2160". :"MARCOS ASKS, 'WELL, WHAT WEAP$,5)"SPEAR"(W$,4)"MACE"(W$,3)"BOW"(W$,3)"AXE":Lĺ"MARCOS FROWNS AT YOU AND SAYS, 'THIS IS":"A WEAPON LIKE I SELL, REMEMBER!'":2420L"MARCOS GIVES YOU YOUR MONEY AND TAKES":"YOUR WEAPON."::GOLDGOLDP:W2W4:WN$(W2)WN$(W21):WT%(W2)WT%:W14:WN$(W)W$Ă::"MARCOS FROWNS AT YOU AND SAYS, 'YOU":"CAN'T SELL A WEAPON YOU DON'T OWN!'"::2210W$"NONE"ĺ:"MARCOS FROWNS AND SAYS 'THEN WHY DO YOU WASTE MY TIME?'"::"MARCOS SHOOS YOU OUT OF HIS STORE.":100L(W$,5)"SWORD"(W(50RTIO.5):"MARCOS SAYS, 'THEN I CAN ONLY GIVE YOU":P;" GOLD PIECES FOR IT, TAKE IT OR":"LEAVE IT!'"::"(HIT T OR L) ";A$:A$"L"ĺA$::2210A$"T"2260mA$::"MARCOS SAYS, 'OKAY, WHAT'VE YOU GOT?"::"(ENTER THE WEAPON NAME)";W$ԠŢ䬠䮠󮠠嬠$;"WRITE CHARACTERS,R";REC:200:DK$;"CLOSE"M5DK$;"DELETE THE ADVENTURER"S55X(222)5ĺ(4);"RUN THE WONDERFUL WORLD OF EAMON"5ll BY DONALD BROWN REV. 10/19/89 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 2 D ";WS%(W)K4W:23:16368,0:"(HIT ANY KEY TO CONTINUE) ";:A$::100Q44p"AS YOU LEAVE THE HALL, THE IRISHMAN":"COMES UP TO YOU, SLAPS YOU ON THE BACK":"AND SAYS, 'Y'ALL COME BACK REAL SOON,":"YA HEAH?'",5zDK$;"OPEN CHARACTERS,L150":DK30);"AE=";AE;"%"::"GOLD IN HAND=";GOLD;", BANK=";BANK"|3:"WEAPONS";19);"CMPLX DAM":W14:W1WN$(W)"NONE"50903WN$(W)"NONE"ĺ:" NO WEAPONS":5090 4WN$(W);20(WO%(W)0)((WO%(W))10)((WO%(W))100));WO%(W);"% ";WD%(W);"2::"YOUR WEAPON ABILITIES ARE--":" AXE BOW CLUB SPEAR SWORD":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";::2:A2(AC2):"ARMOUR: ";("SKIN LEATHERCHAIN PLATE ",A271,7);:ACA22ĺ" AND SHIELD";83"YOU ARE THE ";("MIGHTY FAIR ",17(SEX$"F"),7);NAME$::"YOUR ATTRIBUTES ARE:":" HD=";HD;" AG=";AG;" CH=";CH:1"YOU KNOW THE FOLLOWING SPELLS--":SM0:S14:SA%(S)ĺ("BLASTHEAL SPEEDPOWER",(S1)51,5);" ";:SM11S:SMĺ" NO SPELLS";ON YOU,":"HE WALKED AWAY, SHOUTING ABOUT FOOLS":"WHO PLAY TRICKS ON A KINDLY BANKER."::1000GOLDGOLDMNY:BANKBANKMNY:"SHYLOCK TAKES YOUR MONEY, PUTS IT IN":"HIS BAG, LISTENS TO IT JINGLE, THEN":"THANKS YOU AND WALKS AWAY."::1000"u1:MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AT YOU AND SAYS,":"'COME, COME, YOU'RE NOT MAKING SENSE!":"TRY AGAIN.'"::4100^0MNYGOLDĺ:"THE BANKER WAS VERY PLEASED WHEN YOU":"TOLD HIM THE SUM, BUT WHEN HE DISCOVEREDTHAT YOU DIDN'T HAVE THAT MUCH PIECES IN MY CARE.' HE SHAKES YOUR":"HAND AND WALKS AWAY."::100."SHYLOCK GETS A WIDE GRIN ON HIS FACE":"AND SAYS, 'GOOD FOR YOU! HOW MUCH DO":"YOU WANT TO DEPOSIT?'"~/:"(ENTER THE AMOUNT YOU WANT TO DEPOSIT)":" ";A$:MNY(A$):MNY0:"AND SAYS, 'THAT'S MORE THAN YOU'VE GOT!":"YOU KNOW I DON'T MAKE LOANS TO YOUR":"KIND!' WITH THAT HE LOSES HIMSELF IN":"THE CROWD."::100C.GOLDGOLDMNY:BANKBANKMNY::"THE BANKER HANDS YOU YOUR GOLD AND":"SAYS, 'THAT LEAVES YOU WITH ";BANK:","(ENTER THE NUMBER OF GOLD PIECES TO":" WITHDRAW) ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AND SAYS,'COME, COME,":"YOU'RE NOT MAKING SENSE! TRY AGAIN.'"::4060-MNYBANKĺ:"THE BANKER THROWS YOU A TERRIBLE GLANCE""TO MAKE A DEPOSIT OR A WITHDRAWL?'"::"(HIT 'D' FOR DEPOSIT, 'W' FOR WITHDRAWL) ";s+A$:A$"D"ĺA$::4090+A$"W"4030+A$::"SHYLOCK SAYS, 'WELL, YOU HAVE ";BANK:"GOLD PIECES STORED WITH ME. HOW MANY":"DO YOU WANT TO TAKE BACK?'":OTTING SHYLOCK":"MCFENNEY, THE LOCAL BANKER, DUE TO HIS":"LARGE BELLY."::"YOU ATTRACT HIS ATTENTION, AND HE COMES":"OVER TO YOU AND SAYS, 'WELL,"*NAME$;", MY DEAR ";("GIRLBOY",(SEX$"M")41,4);",":"WHAT A PLEASURE TO SEE YOU! DO YOU WANT"W+ON":"THE BAR. AS YOU WALK AWAY YOU HEAR"Y): "HIM ORDER A DOUBLE DRAGON BLOMB."::100_)D ) ::"AS YOU LEAVE, YOU HEAR HOKAS MUTTERING":"ABOUT CHEAPSKATE ADVENTURERS ALWAYS":"WANTING SOMETHING FOR NOTHING."::100*:"YOU HAVE NO TROUBLE SPYWAY, BUT HAVEN'T YOU FORGOTTEN":"SOMETHING? I ALREADY TAUGHT YOU THAT":"SPELL!'"::"SHAKING HIS HEAD SADLY, HE RETURNS TO":"BAR."::100*)0 GOLDGOLDP:SA%(SP)(50(1)26):"HOKAS TEACHES YOU YOUR SPELL, TAKES":"HIS FEE, AND RETURNS TO HIS STOOL 100' "POWER":PP(100)' :PGOLDĺ"WHEN HOKAS SEES THAT YOU DON'T HAVE":"ENOUGH TO PAY HIM, HE STALKS TO THE":"BAR, MUTTERING ABOUT YOUNGSTERS WHO":"SHOULD BE TURNED INTO FROGS."::100(& SA%(SP)ĺ"HOKAS SAYS, 'I OUGHT TO TAKE YOUR":"GOLD AN䬠堧ǠħǠ٧ԠĠ٧󮠠䬠宠Š젧䧠宠䩠䮠Ǻ٠ԠŠ宠ԠĠ٧ǠĠ٧Ǡħ󻠧ҧРˠ䬠宠宍Ӻﮠ堧Ǡ򠲰ǠĠź庠ŠϠ砧à纠ŠϠ͠鍍򠱰ﮠᩮ쮍嬠宠嬠ź笠쬠堨詮ﬠ蠨ˠ䮍Ԡ򡩠Ԡ̠宠䮍άӬŬ׬լĬȬȬԬԬЬΠ٠ɢ箍٠Ġ٠Р٠䮠詮RT ";:A$:A$:A$"C"Ā5 DK$;"OPEN CHARACTERS" (DK$;"DELETE CHARACTERS":DK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R0":"1":DK$;"WRITE CHARACTERS,R1"::DK$;"CLOSE"A THE WONDERFUL WORLD OF2 EAMON8T INITIALIZE CHARACTERSg FILEm BY DONALD BROWN DK$(4) :::"WARNING--INITING LOSES ALL OLD PLAYERS":::"HIT 'C' TO CONTINUE, ANY OTHER KEY TO":"ABO!! "CLOSE"::"O.K. ";NA$;" YOU HAVE BEEN RESURRECTED.":c "I CAN'T FIND ANY DEAD ";NA$:D$"CLOSE"i Dk D$(4):@"NAME OF CHARACTER TO BE RESSURECTED:":NA$~D$"OPEN CHARACTERS,L150":D$"READ CHARACTERS,R0":NC:D$2R1NC:D$"READ CHARACTERS,R";R:N$:ME$<N$""Ă:500FME$(NA$,2)Ă:5006 PD$"WRITE CHARACTERS,R";R:NA$:D$""䍠򮍠à宠󮠠⬠򠱰宠󮠠󮠠Ǡ묠宍嬠宠򮠠ﮍﮠ箍嬠亍庠썠󺠧姠򮠠嬠򮠠READ CHARACTERS,R";N:N$:DK$:"#";N;": ";N$O n" KEEP (HIT 'Y' OR 'N')?";h xA$:A$"Y"ĺA$:160y A$"N"120 A$ DK$;"WRITE CHARACTERS,R";N: N:DK$;"CLOSE":  THE WONDERFUL WORLD OF4 EAMON:W VIEW NAMES/REMOVER OFs CHARACTERS STORED ON DISKETTE. BY DONALD BROWN- dDK$(4):DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:N1NC:DK$;"""