+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮL:DK$;"DELETE GAME.STR"tGTyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"}Ghy100" EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012   50DK$(4):DK$"VERIFY GAME.PTRS":31000TO RESTART THE GAME."Fu.Fy /// RESTART9Fy216,0F"y:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";A$:A$"N"1000F,y(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"G6yDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR"E GAME.PTRS,A$69,L8"mEluDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561EvuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561Fu:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE 14:SA%(A)SA%(A)0:20060ADRNRL100(1)1:SA%(A)RL:S2%(A)RL^D\NA:AD%(28,4)0:DF0:300rD0u // SAVE GAMED:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";DDuA$:A$"Y"A$"N"30020DNuA$:A$"N"100DXuDK$;"CLOSE":X(0)EbuDK$"BSAV ///READC*N4900NC/NAD%(28,4)1ĺ:"YOU ARE NOT CARRYING IT.":DF0:300C4NS$AN$(28)ĺ"YOU CAN'T READ THAT.":DF0:300C>N:"THE BOOK HAS TAUGHT YOU THE SPELLS YOU DID NOT KNOW. UNFORTUNATELY YOU HAVE FORGOTTEN THOSE YOU DID KNOW."DHNAE NOT CARRYING IT.":DF0:300=BPJAD%(A,4)0:A5(A8):19060TBVJA11AA1:19020xBjJ:"YOU CAN'T DRINK THAT!":300BtJ:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":B~JMD%(0,13)MD%(0,13)A:MD%(0,13)0MD%(0,13)0BJDF0:7650:300 C NADIED."::3004APF CHECK MERLIN'S EFFECT ON SPELLSAUFMD%(18,13)MD%(18,1)ĺ:"THE POWER OF MERLIN STOPS ALL OTHER SPELLS FROM BEING CAST IN THIS CASTLE.":SUC0:AZFA8J ///DRINKABJ4900:A9ALJS$AN$(A)19030BNJAD%(A,4)1ĺ:"YOU ARrB4900R@|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100@BAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100@///SAY COMMANDb?>4900?>S$"BLAST"V$S$:S$"":11000?>S$"HEAL"12000?>S$"POWER"13000?>S$"SPEED"14000?B:"OKAY, '";S$;"'"::300?hB///READY A WEAPON.@:MD%(0,2)2MD%(0,2)r>6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300>:///SMILE COMMAND>::M1NM:MD%(M,5)ROOM15100>:MD%(M,14)15030,15040,15050>:MN$(M);" GROWLS AT YOU":15100?:MN$(M);" VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300="3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300=,314020=6///SPEED SPELL=6SUC1:18000:SUC300=6S3:11500:SUC300>6SPDMD%(0,10)MD%(0,10)2MD%(0,2)3)#<2M:RAISER3ROOM:3600:300f<2A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0{<2A:RAISEĺ:300<3RR(100(1)1):RR11ĺ:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:2000D=3RR86ĺ:"YOU HEAR AOWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTSW;2SUC1:18000:SUC300p;2S4:11500:SUC300<2RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,GET IT COMPLETELY."::SA%(S)0:4:. ///HEAL SPELLO:.SUC1:18000:SUC300h:.S2:11500:SUC300:.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP."::.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0:/DF0:7650:300<;2///P%(S))(RL5))(RL95)):RL10011600G9,SUCĺ:"NOTHING HAPPENED.":9-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)29 -S2%(S)S2%(S)29- :P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FOR*///BLAST SPELL+8*SUC1:18000:SUC30058+49008,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::1008,S1:11500:SUC3008,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300$9,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2:MD%(M,3)MD%(M,3)(1(S$)100):9120@7'///INVENTORY COMMAND7':"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$::A007$':30082:MD%(34,14)2:MD%(M,9)21t6#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)6#R3ROOM:3600:50506%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::300&7&%GOLD(GOLD(S$)):MD%(M,14)0A,4)19095:5x#:A22A23::"WHAT TO GIVE? ";S$:9065h5#:"YOU AREN'T CARRYING A ";S$;"!"::1005#AMD%(0,9)MD%(0,9)15#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)6#A21(M32M33M34)MD%(32,14)2:MD%(33,14)1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM9050`4F#:A21A22::"WHO TO GIVE TO? ";S$:90204P#:"NOBODY HERE BY THAT NAME!"::1004Z#S$(S$,(MN$(M))1)4d#(S$,1)" "S$(S$,2):90604i#(S$)09500 5n#A1NA:(S$,(AN$(A)))AN$(A)AD%(,5)03FA:R3ROOM:3600"3:73@///FLEE COMMANDl3JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100|3*!8500:350034!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$3>!R2DR%(6(1)1):R2185103H!3(#///GIVE COMMAND32#A2104<#MD%(DF,9)0AD%(MD%(DF,9),4)ROOM:MD%(DF,10)MD%(DF,10)AD%(MD%(DF,9),5):MD%(DF,9)1:MD%(DF,4)MD%(DF,4)22DF0DIE1:20002(DF26790022A2731:MD%(A,5)0775027MD%(A,5)ROOMĺMN$(A);" IS DEAD!":3<A2ANZNM:AD%(A2,4)MD%(A,5):MD%(AAPE.":1" IS HURTING.":31" IS IN PAIN.":T1" IS VERY BADLY INJURED.":1" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":j2MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:A2DFNZNM:AD%(A2,4)ROOM:MD%(A)FD%(A)D2:DF1876500ROOM40MD%(DF,13)MD%(DF,1).75ĺMN$(DF);" VANISHES IN A PUFF OF SMOKE!":MD%(DF,5)40:MD%(DF,13)MD%(DF,13)5:3600:0:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,76751" IS STILL IN GOOD":" SH635/R286S1.5S:76353/R296D2D:7635K/R2100D3D:7635U/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)77000AMD%(DF,14):FOF,11):SMD%(OF,12):DFOF:A1:7635S.DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635.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:7OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::?-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%(IT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1>,VHIT7600V,`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,10)0ı6+A1NA:AD%(A,4)ROOMAD%(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)174000,QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):H0(1)1)MD%(0,10)7360/*A2:EAAE1A1Q*AEAEA:MD%(0,10)MD%(0,10)Al*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%)X///ATTACK COMMAND )b4900a)pM1NM:S$MN$(M)MD%(M,5)ROOMĂ::"ATTACK WHO?"::100)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*(10OMMANDs(LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1(A:LK300(A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1(A:LK300(V%(ROOM)0:300 AND THEY ALL FALL TO THE GROUND."::5100['MD%(0,9)0ĭAD%(MD%(0,9),4)1MD%(0,9)1d'300'A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM:A9A10A11ĺ" -- IT BROKE AND SPILLED ALL OVER!":AD%(A,4)0'A:WT0:5060(p///LOOK C1Ă::"YOU AREN'T CARRYING A ";S$::100&WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED.":A9A10A11ĺ" -- IT BROKE AND SPILLED ALL OVER!":AD%(A,4)0*':WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING,A,3)%^::300M%h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UPS%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) TOO HEAVY FOR YOU."::100f$,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300q$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%(>#VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)W#<M:NBTL(TD%(1)0):k#///GET COMMANDu#4900#S$"ALL"4160#A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HERE!"::100$"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS13)]"$M1NM:MD%(M,5)R3ĭMD%(M,14)3(MD%(M,14)1200(1)MD%(M,4))MD%(M,5)ROOM:3670v".MD%(M,5)ROOM3900"8MD%(M,14)3670"BFRMD%(M,3):FRFR100FRFR((CH10)2)"LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3OOMR2! (R340R241)(R341R240)ĺ:"AS YOU ENTER THE NEXT ROOM, AN ELECTRIC SHOCK RUNS THROUGH YOUR BODY!":DF0:MD%(DF,13)MD%(DF,13)5:7650! 3600!100!///CHECK REACTIONS ON MONSTERS"TD%(1)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MD%(0,3200, b :"YOU HAVE GONE THE WRONG WAY!!" l 2(MD%(0,2)MD%(0,1))48ĩ80:::"H-E-E-L-L-L-P-P-P-P-PLOP":255:DIE1:2000 v :"LUCKILY YOU DIDN'T FALL INTO THE MOAT. ":R280:300 :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100! R3ROOM:R.":R258:3000 R2653160Q: :"YOU HAVE STEPPED INTO A DEN OF THIEVES. "D CH13ĺ"LUCKILY THEY THINK YOU'RE A CREEP JUST LIKE THEM, SO YOU ESCAPE.":R264:300N :"OUTNUMBERED 50 TO 1 YOU ARE OBVIOUSLY DEFEATED.":DIE1:2000 X R281FULLY RIDE OFF INTO THE":" SUNSET.":20009 R23490K R2593120 :"UNFORTUNATELY YOU HAVE WALKED RIGHT INTO":"MERLIN'S TORTURE CHAMBER." 4MD%(0,2)EA48ĺ:"YOUR FRIENDS HAVE NOT SEEN YOU SINCE.":DIE1:2000 & "LUCKILY YOU ESCAPE6,D1" ///MOVE COMMANDb NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 D16:(V$,1)("NSEWUD",D,1)Ă DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$ R203500 ///SPECIAL MOVES+ R299ĺ:"YOU SUCCESS:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A): A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:A14:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A): DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"T DK$;"RUN MAIN HALL,S :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0g A$:A$"C"2520o A$ DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":29001 DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";RECOR 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::"(HIT ANY KEY TO CONTINUE) ";:A$: 2500QAD%(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)< W::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FU, '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:A$:W5(A$):W51W5W21W5(W5)2080H*%(0,2)MD%(0,2)2DIE2500W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W262300a :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YO,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,READY,SAVE,DRINK,READ///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$"CLOSE":SPDMDNZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,7)0:MD%(0,9)NZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3jNC:C$(NC):C1NC:C$(C):tS14:S2%(S)SA%(S)::V%(96):ROOM1l100v 36 NORTH,N,SOUTH,S,EAST,E8)WS%(W2)::W24#8WZW2:WTWWZlBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5VA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MD%(0,8)2:EAEA30`NAFRESH MEAT"h$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64".W214:WN$(W2)"NONE"NANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,K$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,AC NW15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE":DK$;"DELETE A1NA:DK$;"READ EAMON.ARTIFACTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)1āA258:AD%(A,A2):A2A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MD%(A,A2):A2,A:DK$;"CLOSE"D)1DFM2:7500:M2200:M2:490'M2INBTL(FD%(1)TD%(1)):NBTLĂMOX100p///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZhDK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):D%(M2)MD%(M,13):490*YMD%(M,14)2490?^MD%(M,14)3390ihOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:490OFMM21NM:MD%(M2,5)ROOMMD%(M2,14///COMMANDS RETURN TO HERE+6NBTL500K@M1NM:MD%(M,5)ROOM490JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20)TMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)F0(C$(C)));::::2104 C$(C)S$S$V$:V$C$(C) "C3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,4000,4000,5000,5000,6000,6000,7000,8000,8000,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,30000,19000,20000,A$(A$,2):2201 A$""A$CZ$:(37):17:A$Y CZ$A$:A2(A$):(A$,A,1)" "Ăw V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):260 C1NC:C$(C)V$C$(C)S$Ă::"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);2A1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A) AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1: A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE." A:V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "A$:DK$:"YOU ARE ":" ";A$:d V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1 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:1 M: 2216,0:1000I d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDO n xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": V%(ROOM)ĺDK$;"READ EAMON.ROOM NAMES,R";ROOM:~? EAMON ADVENTURE #17? -> MERLIN'S CASTLE <-Ec BY RANDALL HERSONi|REV 8-27-84  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012   50DK$(4):DK$"VERIFY GAME.PTRS":31000                                      ǠͬǠӬǠŬǠӬĠǠӠԠҠΠϠŠŠԠĠӮנŠՠΠͮ͠ӠŠӠӠƠǠӠڠԠծĠՠԠԠӿŠӠŠǠĠĠŧ̠ԠՠӮՠŠŠӮՠŠŠȠԠǠĮՠŠŠȠԠǠĢՠŠŠĠԠǠĮՠŠŠĠԠǠĢՠŠŠԠƠŠӠǠĮǠ٠ŠҠӠĠΠϠӠǠӠĠӠΠĠҮՠŠŠ٠ҠǠĠŠˮŠӠРŠĠ٠ΠҠҠĠӠˮǠŠϠӠìԠĠϠήŠӠӬԠŠӠˠΠӠǠŮՠŠ̠ϠӠǠϠˠǠԠƠŠ̠ӠȠӠٮՠŠΠǠΠˠǠˮĠŠŠŠԠӠՠǠĠӠŠҮՠŠΠŠĠĠŠȠǠϠؠΠήՠŠ٠ǠȠŠӮǠͬǠӬǠŬǠӬĠǠӠԠҠΠϠŠŠԠĠӮנŠՠΠͮ͠ӠŠӠӠƠǠӠڠԠծϢǠΠŠԠҠΠΠҠŠƮŠŠ̠ŠԧӠΠӠĮՠŠŠƠŠ̠ӠŠȠӠˠٮՠŠΠàǠԠ̠ǠΠήǠҠŠԠӠàĠȠΠĮĠĠŠȠŠŠӮŠŠǬӠŠǬŠӠŠǠŠҠĠҧՠŠԠΠǠŮŠӠΠŠˠΠӠŠĠǠ̠Ю٠ՠŠŠƠŮՠˠРՠŠԠԠϠŠΠԠȬΡՠŠΠ٠ΠǮŠӠǠ̬٠ӮՠŠŠŠӧĠΠŠŮ٠ՠŠӠΧȠӠΠȡǠĠŠˠӠŠŮŠĠՠϠȠՠΧԠŠŠҠΠӠĮǠŠŠӠҮάԠ٠ŬϠӠ٠ǠǠӠϠήǠԠƠŠԠӠǬάŭŠ̮ӠԠӠР٠ϠŠԠӬĬɠ͠ŠΠԠƠŠԮŠϠԠҠ͡ŠՠӠ٠ԠΠϠΠҠԮǠĠŠ͠ӠŠĠȠŮĠΠΠҠӠǠĠϠӠĠ٠ҠŮǠΠŠҠӠŬĬ٠ήՠŠԠԠӠƠŠŠǠӠŠԠӠ٠̠ӮΠĠ̠ΠˠӠϮՠŠΠĠ̠ΠŠȮ          ՠŠŠӠƠŠĠƮՠŠŠӠƠŠĠƮՠŠŠ٠ƠŠԠƮՠŠӠԮՠŠӠԮz #     ήӠ& ήàΠ͠AΠŠ ΧӠŠԠźήŠήӠ ή͠ӠήӠ       ΧӠōE" :5:"I'M SORRY, BUT YOU MUST ONLY ENTER THIS PROGRAM FROM THE MAIN HALL OF THE":" 'EAMON MASTER DISKETTE'.":::DK$;"CLOSE":" REGAIN CONSCIOUSNESS YOU"::"REALIZE THAT YOUR SURROUNDINGS HAVE": "CHANGED DRASTICALLY. YOU ARE NOT IN"::"ELVEN WONDERLAND OR THE DARK FOREST, BUT": 10:"IN MERLIN'S CASTLE!!" 255 DK$"RUN MAIN PGM"  (222)5ĺDK$;"CLOSDERLAND, BUT "c "AS YOU PASS UNDER THEM THERE IS A"::"NOISE FROM ABOVE. AS YOU LOOK UP YOU" :"GLIMPSE THREE ELVES DESCENDING UPON YOU!":I12000:I I110:16304,0:J1100:J :J1100:J,I::I11800:IE 255::4:"WHEN YOU"AS YOU LEAVE THE MAIN HALL A GREAT IDEA ":"COMES INTO YOUR HEAD.":: "'WHY NOT GO TO ELVEN WONDERLAND?!'"::"'ADVENTURES DON'T HAVE TO BE DANGEROUS!'":I1800:I 120::"OVER THE TREES OF THE DARK FOREST YOU"::"SEE THE GLEAM OF ELVEN WON EAMON ADVENTURE #15A -> MERLIN'S CASTLE <-Ge BY RANDALL HERSOMk START-UP PROGRAM 1000DK$(4):DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC,N$DK$"CLOSE"d100n:4I x   WAS":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": 7 <R"**";38);"*****************************************": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;"6A$"MERLIN'S CASTLE":NUM17:A2$"RANDALL HERSOM">9rD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"} 216,0 ::7 "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));  ΠŠŠٍΠŠŠٍΠŠŠٍΠŠ٧ӠԍΠΠӠ̍ԠΠנĠΠŠ̍ΠŠٍΠΠŠנٍΠΠӠ̍Ԡ٠΍ΠŠŠ͍ΠŠΧӠҍΠŠٍΠΠŠנ̍Ԡ٠΍ΠŠǠō٠ΠǠϠŠōΠΠԠ͍Π̠ōΠŠΠ͍ΠΠӠҍΠΠӠҍԠԭ΍ΠΠӠҍΠҠ͍ԠӠנĠΠŠٍΠΠŠנٍԠӠŠĠΠŠٍԠΠŠĠΠŠ̍ΠΠŠנٍԠΠנĠΠŠٍԠԭ΍ΠΠŠנōΠԠ͍ΠΠŠנٍԠԭ΍ΠŠŠ͍Π̠ĠҍΠΠӠҍԠ٠΍ΠΠԠ͍ΠŠ͍ΠΠůנō       Ԡ΍ԍōŠ΍ˠҍ΍Šҍ     ΠŠōҠōԠԭ΍ΠΠӠٍԠΠŠĠΠŠٍΠŠà͍ΠōΠŠҠ͍ΠΠŠנٍΠΠŠנ̍ԠΠנĠΠŠ̮Ԡԭ΍ΠΠӠ̍ΠŠٍΠΠŠנ̍ΠԠ͍ΠΠŠנ̍Π٠͍ΠΠӠ̍Ԡ٠΍ΠΠԠŠ͍ΠΠӠ̍ΠΠӠ̍ΠΠӠ̍ΠΠӠҍΠΠӠҍԠ٠΍ԠŠŠϠŠħӠĮΠŠħӠčΠΠӠҍΠΠӠҍΠȠ͍ΠŠŠٍΠԍΠŠŠٍΠŠŠٍΠȠ͍ΠŠŠٍΠŠŠٍč            Ơ΍ƠƠԠԠԠԠҍԠԍҍ΍̍ŠŠ΍Ӡ΍ҍҍٍÍȍӍӍ΍Ү΍ōÍԠӍӍˍˠƠÍٍҍҍĠԍҍŠōҠҍàƍǠčˍΠˍӍ؍Ӎ̠ЍҍĠҍŠ΍Š΍٠Ġ΍Š͍ԍǍōčĠӍĠҍĠԠĠԍĠҍĠ΍Ġ̍ԠĠōĠĠōĠ΍ĠӠ΍ĠҍĠҍĠٍĠÍĠȍĠӍĠӍĠ΍ĠҮ΍ĠōĠԠ΍ĠԍĠōĠŠ΍ĠˠҍĠ΍ǍĠŠҍҍǍӍҍՠŠΠΠԠԠٮՠŠΠԠͮĠΠҠŠ̠̠ӮՠŠΠΠԠԠŮՠŠԠ٠ήՠŠΠԠȠȠҠŠӠŠĠ٠ǠӮՠŠΠ̠͠ȠΠԠϠŠԮՠŠΠ٠ԠͮՠŠԠŠΠӠŠǠĠ͠ŠԮŠŠӠϠԠĠԮՠŠΠԠԠŮՠŠΠŬ٠ĠͮΠŠӠǠ٠ԠӬŠƠȠՠŮŠŠӠϠŠȬԬĠԮՠŠΠ̠Š͠ԠӠ٠ԬȠՠԠŠŠŠԠӠǠͮŠŠΠŠ̠ԠӬŠŠǠĠҠšϠҠՠΠŠŠͮ                                  ĠƠĠƠĠƠĠԠĠԠĠԠĠԠՠŠנǠΠ٠̠Ů͠ŠՠΠŠԠƠŠӬԠƠŠԠȠϠҠԬԬĠȩŠΠĠ٬ĠРΠԠӠŠԮՠŠǠΠ̬ŠͮŠӠΠԠϠŠԮՠŠԠΠήŠԠŠȠӠΠҠ׮ŠӠ̠͠ϠŠԬҠϠŠȬĠ٠ϠŠȢՠŠΠȠȠҮϠŠȠՠΠŠԠǠȠٮՠŠԠԭΠȠӠϠŠȬȬĠԮŠԠ̠ӠĠϠŠĠҠǠȠԮՠŠΠȠȠҮՠŠΠ ǠҠȠŠҠԠӠȠҠȮՠŠԠȠԠĠΠŠٮՠŠΠΠԠԠٮՠŠԠȠԠĠΠŠٮŠӠĠΠŠҠΠϠΠ٠ȮՠŠΠŠҮŠĠӠԠŮŠӠΠԠϠŠԮՠŠΠȠȠٮԠӠԠƠŠӠĠҮϠŠԠӠͮՠŠԠȠԠĠΠŠٮԠ٠ՠŠҠȠӠǮՠŠΠΠԠԠٮՠŠԠȠԠĠΠŠ̮ՠŠԠԭήŠŠӠϠŠȬȬĠԮŠŠ٠ӠĠΠΠӮŠҠĠӠŠĠϠԠŠӠĠӮŠŠ٠ӠϠŠԠĠԮŠӠΠǠ͠ϠŠȮՠŠΠŠԠԩŠٮՠŠԠΠΠΠŠŠٮϠŠȠӠˠ̬ϠŠԠӠŠǠƠŠ٬ĠϠŠԠӠǠٮҠŠΠՠ̠ԠӠŠϠϠԠĮՠŠΠŠӠŠ٠ӠԠĠԮǠΠŠ٠ӬӬөӠ٠ԠŠҮՠŠΠ٠ԠͮɭΠӠԠԠŠΠ٠ԠӮϠŠӠ٠ΠҮՠŠԠĠΠŠ̠ȠӠϠŠȠĠϠŠԮŠԠĠƠǠΠŠĮՠŠΠȯȠ̮ՠŠΠˠҮŠŠŠӠϠŠՠŠӮǠŠͬՠҠŠӠƠҠĠĠ٠͠ŠҮŠ٠ԠӠϠŠԮՠŠΠŠ٠Ġͮ٠ȬŠӬŬԠĠҠӠŠ̠ġŠĠ٠ӠϠŠԮՠŠԠΠΠŠ̮ϠŠԠĠԠŠӮŠӠϠŠȠĠȮՠŠΠȠȠ̮ՠŠΠ̠ŮŠŠ̠ԠӠҠŠħӠǠΠˮŠ٠ϠŠȮՠŠԠ٠ήϠŠȠӠͬϠŠȠĠԠŠӬĠϠŠԠӠŠٮՠŠΠΠԠԠ̢ՠŠΠԠӠϠŠٮŠĠӠΠŠϠŠĠǠ٠ĠԠ̠Ǡ٠ĮŠӠǠŠӠ̠ƠӮŠŠӠϠŠŠעՠŠΠȠĠҮŠӠŠΠΠŠǠԠӠǠĠӠ͠͠ϠŠԠĠԮՠŠԠ٠ήϠŠȠӠҬϠŠԠӠ٬ĠϠŠȠՠΠҠǠĠǮՠŠΠȠȠҮՠŠΠȠȠҮՠŠΠȠȠҮŠŠŠ٬ӠȠȠҠӠ̬٠ŮՠŠΠΧӠ͡ŠǠӠ͠ϠŠĠΠӮՠŠΠŠŠ٠ȠӠϠŠϠŠԠӠҮՠŠΠŠŠ٠ȠӠԠĠԮϠŠȠǠҮՠŠΠ̬٬͠ԮӠҠӠϠŠȮՠŠ̠ΠŠŠٮŠǠΠՠŠ٠ϠŠȮՠŠΠŠ͠ȠΠҮŠŠ٠ӠĠήŠ̠ӠנˠŮ̬ǠӠŠĠ̠ҠŠ̮ŠĠԠԠӠԠŠŠӮŠӠ͠ϠŠȠĠŠ̠ӠԠĠԮՠŠΠŠŠ٠ԯԩՠŠΠΠ̠Ġ͠ԠϠŠȮӠԠĠ٩Š͠ŠΠĠĠΠĠŠͮՠŠΠŠŠ٠ȠӠϠŠԠĠԮŠӠ͠ŠȮՠŠΠŬŠͮΠŠŠƠŠ͠ӠŠԠŠƠӬΠӬĠӮŠӠΠǠϠŠȮՠŠΠȠȠ̠Ƞ͠ϠŠԮՠŠԠȠԠĠΠŠ̮ՠŠΠΠԠԠ̮ՠŠΠΠԠԠ̮ՠŠΠԠƠǠ̮ŠŠ̠Ơ̠ӠΠŠҮՠŠΠΠԠԠ̮ՠŠΠ٠Ġ͠ȠРǠԮŠӠŠŠŠΠŮŠǠӠ̠̠ǠŠԠƠ͠ԠͮŠӠΠԠϠŠȮՠŠԠ٠ήϠŠȠӠͮӠŠΠҠӮՠŠΠȠȠ̮ՠŠΠŬ٬٠̠͠ƠӠĠӮŠŠӠϠŠȠĠȮՠΠҠĬנǠĠ͠ŠԮՠŠΠȠȠ̮ՠŠΠȠȠ̮ՠŠΠȠȠ̮ՠŠΠΠŠͮŠӠΠԠϠŠԮՠŠǠƠŧӠΠħŠՠŠĠӮՠŠŠˠҧӠĮՠŠŠŠҧӠĮӠՠŬŠŠӠϠΠǠŠĠƠԠϠŮŠΠ̠ӠϠŠԮՠŠΠŮՠŠԠԠƠΧӠŮϠŠԠӠ٬ŠΠ̠ӠϠŠԮՠŠԠȠԠĠΠŠٮՠŠΠȠȠٮՠŠԠԭήϠŠӠ̮ŠŠϠӬŠŠȠĠŠϠŠȠԠŠϠˠϠŠĮŠӠԠǠŠϠŠȮՠŠΠΠԠԠٮՠŠΠ٠ĠĠΠͮԠӠŠŠҠԠŠȠ̮ŠŠӠϠŠԠĠԮՠŠΠˬàŮӠĠӠŠŠԠƠŠŮŠŠӠϠŠԠĠԮՠŠΠŬ̠ĠͮԠŠȠĠƠŠ͠ӠǬˠĠϮՠŠΠȠȠ̮ՠŠΧӠàƮՠŠŠҧӠΠˮՠŠŠҧӠˮՠŠŠçӠخՠŠӠϮӮՠŠŠȧӠ̠ЮՠŠȠƠӮՠŠĠҮՠŠŠŧӠҮՠŠŠήՠŠŠήՠŠĠήϠҠԠӠ̠٠®ՠŠŠԠΧӠԮՠŠӠƠӧŠͮ