' +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-)()w `ΠҠΠ@跻~!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`A]]c]Á́Ʊ"<"Ã">>Ł<"< < " Ȣ "< "<賐Ї"""" """"""""""""*"""""""""""" ""*"""}]]]]6""""0ύ࿂""" 8""8"8̣ 8 "" 8"""號Ё>""2<><""""""<"""*">"*$>>"2"""**><"""*>"*>"}A]]M迌сر*>"*>">>$$>0<"<$">$<$"$ȁ$>*">$">""Ġ"*"*  "  """""" <"""""*$" "<ρÁ㣞*"">"**" <   """""*"<a]U]Uȁؿكș*""*""""$$"0·޿ " $"">$ $ "$$"*<" $""<"ᗠ"*"&<" ""< Ƈ&<< "< 0);" FOR THE PLATE.":p 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(1"OF HIS SHOP AND 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(501)(W$,1)ĴW2440,2450,2460,2470(~ W8 BP25:2370H BP40:2370X BP20:2370w (W$,2,1)"P"BP25:2370 BP50:2370a A2(AC2):SHACA22:B125(A21)60(A22)100(A23):TI(B1RTIO.5):"MARCOS TAKES YOU TO THE ARMOUR SECTION":RCOS EXAMINES YOUR 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$::2300!t :W14:("ABMS",W,'WELL, WHAT WEAPON 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 "MA21):WT%(W2)WT%(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$::21602. :"MARCOS ASKS, $,5)"SWORD"(W$,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!'":2420\"MARCOS GIVES YOU YOUR MONEY AND TAKES":"YOUR WEAPON."::GOLDGOLDP:W2W4:WN$(W2)WN$(WR L) ";%A$:A$"L"ĺA$::22107A$"T"2260A$::"MARCOS SAYS, 'OKAY, WHAT'VE YOU GOT?"::"(ENTER THE WEAPON NAME)";W$:W14:WN$(W)W$Ă::"MARCOS FROWNS AT YOU AND SAYS, 'YOU":"CAN'T SELL A WEAPON YOU DON'T OWN!'"::2210L(WPE 'N' ";&lA$:A$"Y"A$"N"6208v::A$"N"ı"WE RESSURRECT YOU AGAIN AND YOUR PRIME"::"ATTRIBUTES ARE --":::110CT YOU AGAIN AND YOUR PRIME"::"ATTRIBUTES ARE --":::110":"0"560D::DK$;"CLOSE"eDDK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE"~NDK$;"RUN MAIN HALL"SX /// SUICIDE ROUTINE b:"IF YOU WISH, WE WILL ALLOW YOU TO COM-":"MIT SUICIDE. ENTER 'Y' TO SUICIDE,":"ELSE TYC:R1NC:DK$;"READ CHARACTERS,R";R:A$:A$""Ă:DK$;"WRITE CHARACTERS,R0":NC1:RNC1DK$;"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":"INSTRUCTIONS AND 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."ZDK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NTURES THAN WHERE THEYWERE 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" DEXTERITY FOR A TIME"j"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 ADVENā̃>"""<<<""<<"<"<<""<""<<<<"<"<COME, YOU'RE NOT MAKING SENSE!":"TRY AGAIN.'"::4100/MNYGOLDĺ:"THE BANKER WAS VERY PLEASED WHEN YOU":"TOLD HIM THE SUM, BUT WHEN HE DISCOVEREDTHAT YOU DIDN'T HAVE THAT MUCH ON YOU,":"HE WALKED AWAY, SHOUTING ABOUT FOOLS":"WHO PLAY TRICKS ON A "SHYLOCK GETS A WIDE GRIN ON HIS FACE":"AND SAYS, 'GOOD FOR YOU! HOW MUCH DO":"YOU WANT TO DEPOSIT?'"6.:"(ENTER THE AMOUNT YOU WANT TO DEPOSIT)":" ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AT YOU AND SAYS,":"'COME, S TO YOUR":"KIND!' WITH THAT HE LOSES HIMSELF IN":"THE CROWD."::100,GOLDGOLDMNY:BANKBANKMNY::"THE BANKER HANDS YOU YOUR GOLD AND":"SAYS, 'THAT LEAVES YOU WITH ";BANK:"PIECES IN MY CARE.' HE SHAKES YOUR":"HAND AND WALKS AWAY."::100i-):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AND SAYS,'COME, COME,":"YOU'RE NOT MAKING SENSE! TRY AGAIN.'"::4060H,MNYBANKĺ:"THE BANKER THROWS YOU A TERRIBLE GLANCE":"AND SAYS, 'THAT'S MORE THAN YOU'VE GOT!":"YOU KNOW I DON'T MAKE LOANWITHDRAWL) ";+*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?'":}+"(ENTER THE NUMBER OF GOLD PIECES TO":" WITHDRAW) ";A$:MNY(A$"::"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"*"TO MAKE A DEPOSIT OR A WITHDRAWL?'"::"(HIT 'D' FOR DEPOSIT, 'W' FOR OU YOUR SPELL, TAKES":"HIS FEE, AND RETURNS TO HIS STOOL ON":"THE BAR. AS YOU WALK AWAY YOU HEAR"(: "HIM ORDER A DOUBLE DRAGON BLOMB."::100(D N):"YOU HAVE NO TROUBLE SPOTTING SHYLOCK":"MCFENNEY, THE LOCAL BANKER, DUE TO HIS":"LARGE BELLY.'& SA%(SP)ĺ"HOKAS SAYS, 'I OUGHT TO TAKE YOUR":"GOLD ANYWAY, BUT HAVEN'T YOU FORGOTTEN":"SOMETHING? I ALREADY TAUGHT YOU THAT":"SPELL!'"::"SHAKING HIS HEAD SADLY, HE RETURNS TO":"BAR."::100d(0 GOLDGOLDP:SA%(SP)(50(1)26):"HOKAS TEACHES Y00& "HEAL":PP(1000):3100=& "SPEED":PP(5000):3100T& "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."::100P(100):5((KK)));KKJ% " SPEED ";:KKP(5000):5((KK)));KK:% "WELL, WHICH WILL IT BE?'"::"(HIT THE KEY FOR YOUR SPELL, B,H,S OR P) ";% A$:SP14:A$("BHSP",SP,1)Ă:3040% SP3060,3070,3080,3090& "BLAST":PP(3000):31NT OLD":"TOKEY TO TEACH YOU SOME MAGIC, HEH HEH?"$ "WELL, IT'LL COST YOU. TODAY MY FEES ARE:":C2CH(11(1)5):C2C2(C20):RTIO10C2$ " BLAST ";:KKP(3000):5((KK)));KK$ " HEAL ";:KKP(1000):5((KK)));KK% " POWER ";:KK:A$"P"ĺ"PEAR":BP25:TP4:SIDE5:N$"SPEAR":2750E# A$"W"2720n# "WORD":BP50:N$"SWORD":TP5:SIDE8{# DICE1:# 2$ :"AFTER A FEW MINUTES DILIGENT SEARCHING,":"YOU FIND HOKAS TOKAS, THE OLD MAGE. HE":"LOOKS AT YOU AND SAYS, 'SO YOU WAIT THE KEY(S), A B M SP OR SW) ";:M"d A$:W14:A$("ABMS",W,1)Ă:2660h"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$;:3# A$E SEES THAT YOU 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 "(HOUR."::GOLDGOLDP: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"2590!2 A$::GOLDP(50)ĺ"WHEN H00(A2)250(A3)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":"ARM%(M,5)ROOM5160@ FRMD%(M,3):FRFR100FRFR((CH10)2)o MD%(M,14)(FR100(1)):MD%(M,14)NBTL1 AMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1) (M:NBTL(TD%(0)0) 2100 p///POWER SPELL zS4:7500:SUC300!R"YOU SUCCESSFULLY RIDE OFF INTO THE":"SUNSET.":23010g:"YOU CAN'T GO THAT 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:5150 MD$:DK$::A$::ROOM15300^"YOU FOUND A HIDDEN TUNNEL GOING OFF TO":"THE EAST!"::300s///MOVE COMMANDNBTL2020D16:(V$,1)("NSEWUD",D,1)ĂDK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$R251006ROOM1D1ĺ:%(6,4)ROOM:(///LOOK COMMAND7NBTL2020YS$"LABEL"S$"BOTTLE"15000bLK0A1NA1: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(DF,9),4)ROOM)~FD%(0)TD%(0)NBTL0@DF0DIE1:23010MN$(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.":ADN PAIN.":5e:MN$(DF);" IS VERY BADLY INJURED.":tj: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%)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)3700MLAMD%(DF,14):FD%(A)FD%(A)D2Q(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 I!":3650A"A CRITICAL HIT!":R2(100(1)1):R251A0:3650ZR286S1.5S:3650q$R296D2D:3650)R2100D3D:3650.3700BD20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::+GMD%(DF,13" " BROKEN WEAPON HURTS USER!"3 FR1003560a 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)2INCDMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HITĺ"A MISS.":b "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:: FR953550 " WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,9)1:(1).9ĺ:ADVENTURER"4H4X(222)5ĺ(4);"RUN THE WONDERFUL WORLD OF EAMON"i4l/// BEATY'S WEAPON SHOP ///4vL$"CHARACTERS":DK$;"OPEN ";L$;",L150":DK$;"WRITE ";L$;",R";REC42004DK$;"RUN SPECIAL WEAPONS SHOP"4 N100D/05vL$"CHARACTERS":100 33p"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?'"3zDK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:200:DK$;"CLOSE" 4DK$;"DELETE THE ";19);"CMPLX DAM":W14:W1WN$(W)"NONE"5090e2WN$(W)"NONE"ĺ:" NO WEAPONS":50902WN$(W);20(WO%(W)0)((WO%(W))10)((WO%(W))100));WO%(W);"% ";WD%(W);" D ";WS%(W)3W:23:16368,0:"(HIT ANY KEY TO CONTINUE) ";:A$::":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%(WA))100));WA%(W);"% ";::1:A2(AC2):"ARMOUR: ";("SKIN LEATHERCHAIN PLATE ",A271,7);:ACA22ĺ" AND SHIELD";130);"AE=";AE;"%"::"GOLD IN HAND=";GOLD;", BANK=";BANK"42:"WEAPONSTES ARE:":" HD=";HD;" AG=";AG;" CH=";CH:0"YOU KNOW THE FOLLOWING SPELLS--":SM0:S14:SA%(S)ĺ("BLASTHEAL SPEEDPOWER",(S1)51,5);" ";:SM10S:SMĺ" NO SPELLS";O1::"YOUR WEAPON ABILITIES ARE--":" AXE BOW CLUB SPEAR SWORDKINDLY BANKER."::100/GOLDGOLDMNY:BANKBANKMNY:"SHYLOCK TAKES YOUR MONEY, PUTS IT IN":"HIS BAG, LISTENS TO IT JINGLE, THEN":"THANKS YOU AND WALKS AWAY."::100/"-0:"YOU ARE THE ";("MIGHTY FAIR ",17(SEX$"F"),7);NAME$::"YOUR ATTRIBUTO THE":" WATER WITHOUT MY LIFE PRESERVER!"::300X0`JS$"CAVE"ROOM1V$"S":50000jJ:"I'M NOT SURE WHAT YOU MEAN BY THAT.":"TRY GIVING A DIRECTION TO MOVE."::1000 N///TROLLSFIRE ACTIVATION.0*NAD%(10,4)1ĺ:"NOTHING HAPPENS."::300 OMS,R";ROOM:D16:DR%(D)::DK$B/fDR2DR%(6(1)1):R2117510H/pD/PF:"YOU ARE CARRYING THE FOLLOWING--":A1NA:AD%(A,4)1ĺ" ";AN$(A)/ZF:300/8JNBTL2020/BJ1950/LJS$"WATER"S$"SEA"1904050VJ:"SORRY, BUT I'M AFRAID TO GO IN"READIED."::300/.>TR0:MD%(0,12)10:20000D.hB///FLEE COMMANDv.rBNBTLĺ:"WHAT ARE YOU FLEEING FROM?"::100.|BMD%(7,5)ROOMĺ:"YOU ARE HELD FAST BY THE MIMIC AND":" CANNOT ";V$::300.BM0:17500.BNBTL0:5100!/\DDK$;"READ EAMON.RO1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100u->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"ĺ: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,>///READY A WEAPON,>1950D->AHE BOTTLE SAYS, 'HEALING POTION'"::300C+:S$"TROLLSFIRE"20000~+:S$"BOOK"ĺ:"THERE ARE NO MARKINGS TO READ!"::300+:AD%(9,4)1AD%(9,4)ROOMĺ"WHAT BOOK?"::300E,:"AS YOU READ THE BOOK, YOU FEEL A WEIRD":"SENSATION OVERTAKING YOU. O GETTING BLOOD FROM A":" TURNIP."::300{*8:"THE WATER TASTED SALTY, BUT IT DOESN'T":"SEEM TO BE POISONOUS."::300*:///READ COMMAND*:1950*:NBTL2020(+:S$"LABEL"S$"BOTTLE"ĭAD%(3,4)ROOMAD%(13,4)ROOMAD%(3,4)1AD%(13,4)1ĺ"T14120Q)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)27300+*8S$"WATER"(S$,3)"SEA"ĺ:"A JOB SIMILAR T00>(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!"::14120) 7"YOU FEEL BETTER."::IRE"20000'2S$"POWER"60003'2S$"HEAL"7000H'2S$"BLAST"8000^'3S$"SPEED"10000}'3:"OKAY, '";S$;"'"::300'6///DRINK COMMAND'61950'6NBTL2020'6(S$,6)"POTION"(S$,6)"BOTTLE"14500(6AD%(3,4)1AD%(3,4)ROOM145ROUGH YOU!"::300M&*:NBTLĺ"AS YOU SMILE, THE ENEMY ATTACKS YOU."::300l&+"NOTHING HAPPENS."::300&.:NBTLĺ"AS YOU WAVE AT YOUR ENEMY, HE ATTACKS":" YOU."::300&."NOTHING HAPPENS."::300&2///SAY COMMAND&21950 '2S$"TROLLSF"::300 %^S1:7500:SUC300Q%h:"DIRECT HIT!"::S5:D1:DFM:3650::300e%'///SPEED SPELL}%'S3:7500:SUC300%$'SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)&.'SPD(25(1)1)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" TH(((RLS2%(S))(RL5))(RL95))C$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$@///BLAST SPELL$J1950%TM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!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#X///HEAL SPELL#bS2:7500:SUC14050#l300 $LSUC0:SA%(S)RL(100(1)1):SUC(A);" VANISHES!":AD%(A,4)00"A:RAISEĺ:300"RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:23010"RR31ĺ:"YOU ARE TELEPORTED SOMEWHERE IN THE":" DUNGEON"::R2(26(1)1):NBTL0:5100Y#AISE0: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)MD%(0,9)0!M:RAISENBTL0:R2ROOM:5100"A1NA:AD%(A,4)ROOMRAISE1:AN$ELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";@ZTP0:A1NA1:AD%(A,4)123210@ZAD%(A,2)0AD%(A,1)AD%(A,1)CH10@ZTPTPAD%(A,1)sAZA:TP;" GOLD PIECES."::MD%(9,5)WP%(W5)WP%(W21):W2W21:W2523090w?dZW511:W5:W42W21:W51W41:WN$(W4)WN$(W5)WN$(W4)WN$(W4)"#":23140?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)v@ZW::5:"AS YOU DWEAPONS--4 IS THE LEGAL":"LIMIT.'"::"YOUR WEAPONS ARE--">FZA$:W5(A$):W51W5W2123110>PZWP%(W5)AD%(WP%(W5),4)1%?ZZWN$(W5)WN$(W21):ZDIE23240(=ZW24:WN$(W)"NONE"Ă=ZW2W:W31NA1:AD%(W3,2)1AD%(W3,4)1WN$(W2)AN$(W3):WP%(W2)W3:W2W21:AD%(W3,4)0=(ZW3:W2623160;>2Z:5:"AS YOU TRY TO LEAVE, THE KNIGHT":"MARSHALL REAPPEARS AND TELLS YOU, 'YOU":"HAVE TOO MANY ,POWER,HEAL,BLAST,SPEED,SMILE,WAVE,SAY,DRINK,READ,READY,ESCAPE,RETREAT,FLEE,INVENTORY,I,ENTER,TROLLSFIRE,OPENsNDK$;"READ EAMON.DESC,R206":A$:DK$::A$::TR0:AD%(10,8)6:MD%(0,9)10MD%(0,12)6q1HN3001PDK$;"READ EAMON.DESC,R204":A$:DK$::A$::MD%(0,9)10ĺDK$;"READ EAMON.DESC,R205":A$:DK$:A$::S5:D1:DF0:A0:3650:3002PTR1ŠӠŠƠӠšՠŠΠ̠ٮӠŠҠŻŠ٠ԠӠˠϠŠ̠ΠŠԮϠŠԠӠŠŠˠƠŠӠΠĠԮՠŠΠΠԯԠ̮ՠԠϠŠԬĠ̠̠ĠǠ͠ŮΠŠĠՠԠƠԮՠŠΠΠԯԠ̮͠ԠΠŠΠΠȠӮՠŠԠŠ͠ƠԠƠԠΠŠΠРԠŠРƠӬĠ٠͠ԠΠŠΠŠ̠ϠŠԮՠŠԠŠРƠԠƠӮȠӠΠŠ̮ԠӠ٠ˠΠŮ̠ӠԮՠŠΠˠԯԠ̮ՠΠŠԠȠӮՠŠΠԭήǠȠӠĠϠŠȠ̮ˠӠĠȠĠԮϠŠԠӠŠŠŠĬԠԠӠΠΠ͠ӠӮՠŠΠԠӠŠ٠ٮԠƠŠӠŠΠĬȠŠӠǠΠŠĮҬΠ͠ӠӬϠӠΠŠĮŠԠӠϠŠԮՠŠΠŠŮӠƠԠӠҠŠӮŠŠϠӠŬŠĠȠĠԠĠŠҠĠȠĮŠ٠ԠӠϠŠԮՠŠΠΠԯԠŮՠΠ٠٠ҠӠàǠĬĠΠ̠ŠŠԮՠŠΠԠԯԠŮՠҠԠ٠Ǡ͠ŠԮՠŠΠ̠ǠȠĠȮŠӠƠŠ̠ŠΠĠȮՠŠԠϠŠȮ:BANK:AC?CZA14:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A):CZDK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"C[DK$;"RUN MAIN HALL"DMAIN HALL" HIT ANY KEY) ";:16368,0:A$:lBZDIEĺDK$;"OPEN THE ADVENTURER":DK$;"DELETE THE ADVENTURER":23300BZDK$;"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$:GOLD1ĺ"ADDITIONALLY, YOU RECEIVE ";10CH;" GOLD":"PIECES AS A REWARD FOR THE SAFE RETURN":"OF CYNTHIA.":TPTP10CHAZGOLDGOLDTPAZ::"(HIT ANY KEY TO CONTINUE) ";:A$:$BZDK$;"DELETE FRESH MEAT":::5:"(INSERT EAMON MASTER DISKETTE, THEN":"ŠӠĠΠԠŮŠӠĠˠԠŮՠŠŠŠΧӠ®ԧӠŠƠĬĠȠΠӮŠçӠĠӠŮԧӠΠĬԠĠƠԠԠŠЮŠӠΠ٠ŠŮŠӠŠԠΠŠҠƠŠͮŠӠŠŠƠӠšŠӠ̠ĠŠȠŠǠΠŠŮΠΠŠŠӠŠŬŧŠӠΠĠˠŮԠӠΠŠӠĠӠ٠̠ĮŠŠ̠ŠӠŮŠӠȠ٠ӠŠŮŠӠΠĠĠǠŮŠŠĠӠšŠӠҠ٠ӠĠŮŠӠŠŠȠŠΠšŠӠĠӠŠŮӠՠ٠ŠħӠŠũԠΠŠӠĠŠħӠŮӠŠŠӠĠӬŠΠӠĠӠϮӠŠŠӠĠԠՠΧԠŠԬԠΠŠӠŠŠƠӠĮӠՠȠŠԬԠ٠ӠŠĠϠӠŠƠŠŬǠՠԮҠŠӠ͠ŠРĠϠԠծՠŠŠĠ٠ƠŠŠήՠŠŠĠ٠ƠŠîՠŠŠĠ٠ƠŠƬӠ̠ԠӠ̠ΠĠŮՠŠŠĠ٠ƠŠŮǠˠƠĬԠԠӠ̬ҠȠ٠΢ӠĠΠŠҮĠ̠͠ԠŠĮԠŠЮŠԧӠŠӠΠŠҬӠŠΠΠçӠҮŠĠàӠΠӠ ΠŠҮ z          ȧӠΠ٠ӠΠŠҭՠΠ̠ŠŠҠǬɬɧ͠ȡŠ٠ŠƠŠӠŢĠΠŠĮŠԧӠ٠ӠΠŠҮŢŠӠĠΠԠŮӠŮΠŠ͠ӠŠάǠĠԠҠ٠ŮŠӠΠԠӬĠӠǠ ΠŠҠԠϠͮŠӠՠĠӮԠҬŠӮͮ͠ՠŠΠà٠ǠŠӬϠӧϠŠŠ̠ȠŠРƠӠĮŠӠլӠӠĬĠӬŠϠŬΠǡΠŠ͠ӠŠƮԠӠР͠ŠԠӠǬĠӠӠǠנӮՠŠΠȠĠĠӠǠΠӠҮŠӠǠӠŠԠƠˠĠӠǠ٠٠ĠĮՠŠ̠̠ΠǠŠӮՠŠҠӠŠͧӠԭϭԠҮŠӠŠΠΠӠ ĠΠŠˠΠӠŮΠӠԠĠŠӠŮԭĠҠӠΠŠͬǠՠȠϠӠĠǠϠŠՠȠĮΠҠӠŠլĠǠĠĠǠĮΠӠĠӠҠȠӬɡɧ͠ȡŠӠŬ٬ǠĠ٠ΠŠ͠ȠաŠӠĠĠԠϠӠӠƠŠΧԠΠȠΠ٠өΠŠͮŠӠŠΠԠȠРŠȠšŠӠŠΠԠȠРŠȠšŠӠŠˠԠȠРŠȠš         Ӡՠ٠ŠħӠŬŠԠΠŠӠ͠ŠĮŠՠŠǠŠĠΠĠάՠŠŠΠŠ̠ŠĠǠҠӠƠοӠӠŮڠ  xJ  ꠐ) a 1 a  ꠏ ja 1 ꠒa   ꠏ ja 1 ꠒa   ꠏu ja 1 ꠒa   ꠏ> ja 1 ꠒa    6 L\>    LFOPEN CHARACTER.L D TO D   ꠑ  .L9D POINTS OF DAMAGED'   ڠ LoDIS THIS CORRECT? ('Y' OR 'N') DP  J D ^  LDND J Lc> LDYD J LD LFD LDD LDGOODD   CI THINK 3 IS ENOUGH FOR ANYBODY!C   LBr LRCALLOWED SIDES ARE 1-12C;   LCHOW MANY SIDE DIE FOR THIS WEAPON Cb  C ^ " ꠑ LC L1C|  ڠ  LC WILL INFLICT FROMC   ڠ NTS OFA   LBDAMAGE.B  ^ LwB ROLLING ONE EIGHT-SIDED DIE CANINFLICT FROM ONE TO EIGHT POINTS OFB2   LBDAMAGE.B   ڠh LBHOW MANY DICE FOR THIS WEAPON (1-3): B  C ^  ꠑ L1CL!L=@T  L8ATHE DAMAGE INFLICTED ON AN ENEMY ISA   LpADETERMINED BY ROLLING A GIVEN NUMBER OFAH   LADICE ONCE AND SUMMING THEM.A   LAFOR EXAMPLE, ROLLING 2 FIVE-SIDED DICEA   LBCAN INFLICT FROM 2 TO 10 POI ^ 6  ꠑ L>@  ꠑ L>J  Ll@COMPLEXITY OF WEAPON MORE COMPLEX@J   L@WEAPONS MAY HAVE A NEGATIVE VALUE@|   L@ENTER VALUE -50 TO +50 @  C ^ O L@H@ ꠑ  L*?2) BOW (THIS INCLUDES ALL THROWN?   LV? WEAPONS AND GUNS)?:   L?3) CLUB (OR BLUNT WEAPONS)?f   L?4) SPEAR (OR OTHER POLE WEAPONS)?   L?5) SWORD?   L?INPUT NUMBER?  CE w ꠒ$ L=  ꠒ$ LC<  ꠒ +렒$ ꠒ +   XL>NAME OF WEAPON >p   .L> >   ڠ D ^ "  ڠ, L>WHAT TYPE OF WEAPON?>   L>1) AXE>  TYPE A '0'!<   ڠ  LO=YOU MAY CARRY UP TO FOUR WEAPONS WITH=)   L=YOU AT ANY ONE TIME. HOW MANY WEAPONS=_   L=WOULD YOU LIKE TO BUILD AT THIS TIME?=   ڠ  C$ ^   ꠒ$ L ^  L<`< ꠕ L:  ꠕ L:  X w Le8F  X103,(N):104,(N1):175,(N2):176,(N3): ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS ==================== ========== Fꠕ L6 L 7SWORD 7  C ^ 2{ ꠕ L7  XL7ARMOUR EXPERTISE--THE PLAYER ABILITY TO7^   L7FIGHT WHILE WEARING ARMOUR7   ڠ  L7ARMOUR EXPERTISE GIVEN AS A PER CENT7   ڠ L6AXE 6  C ^ 2{ ꠕ L6 LZ6BOW 6S  C ^ 2{ ꠕ LI6 L6CLUB 6  C ^ 2{ ꠕ L6 L6SPEAR 6  C ^ 2{ GILITY PLUS YOUR4   LG5EXPERTISE FOR THE WEAPON YOU ARE USING5   Lz5PLUS THE COMPLEXITY OF THAT WEAPON5W   ڠ  xJ  L5WHAT IS YOUR WEAPON EXPERTISE FOR:5   sL5(TYPE A VALUE FROM 0 TO 100)5   3   ڠ  LD4WEAPON EXPERTISE - THE ABILITY TO USE A4   L}4GIVEN WEAPON. IT IS EXPRESSED AS A VALUE4T   wL4NOTE: 4   sL4YOUR CHANCE OF HITTING YOUR TARGET IS4   ڠ L5EQUAL TO TWICE YOUR AST SPEED 2  C ^ 2{ ꠕ L2 L]3ABILITY TO CAST POWER 3E  C ^ 2{ ꠕ L;3  XL3ALL WEAPONS IN THE WORLD OF EAMON CAN BEDIVIDED INTO FIVE TYPES--AXES,BOWS,CLUBSSPEARS, AND SWORDS.  L'2 TO CORRECTLY CAST THE SPELL2   s ڠ~ L\2ABILITY TO CAST BLAST 2D  C ^ L2H2{ ꠕ L:2 L2ABILITY TO CAST HEAL 2  C ^ 2{ ꠕ L2 L 3ABILITY TO CA L+1THE VALUE YOU ASSIGN TO EACH WILL BE1   L`1YOUR CHANCE TO SUCCESSFULLY CAST THE1;   L1SPELL ON THE FIRST TRY. EACH SUCCESSIVETRY HAVLES YOUR CHANGE TO CAST IT.1p   ڠt  L1ENTER AS A PERCENTAGE THE ABILITY1 4 TURNS/   ڠj LH0POWER MAY BE YOU MOST USEFUL SPELL AND0!   L0AND CERTAINLY THE MOST UNCERTAIN. IT'S0X   L0A CALL TO THE GODS 'HELP ME'!!0   L0WARNING, IT MAY WORK AGAINST YOU!!0   ڠl  xJo IRES A BURNING ARROW AT YOUR.   L6/OPPONENT./,   ڠV Lw/HEAL REMOVES HITS FROM THE BODY OF THE/P   L/PERSON CASTING IT./   ڠ` L/SPEED WILL DOUBLE THE CASTER'S AGILITY/   L0FOR THE NEXT 10 TO 3DOING IT A BIT?-   L5.HOW ABOUT 30 OR LESS?.   ڠ8  Lu.HOW MANY POINTS CHARISMA DO YOU WANT?.O  C ^ B * ꠕ L-L  XL.MAGIC - THERE ARE FOUR SPELLS AVAILABLE.   L/BLAST F   L1-HOW WELL PEOPLE LIKE YOU. THIS WILL-   Li-MOST LIKELY SHOW UP AS HOW MANY FRIENDS-A   L-YOU MAKE OR WHAT PRICES YOU CAN BUY-y   L-GOODS AND SERVICES FOR.-   ڠ$ LB.. L.DON'T YOU THINK YOU OVER L,,DON'T YOU THINK YOU OVER DOING IT A BIT?,   LR,HOW ABOUT 30 OR LESS?,<   ڠ  L,HOW MANY POINTS AGILITY DO YOU WANT?,l  C ^  * ꠕ L+  XL,CHARISMA - CHARISMA WILL DETERMINE HOW,L+*  ꠕ} L)  XLV+AGILITY - AGILITY'S MAJOR EFFECT IS HOW+.   L+LIKELY YOU ARE TO HIT YOUR OPPONENT IN+f   L+COMBAT. IT'S ALSO USEFUL IN AVOIDING+   L+SPECIAL TRAPS.+   ڠ L_, Πҍ NCĺD$;"WRITE ";L$;",R0":N# D$; L$"THE ADVENTURER"N D$;"OPEN ";L$b D$;"WRITE ";L$p NAME$:N D$;"CLOSE" D$;"RUN MAIN HALL"BE WARNED AGAIN!!)   s L* L^*DON'T YOU THINK YOU OVER DOING IT A BIT?*5   L*HOW ABOUT 30 OR LESS?*n   ڠ  L*HOW MANY POINTS HARDINESS DO YOU WANT?*  C} ^  L*p* ꠕ} DIE. IT ALSO(   L>)RELATES TO HOW MUCH TOTAL WEIGHT)   Lp)YOU CHARACTER CAN CARRY WITH HIM.)N   ڠ L* L) GIVE YOURSELF A BREAK, SELECT A NUMBER)   L)GREATER THAN 2!)   w L*YOU WILL NOT l" I0192:768I,(54949I):6867,40: WIDTHj933,135:934,3:945,135:946,3:1014,0:1015,3 I============F $:I2411:I:JI(I2)21402:J:" ";::::m $ IRRITATING WIPE =============== "$16298,0:16302,0:I372:16304,0:J11::16303,0:: ,$R11:I:1:868:9260::5 # DOWN WIPE =========W #I124:I:1:868:9260::v # STRIPE WIPE =========== #:I124:I:1::40):I:1::40)::: # SCROLL WIPE =========== #I124:24::9260:: $ CHECKERBOARD WIPE =====LEFT/RIGHT WIPE ================ #I140:33,I::9260::d # RIGHT/LEFT WIPE =============== #I3901:32,I:33,40I::9260:: # CENTER OUT WIPE =============== #I120:32,20I:33,2I::9260:: # UP WIPE ======= #I24I140:33,I::4300::?%h RIGHT/LEFT WIPE ===============i%rI3901:32,I:33,40I::4300::%| CENTER OUT WIPE ===============%I120:32,20I:33,2I::4300::% UP WIPE =======%I2411:I:1:868:4300::& DOWA$"Y"ĺ(7);:4030$:"$($.$4$O$ SPECIAL WIPE ROUTINEi$ FROM APPLE MECHANIC$" BEAGLE BROTHERS$, BY BERT KERSEY$6$@Z4((1)91)$JZ44180,4200,4220,4240,4260,4280$T LEFT/RIGHT WIPE ===============%^ JB120JB:"200,(2006e9000>fJBDgJ(#e2# SPECIAL WIPE ROUTINE<# FROM APPLE MECHANICF# BEAGLE BROTHERSP# BY BERT KERSEYZ#d#Z4((1)91)n#Z49080,9100,9120,9140,9160,9180,9200,9220,9240 x# (W):WDICE%(W):WUSIDES%(W):.#BDK$;"CLOSE"4#L:#T# > ENDING ROUTINE <Z##:"THE MAN SMILES AND ESCORTS YOU OUT."#DF2BF1İ3500#DK$;"RUN MAIN HALL"#24:1:"ENTER Y OR N -> ";:16368,0:A$:A$,#A$"N"ī4060$:SW$(SE):SJ15:SG%(SE,SJ):SJ:SE6"DK$;"CLOSE"J"L$"CHARACTERS""DK$;"OPEN ";L$;",L150":DK$;"WRITE ";L$;",R";REC"$NAME$:HD:AG:CH:X14:SA%(X):".X15:WA%(X)::AE:SEX$:GOLD:BANK:AC#8W14:WNAME$(W):WTYPE%(W):WODDS%J,3):WUSIDES%(SE)SG%(SJ,4)%! 3500+! 1! H! > FILE UPDATE <N! j! L$"WEAPON.SHOP DONERS"! DK$;"OPEN ";L$:DK$;"WRITE ";L$! DS:SE1DS:SD$(SE):SE! L$"WEAPON.SHOP WEAPONS"! DK$;"OPEN ";L$:DK$;"WRITE ";L$%" WS:SE1WS DK$(4) 'DK$;"CATALOG"B"ENTER FILE NAME ";F$]2"ENTER REC LENGTH ";Lx<"ENTER REC NUMBER ";RFDK$;"OPEN ";F$;",L";LPDK$;"READ ";F$;",R";RZA$dDK$n:A$xDK$;"CLOSE"D(SE)SG%(SJ,3):WUSIDES%(SE)SG%(SJ,4)) A WEAPON.":::" 3) PURCHASE A WEAPON."::" 4) LEAVE THE SHOP."L&24:1:"PLEASE MAKE YOUR SELECTION (1-4) ";:16368,0:A$:A$;0(A$)1(A$)4ī550:V(A$)DV590,600,620,630N1000:520X2000b520l3000:520DK$;"CLOSE" L$"CHARACTERS"V DK$;"OPEN ";L$;",L150":DK$;"WRITE ";L$;",R";REC~ $NAME$:HD:AG:CH:X14:SA%(X): .X15:WA%(X)::AE:SEX$:GOLD:BANK:AC 8W14:WNAME$(W):WTYPE%(W):WODDS%(W):WDICE%(W):WUSIDES%(W): BDK$;"CL  > FILE UPDATE <$ @ L$"WEAPON.SHOP DONERS"e DK$;"OPEN ";L$:DK$;"WRITE ";L$ DS:SE1DS:SD$(SE):SE L$"WEAPON.SHOP WEAPONS" DK$;"OPEN ";L$:DK$;"WRITE ";L$ WS:SE1WS:SW$(SE):SJ15:SG%(SE,SJ):SJ:SE  ANOTHER":"WEAPON TO DONATE AT THIS TIME?'"5 4030C A$"N"ıT  A$"Y"2090^  229030r A$"N"ı A$"Y"555 760 750= /// REMOVE WEAPON /// SJSE4:WN$(SJ)WN$(SJ1):WT%(SJ)WT%(SJ1):WO%(SJ)WO%(SJ1):WD%(SJ)WD%(SJ1):WU%(SJ)WU%(SJ1):SJ:WN$(4)"NONE" DF2 :"THE MAN SAYS 'YOU HAVE DONATED A WEAPON":"TO THE SHOP.'"+ :"THE MAN ASKS 'DO YOU HAVE HE MAN SAYS 'ONE MOMENT WHILE I RECORD":"YOUR DONATION. PLEASE WAIT.'"[ ZZ11000:ZZ DSDS1:SD$(DS)NAME$:SF%(DS)1:WSWS1:SW$(WS)WNAME$(SE):SG%(WS,1)WTYPE%(SE):SG%(WS,2)WODDS%(SE):SG%(WS,3)WDICE%(SE):SG%(WS,4)WUSIDES%(SE):SG%(WS,5)DS HAVE A MODEL OF":"THE WEAPON ";A$;".":0 SJ SJ0:A$WN$(SE):(A$,5)"SWORD"(A$,5)"SPEAR"(A$,4)"MACE"(A$,3)"BOW"(A$,3)"AXE"SJ1 SJĺ:"THE MAN SAYS 'THIS IS A STANDARD WEAPON.":"WE ONLY ACCEPT SPECIAL WEAPONS HERE.'":H :"T============F $:I2411:I:JI(I2)21402:J:" ";::::m $ IRRITATING WIPE =============== "$16298,0:16302,0:I372:16304,0:J11::16303,0:: ,$JΠҍN WIPE =========4&I124:I:1:868:4300:::S& SCROLL WIPE ===========q&I124:24::4300:::w&Y0::& UP WIPE =======&I2411:I:1:868:4300::& DOWN WIPE =========&I124:I:1:868:4300:::'Πҍ SCROLL WIPE ===========8'I124:24::4300:::>'`͍ōōōōō΍͍̠Ġ΍΍ŠōǠҍ͍ıàōōӍ͍ōōōōz#"xp ŠŠǠ ȠԠ !Ҡ" Ү Ԡ!ŭԠŠҠ ȠԠ  ٠    ĠӠ Ӡ נ űE̠ӠР! Ġ" ή͠Ӡ!ήӠŠҠ ȠԠήРӠ ήРӠ ĮРӠ ͠ŠҠΠ̠/ŠӠŠ=ήӠήàMήӠήŠΠҠΠŠ̠ĠƠΠήà"נӠӠ٠ ӠANNER OF RARE AND UNUSUAL"q Z"WEAPONS. A SMALL MAN IN LEATHER APRON":"COMES OUT OF THE BACK ROOM AND SAYS": d"WELCOME TO BEATY'S SPECIAL WEAPON SHOP.": n"YOU SEE A SIGN ON THE WALL THAT SAYS:": x" SHOP RULES":@ " 1) x 1/// BEATY'S SPECIAL WEAPONS SHOP ///7D(DK$(4)X24100:16368,0n<PC2500:DF0:BF0F" AS YOU ENTER THE SHOP, YOU HEAR THE":"SMALL BELL RING. YOU SEE THE WALLS ARE" P"LINED WITH GLASS DISPLAY CASES FILLED":"WITH ALL M      Πҍ  L"KOPEN CHARACTERS,L150K   ڠ   LWKWRITE CHARACTERS,R0KC   ڠ  . ڠ   LKCLOSEK   ڠ $   L$L I J Ly LJNJ J L>J L{I  ꠕ 砕 +L $ LkJENDJg   ڠ "W wLJPRESS ANY KEY TO CONTINUE J   s򠒩. q X`   LJDELETE CHARACTERSJ   ڠ . ڠ . ڠ . 6 ELHb L"" > О쁠"  Aw]c]ο"  >>Ɓ ǟ ȇФ£ۃ㟬Ⴣ Ïئ          ."::"(HIT ANY KEY 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 YOURAIS HIGH.":h"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 SITUATIONSDLINESS RATING BY 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 CHARISMLL BE":"MERELY TOLD THINGS SUCH AS"::" 'WOW! THAT ONE HURT!'":"OR 'YOU DON'T FEEL VERY WELL'":J"(HIT ANY KEY TO CONTINUE) ";:A$::XT"YOUR CHARISMA (";CH;") AFFECTS HOW CITIZENS":"OF EAMON REACT TO YOU. YOU AFFECT A":"MONSTER'S FRIEN GROND=10 DOS)":6"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.":f@"HOWEVER, YOU WILL NOT BE TOLD HOW MANY":"BLOWS YOU HAVE TAKEN. YOU WIOUR EXPERTISEIS, HOWEVER, 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 PLATE";18);5;35);"-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."`"NO MATTER HOW HIGH YOUR ARMLL ABSORB HITS PLACED 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%""P BY 2%, IF A RANDOM NUMBER FROM 1-100":"IS LESS THAN YOUR CHANCE TO MISS!":x"(HIT ANY KEY TO CONTINUE)";:A$::P"THERE ARE FOUR ARMOR TYPES, AND YOU MAY":"ALSO CARRY A SHIELD IF YOU DO NOT USE":"A TWO-HANDED WEAPON. THESE PROTECTIONS":"WIRENT ABILITIES WITH EACH) ARE--":" CLUB/MACE 20%":" SPEAR 10%":" AXE 5%":" SWORD 0%":" BOW -10%":N"EVERY TIME YOU SCORE A HIT IN BATTLE,":"YOUR ABILITY IN THE WEAPON CLASS MAY GO":"UORMATION ABOUT THE 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":"CURHA(10)Q x" HARDINESS--";HD:" AGILITY --";AG:" CHARISMA --";CH;"'":Z }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--"::" INF Z:"THE IRISHMAN WALKS 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(10):AGA(10):CN THE ADVENTURER,S6,D1":DK$;"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$: THE WONDERFUL WORLD OF4 EAMON:V CHARACTER GENERATORp AND INSTRUCTIONSv BY DONALD BROWN DK$(4)XX((78)(79)256)R(X)(X(1)1)A(X)R(X)R(X)R(X)F (DK$;"OPE          EASE CHOOSE AN OPTION FROM THE LIST:"0:" 1) LIST THE WEAPONS LIBRARY."::" 2) DONATE A WEAPON."::" 3) PURCHASE A WEAPON."::" 4) LEAVE THE SHOP.":D24:1:"PLEASE MAKE YOUR SELECTION (1-4) ";:16368,0:A$:A$;N(A$)1(A$)XAMINES YOUR ADVENTURE RECORD."A /// CHECK FOR BEGINNERS ///AE0WA%(1)5WA%(2)10WA%(3)20WA%(4)10WA%(5)0ĺ:"YOU ARE A BEGINNER! TRY AGAIN LATER.":4000:"THE MAN SAYS 'YOU ARE AN EXPERIENCED":"ADVENTURER! WELCOME.'"%&:"PL >IS ADVENTURER A DONER? <CSE1DS:NAME$SD$(SE)DF1:470KSEw:"THE MAN ASKS 'DO YOU WANT TO STAY?"4030A$"N"40004100:"HE GOES TO THE FILE CABINET NEAR THE":"DOOR. HE OPENS THE FILE TO YOUR NAME.":"HE THEN EH:DK$;"READ ";L$;" ,R";SE:SI$(SE):DK$:SEtrST$(5):SE15:ST$(SE)::"AXE ","BOW ","CLUB ","SPEAR","SWORD"|DK$;"CLOSE" > CHECK DONER LIVE OR DEAD <SE1DS:SJ1SH:SD$(SE)SI$(SJ)SF%(SE)1:420SJSESF%(1)1L$"WEAPON.SHOP WEAPONS"> "DK$;"OPEN ";L$:DK$;"READ ";L$] ,WS:SW$(WS4),SG%(WS4,5) 6SE1WS:SW$(SE):SJ15:SG%(SE,SJ):SJ:SE @DK$ JL$"CHARACTERS" TDK$;"OPEN ";L$;",L150":DK$;"READ ";L$;",R0":SH:DK$ ^SI$(SH),hSE1S(X)::X15:WA%(X)::AE$ SEX$ GOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WUSIDES%(W):W:DK$;"CLOSE" L$"WEAPON.SHOP DONERS" DK$;"OPEN ";L$:DK$;"READ ";L$ DS:SD$(DS4),SF%(DS4) SE1DS:SD$(SE)::DK$ LUS A DUPLICATION":" FEE UP TO ";PC;" MORE GOLD PIECES."V L$"THE ADVENTURER"z DK$;"OPEN ";L$:DK$;"READ ";L$ NAME$,REC DK$;"CLOSE" L$"CHARACTERS" DK$;"OPEN ";L$;",L150":DK$;"READ ";L$;",R";REC:NAME$:HD,AG,CH:X14:SA%THE SPECIAL WEAPONS SHOP MAY NOT":" BE USED BY A BEGINNER" " 2) YOU MUST DONATE AT LEAST ONE":" SPECIAL WEAPON TO THE SHOP BEFORE":" YOU CAN PURCHASE A SPECIAL WEAPON"> " 3) ALL SPECIAL WEAPONS COST ";PC:" GOLD PIECES PEAR"WTY$"SWORD"WTY$"CLUB"ĺ"ILLEGAL TYPE":280P ,WTY$"AXE"WTYPE%(X)1l 6WTY$"BOW"WTYPE%(X)2 @WTY$"MACE"WTYPE%(X)3 JWTY$"SPEAR"WTYPE%(X)4 TWTY$"SWORD"WTYPE%(X)5 ^WTY$"CLUB"WTYPE%(X)3 h"COMPLEXITY:";WODDS%(X)͍ōōōōōΠҍ͍à׍àà̍ȠƠԍҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍōҠҍŠĠōҍԍҍҍ؍àƍ΍͠čҍΠұč͍ōȧӠč      APON TO OUR COLLECTION."W "DO YOU HAVE A SPECIAL WEAPON":"TO DONATE TO THE SHOP?'"a4030r A$"N"2360x*4 > DONATE ROUTINE <>WN$(1)"NONE"ĺ:"YOU ARE NOT CARRYING ANY WEAPONS."::H:"YOU ARE CARRYING:":RSE14\";*32:SG%(SE,3);" D";:37:SG%(SE,4)LSE8(SE8)İ1070::1060:ZSE:1230tSE18(SE18)İ1070|SE1070: /// SUBROUTINE DONER ///4100DF02300:"THE MAN SAYS 'YOU HAVE NOT DONATED A":"WEΠҍà׍ààԍōΠҍ͍à׍ààԍō1WS:J1(37)1:SE;" ";SW$(SE);:20:SD$(SG%(SE,5));RBSF%(SE)0ĢJ1:36:"*";eL:A$"N"1210~V20:ST$(SG%(SE,1));`Z5SG%(SE,2)jZ599Ė25:1170tZ59Z599Ė26:1170~Z50Z59Ė27:1170Z510Ė28:1170SG%(SE,2);"%A$"N"İ4100:" WEAPONS LIST":" * = DECEASED":1080`1060:1080$4100:" WEAPON NAME CLASS ODDS DICE SIDES":" * = DECEASED":.24:1:"PRESS ANY KEY TO CONTINUE...";:16368,0:B$:4100:58SE4ī580XV(A$):,bV620,630,650,660;l1000:550Ev2000N550]3000:550g4000m > SUBROUTINE WEAPON LIST <4100:"WE HAVE A FULL LIST AND A NAMES ONLY":"SHORT LIST. DO YOU WANT A FULL LIST?"::4030Pčōōč͍ōōōōԍŠΠҠӮŠԠΠŠҠԠȠŠ٠ǮĠԠĠĠҠĠϠ̠Π֮ŠĠŠϠӠҠĠŠϠٍŠĠŠϠӠҠĠԠƮǠΠĠ٠ҠĠΠӠԍ٠ǠӠŠΧΠƠȠŠҠȮ٠ӠΧΠ٠ĠҠŠΠϠϮǠӠΧҠ̠ŠӠΧРĠ̠٠Ġ̠ԠӠҠҠήǠϠŠӠΠˠӠŮǠΠ٠ӠŠԠҠǠŠӠ׭ԭ̠ӠƠŠנӠ̠Ϡ͠ήƠŠӠŠŠŧӠǠϠԠӠԠŮŠĠŠϠӠҠĠΠΠήĠҠΧǠӠĠŠΠԠΠǮŠΠӠŠΠҠŠԠŠ̮ŠĠŠϠӠҠĠŠϠٮǠҠӠϠϠΠǠŠӠƠӮǠέӠӠĠŠϠĠ͠٠ŠčŠӠŠӠϠȠҠŠĠӮ     ING FROM HIS CLOTHES HE":"COMES OUT AND HANDS YOU THE WEAPON" "STILL WARM FROM THE WORKING. AFTER THE":"ORIGIONAL IS REPLACED, HE SAYS 'WAIT":"UNTIL THE WEAPON COOLS.'"! WN$(SE)SW$(SJ):WTYPE%(SE)SG%(SJ,1):WODDS%(SE)SG%(SJ,2):WDICE%(SE)SG%(SEMOVES THE ";L$;" MODEL.":"HE GOES INTO THE BACK ROOM. YOU SEE"v "THE LIGHTS DIM. A REDISH GLOW SHINES":"FROM THE BACK ROOM. YOU HEAR A LOUD HUM":"AND THEN HAMMERING AND GRINDING OF THE"> "METAL FOLLOWED BY AN ELECTRIC ARC.":"WITH SMOKE WHISPN 4030:A$"N"ıX GOLDPĺ:"THE MAN SAYS 'I AM SORRY, BUT YOU DON'T":"HAVE THAT MUCH GOLD WITH YOU NOW.":"REMEMBER, WEAPONS COST FROM ";PC;" TO":2PC;". TRY AGAIN LATER.":b GOLDGOLDPAl :"HE TAKES PAYMENT, MOVES TO A GLASS CASE":"AND R :"ENTER WEAPON NAME -> ";L$:SJ1WS:L$SW$(SJ)3120@ SJi& :"SORRY. WE DON'T HAVE ";L$;".":0 > FIGURE PRICE <: PPC((1)PC1CH20):PPCPPC1D :"A COPY OF THAT WEAPON WILL COST ";P;" GP.":"DO YOU WANT TO BUY THE WEAPON?"O THE SHOP":"BEFORE YOU CAN PURCHASE ONE.'":p WN$(4)"NONE"ĺ:"YOU ALREADY HAVE 4 WEAPONS (THE LIMIT)": :"DO YOU WANT TO REVIEW THE WEAPONS LIST?"::4030:A$"Y"İ1000 > FIND 1ST OPEN REC < SE14:WN$(SE)"NONE"3090 SE8SKS 'DO YOU HAVE ANOTHER":"WEAPON TO DONATE AT THIS TIME?'"F 4030W A$"N"2360h$ A$"Y"2100r. 2320~8 4100:  /// BUY ROUTINE ///  4100. :DF0ĺ"THE MAN SAYS 'I AM SORRY, BUT YOU MUST":"DONATE A SPECIAL WEAPON T:SG%(WS,5)DS) /// REMOVE WEAPON ///SJSE4:WN$(SJ)WN$(SJ1):WT%(SJ)WT%(SJ1):WO%(SJ)WO%(SJ1):WD%(SJ)WD%(SJ1):WU%(SJ)WU%(SJ1):SJ:WN$(4)"NONE"3500:"THE MAN SAYS 'YOU HAVE DONATED A WEAPON":"TO THE SHOP.'"< :"THE MAN ASPECIAL WEAPONS HERE.'":k:"THE MAN SAYS 'ONE MOMENT WHILE I RECORD":"YOUR DONATION. PLEASE WAIT.'" DSDS1:SD$(DS)NAME$:SF%(DS)1:WSWS1:SW$(WS)WNAME$(SE):SG%(WS,1)WTYPE%(SE):SG%(WS,2)WODDS%(SE):SG%(WS,3)WDICE%(SE):SG%(WS,4)WUSIDES%(SE)SW$(SJ)ĺ:"SORRY, BUT WE ALREADY HAVE A MODEL OF":"THE WEAPON ";A$;".":SSJSJ0:A$WN$(SE):(A$,5)"SWORD"(A$,5)"SPEAR"(A$,4)"MACE"(A$,3)"BOW"(A$,3)"AXE"SJ1SJĺ:"THE MAN SAYS 'THIS IS A STANDARD WEAPON.":"WE ONLY ACCEPT WN$(SE)"NONE"SESE1:21706fSE;" ----> ";WN$(SE)FpSE:SESE1mz:"ENTER WEAPON NUMBER ";:A$:A$(A$)1(A$)SEĺ::"YOU MUST ENTER A NUMBER FROM THE LIST.":2120SE(A$):A$WN$(SE) /// CHECK ALREADY GOT ///KSJ1WS:A$ԍōΠҍ͍à׍ààԍōΠҍ͍ "2 704:717,SS16:718,MS16:719,SD:720,MDG 17:34,16:936T :222,0 "-- PRESS 'RETURN' KEY TO BEGIN COPY --";:" ";I$ DK$" ORIGINAL":360: GET ORIG DISK 5:24::"READING": 707: READ A HUNK (713)2280:ON PROGRAM"::% Z704:CS(718)16A d715,(110)1:BUFSTART[ n716,(112)1:BUFEND I$" ORIGINAL":NCS:A718:310:MSN:N(720):320:MDN:A717 I$"DUPLICATE":NMS:310:SSN:N3MD:320:SDN FT0 5:24:" ":8:24:" ԍ ō΍ƍōčōōҍ͍ LPLEASE NOTE:   LHFOR ADDITIONAL INFORMATION PLEASE REFER   L~TO THE PLAYER'S MANUAL LOCATED ON THEX   LDUNGEON DESIGNER'S DISK. THIS DISK IS   LINCLUDED AS PART OF THE EAMON SERIES.   ڠ  O BE USED TO BUILD   L?EAMON CHARACTERS OF YOUR OWN"   LrDESIGN. BEFORE YOU CONTINUE PLEASEO   ڠ LINSERT THE EAMON MASTER DISK AND THEN   LPRESS ANY KEY TO CONTINUE.   ڠ LP   # K   ( 2 < F P Z d n x L|w 0 W L ꠕ +}   LNOMON I,O,C   ڠ   Xw LTHIS PROGRAM IS TEND OF PROGRAMBUILD YOUR OWN CHARACTER?N THIS DISK?IGHT POINTS OF THE MAINSSPEARS, AND SWORDS.Kd)%eQP&Q`^$^ II__ &_&^_`L Q+Ɂ')0)#&*&Q$IQQIQPQ`*۠R{i{ȱ{ȱ{k}ȱl~L`Ю꽌ɪФ`*x'8*xx  ')  x) `0Lh= < ȱ< n ة$l<1 <Q%,`h?L+>q?r SՍȄB` <L <Lvu X$# \ۦuv $LW۩L:ۅ <LPQF ePWODDS%(X):WDICE%(X):WSIDES%(X)) F D$"WRITE CHARACTERS,R0"P NC1_ D$"CLOSE"d < > p <=Chhl<`>?L >?^ <^ LHH , hh < , qL7 jL _L_^L % L L NL EL $LK#`h ,WTY$"AXE"WTYPE%(X)1Z 6WTY$"BOW"WTYPE%(X)2w @WTY$"MACE"WTYPE%(X)3 JWTY$"SPEAR"WTYPE%(X)4 TWTY$"SWORD"WTYPE%(X)5 ^WTY$"CLUB"WTYPE%(X)3 h"COMPLEXITY:";WODDS%(X) r"NBR DICE:";W"GOLD IN BANK:";BANK, "ARMOR CLASS:";AC7 X14U "WEAPON NAME:";WNAME$(X) WNAME$(X)"NONE"WTYPE%(X)0:WODDS%(X)0:WDICE%(X)0:WSIDES%(X)0:390 "WEAPON TYPE:";WTY$" "WTY$"AXE"WTY$"BOW"WTY$"MACE"WTY$"SPEAR"WTY$"SWORD"PEED "POWER SPELL:";POWER9 "AXE ABILITY:";WA%(1)T "BOW ABILITY:";WA%(2)p "MACE ABILITY:";WA%(3) "SPEAR ABILITY:";WA%(4) "SWORD ABILITY:";WA%(5) "ARMOR EXPERTISE:";AE "MALE OR FEMALE:";SEX$ "GOLD IN HAND:";GOLD a  D$(4)+D$"OPEN CHARACTERS,L150"GD$"READ CHARACTERS,R0"O(NC^2D$"CLOSE"<"NAME OF NEW CHARACTER:";NAME$F"HARDINESS:";HDP"AGILITY:";AGZ"CHARISMA:";CHd"BLAST SPELL:";BLASTn"HEAL SPELL:";HEAL x"SPEED:";Sڍ͍ōōōō ٠ҠҩččΠҍΠҍΠҍҍҍҍҍҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠҍΠ WEAPON YOU":"WANT TO SELL ME A STANDARD WEAPON LIKE":"I SELL? (HIT 'Y' OR 'N') ";jA$:A$"Y"2350|A$"N"2230 A$::P(50RTIO.5):"MARCOS SAYS, 'THEN I CAN ONLY GIVE YOU":P;" GOLD PIECES FOR IT, TAKE IT OR":"LEAVE IT!'"::"(HIT T O YOU, 'NOW HOW ABOUT SOME":"ARMOUR?'"::"(HIT Y OR N) ";XA$:A$"N"ĺA$::2210jA$"Y"2180xA$:2490"MARCOS SMILES AND SAYS, 'COME BACK":"AGAIN SOON!' AS HE SHOOS YOU OUT OF HIS":"SHOP."::100U:"MARCOS ASKS YOU, 'IS THIS HW14:WN$(W)N$N$N$"#":2120DRW:W14:WN$(W)"NONE"Ă\WN$(W)N$:WT%(W)TP:WO%(W)10(2Q):WD%(W)DICE:WS%(W)SIDES:GOLDGOLDPf"MARCOS HANDS YOU YOUR WEAPON AND TAKES":"THE PRICE FROM YOU.":pGOLDP(50)2210<z"HE NOW ASKS(Q1)BP2(Q3):PP(P)>PGOLDĺ:"MARCOS SHAKES A FINGER AT YOU AND SAYS,":"'YOU SHOULDN'T PLAY TRICKS ON AN OLD":"FRIEND! COME BACK WHEN YOU GOTTA MORE":"GOLD OR YOU WANT SOMETHING YOU CAN":"AFFORD.' HE THEN SHOOS YOU OUT THE":"DOOR."::100$F 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(BP2):"WHICH DO YOU WANT?'"::"(HIT THE KEY, G F OR P) ";*A$:Q13:A$("GFP",Q,1)Ă:20904A$:PBPBPNOW THE LAW--NO MORE THAN":"FOUR WEAPONS PER PERSON!'"::2220 "MARCOS SMILES AT YOU AND SAYS, 'GOOD.":"I GOTTA THE BEST. YOU WANTA AXE, BOW,":"MACE, SPEAR, OR SWORD?"::2650b:"MARCOS SAYS, 'WELL, I JUST HAPPEN TO":"HAVE THREE ";N$;"S IN, O KEY, B S OR A) ";CC2CH(11(1)5):C2C2(C20):RTIO10C2nA$:TR13:A$("BSA",TR,1)Ă:2030A$::TR2050,2220,2490?WN$(4)"NONE"ĺ"MARCOS SMILES AT YOU AND SAYS, 'THATSA":"GOOD, BUT FIRST YOU GOTTA SELL ME A":"WEAPON. YOU K THE WEAPON SHOP, MARCOS":"CAVIELLI (THE OWNER) COMES FROM OUT OF":"THE BACK ROOM AND SAYS, 'WELL, AS I""LIVE AND BREATH, IF IT ISN'T MY OLD PAL":NAME$;"! SO, YOU WANT TO":"BUY A WEAPON, SELL A WEAPON, OR GET":"SOME BETTER ARMOUR?"::"(HIT THE20PDK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE":5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$:::$DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:200:DK$;"CLOSE":DK$;"RUN ";ADNAME$j:"AS YOU ENTERARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC::DK$;"CLOSE" :5:"INSERT DISKETTE WITH ADVENTURE (OR KEEP"::"THIS DISKETTE FOR BEGINNERS CAVE) IN"::"DISK DRIVE IN SLOT SIX, DRIVE ONE THEN"::"HIT 'C'"::::" ";:16368,0A$:A$"C"10$:CMD(A$):CMD1CMD7130O CMD::CMD1000,2000,3000,4000,5000,6000,7020 NAME$:HD:AG:CH:X14:SA%(X)::X15:WA%(X)::AE:SEX$ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):W ; DK$;"OPEN CH SPELLS.":" 4. FIND THE BANKER TO DEPOSIT OR":" WITHDRAW SOME GOLD.":" 5. EXAMINE YOUR ABILITIES.":" 6. TEMPORARILY LEAVE THE UNIVERSE." s" 7. VISIT THE SPECIAL WEAPONS SHOP." x:"(HIT THE KEY FOR YOUR CHOICE, 1-7)"; A;"CLOSE" PP(X)(XRTIO.5) d:"AS YOU WANDER ABOUT THE HALL, YOU":"REALIZE YOU CAN DO ONE OF SEVEN THINGS--":" 1. GO ON AN ADVENTURE.":" 2. VISIT THE WEAPON SHOP FOR WEAPONS AND/OR ARMOUR." n" 3. HIRE A WIZARD TO TEACH YOU SOMEVENTURER":NAME$:REC:DK$;"CLOSE", (100 2DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AE <SEX$ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$, THE WONDERFUL WORLD OF2 EAMON8T MAIN HALL (BUY SPELLSp AND EQUIPMENT AND GO ON ADVENTURES) BY DONALD BROWN DK$(4)7000" DK$;"OPEN THE ADVENTURER,S6,D1":DK$;"READ THE AD              :TD%(1)TD%(1)MD%(DF,1):FD%(0)FD%(0)MD%(DF,13):FD%(1)FD%(1)MD%(DF,13):300nN R2ROOM:MD%(DF,14)0:5100 HIT0:MD%(OF,9)1ı MN$(OF);" ATTACKS ";MN$(DF):" --"; RL(100(1)1):HIT0:RL5RLMD%(OF,10)HIT1 HIT3600  RL97T31304 INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2E EAAE300h (100(1)1)MD%(0,10)3130}& A2:EAAE1A10 AEAEA:MD%(0,10)MD%(0,10)A: (MD%(DF,14))DF0300OD MD%(DF,3)MD%(DF,3)2:NBTLMD%(DF,14)0:TD%(0)TD%(0)MD%(DF,1)D." A:300& ///ATTACK COMMAND0 1950D S$"RAT"3050h M13:MD%(M,5)ROOMS$MN$(M)o 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:HIIES ABOUT!"::100,S$"ALL"2060yA1NA: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)12080WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPE)ROOM1150GjWTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":1150xtAN$(A);" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)~::300S$""ĺ:C$(C);" WHAT";:S$:1950///DROP COMMAND1950NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDL$AN$(5)S8A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100BWTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100L:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300V16000 `A1NA:AD%(A,4)):NBTLĂM100.///GET COMMAND81950S$"TORCH"ĺ:"ALL TORCHES ARE BOLTED TO THE WALL AND":"CANNOT BE REMOVED."::300S$"ALL"1120S$"RAT"1070A1416:AD%(A,4)ROOMS$AN$(A)$.S$"GOLD"S$"COINS"SM:TD%(1)MD%(0,1)DF0:3500:430prM21NM:MD%(M2,5)ROOMMD%(M2,14)(1).25DFM2:3500:M2200:M2:430|M2:DF0:3500:430OFMM21NM:MD%(M2,5)ROOMMD%(M2,14)DFM2:3500:M2200:M2:430M2:400 NBTL(FD%(0)TD%(0D%(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%(M,14))MD%(M,1):FD%(MD%(M,14))FD%(MD%(M,14))MD%(M,13):430^MD%(M,14)390#hOF000,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,21000 ,///COMMANDS RETURN TO HERE 6NBTL440 @M1NM:MD%(M,5)ROOM430LJMRF"Ă! V$(A$,A1):S$(A$,A1)B (S$,1)" "S$(S$,2):185 C1NC:C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::160 C$(C)S$S$V$:V$C$(C) C1000,1000,2000,3000,4000,4$:A$; AD%(A,4)ROOM(ANA)V%(ROOM)ĺ"YOU SEE ";AN$(A)n A:AD%(NA,4)ROOMĺ"YOUR ";AN$(A);" IS HERE."} V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):165 A$""A$CZ$:(37):17:A$ CZ$A$:A2(A$):(A$,A,1)" MMD%(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$: M:A1NA1:AD%(A,4)ROOM(ANA)V%(ROOM)ĺDK$;"READ EAMON.DESC,R";A100:A$:DKM 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$: }V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$: M1NM:MD%(M,5)ROO; EAMON ADVENTURE #1:-> THE BEGINNERS CAVE <-@Y BY DONALD BROWN_(:10:"PLEASE WAIT A SHORT WHILE"::" (WAKING UP THE MONSTERS)"2DK$(4):22000d///GIVE ROOM DESC IF NEVERi///HERE, THEN GET COMMAND n                   :      ڠ L% #   ڠ LASEX <     LhGOLD b   . L IN BANK    . ڠ L    ڠ LHARDINESS    .L AGILITY  ꠒf 砒f +L@ ꠔ Lv ꠒf 砒f + ꠔ LvLa \ ꠒf 砒f +  ꠒf 砒f +L ꠒf L ꠒf + L  L"  X LCHARACTER NAME 1C  ꠒ N 1C  ꠒk N 1C ^ 6 Lr   LxCLOSEr   ڠ|  L + ꠔ fꠒa + ꠔ f #젒a  頒f + ꠔ LvL @  C ^ J  D ^ T  C ^  C ^ ^  C ^ h  ꠕ +w ꠔ +h   ꠒâ) 1 A  ꠒ N 1C  ꠒ NC ^  C ^  C ^ ,  ꠕ +w ꠔ +,   ꠔ N 1C ^ 6 LZ6  ꠕ +L  ꠔ +6   ꠔ N 1C ^ 6 ޔLH ꠕ@ +  6 E@L w 0 W  ꠕ +   LvOPEN CHARACTERS,L150a   ڠ   LREAD CHARACTERS,R   . ڠ   D ^ L  L""  L'Y' OR 'N'   J D ^ L9Y7 J LJ LZNX J Ly L  K#  X w 0 W  ꠕ +  XLLISTING OF CURRENT CHARACTERS   ڠ ꠕE +LxJ  XL3IF YOUR DISC HAS TOO MANY CHARACTERS   LiSTORED ON IT, YOU MAY WISH TO DELETE C   LALL OF THEM AND START OVER CLEANy   LDO YOU WISH TO DELETE CURRENT CHARACTERSAND BEGIN WITH A NEW FILE?   ڠ DK$(4)*L$"WEAPON.SHOP DONERS">DK$;"OPEN ";L$RDK$;"READ ";L$Y(Wd-A$(W)o2X1Wz<A$(X)FPX1WZX,A$(X)dnDK$;"CLOSE"Dōà׍àԍččàƍҍǠҍŠōҍàč  " ͍à׍ҍ͍ōōōōōōč͍ŠűĠˠԍĠΠԍĠΠԍĠԍĠĠȍĠÍĠԍĠĠōӍōōčĠӍǍōӍˍōӍԍ٠ō ՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠԠŠȠĠƠŠǠ̮ϠҠԠˠŠϠӠΠŠԠĠԮŠ̠Ӡ͠ŬĠΠ̠ӠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŮէŠΠŠŠƠŠǠ̮ӠŠĠΠȠӠƠՠԠĠԩŠ̠ӠĠȮՠŠΠ̬ˠ̠ȠҠΠŠԠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠԠŠȠĠƠǠ̮̠ӠȮϠŠԠĠԠŠӠԠŠĠԠǠǠοΠŠ͠ՠΠŠԠŠ̠ӠȬՠԠŠԠ٠ӮӠŮՠŠΠ̬ˠ̠ȠҠΠŠԠŠƠŠͮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠŠҬŠƠӠԠƠԮǠӠŠӬǠԠ٠ϠŮĠȠĠȬĠŠŠŠӠϠȠŠԠĠԮŠӠϠȠŠԠĠԮՠŠΠ̠ŠҠϠԠƠŠŠҮԠӠ٠ĠŬĠŠ٠ԠӠΠ٠͠ŠŠҮՠŠΠˠȯȠ̮ϠŠȠՠŠŠԠԠǠΠ͠ŠŮϠŠȠՠŠǠȠԬԠՠԠŠԠ٠ӮՠŠԠŠŠƠŮϠŠȬҠŠ̠ŬӠΠǠӠٮϠŠȠӠŠĠˠϠή                             LK# L$X$   L\$DO YOU WISH TO BUILD YOUR OWN CHARACTER?$3   ڠ J D ^  L$Y$ J L$ L$N$ J L"* L$PLEASE TYPE 'Y' OR 'N'$   L $4  XL!%TYPE  L"#END OF PROGRAM#   ڠ L>#0#9     L#DO YOU WISH TO SEE THEM AGAIN? #b  J D ^  L#Y# J L' L#N# J L $ L#PLEASE TYPE 'Y' OR 'N'# 砒a +렒\ ꠒ a .L-"%"+   ڠ  6 \WL4  L\"@"W wL"PRESS ANY KEY TO CONTINUE "l   s򠒩. q X  ꠕ 砕 +LM  Xw 0 L"PR#0"   ڠ L"@"렒\ ꠒ 렔 +n ꠔ a 研 +렒\ ꠒ LM!Fa +!H ꠒa  \ ꠒ .L!D!  \ ꠒk . \ ꠒk a +n ꠒa  \ ꠒ a +렕  頒a 砒fL    ڠ  ꠒ\ +w ꠒW +  \ ꠒâ) LZ NONE U L:" \ ꠒâ) L \ ꠒâ)  \ ꠒ .L %  L @\ ꠒ a + ꠒa  砒a +IELD ꠔ fꠒa + ꠔ f #젒a    LT AE=L   .Lm%k   ڠX L    ڠb LWEAPON INFORMATION:   ڠl LNAME COMPLEXITY DAM ODDS   ڠv SWORD     . ڠ L) '   ڠ LIARMOUR: @   ꠔ f # G x y& LSKIN  L0 LLEATHER  L: LCHAIN  LD LPLATE  LN L AND SH . ڠ L    ڠ L;WEAPON ABILITY,   ڠ LWAXE R    .Lsn LBOW     .n LCLUB     . ڠ w LSPEAR     . L   .L CHARISMA    . ڠ LB @   ڠ  LrSPELL ABILITYc   ڠ LBLAST     .L HEAL     .L SPEED     .L POWER    D:N dDK$;"CLOSE";& DK$(4):L$"WEAPON.SHOP DONERS"JDK$;"OPEN "L$:DK$;"WRITE ";L$kN1:S$"BEATY (OUR FOUNDER)"v(N:S$2DK$;"CLOSE"<L$"WEAPON.SHOP WEAPONS"FDK$;"OPEN ";L$:DK$;"WRITE ";L$PS$"TROLLSFIRE":T5:C25:D10 ZN:S$:T:C:N:  Πҍ͍ҍ΍àčō͍ōōōԍōˠԍΠԍΠԍԍȍÍ   L*(WE RECOMMEND THAT THE TOTAL SUM(   L[(OF THE THREE DOES NOT EXCEED 48.(:   ڠ  xJ L(HARDINESS - HARDINESS RELATES TO THE(|   L(NUMBER OF POINTS OF DAMAGE YOUR BODY(   L )CAN WITHSTAND BEFORE YOU CTER ARE HARDINESS,AGILITY, AND&   LT'CHARISMA. WHEN RANDOMLY CHOSEN, THE'/   ڠ L'VALUE OF ANY ONE ATTRIBUTE CAN VARY'k   L'FROM A LOW OF 3 TO A HIGH OF 24. YOU'   L'MAY CHOOSE ANY VALUE YOU PLEASE, BUT' BEGIN TO BUILD%   ڠ   s ꠕ +LE&z&@ ꠒ) +p  6 )LS&z  X wL&BUILDING &v     s L&CHARACTER ATTRIBUTES&   L&THE THREE ATTRIBUTES OF ANY EAMON&   L'CHARAIN A NAME FOR YOUR NEW CHARACTER!$   ڠ> Lw%H Lj%YOUR NAME MUST BE 20 CHARACTERS OR LESS%B   ڠR   D ^ \    L% a +% ꠒa L8%f L%%  Lw%p  X wL&WE WILL NOW,1002000!100,170:20004170,280:2000G290,380:2000V390,520:|:" TO CONTINUE";MP$::D)9)((WODDS%(I))99));WDICE%(I);"D";WSIDES%(I);n3(WSIDES%(I)9));WODDS%(I)2AGEAWA%(WTYPE%(I));"%"uI24::"PRESS ANY KEY TO CONTINUE ";::A$::RECREC1:160:DK$;"PR#0"12:13:"END OF PROGRAM"22::30(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"@ " "[ "WEAPON INFORMATION:" "NAME COMPLEXITY DAM ODDS" " " I14 WNAME$(I)"NONE"4701WNAME$(I);17(WNAME$(I)));WODDS%(I);"%";6(WODDS%(I)0)((WOODS%(I)3);"WEAPON ABILITY"K r"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3)y |4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5) " " "ARMOUR: ";:(AC2)1411,412,413,414 "SKIN";:415 "LEATHER";:415 "CHAIN";:415 "PLATE";:4157 AME$ 6" "D @"SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANKM E" " J"HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH O" " T13);"SPELL ABILITY" ^"BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4) h" ":1GOLD,BANK ACV X14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSIDES%(X):Xg DK$;"CLOSE" EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40 EAEAAE:EA0EA0 NAME$""490 ":(12); ,"CHARACTER NAME: ";NK$(4):REC1" ONERR GOTO 160Q 23:1:"INSERT MASTER. PRESS RETURN ";A$w DK$;"OPEN CHARACTERS,L150,S6,D1" DK$;"READ CHARACTERS,R";REC NAME$:NAME$""490 HD,AG,CH X14:SA%(X):X X15:WA%(X):X AE SEX$ } TO LIST PROGRAM TYPE0 'GOTO 1000'6<(W2 EAMON IS A CREATIONn< OF DONALD BROWNtFP DISPLAY CHARACTERSZ BY MARK MAINSdn500x:11:11:"DISPLAY CHARACTERS":12:13:"BY MARK MAINS" D   ͠ō͍ōōōōҍĠčϠɍ͍ōōŠӠōΠҍ  N D$, D$"WRITE CHARACTERS,R";N_ NAME$:HD:AG:CH:BLAST:HEAL:SPEEED:POWERt X15:WA%(X):| AE SEX$:GOLD:BANK &AC 0X14 :WNAME$(X) DWTYPE%(X) NWODDS%(X) XWDICE%(X) bWSIDES%(X) lX vN%(3)10 TWDICE%(3)2( ^WSIDES%(3)6= hWNAME$(4)"NONE"M rWTYPE%(4)0] |WODDS%(4)0m WDICE%(4)0~ WSIDES%(4)0 D$"OPEN CHARACTERS,L150" D$"READ CHARACTERS,R0" NC N1NC D$;"READ ";L$;",R";N NM$ NM$""490ANK20000 AC7, WNAME$(1)"MAGIC BOW"< WTYPE%(1)1M WODDS%(1)15] WDICE%(1)2n WSIDES%(1)8 WNAME$(2)"MAGIC CLUB" WTYPE%(2)3 WODDS%(2)10 "WDICE%(2)1 ,WSIDES%(2)15 6WNAME$(3)"MAGIC BAT" @WTYPE%(3)3 JWODDS  D$(4)!L$"CHARACTERS"<NAME$"DUNGEON BUSTER"F(HD99P2AG99Z<CH99gFBLAST99sPHEAL99ZSPEEED99dPOWER99nWA%(1)99xWA%(2)99WA%(3)99WA%(4)99WA%(5)99AE99SEX$"M"GOLD12000 B     DK$(4).FDK$;"OPEN CHARACTERS,L150"MPDK$;"WRITE CHARACTERS,R0"UZ15tdDK$;"WRITE CHARACTERS,R1"|n""xDK$"CLOSE"DK$;"RUN SURVIVERS"F  PROGRAM SURVIVERS, DK$(4)LDK$;"OPEN CHARACTERS,L150"jDK$;"READ CHARACTERS,R0"r(NC{2DK$<R1NCADK$;"READ CHARACTERS,R";RFA$PDK$ZR,A$_(R20)R20ĺ:"PRESS RETURN TO CONTINUE...";B$: dR !ōōōҍ͍àōōō΍Πůנ̍Πůנ̠ǠƠԍŠŧӠōΠůנ̠ȠԠÍΠůנ̠ȠĠÍŠōŠٍԭέΠĠů׍Πůנ̍ŠРƠٍŠ͠ƠٍΠԠ̍Ԡ̍ŠŠƠǠōΠԠ̍Ԡ̍ŠȠĠƠǠōΠԠ̍ΠȯȠōŠŠōˠȯȠ̍ŠԠŠҍŠҍŠԠŠҍԠ̍ŠȠĠƠǠō  ;" DISK AND PRESS RETURN";:" ";DK$-9363&Πҍ!"ASDFGHJER"5"//////////////////////F1///"K"ABCDEF1ERTDTHS"bDFDFDFDDDDDDDDDD""PRESS RETURN TO CONTINUE ";B$A$:A$I1(A$)12(A$,I,2)"F1"ĺ"GOT ONE":20FIK"NOT HERE"P20B!ύýì˨ë˨ë˨ë˨ű˨ű˨˨˨Ү΍! nDK$D!! ! ! ! ! !$)0ĺT$:4259ST(N)(N1)TFS:EN(N2)(N3)TFSNXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:LISLINXT0STNXT:1230220' END 'CR0:::(4);"PR#0":"ANOTHER LISTING ON THIS PROGRAM?";A$:(A$,1)"Y"1005/.:"DONE.":: (DEFAULT=NO)";:15:" ";PO$:T6:16:PO$""P$"NO":1160e~P$"YES":(PO$,1)"N"P$"NO"mP$T8:"TITLE: ";T$T10:"ALL CORRECT? (DEFAULT=YES)";:15:" ";A$:(A$,1)"N"1005P$"YES"ĺ(4);"PR#";S::: :(TRT)";:15:" ";SLI$:SLI(SLI$):SLI$""SLI0:T2:16:"START"LT4:"END LIST AT: (DEFAULT=END)";:15:" ";ELI$:ELI(ELI$):ELI$""ELI65535VELISLIELISLI`ELI$""ĢT4:16:"END":1140jT4:16:ELIBtT6:"PRINTER ON? BEAGLE BROS"j:LOOP0:I031:A$(I)(I)"(c"(I64)")"::I32127:A$(I)(I)::I128234:A$(I):.T:"COLUMN WIDTH: (DEFAULT=40)";:15:" ";SW$:SW(SW$):SW$""SW40:T:16:SW8SWSW1@BT2:"START LIST AT: (DEFAULT=STA,*,/,^,AND,OR,>:=,<,SGN,INT,ABS,USR,FRE,SCRN(,PDL,POShSQR,RND,LOG,EXP,COS,SIN,TAN,ATN,PEEK,LENSTR$,VAL,ASC,CHR$,LEFT$,RIGHT$,MID$ PARAMETERS A$(255):Q$(34):N768:T5:TFS256:10000 ::"PR#0":::" XLISTER ";::" BY E,NORMALQ INVERSE,FLASH,COLOR=,POP,VTAB,"HIMEM:","LOMEM:",ONERR,RESUME,RECALL STORE,SPEED=,LET,GOTO,RUN,IF,RESTORE,&,GOSUB,RETURN REM,STOP,ON,WAIT,LOAD,SAVE,DEF,POKE,PRINT,CONT LIST,CLEAR,GET,NEW,TAB(,TO,FN,SPC(,THEN,ATNOT,STEP,+,-OP:LFLAG0:F CRCR1:P$"YES"MG0CRPGMG2āI1MG2:::CR0V PP13SP0\  END,FOR,NEXT,DATA,INPUT,DEL,DIM,READ,GR,TEXT PR#,IN#,CALL,PLOT,HLIN,VLIN,HGR2,HGR,HCOLOR=,HPLOT DRAW,XDRAW,HTAB,HOME,ROT=,SCALE=,SHLOAD,TRACE,NOTRAC10LOOP:425A :A$;PP127);:SPSP(A$)(PP127):A$"REM"ĞW PP10PP13İ425 TKFLAG(PP127):A$"THEN"THFLAG1  STNXT:200 :425 THFLAG0ĺ" * : "; THFLAG0ĺ" : "; LOOPĺLOOP2((P1)130)); SP7LOT"LFLAG1:LOOPLOOP2(LOOP0)J (LFLAG1A$",")LOOPLOOP2(LOOP0)m A$Q$A$"REM"QFLAGQFLAG1 ,A$":"QFLAG0TKFLAG0:420:400:COLON,NEW.LINE hPP127ĺTKFLAG0);:SPSP(TKFLAG0):LEADING.SPACE |SP(A$)SW1ĺ:9LOOP):SP0000:START.LIST TKFLAG0:QFLAG1:THFLAG1::425::"---------------------":425:LI;:LI10000);LI1000);LI100);LI10);" ";:SP6LOOP LOOPĺLOOP2((ST4)130)); PST4NXT2:PP(P):A$A$(PP) A$"FOR"LOOPLOOP2 A$"NEX f ==================== XLISTER LIST UTILITY BY BERT KERSEY BEAGLE BROS ==================== }2S1: PRINTER.SLOT<PG66:MG3:LINES.PER.PAGE.&.MARGINd1000 NXT(ST)(ST1)TFS:LI(ST2)(ST3)TFS:NXT0LIELIĺ:(4);"PR#0":1" " """"""""" %# (4);"RUN CHARACTER DISPLAY""  Πō̍ҠҍԠčĠōԍҍč٠čӍԍǠ΍