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`΍ōMN$(0):REC:DK$;"CLOSE"8T DK$;"RUN MAIN HALL,S6,D1"I"SE"gT DK$;"RUN MAIN HALL,S6,D1"HARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC: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":"(HIT ANY KEY TO CONTINUE) ";:A$:0 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$ DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":2900d DK$;"OPEN COLD PIECES."::2356v3 "SAYS 'I'LL BUY NOTHING FROM A SCOUNDRAL":"WHO WOULD STEAL THE CRUCIFIX FROM A":"CHURCH!'"4 MD%(8,5)1MD%(8,5)15ĺ:" AS PROMISED YOU RECIEVE 5,000 IN GOLD":"FOR THE SAFE RETURN OF ROWINA.":TPTP5000%8 GOLDGOLDTP::LIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND"p TP0 AD%(1,4)12355 A1NA AD%(A,4)12350 AD%(A,2)0AD%(A,1)AD%(A,1)CH10$ TPTPAD%(A,1). A:"PAYS YOU ";TP;" G(37):23:A$:W5(A$):W51W5W21W5(W5)2080*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)g W::5:"AS YOU DE 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--"W1W21:4);W;"--";WN$(W):::"ENTER THE NUMBER OF THE WEAPON TO SELL (1-";W21;") "4 HIT ANY KEY TO CONTINUE) ";:16368,0:A$:JSPDMD%(0,2)MD%(0,2)2XDIE2500W14: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 MAINORLOFF IS THE ONE PERSON INSIDE":"THE CASTLE THAT YOU CAN TRUST. IF YOU"::"GET INTO THE CASTLE, SEEK HIM OUT. HE"::"WILL HELP YOU.'":?:" 'GOD SPEED AND GOOD LUCK!'"::BDK$"RUN MAIN PRG"///DONE WITH GAME-DK$;"CLOSE"::"(STLE OF EVIL PRINCE HOGARTH?"::::"(ENTER Y OR N)?";S .A$:A$"N"ĺA$::2000f 3A$"Y"ī1070 8A$::4:" 'REMEMBER THE GREETING 'HOWDY'. IT IS"::"A CODE WORD THAT WILL IDENTIFY YOU AS"::"MY EMMISARY IN HOGARTH TOWN.'":=:" 'COUNT WINA."d L:" THIS IN ADDITION TO WHATEVER TREASURE"::"YOU CAN CARRY AWAY FROM HOGARTH CASTLE." N23:"(HIT ANY KEY TO CONTINUE)";:A$:7 +4::" NOW, MY FRIEND, THE CHOICE IS YOURS."::"WILL YOU ATTEMPT TO RESCUE FAIR ROWINA"::"FROM THE CAGOLD THAT HE ASKS, IF ONLY I"::"HAD IT. HOWEVER, SINCE I DO NOT HAVE"w F:"THE GOLD, I MUST TURN TO YOU FOR HELP." J:" SINCE WHAT I ASK OF YOU IS SO VERY"::"DANGEROUS, I WILL PAY 1,000 PIECES OF"::"GOLD FOR THE SAFE RETURN OF MY FAIR"::"ROOR YOUR" 7"HELP IN RESCUING MY DAUGHTER, ROWINA."::"SHE HAS BEEN KIDNAPED AND IS BEING HELD"::"FOR RANSOM BY THE EVIL PRINCE HOGARTH." 823:"(HIT ANY KEY TO CONTINUE)";:A$: <2::" I WOULD GLADLY PAY THE RANSOM OF TEN"G A:"CHESTS OF :7$ " HOGARTH CASTLE"I !::" AN EAMON ADVENTURE"l "::" BY K.R. NESTLE" #:::13:"FEB. 1981" %I12500:I: ':7 (NM$", MY DEAR FRIEND."::"THANK YOU FOR COMING."::"I HAVE SUMMONED YOU HERE TO BEG F;& -> HOGARTH CASTLE <-,H AN EAMON ADVENTURENh BY K.R. NESTLEn OCT. 1980  DK$(4)DK$"OPEN FRESH MEAT":DK$"READ FRESH MEAT":X$,NM$DK$"CLOSE FRESH MEAT":DK$"CLOSE" :     s[a:"MAGICIAN'S SPELL. DESTINED TO RESIDE"::"INSIDE THE JAR UNTIL ANOTHER ADVENTURER"::"REPEATS YOUR ERROR."[aDIE1:2000D TO RESIDE"::"INSIDE THE JAR UNTIL ANOTHER ADVENTURER"::"REPEATS YOUR ERROR."[aDIE1:2000(0,2):MD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8)OZFF:"READIED."::300gZa ///STASH THE FROGwZaI1700:IZa:3:"SUDDENLY, YOU FIND YOURSELF INSIDE THE"::"MAGICIAN'S GLASS JAR. YOU ARE NOW "::"A LARGE GREEN FROG. A VICTIM OF THE OLD""14100&YB:"OKAY, '";S$;"'"::300>YhB///READY A WEAPON.HYrB4900Y|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100YBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::1006ZX:MN$(M);" IGNORES YOU":15100aX:MN$(M);" ";V$;"S BACK":15100oX:M::300X>///SAY COMMANDX>4900X>S$"BLAST"V$S$:S$"":11000X>S$"HEAL"12000X>S$"POWER"13000X>S$"SPEED"14000Y>S$"HOWDYD W9:4900TW>:S$"THE FROG"S$"FROG"ĺ:"'YUUKK!! DON'T EVER KISS A FROG!'":300tWH:M1NM:S$MN$(M)ī7000:MWR::"NOTHING HAPPENED.":300Wf:300W:///SMILE COMMANDW::M1NM:MD%(M,5)ROOM15100W:MD%(M,14)15030,15040,15050X:MN39,4)ROOMĺ:"I SEE NO ";S$;".":300V:S$"DOOR"S$"THE DOOR"S$"CELL DOOR"S$"THE CELL DOOR"S$"IRON DOOR"ĺ:"ALL DOORS CLOSE AUTOMATICLY.":300V::"YOU CANNOT CLOSE ";S$;".":300V3:"ERROR IN OPEN/CLOSE COMMAND.":300W4: ///KISS COMMANN ";S$;".":300*U: ///CLOSE COMNNAND4U:4900RU:S$"WOODEN BOX"S$"BOX"U :S$"BOX"AD%(39,4)ROOMAD%(38,4)ROOMĺ"THE BOX IS CLOSED.":300U :S$"BOX"AD%(39,4)ROOMAD%(38,4)ROOMAD%(38,4)0:"THE BOX IS CLOSED.":300&V :S$"BOX"AD%(:"DOORS DO NOT NEED TO BE OPENED."::"SIMPLY MOVE IN THE DESIRED DIRECTION"T9S$"DOOR"S$"THE DOOR"S$"CELL DOOR"S$"THE CELL DOOR"S$"IRON DOOR"ĺ:"AND, UNLESS THE DOOR IS LOCKED, IT WILL"::"OPEN AS YOU APPROACH.":300U9:"YOU CANNOT OPED%(38,4)0S$"BOX"ĺ"CONTAINS A SWORD.":AD%(38,4)ROOM:300xS9AD%(39,4)ROOMAD%(38,4)0S$"BOX"ĺ"IS EMPTY.":300S9S$"BOX"AD%(39,4)ROOMĺ:"I SEE NO ";S$;".":300NT9S$"DOOR"S$"THE DOOR"S$"CELL DOOR"S$"THE CELL DOOR"S$"IRON DOOR"S$"VIAL OF GREEN LIQUID"AD%(41,4)1AD%(41,4)53::"THAT WAS KINDA SOUR!":AD%(47,4)1dR9300|R9 ///OPEN COMNNANDR94900R9S$"WOODEN BOX"S$"BOX"R9AD%(39,4)ROOMS$"BOX"ĺ"THE BOX IS LINED WITH BLUE VELVET AND",S1:11500:SUC300T>,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300>,SUC0:SA%(S)RL(100(1)1):SUC((RLS2%(S))(RL75))>,SUCĺ:"NOTHING HAPPENED.":>-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2? -S2%(S)LOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT ANY KEY TO CONTINUE)";:A$::A00=$':300=*///BLAST SPELL=+4900>,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!":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,14)0:MD%(M,3)MD%(M,3)(1(S$)100):9120<'///INVENTORY COMMAND=':"YOU ARE CARRYING THE FOLA22A23::"WHAT TO GIVE? ";S$:9065U;#:"YOU AREN'T CARRYING A ";S$;"!"::100q;#AMD%(0,9)MD%(0,9)1;#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)<#MD%(M,10)0MD%(M,9)1MD%(M,9)A:MD%(M,10)MD%(M,9)AD%(A,5):)))MN$(M)MD%(M,5)ROOM9050M:F#:A21A22::"WHO TO GIVE TO? ";S$:9020w:P#:"NOBODY HERE BY THAT NAME!"::100:Z#S$(S$,(MN$(M))1):d#(S$,1)" "S$(S$,2):9060:i#(S$)09500:n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)19095';x#:4)ROOM9:$9@///FLEE COMMANDY9JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100i9*!8500:350094!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D)::DK$9>!R2DR%(6(1)1):R2185109H!9(#///GIVE COMMAND92#A21:<#M1NM:(S$,(MN$(MA2DFNZNM:AD%(A2,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)28DF0DIE1:20008FMN$(DF)"GUARD6"AD%(11,4)0AD%(11,4)ROOM9KMN$(DF)"PRINCE HOGARTH"AD%(32,4)0AD%(32," IS STILL IN GOOD":" SHAPE."::7" IS HURTING.":P7" IS IN PAIN.":q7" IS VERY BADLY INJURED.":7" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":8MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::6MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)77006AMD%(DF,14):FD%(A)FD%(A)D26:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675$7INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INCr5DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":76355"A CRITICAL HIT!":R2(100(1)1):R251A0:76355R286S1.5S:76355R296D2D:76355R2100D3D:763557700\6AD%(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ĺ:4y" BROKEN WEAPON HURTS USER!"4~FR10075604DMD%(OF,11):SMD%(OF,12):DFOF:A1:76354DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635:53e"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):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::3oFR957550i4t" WEAPON BROKEN!":PPENS. YOUR SPELL DEFLECTOR":"POTION MUST BE WORKING.":7505v2PMN$(DF)"MAGICIAN"AD%(36,4)48āI11000:I:250002QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10))RL96HIT12VHIT76002`RL97ĺ"A MISS.":SF)"MAGICIAN"AD%(36,4)48ĺ:" THE MAGICIAN QUICKLY OPENS HIS 'BOOK":"0F SPELLS' AND READS,"::" NIGHTSHADE AND WOLFBANE":" BOILED IN GROG":" SHAZAM AND KABAM??":" YOU ARE A FROG!"=2OMN$(DF)"MAGICIAN"AD%(36,4)48AD%(41,4)53ĺ:"NOTHING HA(0///MONSTER TRIES TO PICK UP WEAPON<0MD%(OF,10)0ıg0A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:0MN$(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:0LHIT0:MD%(OF,9)174001NMN$(D),6):WA%(W2)WA%(W2)2'/EAAE300J/(100(1)1)MD%(0,10)7360`/A2:EAAE1A1/AEAEA:MD%(0,10)MD%(0,10)A/MD%(DF,14)1DF0300/MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)00M:R3ROOM:3600:300AM THE BARTENDER"4.S$"BEGGER"S$"BLIND BEGGER"Q.S$"FROG"S$"THE FROG".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,9DIER"S$"DRUNKEN SOLDIER"?-S$"DRUNK"S$"DRUNKEN SOLDIER"`-S$"PRIEST"S$"OLD PRIEST"-S$"BEGGER"S$"BLIND BEGGER"-S$"GYPSY"S$"GRPSY WOMAN"-S$"RAT"S$"LARGE RAT"-S$"SAM"S$"SAM THE BARTENDER".S$"BARTENDER"S$"SSC,R";A300:A$:DK$::A$::LK10,A:LK300D,V%(ROOM)0:300[,X///ATTACK COMMANDe,b4900{,lS$"GUARD"7050,vM1NM:(MN$(M),5)"GUARD"MD%(M,5)ROOMS$MN$(M),M,S$"DOG"S$"STRAY DOG",S$"JOE"S$"OLD JOE"-S$"SOL1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM6+A:WT0:5060K+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:LK300!,A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$;"READ EAMON.DEA,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)1MD%(0,9)1*300$+A1NA:AD%(A,4)23,14)0)R3600)\O)$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.v))S$""ĺ:C$(C);" WHAT";:S$:4900|).)///DROP COMMAND)S$"ALL"5100)A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100(*WTWTAD%((A)"CRYSTAL BALL"S$"CRYSTAL BALL"MD%(14,5)ROOMMD%(14,3)0:MD%(14,14)0(AN$(A)"2 SILVER COINS"S$"2 SILVER COINS"MD%(15,5)ROOMMD%(15,3)0:MD%(15,14)0)AN$(A)"BOOK OF SPELLS"S$"BOOK"S$"BOOK OF SPELLS"MD%(23,5)ROOMMD%(23,3)0:MD%((A)"10 GOLD COINS"S$"10 GOLD COINS"MD%(5,5)ROOMMD%(5,3)0:MD%(5,14)0'AN$(A)"LITTLE BOTTLES"S$"LITTLE BOTTLES"MD%(4,5)ROOMMD%(4,3)0:MD%(4,14)0'AN$(A)"8 SILVER COINS"S$"8 SILVER COINS"MD%(7,5)ROOMMD%(7,3)0:MD%(7,14)0L(AN$/INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UPj&AN$(A)"CROWN"S$"CROWN"ROOM54MD%(20,5)ROOMp&&///MONSTERS REACTION TO GET OR TAKE COMMAND&AN$(A)"GOLD CRUCIFIF"S$"GOLD CRUCIFIX"MD%(2,5)ROOMMD%(2,3)0:MD%(2,14)0K'AN$T.":AD%(A,4)1:WTWTAD%(A,3)::4500:AD%(A,2)2MD%(0,9)1300N%617000o%@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)%Y4500%^::3004&h//E BOTTLES"B$S$"VIAL"AD%(41,4)ROOMS$"VIAL OF GREEN LIQUID"_$S$"FROG"S$"THE FROG"$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."::100C%,:"GOT ITL(TD%(1)0):##///GET COMMAND-#4900@#S$"ALL"4160q#S$"KEY"AD%(6,4)ROOMS$"LARGE BRASS KEY"#S$"KEY"AD%(11,4)ROOMS$"LARGE IRON KEY"#S$"KEY"AD%(10,4)ROOMS$"SMALL SILVER KEY" $S$"BOTTLES"AD%(43,4)ROOMS$"LITTL)MD%(M,5)ROOM:3670.".MD%(M,5)ROOM3900B"8MD%(M,14)3670q"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,1)#<M:NBT GO THAT WAY!":V%(ROOM)0:1009! R3ROOM:ROOMR2:3600W! AD%(44,4)35MD%(8,5)35`!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)1200(1)MD%(M,4)(58,4)0MD%(8,5)1MD%(8,5)15ĺ:"TRY AGAIN AFTER A SHORT REST IN THE"::"MAIN HALL.":: R299AD%(58,4)0ĺ::" IT IS MOST UNFORTUNATE THAT ROWINA WAS"::"KILLED IN THE ATTEMPTED RESCUE.":: R299ī2000 R23490! :"YOU CAN'00i R299ė:2::"CONGRATULATIONS!":::"YOU HAVE SURVIVED YOUR ADVENTURE IN"::"HOGARTH CASTLE." R299AD%(58,4)0MD%(8,5)1MD%(8,5)15ĺ::"IT IS UNFORTUNATE THAT YOU WERE UNABLE"::"TO RESCUE ROWINA. PERHAPS YOU WILL"^ R299AD%,1)("NSEWUD",D,1)ĂL DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$[ R203500q ///SPECIAL MOVES R220ĺ:"THE DOOR IS LOCKED.":100 R234R235R236ĺ:"THE CELL DOOR IS LOCKED.":100 R298ĺ:"THE DOOR IS LOCKED.":1%(A):WO%(A):WD%(A):WS%(A):s 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 UNFRIENDLIES ABOUT!"::100 D16:(V$ 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): A15:WA%(A)::AE:SEX$:GOLD:BANK:AC:A14:WN$(A):WTOU RECIEVE 1,000 IN GOLD":"FOR THE SAFE RETURN OF ROWINA.":TPTP10008 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$: 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$I350, AD%(A,2)0AD%(A,1)AD%(A,1)CH10?$ TPTPAD%(A,1)n. A:"PAYS YOU ";TP;" GOLD PIECES."::23563 "SAYS 'I'LL BUY NOTHING FROM A SCOUNDRAL":"WHO WOULD STEAL THE CRUCIFIX FROM A":"CHURCH!'"F4 MD%(8,5)1MD%(8,5)15ĺ:" AS PROMISED Y,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 FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND" TP0 AD%(1,4)12355 A1NA AD%(A,4)121:4);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:W252060BW14:WP%(W)WT%(W)AD%(WP%(W)):WP%(W2)A:W2W21:AD%(A,4)00A: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--"UW1W2AY,READY, UNLOCK,OPEN,CLOSE,KISS,DRINKC///DONE WITH GAMEDK$;"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$(A3"jNC:C$(NC):C1NC:C$(C):LtS14:S2%(S)SA%(S)::V%(96):ROOM1Ul100_v 39 NORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,TAKE,DROP,PUT,LOOK,EXAMINE,ATTACK,A,FLEE,RETREAT,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,S8)0:A2(AC2):A22ACMD%(0,8)1:EA5vVA2MD%(0,8)MD%(0,8)A2:EAEAA210:A23MD%(0,8)MD%(0,8)2:EAEA30`NANZMD%(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)NE"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:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090*LA,W2:EA0:MD%(0,,ACNW15: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 EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64".W214:WN$(W2)"NOONSTERS,L128":MN$(NM),MD%(NM,15):A1NM: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,BANKMON.DESC":DK$;"READ EAMON.DESC":NR,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):A2wA:DK$;"OPEN EAMON.MROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490N|M2:DF0:7500:490WOFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)TD%(1)):NBTLĂM100///INITIALIZE DATA@DK$;"OPEN EA(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)FD%(M2)MD%(M,13):490YMD%(M,14)2490^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:4906rM21NM:MD%(M2,5)00,7000,7000,8000,8000,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,14500,14800,14850,14900,14700 ,///COMMANDS RETURN TO HERE 6NBTL500 @M1NM:MD%(M,5)ROOM490 JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41:260 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)z "C3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,3000,4000,4000,5000,5000,6000,60NA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."@ A:V%(ROOM)1\ :" YOUR COMMAND?";A$} (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);" IS HERE."d 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:AA2MD%(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 M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M)S&** EAMON ADVENTURE #37 **,F HOGARTH CASTLE Le BY K.R. NESTLEk~2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDn; xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)                                                       ҠٍΠ̠ǍΠ̠ǍˍҠٍΠŠҍˠίӠōԠҍˠίӠōҠٍ̠ǍΠŠˍΠŠˍΠŠˍǠ͍ōנҍΠŠˍΠŠٍԠĠƠŠԍΠŠ͍ŠƠίӠٍΠΠ͍Πנ͍ΠŠŧӠҍΠŠŧӠԍȠĠƠٍΠĠ͍ΠŠԠ̍ίӠōΠħӠӍΠ̠ǍԠŠ̠ҍԠĠƠůנōΠ̠̍ΠŠ̍ԠȠĠƠٍΠ̠ǍԠίӠōԠԠ̠ҍΠŠŠ͍ҠŠōΠŠٍΠ̠ůנōΠŠŠҍΠˠōΠŠĠ͍ΠŠĠٍΠŠčŠĠ͍ΠŠōŠ٠̍ΠŠӠЮůנŠԍԠĠƠŠԍԠĠƠŠԍԠȠĠƠ٠ԍԠŠΠǠЍԠҠΠǠЍΠӠٮٮΠ̠Πԍ٠Π٠ίӠԍΠŠٍΠǠРٍԠȠΠōȠĠƠ٠ԍΠ٠Šȍ       Ƞō ĸĹŠȍ΍z#      ή͠ӠήӠΠǠU ȠŠԠҠ̠Ϡ ̠Ϯà!ŠήӠ' ήà" ήӠ ήŠ@@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 18":* 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