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`N PGM" THE FULL" :"ADVENTURE, IT IS POSSIBLE TO LEAVE, IF"::"DECIDE YOU CAN NOT GO ANY FARTHER."::"HOWEVER, IF YOU WISH TO ENTER THE TOMB" (:"AGAIN, YOU WILL HAVE TO PAY HOMMAGE"::"AGAIN, AND START OVER. PLEASE WAIT 1 MINUTE." <(4);"RUN MAI :" WELCOME TO THE PRIESTS OF XIM!"::"AS YOU TRAVEL THROUGH THE TOMB, YOU"::"WILL ENCOUNTER MANY POWERFUL ENEMIES." :"HOWEVER, THE REWARDS WILL FAR OUTWEIGH"::"THE COSTS. BECAUSE OF THE LARGE AMOUNT"::"OF TIME REQUIRED TO COMPLETEĺ:"THERE IS NOTHING LEFT TO BUY.":300L0RX7881:BUY$AN$(X)AD%(X,4)0AD%(X,4)1:GOLD(GOLD2):DK$;"READ EAMON.DESC,R";X100:A$:DK$::A$:AD%(X,9)1:C0L:RX:Cĺ:"YOU CAN'T BUY A ";BUY$LDR300100KR///BUY COMMANDMKRROOM51ĺ:"THERE IS NOTHING HERE TO BUY.":300{KRGOLDĺ:"YOU DON'T HAVE ANY GOLD!":300KR:"THE FOLLOWING ARE FOR SALE:":C0K!RX7881:AD%(X,4)0ĺ:" ";AN$(X)::C1K&RX::Cĺ:"WHICH ONE?:";BUY$(L+RCĺ:"AS YOU UNLOCK THE DOOR, YOU SEE A":"MESSAGE WRITTEN IN THE SAND. IT SAYS,":"'WITHOUT THE KNOWLEDGE OF THE CHAPEL":"STAR, YOU WILL DIE'.":DURE1:300J>NROOM50ĺ:"THE DOOR IS NOW UNLOCKED.":DURE1:300KHN:"THERE IS NOTHING HERE TO UNLOCK.":"YOU DON'T NEED ANY HELP.":100IJPRAYERSPRAYERS1:((1)6)(7PRAYERS)ĺ"THE GOD ";GOD$;" HAS HEALED YOUR HITS.":MD%(0,13)0:100IJ"NOTHING HAPPENED.":100I N ///UNLOCK COMMANDI*NAD%(53,4)1ĺ:"YOU DON'T HAVE ANY KEYS.":100J4NROOM17NEXT TIME, YOU WILL BE KILLED.":100~HjJ"YOU SHOULD HAVE LISTENED TO THE ADVICE."::"YOU HAVE JUST BEEN KILLED":DIE1:2010HJROOM27ĺ:"THE GOD ";GOD$;" IS HAPPY TO HELP YOU."::"YOU SLOWLY FLOAT DOWNWARD.":R273:3500IJMD%(0,13)MD%(0,1).7ĺ TIME TO PRAY. HE TELLS":"YOU THAT IN A TIME OF NEED, HE MAY":"BE ABLE TO HELP YOU.":100rGBJ:"TO WHOM: ";GD$GLJGD$GOD$19100GVJTRIESTRIES1:"PRAYING TO A FALSE GOD IS DANGEROUS.":TRIES1100$H`JTRIES2ĺ"YOU HAVE BEEN WARNED ONCE"::"THE NOT LEAVE WHILE IN BATTLE.":100QF_FROOM27ĺ:"YOU CAN'T EXIT FROM HERE.":100F`FCELLARĺ"YOU MAY NOT EXIT FROM THE CELLAR.":100FdF:"AS YOU WISH":2000F8J ///PRAY COMMAND[G:JROOM14ĺ:"THE GOD ";GOD$;" IS PLEASED THAT YOU":"HAVE TAKEN THEARRYING IT!"::100DEBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100ES$"SPEED"14000>D>S$"OPEN NOW"16900D>(ROOM32ROOM33)DURE1::"AS YOU SAY THIS, THE DOOR OPENS.":300DB:"OKAY, '";S$;"'"::300DhB///READY A WEAPON.DrB4900E|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CROOM15100+C:MD%(M,14)15030,15040,15050OC:MN$(M);" GROWLS AT YOU":15100qC:MN$(M);" IGNORES YOU":15100C:MN$(M);" ";V$;"S BACK":15100C:M::300C>///SAY COMMANDC>4900C>S$"BLAST"V$S$:S$"":11000C>S$"HEAL"12000D>S$L.":300B6///SPEED SPELL5B6S3:11500:SUC300rB6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)B6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300B:///SMILE COMMAND C::M1NM:MD%(M,5)ROOM:3600:300xA3RR(100(1)1):RR11ĺ:"THE SECTION OF TOMB YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:2010A3RR95ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE MAZE."::300B"3:"POWER DIDN'T HELP, MAYBE PRAYING WILE@2///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS^@2S4:11500:SUC300@2RAISE0:M1NM:AD%(M,4)ROOMAD%(M,4)1RAISE1:MN$(M);" COMES ALIVE!":MD%(M,5)ROOM:MD%(M,13)0:AD%(M,4)1WTWTAD%(M,3)A2AD%(M,4)0:M:RAISER3OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:X?.///HEAL SPELLq?.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:300SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600l>,SUCĺ:"NOTHING HAPPENED.":>-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2> -S2%(S)S2%(S)2>-E?P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL =*///BLAST SPELL=+4900Z= +S$"THE GHOST OF XIM"ĺ"YOU CAN'T BLAST A GHOST!":100=,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100=,S1:11500:SUC300=,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300I>,SUC0:4)0:MD%(M,3)MD%(M,3)(1(S$)100):9120D<'///INVENTORY COMMAND<':"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$::A00=$':300(M,3)MD%(M,3)(1AD%(A,1)100)x;#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);#R3ROOM:3600:5050;%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::300*<&%GOLD(GOLD(S$)):MD%(M,11)" "S$(S$,2):9060):i#(S$)09500^:n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)19095:x#:A22A23::"WHAT TO GIVE? ";S$:9065:#:"YOU AREN'T CARRYING A ";S$;"!"::100:#AMD%(0,9)MD%(0,9)1;#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%::DK$'9>!R2DR%(6(1)1):R218510-9H!B9(#///GIVE COMMANDK92#A219<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM90509F#:A21A22::"WHO TO GIVE TO? ";S$:90209P#:"NOBODY HERE BY THAT NAME!"::1009Z#S$(S$,(MN$(M))1):d#(S$,RILY, AS":"YOU REALIZE THAT YOU KILLED THE GHOST":"OF XIM"V8DF31AD%(53,4)ROOMl8DF0DIE1:2010t8:8@///FLEE COMMAND8JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::1008*!8500:350094!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:AD%(DF,4)ROOM: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)2<8DF30AD%(30,4)0::"A COLD BREEZE BLOWS MOMENTAA)D2K6:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675r6" IS STILL IN GOOD":" SHAPE.":6" IS HURTING.":6" IS IN PAIN.":6" IS VERY BADLY INJURED.":6" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":7MN$(DF)286S1.5S:7635)5R296D2D:7635A5R2100D3D:7635K577005D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::5MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)77006AMD%(DF,14):FD%(A)FD%(D%(OF,12):DFOF:A1:7635I4DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:76354INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC4DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":76354"A CRITICAL HIT!":R2(100(1)1):R251A0:76355RD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::53oFR9575503t" 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ĺ:3y" BROKEN WEAPON HURTS USER!"3~FR10075604DMD%(OF,11):SMIT0:(RL5RLMD%(OF,10))RL96HIT142VHIT7600L2`RL97ĺ"A MISS.":2e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::%3jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(MD%(OF,9),5):M(OF,10)0ı61A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:1MN$(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:1LHIT0:MD%(OF,9)17400&2QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):H0(1)1)MD%(0,10)7360/0A2:EAAE1A1Q0AEAEA:MD%(0,10)MD%(0,10)Al0MD%(DF,14)1DF03000MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)00M:R3ROOM:3600:3000///MONSTER TRIES TO PICK UP WEAPON 1MD%/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/EAAE3000(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:300DDENLY 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)1MD%(0,9)1-300-A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM-A:WT0:5060.p///LOOK CSPECIFIED.1,)S$""ĺ:C$(C);" WHAT";:S$:49007,.L,///DROP COMMAND_,S$"ALL"5100,A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100,WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DROPPED.":j-WT10MD%(0,1)ĺ"YOU SUWTAD%(A,3)+^::300U+h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP+rA72AD%(72,4)ROOM::"BEHIND THE CHEST, YOU SEE A BEAUTIFUL,":"GNAVER. IT APPEARS TO BE A VERY GOOD":"WEAPON."+| ,$///ROUTINE TO GET S$ IF NOT PREVIOUSLY AN'T DO THAT WHILE IN BATTLE!":300n*,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300y*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:WT,1))<M:NBTL(TD%(1)0):0)///GET COMMAND:)4900M)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 IS TOO HEAVY FOR YOU."::100#*'NBTLĭAD%(A,2)2ĺ:"YOU C(1)MD%(M,4))MD%(M,5)ROOM:3670;(.MD%(M,5)ROOM3900O(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)3)VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M":DIE1:2010' R23500J' :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100d' R3ROOM:ROOMR2:3600m'100'///CHECK REACTIONS ON MONSTERS'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)12000& R297ĺ:"AS YOU TRY TO ENTER THE TOMB, IT IS":"DISCOVERED THAT YOU DON'T HAVE ENOUGH":"GOLD, AS YOU WERE INSTRUCTED. YOU DIED.":DIE1:2010 ' R21ĺ:"YOU WERE WARNED TO LEAVE, BUT YOU DID":"NOT LISTEN. YOU JUST JOINED YOUR DEAD":"FRIENDS. WEAPONS. YOU ALSO":"SEE A FEW SKELETONS, WHICH ARE CHAINED":"TO THE WALLS.":V%(31)1:3500~% R272R272:CELLAR0:3500% R296R2964(PAYED1):3500% R297ĭPAYEDR297:3500& R297ĭGOLDENTFEE1GOLDGOLDENTFEE:PAYED1:R297:350E ENTERED A DIMLY LIT ROOM, WITH":"A CHAIR IN ONE CORNER. A MAN, SITTING":"IN THE CHAIR TELLS YOU TO REMEMBER THE":"LETTERS '";X$;"'. HE THEN DIES."]% "STANDING ALONG THE WALLS ARE STONE":"SOLDIERS. SOME ARE HOLDING CHAINS, AND":"OTHERS ARE HOLDINGOMB.":3500:#v R282R282:AD%(78,4)1CELLAR1:3500# R282ĺ:"AS YOU ATTEMPTED TO GO DOWN , YOU":"FOUND THAT THE JUMP WAS TOO FAR. YOU":"FELL TO YOUR DEATH.":DIE1:2010# R231V%(31)R231:3500# (R231)3210$ R231::"YOU HAV"YOU SHOULD NOT BE IN HERE.":"YOUR CHARISMA JUST WENT DOWN.":CHCH1:3500r"l R252R252(AD%(64,4)1):3490 #q R274R274:PAYEDĺ:"A PIGEON DROPS A NOTE NEAR YOU. IT SAYS":"THAT YOU WILL NEED ";ENTFEE;" GOLD":"PIECES WITH YOU TO ENTER THE TOU FEEL YOURSELF SLIDING THROUGH THE THE DARK. SUDDENLY, YOU STOP.":3500!D R220ĺ:"A DEEP VOICE ASKS YOU,"::"'WHAT IS THE PASSWORD':";Y$:R220(Y$X$):3490!N R246R246:SEX$"M"3500!X R245R245:SEX$"F"3500!] R203180K"b :1):DURE0:34908  R221R221(DURE1):DURE0:3490` & R251R251(DURE1):DURE0:3490 0 R248R248(AD%(64,4)1):R2ĺ:"ONLY ROBED PRIESTS ARE ALLOWED TO WALK":"THROUGH THE ATRIUM.":100 5 R2483500K!: R23R2((1)61)3::"YRIENDLIES ABOUT!"::100F D16:(V$,1)("NSEWUD",D,1)Ă| DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$ R203500 ///SPECIAL MOVES R2992000 R23495 R232R232(DURE1):DURE0:3490  R233R233(DURE)::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,S6,D1" ///MOVE COMMAND NBTLĺ:"YOU CAN'T DO THAT WITH UNF ";:16368,0$ A$:A$"C"2520, A$y DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":2900 DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(0,1):MD%(0,2):CH:A14:SA%(A):N A15:WA%(AAD%(A,1)CH1032766AD%(A,1)32766:2340F AD%(A,1)AD%(A,1)CH10Y$ TPTPAD%(A,1). A:TP;" GOLD PIECES."::GOLDGOLDTP8 :"(HIT ANY KEY TO CONTINUE)";:A$:A$ 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY)O%(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 FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU "; TP0:A1NA:AD%(A,4)12350* AD%(A,2)04);W;"--";WN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") " (37):23:A$:W5(A$):W51W5W21W5(W5)2080*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W252060=W14:WP%(W)WT%(W)AD%(WP%(W),6):W(W2)A:W2W21:AD%(A,4)0+A:W262300 :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAPONS":"TO KEEP THEM ALL--4 IS THE LEGAL LIMIT."::"YOUR WEAPONS ARE--"PW1W21: GAME>:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET."DK$;"CLOSE"::"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:SPDMD%(0,2)MD%(0,2)2DIE2500W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%A$::100v 34 NORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,DROP,LOOK,EXAMINE,ATTACK,A,FLEE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY,EXIT,PRAY,UNLOCK,BUY KROM,NIVEN,MELIX,INNOCENT,KLUNG,TAO,SHAREEN///DONE WITH1):C11C:GOD$:C1\ENTFEE((GOLDBANK).7):(ENTFEE1.6)32700AD%(72,1)32766:1210xAD%(72,1)(ENTFEE1.6)TRROOM6810(((1)31)):AD%(72,4)TRROOM:MD%(30,5)TRROOMPAYED0:TRIES0:DURE0 :" PRESS ANY KEY TO BEGIN":A$::MD%(0,7)0:MD%(0,9)NZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3hjNC:C$(NC):C1NC:C$(C):tS14:S2%(S)SA%(S)::V%(100):ROOM1:V%(100)1:V%(2)1:V%(28)1yPSIZE((1)61):C1PSIZE:X$X$((1)2665):C~PRAYERS0:C((1)6ȭAN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090pLA,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:EAEA30G`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2).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,8)WS%(W2)::W248WZW2:WTWWZ0BW21WZ:A1NAWZ: MORE THAN 10 GOLD PIECES":"TO TRAVEL THROUGH THE PRIESTS OF XIM.":2360NW16: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 FRESH MEAT",$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMONA1NM: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:MN$(0),MD%(0,1),MD%(0,2),CH:A14:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,ACIGOLDBANK10ĺ:"YOU NEEDNR,NZ,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):A2UA:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):7500:M2200:M2:490,|M2:DF0:7500:4905OFM{M21NM: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":M);" 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:9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18000,19000,20000,21000x ,///COMMANDS RETURN TO HERE 6NBTL500 @M1NM:MD%(M,5)ROOM490 JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20)qTMD%(M,4)MRĺ:MN$(C1NC: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)X "C3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,4000,5000,6000,6000,7000,7000,8000,(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."8 A:V%(ROOM)1T :" YOUR COMMAND?";A$u (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):260| .":\ 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 EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1:& A:AANA:AD%:(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 M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERED EAMON ADVENTURE #?<-> BASE EAMON PROGRAM <-B[ BY DONALD BROWNat2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDn1 xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(0,2)                                              Πˠ٠ōΠˠ٠ōΠˠҍΠ͠ŠҠӍΠŠŠˍҠҍΠ͠ȠҠǧӠōΠˠ٠ٍΠˠנٍΠ͠ȠӠƠӍŠΠΠٍΠˠ͍ĠϠϠˠōΠŠҠƠ͍ԠŠŠϠ͍ΠΠٍΠӠōΠٍΠ̠ԍԠŠŠϠŠҠǠٍԠϠĠӍԠĠčΠŠ͠ƠٍΠōԠŠǠϠŠҠ̍ΠŠԠĠƠŠōΠŠԠĠƠŠōŠΠٍΠŠԠ͍ΠΠĠԠƠŠΠˠ͠ȠĠӍΠˠ٠ĠȠӍΠŠҠ͍ΠŠҠ͍ԠŠĠƠŠŠŠٍΠŠŠ͍ΠŠŠŠٍԠĠΠŠŠŠٍΠŠҠ͍ΠŠҠ͍ԠŠĠƠŠĠŠٍΠŠ͍ԠŠĠƠŠŠŠٍΠŠŠԍΠŠĠŠ͍ԠŠĠƠŠĠŠٍԠĠΠŠĠŠٍΠŠĠŠٍΠŠ͍ΠŠ͍Π̠͍ΠŠǠ͍Πٍ̠ΠŠӠ͍ΠŠӠ͍٠ΠŠˍΠŠԧӠōΠŠΠŠ΍ΠŠ٠͍Π٠ĠٍΠΠĠٍΠΠ٠Ԡ̍ΠŠ͍Π̠͍ԠŠԠĠƠǠٍΠ٠ĠٍΠŠЍΠˠ٠ٍΠˠנٍٍΠˠנٍΠǠנŠ͍ҍΠΠ̠Ǡ͍Ǡ٠٠ԠٍΠΠĠԠ͍ĠŠŠԍΠŠ̭Ԡ͍Π̠ҍΠٍ̠ԠŠԠĠƠٍ̠ΠŠ٠͍ԠŠȠĠƠȯȠ̍ԠŠȠĠƠԠٍԠŠȠĠƠԠΠ̍ΠŠ٠͍ԠŠŠϠŠ̍ΠŠĠ̍ΠŠŠƠȯȠٍԠȯԠĠΠٍΠ͠ȠӠƠӍԠŠȠĠƠǠٍΠŠˠ͍Π̠ōԠŠԠĠƠٍΠ٠٠ٍΠ٠͍͍ǠԠԠƠŠōΠˠҍΠ٠̠Ԡ٠ԍ΍               ӠƠ͡ ΠԍΠԍΠԍΠԍӍ΍ŠԠƠ͍Ġҍàԍԍōōōō΍΍ō΍٠΍ōРԍРԍРԍРԍҍҍҍҍˠĠԍŠĠҍˠĠԍˠĠԍĠĠԍˠĠԍĠĠԍĠĠԍĠĠԍ        ՠŠ̠ΠԬǠנԠ͠լǠΠנӮՠΧԠŠŠԠӬԠՠҠԠǠĠծΠԠӠΠ͠ŬĠӠϠ ҠήǠĠҠĬǠǬӠΠԮԠӠԠՠנӠĠΠӮՠԠĠϠҠҮŠӠԠӠ̠ӠլĠӠҠĮӠԠӠǠԠŠӠՠԠՠŠĠΠҠҮӠՠ٠ϠӠŠŬ̠Ӡ ҠծՠΠŠԠŠӬȠӠǠϠՠΠϠŠԮȠӠӠǠӠŠӬΠĠҠӠԠΠԠƠծŠӠ٠ŠӬĠӠĠϠΠנŠƠŠԮӠՠҠŠ͠ՠŠԠȠŠĠ٠ƠƠŠҠͮӠՠȠŠԬԠӠՠҠĬĠΠԠƠլĠΠŬӠ͡ǠӠԠ٠ŬԠӠǠŠҠĬԠԠΧԠ٠Ϡˠծ٬ŠàԠӠǠĬǠϠŠՠԠƠԧӠŮϠĠϠŠάŠӠǠΠԠƠլǠϠΠŠƠҠȠӠŮŠŠӠ͠ŬǠԠΠԠƠҠԮՠŠŠŠĠΠŠҬ٠ϠˠƠՠŮŠӠРϠծŠՠŠŠϠˠԬԠӠԠՠĠ٠ӮԠӠĠӠҠҠŮŠӠŠΠǠΠӬӠƠԠŠ٠ٮҠŠӠӠŮՠŠŠΠנӠ͠ŠՠŠǮԠӬĠӠԠծӠŠҠӠĬՠנŠΠԠӠŠҮŠӠԠ٠٠ȠՠĠӠȠŠΠӠĠŮӠ͠ӠĠ٠٠ŠŮŠӠǬӠՠҠŠͬĠӠϠŠȠԠĠĠӠΠՠ׮Š͠Ӡ٠ĠĠŠӠҠȠŠӠŠŠŠӠϠŮŠӠ٠ԠՠĠΠӠΠŠȠΠҠǠͮӠՠҠŠͬՠŠӠ٠Ϡ٠ӠΠŠҮΠŠҬ٠ΠӠΠƠȠ̠ƠƠŮŠӠՠ٠ӠՠȮԠΠŠŠƠŠͬΠĠҬӠŠРԮԠӠάӠƠϠԠ٠ϠԮԮ͠ҠŠˠϠŠȬĠ٠РԬˠծՠҠŠĠլĠˠĠԠΠŠϠŠРԠǠҠҠԠԮΠ٠РԠӠԠ͠ĠҬӠԠΠŠΠĠӠӠȡŠˠҠӠΠҠĬĠΠϠŠҮԠӠ٠Ԡ͠ҠҠԬĠΠˠϠŠծՠŠנΠŠ̮ՠˠ٠ҠŬĠŠנϠŮՠŠԠӠ٠נԠ̬ԠҬҮŠˠҠӠԠ͠ӠȠĠӠԠծӠӠΠŠՠΠĠԮŠˠҠӠǠ͠ǠΠԠƠծԠӠӠӠĠӮՠˠРĠΠԠƠՠӠŠĠҡŠӠΠŬǠŠĠĠӠŠĠԠĠӠˮŠӠϠנ͠ΠӠŠ٠ӠĠՠӠٮˠĠԠĠϠԠՠ͠ĬԠӠŠԠĠծӠՠάŠӠǠ٠ϠǠήՠŠ̠ˠĠԠǠŠŠƠήՠŠˠĠԬĠŠӠ٠ŠՠĠ͠͠ӠӮՠРϠԬϠӠǠˠŮŠӠҠήŠӠԬǠĠŠǠӠծŠӠԠӠӠӠƠϠԠծӠҠĠӠĠӠˮՠŠĠĠԬԠŠӠԠΠՠԮՠŠ̠ͬԠԬϠӠǠĠŬĠŠӠԠˠٮՠŠ̠ĠԬǠĠŮȠŠ٠ԠƠ͠ΧԠˠӬӠ Ӯ             ǢŠؠƠӠӠ٠٬ԠՠΧԠԠԠήz#     ή͠Ӡ ήӠ Π͠FӠƠ̠͡Ϡ ̠Ϯà!ŠήӠ+ήàήӠ ήŠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys2$'F.'*** WRITTEN BY^8'*** LYNELL JACKSONxB'*** JANUARY 14, 1987~L'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>30 PM PST MONDAY-SATURDAY." $#""P#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND" #"MOST UP TO DATE PUBLIC DOMAIN SLIBRARY"6 Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."Y d#"511-104 ENCINITAS BOULEVARD"t n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:TINUE >" l24:7110! vGO$:' - D TB%(21(PR$)2)S TB%:PR$;Y _ (#| +#<*** DATA LOCATION ***> /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE APHIC"2 16297,1:16300,1:16301,1:16304,1< 7010B J :W I1ND%i PR$:I:7110p Iz 7010  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CON*>  GF%11110 :O PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"] 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRCING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"ADVENTURE 43":* NAME OF THE PROGRAM TO RUN NEXT   <*** MAIN PROGRAM ** <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp 15);"ADVENTURE ";NUMD H J  "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**";38);"*****************************************": 9A$"PRIESTS OF XIM":NUM43:A2$"MARTY & ED BAUMANN"A:L1350~(4);"VERIFY GAME.PTRS":(4);"RUN MAIN PGM"F216,0xA3$"THE WONDERFUL WORLD OF EAMON"@A1$"DONALD BROWN"` 7);A3$ ( "-------------------------------------P*U*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U``@P*U*U*U*U*U*U*U*U*U*U`xP*U*U*U*U**U*U*U*U*U`@1@P*L3O?NsOsLgyg9U`~P*U*U*U*U*U*U*U*U*U*U*U``P*?`<P*U*U*U*U**U*U*U*U*U``P*y|?&bD