+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮLz #      ήӠ ήàkΠ͠<ΠŠ ΧӠĠԠźήŠήӠή͠ӠήӠ      ΧӠčTLY FLING" ; "YOUR BODY IN FRONT OF THE ROD AND A"A f "BRIGHT RED LIGHT ENGULFS YOU!" :3:"YOUR LAST SIGHT IS OF THE CHILDREN" "ESCAPING AND THE DAEMON GRINNING EVILLY!" (4);"RUN MAIN PGM"GROUND"OURING WATER FROM A" _J d"BUCKET ONTO THE HIGHER PART OF THE PILE."j n23:5:"HIT ANY KEY ";:A$x x::4:3 "JUST THEN A HUGE DAEMON MATERIALIZES" "AND TRAINS A STRANGE ROD ON THE FRIGHT-" "ENED CHILDREN. YOU GALLEN AND SEE SOME" -A 2"CHILDREN PLAYING IN A SAND PILE. YOU"G 7v <"STEP CLOSER AND SEE THAT TINY BUILDINGS"| A F"ARE CONNECTED BY ROADS OF DRIED MUD AND" K P"STICKS SERVE AS VEGETATION. A RIVER IS" U Z"FORMED BY A CHILD P LEADIN PROGRAM4 FOR DAEMON'S PLAYGROUND:K WRITTEN BYQg RICK VOLBERDINGms ::4:3"YOU ARE ON YOUR WAY HOME AFTER A""STRENUOUS DAY AT THE MAIN HALL (GUZZLING" ("BEER). YOU PASS BY A PARK DVENTURE #";NUM? DK$;"RENAME EXEC,SAVE LEADIN PROGRAM HERE"E NA$;" WAS":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": < NUM40 DK$(4):DK$;"DELETE EAMON ADVENTURE #";NUM:DK$;"SAVE EAMON A2)));"**";38);"*****************************************": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------"" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":G;A$"DAEMON'S PLAYGROUND":NUM40:A2$"RICK VOLBERDING"C9wD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM" 216,0 ::< "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)   ԠΠůנĠȠ΍ΠŠΠΠΠůנ̍ԠǠƠŠ̍ΠȯȠ̍ԠŠӍΠ̠ōΠίӠ̍Ƞ΍ΠΠԯԠčΠōǠҠōԠԭΠίӠōΠŠΠҍΠȯȠȍԠӠ٠΍     ԠԍŠč̠ҍԍԠ΍ˠҍŠӍō̠̍Ơ׍ҠӍ  ԠŠ͠ƠŠԍĠŠӍΠˠҠ͍ԠǠΠŠԍԠРǍŠŠȠ΍ΠŠȠ΍ԠҠōŠĠōԠ٠΍ŠŠȠ΍ΠŠȠ΍ΠŠŠ΍ԠŠǍΠ٠ĠůנٍԠŠ ōΠ٠ōΠΠůנȍΠŠԧӠōΠίӠ̍ԠԠȠčΠΠůנčԠҭ٠΍ΠίӠ̍ԠԭΠίӠōΠίӠ̍ԠŠ͍ԠԠĠȠčԠŠҠǍԠΠΠōԠԭΠίӠ׍ΠԍĠίӠ̍ΠĠίӠ̍ĠōĠԠ΍ĠƠ׍ĠŠӍĠҠӍĠ̠̍ǍōǍ٠ɍԍōōŠӍō٠ɍ٠ɍ͍ōčģōǍōĠǍ٠č      ҍō΍ҍŠҍĠǍȍŠ̠ӠϠŠȠĠՠŠӠŮΠΠȠΠԠĠӠϠŠȮΠΠĠӠȠĠȠ̠ŮŠӠӠĠӠŠħٮՠŠΠŠԠŠƠΠŮŠĠӠ٠έĠϠŠԮ͠ӠȠĠȠǠϠӠ٠ӮՠŠΠŠԠӠ̠ͮŠҠנӠΠĠԠӠΠàӮΠϠԠҠԠϠĮՠŠΠΠԯԠĮŠƠŠӠ٠ĠөӠŠٮȠȠӠΠԯԠĠŮӠŠΠ̠ӠȮӠΠȠƠĠӠϠ̠ǠϠŠȠĠ٠ΠϠŠȮՠŠΠ͠Ġ̠ŭ͠ǮŠŠҠӠ٠ȠˠԠԠŠŮ٠ϠŠȠӠԠҮ                    Ġ΍ĠŠҍĠōĠȍĠҍĠŠčĠĠǍĠԍĠԠԍĠˠҍĠ̠ҍՠŠΠΠԯԠĮϠԠĠԠŠ٠ӮՠŠǠŠŠǠԠϠŠҠˮՠҠŠǠƠ̠ҭӠĠ̠ŮϠŠȠӠĠĠΠŠ̮Š̠ӠŠԠϠŠ͠ĠȠϠǠҠŠҮŠҠӠϠŠΠ͠ŮŠ͠ӠȬ̠٠ΠӠҮ̠ӠĠŠ͠ϠŠԮԠϠӠȮŠȯȠ̠ӠĠŮϠŠԠӠРŠȠԭǠ٠ҮԭҭΠӠȠĠŠӠĮՠŠΠĠԠ̭ȯȠ̮ΠΠӠϠŠȠĠΠӠϠŠȮŠ̠ӠĠŠĠՠŠĠΠϠנ̭ĠԮŠӠŠƠŠԠՠΠ ̠ͮӠȠĠȮŠԮӠӠΠΠƠȯȠĠ̠ĠĠ̮Š̠ӠźԠĠȮŠ̠ӠŠϠĠ٠Ӯՠ٠ϠԠҠȮӠӠΠԯԠ̮ӠԭΠĠŠ̠ϠŠԮՠŠΠ˭ĠŭŠĠȠ٠ĮΠŠҠŠĠŠƠĮ٠ϠŠԠӠŠΠӠϠȠĠԮӠƠĮŭŠӠԠĠҠ͠ŠĮΠԠӠԮӠӠȯȠ̮ϠŠȠӠΠԠήӠ̠ӠϠŠȠԠΠԯԠήӠӠנŮԠԠӠԠӠ͠ŠΠέŮΠϠŠȮŠȠ̠ӠŠԠƠҠӮŠӠҠ٠٠ήŠǠӠ̠ԠӠĮՠŠǠŠŠȠήŠŠӠŠϠŠԠĠŠŠӠȮӠӠŠ̠ƠŠŠέήŠҠӠĠƠ̠ӠĠŠŠӠŠԠΧԠΠĠΠҠŠŮӠԠŠԠŠΧԠήՠŠΠŠȠΧӠԠ̮Ƞ٠ӠĠƠԠҠԠ٠Š̠Ġ͠ŠҠŮŠΠҠӠԮŠŠӠŠŠή٠ӠϠŠԠĠŠŠӠȮŠӠŠȠŠΠĠϠŠԠĠҠӠϠŠԬȠĠȮȠŭ٠ӠϠĠήǬĠŠӠ͠ŮՠΠŠǠŠӠԠٮ٠ӠԮՠŠԠ٠ȠĭŠٮŠӠȠĠȮΠӠ˭ΠŠŠŠӠԠΠԠȠΠҠԠΠšՠŠǠΠĠԯԠٮ٠ΠӠĠŠӠԮŠ̠ӠŠԠŠȠӠ٠͠ŠƮ̠͠ӠԠנŠǠĠӠԮ̠ӠԮՠŠԠĠΠŠ̠ԠӠȠĠԮՠŠ٠ĠŠԠԠƠŠ̠ĠΠŠҠӮŠ̠ӠȠϠĠĠȠϠΠήӠӠ̠ŠǠ͠ŠŠ٠ӮӠ٠ԠӠŠԮ٠ϠŠԠӠŠԠ͠ȠƮĠՠΠίӠ̮ȯȠ̠ӠΠȠŮŠ̠ӠРϠŠԠĠȠĠӠΠϠŠȮŠȯȠ̠ӠϠŠȠĠӠ٠ϠŠȮĠԯԠĠӠȠ̠ŠĠŠΠŠȠɧΠԠӠȮԧӠŠӠǠŢǠΠŠŠҠӠ٠ȠɧΠԮŠҠӠĠԠ٠ŠҮĠΠŠŠŠǬĠˬ٠̠͠ŠҬĠҠԠӮĠҠӮǠȠŠŠӠΠΠǮŠΠϠĠ٠٠Ԡ͠ծӠĠˮΠŠĠӠӠҠȠɧΠԢӮԠŠҠƠŠŠӠԠŠƠӠĠҧӠǮΠԠӠĠĠǮĠŠԡĠĠŠӠŢΠĠĠȠŠǠЭΠӠźӠĠӠĠϠԠӠĠӠŠϠŠԠƠŠٮՠŠĠŠ͠ƠŠРԮĠȠӠǠ٠ϠŠԠĠŠ٠ǠЮΠӺ٠ԡӠӠˠǠΠŠҭ٠ԠՠΠŠǠԠ׮ӠϠРĠήӠӠנǠΠŠˠٮԠɠŠŠԮŠӠŠΠĠϠĠЮӠǠӠЬˠԮӠĠĠŠŠŠĠĠΠϠӮҭ٠ϠŠȠӠŮՠŠĠ̠ŠӠĠŠנŠ٠ǠϠˠҠ͠ϠŠȮŠĠŠӠȩҠŠӠϠŠȠȠɧΠԩĠĠŠӠϠŠȮ٠ԠӠɧΠԮΠΠŠӠϠŠȠȠΠɧΠԩĠҠŠӠϠŠȮԠӠɧΠԮՠŠΠŠŠ̠ƠŠΠήԠӠ٠έĠĠŠŠϠӠҠΠŠͮŠ٠ԠӠŠԠҮՠŠŠĠ̠ҮڠӠ̠ŮՠŠŠĠˠҠŮz     ŠĠԠΠӠŮΠӠ͠ԮՠŠŠĠ٠ƠŠŮՠŠŠŠӠŠ٠ԠĠĮՠŠŠĠ٠ƠŠ׮ŠĠ̠̠ӠŮ̍ՠŠŠĠҠӠŮŠΧӠԠŠӠΠŠҮԠӠ̠͠͠ӠЮҠҮՠĠǠƠĠΠĠȡԠӠŭԠӮΠΠ٠ȠɧΠԠӠ̠͠ΠϠήΠǠӠ͠ŠҠ̠ĠՠΠŠԠӠŠӠŠǮӠ٠ŠΠŭҧӠŮŠħӠŠӠŢ$(4)CD$;"OPEN EAMON.DESC,L256"aD$;"WRITE EAMON.DESC,R0"q(A:B:C:D2D$;"CLOSE EAMON.DESC"AǠΠŠҠӠĠ٠ԠȠ٠ˠӠĠˠӢϠŠŬΠŬӠàĠ̠ĠȠŠӧΠΠԮ̠٠ҠӠŮӠŠŠΠȠŠƠӠ٠ĠȠӠԠŠȠҭΠԠԠ̭ĠήӠΠĠԠԠĮ     ŢŠŠӠĮŠŠƠ٠ĠϠΠԮՠԠŠŠ٠ΠŠŠĠԠӠήՠРҠӠ٠ϠԠΠŠŮՠҠ̠ĠӠĠŠŠӡΠӠԠŠŠԠŠȠӮŠŠӠĮՠŠŠǠ٠ƠŠ΢٠ǠŠӠŠĠŢՠŠŠĠŠҠ٠ǠϠŠӠΠŠٮՠŠŠĠҠŮӠӠנԠĠŠӠŠĮՠŠŠĠ٠ƠŠȠ̠ǮՠŠŠĠĠǠŮՠŠŠĠŠĠŮՠŠŠĠ٠ƠŠԠԢՠŠŠĠԠŮǠΠӠŠԠԮԠӺɧ͠ĠէŠŠӠҡԠנՠԠԠšˠŠӠ͠ȠǠĠӠĠҠǡԠӠϠ̠ՠ٠͠Š̠ĠՠҠǠӠ׮ΠŠӠ͠ˠΠŠԠ̠ĠӠĠծ٠̠ƬŠ٠ϠŠŠӬĠŠŭĮŠҠǠĠҠӠաԠӠŠҠƠӠΠˠӠ٠٠ٮàȠȠ̠Ӡ٠ԭӠ٠ĠȩԭӠϠŠͮՠΠԠŠŠĠġҠŠӠĮŠǠȠРȠĠ٠ӠӠԠՠǠٮΠĠΠԠħӠ͠ӠŮŠӠРϠĠӠҠҠӮΠ̠Ԡ̠ŠӠΠӠĮŠԠӠԠҠŠǠԭǠˮԠӠӠՠȠĠӠϠŠծӠŠˠҠ٠ԠĠԠӮĠĠԠӠŮŠӠԠӠΠϠӠΠŠέӠŠĠӬɠŠŠŠΠӠŠȬȮŠŠҠӠŠŮԠӠΠ٠ĠƠӠƠٮŠĠȠԠӠΠĠǮԠԠӠϠŠŠΠԠƠծԠӠŠӠŭΠҠĠˠԮԠӠΠԠƠŠƠԮ٠ԠƠӠԠ͠ŠĠĠԠϠŠաՠ٠ĠРˠĠŠҠӠƺԠԠΡĠΠŠǠӠŠԠϠ٠šӠŠӠŠƠΠԠĠӠϠӡ٠Կ٨ө͠ŠϠŮŠ̠ӠӠΠǠȠƠŠӮ٠͠ĠҠΠŠԠήŠΠΠҠΠĠΠٮƠנӠĠӠŮӠŠŠƠ̠ŠĠӠӠŠǮԠΧԠҠˠ١ΠŠŠӠΠ٠Ǡ̮ԠӬŠ̠ӠĠӠϠӠĠΧԠŠŠ٠ơԠӠנŠӠȠӠŮ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%(96):ROOM1l100v 34 NORTH,N,SOUTH,S,EAST,E,WEST,W,::W248WZW2:WTWWZbBW21WZ:A1NAWZ:AN$(A)WN$(W2)AN$(A)AN$(A)"#":A00::1090LA,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:EAEA30y`NANZMD%(0,"^$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):AD%(NA,6)WT%(W2):AD%(NA,7)WD%(W2):AD%(NA,8)WS%(W2)RESH 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),WS%(A)::DK$;"CLOSE":DK$;"DELETE FRESH MEAT$;"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:MD%(A,A2):A2,A:DK$;"CLOSE"{DK$;"OPEN F7500:M2200:M2:490M2?NBTL(FD%(1)TD%(1)):NBTLĂMEN100f///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZ^DK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,9):A1NA:DK(M,13):490 YMD%(M,14)24905^MD%(M,14)3390_hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:490OFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:NDS RETURN TO HERE!6NBTL500A@M1NM:MD%(M,5)ROOM490JM2MD%(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%(M2)MD%(M,1):FD%(M2)FD%(M2)MD%;20(C$(C)));::::2107 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,9000,10000,10000,11000,12000,13000,14000,15000,15000,17000,18000,///COMMA" "A$(A$,2):2204 A$""A$CZ$:(37):17:A$\ CZ$A$:A2(A$):(A$,A,1)" "Ăz 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)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:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE." A:V%(ROOM)1 :" YOUR COMMAND?";A$ (A$,1)M:A$:DK$:"YOU ARE ":" ";A$:g V%(ROOM)ĺDK$;"READ EAMON.DESC,R";ROOM:A$:DK$:A$::V%(ROOM)1 M1NM:MD%(M,5)ROOMMD%(M,15)ĺMN$(M);" IS HERE.": MD%(M,5)ROOMMD%(M,15)ĺDK$;"READ EAMON.DESC,R";M300:A$:DK$:A$:MD%(M,15)1:4 0 2216,0:1000L d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDR 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";ROO: EAMON ADVENTURE #407 DAEMON'S PLAYGROUND=N WRITTEN BYTk RICK VOLBERDING SAVE FIXED 4-29-84  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50 DK$(4):DK$"VERIFY GAME.PTRS":1900                        ALL FALL TO THE GROUND."::5100R%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:5060%p///LOOK COMMAND*&LK0:A1NZ:AN$(A)S$(AD%(A,4)ROOMAD%(A,4)1)ĺDK$;"READAND$S$"ALL"5100c$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.":!%WT10MD%(0,1)ĺ"YOU SUDDENLY FIND YOU CANNOT CARRY ALL OF THE ITEMS YOU ARE CARRYING, AND THEYAVY":4190;#TAN$(A)" TAKEN.":AD%(A,4)1:WTWTAD%(A,3)H#^::300#h///INSERT HERE SPECIAL EFFECTS OF PICKING SOMETHING UP#r#$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.#)S$""ĺ:C$(C);" WHAT";:S$:4900#.$///DROP COMME!"::100R""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"617000"@A1NA:AD%(A,4)ROOM4190 #J4200:WTAD%(A,3)10MD%(0,1)ĺAN$(A);" IS TOO HE?!VAMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)X!<M:NBTL(TD%(1)0):n! /// GET COMMANDx!4900!S$"ALL"4160!S$"EGG"S$"GOLD EGG"!S$"GOLD"S$"BAG" "A1NA:AN$(A)S$AD%(A,4)ROOMĂ::"I SEE NO ";S$;" HER,13)^ $M1NM:MD%(M,5)R3ĭMD%(M,14)3(MD%(M,14)1200(1)MD%(M,4))MD%(M,5)ROOM:3670w .MD%(M,5)ROOM3900 8MD%(M,14)3670 BFRMD%(M,3):FRFR100FRFR((CH10)2)!LMD%(M,14)1:FR(100(1))MD%(M,14)2:FR(100(1))MD%(M,14)3& R244OGR244:3500V0 DK$;"READ EAMON.DESC,R204":EF$::EF$::V%(ROOM)0:100 :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 R3ROOM:ROOMR2:3600100///CHECK REACTIONS ON MONSTERS TD%(1)0:TD%(3)MD%(0,1):FD%(1)0:FD%(3)MD%(0 R203500" ///SPECIAL MOVES R299ĺ:"YOU FEEL A STRANGE WRENCHING OF YOUR":"ENTIRE BEING, SEE FLASHES OF LIGHT, AND":"MATERIALIZE AT THE MAIN HALL!":2000 R235OM1R235:3500 R242OIR242:3500 R243OSR243:3500OVE COMMANDS NBTLĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100p (V$)2V$V$" ":3015 D1202:(V$,2)("N S E W U D NENWSESW",D,2)Ă D(D2.5) DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$ R203490 ,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$;"CLOSE"T DK$;"RUN MAIN HALL,S6,D1"  ///MT EAMON MASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0X A$:A$"C"2520` A$ 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%(0GS, HE EXAMINES YOUR GOODS AND":"PAYS YOU ";Q TP0:A1NA:AD%(A,4)12350z AD%(A,2)0AD%(A,1)AD%(A,1)CH10$ TPTPAD%(A,1). A:TP;" GOLD PIECES.":8 GOLDGOLDTP::"(HIT ANY KEY TO CONTINUE) ";:A$: 2500B :5:"(INSER1: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::5:"AS YOU DELIVER YOUR TREASURES TO SAM":"SLICKER, THE LOCAL BUYER FOR SUCH":"THINO 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;") " (37):23:A$:W5(A$):W51W5W21W5(W5)20809*AD%(WP%(W5),4)2DIE2500|W14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W262300R :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOUP,U,DOWN,D,GET,TAKE,DROP,PUT,LOOK,EXAMINE,ATTACK,FLEE,RETREAT,ESCAPE,OPEN,UNLOCK,INVENTORY,I,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,READY,SAVE///DONE WITH GAME:"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$;"CLOSE":SPDMD%(0,2)MD%(0,2)."::100[5x#(ROOM43)(OG1)(S$"GOLD GATE")ĺ:"THE GOLD GATE IS ALREADY OPEN."::1005}#(ROOM25)(OI0)(AD%(13,4)1)ĺDK$;"READ EAMON.DESC,R204":EF$::EF$::1006#(ROOM42)(OS0)(AD%(4,4)1)ĺDK$;"READ EAMON.DESC,R204":EF$::EF$::)(ROOM43)(OG0)(S$"GOLD GATE"S$"GATE")ĺDK$;"READ EAMON.DESC,R203":EF$::EF$::OG1:1004n#(ROOM25)(OI1)(S$"IRON GATE")ĺ:"THE IRON GATE IS ALREADY OPEN."::100 5s#(ROOM42)(OS1)(S$"SILVER GATE")ĺ:"THE SILVER GATE IS ALREADY OPEN:100y3P#(AD%(13,4)1)(ROOM25)(OI0)(S$"IRON GATE"S$"GATE")ĺDK$;"READ EAMON.DESC,R203":EF$::EF$::OI1:1003Z#(AD%(4,4)1)(ROOM42)(OS0)(S$"SILVER GATE"S$"GATE")ĺDK$;"READ EAMON.DESC,R203":EF$::EF$::OS1:100a4d#(AD%(7,4)13)9100d22#(ROOM34)(S$"GATE")(AD%(9,4)1)ĺDK$;"READ EAMON.DESC,R202":EF$::EF$::OM1:1002<#(ROOM34)(S$"GATE")(AD%(9,4)1)ĺDK$;"READ EAMON.DESC,R201":EF$::EF$::1003F#(OM1)(ROOM34)(S$"GATE")ĺ:"THE GATE IS ALREADY OPEN!":R20ĺ:"THERE'S NO PLACE TO GO!!":10011*!3500z14!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D):D$D$(DR%(D))::DK$1>!D$"000000"R20:1H!R2DR%(10(1)1):R2185201R!1(# ///UNLOCK COMMAND2-#(ROOM34)(ROOM25)(ROOM42)(ROOM4NZNM: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)20DF0DIE1:20000:0@///FLEE COMMAND0JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::1000TD$""'1h8500:IS STILL IN GOOD":" SHAPE.":5/" IS HURTING.":K/" IS IN PAIN.":l/" IS VERY BADLY INJURED.":/" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":0MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)0:A2DF0: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.:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,7675/" (100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INCm-DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":7635-"A CRITICAL HIT!":R2(100(1)1):R251A0:7635-R286S1.5S:7635-R296D2D:7635-R2100D3D:7635-7700W.D2D%(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):DFOF:A1:7635,DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:76355-INC(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:MD%(OF,4)MD%(OF,4)2::+oFR957550d,t" WEAPON BROKEN!":AD%(M(A,4)0:MD%(OF,9)A:MD%(OF,10)MD%(OF,10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:g*LHIT0:MD%(OF,9)17400*QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1*VHIT7600*`RL97ĺ"A MISS.":N+e",14)1DF0300X)MD%(DF,3)MD%(DF,3)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0r)M:R3ROOM:3600:300)///MONSTER TRIES TO PICK UP WEAPON)MD%(OF,10)0ı)A1NA:AD%(A,4)ROOMAD%(A,2)2Ă:J*MN$(OF);" PICKS UP ";AN$(A)::AD%100;(zMD%(0,9)1ĺ:"YOU HAVE NO WEAPON READY!"::100Z(OF0:DFM:7500:HIT7360(INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2(EAAE300((100(1)1)MD%(0,10)7360(A2:EAAE1A1(AEAEA:MD%(0,10)MD%(0,10)A)MD%(DF"SWALLOW"S$"CLIFF SWALLOW">'S$"BEAVER"S$"PACK BEAVER"c'S$"EM"S$"ELECTRICAL MONSTER"'S$"GUARD"S$"GATE GUARD"'S$"DOG"S$"GUARD DOG"'S$"SLIME"S$"SLIME MONSTER"(pM1NM:S$MN$(M)MD%(M,5)