L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`ҠƠȍ͍ō׍ōčٍōōōٍƍōōōōٍōƍōōōōƍōō ʍ ʍ͍ōōōō  ٍ΍ ƍōōōōōƍōōōō䠠ᠠ䠠宠ᡩ宠ᡩ忍堠砠﬍䠠宠嬠䠠嬠栠堠堠z笠蠠砧堠à䠠纍ŠϠŠҧӠҍᩮ쮍嬠栠宠䬠ᠠź堠쬠堠堠砠婠讠ﬠ򠠨堠蠠蠠堠򡩠Ԡ̠宠堠歍堠٠򠠢ɢ堠箍٠ˠ䮍Ԡᠠ詮䠠䮍䠠άӬŬ׬լĬȬȬԬԬЬΠ젠堠䠠堠󮠠嬠栠堠č٠䠠Р٠䮨堠堠堠堠졩嬠砠ԠŢ栠ᠠ⠠䬠젠堠䮍讠젠䠠젠宠젨婠堠䬍砠宠宠堠䠠堠䠠ŠҧӠō砠ᠠ堠箠堠堠ɠ򠠠󬠠󬠠ﺍϠ砠堠宠䠠蠠󠠠ɠɍ䠠堠ɍ󮠠ɠ䠠򮠠堠䬠讍䬠䠠堠堠嬠塍ǠŠō砠宍䠠嬠堠堠䠠堠쬠砠󮠠堠砠堠嬠䠠堠嬠󮠠堠蠠뮩Ǡƍ젠䬠宍Šҍ蠠󩬠젨󩬠􍨳䠠󩬠䠠䠠󩮠蠠蠠堠젠堠嬍ᠠ堠쬠孭宍ǠӍ󬠠堠쬠砠宠庠򠨱ᠠ䬠򬠠쬠䠵򮠠堠젠ᠠ栠嬠堠堠䠠쬍栱묠䠠宍卵蠠栱婮嬍堠堠堠嬠󠠠󠠠ĸ䠠栵蠠󠠠栭栠婬蠠ᠠ栰婬䠨嬠Ķ栲Ķᠠ堠堠栠Ĵ堠捲ᠠ蠠ĵ栠ᠠ堠堠򮍠쬠堠젠䠠堲ᠠ򬠠󮠠堠砠󮠨嬠ǠӠĠҍ栠嬠孭󠠠宠ᠠ堠ᠠ栠䮠ɠ䠠庠䮠栠堠àԧ婮ᠠ宠嬠렠䬠堠堠堠堠堠宠堠䠠堠蠠塩殍堠ǠΠΠō嬠栠젠󮠠栠젠堠󮠠宍栠堠䠠򮠠嬠ᠠ򡩮ɬ堠젠䠠堠젠嬍렠栠䠠젠堠栠嬠䠠堠䠠뮠栠堠쬠䠠쮍堠塩䠠堠䠠堠ΠҠˮ堠孭堠卨蠠堢â젠נϠ٠Ġ٠٠΍嬠Π堠ɬ𧠠䠢Š̠Ġƍ΢򠠠謠堠堠䠧堠堠䠠蠠󬠠堠󬠠z #??      Π̠= ŠҠ̠Ҡ̮Ԡ ŠҠ ȠԠ ήŠŲΠҠ%  Š̠ĠƠΠ ήà" ٠נӠ Ӡ:c/DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:12080:DK$;"CLOSE":DK$;"RUN ";ADNAME$v2 DISPLAY CHAR2:10220000:FOUNDİ20100:4000290002:"NAME: ";NA$2"SEX ";SEX$;3);"GOLD ";GOLD;3);" IN BANK ";BANK2" "4A%(X)::AE:SEX$g:/GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):WrD/DK$:xN/~b/l/DK$;"OPEN EAMON.NAME":DK$;"READ EAMON.NAME":ADNAME$:DK$;"CLOSE"v/:5:"YOU ARE ABOUT TO ADVENTURE IN":::ADNAME$::A0EA0#DK$;"CLOSE"&3. /// ADVENTUREZ.:10:20000:FOUNDİ20100:14000d.9000/:"INSERT ADVENTURE DISKETTE INTO DRIVE 1"::" AND PRESS ANY KEY TO CONTINUE";&/A$::121100/NAME$:HD:AG:CH:X14:SA%(X)::X15:WNA$<#HD,AG,CH(F#X14:SA%(X):X>P#X15:WA%(X):XFZ#AEPd#SEX$_n#GOLD,BANKgx#AC#X14:WNAME$(X),WTYPE%(X),WOODS%(X),WDICE%(X),WSIDES%(X):X#EA5(AC2(AC2)):AC1EAEA10:AC3EAEA10:AC5EAEA40#EAEAAE:Eĺ:8:"";:A$::AN:DK$;"CLOSE"p::8:"";:A$y100@::20:15:"SELECT:";JBUZ12:CLICK110:S(Q):CLICK:TIME110:TIME:BUZ:T(#DK$;"READ CHARACTERS,R";REC2# T4090^:$hDK$"CLOSE":> ///DISPLAY & CHANGEDDK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:N1NC:DK$;"READ CHARACTERS,R";N:N$N$""ĄN2$DK$:"#";N;": ";N$;:N$""ĺ"(";N2$;")";-(N20)N20NTURE":"12::"E";::"ND":N12::"R";::"ESURRECT A CHARACTER":X8000p:"M";::22:CMD$CMD$(13)CMD$"M"X16:CMD$("MASTER",X,1)Ă:8000:4090CMD$:CX:X6:"C100,17000,13000,14000,15000,16000J8000HARACTERS,R";REC:12080:RECNCĺDK$;"WRITE CHARACTERS,R0":RECU DK$;"CLOSE":100h///OTHER MENUu7:95812::"M";::"AIN MENU":12::"A";::"DD A CHARACTER":12::"S";::"EE CHARACTERS":12::"T";::"EST AN ADVE A$:m DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:REC1NC:DK$;"READ CHARACTERS,R";REC A$:A$NA$Ă:3550 :DK$:6:"THAT CHARACTER IS ALREADY ON THIS FILE."::"ENTER A NEW NAME: ";NA$:DK$;"CLOSE":3520? DK$;"WRITE C CHARACTER":5 12::"R";::"ETURN TO MAIN MENU"? 8000I CMD$O b  CMD$"M"3500t  CMD$"R"100~  8000 & 3060 20000:FOİ20100:100 9000 :6:"INSERT DISKETTE TO RECEIVE CHARACTER"::" AND PRESS A KEY ...";HARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC::DK$;"CLOSE"::8:12::"CHARACTER DELETED.": 100:FOR TIME = 1 TO 2000: NEXT TIME: GOTO 100 ///MOVE A CHARACTER 16368,0: 10::"CHARACTER TRANSPORTING": 6:12::"M";::"OVE ACMD$:CX:X5:/ C1000,2000,3000,4000,50009 8000B 220X  /// ENTER EAMON DK$;"RUN THE WONDERFUL WORLD OF EAMON"  /// ASSASSINATE 16368,0: 8::"ASSASSINATE A CHARACTER"::6 20000:FOİ20100:100_ DK$;"OPEN C:"SSASSINATE A CHARACTER":C 12::"M";::"OVE A CHARACTER":d 12::"O";::"THER MENU": 12::"N";::"AMES OF CHARACTERS": 8000 :"E";::22 CMD$ CMD$(13)CMD$"E" X15:CMD$("EAMON",X,1)Ă:8000:210 R(X)+ PX14:SN$(X)::X15:WT$(X):? d /// MAIN MENU n::15::": :":15:" EAMON MASTER ":15:" MENU ":15:": :": o958 s16:CP$: x7:12::"E";::"NTER THE WORLD OF EAMON": 12::"A";:#EAMON MASTER MENU=BY JON HENG & JOHN NELSONC_REVISED BY RON MALEIKAetREV 09/85z  DK$(4):60000Q16336219000:X15:DW%(X)::X14:DS%(X): FR(X)((1)X1):A(X)R(X)R(X)             &6GWA%(X)(A$):E&@G::" IS THIS ACCEPTABLE? (Y/N) ";::" ";d&JGA$:A$"Y"A$"N"18250r&TGA$"Y"ı}&^G18050&8J /// READ DEFAULT CHAR&BJ:NAME$:HD,AG,CH:X14:SP%(X): 'LJAE:AC:X15:WA%(X)::X14:WN$(X),WT%(X),WC%(X),WD%(:(A$"1"A$"7")A$(13)181708%GA$(13)A$(AC)W%G9:13:958::AC(A$):ACb%GX15%"G9X:958:WT$(X);" EXPERTISE (0-100%) ";WA%(X);:(36)((WA%(X)))1:"";A$:(A$)0(A$)10018210%,GA$""A$(WA%(X)):(37):(WT$(X))21:A$7):(SN$(X))15:A$'$FSP%(X)(A$):$F"ARMOUR TYPE:":" 1. SHIELD ONLY":" 2. LEATHER":" 3. LEATHER AND SHIELD":" 4. CHAIN MAIL":" 5. CHAIN AND SHIELD"$F" 6. PLATE ARMOUR":" 7. PLATE AND SHIELD":"INPUT NUMBER 1-7 : ";AC;(8);!%FA$AG):(37):9:AGS#F"CHARISMA:";CH;:10:"";CH$:CH$""CH$(CH):(37):10:CHu#FHD(HD$):AG(AG$):CH(CH$)#FX14#FSN$(X);" ABILITY (%): ";SP%(X);:(36)((SP%(X)))1:"";A$:(A$)0(A$)100Ģ(37):18120$FA$""A$(SP%(X)):(3T$:ST$"N"ST$"Y"180203"nFST$:ST$"Y"19010"F:"NAME OF CHARACTER:";NA$;:(36)(NA$)1:"";A$:A$""A$NA$:1:19:A$"FNA$A$"F"HARDINESS:";HD;:11:"";HD$:HD$""HD$(HD):(37):11:HD#F"AGILITY:";AG;:9:"";AG$:AG$""AG$(%(X)0:WO%(X)0:WD%(X)0:WS%(X)0:!BDK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:DK$;"WRITE CHARACTERS,R";NC1:12080:DK$;"WRITE CHARACTERS,R0":NC1:DK$;"CLOSE":100!PF /// GEN TEST CHAR!ZF:"DO YOU WANT TO USE STANDARD?";"dFS MALE OR FEMALE (M / F): ";A |BSEX$:SEX$"M"SEX$"F"17020 BSEX$:HDA(8):AGA(8):CHA(8):X15:WA%(X)DW%(X)::X14:SA%(X)DS%(X)::AE20#!BGOLD500:BANK300:AC3:WN$(1)"MACE":WT%(1)3:WO%(1)10:WD%(1)1:WS%(1)4:X24:WN$(X)"NONE":WT BEEN RESURRECTED.":16120Q>:NA$;" ISN'T DEAD OR DOESN'T EXIST.":DK$"CLOSE">22:7:"";:A$:100?hB /// ADD A CHARACTERrB6:958:20000:FOUNDNA$""ĺ:"INVALID NAME OR ALREADY ON FILE.":2030 wB10:" )>:"CHARACTER TO BE RESURRECTED:";NA$K>DK$;"READ CHARACTERS,R0":NCz>R1NC:DK$"READ CHARACTERS,R";R:N$:ME$>N$""Ă:16110>ME$(NA$,2)Ă:16110>DK$"WRITE CHARACTERS,R";R:NA$:DK$"CLOSE"::"VERY WELL,";NA$;",":" YOU HAVE":DK$"OPEN EAMON.NAME":DK$"READ EAMON.NAME":AD$:DK$"CLOSE"Q9DK$"RUN ";AD$_: /// ENDp:DK$;"CLOSE"x::> ///RESURRECT>:5:10:"INSERT MASTER DISKETTE."::07:" ";:A$:>>DK$;"OPEN CHARACTERS,L150"":8A$::DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT"81:"TESTOR OF BENCH":HD:AG:CH:BL:HE:SP:PO:X15:WA%(X):815:"M":2000:1300:4:"AXE":1:10:1:6:"BOW":2:10:1:5:"MACE":3:10:1:4:"SWORD":5:10:1:8>8DK$"CLOSE:"EST CHARACTER":6800066:"R";:22::CMD$O6CMD$(13)CMD$"R"}6X13:CMD$("RAT",X,1)Ă:8000:140506SX:X3:7:S100,12000,145008180008:5:"INSERT ADVENTURE TO TEST AND PRESS ANY"::" KEY TO CONTINUE(WT%(I));"%"3IQ324::" PRESS ANY KEY TO CONTINUE ";::A$:Z3100r6 ///TEST ADVENTURE6:14::"TEST ADVENTURE"::6612::"R";::"ETURN TO MAIN MENU":612::"A";::"DVENTURE WITH REG. CHAR.":612::"T";:3"WEAPON INFORMATION:"D3"NAME COMPLEXITY DAM ODDS"M3" "X3I14t3WNAME$(I)"NONE"132803WN$(I);17(WN$(I)));WO%(I);"%";6(WO%(I)0)((WO%(I))9)((WO%(I))99));WD%(I);"D";WS%(I); 33(WS%(I)9));WO%(I)2AGEAWA%4);"SPEAR ";WA%(4);10);"SWORD ";WA%(5)1J3" "eT3"ARMOUR: ";:(AC2)113150,13160,13170,13180y^3"SKIN";:13190h3"LEATHER";:13190r3"CHAIN";:13190|3"PLATE";:131903(" AND SHIELD",110(AC2(AC2)));" AE=";AE;"%"3" "3"HARDINESS ";HD;" AGILITY ";AG;" CHARISMA ";CH=3" "X313);"SPELL ABILITY""3"BLAST ";SA%(1);" HEAL ";SA%(2);" SPEED ";SA%(3);" POWER ";SA%(4),3" ":13);"WEAPON ABILITY"63"AXE ";WA%(1);9);"BOW ";WA%(2);9);"CLUB ";WA%(3)(@3HERE! 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 FUN IN THE HALL!'": T350:DK$;"RUN MAILY 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"290\6A$::" HE HITS HIS FOREHEAD AND SAYS, 'AH,"::"YE MUST BE NEW '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$:A$NAME$330R:DK$:" HE EVENTUALHMAN 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:230Z(NAME$)20ĺ" HE SCOWLS AT YOU AND SAYS, A$"M"190 A$:::" 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!'":N A$:::" YOU ARE GREETED THERE BY A BURLY"::"IRIS"::"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)155ĂX 16368,0: A$:A$"D"220 RE 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"; :"A CUBBYHOLE WITH A DESK. OVER THE DESK16302,0 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,L150":DK$;"READ CHARACTERS,R0":NC:DK$ 5:" YOU A +THE WONDERFUL WORLD OF EAMON1FBY DONALD BROWNLyDRAGON PICTURE BY R. PHILLIPSREVISED BY JOHN NELSON d(4);"MAXFILES 8" n:DK$(4):DK$;"BLOAD EAMON.PIC,A$2000":16304,0:16297,0:  R":10:"CHARACTERS FILE."Y+ERR6LN350ė:10:5:"THIS IS NOT THE MASTER DISKETTE."+21::"ERROR";::":";ERR;" -IN LINE ";LN+:7:"";:A$::100B::X14:DS%(X): FR(X)((1)X1):A(X)R(X)R(X)Ȳ DEFAULT WEAPON ABIL.C*i 0,45,0,65: DEFAULT SPELL ABILITIESa*jm BLAST,HEAL,SPEED,POWER*tm AXE,BOW,MACE,SPEAR,SWORD*`///ERROR ROUTINES*jERR(222)*tLN(218)(219)256+~ERR6ERR5LN4040ė:10:5:"DISK DOES NOT CONTAIN PROPE ARMOUR CLASSJ)e 40,10,55,15,40: WEAPON ABIL: AXE/BOW/MACE/SPEAR/SWORDk)e MACE,3,10,1,4: 1ST WEAPON)e SWORD,5,10,1,8: 2ND WEAPON)e EXCALIBUR,5,25,2,8: 3RD WEAPON)f NONE,0,0,0,0 : 4TH WEAPON)f M,2000,4000*i 10,-10,30,15,20:OUND1:DK$:X(N:10:10::"CHARACTER NOT FOUND"::TIME11000:TIME:DK$;"CLOSE":k(NDK$;"CLOSE":(e TESTOR: NAME(e 20,18,16: HARDINESS/AGILITY/CHARISMA(e 50,90,60,50: BLAST/HEAL/SPEED/POWER(e 30 : ARMOUR EXPERTISE )e 4:X),WS%(X):'VJSEX$,GOLD,BANK+'`JNM$NA$1'jJE' N /// FIND CHARv'*N"NAME OF ADVENTURER:";NA$:NA$""FOUND0:'/NDK$"OPEN CHARACTERS,L150":DK$"READ CHARACTERS,R0":NC:REC1NC:DK$"READ CHARACTERS,R";REC:N$'4NN$NA$Ă:DK$:FOUND0: (>NF}kI]]਼揿"0ऎ񟈌$؛  $̱>"" > О쁠"  Aw]c]ο"  >>Ɓ ǟ ȇФ£ۃ㟬Ⴣ Ïئ           )":DHE WONDERFUL WORLD OF EAMON1FBY DONALD BROWNLyDRAGON PICTURE BY R. PHILLIPSREVISED BY JOHN NELSON d(4);"MAXFILES 8" n:DK$(4):DK$;"BLOAD EAMON.PIC,A$2000":16304,0:16297,0:CNT13ĺ"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 NEVER":"SEEN BEFORE! (AND NEVER WILL AGAIN.IF YE KNOW WOTS":"GOOD FER YE!!!"(CNT2ĺ"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!!!!":"THEN HE SAYS 'ARE YE READY T' TALK NOW?":KN HALL,S6,D1"a^DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE":z ///NO NAME ROUTINECNTCNT1:CNT1450"" HE PULLS OUT A SWORD AND BEGINS TO":"SHARPEN IT, SAYING 'YE'D BEST BE GIVIN'":"ME YER NAME LADDIE, }]]]]6""""0ύ࿂""" 8""8"8̣ 8 "" 8"""號Ё>""2<><""""""<"""*">"*$>>"2"""**><"""*>"*>"}A]]M迌сر*>"*>">>$$>0<"<$">$<$"$ȁ$>*">$">""Ġ"*"*  "  """""" <"""""*$" "<ρÁ㣞*"">"**" <   """""*"<a]U]Uȁؿكș*""*""""$$"0·޿ " $"">$ $ "$$"*<" $""<"ᗠ"*"&<" ""< Ƈ&<< "< }]U]Yп那ȇಠ"<"0ǟ࿈$$فȖ$  描ῠȁ6""$" " "  RISHMAN 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$:0 Z:"THE IRISHMAN WALKS AWAY AND IN WALKS A":"TALL MAN OF POSSIBLY ELVISH DESC^NEW CHARACTERS0BY DONALD BROWN6<BQREV 08/85W] j DK$(4)R(X)(X(1)1)A(X)R(X)R(X)R(X)(DK$;"OPEN THE ADVENTURER,S6,D1":DK$;"READ THE ADVENTURER":NAME$:DK$;"CLOSE"x 2:"THE I      ŠΠҠӮŠԠΠŠҠԠȠŠ٠ǮĠԠĠĠҠĠϠ̠Π֮ŠĠŠϠӠҠĠŠϠٍŠĠŠϠӠҠĠԠƮǠΠĠ٠ҠĠΠӠԍ٠ǠӠŠΧΠƠȠŠҠȮ٠ӠΧΠ٠ĠҠŠΠϠϮǠӠΧҠ̠ŠӠΧРĠ̠٠Ġ̠ԠӠҠҠήǠϠŠӠΠˠӠŮǠΠ٠ӠŠԠҠǠŠӠ׭ԭ̠ӠƠŠנӠ̠Ϡ͠ήƠŠӠŠŠŧӠǠϠԠӠԠŮŠĠŠϠӠҠĠΠΠήĠҠΧǠӠĠŠΠԠΠǮŠΠӠŠΠҠŠԠŠ̮ŠĠŠϠӠҠĠŠϠٮǠҠӠϠϠΠǠŠӠƠӮǠέӠӠĠŠϠĠ͠٠ŠčŠӠŠӠϠȠҠŠĠӮā̃>"""<<<""<<"<"<<""<""<<<<"<"<A]]c]Á́Ʊ"<"Ã">>Ł<"< < " Ȣ "< "<賐Ї"""" """"""""""""*"""""""""""" ""*""" '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."ADK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACTERS,R0":NC:R1NC:DK$;"READ CHAR 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 AND SAYS,"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 THEYWERENTINUE) ";: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 TIME"QYOU 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 KEY TO CO"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.":h"AFTER GS SUCH AS"::" 'WOW! THAT ONE HURT!'":"OR 'YOU DON'T FEEL VERY WELL'":zJ"(HIT ANY KEY TO CONTINUE) ";:A$::?T"YOUR CHARISMA (";CH;") AFFECTS HOW CITIZENS":"OF EAMON REACT TO YOU. YOU AFFECT A":"MONSTER'S FRIENDLINESS RATING BY YOUR":DDITIONALLY, YOUR HARDINESS TELLS HOW":"MANY POINTS OF DAMAGE YOU CAN SURVIVE.":"THEREFORE, YOU CAN BE HIT WITH ";HD:"1-POINT BLOWS BEFORE YOU DIE.":M@"HOWEVER, YOU WILL NOT BE TOLD HOW MANY":"BLOWS YOU HAVE TAKEN. YOU WILL BE":"MERELY TOLD THIN THE NET EFFECT OF ARMOUR":"WILL NEVER INCREASE YOUR CHANCE TO HIT.":t""(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)":6"A":" 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."G"NO MATTER HOW HIGH YOUR ARMOUR EXPERTISEIS, HOWEVER,N 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;35);"-60%ER FROM 1-100":"IS LESS THAN YOUR CHANCE TO MISS!":_"(HIT ANY KEY TO CONTINUE)";:A$::7"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 PLACED UPO ARE--":" CLUB/MACE 20%":" SPEAR 10%":" AXE 5%":" SWORD 0%":" BOW -10%":5"EVERY TIME YOU SCORE A HIT IN BATTLE,":"YOUR ABILITY IN THE WEAPON CLASS MAY GO":"UP BY 2%, IF A RANDOM NUMBOF 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 WITH EACH)'HERE IS A BOOKLET OF":"INSTRUCTIONS THAT YOU SHOULD READ.'": "(PRESS 'R' TO READ THE BOOKLET, OR":" 'G' TO GIVE IT BACK.)"; A$:A$"G"500 A$"R"140 ::"YOU READ THE INSTRUCTIONS AND THEY SAY--"::" INFORMATION ABOUT THE WORLD ENT."::"HE STUDIES YOU FOR A MOMENT AND SAYS,"U d"YOUR PRIME ATTRIBUTES ARE--":t nHDA(8):AGA(8):CHA(8) x" HARDINESS--";HD:" AGILITY --";AG:" CHARISMA --";CH: }600: IF HD + AG + CH < 39 THEN GOSUB 600? :"THEN HE SAYS, ERSON!'"::2220 "MARCOS SMILES AT YOU AND SAYS, 'GOOD.":"I GOTTA THE BEST. YOU WANTA AXE, BOW,":"MACE, SPEAR, SWORD, OR UNUSUAL WEAPON?":2650A:"MARCOS SAYS, 'WELL, I JUST HAPPEN TO":"HAVE THREE ";N$;"S IN, OF VARYING":"QUALITY. I'VE GOT A C2(C20):RTIO10C2?A$:TR13:A$("BSA",TR,1)Ă:2030\A$::TR2050,2220,2490WN$(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 P COMES FROM OUT OF":"THE BACK ROOM AND SAYS, 'WELL, AS I""LIVE AND BREATHE, IF IT ISN'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):C2ON.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$:::"AS YOU ENTER THE WEAPON SHOP, MARCOS":"CAVIELLI (THE OWNER)TO PREVENT CHARACTER FROM BEING ERASED :5:"NOW REMOVE THE EAMON MASTER AND"::"INSERT THE DISKETTE WITH THE ADVENTURE"::"OF YOUR CHOICE."::"PRESS 'C' TO CONTINUE.";:16368,0 A$:A$"C"1020 DK$;"OPEN EAMON.NAME":DK$;"READ EAM:SA%(X)::X15:WA%(X)::AE:SEX${ GOLD:BANK:AC:W14:WNAME$(W):WTYPE%(W):WOODS%(W):WDICE%(W):WSIDES%(W):W &  PRINT DK$;"OPEN CHARACTERS,L150": PRINT DK$;"WRITE CHARACTERS,R";REC: PRINT : PRINT DK$;"CLOSE":REM CHANGED TO 'REM' UR ABILITIES."_ s" 6. TEMPORARILY LEAVE THE UNIVERSE.":" 7. TAKE SOME WEAPON TRAINING." x:"(HIT THE KEY FOR YOUR CHOICE, 1-7)"; A$:CMD(A$):CMD1CMD7130 CMD::CMD1000,2000,3000,4000,5000,6000,7000% NAME$:HD:AG:CH:X14HESE THINGS:"::" 1. GO ON AN ADVENTURE.":" 2. VISIT THE WEAPON SHOP FOR WEAPONS AND/OR ARMOUR." n" 3. HIRE A WIZARD TO TEACH YOU SOME SPELLS.":" 4. FIND THE BANKER TO DEPOSIT OR":" WITHDRAW SOME GOLD.":" 5. EXAMINE YOTERS,R";REC:NAME$:HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AEL <SEX$ FGOLD,BANK:AC:W14:WNAME$(W),WTYPE%(W),WODDS%(W),WDICE%(W),WSIDES%(W):W:DK$;"CLOSE" PP(X)(XRTIO.5)l d:"IN THE MAIN HALL, YOU DISCOVER":"YOU CAN DO ONE OF Tn;MAIN HALL+BY DONALD BROWN17=LREV 12/84RX e DK$(4)q17000DK$;"OPEN THE ADVENTURER":DK$;"READ THE ADVENTURER":NAME$:REC:DK$;"CLOSE"(100B 2DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARAC                ΍͍ōōōōA$:A$"Y"A$"N"620)v::A$"N"ı]"HERE ARE YOUR NEW PRIME ATTRIBUTES:":::110DK$(4)R(X)(X(1)1)A(X)R(X)R(X)R(X)(DK$;"OPEN THE ADVENTURER,S6,D1":DK$;"READ THE ADVENTURER":NAME$:DK$;"CLOSE"x 2:"THE IDK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":NAME$:R:DK$;"CLOSE"eNDK$;"RUN MAIN HALL"kSX///CHANGE PRIME ATTRIBUTESb:"IF YOU WISH, YOU MAY CHANGE YOUR PRIME":"ATTRIBUTES!' (PRESS 'Y' TO CHANGE OR":"'N' FOR NO CHANGE)";lACTERS,R";R:A$:A$""Ă:DK$;"WRITE CHARACTERS,R0":NC1:RNC1hDK$;"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$;"CLOSE"LDOUR OF ";TI;" GOLD PIECES.":d! "WELL, WHAT WILL IT BE?'"::"(HIT N FOR NOTHING OR L C OR P) ";! A$:A14:A$("NLCP",A,1)Ă:2530! A$::A12570U" PP(100(A2)250(A3)500(A4))TI:PGOLDĺ"MARCOS FROWNS WHEN HE SEES THAT YOU DO":IB12TIB12 :"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 PLATE.":! TIĺ"ALSO, I CAN GIVE YOU A TRADE-IN ON YOUR":"OLD ARM2370$ (W$,2,1)"P"BP25:23704 BP50:2370 A2(AC2):SHACA22:B125(A21)60(A22)100(A23):TI(B1RTIO.5):"MARCOS TAKES YOU TO THE ARMOUR SECTION":"OF HIS SHOP AND SHOWS YOU SUITS OF":"LEATHER ARMOUR, CHAIN ARMOUR, AND PLATE.":TGIVE YOU ";P;" GOLD PIECES":"FOR IT, TAKE IT OR LEAVE IT.'"::"(HIT T OR L) ";mV A$:A$"L"ĺA$::2210` A$"T"2390j A$::2300t :WW14:("ABMS",WW,1)(W$,1)ĴWW2440,2450,2460,2470~ WW BP25:2370 BP40:2370 BP20:Ă:"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)QL "MARCOS EXAMINES YOUR WEAPONS AND SAYS,":"'WELL, YOU'VE BANGED IT UP A BIT, BUT":"I CAN NONET :"MARCOS ASKS YOU, 'HOW ABOUT BUYING A":"WEAPON?'"::"(HIT Y OR N) ";p A$:A$"Y"ĺA$::2050 A$"N"2320$ A$::2160. :"MARCOS ASKS, 'WELL, WHAT WEAPON YOU":"WANTA RETURN'?"::2635:R8 W2W:W14:(WN$(W),(N$))N$ L) ";$A$:A$"L"ĺA$::22106A$"T"2296>A$"MARCOS GIVES YOU YOUR MONEY AND TAKES":"YOUR WEAPON."::UW$(U)"":GOLDGOLDP:W2W4:WN$(W2)WN$(W21):WT%(W2)WT%(W21):WO%(W2)WO%(W21):WD%(W2)WD%(W21):WS%(W2)WS%(W21)::WN$(4)"AND SAYS, 'I'M SORRY":2294':2300Y"BUT I JUSTA GOT ";Q;" OF THOSE IN A COUPLE""A MINUTES AGO AND I DON'T NEED MORE."::"BUT, BECAUSE I LIKE'A YOU, I'LL STILLA":"GIVE YOU ";P;" GOLD PIECES FOR IT;"::"TAKE IT OR LEAVE IT!'"::"(HIT T OR"(W$,3)"BOW"(W$,3)"AXE":Lĺ"MARCOS FROWNS AT YOU AND SAYS, 'THIS IS":"A WEAPON LIKE I SELL, REMEMBER!'":2420U14:UW$(U)W$P(P4.2):Q((1)25)11::"AS YOU TRY TO GIVE THE WEAPON TO MARCOS":"HE SHOWS YOU A SHELF BULGING WITH":W$;"S 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.":100uL(W$,5)"SWORD"(W$,5)"SPEAR"(W$,4)"MACES, '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"2260SA$::"MARCOS SAYS, 'OKAY, WHAT'VE YOU GOT?"::"(ENTER THE WEAPON NAME)";W$:W14:WN$(W)W$Ă::""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"2230fA$::P(50RTIO.5):"MARCOS SAYS YOU YOUR WEAPON AND TAKES":"THE PRICE FROM YOU.":KpGOLDP(50)2210z"HE NOW ASKS YOU, 'NOW HOW ABOUT SOME":"ARMOUR?'"::"(HIT Y OR N) ";A$:A$"N"ĺA$::2210A$"Y"2180A$:2490:"MARCOS SMILES AND SAYS, 'COME BACK":120#RW:W14:WN$(W)"NONE"ĂT(N$,3)"AXE"(N$,3)"BOW"(N$,4)"MACE"(N$,5)"SPEAR"(N$,5)"SWORD"U((((1)2)4.5)1.9):2140WU2\WN$(W)N$:WT%(W)TP:WO%(W)(5U)(2Q):WD%(W)DICE:WS%(W)SIDES:GOLDGOLDP5f"MARCOS HANDOLDĺ:"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."::100HW14:WN$(W)N$N$N$"#":2VERY 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$:PBPBP(Q1)BP2(Q3):PP(P)>PGP,1)Ă:3040-1 SP3060,3070,3080,3090,3200K1 "BLAST":PP(3000):3100h1 "HEAL":PP(1000):31001 "SPEED":PP(5000):31001 "POWER":PP(100)J2 ::PGOLDĺ"WHEN HOKAS SEES THAT YOU DON'T HAVE":"ENOUGH TO PAY HIM, HE STALKS TO THE":"BA " SPEED ";:KKP(5000):5((KK)));KK;:" GOLD PIECES"0 " POWER ";:KKP(100):5((KK)));KK;:" GOLD PIECES":0 "WHICH WILL IT BE?'"::"(PRESS B, H, S OR P FOR YOUR SPELL,":"OR PRESS N FOR NONE.) "; 1 A$:SP15:A$("BHSPN",STO TEACH YOU A MAGIC SPELL?'"v/ :"'WELL, IT'LL COST YOU. MY FEES ARE:":C2CH(11(1)5):C2C2(C20):RTIO10C2/ :" BLAST ";:KKP(3000):5((KK)));KK;:" GOLD PIECES"/ " HEAL ";:KKP(1000):5((KK)));KK;:" GOLD PIECES">0 AND THE RATTLING OF CONTAINERS. FINALLY, YOUHERE A MUFFLED 'AHA!' AND MARCOS EMERGESWITH HIS ARMS FULL."o. / ::"AFTER A FEW MINUTES DILIGENT SEARCHING,":"YOU FIND HOKAS TOKAS, THE OLD MAGE. HE":"LOOKS AT YOU AND SAYS, 'SO YOU WANT OLD":"TOKEY SIDE(SIDE2):TP3:2997"- A$;:]- A$:A$"P"ĺ"PEAR":BP(BP5):SIDE(SIDE1):TP4:2997o- A$"W"2988- "WORD":BP(BP10):SIDE(SIDE1):TP5- SIDE3SIDE3i. :"MARCOS DISAPPEARS INTO THE BACK ROOM. YOU HEAR THINGS BEING DRAGGED ABOUTAL WEAPON IS MOSTLIKE: AXE, BOW, MACE, SPEAR, OR SWORD?"d, "(HIT THE KEY(S), A B M SP OR SW): ";:, A$:W14:A$("ABMS",W,1)Ă:2960, W2970,2975,2980,2985, "AXE":BP(BP5):TP1:2997, "BOW":BP(BP8):TP2:2997- "MACE":BP(BP4):":DICE((((.55(1))2)10)1):SIDE((((8(1))(8(1))(8(1))(6(1))6)2)(DICE)):BP250:29508, :" 'OK', SAYS MARCOS, 'I GOTTA LOOK INNA BACK ROOM TO SEE IF I GOT ANY OF THESE IN STOCK. YOU CAN HELP ME BY TELLING ME WHICH WEAPON YOUR UNUSU*T W2910,2920,2930y*^ "AVERAGE":DICE(((1)1.1)1):SIDE((((6(1))(6(1))(6(1))6)2)(DICE)):BP30:2950*h "SUPERIOR":DICE((((.46(1))2)10)1):SIDE((((6(1))(6(1))(6(1))(6(1))5)2)(DICE)):BP100:2950h+r "MATCHLESSHE TYPE OF":"WEAPON I USUALLY GET REQUESTS FOR.")6 :" 'WHATSA THE CLASS OF THIS WEAPON THAT YOU FIGURE YOU CAN AFFORD?',MARCOS SAYS,'I GOT AVERAGE, SUPERIOR, AND MATCHLESS'")@ :"(HIT THE KEY, A S OR M) :";*J A$:W13:A$("ASM",W,1)Ă:2890PS THIS WEAPON IS KNOWN BY ANOTHER NAME?":::2830O(% (N$,4)"NONE"ī2210y(' (N$,1)" "N$(N$,((N$)1)):2855(( U14:UW$(U)N$N$N$"#":2856() U:U14:UW$(U)""Ă(* UW$(U)N$1), :" 'HMMM...', SAYS MARCOS, 'THE":;N$;" IS NOT T:9' "YOU NAME THE WEAPON (TYPE IT IN NOW) ==> ";N$' :N$""ĺ"MARCOS SAYS, 'YOUR LIPS MOVED BUT I DIDN'T CATCH THE NAME.'":::28305(" (N$)18ĺ"THAT SOUNDS LIKE A STRANGE WEAPON. ALL MY WEAPONS HAVE NAMES OF 18 LETTERS OR LESS. PERHA3:SIDE4:2750& A$;:S& A$:A$"P"ĺ"PEAR":BP25:N$"SPEAR":TP4:SIDE5:2750e& A$"W"2720& "WORD":BP50:N$"SWORD":TP5:SIDE8& DICE1:& ///UNUSUAL WEAPONS BY BOB LINDEN& "UNUSUAL"' :"'WHATSA THIS UNUSUAL WEAPON CALLED?'"2680,2690,2700,2710=%Z "PRESS KEY(S): A B M SP SW OR U :";h%d A$:W15:A$("ABMSU",W,1)Ă:2660%n W2680,2690,2700,2710,2800%x "AXE":BP25:N$"AXE":TP1:SIDE6:2750% "BOW":BP40:N$"BOW":TP2:SIDE6:2750& "MACE":BP20:N$"MACE":TPAYS, '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$H $K "(HIT THE KEY(S), A B M SP OR SW) ";:$P A$:W14:A$("ABMS",W,1)Ă:2640%U W":"A SHIELD? I CAN LET YOU HAVE ONE FOR":"ONLY ";P(50);" GOLD PIECES!'"::"(HIT Y OR N)";z# A$:A$"N"ĺA$::2630#( A$"Y"25906$2 A$::GOLDP(50)ĺ"WHEN HE SEES THAT YOU DO NOT HAVE":"ENOUGH GOLD TO BUY THE SHIELD, MARCOS":"FROWNS AND S"NOT HAVE ENOUGH 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."::GOLDGOLDP:A2A1" SH2630^# "MARCOS SMILES AND SAYS, 'NOW HOW ABOUTCH(11(1)5):C2C2(C20):RTIO10C2APRP(BP20)::"THE ATTENDANT SAYS THAT WILL BE ";PR:"GOLD PIECES."::"DO YOU WANT TO TAKE THE TRAINING?"A"ENTER (Y OR N) ";AA$:A$"Y"A$"N"7080AA$:A$"N"100~BPRGOLDĺ:"THE ATTENDANON@b:"AS YOU ENTER THE TRAINING CENTER, THE":"SMELL OF SWEAT GREETS YOU AT THE DOOR."::"AN ATTENDANT COMES OVER AND ASKS IF YOU"@l"WOULD LIKE TRAINING ON THE AXE, BOW, MACE, SPEAR OR SWORD. ENTER 'A' 'B' 'M' 'SP' OR 'SW' ";@v2660'AC2AN":"COMES UP TO YOU, SLAPS YOU ON THE BACK":"AND SAYS, 'Y'ALL COME BACK REAL SOON,":"YA HEAH?'"?zDK$;"OPEN CHARACTERS,L150":DK$;"WRITE CHARACTERS,R";REC:200:DK$;"CLOSE"?DK$;"DELETE THE ADVENTURER"?@X ///TRAINING CENTER BY JOHN NELS02>WN$(W)"NONE"ĺ:" NO WEAPONS":5090>WN$(W);20(WO%(W)0)((WO%(W))10)((WO%(W))100));WO%(W);"% ";WD%(W);" D ";WS%(W)>W:23:16368,0:"(HIT ANY KEY TO CONTINUE) ";:A$::100>c?p:"AS YOU LEAVE THE HALL, THE IRISHM(WA))100));WA%(W);"% ";::~=:A2(AC2):"ARMOUR: ";("SKIN LEATHERCHAIN PLATE ",A271,7);:ACA22ĺ" AND SHIELD";=30);"AE=";AE;"%"::"GOLD IN HAND=";GOLD;", BANK=";BANK">:"WEAPONS";19);"CMPLX DAM":W14:W1WN$(W)"NONE"509"YOU KNOW THE FOLLOWING SPELLS--":SM0:S14:SA%(S)ĺ("BLASTHEAL SPEEDPOWER",(S1)51,5);" ";:SM1<S:SMĺ" NO SPELLS";=::"YOUR WEAPON ABILITIES ARE--":" AXE BOW CLUB SPEAR SWORD":" ";:W15:1(WA%(W)0)((WA%(W))10)((WA%MNY:"SHYLOCK TAKES YOUR MONEY, PUTS IT IN":"HIS BAG, LISTENS TO IT JINGLE, THEN":"THANKS YOU AND WALKS AWAY."::100};";:"YOU ARE THE ";("MIGHTY FAIR ",17(SEX$"F"),7);NAME$::"YOUR ATTRIBUTES ARE:":" HD=";HD;" AG=";AG;" CH=";CH:g<100: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 KINDLY BANKER."::100w;GOLDGOLDMNY:BANKBANK 'GOOD FOR YOU! HOW MUCH DO":"YOU WANT TO DEPOSIT?'"::"(ENTER THE AMOUNT YOU WANT TO DEPOSIT)":" ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWLS AT YOU AND SAYS,":"'COME, COME, YOU'RE NOT MAKING SENSE!":"TRY AGAIN.'"::4:"THE CROWD."::1008GOLDGOLDMNY: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."::10069"SHYLOCK GETS A WIDE GRIN ON HIS FACE":"AND SAYS,LS AND SAYS,'COME, COME,":"YOU'RE NOT MAKING SENSE! TRY AGAIN.'"::40608MNYBANKĺ:"THE BANKER THROWS YOU A TERRIBLE GLANCE":"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""W"40306A$::"SHYLOCK SAYS, 'WELL, YOU HAVE ";BANK:"GOLD PIECES STORED WITH ME. HOW MANY":"DO YOU WANT TO TAKE BACK?'":J7"(ENTER THE NUMBER OF GOLD PIECES TO":" WITHDRAW) ";A$:MNY(A$):MNY0MNY(MNY)(MNY)A$ĺ:"THE BANKER SCOWER TO YOU AND SAYS, 'WELL,"5NAME$;", MY DEAR ";("GIRLBOY",(SEX$"M")41,4);",":"WHAT A PLEASURE TO SEE YOU! DO YOU WANT"5"TO MAKE A DEPOSIT OR A WITHDRAWL?'"::"(HIT 'D' FOR DEPOSIT, 'W' FOR WITHDRAWL) ";5A$:A$"D"ĺA$::4090 6A$YOU HEAR HOKAS MUTTERING":"ABOUT 'CHEAPSKATE ADVENTURERS":"WHO CAN'T MAKE UP THEIR MINDS.'":::1005:"YOU HAVE NO TROUBLE SPOTTING SHYLOCK":"MCFENNEY, THE LOCAL BANKER, DUE TO HIS":"LARGE BELLY."::"YOU ATTRACT HIS ATTENTION, AND HE COMES":"OVS TO":"BAR."::10030 GOLDGOLDP:SA%(SP)(50(1)26):"HOKAS TEACHES YOU YOUR SPELL, TAKES":"HIS FEE, AND RETURNS TO HIS STOOL ON":"THE BAR. AS YOU WALK AWAY YOU HEAR"3: "HIM ORDER A DOUBLE DRAGON BLOMB."::1003D f4 :::"AS YOU LEAVE, R, MUTTERING ABOUT ADVENTURERS WHO":"SHOULD BE TURNED INTO FROGS."::1003& 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 RETURN                     !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""               '": :DK$;"CLOSE"2 :::DK$;"CATALOG": R=CIOU[ o DK$(4):C3232z1000 :5::11:"EAMON PLAYER'S MANUAL"::::"PRESS 1 FOR MANUAL TO PRINT--"::" 1. PLAYER'S MANUAL"::" 2. QUIT - CATALOG": "TO 1 IF YOUR PRINTER CANNOT ACCEPT":"LOWER-CASE CHARACTERS AND 0 OTHERWISE,":"AND SET LL TO YOUR LINE WIDTH LESS ONE.":"LINE WIDTH MUST BE AN EVEN MULTIPLE OF":"40, SO LEGAL LLS ARE 39,79,139,ETC." :"FINALLY, YOUR ROUTINE MUST DO A 'RETURNI0$:I0$""! (16384)128120/ 16368,0F (16384)128240Y 16368,0:120i DK$;"PR#1"r SU1| LL79  "YOU ARE TO ADD A ROUTINE TO ACTIVATE":"YOUR PRINTER IN LINES 500-999. IT MUST":"DO YOUR PR#N (OR EQUIVALENT), SET SU"PAYMAR CHIP!" d:DK$;"OPEN ";F$- nI0$""H xDK$;"READ ";F$:I2$""^ A$:A$(13)190} A$"_"SUA$((A$)C32) I2$I2$A$:130 (I2$,1)" "I0$""ĺI0$:I0$"" I0$""I0$I0$" " I0$I0$I2$:(I2$)39(I0$)LL5ĺ::"PRESS 1 OR 2) ";6 A$:C(A$):C1C230R (F$"PLAYER MANUAL.TEXT"a -C2ī2000 2A$::"HIT 'P' TO USE PRINTER, 'V' FOR VIDEO "; <A$:A$"P"A$"V"60 FA$:A$"P"İ500:100 PLL39 ZSU1:///CHANGE TO 0 IF YOU HAVE THE 4EAMON PLAYER'S MANUAL"7BY DONALD BROWN=CIOU[ o DK$(4):C3232z1000 :5::11:"EAMON PLAYER'S MANUAL"::::"PRESS 1 FOR MANUAL TO PRINT--"::" 1. PLAYER'S MANUAL"::" 2. QUIT - CATALOG":RETURN TO QUIT"; C$) C$"C"1500= x(1155)3000W ::(4);"CATALOG":q A$"APPLE ][ AND AAA"} X112 1:X1:A$; X:" ";:Z125:Z:X  :X121:X:25:A$ Z150:Z:X:F LAS VEGAS NV 89121 K, RECOPIED WITH"> R"ANY VOLUME YOU CHOOSE FROM OUR PUBLIC"i "DOMAIN LIBRARY, WITH MANY THANKS.":r 150 10:"AAA COMPUTER PRODUCTS" L13:"721 PIKE STREET" 7:"CHEYENNE * WY * USA * 82009": 255 2:"PRESS C FOR CATALOG OR M?":0 &"MAYBE YOU EVEN TOOK LOTS OF TIME TO"\ X"REWRITE A PROGRAM FROM END TO END?": "WE WOULD LIKE TO HARVEST YOUR ";Q$;"IMPROVED";Q$;"PROGRAMS FOR OTHERS TO ENJOY AND USE." 6:"-- PLEASE, SEND 3A A COPY --": "WE'LL RETURN YOUR DIS------------------  ( n::5 xQ$(34)N (1155)İ2000::W ,2: " AN INVITATION FOR APPLE PROGRAMMERS " : "PERHAPS YOU FOUND SOME ";Q$;"FAULTY";Q$;" PUBLIC" "DOMAIN PROGRAMS ON THIS DISK AND YOU" "FIXED THE3A MESSAGE+BY RON MALEIKA13A COMPUTER PRODUCTS 721 PIKE STREET CHEYENNE WY USA 82009 --------------------- MODIFIED FOR AAA BY PAUL RAYMER OF LAS VEGAS NV 89121     000C:"PRESS [RETURN] TO CONTINUE ...";A$:100gChB(222)5ĺ(4);"RUN THE WONDERFUL WORLD OF EAMON"mC|B DK$;"OPEN THE ADVENTURER":DK$;"READ THE ADVENTURER":NAME$:REC:DK$;"CLOSE"(100B 2DK$;"OPEN CHARACTERS,L150":DK$;"READ CHARACT IS IRRITATED WHEN HE SEES":"YOU DO NOT HAVE THE GOLD AND STARTS TO":"GRUMBLE ABOUT USING YOU FOR PRACTICE":"TARGET.":100BGOLDGOLDPRBWA%(TP)WA%(TP)((1)15)::"THE TRAINING INSTRUCTOR DRILLS YOU ON":"THE FINE ARTS OF THE ";N$;"."C1堠젠堠⡩Π堠䠠󮠠嬠젠䠠姭堠󠠠󠠠蠠젠堠堠蠠󮠠栠嬠堠嬠堠堠䠠󩠠堠򡠠쮍Πᠠ宠堠堠ᠠ䠠堠젠䠠䠠宠蠠󬠠󬠠宠䠠Ġ嬠堠䠠堠堠ᠠ䮠򠠠栠桠堠嬍㠠Π䠠䠠젠宠⭍䮍ɠ堠蠠򬠠䠠䬠堠䠠堠䠠宍堠嬠ᠠ孭򬠠Ѝ堠嬠堠嬠場ˮ䠠젠䬠䠠䠠堠򡩮堠堠堠Ӻ젠젠穬렠󮍠ɬ렠嬠ˠàӢ堠󬠠堠嬠堠宠䬠栠讠魍砠堠䠠󮍨堠嬠젠堠堢ӠΠŠĠƠōĠ䬠ᠠ䠠嬍砠砠ﮍ젠䬠ŠϠŠ̠ĠƠ΍Π䠠󮢠堠򠠠婠ᠵ笠蠠栠젠宠ᠠ栵ᠴ󠨵ᬠ堠堠堠졠ź蠠䭭栠堠堠䠠衠ᠠ堠젠堠󠠠栠砠嬠堠嬠쩮ᠠ堠嬠򮠠㠠堠ᠠ䍧ȧ젠󬠠蠠򬠠䠠ǧ젠砠砠ᠠ堠󮍠䮠ᠹ󮍠ٍ䠠㠠栠쬠젠󬠠蠠堠讍堠栠䬠堠󮠠󮠠嬍㠠򍱳󩮠堠栠堠欠쩬㠠塍堠䠠č󩠠栠堨䠠Ԡ쩠򠱰栠宍㠠堠譭栠젠󮠠堠栠堠堠宠󬠠堠㠠쮠㠠砠堠嬠堠䩮Ӭ٬󠠠䠠堠Ӎ򬠠蠠䍧堠󠧳ĸ