+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮL(4);"BLOAD GAME.STR"_M6yDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"MTyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"Mhy100L 50DK$(4):DK$"VERIFY GAME.PTRS":31000 2(112)2561]Lu:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."cLuvLy /// RESTARTLy216,0L"y:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";A$:A$"N"1000M,y(4);"BLOAD GAME.PTRS":(4);"BLOAD GAME.SVAR":A$"N"30020"KNuA$:A$"N"100:KXuDK$;"CLOSE":X(0)\KbuDK$"BSAVE GAME.PTRS,A$69,L8"KluDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561 LvuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(115)(116)256(111)YOU CAN'T EAT THAT!":100lJVS$"TURKEY"(AD%(9,4)ROOMAD%(9,4)1)ĺ:"IT TASTED GREAT!":AD%(9,4)0:100JV(S$,4)"DEAD"ĺ:"THAT'S DISGUSTING!":100JW300J0u // SAVE GAMEJ:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N) :";KDuA$:A$"Y"S COOL, CLEAR, AND REFRESHING.":100WIRSROOM4ĺ:"THE WATER TASTES LIKE WATER.":100I\SROOM23ĺ:"THE WATER IS TEPID, DIRTY, AND QUITE":"NAUSEATING.":100IS300IU /// 'EAT' COMMANDIU4900:NBTLī3010JUS$"TURKEY"(S$,4)"DEAD"ĺ:")ROOMĺ:"YOU CAN'T DRINK SOMETHING YOU DON'T":"HAVE!":100fHR:"YOU JUST DRANK PERFUME! YECH!"HRAD%(19,4)0:AD%(24,4)1:100HR300H4S DRINK WATERH>SROOM23ROOM20ROOM4ĺ:"THERE'S NO WATER HERE!":100$IHSROOM20ĺ:"THE WATER IBETTER."::21180VGR:"YOU FEEL BETTER, BUT YOU'RE STILL IN":"BAD SHAPE."::21180GR:"YOU FEEL BETTER, BUT YOU'RE STILL":"KNOCKING ON DEATH'S DOOR, OLD BEAN.":GRAD%(23,4)0:AD%(25,4)1GR300GR DRINK PERFUME>HRAD%(19,4)1AD%(19,4AVE!":100FFvR:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":FRMD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0FRH2MD%(0,13)(11(1)5):H2(H210)1:H221140,21150,21160,21170FR:"YOU FEEL GREAT!"::21180GR:"YOU FEEL RS$"BROWN POTION"S$"HEALING POTION"ī21100ZE&RS$"YELLOW POTION"S$"PERFUME"ī21200qE0RS$"WATER"ī21300E:R:"YOU CAN'T DRINK THAT!":100ElR DRINK HEALING POTION FqRAD%(23,4)1AD%(23,4)ROOMĺ:"YOU CAN'T DRINK SOMETHING YOU DON'T":"H"::LV0:300FDNROOM1ROOM2ĺ:"THERE'S NO OAK DOOR HERE!":100iDNROOM1ĺ"IT'S UNLOCKED.":100DNROOM2AD%(22,4)1ĺ:"YOU CAN'T UNLOCK A DOOR IF YOU DON'T":"HAVE THE KEY!":100DQ100DR /// 'DRINK' COMMANDDR4900:NBTLī3010.E0:NBTLī30107C/NS$"OAK DOOR"S$"OAKEN DOOR"ī20100C4NS$"DOOR"S$"DISPLAY CASE"S$"CELL"S$"DESK"S$"CHEST OF DRAWERS"ĺS$;" IS NOT LOCKED.":100C>N:"HOW DO YOU UNLOCK A ";S$;"?":100 DNROOM2AD%(22,4)1ĺ::"THE OAK DOOR IS UNLOCKED!:"IT DOESN'T HAVE A LABEL (PER SE).":100bBjJS$"YELLOW POTION"ĺ:"IT SAYS: 'PERFUME.'":100BtJS$"BROWN POTION"ĺ:"IT SAYS: 'HEALING POTION.'":100B~J:"I DON'T KNOW HOW TO READ A(N) ";S$;".":100BM300B N /// 'UNLOCK' COMMAND C*N490A8J /// 'READ' COMMAND/ABJ4900:NBTLī3010jAGJX1NA:AN$(X)S$Ă::"I CAN'T READ A ";S$;".":100ALJAD%(X,4)1AD%(X,4)ROOMĺ:"I DON'T SEE ANY ";S$;" HERE.":100AVJS$"BIBLE"ĺ:"IT SAYS: 'IN THE BEGINNING...ETC.":100+B`JS$"LABEL"1007@F:"I DON'T KNOW HOW TO OPEN A(N)":S$;".":100M@G 'OPEN OAK DOOR'@"GROOM1ROOM2ĺ:"I SEE NO OAK DOOR HERE!":100@,GROOM1ĺ:"IT'S OPEN.":100@6GLVĺ::"THE OAK DOOR IS LOCKED SHUT!"::100@@G:"OAK DOOR OPENED.":100AI300E OAK DOOR AT THE ENTRANCE. YOU NEED":"A KEY TO GET OUT THROUGH THAT ONE.":100?_FS$"BIBLE"S$"DISPLAY CASE"S$"BOTTLE"S$"CELL"ĺ:S$;" OPENED.":100?dFS$"OAK DOOR"ī18200@xFS$"CHEST OF DRAWERS"S$"DESK"ĺ:"YOU FIND NOTHING OF VALUE."::100x>FF:"READIED."::300>PF /// 'OPEN' COMMAND>ZF4900:NBTLī3010Q?\FS$"DOOR"ĺ:"ALL DOORS OPEN AS YOU APPROACH (EXCEPT":"TH":11000=>S$"HEAL"120003=>S$"POWER"13000I=>S$"SPEED"14000h=B:"OKAY, '";S$;"'"::300=hB///READY A WEAPON.=rB4900=|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100>BAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!":z#      ήӠ" ήàΠ͠GΠŠ ŠҧӠӠԠźήŠήӠ ή͠Ӡ  ήӠ     ŠҧӠӍBURN. IT IS TIME TO":"BEGIN."D U"(HIT ANY KEY TO CONTINUE)":A$X Z:"GOOD LUCK!"q d(4);"RUN MAIN PGM"<"SIR CHARLES OF AKNOR, FORMER COUNSELOR":"TO THE KING." F:"YOU STAND BEFORE THE SENATOR'S HOUSE.":"IT IS A LONELY EDIFICE FAR FROM OTHER":"BUILDINGS OR PEOPLE. IT IS ALMOST MID-" P"NIGHT,AND THE HOUSE IS STILL, THOUGH A":"FEW LIGHTS STILL UR HAS IT THAT THE SENATOR HAS KID-":"NAPPED A NUMBER OF HIS POLITICAL RIVALS" 9"(OF WHICH THERE WERE ONCE MANY; NOW":"THERE ARE FEW). IT IS NOW THOUGHT THAT":"THE PERSON MOST LIKELY TO STILL BE IN" :"THE SENATOR'S FOUL CLUTCHES IS THE GOOD"; s (:"THE SENATOR HAS BEEN IN POLITICS FOR A":"LONG TIME, AND HAS THEREBY AMASSED A":"SMALL FORTUNE. HIS CHAMBERS ARE QUITE"2"WELL GUARDED, THOUGH HE DOES NOT REALLY":"BELIEVE ANYONE WOULD EVER INVADE HIS"7"STRONGHOLD."O 8:"RUMO -":DK$;"SAVE A";(8);"-> EAMON ADVENTURE #";NUM;" <-"l DK$;"RENAME EXEC,SAVE ALTERED BASE PROGRAM HERE"r AN":A$;" WAS":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": < NUM226 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 BROWt>A$"THE SENATOR'S CHAMBERS":NUM22:A2$"JAMES PLAMONDON"F9zD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM" 216,0 ::? "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A   ΠŠҠͮΠŠȠĠƠٮԠŠȠĠƠٮΠŠӧͮΠȭȠٮΠŠ٠ͮΠŠӧͮԠĠΠŠٮΠΠԭԠٮԠĠƠٮΠŠҠͮΠԠͮΠŠǠͮΠΠԭԠٮΠΠԭԠٮΠҭ٠ήΠŠήΠŠŠƠȭȠٮΠŠٮΠȭȠٮŠŠ٠ŮΠŠҮΠŠҮ   ԍҠӍĠĠĠĠĠĠȠٍŠҍččĠĠĠĠύĠˍ  ΠŠٮΠŠȭԠ̮ΠŠȭԠ̮ΠŠȭԠ̮ΠŠԠ̮ΠŠĠͮΠŠήΠŠήΠŠȭԠ̮Π̮ͮΠ̮ήΠ̮̮Π̮̮ΠԮΠŠĠōΠ̮Π̮ΠٍΠ΍ǍӍӍנ΍ӍӍӍōōǍōĠƠōٍōčččҍ           ԍˍԍȠЍčĠԍĠҠӍĠčĠčĠčĠčĠčĠčĠȠٍĠŠҍĠčĠčĠčĠčĠčĠčĠύĠččĠˍҠӍŭҠӍĠӍҍĠӍčōčō٠Šō٠ōՠŠΠΠԭԠٮՠΠŠĠΠŠ٠ϠŠԬŠ٠ϠŠԬĠҠϠŠȮՠŠΠŠǠͮՠŠŠҠŠȠԠΠӠĠԮŠӠ٠ŠΠŠԠ̮ŠŠӠȬȬĠԮՠŠΠȭȠٮՠΠŠҭ٠ΠϠŠȬĠŠҠϠŠҠϠŠȮŠŠϠӠԠĠԮՠŠΠŠŠƠṶ̆ĠٮŠŠҠƠӬנŠӬĠנԠӮŠŠӠϠŠԠĠȮէŠΠȭȠٮՠŠĠΠŠ٠ϠŠȬĠҠҠΠŠ̠ϠŠȮՠŠΠŠήՠŠҭӠӬӬĠҠǠέӬӠ̠ӠŬάĠҠˠէĠԠϠĠΠήŠŠӠϠŠȠĠԮՠŠΠŠҮՠŠ٠̭ĠҬȠҠŭǠӬӠӮŠŠӠȬԠĠԮՠŠΠŠҮŠˠҠĠΠӠՠŠРϠԬĠǠԠĠՠӠՠĮՠˠĠŠͬՠŠŠӠԬԠĠȮՠŠǠˠҠϠŠȮΠϠΠήŠĠӠԮ                   ԠԠԠ٠ԠԠĠˍĠԍĠȠЍĠčՠŠΠŠĠŮŠŠРȠĠէŠšՠŠΠԮՠŠӠǠӠƠӠĠӬĠӬ٠ӬĠĠҠӠĠӮՠŠΠŠӧͮՠŠŠΠŠҠՠΠ̠ԬϩŧӠΠĠ٠ƭ̠̠ƠĠҬ٠άĠŠĭǠŠЮՠŠԠŠȠĠƠٮՠŠŠ٠ϠŠȬĠҠϠŠԮՠŠԠŠȠĠƠٮՠŠŠ٠ϠŠȬĠҠϠŠԮՠŠŠΠ ȠΧӠԠΠԠԧӠϠ٠Ϡ٩ŠӠǠĠάŠΠŬĠŠԠƠӬӬĠӮՠŠԠĠΠŠٮՠŠԠŠ٠ӠȠĠ͠ŮՠŠΠŠӧͮՠŠҠŠӠǠŠӬŠΠŠҠƠŠͬĠԠŠҠƠŠҠӮӠŠȠĠԮՠŠΠŠ٠ͮՠŠŠΠȠԬǠҠΠԮ٠ӠŠΠӠĠŠͮŠ٠ҠӠϠŠȢՠŠȭȠٮՠҭ٠ΠϠŠȬĠŠ٠ϠŠȮՠŠΠԠͮӠՠҬԠӠΠϠ̠ԠŠӠΠԮӠӠŠŠҧӠӠӠҠӮՠŠӠǠЮՠŠΠͮՠŠŠĠĠΠŠȭԠҠƠŠ̠ͮŠӠŠĬӠӠŠǮŠӠŠĠĠͮӠϠȠĠԮӠŠĠĠͮӠϠȠĠԮՠŠԠŠԠĠƠԭԠٮŠ٠ӠԬĠŠӠϠŠȠĠȮҠŠΠΠԭԠٮՠŠҭ٠ΠϠŠԬŠ٠ϠŠԬĠҠϠŠȮՠŠΠҭ٠ήŠ٠ǠȬΠԭԠ٬Ġ٠ϠŠȠҠԠŠҠĮՠŠΠΠԭԠٮՠŠҭ٠ΠϠŠԬĠŠ٠ϠŠԮՠŠ٠ҢՠŠĠŠٮԠӠ͠ԠŬȠ̠ӠӠĠԮՠŠΠŠΠ̮ՠŠΠŠȭԠ̮ՠŠΠŠȭԠ̮ՠŠΠŠȭԠ̮ՠŠΠŠȭԠ̮ՠŠΠŠȠƠƠŠҮǠŠӠΠנĠŠͮŠŠӠԬԠĠȬĠŠҠϠŠȮՠŠΠŠȠƠƠŠҮӬӠĠӠǠ͠ŠӮˠӠŠҠƠŠͮŠŠԠĠԬҠϠŠȬĠŠҠϠŠȮՠŠΠĭĠͮŠӠˠ٠ŠԠ̬ĠϠӬȠĠȮ٠ҠΠԠƠŠΠͮՠŠԠŠȠĠƠˠέ̮ՠŠǠ̠͠ϠŠȠĠҠϠŠȮŠˠ̠Ӯ٠נӠΠΠŠҮŠҠӠǮԠȮŠˠ̠ӮŬĠŠͮӠӠĠƠŠŠĠԠŠͮŠӠǠҠϠŠԬĠӠȬȠĠԮŠˠ̠ӮŠӠˠԠŠĬĠӠϠŠȠĠԮŠˠ̠ՠŠΠӠȠĠȮŠӠҠϠŠȮՠŠΠ̬٠ˠ̠ӠȮԠӠ٠ˮՠŠӠƠŠŠĠŭάΠԠƠ̠ӮՠŠȠӬƠŬˬĠΠĠȭΠŠƠԮՠŠŠŠƠŠάĠȠŠέРĠٮՠŠĠӠΠŠŮӠӠǭӠŮŠӠŠ٠ԠҭŠΠŠ٠ŮԠӠԭ٠ĮΠŠ٠ŬՠŠŠŠȠŠ̠ӠԮӠՠˠĬՠԠŠˠϠӠǮԠӠŧĠΠԠΠĠƬĠӠ٠ŮՠŠҠŠǠƠ٠ĠȠĬħΠȧŠӠ٭ĠԠ٬ȠԠƠŠάԠӠՠҠŠŠƠ֧ӠӮՠŠ٠ŭĠĬĭĠȠӬĬĠ٬٠лĠΠԠӠŠŠƠŮՠŠΠŢՠŠԠ¢ՠŠ٠ĢՠŠ̭Ġ¢ՠŠ٠ĢՠŠ٠ĢՠŠǠˠƠҠӮՠŠǠˠƠ̠ӮՠŠĭԠҮčՠŠΠŢ٠ƠčՠŠĢ٠ƠčՠŠŢ٠ƠčՠŠĢ٠Ơ芊Ġ٠Ơ芊Ġ٠ƠčΠŠˠՠŠŠǠΠήŠӠΠΠ٠Ǡ͠ǠΠŠ̮z            ŠħӠӠՠŠĠӮȠŠ٠ӠՠŮ٠Š ՠŠĠǮĠ٠ĠĻϠŬϠέǠԠǮՠŠ̠ŠȠӭԠנΠŮԠӠŠȠٮӮՠŠĠӠΠŠӠԮŠӠŠ٠̠ĮĢՠŠŠĠ٠ƠčՠŠŠĠ٠ƠŠҍՠŠŠĠ٠ƠȠٍՠŠŠĠ٠ƠčȠٍՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčՠŠŠĠ٠ƠύՠŠŠĠ٠ƠˍύՠŠĢ٠ƠˢՠŠŠ¬Š̠͠ŮՠŠǠĠҠӮ̮ՠŠŠǠĠĠӧ̺ȠΠ̠ŮԠӠΠԬĠӠԠˠӠƠԠ̠ԠǮՠŠԠՠŠԠՠŠԠՠŠԠՠŠԠՠŠŠĠ٠ƠԢ͠ȮՠŠŠĠ٠ƠˍՠŠŠĠ٠ƠčՠŠŠĠ٠ƠȠЍՠŠŠĠ٠ƠҠӍՠŠŠĠ٠ƠԍӍՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčՠŠŠĠ٠ƠčӠՠҠŠͬĠӠР͠ĠŠˮŠӠҠΠ٠ƠŠӠէŠӠҮϠ٠ӠΠͮĠӠԠƠŠӡĠŠˠӠĠӠӠĮӠԠӠԮӠՠҬՠŠΠŠĠĭŭĠκŠҮŠӠĠӠԠƠĬǠӠĠ͠ӠŠĮӠĠ͠ӠŠȮ͠Ӡ­ĠԠӠŮΠĠȠŠҠՠŠέ٠Ӡ̮ΠϠŠҬӠŠҠΠĠӠϠŠҮŠӬӠŠҠŬĠӠԠƠĮҠҠĮӠՠҬՠŠ͠ȠҠŠٮҠŠӠĬΠŮŠӠҠЮԠɧ͠ǡĠӬǠծŠӠҠЮЮӠՠҬՠŠĠҠԠǠ͠Š®ŠǠĠĩӠˡĠӠҠŠӮŠӮӠՠҬՠŠŠӠǠĠΠĠԬӮ٠ŠՠҠĠȠҠӮӠՠҬՠŠϠӠŠǠӮ٠ˬ ҠӬĠĠ٠ϠˮՠŠǠΠΠȠŬӠǠӠՠĮŠӠՠŠΠĠӠЬǠĠ͠ŠĠԠӠŮՠŠŬԬ٭Ġ˻ӠŠӠՠŠ٠ԠҠΠӠĮ          ТA$(A$,2):2200 A$""A$CZ$:(37):17:A$X CZ$A$:A2(A$):(A$,A,1)" "Ăv 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);20A1NZ:AD%(A,4)ROĂ:190= AD%(A,9)ĺ"YOU SEE ";AN$(A) 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." :V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)" "ĄA$:DK$:"YOU ARE ":" ";A$:e V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1 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:  16,0:1000 <J d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDP 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:E  EAMON ADVENTURE #22? THE SENATOR'S CHAMBERSEb BY JAMES PLAMONDONh}REVISED 8/18/95 EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":31000 22           !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""     ӠՠҠŠ̬ΠӠϠӠԮӠԠӠȠӠŠӠϡϡɠΧԠĠ٠šӠՠҬՠŠŠԬέԬԠ̠ԠՠŠҠήŠӠՠŠΠĠӠϠӠԮŠӠӠŠŭ ĠӮͬŠӮĮΠŠҠƠŠ͠ΠĮΠՠĬŠĮŠӠӭĠΠΠĬĠŠ͠͠Ƞ̠ŠӠΠĮŠΠӠǠ٠ŠŮŠӠΠ٠ĠǠҠӬӠŠӠΠԮŠӠԠՠĠӮՠŠ٭ĬԭĬ̭٠ЮŠӠӠӠӭ٬ĠӠլԠǬҠǠͮɠ͠ԠΠŠάӠŮӠՠҬΠƠŠӠĠϠԠծ̬̠ԬŠӬǠҠĠٮէŠΠǠŠԭǠŮɠ͠ҠӮӠՠҬĭĠΠΠԭĠˠӠϠӠԮϡŠӮϡԠΡɠΧԠԠՠԠŠΡĠӠǠ٠ŠŬԭǠŠàԠƠŮŠӠϠŠՠȠԮՠŠĠǠŠˮŠӠլϬĠӠӠŮONTINUE) ";:A$: 2500q :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":2900Q DK$;"OPEN CHARACTERS,L150,S6,DD%(A,1)$. A:TP;" GOLD PIECES.":3 MD%(19,5)25ĺ"IN ADDITION, YOU RECEIVE ";500(7.5CH)(25MD%(19,13));" GOLD":"PIECES AS A REWARD FROM SIR CHARLES FOR":"HIS RESCUE.":TPTP500(7.5CH)(25MD%(19,13))8 GOLDGOLDTP::"(HIT ANY KEY TO CW),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)0AD%(A,1)AD%(A,1)CH10$ TPTPAMBER OF THE WEAPON TO SELL (1-";W21;") "f (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%(262300 :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--"-W1W21:4);W;"--";WN$(W):::"ENTER THE NU,EAT///DONE WITH GAMER:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:|DK$;"CLOSE":SPDMD%(0,2)MD%(0,2)2DIE2500W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W96):ROOM1(~LV1: LOCKS THE OAK DOOR1l1009v39NORTH,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,SAVEOPEN,READ,UNLOCK,DRINK8)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)3jNC:C$(NC):C1NC:C$(C): tS14:S2%(S)SA%(S)::V%(D%(NA,5)WO%(W2):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)::W24_8WZW2:WTWWZBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,W2:EA0:MD%(0,8)0:A2(AC2):A22ACMD%(0,8)1:EA54VA2MD%(0,8)MD%(0,WT%(A),WO%(A),WD%(A),WS%(A)::DK$;"CLOSE"G?DK$"DELETE FRESH MEAT"$DK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOM NAMES,L64":DK$;"OPEN EAMON.ROOMS,L64"M.W214:WN$(W2)"NONE"NANA1:AN$(NA)WN$(W2):AD%(NA,2)2:AD%(NA,3)2:AD%(NA,4)1:A;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,AC*NW15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),DK$;"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):A21A:DK$;"OPEN EAMON.MONSTERS,L128":MN$(NM),MD%(NM,15):A1NM:DK$;"READ EAMON.MONSTERS,R" OFMNM21NM:MD%(M2,5)ROĭMD%(M2,14)1DFM2:7500:M2200:M2:490VM2{NBTL(FD%(1)TD%(1)):NBTLMNM100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZ2:M2MD%(M,14):TD%(M2)TD%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%(M,13):490[YMD%(M,14)2490p^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROĭMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:49019000,20000,21000,220007,///COMMANDS RETURN TO HEREF6NBTL500|@M1NM:MD%(M,5)ROĂ:NBTL(FD%(1)TD%(1)):500JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20)FTMD%(M,4)MRĺ:MN$(M);" FLEES OUT AN EXIT."::8500:MD%(M,5)R(C$(C)));::::2103 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,MD%(OF,10)AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::S,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!" -~FR;:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1R+VHIT7600j+`RL97ĺ"A MISS.":+e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::C,jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)0ı/*A1NA:AD%(A,4)ROĂ:C*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:ANA::*LHIT0:MD%(OF,9)17400D+QMN$(OF);" ATTACKS ";MN$(DF):" --"(100(1)1)MD%(0,10)73605)A2:EAAE1A1W)AEAEA:MD%(0,10)MD%(0,10)Ar)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*300(X///ATTACK COMMAND&(b4900g(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(EAAE300)OOR CHECK'V%(ROOM)0k'ROOM14ĺ::"YOU FOUND A SECRET DOOR UNDER THE BED,":"LEADING DOWN!"::300'ROOM15ĺ::"YOU FOUND A SECRET DOOR IN THE SOUTH":"WALL!"::300'ROOM32ĺ::"YOU FOUND A SECRET DOOR IN THE EAST":"WALL!"::300(060&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.DESC,R";A300:A$:DK$::A$::LK1 ' ///SECRET DMD%(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)ROOM&A:WT0:5IF NOT PREVIOUSLY SPECIFIED.C$)S$""ĺ:C$(C);" WHAT";:S$:4900I$.^$///DROP COMMANDq$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.":|%WT10000$#@A1NA:AD%(A,4)ROOM4190e#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#r$$///ROUTINE TO GET S$ 4900"S$"ALL"4160e"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",:"GOT IT.":AD%(A,4)1:WTWTAD%(A,3)::AD%(A,2)2MD%(0,9)1300#617OOM3900!8MD%(M,14)3670K!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)0):!///GET COMMAND"T WAY!":V%(ROOM)0:1001 R3ROOM:ROOMR2:3600: 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))MD%(M,5)ROOM:3670!.MD%(M,5)R EAMON.ROOMS,R";ROOM:D21D:R2::DK$6 R203500L ///SPECIAL MOVES R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000 ROOM25ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":"SUNSET!":2000 R23490 :"YOU CAN'T GO THACLOSE"%T DK$;"RUN MAIN HALL,S6,D1": ///MOVE COMMAND NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 ROOM2(V$,1)"S"LVĺ::"THE OAK DOOR IS LOCKED SHUT!":::100 D16:(V$,1)("NSEWUD",D,1)Ă' DK$;"READ1":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$(0):REC:DK$;"ILE COMMAND/<::M1NM:MD%(M,5)ROOM15100P<:MD%(M,14)15030,15040,15050t<: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$"TS ARE HEALED."::MD%(0,13)0:300-;,314020A;6///SPEED SPELLZ;6S3:11500:SUC300;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 <:///SM4)0:2A:RAISEĺ:300:3RR(100(1)1):RR11ĺ:"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 HI1500:SUC30092RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%(M2,4)1RAISE1:MN$(M);" COMES ALIVE!":AD%(M2,4)0:MD%(M,5)ROOM:MD%(M,13)0:WTWTAD%(M2,3)92M:RAISER3ROOM:3600:300:2A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,AL SPELL!8.S2:11500:SUC300]8.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":8.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)08/DF0:7650:30082///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS92S4:1SUCĺ:"NOTHING HAPPENED.":\7-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2p7 -S2%(S)S2%(S)2v7-7P-:"THE STRAIN OF ATTEMPTING TO CAST THIS SPELL OVERLOADS YOUR BRAIN AND YOU FORGET IT COMPLETELY."::SA%(S)0:8.///HE 6+4900W6,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100p6,S1:11500:SUC3006,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3006,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL100116007,3)(1(S$)100):912005'///INVENTORY COMMAND5':"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$::A005$':3006*///BLAST SPELL%(A,1)100)d4#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)|4#R3ROOM:3600:50504%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::3005&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,0603i#(S$)09500J3n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)19095x3x#:A22A23::"WHAT TO GIVE? ";S$:90653#:"YOU AREN'T CARRYING A ";S$;"!"::1003#AMD%(0,9)MD%(0,9)1 4#:"OKAY.":AD%(A,4)0:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD(1)1):R2185102H!.2(#///GIVE COMMAND722#A21n2<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM90502F#:A21A22::"WHO TO GIVE TO? ";S$:90202P#:"NOBODY HERE BY THAT NAME!"::1002Z#S$(S$,(MN$(M))1)3d#(S$,1)" "S$(S$,2):9E1:20001:&1@///FLEE COMMAND[1JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::1001*!DR$"":8500:DR$"000000"ĺ:"THERE'S NO PLACE TO GO!!":1001/!350014!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D):DR$DR$(DR%(D))::DK$2>!R2DR%(6OCKING LOUDLY.":0MN$(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)2 1DF0DI0#/AMD%(DF,14):FD%(A)FD%(A)D2i/:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675/" IS STILL IN GOOD":" SHAPE.":/" IS HURTING.":/" IS IN PAIN.":/" IS VERY BADLY INJURED.":0" IS AT DEATH'S DOOR,":" KN(1)1):R251A0:76350.R286S1.5S:7635G.R296D2D:7635_.R2100D3D:7635i.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)77010075607-DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635g-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