' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]$$8HIL,նh, ,`, ,`, , ,:/8` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 ˆʎõĵ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õ`  \ 濭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`,,,LOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!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- @ΠɠŠ-@跻~!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䵍䵩m嵍`"L ŵ8ŵH ~(`F d ֠z# u`ō̍ŠōՠŠΠǠҠŮՠŠԠΠȠˠҠĠҠ٠ǠԠԠŠԧӠΠԠήŠӠŠ̠ԠΠՠŠήՠŠΠĠΠŠȠ̧اΠԮՠŠΠ٠ĠΠخĠˍŠŠԍΠ؍ĠӍˠōč̠ōĠӍĠōŠōΠ΍ՠŠŠšԠӠǠŠǠŠĠӠĠϠŮՠŠŠ ȠŠŠȠԠԠŠĮŠ̠ӠǠԠҠήՠŠŠ٠̡ŠӠ٠έǮŠӠǠĠҠΠŠĠĠŠ ΠŠҮՠŠΠĠ٠ˮӠŠӠŠŠŠƠŠǧՠŠǠΠԠƠŠˠŠΠŠԠ̮ԠӠŠӠĠՠנԠӠΠǠŠŠŠӠĠԮՠŠǠΠԠƠƠΠŠԠĠƠŠͮՠŠǠΠԠƠŠԠƠӠΠŠȠĠƠŠͮŠӠŠ̠ΠĠĠĮՠŠǠΠԠƠŠԠƠӠΠŠȠĠƠŠͮŠӠŠ̠ΠĠĠĮՠŠΠŠŠҮŠӠŠ٠ȠӠȠ٠ŠĠϠΠԠήŠ٠ԠӠԮՠŠΠԧΠΠŠ̮ՠ٠ϠˠȠҠϠӠϠŠԠҠԮՠŠΠŠԠҮŠ٠ԠӠϠŠԮՠŠԠΠŠŠƠ̠ȠŠӠƠРΠԮŠ٠ϠŠРƠŠՠˬŠŠӠԠĠӠԡՠŠ٠ŠˠšĠԠƠĠӠӠΠŠҡՠŠΠŠ̠šŠӠŠĠŮՠŠ٠ŠĠŮŠĠǠӠǠΠԠΠՠŠήՠŠנĠӠǠΠ̠ŮՠŠ̬Ԡ̠ΠήԠӠԠǮՠŠ̠ŠŠǠΠ̠ŮՠŠ̠ٮՠŠΠŠҮŠӠĠΠŠҠĠŠҠϠŠ͠ӠǠŠĠϠӮՠŠΠ̠ҠϠŠԠƠŠȯȠ̮ŠӠϠŠƠ٠ԠΠŬԠŠŠӮŠԠӠԮՠŠΠȯȠ̮ŠŠӠϠŠԠĠȮŠȠҠӠŠҠĠ͠ӠӠĠĠΠŠҮՠŠŠϠĠΠŠ̮Š̠ӠȠŮՠ٠ϠˠԮՠŠΠ̠ˠҮԠӠԠԠ̠ȠҠՠϠŠŠԠϠŠȮՠŠΠΠԯԠ̮ϠŠȠӠˠҮՠŠΠ̠ҠƠŮŠΠŠӠ̠ĠˬԠӠΠĠϠӠ٠ŠԠƠŮŠԠӠϠŠȮՠŠΠ̠ҮŠӠŠŠƠŠŠӮϠŠȠӠŠԠϠŠԯԠ̮ՠŠΠŠҠĠ٠ӠŠͮŠŠĠӠĠӠԠŠΠΠĠҠӠĠԮŠԠӠϠŠȮՠŠΠ̠٠ҮŠ٠ĠӠΠŠҠƠŠͮŠŠŠӠΠŠȠĠȠ̮Š٠ԠӠϠŠԮՠŠΠ̠ͮԠӠ٠ĠՠΠԠŠϠ̮Š٠ԠՠŠӠϠŠԮՠŠΠȯȠ̮ŠŠӠϠŠԠĠԠǠϠ̠ӮϠŠȠӠ̠ҠͬԠҮՠŠΠ̠٠ҮԠӠˠΠŠĠӠǠ͠ӠƠŠͮŠӠΠĠƠĠΠŠԠ̬ĠȠӮՠŠΠ̠٠ҮŠԠӠϠŠԮŠӠԠĠӠ̠ҠŠͮϠŠԠӠ̠ŬĠΠԮՠŠΠȯȠ̮ϠŠȠĠԠŠŠ̠ӮŠ̠ӠˠĠٮŠŠԠȠҮՠŠԠΠήՠ٠ϠȬȠҠˠԮŠӠŠˠĠ٠Ƞ٠̠̠ĮN II.DESC,L256":DK$;"OPEN II.ROOMS,L64":DK$;"OPEN II.ROOM NAMES,L64"OK~J100]K N // OPENK*N4900:1600:FOĺ:"I DON'T KNOW WHAT YOU MEAN!":100K4NY0:X1NA:AD%(X,4)A100Y1:AD%(X,4)ROOMK>N:X1NM:MD%(X,5)A100Y1:MD%(X,5)ROOM"LHNΠԠƠŠԠΠȠ̮ΠԠƠŠƠΠŠԠ̮ΠԠƠŠŮΠŠԠҮԠԧήίůשΠŠŠҮΠԠƠŠԠΠȠ̮ԠĠΠŠ̮ůөΠȯȠ̮ӠӯשΠ̠ԠҮΠŠȠҮΠ̠ȠҮΠ̠ȠҮΠΠԯԠ̮ҠΩΠ̠ˠҮԠөΠȯȠ̮ӠůשΠ̠ͮ͠ԠשΠ̠ҮԠԩΠŠŠҮԠΩԠԧήίӯשΠȯȠ̮ӠίũΠ̠٠ҮԠשΠ̠٠ҮԠөSTRESURE CHESTGOLD BARLARGE CLUBOLD BOOKOLD MACESTӔ.YSAVESAVE 7000000-80600MACE#MACESPEARAXESWORDHOAGIEHOGARTHABERNONNONENONENONEMACE#MACEMHAGGARDBLACK WIDOWMUMMYBULLSMALL CYCLOPSIGORHAPPYWILD DOGGRANGEROXANNEKENDO MASTERWILD BOARLARGE SNAKETROLLCAVE RATCANTANKEROUS CALSQUIRE HAROLDLIFEBRINGERSTAFFJEWEL    L  RECa!&+.37<AFNUZ _iotzӲ 2րa  W7% '' ''    ||||||||||| 2Π٠ԠԮΠˠȠҮΠΠԯԠ̮ΠΠԯԠ̮2dddd(7dZ<(ddd(   1 /97F12=7@_FT          d  (ddd( -22d-Px(#d dPF  xZ,^nn(Z2 MI*  | pic[VR EA< 1 )  ,  Z"  FR&NBAӔWICؔVԔSR2PR3@FLKGMFOM2IMRTTOFDF@HIRL0D3SUAJ`D ݔA0@A@ ݕ Еʕŕ ą WJ DNRNZNENMNAPND@A`A2RENF@CLCH.INAES)GO"BAAC@AHAA@SHNWpPTM X~DW2WZ@WT~EANChC`SROPD2`        ՠŠΠΠԯԠ̮ϠŠȠӠ̠ͮϠŠԠӠԧήՠŠΠנԯԠ̮ӠϠŠȠĠȠϠϠ̠ӮϠŠԠŠ̠ӮՠŠΠˠҠϠŠȠƠŠԯԠ̮ŠӠŠȠŠӮŠӠȠΠŠԠ̮ĠٮϠȠӠŠ٠ԮՠŠΠ٠ԠԮŠӠԠĠӠΠŠҮŠ٠ҠӠϠŠȮՠŠΠ̠٠ҮĠҭӠŠŠͮӠΠĠĠҠĠŠΠҠƠŠͮŠ٠ԠՠΠŠӠԮՠŠΠԠԯԠ̮ŠԠӠ̠٠ҮӠҠҮŠŠՠŠͮՠŠΠ̠ٮŠŠӠŠӠŠŠԮŠӠŠΠĬάĠŠƠ͠ŠΠĠРĠǠΠŠҠӠӠƠҮՠŠ٠ŠŠԡŠ٠٠Ġ٠ӡiWJLUӔ Ǡō͍čōōōō΍ōōčōҍ TRESURE CHESTGOLD BARLARGE CLUBOLD BOOKOLD MACETR-YSAVESAVE7000000-80600MACE#MACESPEARAXESWORDHOAGIEHOGARTHABERNONNONENONENONEMACE#MACEMHAGGARDBLACK WIDOWMUMMYBULLSMALL CYCLOPSIGORHAPPYWILD DOGGRANGEROXANNEKENDO MASTERWILD BOARLARGE SNAKETROLLCAVE RATCANTANKEROUS CALSQUIRE HAROLDLIFEBRINGERSTAFFJEWELS    L  RECa!&+.37<AFNUZ _iotzӲ 2րa  W7ۄׄӄτ'' ''    ||||||||||| 22dddd(7dZ<(ddd(   1 /97F12=7@_FT          d  (ddd( -22d-Px(#d dPF xZ,^nn(Z2 MI hXPK @ 7 +$  Ȅ)  ,  Z"  FR&NBAWICVS"UR2 R3FLKGMFOM2IMRTTOFDF@HIRL0D3SUAJ`D A0@A@   uą WJ DNRNZNENMNAPND@A`A2RENF@CLCH.INAESGO"BAAC@AHAA@SHNWpPTM X=DW2WZ@WT~EANChC`SROD2@     00QD-:"FEAR FLOWS INTO ";MN$(M);"!":MD%(M,4)MD%(M,4)35(MD%(M,4)200):300aD- // BLINKD-:"THE SCENERY FLICKERS!":R2((1)NR1):3500D. // SLEEPD".S$""ĺ:"IF YOU DID, SOMEBODY WOULD KILL YOU!":100E6.1500:FOĺ:"YOU CAN'T SLiWJLU! ĠōU WANT TO RESTART THIS GAME?":" Y OR N:";JJLJA$:A$"Y"A$"N"19020\JVJA$:A$"N"ĀJ`J(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"JjJDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"FKtJDK$;"OPEӠ̍ŠԍŠčz#??????     ɮӠ ɮàLΠ͠FȠԠȠԠ  ŮҠ ŮҠΠɠŠӠŠɮŠɮӠ ɮ͠Ӡ ɮӠ ΍EEP ";S$;"!"::100SEJ.MN$(M);" FALLS ASLEEP!":MD%(M,22)1:MD%(M,23)5:3600:300iE:///SMILE COMMANDE::M1NM:MD%(M,5)ROOMMD%(M,22)015100E:MD%(M,20)15030,15040,15050E:MN$(M);" GROWLS AT YOU!":15100F:MN$(M);" JUST LOOKS AT YOU.ERS,ARTIFACTS$DK$;"EXEC EXEC":7 RESTART HEREDK$(4):DK$;"DELETE EAMON ADVENTURE #";NUM:DK$;"SAVE EAMON ADVENTURE #";NUMDK$;"RENAME EXEC,SAVE LEADIN PROGRAM HERE"A:"RUN 200"/ DK$;"OPEN A";(8):DK$;"CLOSE"q DK$;"OPEN II.NAME":DK$;"WRITE II.NAME":A$:ND:DK$;"CLOSE" R14:F$:DK$;"OPEN II.";F$:DK$;"CLOSE"::DK$;"OPEN II.DESC":DK$;"WRITE II.DESC":"0,0,0,0":DK$;"CLOSE"  ROOMS,ROOM NAMES,MONST TEN DIRECTION MOVEMENT:";ND$:ND$"6"ND$"10"135C ND(ND$)~ DK$(4):DK$;"INIT EAMON II ADVENTURE #";NUM;",V";NUM DK$;"OPEN EXEC":DK$;"WRITE EXEC":"0 A$=";(34);A$;(34);":NUM=";NUM;":A2$=";(34);A2$;(34):"DEL 100,199":"200 NUM=";NUM18);"EAMON":c n8:"ENTER THE NAME OF THE DUNGEON"::" ";A$:A$"A"A$"ZZZZ"(A$)30110 x12:"ENTER AUTHOR NAME ";A2$:(A2$)25120 16:"ENTER DUNGEON NUMBER ";A3$:NUM(A3$):NUM(NUM)NUM1NUM254(NUM)A3$1305 18:"SIX ORAS":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION WELCOMED."::"TO USE THIS DISKETTE REQUIRES AN EAMON II MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": <ATTE WITH NEW DISKETTE NOW"::::"INITIALIZING NEW DUNGEON DISKETTE FOR"::;38);"*****************************************": 12);"ADVENTURE #";NUM;" FOR"::9);"THE WORLD OF EAMON II"::"----------------------------------------" ("THE EAMON II FANTASY GAME SYSTEM WAS ADAPTED FROM DONALD BROWN'S EAMON":A$;" W2A$"BEGINNER'S CAVE":NUM1:A2$"JOHN NELSON":9nD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"y 216,0 ::3 "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"**"     iKUMWx ":15100,F:MN$(M);" ";V$;"S BACK!":15100:F:M::300NF>///SAY COMMANDXF>4900F>S$"BLAST"V$S$:S$"":C151:11000F>S$"HEAL"C152:11000F>S$"POWER"C154:11000F>S$"SPEED"C153:11000FB:"OKAY, '";S$;"'"::300GhBHA  V '' Cd   &+17=BHNTY^bhmӲ 2րa||| 2  W7TOKGC*'"'' dddd(7dZ<(ddd2# 2(Z22(   /-77F<277<<*]>L            d  (ddd2( -22dZPx(Fd <dPF xZ,^nn MOY ڄ҄̈́ „  ~y nf`<5/ĉ "!   u  ,  2#,Z@T2ZNBAWICVSxyD@R2HR3PFFOOFDF HIRL,M20MRTTD3SUAJPGMAd   uq f Y OG@2"   ĿK DNRNZ NENM(NAHND@AhA2RENF@CLCHINAESXGO"BAAC@AHAA@SHNWpPTM0X0W2WZ WT\EANCpChSROHD2`FR    ///READY A WEAPON.GrB4900gG|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100GBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100 H"" > О쁠"  ǫţÃο"  >>Ɓ ǟ ȇФ£ $%$LDEN BOXGLOBE PAPERWEIGHTMINK STOLEDIAMOND EARRINGSPEARL NECKLACEDIAMONDOLD BONEGOLD COINSGOLDEN DRAGONJADE STATUERUBYLIFEBRINGERSTAFFJEWELSTRESURE CHESTGOLD BARLARGE CLUBOLD BOOKOLD MACELDYSAVESAVESPEARAXESWORDMACE#MACESPEARAXESWORDHOAGIEHOGARTHABERNONNONENONENONEMACE#MACEMHAGGARDGOBLINCOLUMBUSBLACK WIDOWMUMMYBULLSMALL CYCLOPSIGORHAPPYWILD DOGGRANGEROXANNEKENDO MASTERWILD BOARLARGE SNAKETROLLCAVE RATCANTANKEROUS CALSQUIRE HAROLDBOTTLEGO  ӠōЇ"""" """"""""""""*"""""""""""" ""*"""`$%d6""""0DD8ύ࿂""" 8""8"8̣ 8 "" 8"""號Ё>""2<><""""""<"""*">"*$>>"2"""**><"""*>"*>"ǣ迌сر*>"*>">>$$>0ĐĄ<"<$">$<$"$ȁ$>*">$">""Ġ"*"*  "  """""" <"""""*$" "<ρÁ㣞*"">"**" <   """""*"< ȁؿكș*""*""""$$"0<Dx·޿ " $"">$ $ "$$"*<" $""<"ᗠ"*"&<" ""< Ƈ&<< "< Ãп那ȇಠ:Yĺ:"YOU FOUND SOMETHING!":300+LQ300:LR /// READhLU:"YOU DON'T UNDERSTAND ANY OF IT!":100""     ā̃>"""<<<""<<"<"<<""<""<<<<"<"<Á́Ʊ΍͍ōōōōōōō        )AD%(A,8)#HFF:"READIED."::3008HPF // SAVE GAMEmHZF:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";HdFA$:A$"Y"A$"N"18020HnFA$:A$"N"100HxFDK$;"CLOSE":X(0)HFDK$"BSAVE GAME.PTRS,A$69,L8"3IFDK$"BSAVE GAME.SVAR,A";(105)(!!!106)256;",L";(109)(110)256(105)(106)2561IFDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561IF:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."IFI8J // RESTART+JBJ:"DO YO! !!! !            !" " "   ՠŠԠĠȠӠĠĠӮԠӠĠΠӠ͠ȠӠҮŠ٩ՠŠҠƠĠġՠŠ٠ŠˠҡӠӠŠԠՠŠҠήԠӠΠŠҠӠŠΠӠήǠԠŠԠҠƠŠ͠ӠӠǠΠĠٮŠ٠Ӡ٠ĮՠŠŠ̮ŠӠϠŠΠ٠ĠĠĠӠӠΠӠŠӠծՠŠӡӠŠŠӠĠŠӠǠҠŠϠϮŠӠ٠ŠĠĠƠӠŠŠӠ٠̮ՠŠΠ٠ˠȠŠŮŠӠĠՠǠŠǠĠͮՠŠ̠ŠΠΠ٠ĠǮŠӠĠĠՠӠԠӠŠӠ٧ՠϠԠĠנŠԠԠŬŠŠӠŠ٠ϠծՠŠĠǡŠӠǠӠԠՠĠǠٮՠŠ٠٠ΠΠҠҮŠӠ٠٠ȠˠҬĠĠĠԠ̠ҠӠŠٮŠӠӠՠҠԠՠԠƠſՠŠ٠٠Ǡ٠Π٠٠ŮԠӠϠŠΠҬԠӠŠŠΠ̮ŠӠՠŠŠΠŠӠլԠԠӠԠ͠ϠŠ٠ŮՠŠΠԠŠΠΠˠӮŠӠǠƮŠӠŠӠǭǠΠҠƠϮՠԠ̠ҠŠӠٮՠŠŠĠҡŠӠ٭ĮŠӠՠĠŠĮ1);ADV$;L2)::, d /// PRINT DESCRIPTION] :"GOOD LUCK, ";NAME$;".":D$"RUN MAIN PGM" @::" PRESS ANY KEY TO CONTINUE ";:A$: J::D ADVENTURE NAME1 BY JOHN NELSON7> L D$(4):D$"OPEN FRESH MEAT":D$"READ FRESH MEAT":REC:NF:NAME$:D$"CLOSE":D$"OPEN II.NAME":D$"READ II.NAME":ADV$:D$"CLOSE"::L1((40(ADV$))2):L240(ADV$)L1 (L M,12),MD%(NMM,15):MD%(NMM,9)1:MD%(NMM,21)1::NMNMNFw"X1NF:WN$(X5),WT%(X5),WO%(X5),WD%(X5),WS%(X5):$DK$"CLOSE":DK$;"OPEN II.DESC,L256":DK$;"OPEN II.ROOM NAMES,L64":DK$;"OPEN II.ROOMS,L64".W215:WN$(W2)"NONE"NANA1:AN$15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A15:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::PTS:NF01060M1NF:MN$(NMM),MD%(NMM,1),MD%(NMM,2),MD%(NMM,4),MD%(NMM,7),MD%(NMM,8),MD%(NMM,10):MD%(NMM,3)100:MD%(NMM,5)1;!MD%(NMM,11),MD%(NM"CLOSE"DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC,NF:MN$(0),CL,MD%(0,1),MD%(0,2),CH,IN:A18:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,AC,AH,AA,SHNF5ĺ:"YOU WERE AMBUSHED!! ";NF5;" OF YOUR":" FRIENDS WERE KILLED!":NF5hNWI.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2sA:DK$;"OPEN II.MONSTERS,L128":MN$(NM5),MD%(NM5,23):A1NMDK$;"READ II.MONSTERS,R";A:MN$(A):A2118:MD%(A,A2):A2:MD%(A,5)1MD%(A,5)((1)(MD%(A,14)MD%(A,13)1)MD%(A,13)) A:DK$;2:TT:490M2:TT8NBTL(FD%(1)TD%(1)):NBTLĂM>G100_///INITIALIZE DATADK$;"OPEN II.DESC":DK$;"READ II.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZ:ND6/DK$;"OPEN II.ARTIFACTS,L128":AN$(NA10),AD%(NA10,9):A1NA:DK$;"READ I)MD%(0,1)DF0:7500:TT:490~rM21NM:MD%(M2,5)ROOMMD%(M2,20)3(1).25MD%(M2,22)0DFM2:7500:M2200:M2:TT:490|M2:DF0:7500:TT:490TT1MD%(M,15):OFM M21NM:MD%(M2,5)ROOMMD%(M2,20)1MD%(M2,22)0DFM2:7500:M2200:M,20)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,20):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,19):490YMD%(M,20)2490^MD%(M,20)3390cTT1MD%(M,15)hOFM:TD%(3,3000,4000,4000,5000,6000,6000,7000,8000,9000,10000,11000,11000,11000,11000,11000,11000,11000,11000,15000,21000,15000,16000,17000,18000,20000,///COMMANDQ RETURN TO HERE6NBTL500@M1NM:MD%(M,5)ROOMMD%(M,22)0490(JM2MD%(M,20)(MD%(MA:2900(C$(A),(V$))V$FF1:CA:F1275=:F290n:"YOU ";V$;(" !",(S$"")1,1);S$;"!":100:"I UNDERSTAND THESE COMMANDS-- ":C1NC:C$(C);20(C$(C)));::::210C$(C)S$S$V$:V$C$(C)"C3000,3000,3000,3000,3000AT"275( (A$,1)" "A$(A$,2):220I A$""A$CZ$:(37):16:A$X A$""275 CZ$A$:A2(A$):(A$,A,1)" "Ă V$(A$,A1):S$(A$,A1) (S$,1)" "S$(S$,2):260 C16:(C$(C),(V$))V$290:F0:A7NC:C$(A)V$CЯA1NZ:AD%(A,4)ROOMAD%(A,9)ĺ"YOU SEE ";AN$(A) AD%(A,4)ROOMAD%(A,9)ĺDK$;"READ II.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$,4)"WHMMD%(M,23)MD%(M,23)1:MD%(M,23)0ĺMN$(M);" WAKES UP!":MD%(M,22)0:MD%(M,23)0:WI1 MD%(M,22)0MD%(M,5)ROOMĺMN$(M);" IS LYING HERE."::170 MD%(M,5)ROOMMD%(M,21)ĺDK$;"READ II.DESC,R";M300:A$:DK$:A$:MD%(M,21)1: M:WIİ36004 ;ROOM:A$:DK$:A$::V%(ROOM)1 WI0:M1NM:MD%(M,5)0MD%(M,18)((1)100)ROOMMD%(M,13)ROOMMD%(M,14)ĺMN$(M);" WALKS INTO ROOM!":MD%(M,5)ROOM:WI1: MD%(M,5)ROOMMD%(M,21)MD%(M,22)0ĺMN$(M);" IS HERE.":W MD%(M,22)0MD%(M,5)ROO)MD%(0,10)2MD%(0,2):(1).8ĺ"YOUR SPEED SPELL HAS JUST EXPIRED!": }FURYFURYFURY1:FURYMD%(0,15)1:"YOUR FURY HAS SUBSIDED!": V%(ROOM)ĺDK$;"READ II.ROOM NAMES,R";ROOM:A$:DK$:"YOU ARE ":" ";A$: V%(ROOM)ĺDK$;"READ II.DESC,R"iD EAMON II ADVENTURE< BASE EAMON II PROGRAMB\ BY JOHN NELSON bk 50DK$(4):DK$"VERIFY GAME.PTRS":216,0:190002216,0:1000d >> MAIN ROUTINEnG xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10                       :D21ND:RD%(D2)::DK$:/&///GET COMMAND9&4900L&S$"ALL"4160&GM0:1600:FOGM1:1500:FOĺ:"I SEE NO ";S$;" HERE!"::100&GM4300&"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::1002',:"GOT IT.":AD%(A,4/%BFRMD%(M,3):FRFR100FRFR((CH10)2)u%LMD%(M,20)1:FR(100(1))MD%(M,20)2:FR(100(1))MD%(M,20)3%VAMD%(M,20):FD%(A)FD%(A)MD%(M,19):TD%(A)TD%(A)MD%(M,1)%jM:NBTL(TD%(1)0):%t // READ ROOM&~DK$;"READ II.ROOMS,R";ROOM:3700:3600$100*$ // CHECK REACTa$TD%(1)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MD%(0,19)$$M1NM:MD%(M,5)R3MD%(M,22)0ĭMD%(M,20)3(MD%(M,20)1200(1)MD%(M,4))MD%(M,5)ROOM:3670$.MD%(M,5)ROOMMD%(M,22)03690%8MD%(M,20)3670YOU CAN'T TURN YOUR BACK ON ENEMIES!"::1004# DCB# R2RD%(D)Q# R203500g# ///SPECIAL MOVES# R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000# R23490# :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 $ R3ROOM:ROOMR2:GOLD:BANK:AC:AH:AA:A15:WN$(A):WT%(A):WO%(A):WD%(A):WS%(A):R" PTSX" " DK$;"OPEN THE ADVENTURER":DK$;"WRITE THE ADVENTURER":MN$(0):REC:DK$;"CLOSE"" DK$;"RUN MAIN HALL""( 2570" ///MOVE COMMAND,# NBTLS$"FLEE"ĺ:"368,0! A$:A$"C"2520#! A$j! DIEĺDK$;"OPEN THE ADVENTURER":DK$;"DELETE THE ADVENTURER":2900! DK$;"OPEN CHARACTERS,L256":DK$;"WRITE CHARACTERS,R";REC:MN$(0):CL:MD%(0,1):MD%(0,2):CH:IN:A18:SA%(A):I" A15:WA%(A)::AE:SEX$ UP TO TAKE THE KING'S SHARE."::"HE TAKES ";(TP.7);" GOLD PIECES.":TPTP(TP.7)u 8 GOLDGOLDTP:GOLD0GOLD0 B :"(HIT ANY KEY TO CONTINUE) ";:A$: 2500! :5:"(INSERT EAMON ][ MASTER DISKETTE, THEN":" PRESS THE 'C' KEY) ";:16R FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";c TP0:A1NA:AD%(A,4)12350 AD%(A,2)0AD%(A,1)AD%(A,1)CH10$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":U 3 TP10000ĺ:"IMMEDIATELY FOLLOWING THE PAYMENT, A TAXMAN SHOWS*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP%(W21):W2W21:W252060W15: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 BUYE YOU, 'YOU HAVE TOO MANY WEAPONS":"TO KEEP THEM ALL--5 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)2080KMD%(0,2)MD%(0,2)2"DIE2500W15:WN$(W)"NONE"::W21:A1NA:AD%(A,2)2AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W262300d :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLSUTH,EAST,WEST,UP,DOWN,GET,TAKE,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAST,HEAL,SPEED,POWER,CHARM,FEAR,BLINK,SLEEP,SMILE,READ,WAVE,SAY,READY,SAVE,OPEN///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$"CLOSE":SPDM)(MN$(M),(S$))S$(MN$(M),(S$))S$)MD%(M,5)ROOMĂ:IFO1:`@ // ARTIF. SEARCHJFO0:A1NA:(AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$)(AD%(A,4)ROOMAD%(A,4)1)Ă:TFO1:l100v 30 NORTH,SOAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,7)0:MD%(0,9)NZNF1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,20)3jNC:C$(NC):C1NC:C$(C):tS14:S2%(S)SA%(S)::V%(96):ROOM13700:3600:100 // MONSTER SEARCH>FO0:M1NM:(S$MN$(NMW27):AD%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W25i8WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:MD%(0,8)AHSH:EAAA5SH:EAEA:l`NANZMD%(0,10)(EAAE)(EA(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)::W250NF1080W3W26NF5:WN$(W2)"NONE"NANA1:MD%(NMW2NF5,9)NA:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)(GOOD":" SHAPE.":)6" IS HURTING.":?6" IS IN PAIN.":`6" IS VERY BADLY INJURED.":6" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":6MN$(DF);" IS DEAD!"::AMD%(DF,20):FD%(A)FD%(A)MD%(DF,1)MD%(DF,19)D2-7MD%(DF,22)2:MD%(DF,23)3D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::5MD%(DF,19)MD%(DF,19)D2:MD%(DF,19)MD%(DF,1)77005AMD%(DF,20):FD%(A)FD%(A)D25:MN$(DF);:(MD%(DF,19)5MD%(DF,1)1)7655,7660,7665,7670,76756" IS STILL IN )MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INCa4DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":76354"A CRITICAL HIT!":R2(100(1)1):R251A0:76354R286S1.5S:76354R296D2D:76354R2100D3D:763547700K5D20:D31D:D20: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~FR10075603DMD%(OF,11):SMD%(OF,12):DFOF:A1:76353DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635)4INC((100(1)1R(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::2jFR76ĺ" 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::2oFR957550X3t" WEAPON BROKEN!":AD%(MD%(OF,9),4)(A,5):MD%(OF,4)MD%(OF,4)2::1LHIT0:MD%(OF,9)17400m1NCHMD%(OF,10)MD%(DF,7):OF0ĭCL2CH(CH2)1QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLCH)RL96HIT11VHIT76001`RL97ĺ"A MISS.":B2e"A FUMBLE!":F1NM:MD%(M,5)ROOMMD%(M,20)1MD%(M,20)0E0M:R3ROOM:3600:300m0///MONSTER TRIES TO PICK UP WEAPON0MD%(OF,10)0ı0A1NA: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%READY!"::100-/OF0:DFM:7500:HIT7360[/INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2l/EAAE300/(100(1)1)MD%(0,10)7360/A2:EAAE1A1/AEAEA:MD%(0,10)MD%(0,10)A/MD%(DF,20)1DF0300+0MD%(DF,3)MD%(DF,3)2:M;:MD%(A,9)1ĺ"NOTHING";:62204.BAN$(MD%(A,9));O.L" FOR A":"WEAPON.":f.X///ATTACK COMMANDp.b4900. 1500:FOĺ:"ATTACK WHO?"::100. OF0:DFM:MD%(DF,22)0ĺ:MN$(DF);" IS ALREADY DOWN!":100/zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON RIEND ";MN$(A);". YOU":"HIRED HIM IN THE MAIN HALL TO HELP YOU.":6200o-MD%(A,22)0ĴMD%(A,22)16130,6140-DK$;"READ II.DESC,R";A300:A$:DK$::A$::LK1--MN$(A);" IS ASLEEP.":-MN$(A);" IS DEAD.":-. .8MN$(A);" IS USING "S$MD%(A,5)ROOMİ6100&,A:LK300,X1ND:RD%(X)0RD%(X)99ĺ:"YOU FOUND A SECRET PASSAGE TO THE ";("NORTHSOUTHEAST!WEST!ROOF!FLOOR",(X1)51,5);"!":RD%(X)(RD%(X)),,V%(ROOM)0:300, EXAM MONSTG-ANMNFĺ:"THIS IS YOUR F,9)1+300L+:A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOM^+A:WT0:5060s+p///LOOK COMMAND+LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READ II.DESC,R";A100:A$:DK$::A$::LK1+A:LK300,A1NM:MN$(A)'T CARRYING IT!":100N*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)1MD%(0 S$ IF NOT PREVIOUSLY SPECIFIED.G))S$""ĺ:C$(C);" WHAT";:S$:4900M).b)///DROP COMMANDl)4900)S$"ALL"5100)GM0:1600:FOGM1:1500:FOĺ:"YOU AREN'T CARRYING A ";S$::100*(GMAD%(A,4)1)(GMMD%(M,5)1)ĺ:"YOU ARENS OF PICKING SOMETHING UP(r1( GET MONSTERp(MD%(M,22)0ĺ:MN$(M);" DOESN'T CARE TO BE CARRIED.":100(MD%(M,6)WT10MD%(0,1)ĺ:"YOU CAN'T LIFT ";MN$(M);"!":100(HM1::"GOT 'EM!":WTWTMD%(M,6):MD%(M,5)1:300 )$///ROUTINE TO GET)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300='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)'^::300(h///INSERT HERE SPECIAL EFFECTĠǍٍōōĠҍϠҍ C,4900=C-1500:FOĺ:"YOU CAN'T CHARM ";S$;"!"::100C-:"THE CHARM POURS OUT!":MD%(M,3)MD%(M,3)30(MD%(M,3)0):R3ROOM:MD%(M,20)0:3600:300CP- // FEARCZ-S$""Ą"SCARE WHO?";S$:11610Dd-1500:FOĺ:"YOU CAN'T SCARE ";S$;"!"::1 SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:2000B,RR86ĺ:"YOU HEAR A VERY LOUD SONIC BOOM":" THAT ECHOES THROUGH THE TUNNELS."::300B,RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,19)0:300B,14020C, // CHARM1NM:MD%(M,5)ROOMMD%(M,22)0RAISE1:MN$(M);" COMES ALIVE!":MD%(M,22)0:MD%(M,19)0:MD%(M,23)0A,M:RAISER3ROOM:3600:300A,A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0A,A:RAISEĺ:300GB,RR(100(1)1):RR11ĺ:"THE10(1)1):MD%(0,19)0MD%(0,19)07@+DF0:7650:300F@$, // SPEED@8,SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)@B,SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300@, // POWERcA,RAISE0:M0,11800?\+ // BLASTO?f+4900:1500:FOĺ:"YOU CAN'T BLAST ";S$;"!"::100?z+:"DIRECT HIT!"::S8:D1:DFM:A0:7635::300?+ // HEAL?+S$""İ1500:FOM0?+:MD%(M,19)ĺ"SOME OF ";MN$(M);"'S WOUNDS HEAL.":#@+MD%(0,19)MD%(0,19)(2>")CL3S2%(S)S2%(S)2!>,)>h):"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:>* // SPELLS>+SC15> +10500:SUC100?+S11100,11200,11300,11400,11500,11600,1170:MD%(X,5)1ĺMN$(X) =8':300t=)SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600= )CL4S1RL((1)100):RL30SUC1=)SUCĺ:"NOTHING HAPPENED.":>)RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)%(M,3)(1(S$)100):91204<'///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<$':HM300=.'X1NM1AD%(A,1)100)h;#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,20)0:MD%(M,3)MDS$(S$,2):9060#:i#(S$)09500K:n#A1NA:S$AN$(A)AD%(A,4)19095y: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)M1:MD%(M,20)0:MD%(M,3)MD%(M,3)(E COMMAND692#4900:X1(S$):(S$,X,1)" "Ă:9020U97#S2$(S$,X1):S$(S$,X1)~9<#1500:FOMD%(M,5)ROOMS$S2$:90609F#A21A22::"WHO TO GIVE TO? ";S$:90209P#:"NOBODY HERE BY THAT NAME!"::1009Z#S$(S$,(MN$(M))1):d#(S$,1)" ""::10038TD16:S$C$(D)V$S$:S$"FLEE":300098^|8*!DR$"":8500:DR$"000000"ĺ:"THERE'S NO PLACE TO GO!!":1008/!350084!DK$;"READ II.ROOMS,R";ROOM:D16:DR%(D):DR$DR$(DR%(D))::DK$8>!R2DR%(6(1)1):