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` AREN'T CARRYING A ";S$::100U&WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED.":&WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEY ALL FALL TO THE GROUND."::5100 'MD%(0,9)0ĭAD%(MD%(0,9),4)300?%h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UPE%r|%$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.%)S$""ĺ:C$(C);" WHAT";:S$:4900%.%///DROP COMMAND%S$"ALL"5100&A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU YOU."::100X$,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300c$617000$@A1NA:AD%(A,4)ROOM4190$J4200:WTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HEAVY":4190$TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)%^::"BIRD"S$"CRYSTAL BIRD":#S$"BALL"S$"CRYSTAL BALL"O#S$"MACE"4120s#A24:AD%(A,4)ROOMS$AN$(A)z#A#A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100 $"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR((CH10)2)R"LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3"VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)"<M:NBTL(TD%(1)0):"///GET COMMAND"4900"S$"ALL"4160"S$"BONE"S$"OLD BONE"#S$///CHECK REACTIONS ON MONSTERSV!TD%(1)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MD%(0,13)!$M1NM:MD%(M,5)R3ĭMD%(M,14)3(MD%(M,14)1200(1)MD%(M,4))MD%(M,5)ROOM:3670!.MD%(M,5)ROOM3900!8MD%(M,14)3670 "BFRMD%(M,3):FRFR100FRFRROOM:D21D:R2::DK$& R203500< ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000 R23490  F1R2(R2):3500 :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 R3ROOM:ROOMR2:3600 100!E APPLE ISLAND.LAST NAME":MN$(0):GOLD:FOOD:DK$;"CLOSE"]T DK$;"RUN APPLE ISLAND-ISLAND"r ///MOVE COMMAND NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 D16:(V$,1)("NSEWUD",D,1)Ă DK$;"READ EAMON.ROOMS,R";,A:DK$;"CLOSE"xF DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A):P A15:WA%(A)::AE:SEX$:0:BANK:AC:A14:"NONE":0:0:0:0::DK$;"CLOSE":Z DK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"WRITD%(M,5)0MD%(M,5)12 :DK$;"OPEN EAMON.ARTIFACTS,L128":A1NA:DK$;"WRITE EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2,A:DK$;"CLOSE"< DK$;"OPEN EAMON.MONSTERS,L128":A0NM:DK$;"WRITE EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2:A14:SA%(A):q A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:A14:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A): DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE" DK$;"RUN MAIN HALL,S6,D1"( M0NM:MD%(M,14)3M ANY KEY TO CONTINUE) ";:A$:* 2500~ :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$ DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(0,1):MD%(0,2):CHREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU "; TP0:A1NA:AD%(A,4)12350 AD%(A,2)0AD%(A,1)AD%(A,1)CH10$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":8 GOLDGOLDTP::"(HITA$:W5(A$):W51W5W21W5(W5)2080u*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W252060W14: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)i W::5:"AS YOU DELIVER YOUR TRD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAPONS":"TO KEEP THEM ALL--4 IS THE LEGAL LIMIT."::"YOUR WEAPONS ARE--"W1W21:4);W;"--";WN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") "( (37):23:AST NAME"::0:0:DK$;"CLOSE":DK$;"DELETE FRESH MEAT"LWN$(12),WP%(12)W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W262300 :5:"AS YOU START TO ENTER THE MAIN HALL,":"LOST SPELL6+4900_6,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100x6,S1:11500:SUC3006,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3007,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL1001160)MD%(M,3)(1(S$)100):912085'///INVENTORY COMMAND5':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A005$':3006*///BLA3)(1AD%(A,1)100)l4#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)4#R3ROOM:3600:50504%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::3005&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3S$,2):90603i#(S$)09500R3n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)190953x#:A22A23::"WHAT TO GIVE? ";S$:90653#:"YOU AREN'T CARRYING A ";S$;"!"::1003#AMD%(0,9)MD%(0,9)14#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,R2DR%(6(1)1):R218510!2H!62(#///GIVE COMMAND?22#A21v2<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM90502F#:A21A22::"WHO TO GIVE TO? ";S$:90202P#:"NOBODY HERE BY THAT NAME!"::1002Z#S$(S$,(MN$(M))1) 3d#(S$,1)" "S$((A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:MD%(DF,9)0AD%(MD%(DF,9),4)ROOM`1DF0DIE1:2000h1:}1@///FLEE COMMAND1JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::1001*!8500:350014!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$2>!MD%(DF,1)1)7655,7660,7665,7670,7675L0" IS STILL IN GOOD":" SHAPE.":b0" IS HURTING.":x0" IS IN PAIN.":0" IS VERY BADLY INJURED.":0" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":J1MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%635/R2100D3D:7635%/7700/D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::/MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)7700/AMD%(DF,14):FD%(A)FD%(A)D2%0:MN$(DF);:(MD%(DF,13)5,11)2:SMD%(OF,12):DFOF:A0:7635b.INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC.DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":7635."A CRITICAL HIT!":R2(100(1)1):R251A0:7635.R286S1.5S:7635/R296D2D:7-oFR957550-t" WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2:(1).5ĺ:-y" BROKEN WEAPON HURTS USER!"-~FR1007560-DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635#.DMD%(OF,VHIT7600&,`RL97ĺ"A MISS.":{,e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::,jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::MAD%(A,2)2Ă:+MN$(OF);" PICKS UP ";AN$(A)::AD%(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:+LHIT0:MD%(OF,9)17400,QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10))RL96HIT1AE1A1+*AEAEA:MD%(0,10)MD%(0,10)AF*MD%(DF,14)1DF0300*MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0*M:R3ROOM:3600:300*///MONSTER TRIES TO PICK UP WEAPON*MD%(OF,10)0ı+A1NA:AD%(A,4)ROOM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::100r)zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100)OF0:DFM:7500:HIT7360)INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2)EAAE300)(100(1)1)MD%(0,10)7360 *A2:EA:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1](A:LK300z(V%(ROOM)0:ROOM47F11(300(X///ATTACK COMMAND(b4900(lS$"WORSHIPPER"S$"WORSHIPER"7280(vM35:MD%(M,5)ROOMS$MN$(M)(M;)p1MD%(0,9)1'300Q'A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOMc'A:WT0:5060x'p///LOOK COMMAND'LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1'A:LK300N(A1NM08000lS3:7000:21:958:"YOU HAVE FOUND A HERMIT WHO NEEDS FOOD. WILL YOU GIVE HIM A PACK (Y/N)? ";A$:A$"Y"A$"N"4040A$:A$"N"ĕSX,YO:8000FOODFOOD1:21:958:"THE HERMIT SAYS 'REMEMBER, ONE SPACE CAN MAKE TWO.'":7500R"S$"BOWL")AD%(15,4)1ĺ:"IT IS TOO LARGE TO SWALLOW."::300DL"YOU GET A FULL BREATHE OF AIR."::AD%(15,4)0:AD%(16,4)1:NT2MD%(0,1)NT2MD%(0,1)DL300"YOU AREN'T CARRYING IT!"::100C@L:"YOU FORGET EVERYTHING YOU EVER LEARNED ABOUT WEAPONRY AND ARMOUR EXPERIENCE."::"YOU ALSO DROP YOUR READY WEAPON.":CJLWA%(1)5:WA%(2)10:WA%(3)20:WA%(4)10:WA%(5)0:AE0CTLAMD%(0,9):17980DDL(S$"AI::300GBtJ"YOU FIND YOU HAVE NO TROUBLE BREATHING WATER."::300^BJS$"WATER"19500BJROOM22ROOM33ĺ"NO WATER TO SWALLOW."::300BJ"THE WATER TASTES CLEAR."::300B,LS$"AMNESIUM"S$"BOTTLE"S$"POTION"19600!C6LAD%(22,4)1"PILL"(S$,5)"PILSS"19100jALJAD%(14,4)1AD%(7,4)1ĺ:"YOU AREN'T CARRYING ANY PILLS."::100AVJA7:((S$,1)"W"AD%(14,4)1)AD%(7,4)1A14A`J:AN$(A);" SWALLOWED."::NT100:AD%(A,4)0:BjJROOM23ROOM33ĺ"YOU NOTICE NO EFFECTS."00@FAD%(19,4)ROOM18500C@F"YOU SHOULDN'T HAVE DONE THAT!":p@FAD%(18,4)0:MD%(14,5)ROOM:R3ROOM:3600y@F300@DHAD%(20,4)0ĺ"IT IS EMPTY!"::300@NH"THERE'S SOMETHING INSIDE!"::AD%(20,4)ROOM:300@8J///SWALLOW@=J4900ABJ(S$,4)."::300?PF///OPEN ?ZF4900`?dFS$"DOOR"ĺ"THE DOOR WILL OPEN AS YOU GO THROUGH IT.":100?nFS$"BOTTLE"ĺ"THE BOTTLE IS OPEN.":100?xFS$"CHEST"ĺ:"IT WILL NOT OPEN.":300@FAD%(18,4)ROOMAD%(19,4)ROOMĺ:"NO CHEST IN THIS ROOM!"::3)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100i>BAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100>AFV$"READY"300 ?FF:"READIEDN$(M);" ";V$;"S BACK":15100*=:M::300>=>///SAY COMMANDH=>4900k=>S$"BLAST"V$S$:S$"":11000=>S$"HEAL"12000=>S$"POWER"13000=>S$"SPEED"14000=B:"OKAY, '";S$;"'"::300=hB///READY A WEAPON.=rB49008>|BA1NA:AN$(ASPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300n<:///SMILE COMMAND<::M1NM:MD%(M,5)ROOM15100<:MD%(M,14)15030,15040,15050<:MN$(M);" GROWLS AT YOU":15100<:MN$(M);" IGNORES YOU":15100=:M YOUR OLD MAIN HALL.":M;4"(PRESS ANY KEY TO CONTINUE) ";:16368,0:A$:_;4ROOM48:2000;4:"ALL OF YOUR FOOD VANISHES!"::FOOD0:300;6///SPEED SPELL;6S3:11500:SUC300;6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)X<6013400:314020#:X4RR9113500:b4:"YOU SEE THE WORLD SHIFT AROUND YOU, AND YOU FIND YOURSELF IN THE MIDDLE OF THE OCEAN, WITH NO LAND AROUND YOU.":l4:(1).1ĺ"YOU DROWN."::DIE1:2000;v4"A SHIP FINDS YOU SWIMMING, AND RETURNS YOU TO2S4:11500:SUC300892RR(100(1)1):RR1513100j92:"NOTHING HAPPENS THAT YOU CAN SEE."::300{9,3RR3013200963A(6(1)1)100::"YOU FEEL YOUR GOLD BAG GROWING WITH ";A:" NEW GOLD PIECES!"::30093RR50133009312020:3RR7.///HEAL SPELL)8.S2:11500:SUC300e8.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":8.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)08/DF0:7650:30082///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS90$7,SUCĺ:"NOTHING HAPPENED.":d7-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2x7 -S2%(S)S2%(S)2~7-7P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:8U*U(U*U*U* U*U*U*(U*U*[*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*T*U*U*U*U*U*T*UjU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U* U@1`6L`P*URUZ[-%+}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*U*U*U*U*U f@*U*j*[JZ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@@U60@*Uj:*[jJ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*IP*U*U*U*U*@@UslnP+]RUj:+%+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*T*Uj}*U*U*U*U*U*U*U*U*T*Uj*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U @ f0 (U*U*[*U*U*U*U*U*U*U*U*U (U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U (U*U*U*U*U*U (U*U*[*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*T*U*U*U*U*U*T*Uj*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U*U@9@3N`P/]RUJ)%+}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*U*U*U*U*U l 0@*U***[jJ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U F`@*U*j*[jJ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UIU*U*U*U*U*U68  |P+]RUJ)%+}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@1T*Uj}*U*U*U*U*U*U*U*U*T*Uj*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*l6(U*U*[*U*U*U*U*U*U*U*U*U(U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*RS,L128":DK$;"WRITE EAMON.MONSTERS,R";MD%(M,0):MN$(M):A112:0:A:NZNZ1:MNZM08055kM08200DK$;"DELETE FRESH MEAT":DK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"WRITE APPLE ISLAND.LAST NAME"::0:0:DK$;"CLOSE":: M:10001000rM0MZ;wMD%(M,7)MD%(M,7)1:MD%(M,7)08200|21:958:MN$(M);" JUST DIED FROM STARVATION.":24::"PRESS ANY KEY TO CONTINUE";::16368,0:A$::]M2MNZ:MN$(M2)MN$(M21):A06:MD%(M2,A)MD%(M21,A):A,M:DK$;"OPEN EAMON.MONSTE10:FOODFOODA:SX,YO:8000"X;bXXO25:X5XXO17IlSX,YO:OLV24::"PRESS ANY KEY TO CONTINUE";::16368,0:A$:::SX,YO:@FOOD08050TFOODFOODNZ1:FOOD0FOOD0^FOOD0āM0NZ:MD%(M,7)MD%(M,1)(3(1)1):h7500:8000+"WANT TO BUY ANY (Y/N)? ";IA$:A$"Y"A$"N"6050gA$:A$"N"ĕSX,YO:800021:958:"ENTER THE NUMBER OF FOOD PACKAGES TO BUY (0-";(GOLD10);:") ";A$:A(A$):A0AGOLD100A(A)(A)A$6070GOLDGOLDA1MD%(M,5):HPHP(MD%(M,6)(1)1):A:HP0āA1500::5500ad" ";N$;" DEAD!":7500:8000n|M:5050p(1).018000 S4:7000:21:958:"YOU SEE SOME MERCHANTS. THEY WILL SELL FOOD PACKS FOR 10 GPS.":GOLD10ĺ"YOU CAN'T AFFORD ANY.":8":DK$;"WRITE EAMON.MONSTERS,R";MD%(M,0):MN$(M):A112:0:A:M2MNZ:MN$(M2)MN$(M21):A06:MD%(M2,A)MD%(M21,A):A,M2:M08100PM0NZ:21:958:MN$(M);" SWINGS AT ";N$:(1)100MD%(M,4)ĺ" --A MISS!":A1500:A:5500=Z" --A HIT!":AA$:A$"R"ĕSX,YO:8000Y21:958:(1).5ĺ"THE ";N$;" MISSED!":A1500::5200M((NZ1)(1)):"THE ";N$;" HIT ";MN$(M):MD%(M,2)MD%(M,2)(4(1)1):MD%(M,2)MD%(M,1)āA1500::5200MN$(M);" IS DEAD!":DK$;"OPEN EAMON.MONSTERS,L12:8000(1).046000S(3(1)5):HD2(S5)3(S7):HP0:A1HD:HPHP(8(1)1):A:N$("BEARWOLFDRAGON",(S5)41,42(S7)):M0NZ:MD%(M,2)0::700021:958:"YOU SEE A ";N$:" RUN OR FIGHT (R/F)? ";A$:A$"R"A$"F"5060ՠŠΠԭλίӠĠԢՠŠΠҠԠӠ͠ԠϠԮՠŠΠҠԠ٠ӠΠԠԮΠΠӭנϠϠŠӠĠ͠ŠŭՠŠΠҠԠӠ͠ԠϠԮՠŠΠ٠Ƞ̠ǠԠĠԮō_U*`p U*U*U*U*U*U*U*U*U*U*U*UU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U @*Uj4U*5*U*U*U*U*U*U*U*U* U*U@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U0@ U*U*U*U*U*U* U*U*[*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*lT*Ujw*((U*U*U*`P*Uj*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U*(U0 0P*UZT6[6-*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*P*P*U*  (( U s@*U*+-[Tn*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@@Uc @*UJV)[Zi*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U*@T T PP@UFss@P+U*U*U*]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@0U*U*U*U*U*U*U*U*U*U*U*UU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U `*U*UU*%U*U*U*U*U*U*U*U*U*T**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U  U*U*U*U*U*U*(U*U*[*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* 8T*Uju*U*U*U*@P*UjU*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U*U0`P*URT[$-+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*UP*U*U F7@*U*++[RJ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Us@*UJ+[Jj*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*U*U*U*U*ԊԊЂЂUcf66GP+]RU***%+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* U*Uju*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U `F*U*UV*)U*U*U*U*U*U*U*U*U P**U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ՠŠΠҠԠӠ͠ȠϠȮӠŠΠŠԠĠԮՠŠǠԠŠŠϠŠŮՠΠҠŠŠ٠ǠȬҠՠΠϠȠŠŮՠŠΠ̠ҠȠŠԠǠϠŠԮΠΠӠՠ٠נŠ٠ϠԠҠҠ̭ՠŠΠҠĠҮԠӠ͠ԠϠԮՠŠΠҠĠȠҮԠӠ͠ԠϠԮՠŠΠԠĠȠҮӠŬĠՠΠҠ͠РҠϠŠԮՠŠΠ̠ҠȠŠԠȮՠŠΠ̠ҠĠȠҮŠ٠ԠӠϠŠȮՠŠΠŠԬĠҮՠΠ͠РҠάҠՠΠϠϠӠǠȠĠȢՠŠΠԠԠӠРĠ΢ՠŠΠҠĠȠҮŠ٠ԠӠˠϠŠԮՠŠΠΠҠҠԠӠ͠ԠϠԮՠŠΠŠԠƠҮՠΠ͠РҠήŠӠҭĠŠǠԬϮՠŠǠΠŠŠƠ̮ՠΠԠРԠƠŠҬҠϠΠϠŠҮՠŠΠȯȠҢՠŠΠȯȠҮՠŠȭ٠ŢՠŠҠӠǠŮՠŠǠΠŠƠƠŠŮΠŠĠӠՠ͠ǠƠŠӮӠήՠŠΠԠ͠ϠŠȠŠ˧ӠͮŠ٠ԠӠŠȮŠŠȠ̠ӠĠ٠Š̠ƠŠŠŠƠҠŠΠ̮ՠŠΠŠͬԠ٠ӠΠŠȬԬĠԠӮӠϠРĠήӠ͠Ӡ٠̠ĬԠŠԠŠĮՠŠΠ٠ŠͮԠӠ٠̠Ԡ٠ŠӠΠŠȠ̮Š٠ԠӠŠҠϠŠȮՠŠΠ٠ŠͮԠӠΠȠӠΠŠȬԬĠԠӮŠӠҠΠŠȠ̮ՠŠԠŠŠƠԠƠȠӠРĠάĠӠϠȠĠȮՠŠΠ̠Ӡ͠ӠȠĠԮՠŠΠӠ͠ȠϠŠȠĠԮՠŠΠ̠Ӡ͠ӠԠĠȮՠŠΠ̠Ӡ͠ӠϠŠȠĠԮՠŠԠŠԠĠƠҮŠŠӠȠĠȮՠŠԠŠԠĠƠҮՠΠϠԬҠȠŠӠŠȠĠȮՠŠԠŠȠĠƠҮӠŠΠŠԠĠԠӮՠŠԠΠΠȠӠǠΠ̠ҠӮŠϠӠЮՠŠΠԠŢՠŠ̠ƠҬȠŠĠĠΠԭŧՠŠΠ٠٠̢ՠŠΠĠ̬ȠŠƠҠĠŠԮՠŠŠŠ̬ĠȠȲϭϲՠŠŠ٠ƠΠŬΠŠҮŠĠ͠ǮՠŠ̠ŠĮՠŠĠĠŮՠŠ̠ΠĢՠŠȭ٠ŢՠŠҠƠĠĢՠŠŠ̠ŮԠӠĠȲϭϲՠŠĠҢՠŠҠˮՠŠȭ٠ŢՠŠȭ٠ŮՠŠǠŬǠԠծՠŠҠǠŠծŠӠՠӠŠӠĮ           ՠŠŠƠҠӠŢՠŠŠƠҠӠŢՠŠŠƠҠӠŢՠŠŠƠҠӠŢՠŠ̠ԠĠŢՠŠĠԠŮՠŠҠΠԠΠŠĠӠέԠƮՠŠŠ̢̠ՠŠŠȠŠ̠Ӡͧ z      ՠŠŠĠŠˮՠŠĠŠŢՠŠΠԠŢOLD:FOOD:DK$;"CLOSE"t~DK$;"OPEN APPLE ISLAND.LOCATION":DK$;"WRITE APPLE ISLAND.LOCATION":79:84:DK$;"CLOSE"DK$;"OPEN EAMON.ARTIFACTS,L128":F10:3:958:"YOUR WEAPONS ARE--"::F10$A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:A$,A1,TYPE,A1,ՠŠŬ̠ҠήՠŠĠӠƠͭŠӠŠġՠŠ٠̠έ̠٠ΠӬԠӮՠŠΠǠԠΠŮ̠ӠРҠŠӠՠŠӠӠŠƠŠĭšՠŠԠӠĠӠŠԠǠӠĠǠծէŠĠϠì٠աՠŠ̭ǠΠծŠΧԠŠծՠŠȬǠӠՠȠŠΠӭȭſՠŠΠà̬ǠΠҠŠծՠŠˠˠĬǠԠծՠŠǠƮՠŠΠĠΠǠŮӠԠӠĠ͠ӠӠƠήՠŠҠĠΠŠǠƠŠŠӬԠՠŠĠϠ̠͠ŮӠŠӠ٬ԠՠŠĠϠ̠͠ٮՠŠԠĠϠŠĠƠŠӠ٠ٮՠŠŠĠҢՠŠĠҮՠŠҠƠŠĠԍƍōōōō (A14:"NONE":0:0:0:0:DK$;"CLOSE"L2DK$;"RUN APPLE ISLAND-ISLAND"D|DK$;"OPEN EAMON.MONSTERS,L128":DK$;"WRITE EAMON.MONSTERS,R0":N$:HD:AG:100:100:1:0:0:HS:WN:OD:DI:SI:DK$DK$;"OPEN FRESH MEAT":DK$;"WRITE FRESH MEAT":REC:N$:HD:AG:CH:A14:SA%(A)::A15:WA%(A)::AE:SEX$:0:BANK:AC)24,1225,1226,1227,1228*EA0:HS0:1230?EA5:HS1:1230UEA10:HS1:1230kEA15:HS2:1230EA20:HS2:1230EA25:HS3:1230EA60:HS5:1230EA65:HS6:1230EAEAAE:EA0EA0ODEA2AGCOMPWA%(WT)WNAROOM:TYPE1ROOM1ĺ" ";A$:F11[A:DK$:F10ĺ" -> NO WEAPONS <-"::WN1:1300"ENTER WEAPON NAME TO READY ";W$A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:A$:A$W$Ă:1160A1,TYPE,A1,ROOM,COMP,WT,DI,SIAC11221,1222,1223,12ύ͍ōōҍō2 GOLD PIECES EACH. HOW MANY DO YOU WANT TO BUY":V(37)`V1:" (0-";(GOLD2);:") ";A$:A(A$):A0AGOLD2(A)A$A(A)1120jGOLDGOLD2A:FOODFOODAtDK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"WRITE APPLE ISLAND.LAST NAME":N$:GS,R";A:A$,A1,A1,A1,ROOM:DK$:ROOM1ĺ" ";A$F.A:DK$;"CLOSE"8" ";GOLD;" GOLD PIECES":" ";FOOD;" FOOD PACKS":::990LGOLD21140<V"YOU HAVE ";FOOD;" FOOD PACKS":" AND ";GOLD;" GOLD PIECES":::"YOU CAN BUY FOOD PACKS AT RS,L128":M1NM:DK$;"READ EAMON.MONSTERS,R";M:M$,A,A,A,A,ROOM:DK$dROOM1ĺ" ";M$:F11M:DK$;"CLOSE":F1ĺ" -> NO FRIENDS YET <-"9902$"YOU ARE CARRYING--"::DK$;"OPEN EAMON.ARTIFACTS,L128":A1NA:DK$;"READ EAMON.ARTIFACTDK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"READ APPLE ISLAND.LAST NAME":A$,G2,FOOD:DK$;"CLOSE"GOLDGOLDG2:"YOU HAVE THE FOLLOWING FRIENDS--"::DK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":A,NA,A,NM:DK$;"CLOSE"F10EDK$;"OPEN EAMON.MONSTEDK$;"WRITE EAMON.ARTIFACTS,R";NA4A:WNAME$(A):0:2:3:(WNAME$(A)"NONE"):WO%(A):WT%(A):WD%(A):WS%(A)::DK$;"CLOSE"FOOD0A14:WNAME$(A)"NONE":110023::"PRESS ANY KEY TO CONTINUE";::16368,0:A$:2::958:^A11NA:DK$;"READ APPLE ISLAND.DATA":A$:A218:A(A2)::DK$;"WRITE EAMON.ARTIFACTS,R";A1:A$:A218:A(A2):A2,A1A11NM:DK$;"READ APPLE ISLAND.DATA":A$:A2112:A(A2)::DK$;"WRITE EAMON.MONSTERS,R";A1:A$:A2112:A(A2):A2,A1}A14:MEALS OR THEY WILL SLOWLY "r"DIE FROM STARVATION. EVERY MOVEMENT YOU TAKE LASTS ONE THIRD OF A DAY.":DK$;"OPEN APPLE ISLAND.DATA":DK$;"OPEN EAMON.MONSTERS,L128":DK$;"OPEN EAMON.ARTIFACTS,L128":DK$;"READ APPLE ISLAND.DATA":NA,NMv MONSTERS AND EVIL MEN THAT LIVE ON THE ISLAND, BUT KNOW THAT THERE"u"ARE ALSO MENU GOOD AND TRUE HERE.":990:"A FINAL WORD OF WARNING--BE SURE THAT YOU ARE KEPT WELL SUPPLIED WITH FOOD. EVERY DAY, YOU AND YOUR FRIENDS MUST EAT THREE E 'THREERDS' (WHATEVER THEY ARE). THERE ALSO MAY BE OTHER CAVES, CAVERNS, AND BUILDINGS TO EXPLORE ON THEISLAND."G:"AS YOU EXPLORE THE ISLAND, YOU WILL NOTICE THE LARGE HARBOR TO THE EAST, AND THE MOUNTAINS TO THE NORTH-WEST. BEWARE OF IS A MAGIC SPELL THAT HAS SEALED THE CASTLE. AN INSCRIPTION INFORMS ALL WHO WANT TO KNOW THAT 'ALL WHO WISH TO ENTER THIS CASTLE MUST HAVE THREERDS.'"::"THERE IS ALSO AN OLD TEMPLE DECIATED TO"v"THE GOD PASHIA, THAT MAY HAVE A WAY OUT,OR MAY HAV "YOU ARE NOW TRAPPED ON AN ISLAND. THERE IS A WIZARD HERE WHO CAN TELEPORT YOU HOME, BUT YOUR GOLD AND WEAPONS CANNOT GO WITH YOU. THERE IS A CASTLE TO THE NORTH THAT SUPPOSEDLY HAS A PASSAGE" "HOME, BUT THERE IS A PROBLEM.":990 "THEREO A HUGE DRAGON. YOU SAW NO CHANCE OF ESCAPING. SEEING NO OTHER WAYS TO SURVIVE, YOU USED YOUR" "POWER SPELL. YOU SAW THE SCENE SHIFT BEFORE YOUR EYES, AND WHEN EVERYTHING STOPPED MOVING, YOU FOUND YOURSELF IN A VERY CRUDE MAIN HALL.":N MASTER DISKETTE'.": dDK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"READ APPLE ISLAND.LAST NAME":A$:DK$;"CLOSE"::14::"APPLE ISLAND":::: nA$N$ĺ"WELCOME BACK TO THE ISLAND!":1000f x"YOU WERE IN THE INFAMOUS DARK CAVERNS WHEN YOU RAN INT%(4),WA%(1),WA%(2),WA%(3),WA%(4),WA%(5),AE,SEX$,GOLD,BANK,AC:W14:WNAME$(W),WT%(W),WO%(W),WD%(W),WS%(W)::DK$;"CLOSE" (100 2(222)5ĺDK$;"CLOSE" <:5:"I'M SORRY, BUT YOU MUST ONLY ENTER THIS PROGRAM FROM THE MAIN HALL OF THE":" 'EAMOM A NEW EAMON ADVENTURE=-> APPLE ISLAND <-C\ BY DONALD BROWNb} START-UP PROGRAM 50A(12)DK$(4):DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC,N$y HD,AG,CH,SA%(1),SA%(2),SA%(3),SA        o DK$(4)nDK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"WRITE APPLE ISLAND.LAST NAME"::0:0:DK$;"CLOSE"Tz#?????    ήŠ!ή͠Ӡ"ήӠנҠŠԠĠƠŠ ȠԠ ŠĮΠŠĮà"ŠĮŠήӠήàdήΠήӠ ϠȠԠŠŠĭΠ?ŠĭĠŠĮŠĮԠŠCIAL DISTRIBUTION ENCOURAGED.":N 7"TO GO ON THIS ADVENTURE YOU MUST FIRST"q F"BOOT THE EAMON MASTER DISK!"w PAw 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN.": -A$;" WAS":" DEVELOPED BY ";A2$: 2"NON-COMMERy#A$"THE LOST ISLAND OF APPLE".NUM13FA2$"DONALD BROWN."P :: "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*****************************************":  ύ͍ōōōōà 3:5:.A"APPLE AVOCATION ALLIANCE, INC.":?AXP11000:PUA(1155)Č1184sA (4);"RUN ADVENTURE #13"A: STOP COPYRIGHT FRAUD! CLAIM A REWARD. SEE OFFER IN AAA CATALOG.E@d AAA HELLO PUBLIC DOMAIN BY RONALD D. MALEIKA 721 PIKE STREET CHEYENNE, WY USA 82001 28 FEB 1981 @,(1155)Č1184A CIAL DISTRIBUTION ENCOURAGED.":NB7"TO GO ON THIS ADVENTURE YOU MUST FIRST"qBF"BOOT THE EAMON MASTER DISK!"wBP wA12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------"A("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN.":A-A$;" WAS":" DEVELOPED BY ";A2$: B2"NON-COMMERy#@A$"THE LOST ISLAND OF APPLE".@NUM13F@A2$"DONALD BROWN."P@ ::A"*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*****************************************":  PEN APPLE ISLAND.LAST NAME":DK$;"WRITE APPLE ISLAND.LAST NAME"::0:0:DK$;"CLOSE":DK$;"DELETE FRESH MEAT":SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2)ROOM4826007DK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"WRITE APPLE ISLAND.L l100v35NORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,TAKE,DROP,PUT,LOOK,EXAMINE,ATTACK,FLEE,RETREAT,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READYOPEN,SWALLOW///DONE WITH GAMEoDK$;"CLOSE":DIEĺDK$;"O23MD%(0,8)MD%(0,8)2:EAEA30AjNC:C$(NC):C1NC:C$(C):dtS14:S2%(S)SA%(S)::V%(96)~DK$;"OPEN EAMON.DUNGEON":DK$;"READ EAMON.DUNGEON":ROOM:DK$;"CLOSE EAMON.DUNGEON"M0NM:MD%(M,5)1MD%(M,5)ROOM:MD%(M,14)3:MD%(M,15)1DK$;"READ APPLE ISLAND.LAST NAME":A$,GOLD,FOOD:DK$;"CLOSE"$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64"LEA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5 VA2MD%(0,8)MD%(0,8)A2:EAEAA210:ANM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"CLOSE"DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:A$,A,A,CH:A14:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,AC=DK$;"CLOSE":DK$;"OPEN APPLE ISLAND.LAST NAME":Z,NE,NM:DK$;"CLOSE":NANZDK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A2QA:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A0:M2200:M2:490(|M2:DF0:7500:4901OFMwM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)TD%(1)):NBTLĂM100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,N FLEES OUT AN EXIT."::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490YMD%(M,14)2490^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000,19000p,///COMMANDS RETURN TO HERE6NBTL500@M1NM:MD%(M,5)ROOM490JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)100(41(1)20)mTMD%(M,4)MRĺ:MN$(M);"C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210 C$(C)S$S$V$:V$C$(C)P"C3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,4000,4000,5000,5000,6000,6000,7000,8000,8000,8TH!"::NT0ĺ"YOU JUST DROWNED.":DIE1:2000I :" YOUR COMMAND?";A$j (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37):17:A$ CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):260q C1NC:D EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1:i A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."{ A:V%(ROOM)1 ROOM22NT2MD%(0,1)NT2MD%(0,1)- ROOM22ROOM34NTNT1:NT4ĺ:"YOU ARE HAVING GREAT TROUBLE HOLDING YOUR BREAHE NORTH.":G 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: M:A1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A)/ AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": V%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE ":" ";A$: V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1 ROOM47F1ĺ:"YOU SEE A SECRET DOOR TO T]= A NEW EAMON ADVENTURE=-> APPLE ISLAND <-C\ BY DONALD BROWNbh {2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDn8 xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2M                    ND YOU":" GET 1000 GP."::"PRESS ANY KEY TO CONTINUE";::16368,0:A$:& GOLDGOLD1000:DK$;"OPEN EAMON.MONSTERS,L128":M1NZ:DK$;"WRITE EAMON.MONSTERS,R";MD%(M,0):MN$(M):A112:0:A,M:DK$;"CLOSE":NZ0:7500:8000(1).035000FOOD80001 NZ0ĺ"THE MEN HURRY AWAY.":7500:8000 "THE MEN ARE SLAVERS, AND THEY WISH TO BUY YOUR COMPANIONS. WILL YOU SELL THEM (Y/N)? "; A$:A$"Y"A$"N"3080 :A$"N"İ7500:8000J 21:958:"THE SLAVERS TAKE YOUR FRIENDS A1).024000p S2:7000:21:958:"YOU ENCOUNTER THREE MEN IN ARMOUR.":" WILL YOU ATTACK, RUN, OR WATCH? "; A$:A$"A"A$"R"A$"W"3030 :21:958:A$"A"ĺ"THE MEN RUN AWAY.":7500:8000 A$"R"ĺ"YOU AND YOUR MEN GET AWAY":7500:"3000 ROOM22:21400 XO35YO603000s A$"A CAVE LEADING SOUTH INTO THE MOUNTAIN":2900:I$"N"3000 ROOM8:2140T 21:958:"YOU HAVE ARRIVED AT":A$:" DO YOU WANT TO ENTER (Y/N)? ";^ I$:I$"Y"I$"N"2910h I$:  (ATION":XO:YO:DK$;"CLOSE"kDK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"WRITE APPLE ISLAND.LAST NAME":MN$(0):GOLD:FOOD:DK$;"CLOSE"::DK$;"RUN APPLE ISLAND-DUNGEON":3000XO127YO802500 A$"A WATER-FILLED HOLE IN THE GROUND":2900:I$"NROOM34:2140)4XO107YO1162300jHA$"THE ENTRANCE TO THE TEMPLE OF PASHIA":2900:I$"N"3000uRROOM1\DK$;"OPEN EAMON.DUNGEON":DK$;"WRITE EAMON.DUNGEON":ROOM:DK$;"CLOSE":DK$;"OPEN APPLE ISLAND.LOCATION":DK$;"WRITE APPLE ISLAND.LOC:DK$;"RUN MAIN HALL,S6,D1"3XO79YO282100=204021:958:"YOU ARE AT THE ENTRANCE TO THE CASTLE, BUT YOU CANNOT ENTER."::"(PRESS ANY KEY TO CONTINUE) ";:16368,0:A$::1000A$"THE ENTRANCE TO THE CASTLE":2900:I$"N"3000;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:N$:HD:AG:CH:A14:SA%(A)::A15:WA%(A)::AE:SEX$:0:BANK:AC:A14:"NONE":0:0:0:0:A:DK$;"CLOSE"DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":N$:REC:DK$;"CLOSE"A15:WA%(A)::AE,SEX$,A,BANK,AC:DK$;"CLOSE":DK$;"DELETE FRESH MEAT":DK$;"OPEN APPLE ISLAND.LAST NAME":N$:GOLD:FOOD:DK$;"CLOSE"1190::5:"INSERT EAMON MASTER DISKETTE, THEN PRESS THE 'C' KEY ";A$:A$"C"1210DK$)(43Y)(43Y)1000> `Y1254(X80)(Y120)(Y120)1000p j1XO,YO:1X,Y:XOX:YOY:XO79YO842000 A$"THE ENTRANCE TO THE MAIN HALL":2900:I$"N"3000DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC,N$,HD,AG,CH:A14:SA%(A)::A$:D1030,1040,1050,10601 XXO:YYOK:1070G XXO:YYOK:1070] XXOK:YYO:1070m $XXOK:YYO .R((X80)2(Y80)2):R671000 8R((X170)2(Y80)2):R421000 B(X80)6Y40Y151130 LY130Y331000 VY384(X80D%(17,2)1)q DK$;"OPEN APPLE ISLAND.LAST NAME":DK$;"READ APPLE ISLAND.LAST NAME":A$,GOLD,FOOD:DK$;"CLOSE" 21:958:FOOD;" FOOD PACKS LEFT." "PRESS KEY FOR DIRECTION TO MOVE":" (N,S,E,W) "; A$:D14:A$("NSEW",D,1)Ă:1010 (NZ,4)OD:MD%(NZ,5)D:MD%(NZ,6)S R:DK$;"CLOSE":AN$(NA),AD%(NA,2):DK$;"OPEN EAMON.ARTIFACTS,L128":A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A),AD%(A,1),A1,A1,AD%(A,2):A:DK$;"CLOSE":M1NZ:MN$(M)"SIDNEY"Ă:CE0:250 CE(AD%(12,2)1)(AD EAMON.DESC":A,NA,A,NM:DK$:MN$(NM),MD%(NM,7):DK$;"OPEN EAMON.MONSTERS,L128":NZ1:R0NM! DK$;"READ EAMON.MONSTERS,R";R:M$,HD,AG,FR,CO,ROOM,WT,DO,AR,WE,OD,D,S:DK$:ROOM1NZNZ1:MN$(NZ)M$:MD%(NZ,0)R:MD%(NZ,1)HD:MD%(NZ,2)0:MD%(NZ,3)AR:MD% 17408:DK$(4):::DK$;"BLOAD APPLE ISLAND.PIC":DK$;"BLOAD APPLE ISLAND.SHAPE,A$4000":232,2:233,64:DK$;"OPEN APPLE ISLAND.LOCATION":DK$;"READ APPLE ISLAND.LOCATION":XO:YO:DK$;"CLOSE":1:0:K4:1XO,YO^ :DK$;"OPEN EAMON.DESC":DK$;"REA          Ӎ͍ōōčҍÍō΍čٍԍƍč̍ȍ΍ōōčōұҲҳԍōˍō̠̍Ҡ΍ԍԠčōōĠō̠čĠٍŠ̠̍Ơҍ٠̍ҍԍԍӍűŲųˍҍŠ̍Ġҍōč      ԍ΍ٍ͍ōōōōU*U *U*U*U*(((U*U*U *U*UV*)U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* 3 U*U*U*(U*U*U*U*Uj*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U*  ( (U@a`P/_RUj:+%+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*U*U*U*U*(U8`@*Uj:+[jJ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*T T PPT U fg`@*U*j*[JZ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UIU*U*U*U*U*@@UL8P*URU[-%+}+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*A1c@9P*Uj*U*U*U*U*U*U*U*U*|?T*U*u*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*8g (U*U*[*U*U*U*U*U*U*U*U*U U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**U*U*U*U*U*U *U*TU*%U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UL3@1U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U*UA`P_RU***%+]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*U*U*U*U*U`@*UJ)[Jj*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ԊԊЂЂԊU l0c@@*U*++[RJ*U*U*U*U*U*U*U*U*U*U*U*UP*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UIU*U*U*U*U*U XP*URT2[$-+U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*E9s[1FP*Uj*U*U*U*U*U*U*U*U*|?T*U*u*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*0CL U*U*[*U*U*U*U*U*U*U*U*U U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* P@*U*U*U*U*U*U *Uj6U*5*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*UXaFq9U*U*U*(((U*U*U* U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U*U@`PU*U*U*]*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*U*U*U*U* (U@@*UJV-[Zi*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U 8`A @*U**-[Tn*U*U*U*U*U*U*U*U*P*U*U*P*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*@T TP@UpP*UZT&[6-*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*6N9fP*Ujw*U*U*U*U*U*U*U*U*pP*Uj*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*`AX U*U*[*U*U*U*U*U*U*U*U*U U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U**P*@*U*U*U*U*U*U c*U**U*U$*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Up@C9 U*U*U*U*U*U* U*U*[*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*>P*U*U*U*U*Ucc`P{U*U*U*}*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*P*U*U*U*U*U0 P*UZV$[)*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U* U*U*U*U*U*U*U*U*U*U*U*U `*U*.U*U$*U*U*U*U*U*U*U*U**U*U*@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ԊԂЂU0P*UZV,[)*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*          ٍ͍ōōōō ---%???? !9',5'$666.,*---%???,--%???,--%??? ----??')-- ? $$'%'%+-66%$$??,-%??,-%??,-- %!#??'$$?6?76;.>61----??? --