+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮLIhy100VAMON ADVENTURE #26 ASSAULT ON THE MOLE MAN BY JOHN NELSON ]REV. 9-30-84vSPEEDUPS 7/8/95 TJZ EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":31000 2216,0:1A$"N"1000WH,y(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"H6yDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"HTyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)(112)2561Gu:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."GuGy /// RESTARTGy216,0 H"y:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";A$::u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";QFDuA$:A$"Y"A$"N"30020eFNuA$:A$"N"100}FXuDK$;"CLOSE":X(0)FbuDK$"BSAVE GAME.PTRS,A$69,L8"FluDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561PGvuDKN"19100,ELJAD%(7,4)1S$"POTION":19100SEVJ:"DID YOU BRING SOMETHING?":100lEJAD%(7,4)1ī19030EJDRDR1:DR0DR0::"THE BOTTLE IS EMPTY.":300EJMD%(0,13)MD%(0,13)5:MD%(0,13)0MD%(0,13)0EJDF0:7650:300E0u // SAVE GAME2FCBCB1:MD%(5,5)ROOM:AD%(24,4)0:3600:300xD@GROOM63AD%(15,4)ROOMCJCJ1:MD%(3,5)ROOM:AD%(23,4)0:3600:300DhGAD%(2,4)1ĺ:"NOTHING HAPPENED.":300DrG:"I DON'T KNOW WHAT YOU MEAN.":300D8J /// DRINKEBJ4900:S$"BOTTLE"S$"POTIO ON THE MAIN ROAD TO THE MAIN HALL.":20007CG18200RCG /// RELEASE PRISONERC"GROOM60AD%(9,4)ROOMCRCR1:MD%(2,5)ROOM:AD%(21,4)0:3600:300C,GROOM59AD%(8,4)ROOMCSCS1:MD%(4,5)ROOM:AD%(22,4)0:3600:300.D6GROOM62AD%(14,4)ROOMBF:"I DON'T KNOW WHAT YOU MEAN.":300>BF /// HAS DEVICExBFROOM25AD%(5,4)ROOMAD%(25,4)ROOM:AD%(5,4)0:100BFROOM55AD%(3,4)ROOMAD%(3,4)0:AD%(4,4)ROOM:100,CFROOM70ROOM71ĺ:"THE ROOM GOES ALL FUZZY AND YOU FIND YOURSELF BACK(A,6))2MD%(0,2):MD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8)[AFF:"READIED."::300rAPF /// PUSH COMMANDAZF4900:S$"BUTTON"AD%(2,4)118100AdFS$"BUTTON"18200AnFS$"GATE"(AD%(5,4)ROOMAD%(3,4)ROOM)ĺ:"THE GATE WON'T BUDGE":100(>S$"SPEED"140002@B:"OKAY, '";S$;"'"::300J@hB///READY A WEAPON.T@rB4900@|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100@BAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100BA?:MN$(M);" GROWLS AT YOU":15100`?:MN$(M);" IGNORES YOU":15100?:MN$(M);" ";V$;"S BACK":15100?:M::300?>///SAY COMMAND?>4900?>S$"BLAST"V$S$:S$"":11000?>S$"HEAL"12000?>S$"POWER"13000@SPEED SPELL$>6S3:11500:SUC300a>6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)>6SPDSPD(25(1)10)::"YOU CAN FEEL THE NEW AGILITY FLOWING":" THROUGH YOU!"::300>:///SMILE COMMAND>::M1NM:MD%(M,5)ROOM15100?:M:"THE SECTION OF TUNNEL YOU ARE IN ":" COLLAPSES AND YOU DIE.":DIE1:2000=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///4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,3)<2M:RAISER3ROOM:3600:300<2A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0<2A:RAISEĺ:300N=3RR(100(1)1):RR11OME OF YOUR WOUNDS SEEM TO CLEAR UP.":e;.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0y;/DF0:7650:300;2///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS;2S4:11500:SUC300j<2RAISE0:M1NM:M2NZNMM:AD%(M2,S2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2:: -S2%(S)S2%(S)2@:-:P-:"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)ĺ"S"YOU CAN'T BLAST ";S$;"!"::100:9,S1:11500:SUC300o9,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3009,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL100116009,SUCĺ:"NOTHING HAPPENED.":&:-RL(100(1)1):RL:"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$::A008$':3008*///BLAST SPELL8+4900!9,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::007J$;7T$MD%(M,13)MD%(M,13)5:MD%(M,13)0MD%(M,13)0F7^$:3007%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::3007&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):91207'///INVENTORY COMMAND8'3)MD%(M,3)(1AD%(A,1)100)u6#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# /// SPEC EFFECTS OF GIVE7#A7ĺ:MN$(M);" TAKES A DRINK AND GIVES":"IT BACK TO YOU.":DRDR1(DR0):93$,2):90605i#(S$)09500Q5n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)190955x#:A22A23::"WHAT TO GIVE? ";S$:90655#:"YOU AREN'T CARRYING A ";S$;"!"::1005#AMD%(0,9)MD%(0,9)15#92006#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,ES HAVE HIT ";MN$(DF);"!!":765054(#///GIVE COMMAND>42#A21u4<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM90504F#:A21A22::"WHO TO GIVE TO? ";S$:90204P#:"NOBODY HERE BY THAT NAME!"::1004Z#S$(S$,(MN$(M))1) 5d#(S$,1)" "S$(S16:DR%(D):DR$DR$(DR%(D))::DK$I3>!ROOM25AD%(5,4)ROOMDR%(2)0m3H!ROOM55AD%(3,4)ROOMDR%(4)03z!R2DR%(6(1)1):R2185703!3! // FIGHTING ARMY3!DMDMD2:D2;" SLAVES FALL!!":MD%(DF,1)DM;" SLAVES REMAIN!!":: 4`"D2;" SLAV;2(DF17AD%(2,4)ROOM::"SOMETHING FALLS TO THE FLOOR."C2:X2@///FLEE COMMAND2JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::1002*!DR$"":8500:DR$"000000"ĺ:"THERE'S NO PLACE TO GO!!":1002/!3500%34!DK$;"READ EAMON.ROOMS,R";ROOM:DDLY.":1MN$(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%(DF,9)1:MD%(DF,4)MD%(DF,4)21DF0DIE1:2000F2986000OF298800_0:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,76750" IS STILL IN GOOD":" SHAPE.":0" IS HURTING.":0" IS IN PAIN.":0" IS VERY BADLY INJURED.":1" IS AT DEATH'S DOOR,":" KNOCKING LOU:7635/R296D2D:76355/R2100D3D:7635?/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)7700/AMD%(DF,14):FD%(A)FD%(A)D2 0DOF: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.DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":7635."A CRITICAL HIT!":R2(100(1)1):R251A0:7635/R286S1.5SMD%(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%(OF,11):SMD%(OF,12):DF10)MD%(DF,7))RL96HIT1(,VHIT7600@,`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,9),5):MD%(OF,9)1:A,4)ROĂ: +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:+LHIT0:MD%(OF,9)17400,QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,A2:EAAE1A14*AEAEA:MD%(0,10)MD%(0,10)AO*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%(OF,10)0ı +A1NA:AD%(100D)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%(0,9),6):WA%(W2)WA%(W2)2)EAAE300)(100(1)1)MD%(0,10)7360*OOM59AD%(8,4)ROOM/(ROOM60AD%(9,4)ROOMK(ROOM62AD%(14,4)ROOMg(ROOM63AD%(15,4)ROOM(ROOM21AD%(13,4)0AD%(13,4)ROOM(V%(ROOM)0:300(X///ATTACK COMMAND(b4900)pSL(S$):M1NM:MD%(M,5)ROOMĂ::"ATTACK WHO?":: THAT SAYS 'MAGNETIC DEVICE ACTIVATOR'":LK1'A7S$AN$(A)ĺ:"THE BOTTLE'S LABEL READS:":"DR. SMTHE'S MAGIC ELIXER":LK1'A:LK300'A1NM:MD%(A,5)ROĭMN$(A)S$ĺDK$;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1'A:LK300(RROOM&A:WT0:5060,&p///LOOK COMMANDZ&LK0:A1NZ:AN$(A)S$Ă:LK16040,300&AD%(A,4)ROOMAD%(A,4)1ĺDK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1/'A2AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺ:"THERE IS A LABEL ON THE DEVICEOPPED.":%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)1ĺAN$(A);" DROPPED.":AD%(A,4)OP COMMAND$S$"ALL"5100$(S$"ON "AN$(13))V$"PUT"PAMD%(0,8):MD%(0,8)8:EA0::"YOU'VE DONNED THE ARMOUR":AD%(13,4)1$A1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING A ";S$::100 %WTWTAD%(A,3):AD%(A,4)ROOM:AN$(A);" DRA9A14A15ĺ:"THE BUTTON WAS BOOBY TRAPPED!!"::"A THOUSAND VOLTS OF ELECTRICITY RUNS":"THROUGH YOUR BODY AND YOU DIE."::DIE1:2000##$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.#)S$""ĺ:C$(C);" WHAT";:S$:4900#. $///DRD%(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 EFFECTS OF PICKING SOMETHING UP#rA8έAD%(A,4)ROĂ::"I SEE NO ";S$;" HERE!"::100|!S$(AN$(A),SL)S$(AN$(A),SL)Ă::"I SEE NO ";S$;" HERE!"::100!"4200:WTAD%(A,3)10MD%(0,1)ĺ:"IT IS TOO HEAVY FOR YOU."::100",:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MFR100FRFR((CH10)2)a 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)0): ///GET COMMAND 4900 S$"ALL"41601!SL(S$):A1NA:0 100.///CHECK REACTIONS ON MONSTERSeTD%(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)ROOM:3670.MD%(M,5)ROOM39008MD%(M,14)3670 BFRMD%(M,3):FR)(AD%(5,4)ROOMD2)ĺ:"THE IRON GATE BLOCKS THE WAY!":100L R203500b ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000 R23490 :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 R3ROOM:ROOMR2:360(0):REC:DK$;"CLOSE".T DK$;"RUN MAIN HALL"C ///MOVE COMMAND 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$= (AD%(3,4)ROOMD4 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 THE ADVENTURER":MN$LDTP::"(HIT ANY KEY TO CONTINUE) ";:A$:8 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":2900` DK$;"OPENDELIVER 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)0AD%(A,1)AD%(A,1)CH10$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":-8 GOLDGO (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)w W::5:"AS YOU IN 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;") "6ESS ANY KEY TO CONTINUE";:A$:/DK$"CLOSE"LSPDMD%(0,2)MD%(0,2)2ZDIE2500W14: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 MA8:AD%(13,4)0l100!v 36 NORTH,N,SOUTH,S,EAST,E,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 PUSH,DRINK///DONE WITH GAME:"PR: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)3jNC:C$(NC):C1NC:C$(C):tS14:S2%(Q)SA%(S)::V%(96):ROOM1~DRAD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W24N8WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA5#VA2MD%(0,8)MD%(0,8)A2:EAEAA210%(A)::DK$;"CLOSE"6PRINT DK$;"DELETE FRESH MEAT"$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):%(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,ACNW15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A),WSTS,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):A2A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R";A:MN$(A):A2112:MDD%(M2,5)ROOMĭMD%(M2,14)1DFM2:7500:M2200:M2:490?M2dNBTL(FD%(1)TD%(1)):NBTLMNMjpy100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZDK$;"OPEN EAMON.ARTIFACM2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490@YMD%(M,14)2490U^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:490OFM7M21NM:M///COMMANDS RETURN TO HERE)6NBTL500a@M1NM:MD%(M,5)ROOMĂ:NBTL(FD%(1)TD%(1)):500JM2MD%(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%(::::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,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,30000 'C3418000,19000,220% A$""A$CZ$:(37):17:A$M CZ$A$:A2(A$):(A$,A,1)" "Ăk 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);20(C$(C)));A,4)ROĂ:1900 AD%(A,9)ĺ"YOU SEE ";AN$(A)x 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):U ARE ":" ";A$:X V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1y 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%(000= d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDC 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$:"YOz #      ήӠ! ήà"Π͠CΠŠ ԠΠŠŠΠԠźήŠήӠή͠Ӡ ήӠ     ԠΠŠŠ΍ WERE CAUGHT BY" "SURPRISE AND HAD NO CHANCE TO FIGHT BACK":"YOU LOST CONCIOUSNESS WHEN YOU GOT BELOW":"GROUND LEVEL. (PROBABLY NOT ENOUGH AIR!) 8000 :D$"RUN MAIN PGM" @::"PRESS ANY KEY TO CONTINUE";:A$: J::: "WHEN YOU GOT TO THE FOREST YOU FOUND":"SOME TRACKS. YOU STARTED FOLLOWING THEM":"AND SOON FOUND YOURSELF LOST. JUST AS" "YOU WERE ABOUT TO GIVE UP HOPE, YOU FELT":"A HAND GRAB YOU AROUND THE ANKLE AND":"PULL YOU INTO A PIT. YOU ABOUT STRANGE RUMBLINGS IN":"THE MAREWOOD FOREST, A FEW MILES OUTSIDE" n"OF TOWN. BEING THE INQUISITIVE SORT":"AND FEELING SOMEWHAT ADVENTUROUS AFTER":"YOUR LAST EXCURSION, YOU DECIDE TO GO":"TO THE FOREST TO INVESTIGATE.": x8000 ADVENTURE NAME1 BY JOHN NELSON7> L D$(4):D$"OPEN FRESH MEAT":D$"READ FRESH MEAT":REC:NAME$:D$"CLOSE"ZK d"WHEN YOU WERE TALKING TO SOME PEOPLE IN":"THE MAIN HALL, YOU HEARD SOMEONE SAY ":"SOMETHING  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.": < NUM263 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$"ASSAULT ON THE MOLE MAN":NUM26: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$)   ΠΠԯԠ̮ԠԧήΠȯȠ̮Π΍ΠȯȠ̮ΠȯȠ̮ΠȠҮΠΠԯԠ̮ΠΠԯԠ̮Π̠ȠҮΠ̠ԠҮΠȯȠ̮ԠĠΠŠ̮ӯשΠŠήΠȯȠ̮ԠҠ٠ήԠĠΠŠ̮ΠȯȠ̮Π̠ԠҮΠԠҮΠ̠ҮΠ̠ԠҮΠ̠ԠҮΠΠԯԠ̮ΠȯȠ̮ԠԧήίӯשΠΠԯԠ̮Π̠ҮԠҠ٠ήΠȠҮԠĠΠŠ̮ίשΠŠȠҮΠҧӠήΠȯȠ̮ԠҠ٠ήΠΠԯԠ̮ԠĠΠŠ̮ӯשΠ̠ŠͮΠ̠ԠҮΠ̠ԠҮΠȠҮΠȯȠ̮ԠԧΠίӯũΠΠԯԠ̮ΠΠԯԠ̮ԠŠԠĠƠ̮Π̠ȠҮΠΠԠҮΠŮΠΠԯԠ̮ԠĠΠŠ̮ԠԧΠίӯũΠΠԯԠ̮Π̠ŮΠΠԯԠ̮ΠŮԠŠ͠Ơ٠РԮΠȯȠ̮ԠԧΠίӯũ      ōōҍōҍĠҍčԍԠҍˠč̠čӠԍӍ̠č٠ҍԍҍ٠ҍō΍ӍٍŠ΍     ΠΠԯԠ̮ԠԧήίӯשΠŠŠҮΠŠŠҮԠĠΠŠ̮ůөԠĠΠŠ̮ůΩΠΠԯԠ̮ԠԧήίůשΠŠήͮΠȯȠ̮Π΍ΠΠԠҮҮӍӍĠҍĠӍčĠ΍΍čàҍ٠ōč΍΍ĠōōΠΠōΠōŠōΠŢƍ          ǍōӠٍōōōōĠĠҍĠҍĠԍĠҍĠˠčĠčĠӠԍĠԠҍĠ̠čĠ̠čĠԍĠӍĠ٠ҍĠ٠ҍĠ΍ĠҍĠٍĠōĠŠ΍ĠӍԠԠԠԠ٠ōԠ̠ō٠ōĠ΍ΠΠōĠ̍٠ΠōՠŠΠΠԯԠ̮ŠĠΠŠ̠ϠŠԮՠŠΠŠȠŠ٠ԠϠŠȮŠŠŠǠӠΠŠ̠ŮՠŠΠŮŠŠŠĠӠĠŠӠƠŠŠ٠ԠӠϠŠȮՠŠΠΠԯԠ̮ŠŠӠϠŠȠĠȮՠŠΠ̠ŮŠ٠ԠӠϠŠȮՠŠΠΠԯԠ̮ŠҠϠŠȮՠŠԠȯȯԠԧҭήԠӠϠˠϠŠǠƠԠ٠ŠΠҠήՠŠΠȯȠ̮ՠŠԠŠ͠ƠŠԠՠŠҠήՠԠŠŠРƠŠԬϠԠӠ٠ˠŮŠӠ̠ϠŠȮ                            ĠٍĠǍĠōĠōĠōĠōĠōĠōĠōĠōՠŠΠȯȠ̮ŠӠҠϠŠԮՠŠΠ̠ҠԠӠנǠĠҠΠ٠ҠĠӮՠŠΠ̠ԠҮŠԠӠϠŠԮՠŠΠ̠ҠȠΠԠϠŠԮŠҠӠԠŠΠŮՠŠΠŠͮŠŠ٠ӠĠӠĠҠӠƠ٠ŠŠŮŠ٠ԠӠϠŠԮՠŠԠĠΠŠ̮Š̠ӠԠĠȠ͠ŮՠŠΠΠԯԠ̮ŠӠҠϠŠȮՠŠΠȯȠ̮ŠӠҠ̠ǠԮՠŠΠȯȠ̮ŠӠҠϠŠԮՠŠΠȠҮՠŠΠΠԠҮŠԠӠϠŠԮՠŠΠ̠ȠҮŠ٠ԠՠΠŠӠϠŠȮՠŠԠŠԠĠƠ̮ŠȬȠĠԠŠӮՠŠΠΠԯԠ̠ϠŠԠՠΠŠŠӮՠŠԠԧΠΠŠ̮ՠ٠ϠȬȠҠԮՠŠԠĠΠŠ̮Š̠Ӡ͠ŠԠϠŠȮՠŠΠȯȠ̮ŠӠҠϠŠԠĠҠϠŠԮՠŠԠĠΠŠ̮Š̠ӠԠĠȠ͠ŮՠŠΠΠԯԠ̮ϠŠԠՠŠҠ٠ήՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠΠ̠ҠȠҠϠŠȮՠŠΠ̠ҠȠҠϠŠȮՠŠΠΠԯԠ̠ȠҠϠȠŠȠĠȮՠŠԠԧήŠȠ̠ӠԠĠŮՠŠΠȯȠ̮ŠӠҠϠŠԮՠŠΠŠȠҮŠǠӠ٠ȠŮŠ٠ӠϠŠȮՠŠԠĠΠŠ̮Š̠Ӡ͠ԠϠȮՠŠΠΠҮŠ٠ԠӠϠŠȮՠŠԠҠ٠ήՠԠϠȬҠŠŠӠΠŭΠƠԠ̮ՠŠΠΠԯԠ̮ϠŠԠՠŠҠ٠ήՠŠԠҠ٠ήŠӠϠΠ̠ӮՠŠԠԧήŠӠϠŠȠĠȠˠҠӠƠȠҮՠŠΠΠԯԠ̮ϠŠԠՠŠԧήՠŠΠΠԯԠ̮ϠŠԠՠŠҭ٠ήՠŠΠȠҮՠŠΠȯȠ̮ՠŠΠȯȠ̮ՠŠΠȯȠ̮ŠŠӠȠԠĠԮϠŠȠŠ̠ӠĠĠՠΠϠҠϠԠٮՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠΠ̠ȠҮŠӠΠԠϠŠȮՠŠΠΠԯԠ̮ŠҠϠŠԠĠҠϠȮՠŠԠҭ٠ήϠŠԠՠΠŠŠӮϠŠԠΠ٠ӮՠŠΠȯȠ̮ՠŠΠҠŠήŠŠӠĠӠŠͮŠ٠ԠӠϠŠԮՠŠԠĠΠŠ̮ŠӠҠϠŠԠĠŠ̠ӠȮՠŠΠԠҮŠ٠ӠϠŠԮՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠŠŠȠŠΠΠԮՠŠǠƠԠӠǠ٠ŠŠήՠŠΠŠ٠ȠǠҮŠŠΠĠˠĠҠ٠ӠӮŠ٠ԠӠϠŠȮՠŠΠŠ٠ȠǠҮŠŠΠĠˠĠҠ٠ӠӮŠ٠ԠӠϠŠȮՠŠԠԧήՠ٠ϠԬȠҠȮϠŠȠȠŠŠӮՠŠΠΠԯԠ̮ŠԧΠϠȠŠԠĠԮՠŠԠԧήӠϠȬԠĠԮՠŠΠΠԯԠ̮ϠŠԠŠӠԧήՠŠԠĠΠŠ̮Š̠Ӡ͠ŠԠϠŠȮՠŠԠĠΠŠ̮Š̠Ӡ͠ȠϠԮՠŠΠΠԠҮŠԠӠϠŠԮŠҠӠԠŠΠŮՠŠΠήŠŠŠӠĠŠӠƠŠŠ٠ԠӠϠŠȮՠŠΠȯȠ̮ŠŠӠϠŠԠĠȮՠŠΠŠήŠŠĠӠĠҠ̠̠ӠΠŮŠŮŠ٠ԠӠϠŠԮՠŠΠήŠŠŠӠĠŠӠƠŠŠ٠ԠӠϠŠȮՠŠΠȯȠ̮ϠŠԠĠȠŠŠӮՠŠҠȠӠΠŠŮՠŠĠȠŠҠĠΠԮՠŠĠĮՠŠΠĠϠŠ̮ՠŠΠĠϠŠ̮ՠŠǠԠƠҠԠӠΠΠŠ͠ƠخԠӠàҡՠŠǠĠȠŠŠħĠΠŠԮՠŠԠˠĠȠŠŠħĠΠԮخԠӠàҡՠŠΠŠƠҮԠŠĠ٠ŮՠŠΠĠΠŠ̮ՠŠΠĠϠŠ̮ՠŠΠĠΠŠĠȠŠĠƠĮՠŠŠǠŠԠΠŠנĮՠŠ٠٠ΠŠǠŠ̠ϠŠȮŠӠŠˠΠŠŠԠӠϠŮŠΠŠӠΠĠՠΠנϠԮŠԮҠӠ٠ŠˠΠŠŠԠӠϠŮՠŠ٠٠ΠŠǠŠ̠ϠŠԮŠӠ٠ŠˠΠŠŠԠӠϠŮՠŠԠՠŠԠՠŠԠՠŠԠՠŠԠՠŠ̠٠ŠƠԠŮՠŠ̠٠ŠƠԮՠŠŠŠԠӠϠŠ٠̠ŠƠӮŠΠŠӠΠĠՠΠנϠȮՠŠŠĠΠĠ٠٠ŠӮŠӠӠŠӠΠĠŠĠŠԠƠՠĠŠͮՠŠĠĠǠΠĠΠΠҭԠӠŮՠŠ̠Ġ̠Ġ٠٠Ӯ z                  ՠŠΧӠŠǠԠƠӠԠΠԠ̠̮ŠӠŠΠŠŠƠŠ̠ԠӠӧՠŠŠԠƠӮՠŠŠŠƠĠӮՠŠŠĠ٠ƠčՠŠŠĠ٠ƠˠčՠŠŠĠ٠ƠԠҍՠŠŠĠ٠ƠӠԍՠŠŠĠ٠Ơ̠čՠŠŠĠ٠Ơ̠čՠŠŠĠ٠ƠӍՠŠŠĠ٠ƠԍՠŠŠĠ٠Ơ٠ҍՠŠŠĠ٠Ơ٠ҍՠŠŠĠ٠ƠҍՠŠŠĠ٠Ơ΍ՠŠŠĠ٠ƠōՠŠŠĠ٠ƠٍՠŠŠĠ٠ƠӍ