+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮLAMON.ROOM NAMES,L64"Lhy100VENGE OF THE MOLE MAN BY JOHN NELSON [REV. 7-4-85tSPEEDUPS 7/8/95 TJZ EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":31000 2216,0:100ME?":" Y OR N:";A$:A$"N"1000lK,y(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"K6yDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"LTyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN E(106)2561eJvuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561Ju:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."JuJy /// RESTARTJy216,0!K"y:"DO YOU WANT TO RESTART THIS GAI0u // SAVE GAMEGI:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";fIDuA$:A$"Y"A$"N"30020zINuA$:A$"N"100IXuDK$;"CLOSE":X(0)IbuDK$"BSAVE GAME.PTRS,A$69,L8" JluDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)R8HqRAD%(4,4)1ĺ:"YOU DON'T HAVE ANY ";S$;"!":100LHvR(S$)6ī21200HRS$(S$,6):TMR((S$))::"THE TIMER IS SET TO ";TMRHR300HR"SET TIMER TO WHAT (1-90):";S$:(S$)((S$))(S$)1(S$)9021200HRS$"TIMER "S$:21120HU300AD%(24,4)1ī20090RGN:"OKAY.":MD%(0,13)MD%(0,13)5:MD%(0,13)0MD%(0,13)0GNDF0:7650:POPO1:POĺ:"THE BOTTLE IS NOW EMPTY."GN300GR /// SETGR4900:(S$,5)"TIMER"21100GbR:"I DON'T KNOW WHAT YOU MEAN.":300HlR // SET TIME2FK:"YOU DO NOT HAVE THE KEY TO THE DOOR.":300;FM300LF N /// DRINKuF*N4900:S$"POTION"S$"BOTTLE"20100F4NS$"BLOOD"ĺ:"WHAT'RE YOU, - A VAMPIRE??!":300FzN:"I DON'T KNOW WHAT THE %@&# YOU'RE ":"TALKING ABOUT, ";MN$(0);"!":300GNHE #$@&* YOU'RE ":"TALKING ABOUT, ";MN$(0);"!!":300OEJAD%(2,4)ROOM19090EJAD%(21,4)1AD%(14,4)ROOM:AD%(2,4)0:300EJ:"YOU DO NOT HAVE THE KEY TO THE GATE.":300EKAD%(12,4)ROOM19090E KAD%(3,4)1AD%(13,4)ROOM:AD%(12,4)0:300 RED BUTTON"::" 3. GO DIRECTLY TO ELEVATOR ROOM"::" 4. WAIT FOR ELEVATOR TO ACTIVATE"dDG300DI:"THE ";S$;" IS NOT LEGIBLE.":300D8J /// OPENDBJ4900:S$"GATE"S$"IRON GATE"19100DLJS$"DOOR"ROOM54ī192005EJ:"I DON'T KNOW WHAT T"READIED."::300!CPF /// READOCZF4900:S$"NOTES"S$"LAB NOTES"ī18900uCdFAD%(5,4)1AD%(5,4)ROOMī18100CF:"TIMER INSTRUCTONS":" 1. SET TIMER NN":" (WHERE NN = TIME REQUIRED TO GET":" TO THE ELEVATOR ROOM.)"[DF:" 2. PRESS. BrB4900VB|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100BBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100B///SAY COMMANDfA>4900A>S$"BLAST"V$S$:S$"":11000A>S$"HEAL"12000A>S$"POWER"13000A>S$"SPEED"14000AB:"OKAY, '";S$;"'"::300BhB///READY A WEAPON0,2):MD%(0,2)2MD%(0,2)v@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":15100A:MN$(M2000c?3RR86ĺ:"YOU HEAR A 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?6S3:11500:SUC300@6SPDMD%(0,10)MD%(0,10)2MD%(ROOM:MD%(M,13)0:WTWTAD%(M2,3)B>2M:RAISER3ROOM:3600:300>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:1):MD%(0,13)0MD%(0,13)00=/DF0:7650:300v=2///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS=2S4:11500:SUC300!>2RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:<.///HEAL SPELL<.S2:11500:SUC300<.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":=.MD%(0,13)MD%(0,13)(10(1) HIT!"::S6:D1:DFM:A0:7635::300z;,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600;,SUCĺ:"NOTHING HAPPENED.":;-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2; -S2%(S)S2%(S)2;-v!(ROOM54AD%(13,4)ROOM)(ROOM26AD%(14,4)ROOM)RD%(2)05H!ROOM71S2DR%(3)06R!R2DR%(6(1)1):R2185F,9)1:MD%(DF,4)MD%(DF,4)284DF0DIE1:255:2000t4(DF15AD%(4,4)ROOM::"SOMETHING DROPS TO THE FLOOR."42DF29AD%(21,4)ROOM::"SOMETHING DROPS TO THE FLOOR."4<DF10AD%(3,4)ROOM::"THE KEY FALLS TO THE FLOOR."4:5@///FLEERED.":;3" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":4MN$(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%(DF,9)0AD%(MD%(DF,9),4)ROOM:MD%(DF,10)MD%(DF,10)AD%(MD%(DF,9),5):MD%(D:M2DF4DHDHD2:D2" SLAVES FALL!!":MD%(4,1)DH" SLAVES REMAINING!!":2:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,76752" IS STILL IN GOOD":" SHAPE.":2" IS HURTING.":2" IS IN PAIN.":3" IS VERY BADLY INJU13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)7700O1AMD%(DF,14):FD%(A)FD%(A)D21OF3ĺ:D2" VILLAGERS HAVE HIT ";MN$(DF);"!!"1OF4ĺ:D2" SLAVES HAVE HIT ";MN$(DF);"!!"2DF3DVDVD2::D2" VILLAGERS FALL!!":MD%(3,1)DV" VILLAGERS REMAIN!!"IT!":7635C0"A CRITICAL HIT!":R2(100(1)1):R251A0:7635\0R286S1.5S:7635s0R296D2D:76350R2100D3D:7635077000D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::-1MD%(DF,$/y" BROKEN WEAPON HURTS USER!"5/~FR1007560c/DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635/DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:7635/INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC 0DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HN 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::.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ĺ:7400p-QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1~-VHIT7600-`RL97ĺ"A MISS.":-e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::o.jFR76ĺ" WEAPO300+,///MONSTER TRIES TO PICK UP WEAPON?,MD%(OF,10)0ı],A1NA:AD%(A,4)ROĂ:q,AD%(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:-L190:HIT0:MD%(OF,9)10,9),6):WA%(W2)WA%(W2)2*+EAAE300M+(100(1)1)MD%(0,10)7360c+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)0,M:R3ROOM:3600:ACK COMMAND*b4900T*pSL(S$):M1NM:MD%(M,5)ROOMĂ::"ATTACK WHO?"::100*uS$(MN$(M),SL)S$(MN$(M),SL)Ă::"ATTACK WHO?"::100*zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100*OF0:DFM:7500:HIT7360+INCW2AD%(MD%(:A$::LK1")d /// SEARCH ROOM)nRO54ĭAD%(12,4)0AD%(13,4)ROOMĺ:"AS YOU LOOK AROUND, YOU FIND A DOOR ":"THAT WAS HIDDEN IN THE SHADOWS.":AD%(12,4)ROOM:S11:)xROOM71ĺ:"YOU FOUND A SECRET PASSAGE TO THE EAST!":S21:)" *X///ATTIMER":LK1:g(LA17ĺ:"THE VILLAGE SEEMS TO BE SITTING ON A ":"GIGANTIC ELAVATOR PLATFORM.":LK1:(VA24PO0ĺ:"THERE IS ABOUT ";PO;" SWALLOWS LEFT.":LK1:(`A24ĺ:"THE BOTTLE IS EMPTY.":LK1: )DK$;"READ EAMON.DESC,R";A100:A$:DK$:::LK1 ''LK300#'65007'V%(ROOM)0:300N' /// LOOK FOR ART'SL(S$):A1NZ:AD%(A,4)ROAD%(A,4)1Ă:'(AN$(A),SL)S$(AN$(A),SL)S$İ6200':'8 /// EXAMINE ART. (BA4ĺ:"THE DEVICE SAYS:":" REMOTE CONTROL T1MD%(0,9)1&300S&A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOMe&A:WT0:5060z&p///LOOK COMMAND&zLK0&S$""İ6100&LK300&A1NM:MD%(A,5)ROĂ:6055'MN$(A)S$ĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$OU AREN'T CARRYING A ";S$::100W%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):300A$h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UPG$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Ă::"YOR YOU."::100Z#,:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300e#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)$^:0):"///GET COMMAND""49005"S$"ALL"4160|"SL(S$):A1NA:AD%(A,4)ROĂ::"I SEE NO ";S$;" HERE!"::100"(AN$(A),SL)S$(AN$(A),SL)S$Ă::"I SEE NO ";S$;" HERE!"::100#"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FROOM:3670#!.MD%(M,5)ROOM39007!8MD%(M,14)3670f!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:NBTL(TD%(1)902 :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100L R3ROOM:ROOMR2:3600U 100y ///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))MD%(M,5)WUD",D,1)Ă8 (AD%(12,4)ROOMAD%(2,4)ROOM)D23490R ROOM71S2D33490 DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$ R203500 ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000 R234 ADVENTURER":MN$(0):REC:DK$;"CLOSE"?T DK$;"RUN MAIN HALL"T ///MOVE COMMAND NBTLS$"FLEE"ĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 S$"FLEE"NBTLĺ:"THERE'S NOTHING TO FLEE FROM!":100  D16:(V$,1)("NSE00q DK$;"OPEN CHARACTERS,L150":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 THEK.":GOLDGOLD1500> :"(HIT ANY KEY TO CONTINUE) ";:A$:I 2500 :5:"(INSERT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0 A$:A$"C"2520 A$ DIEĺDK$;"OPEN THE ADVENTURER":DK$;"DELETE THE ADVENTURER":29:"PAYS YOU ";2 TP0:A1NA:AD%(A,4)12350[ AD%(A,2)0AD%(A,1)AD%(A,1)CH10n$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":8 GOLDGOLDTP:GOLD0GOLD0B AD%(39,4)1ĺ:"HOKAS PAYS YOU 1500 GOLD PIECES FOR THE":"BODY OF THE BASILIS%(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 FOR SUCH":"THINGS, HE EXAMINES YOUR GOODS AND"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)2080*AD%(WP%(W5),4)1:WN$(W5)WN$(W21):WP%(W5)WP(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0oA:W2623003 :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WEAPONS":"TO KEEP THEM TTACK,FLEE,ESCAPE,GIVE,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY,SAVElREAD,OPEN,DRINK,SET///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$"CLOSE":SPDMD%(0,2)MD%(0,2)2DIE2500]W14:WN$7)0:MD%(0,9)NZ1:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3ajNC:C$(NC):C1NC:C$(C):tS14:S2%(S)SA%(S)::V%(96):ROOM1~PO((1)124)l100v37SNORTH,N,SOUTH,S,EAST,E,WEST,W,UP,U,DOWN,D,GET,TAKE,DROP,PUT,LOOK,EXAMINE,AWN$(W2)AN$(A)AN$(A)"#":A00::1090iLA,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@`NANZMD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2):MD%(0,AMES,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:WTWWZ)BW21WZ:A1NAWZ:AN$(A):A14:SA%(A)::A15:WA%(A)::AE,SEX$,GOLD,BANK,ACNW15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE"PRINT DK$;"DELETE FRESH MEAT"%$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM N2)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"8DK$;"OPEN FRESH MEAT":DK$;"READ FRESH MEAT":REC:MN$(0),MD%(0,1),MD%(0,2),CH00 100#///INITIALIZE DATAuDK$;"OPEN EAMON.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,1NM:MD%(M2,5)ROOMĭMD%(M2,14)1DFM2:7500:M2200:M2:490FM2kNBTL(FD%(1)TD%(1)):NBTLMNMqw255TMRTMRTMR1:TMRAD%(17,4)0:ROOM74ĺ:"THE VILLAGE HAS BEEN ELEVATED TO THE ":"SURFACE AND YOU'RE HOME AGAIN!!":202)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490GYMD%(M,14)2490\^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMĭMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:490OFM>M20!,///COMMANDS RETURN TO HERE06NBTL500h@M1NM:MD%(M,5)ROOMĂ:NBTL(FD%(1)TD%(1)):500JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20)2TMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R2:M2MD%(M,14):TD%(M::::210( 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,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,30000'C3318000,19000,20000,210020# A$""A$CZ$:(37):17:A$K CZ$A$:A2(A$):(A$,A,1)" "Ăi 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-- ";:C1NC1:C$(C);20(C$(C)));4)ROĂ:190. AD%(A,9)ĺ"YOU SEE ";AN$(A)v AD%(A,9)ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$:A$:AD%(A,9)1:| AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE." A:V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):2ARE ":" ";A$:V V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1w M1NM:MD%(M,5)ROĂ:170 MD%(M,15)ĺMN$(M);" IS HERE.": MD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)1: A1NZ:AD%(A,0; d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDA 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:A$:DK$:"YOU DJ EAMON ADVENTURE #27 REVENGE OF THE MOLE MAN BY JOHN NELSON [REV. 7-4-85tSPEEDUPS 7/8/95 TJZ EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":31000 2216,0:100                           ՠŠ٠٠ΠԠӠ٠ҮȬӠԧӠŠŠήӠŠӠĠՠՠҠԠŠҠǮƮՠŠԠĠȠǠҭ̠ӠĠӠˠԠͮŠӠȠҠΠԠӠՠŠΠŮӠՠҠŠ͠ԠԠΠԠՠǮՠŠԠΠǠҮŠӠŠӠҠԠĠӠŠϠŠŠŠƠȮŠӠΠΠΧӠ͠Ġ٠̠ΠӠŮŠӠŠΠ٠Ǡ͠ӠԮՠŠĠȠŠӠƠԮŠӠӠŮz #     ήӠήà Π͠FΠŠ ŠƠŠŠΠԠźήŠήӠ ή͠ӠήӠ       ŠƠŠŠ΍+ @::"PRESS ANY KEY TO CONTINUE";:A$:5 J::"FIND THE SAME QUICKSAND THAT YOU FOUND":"ONCE BEFORE (BY ACCIDENT, ACTUALLY.)"] 8000 "WELL, YOU'VE SUCCEEDED IN LOCATING THE":"SAME SPOT AS BEFORE AND YOU WERE DRAGGED":"INTO THE BOG.":: :"GOOD LUCK, ";NAME$;".":D$"RUN MAIN PGM" IN THE GROUND. " :"YOU SUSPECT ONLY THE VILLAINOUS MOLE MAN":"COULD HAVE PERPETRATED SUCH A THING, BUT":"YOU DO NOT KNOW HOW TO REACH THE VILLAIN" "SO YOU GO ABOUT IT THE ONLY WAY YOU CAN."S ::"YOU SET OFF FOR THE MAREWOOD FOREST TO":LE. AN":"ENTIRE VILLAGE HAS DISAPPEARED!! NO, NOT" "JUST THE PEOPLE IN THE VILLAGE, BUT THE":"VILLAGE ITSELF DISAPPEARED!!":: 8000 "THE VILLAGE OF SLOBOUROUGH IS COMPLETELY":"GONE. WHERE THE VILLAGE ONCE STOOD THERE":"IS A GAPING HOLEL1);ADV$;L2)::. d /// PRINT DESCRIPTION n"AS YOU WERE TALKING TO SOME ADVENTURERS":"AT THE MAIN HALL, YOU LEARNED ABOUT A":"MYSTERIOUS DISAPPEARANCE."::3 x"NOT YOUR TYPICAL EVERYDAY DISAPPEARANCE,":"BUT A DISAPPEARANCE ON A GRAND SCA7 ADVENTURE NAME1 BY JOHN NELSON7> L D$(4):D$"OPEN FRESH MEAT":D$"READ FRESH MEAT":REC:NAME$:D$"CLOSE":D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":ADV$:D$"CLOSE"::L1((40(ADV$))2):L240(ADV$)L1 ( DK$;"SAVE A";(8);"-> EAMON ADVENTURE #";NUM;" <-"i DK$;"RENAME EXEC,SAVE ALTERED BASE PROGRAM HERE"o AA$;" WAS":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": < NUM273 DK$(4):DK$;"DELETE A";(8);"-> EAMON ADVENTURE #";NUM;" <-":2)));"**";38);"*****************************************": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------"" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":q;A$"REVENGE OF THE MOLE MAN":NUM27:A2$"JOHN NELSON"C9wD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM" 216,0 ::< "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)   ԠĠΠŠ̮ΠȯȠ̮Π̠ԠҮΠԠҮΠ̠ҮΠ̠ԠҮΠ̠ԠҮΠΠԯԠ̮ΠȯȠ̮ԠԧήίӯשΠΠԯԠ̮Π̠ҮΠΠԯԠ̮ήΠȠҮԠĠΠŠ̮ίשΠŠȠҮΠҧӠήΠȯȠ̮ԠҠ٠ήΠΠԯԠ̮ԠĠΠŠ̮ӯשΠ̠ŠͮΠ̠ԠҮΠ̠ԠҮΠȠҮΠȯȠ̮ԠԧΠίӯũΠΠԯԠ̮ΠΠԯԠ̮ԠŠԠĠƠ̮Π̠ȠҮΠΠԠҮΠŮΠΠԯԠ̮ԠĠΠŠ̮ԠԧΠίӯũΠΠԯԠ̮Π̠ŮΠΠԯԠ̮ΠŮԠŠ͠Ơ٠РԮΠȯȠ̮ԠԧΠίӯũ       ̠čӠōōōōōӠōˠōٍӍŠ΍     Π̠ԠҮΠԠŮΠԠٮΠŠҮΠ̠ԠҮΠΠԯԠ̮ԠԧήίӯשΠŠŠҮΠŠŠҮԠĠΠŠ̮ůөΠȠҮ̮ůΩΠԠҮ̮ԠԧήίůשΠŠήΠȯȠ̮ΠήΠΠȠҮΠΠԯԠ̮ԠԧήΠȯȠ̮ΠήΠȯȠ̮ΠȯȠ̮ΠȠҮΠΠԯԠ̮ΠΠԯԠ̮Π̠ȠҮΠ̠ԠҮΠȯȠ̮ԠĠΠŠ̮ӯשΠŠήΠȯȠ̮ԠҠ٠ή٠ōŧӠōŠō ӍΠōӠٍàƍ          ԠčŠ΍ҠԍԠԍԍ΍IJ؍Ԡōı̠čӠō΍̠ččččԍҠȍ̍ˍĠ̍ĠˍĠ̠čӠčĠōĠōĠōĠōĠӠōĠˠōĠٍĠӍԠĠŠ΍ōӍĠӍҍΠٍҍıҍōΠōҍҍΠҍ̧ӠčōŧӠōŧӠōՠŠΠΠԯԠ̮ŠҠϠŠȠĠҠȢՠŠԠȯȯԠԧҭήԠӠϠˠϠŠǠƠԠ٠ŠΠҠήՠŠΠȯȠ̮ՠŠԠŠ͠ƠŠԠՠŠҠήՠԠŠŠРƠŠԬϠԠӠ٠ˠŮŠӠ̠ϠŠȮ                              ĠčĠԍĠҠԍĠԍĠԍĠ΍ӠĠӍĠ؍ĠԠōӠĠӍĠ̠čĠӠōĠ΍Ġ̠čĠčĠčĠĠčĠԍĠҠȍՠŠԠĠΠŠ̮Š̠ӠԠĠȠ͠ŮՠŠΠΠԯԠ̮ŠӠҠϠŠȮՠŠΠȯȠ̮ŠӠҠ̠ǠԮՠŠΠȯȠ̮ŠӠҠϠŠԮՠŠΠȠҮՠŠΠΠԠҮŠԠӠϠŠԮՠŠΠ̠ȠҮŠ٠ԠՠΠŠӠϠŠȮՠŠԠŠԠĠƠ̮ŠȬȠĠԠŠӮՠŠΠΠԯԠ̠ϠŠԠՠΠŠŠӮՠŠԠԧΠΠŠ̮ՠ٠ϠȬȠҠԮՠŠԠĠΠŠ̮Š̠Ӡ͠ŠԠϠŠȮŠӠҠϠŠȮՠŠΠΠԯԠ̮ŠĠΠŠ̠ϠŠԮՠŠΠŠȠŠ٠ԠϠŠȮŠŠŠǠӠΠŠ̠ŮՠŠΠŮŠŠŠĠӠĠŠӠƠŠŠ٠ԠӠϠŠȮՠŠΠΠԯԠ̮ŠŠӠϠŠȠĠȮՠŠΠ̠ŮŠ٠ԠӠϠŠȮՠŠΠ̠ҠȠҠϠŠȮՠŠΠ̠ҠȠҠϠŠȮՠŠΠΠԯԠ̠ȠҠϠŠȮȠĠȮՠŠԠԧήŠȠ̠ӠԠĠŮՠŠΠԠȯȠ̮ŠӠҠϠŠԮՠŠΠŠȠҮŠǠӠ٠ȠŮŠ٠ӠϠŠȮՠŠԠĠΠŠ̮Š̠Ӡ͠ԠϠȮՠŠΠΠҮŠ٠ԠӠϠŠȮՠŠΠΠԯԠ̮ήՠԠϠȬҠŠŠӠΠŭΠƠԠ̮ՠŠΠΠԯԠ̮ϠŠԠՠŠҠ٠ήՠŠԠҠ٠ήŠӠϠΠ̠ӮՠŠΠȯȠ̮ŠӠҠϠŠȠĠҠŠԮՠŠΠ̠ҠԠӠנǠĠҠΠ٠ҠĠӮՠŠΠ̠ԠҮŠԠӠϠŠԮՠŠΠ̠ҠȠΠԠϠŠԮŠҠӠԠŠΠŮՠŠΠŠͮŠŠ٠ӠĠӠĠҠӠƠ٠ŠŠŮŠ٠ԠӠϠŠԮՠŠΠȯȠ̮ՠŠΠȯȠ̮ŠŠӠȠԠĠԮϠŠȠŠ̠ӠĠĠՠΠϠҠϠԠٮՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠΠ̠ȠҮŠӠΠԠϠŠȮՠŠΠΠԯԠ̮ŠҠϠŠԠĠҠϠȮՠŠԠҭ٠ήϠŠԠՠΠŠŠӮϠŠԠӠ٠ӮՠŠΠȯȠ̮ՠŠΠҠŠήŠŠӠĠӠŠͮŠ٠ԠӠϠŠԮՠŠԠĠΠŠ̮ŠӠҠϠŠԠĠŠ̠ӠȮՠŠΠԠҮŠ٠ӠϠŠԮՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠΠȯȠ̮ŠӠҠϠŠԠĠҠϠŠԮՠŠԠĠΠŠ̮Š̠ӠԠĠȠ͠ŮՠŠΠΠԯԠ̮ϠŠԠՠŠҠ٠ήŠԠՠŠԧήՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠΠΠԯԠ̮ŠԧΠϠȠŠԠĠԮՠŠԠԧήӠϠȬԠĠԮՠŠΠԠҮϠŠԠŠӠҮήՠŠΠȠҮŠ٠ԠӠϠŠȮԠϠŠȮՠŠԠĠΠŠ̮Š̠Ӡ͠ȠϠԮϠŠȠӠҮՠŠΠȠҮŠ٠ԠӠϠŠȮՠŠΠŠΠĠ٠̠ӮŠ٠ԠӠϠŠȮԠӠϠŠȮՠŠΠȯȠ̮ŠӠҠϠŠȮȮՠŠΠŠήŠŠĠӠĠҠ̠̠ӠΠŮՠŠΠήŠŠŠӠĠŠӠƠŠŠ٠ԠӠϠŠȮՠŠΠȯȠ̮ϠŠԠĠȠŠŠӮՠŠԠԧήՠ٠ϠȬԠҠȮȠˠҠӠƠȠҮՠŠΠΠԯԠ̮ϠŠԠՠŠĠΠŠ̮ՠŠΠΠԯԠ̮ϠŠԠՠŠҭ٠ήŠӠҠϠŠȮՠŠΠȠҮŠӠŠ٠ȠȠŠӮŠ٠ԠӠϠŠȮՠŠΠȯȠ̮ŠŠӠԠĠԮՠŠŠŠŠӠǮՠŠŠŠŠӠǮՠŠŠ٠ŠŮՠŠŠ ӠƠҠȢՠŠŠŠȠ̠ ΠԠĠӠ͠ŠӠϠĠΠΠԮՠŠ̠ӠٮՠŠ٠ΠŠǠŠŠϠŠҠϠŠȮՠŠŠ̠ƠƠŠԠӠϠҠӠƠԠŠšՠŠΠ̠ԠҮŠԠӠϠŠԮՠŠΠ̠ҠȠΠԠϠŠԮŠҠӠԠŠΠŮՠŠΠŠ͠ȠϠƮŠŠԠĠŠŮԠԠŠ٠נŠŠŠӠΠŠŮՠŠΠԠٮŠŠ٠ŠӠĠ̠ҠŠͮŠ٠ԠӠϠŠԮՠŠΠԠŠǠԠĠԮŠӠҠϠŠԠӠǠŠӮՠŠΠŠ٠ȠǠҮŠŠΠĠˠĠҠ٠ӠӮŠ٠ԠӠϠŠȮՠŠΠŠ٠ȠǠҮŠŠΠĠˠĠҠ٠ӠӮŠ٠ԠӠϠŠȮՠŠԠԧήՠ٠ϠԬȠҠȮϠŠȠȠŠŠӮՠŠŠΠ®ՠŠŠƠĠӮ! z                !!! ! ՠŠŠΠٮՠŠ̠̠ĠĠȠŠŠҧĠΠԮՠŠĠĠĠՠŠȠ٠ҮŠΠؠӠǮՠŠŠŠԠӠΠŠŮԠӠǠΠŠƠӠàͮՠŠ̠Ġ٠̠ŠŠȠŠŠҧĠΠԢՠŠ̠٠̠ŠŠȠŠŠҧĠΠԮŠŠӠΠĠՠ٠נϠȮŠҠӠήՠ٠נϠȮՠŠҠȠ̠ŮՠŠ̠ŠƠŠԮԠӠΠĮՠΠ̠ŠŠӠԠΠŠԠԠӠħԠӠήՠŠĠԠӠǠĠ٠Š̮ՠŠŠŠŠӠǮՠŠŠĠ٠ƠŠˮՠŠŠĠ٠Ơ̮ՠŠĠƠӠŠԠӠŠŮՠŠŠĠ٠Ơ̠ĮՠŠŠĠ٠ƠŮՠŠŠĠ٠ƠŮՠŠŠĠ٠ƠŮՠŠŠĠ٠ƠŠŮՠŠŠĠ٠ƠŠˠŮՠŠŠĠӠƠĠӠӮՠŠŠĠӠƠ٠ԠҡȠӠŠՠŠΧԠĠŠӡՠŠ٧ӠٮٍՠŠŠĠ٠ƠŠŠήՠŠԠՠŠǠƠӮ