+JJJJ  / X5 lӠˠӠϠӠϠԮԠҠˠčӠ٠ϠԮL);"BLOAD GAME.SVAR":(4);"BLOAD GAME.STR"uN6yDK$;"DELETE GAME.PTRS":DK$;"DELETE GAME.SVAR":DK$;"DELETE GAME.STR"NTyDK$;"OPEN EAMON.DESC,L256":DK$;"OPEN EAMON.ROOMS,L64":DK$;"OPEN EAMON.ROOM NAMES,L64"Nhy1008Y GAME.PTRS":31000 2216,0:1115)(116)256(111)(112)2561sMu:"THE GAME IS NOW SAVED. BOOT ON THIS":" DISKETTE TO RESTART THE GAME."yMuMy /// RESTARTMy216,0M"y:"DO YOU WANT TO RESTART THIS GAME?":" Y OR N:";A$:A$"N"1000*N,y(4);"BLOAD GAME.PTRS":(4) :";$LDuA$:A$"Y"A$"N"300208LNuA$:A$"N"100PLXuDK$;"CLOSE":X(0)rLbuDK$"BSAVE GAME.PTRS,A$69,L8"LluDK$"BSAVE GAME.SVAR,A";(105)(106)256;",L";(109)(110)256(105)(106)2561#MvuDK$"BSAVE GAME.STR,A";(111)(112)256;",L";(%(9,4)ROOMAD%(9,4)1ĺ:"THERE IS NOTHING IN THE DESK, BUT THE":"NUMBERS ";CV$;" ARE SCRATCHED":"INTO THE BOTTOM OF ONE OF THE DRAWERS.":300KT:"I DON'T KNOW WHAT YOU MEAN.":100K0u // SAVE GAMEL:u:"DO YOU WANT TO SAVE THIS GAME? ":"(Y/N20,4)0:3002JS:"YOU DON'T HAVE THE KEY!":300GJS // OPEN BUBBLEJS(MD%(PC,5)ROOMROOM1)(PC0ROOM1)ĺ:"THE BUBBLE OPENS.":AD%(23,4)ROOM:AD%(21,4)0:300JSROOM1ĺ:"YOU DON'T HAVE A PASSCARD.":100JS20390JS // OPEN DESKKTAD SAFE IS EMPTY."9IRAD%(4,4)0ĺ:"THE SAFE IS EMPTY."BI*S300UI4S // OPEN GATEI>SAD%(19,4)ROOMAD%(20,4)ROOMĺ:"WHAT?":100IHSAD%(19,4)ROOMAD%(11,4)1AD%(24,4)ROOM:AD%(19,4)0:300 JRSAD%(20,4)ROOMAD%(10,4)1AD%(25,4)ROOM:AD%(NOW WHAT YOU MEAN.":100}HR(AN$(6),4)"OPEN"ĺ:"WHAT IS THE COMBINATION?";A$:A$CB$ĺ:"THE SAFE DOES NOT OPEN.":300HR(AN$(6),4)"OPEN"AN$(6)"OPENED "AN$(6):AD%(5,4)ROOM::"YOU FOUND SOMETHING IN THE SAFE!":300IRAD%(4,4)0ĺ:"THE,21500FGlRROOM71AD%(26,4)ROOMĺ:"THE VAULT IS NOT LOCKED.":100GvR:"WHAT IS THE COMBINATION? ";A$:A$CV$ĺ:"THE VAULT DOES NOT OPEN.":100GRAD%(26,4)0:AD%(27,4)ROOM:300GR // OPEN SAFEHR(AD%(6,4)ROOMAD%(6,4)1)ĺ:"I DON'T K":"THE BLAST SPELL.":SA%(1)SA%(1)80:S2%(1)SA%(1):300MFO:"WHAT?":100dFR /// OPEN ROUTINEFR4900:X17:(S$,4)("VAULSAFEGATECLEABUBBIRONDESK",1(X1)4,4)Ă::"I DON'T KNOW WHAT YOU MEAN.":100GRX21100,21200,21300,21400,21400,21300:" ATOMIC DEVICE NUETRALIZATION"::X1NI:X;". ";IS$(X):::"PRESS ANY KEY TO CONTINUE"sENA$::300ENAD%(7,4)1ĺ:CB$:300EBO203909FLOAD%(4,4)1ĺ:"YOU DIDN'T GAIN MUCH BY READING THEM,":"BUT YOU DID STUMBLE UPON THE SECRET OF300D N /// READ ROUTINETD*N4900:S$"INSTRUCTIONS"S$"INSTRUCTION SHEET"20100jD4NS$"PAPER"20200D>NS$"PLANS"S$"SECRET PLANS"20300DzN:"I DON'T KNOW WHAT YOU'RE TALKING ABOUT!":100DNAD%(8,4)1ĺ:"YOU DON'T HAVE ANY ";S$:300dEN300CPF /// PRESS ROUTINE?CZF4900:S$"BLUE BUTTON"18100ZCxF:S$;" PRESSED.":100CF:"I DON'T KNOW WHAT YOU MEAN.":100CFAD%(5,4)1AN$(3)"MELTED SLAG"::"OKAY.":AD%(3,4)ROOMĺ"THE ATOMIC DEVICE MELTS!!":"IT IS DESTROYED!":300DF|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100yBBAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100B///SAY COMMAND#A>4900FA>S$"BLAST"V$S$:S$"":11000[A>S$"HEAL"12000qA>S$"POWER"13000A>S$"SPEED"14000A>(S$,4)"ROOM"R2((S$,5)):R2NRR20ī3500AB:"OKAY, '";S$;"'"::300AhB///READY A WEAPON.ArB4900HB THE NEW AGILITY FLOWING":" THROUGH YOU!"::300I@:///SMILE COMMANDm@::M1NM:MD%(M,5)ROOM15100@:MD%(M,14)15030,15040,15050@:MN$(M);" GROWLS AT YOU":15100@:MN$(M);" IGNORES YOU":15100@:MN$(M);" ";V$;"S BACK":15100A:M:OES THROUGH THE TUNNELS."::300`?"3RR95ĺ:"ALL OF YOUR HITS ARE HEALED."::MD%(0,13)0:300k?,314020?6///SPEED SPELL?6S3:11500:SUC300?6SPDMD%(0,10)MD%(0,10)2MD%(0,2):MD%(0,2)2MD%(0,2)3@6SPDSPD(25(1)10)::"YOU CAN FEELB>2A1NA:AD%(A,4)ROOMRAISE1:AN$(A);" VANISHES!":AD%(A,4)0W>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 ECHL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTSL=2S4:11500:SUC300=2RAISE0: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)=2M:RAISER3ROOM:3600:300IN AND YOU FORGET IT COMPLETELY."::SA%(S)0:F<.///HEAL SPELL_<.S2:11500:SUC300<.:MD%(0,13)ĺ"SOME OF YOUR WOUNDS SEEM TO CLEAR UP.":<.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0</DF0:7650:3003=2///POWER SPEL(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600Z;,SUCĺ:"NOTHING HAPPENED.":;-RL(100(1)1):RLS2%(S)S2%(S)S2%(S)2:SA%(S)SA%(S)2; -S2%(S)S2%(S)2;-3:*///BLAST SPELLH:+4900:,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T BLAST ";S$;"!"::100:,S1:11500:SUC300:,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::3007;,SUC0:SA%(S)RL(100WN!"::300T9&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):9120n9'///INVENTORY COMMAND:':"YOU ARE CARRYING THE FOLLOWING--":A00:A1NA:AD%(A,4)1ĺ" ";AN$(A);(" (READY WEAPON)",120(AMD%(0,9))):A0A01:A015ĺ:"(HIT AN.":AD%(A,4)M1:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100):A2PCM8#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)8#R3ROOM:3600:5050 9%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR O(S$,(MN$(M))1)47d#(S$,1)" "S$(S$,2):9060F7i#(S$)09500{7n#A1NA:(S$,(AN$(A)))AN$(A)AD%(A,4)190957x#:A22A23::"WHAT TO GIVE? ";S$:90657#:"YOU AREN'T CARRYING A ";S$;"!"::1007#AMD%(0,9)MD%(0,9)1I8#:"OKAY16:DR%(D):DR$DR$(DR%(D))::DK$D6>!R2DR%(6(1)1):R218510J6H!_6(#///GIVE COMMANDh62#A216<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM90506F#:A21A22::"WHO TO GIVE TO? ";S$:90206P#:"NOBODY HERE BY THAT NAME!"::1007Z#S$5(DFPCAD%(2,4)ROOM::"SOMETHING FALLS TO THE FLOOR."B5:W5@///FLEE COMMAND5JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::1005*!DR$"":8500:DR$"000000"ĺ:"THERE'S NO PLACE TO GO!!":1005/!3500$64!DK$;"READ EAMON.ROOMS,R";ROOM:DLY.":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%(DF,9)1:MD%(DF,4)MD%(DF,4)24DF0DIE1:2000:(DF,14):FD%(A)FD%(A)D2^3:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,76753" IS STILL IN GOOD":" SHAPE.":3" IS HURTING.":3" IS IN PAIN.":3" IS VERY BADLY INJURED.":4" IS AT DEATH'S DOOR,":" KNOCKING LOUD51A0:7635%2R286S1.5S:7635<2R296D2D:7635T2R2100D3D:7635^277002D20:D31D:D2D2(S(1)1)::D2D2AMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::2MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)77003AMD%1DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635\1DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:76351INC((100(1)1)MD%(OF,10)):MD%(OF,10)MD%(OF,10)2INC1DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":7635 2"A CRITICAL HIT!":R2(100(1)1):R2AD%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2::H0oFR9575500t" 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ĺ:0y" BROKEN WEAPON HURTS USER!"0~FR1007560,(1)1):HIT0:(RL5RLMD%(OF,10)MD%(DF,7))RL96HIT1G/VHIT7600_/`RL97ĺ"A MISS.":/e"A FUMBLE!":FR(100(1)1):FR3540(MD%(OF,9))ĺ" FUMBLE RECOVERED."::80jFR76ĺ" WEAPON DROPPED!":AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10).MD%(OF,10)0ı?.A1NA:AD%(A,4)ROOMAD%(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)174009/QMN$(OF);" ATTACKS ";MN$(DF):" --";:RL(100"-(100(1)1)MD%(0,10)73608-A2:EAAE1A1Z-AEAEA:MD%(0,10)MD%(0,10)Au-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 WEAPONj,pM1NM:(S$MN$(M)(MN$(M),(S$))S$(MN$(M),(S$))S$)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,EAAE300LA37AD%(7,4)0AD%(7,4)ROOM::"YOU FOUND SOMETHING ON THE BODY.":LK1:+VA40AD%(10,4)0AD%(10,4)ROOM::"YOU FOUND SOMETHING ON THE BODY.":LK1:+DK$;"READ EAMON.DESC,R";A100:A$:DK$::A$::LK1++X///ATTACK COMMAND+b4900;"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1?*A:LK300*ROOM16ĺ:"YOU FOUND A SECRET PASSAGE TO THE WEST!":S11:300*ROOM65AD%(11,4)0ĺ:"YOU SPY A KEY ON THE CLERK'S DESK!":AD%(11,4)ROOM*V%(ROOM)0:300*8 /// EXAMINE ARTM+,4)1RO1ĺ:"THE CLEAR BUBBLE OPENS.":LC0:300<)Z5020Q)p///LOOK COMMANDf)zLK0:S$""6040)A1NZ:(AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$)(AD%(A,4)ROOMAD%(A,4)1)İ6200)A:LK3000*A1NM:MN$(A)S$MD%(A,5)ROOMĺDK$U 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:50602)PAD%(2'///DROP COMMANDP'4900:(S$,15)"PASSCARD DEVICE"(S$,4)"CARD"5200c'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.":n(WT10MD%(0,1)ĺ"YOCARD DEVICE,":"BUT ";MN$(M);" IS NOT HERE.":300h&AD%(2,4)0ĺ:"THE PASSCARD DEVICE IS LOST.":300&:S$;" TAKEN FROM ";MN$(M);".":AD%(2,4)1:300&$///ROUTINE TO GET S$ IF NOT PREVIOUSLY SPECIFIED.&)S$""ĺ:C$(C);" WHAT";:S$:4900'.UP%rA2PC0%+%V$"TAKE"4040s%AD%(2,4)0AD%(2,4)ROOMĺ"THE PASSCARD DEVICE IS NOT HERE.":300%AD%(2,4)ROOMĺ:"PASSCARD DEVICE TAKEN.":AD%(2,4)1:3001&AD%(2,4)0M(AD%(2,4)):MM1:MD%(M,5)ROOMĺ:MN$(M);" HAS THE PASSAD%(A,2)2MD%(0,9)1300&$617000G$@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 2,4)14300##A1NA:(AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))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)::(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"4160 #(S$"PASSCARD DEVICE"S$"CARD"S$"PASSCARD")AD%(ON MONSTERSB!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)ROOM3900!8MD%(M,14)3670!BFRMD%(M,3):FRFR100FRFR((CH10)2)>"LMD%(AD%(19,4)ROOMAD%(20,4)ROOMAD%(21,4)ROOM)R20B R203500X ///SPECIAL MOVESj R299ī2000x R23490  R278S1R2R2:3500 :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100 R3ROOM:ROOMR2:3600 100 !///CHECK REACTIONS KILLED!"6 MD%(2,5)0ĺ:MN$(2);" MUST BE KILLED!"< Q ///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$3 D1ISSION DONEU^ OKDIE:MD%(1,5)0MD%(2,5)0AN$(3)"MELTED SLAG"AD%(4,4)1OK1:_c OKıh AN$(3)"MELTED SLAG"ĺ:"THE ATOMIC DEVICE MUST BE DESTROYED!"r AD%(4,4)1ĺ:"YOU MUST GET THE SECRET PLANS!"| MD%(1,5)0ĺ:MN$(1);" MUST BE (0,2):CH:A14:SA%(A):z 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"( DK$;"RUN MAIN HALL,S6,D1" T /// CHECK MMASTER DISKETTE, THEN":" HIT THE 'C' KEY) ";:16368,0P A$:A$"C"2520X A$ DIEĺDK$;"OPEN THE ADVENTURER,S6,D1":DK$;"DELETE THE ADVENTURER":2600 DK$;"OPEN CHARACTERS,L150,S6,D1":DK$;"WRITE CHARACTERS,R";REC:MN$(0):MD%(0,1):MD%XAMINES YOUR GOODS AND":"PAYS YOU ";I TP0:A1NA:AD%(A,4)12350r 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$: 2500: :5:"(INSERT EAMON 5)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":"THINGS, HE EEAPONS":"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)20801*AD%(WP%(W5),4)1:WN$(WDIE2500tW14:WN$(W)"NONE"::W21:A1NA:AD%(A,2)1AD%(A,4)1WN$(W2)AN$(A):WP%(W2)A:W2W21:AD%(A,4)0A:W262300J :5:"AS YOU START TO ENTER THE MAIN HALL,":"LORD WILLIAM MISSLEFIRE APPEARS AND":"TELLS YOU, 'YOU HAVE TOO MANY WILE,WAVE,SAY,READY,SAVE/ PRESS,READ,OPENF///DONE WITH GAMEZ2900:OKī210DIEĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":"(HIT ANY KEY TO CONTINUE) ";:16368,0:A$:DK$;"CLOSE":SPDMD%(0,2)MD%(0,2)2CV$"":X14:CV$CV$"-"(((1)500)):ICB$(CB$,2):CV$(CV$,2)X3600:PC3al100kv 37 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,SM(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):ROOM81~LS1:LD1:LB1CB$"":X13:CB$CB$"-"(((1)100)):+WZW2:WTWWZWBW21WZ: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:EAEA30n`NANZMD%(0,10)(EAAE)"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)::W248DK$;"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),WS%(A)::DK$;"CLOSE"S$DK$;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:MD%(A,A2):A2,A:DK$;"CLOSE"2,14)1DFM2:7500:M2200:M2:490+M2MNBTL(FD%(1)TD%(1)):NBTLĂMS\100t///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZlDK$;"OPEN EAMON.ARTIFACTS,L128":AN$(NA4),AD%(NA4,2)FD%(M2)MD%(M,13):490.YMD%(M,14)2490C^MD%(M,14)3390mhOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).25DFM2:7500:M2200:M2:490|M2:DF0:7500:490OFM#M21NM:MD%(M2,5)ROOMMD%(M ,///COMMANDS RETURN TO HERE/6NBTL500O@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%(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,8000,9000,10000,10000,11000,12000,13000,14000,15000,15000,16000,17000,30000'C3418000,20000,21000220% 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)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)" "A$(A$,2):U ARE ":" ";A$:X 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:% M: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$:"YOF EAMON ADVENTURE #25< -> NUCLEAR NIGHTMARE <-B\ BY JOHN NELSON bvREV. 9-30-84  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  50DK$(4):DK$"VERIFY GAME.PTRS":31000 2216,0:1                                   ՠŠΠΠŠԠҠҮŠӠŠӠ ԧŠԠΠӠԮՠŠ٠ΠΠΠҠĠŠȠҧΠӠŮŠӠӠΠĠӠĠȠҠΠӠŮՠŠŠŠƠΠȠΠҠĠҮŠӠϠŠŠΠƠŠͮՠŠΠΠĠͮŠӠǠӠΠՠĠάԠĠӠŠΠŠנծՠŠΠΠӠҮŠӠǠՠȠŠŠΠӠĮĠĠΠӠӮՠŠΠΠƧӠԬŠӠǠȠŠӠΠŮՠŠΠΠŠҠҠĠ٠ĠĠԠǠ٠ӠȠӠĮŠԠŠǠҮՠŠ̠ҠԮŠӠҠΠӠԠԮՠŠ̠ҠԮŠӠҠΠӠԠԮՠŠ̠ҠԮŠӠҠΠӠԠԮՠŠŠŠƠήŠӠŠԠŠԠŠՠРҠΠΠՠנͮŠŠӠΠӠԠŮՠŠΠΠĠͮŠӠǠӠΠՠĠάԠĠӠŠΠŠנծՠŠΠΠӠҮŠӠǠՠȠŠŠΠӠĠĠĠΠӠӮՠŠΠΠŠŠӠˠȠԮΠȠŠӠԠŠ٠ҠάՠנԠŠ٠ΧԠĠԮՠŠΠȠŠ̠ӧŠŠԠƠӠΠҮՠŠԠƠҠͮՠŠΠΠŠŠҠΠĠԮŠҠӠŠĠϠԠԠӺ̠˧ՠŠ٠٠̠ƠԠΠ٠٠ǮŠӠԠՠӠՠҠŠͮՠŠԠ̠ΠȠŠĠҠ̠ΠӠĮŠӠΠĠƠŠԬԠ٠ŠŠӮՠŠΠΠΠԠĠŠӮŠӠŠӠ̠ҧҠӠԮŠӠԠǠ٠ҮՠŠΠΠĠͮŠ̠ ΠӠԠĠԠŠӠӠŠӠծՠŠΠΠŠ˧ӠͮԧӠŠŠӠˡՠŠĠǠǠԠծŠӠǠĠӠˠԠӠŠӠǠ٠ϠǠΠծz #     ήӠ#ήàΠ͠HΠŠ ҠŠ ԠźήŠήӠή͠ӠήӠRTS IT INTO A SLOT IN THE ROCK":"NEXT TO THE COVERING.">Tth"YOU HEAR A SMALL HUMM AND THE COVER ":"OPENS."(4);"RUN MAIN PGM"TAKES YOU TO THE ENTRANCE OF THE":"UNDERGROUND COMPLEX."::"THERE IS A CLEAR BUBBLE COVERING THE":"ENTRANCE."6:"YOU HIT IT WITH YOUR BEST WEAPON, BUT"8J"IT DID NOT GIVE. TED, THE TECHNICIAN":"TAKES A SMALL DEVICE OUT OF HIS POCKET":"AND INSELP. HE SAYS":"HE WAS A FREE ADVENTURER BEFORE":"HE WENT INTO COLLEGE."v ::"PRESS ANY KEY TO CONTINUE";::A$: :"YOU DECIDE TO ACCEPT HIS OFFER, SINCE":"HE SAYS THAT YOU CANNOT GET INTO THE":"COMPLEX WITHOUT HIS PASSCARD." "p,:"HE ":"SETTLED, THEY WERE GOING TO COME OUT":"AND TAKE OVER." :"IT ALL SOUNDS PRETTY FISHY TO YOU (HOW":"COULD ONE WEAPON DESTROY EVERYTHING?)"::"BUT THE MAN DOES USE LONG WORDS AND":"SOUNDS VERY SINCERE.";H " HE OFFERS":"TO GO WITH YOU AND HE SYSTEM FOR A RICH BARON. HE":"WAS ONLY WORKING ON A SMALL PIECE OF ":"THE PROJECT, AND DID NOT KNOW HOW HIS":"DEVICE WOULD BE USED."; :"THE SCIENTISTS WERE TALKING ABOUT":"USING THE NEW DEVICE TO BLOW UP THE":"ENTIRE KINGDOM. WHEN EVERYTHING WASTHE DOCTOR TALKING":"WITH A COLLEAGUE.". PZ Z"THE COLLEAGUE'S NAME IS DR. ONSTEIN." d"HE IS A SPECIALIST IN SOME KIND OF":"UNKNOWN ENERGY." n::"PRESS ANY KEY TO CONTINUE";::A$ x "THE MAN THOUGHT HE WAS WORKING ON A":"SECURITYYSTERIA.":"YOU CALMED HIM DOWN ENOUGH TO GET A":"MORE COHERENT STORY FROM HIM. " 2:"HE CLAIMS HE IS A TECHNICIAN IN THE":"EMPLOY OF A MAD SCIENTIST BY THE NAME":"OF DR. APPLEBAUM."( F:"HE WAS CONTENTED TO WORK IN HIS LAB":"UNTIL HE OVERHEARD  D$(4)::"YOU WERE JUST LEAVING THE MAIN HALL":"ABOUT TO INVESTIGATE A RUMOR ABOUT A ":"POWERFUL NEW WEAPON THAT HAD BEEN ":"BUILT BY A LOCAL MAD SCIENTIST."R "AS YOU WALKED OUT THE DOOR OF THE ":"MAIN HALL, YOU MET A MAN NEAR H SAVE A";(8);"-> EAMON ADVENTURE #";NUM;" <-"c DK$;"RENAME EXEC,SAVE ALTERED BASE PROGRAM HERE"i  WAS":" DEVELOPED BY ";A2$ 2"NON-COMMERCIAL DISTRIBTION ENCOURAGED."::"TO USE THIS DISKETTE REQUIRES AN EAMON MASTER DISKETTE WHICH MUST BE BOOTED UP ON.": < NUM20- DK$(4):DK$;"DELETE A";(8);"-> EAMON ADVENTURE #";NUM;" <-":DK$;"**";38);"*****************************************": 12);"ADVENTURE #";NUM;" FOR"::7);"THE WONDERFUL WORLD OF EAMON"::"----------------------------------------" ("THE EAMON FANTASY GAMING SYSTEM WAS DEVELOPED BY DONALD BROWN":A$;" k5A$"NUCLEAR NIGHTMARE":NUM25:A2$"JOHN NELSON"=9qD$(4):D$"VERIFY GAME.PTRS":D$"RUN MAIN PGM"| 216,0 ::6 "*****************************************";38);"**";((38(A$))2));A$;((38(A$))2)((A$)2((A$)2)));"             ҠōΠׯŠ̍ΠΠůנ̮ΠׯŠ̍ԠԧήίӯũΠȯȠ̮ҠԩΠԧήίӯũΠίӠ̍ԠĠΠŠ̠ׯөΠΠůנ̮ԠҠ٠ήΠׯŠ̍ԠԧήίӯũΠίӠ̮ԠĠΠŠ̠ׯΩΠΠůנ̮ԠӯׯŠԧήԠĠΠŠ̠ůΩΠůנ̮ΠΠůנ٠ΠԧήԠĠΠŠ̠ӯשΠůנ̮Πůנ̮ԠĠΠŠ̠ӯשΠίӠ̮ԠĠΠŠ̠ӯשΠӯΠ̮ΠӯΠ̮ԠĠΠŠ̠ůΩԠŠŠŮԠĠΠŠ̠ůΩΠΠůנ̮     Ҡ͍čҠ΍     Π٠̠ĭĠͮŠŠŠŮΠŠͮΠŠȠĠӮΠ̠ԠҮΠԠԯԠŮΠ̠ԠҮΠŠԮ̍ΠԠίӠҮΠŠΠ͍ΠԠůנҮΠΠԯԠ̮ΠŠ٠ͮԠĠΠŠ̠ίũΠίӠ̮ԠĠΠŠ̠ίשΠŠ̠ԮΠίӠ̮ԠĠΠŠ̠ׯөΠҮΧӠ͍͠ӍΠίӠ̮ԠĠΠŠ̠ůөΠίӠ̮ԠԧήίӯũΠůנ̍ԠŠԠĠƠĠůנ̮ΠΠůנ̮ΠŠٮΠŠ ٠ͮՠŠΠŠȠĠӮΠŠҧӠ®ΠŠàԠͮΠŠӠͮԠҠ٠ήԠԧΠůׯΩԠĠΠŠ̠ӯũΠίӠ̮ΠӯΠ̮ΠŠήΠŠٮΠŠӠЮԠĠΠŠ̠ׯөΠҠӠԠĠΠŠҮίשΠŠΠΠϠĠ̮ίũԠĠΠŠ̮ׯөΠҠӠԠĠΠŠ̠ίũΠҮͧӠӮ Š΍           ԍ΍ҍĵķǠҍƍҲҳӍұijĴӠˍŠҍ̠ˍԍčōIJ̠ҍĠǠˍ΍ĠǠ٠ƍčǠ׍ōĠӍٍҍōԍΠԠҍΠōΠōҠōĠōΠōҠōŠōΠōҍ̠٠͠ҍōҠ΍ΠٍΠٍĠ΍ˍōҍԠӍ̠؍ĠōàōĠ΍ĠҍĠĵĠķĠǠҍĠƍĠҮĠҍĠӍĠҍĠijĠĴĠӠˍĠŠҍĠ̠ˍĠԍĠčĠōĠIJĠ̠ҍĠĠǍĠˍĠ΍ĠĠǍĠ٠ƍĠčĠҠ͍ĠčԠĠҠ΍ԠԠՠŠΠԯԠ̮ϠŠԠՠŠԧήՠŠԠĠΠŠ̮ՠϠԠҠȮՠŠΠȯȠ̮ϠŠȠӠĠǠԬĠϠȠӠĠǠԮՠŠԠĠΠŠ̮ՠϠȠҠԠ͠ŮՠŠΠůנ̮ϠŠȠՠҠĠӠĠǠĠǠǠ͠ŠŠҮՠŠΠԯԠ̮ϠŠԠӠĠΠŠ̮ՠŠԠĠΠŠ̮ՠϠԠҠȮՠŠΠӯΠ̮ϠŠȠĠΠŠ̮ՠŠΠӯΠ̮ԠӠǠҮϠŠԠՠŠҮԠӠ٠٠ĠӠĮՠŠԠĠΠŠ̮ՠϠȠҠԠ͠ŮՠŠΠΠůנ̮ϠȠŠԠĠԠՠΠŠӠΠŠ̮ՠŠԠĠΠŠ̠ůΩՠԠŠԠ٠ӮΠҠήՠŠԠŠŠŠϠŠŮϠŠȠՠΠŠŮ                                   Ġ ԍՠŠΠΠԯԠ̮ϠŠȠŠӠҠԠӠŠӠΠΠĠΠĠŠŠӠĠҧՠŠΠׯŠ̍ՠŠԠĠΠŠ̠ׯөՠŠΠίӠ̍ՠŠԠԧήŠȠ̠ӠΠԠ̮ՠŠΠȯȠ̮ŠӠҠϠŠԮՠŠԠԧΠΠŠ̮ϠŠȠՠŠĠΠŠ̮ՠŠΠׯŠ̍ՠŠԠҠ٠ήϠŠȠՠŠԧήՠŠΠΠԯԠ̮ϠŠԠՠΠŠҠ٠ĠϠŠԠŠӠԧҭήՠŠΠӯׯŠԧήՠŠΠΠԯԠ̮ŠԧΠϠŠԠĠϠŠԮՠŠԠĠΠŠ̠ׯΩՠŠΠȯȠ̮ϠŠԠŠ̠ӠŠԮՠŠԠĠΠŠ̠ӯשՠŠΠΠůׯΠԧήϠŠԠՠŠŠ̠ĠϠȮҠŠҠϠŠȠӠΠԠӠϠŧՠŠԠĠΠŠ̠ӯũՠŠԠȯԯԠԧҭήϠŠԠĠԠՠΠŠӠΠŠ̮ՠŠԠĠΠŠ̠ׯөՠŠΠŠӠЮŠŠԠƠ̠٠ǠӠ̠ҠŠͮŠ٠ԠӠȮՠŠΠŠٮŠӠĠӠΠŮŠ٠ԠӠԮՠŠΠŠήŠŠŠǠӬӠĠҠˮŠԠӠҮՠ٠ϠϠϠŠȮՠŠΠΠנĠ̮Š̠ӠԠĠȠ͠ŮՠŠΠԠӠϠŠҭԠӠĠΠŮŠŠǠӠǠŠͮŠ٠ӠŠԠĠԮՠŠԠĠΠŠ̮ϠŠȠՠŠԧήϠԠՠŠŠ͠Ġ̠ǮՠŠΠŠǠӠƠŠӮŠӠŠĠΠŠԠ̮Š٠ԠӠϠŠԮՠŠΠ͠ĠǠԠӠŠ͠ƠŠӠҮŭͮŠ٠ԠӠϠŠԮՠŠԠĠΠŠȠ̮ϠŠԠՠŠҠϠͮՠ٠ϠϠȠ͠ŮՠŠΠˠ͠ҠӮŠӠĠΠŠȠˠ̮ՠŠԠĠΠŠ̮Š̠Ӡ͠ԠϠȮϠŠԠӠҮՠŠԠԧήϠŠȠՠŠĠΠŠ̠ϠŠԮϠŠȠՠŠĠŠ̠ǠԮՠŠΠׯŠ̍ՠŠΠŠ͠ӮՠŠΠ٠ĠͮŠӠŠŠǠŠȠ̮Š٠ԠӠϠŠԢՠŠԠŠԠĠƠΠԯԠ̮ŠӠҠϠŠԮՠŠΠůנ̮ϠŠȠՠŠҠԠӠŧՠŠԠԧήŠ̠ӠȯȠҠԮՠŠΠȯȠ̮ϠŠȠՠŠҠ٠ήϠŠȠՠŠԧήՠŠΠŠȠĠӮŠŠӠĠŠȮŠ٠ԠӠϠŠȮՠŠΠ̠ˠ͠ȠӠƠӬĠŠӮŠ٠ԠӠϠŠԮՠŠΠŠĠƠŬŠͮŠŠĠӠԠՠΧԠĮŠ٠ӠԠĠԮՠŠΠΠԯԠ̮ϠŠԠӠҠĠЧՠŠԠҠ٠ήϠŠԠՠŠ͠ԠӠϠŧϠŠȠӠҠӠ٠ĠĠӧՠŠΠ̠͠ĠȠ̠ӠƠӮԠŠĠΠӠԠՠΧԠŠήŠ٠ԠӠϠŠԮՠŠΠ͠ȠӠƠ٠ŠԠӠȠŠӠΠͮՠŠǠƠ٠ŮŠ٠ԠӠϠŠԢՠŠΠ٠̠ǠŠŠŠǠӠ̠ҠŠŮΠΠŠҠӠǠ٧ՠŠΠӯΠ̮ŠӠϠŠԠԠӠӧĠҠϠŠȠԠӠàǧҠөՠŠΠȯȠ̮ŠӠҠϠŠԮՠŠΠ̠ԠҮŠӠŠȮŠ͠ӠŠԠĠϠŠӠΠٮՠŠΠŠ͠ԠӠŠҠˠӮŠ٠ԠӠȢՠŠΠԠԯԠҮϠŠԠՠŠŠͮϠԠՠŠԧΠŠӠҠӠȠ̮ՠŠΠ٠Š͠ԠӠϠŠӠΠԠӠϠŠՠĠŠǠέԠΠŮŠ٠ӠŠԠĠȮՠŠΠԠȠȠҮϠŠȠՠŠŠͮՠŠΠŠ̠͠ԠӠ٠٠ԮԠӠŠĠƠԮՠŠΠȯȠ̮ŠӠ̠ԠϠŠȮՠŠԠĠΠŠ̠ίũՠŠΠ͠ԠӠ٧ΠŠ̮ӠŠԠĠԮՠŠΠΠԯԠ̮ϠŠԠŠӠҮϠŠԠӠĠΠŠ̮ՠŠԠĠΠŠ̮ՠϠԠҠȮՠŠΠίӠ̮ϠŠȠĠΠŠ̮ϠŠȠӠŠ̠ԮՠŠΠŠ͠ȠŠŠԠĮŠӠΠΠŠ̠ԠӠ̠ԮŠӠŠȠĠȮՠŠԠĠΠŠ̠ίשՠŠԠĠΠŠ̮Š̠Ӡ͠ȠϠԮՠŠΠȯȠ̮ϠŠȠՠŠԧήŠӠĠΠŠ̠ϠŠȮՠŠ̠ΠٮՠŠŠΠٮՠŠŠˠˠȠӮՠŠҠƠŠĠԠԠŠΠĠ͠ŠΠٮՠŠ̠РƠҮՠŠŠ̠ŠŮՠŠ̠Ӡ̠خԠӠŠΠΠԠũĠԠΠԠӠǮԠӠǮՠŠŠҠȠӠĠРԧ٠ŠŠӡՠŠĠŠǠΠŠŠƠŠͮԠӠӠƠӬӠĠӠΠԮՠŠŠ̠ŠԠĠĠϠԠՠȠŠҠŮՠŠŠΠԠӠԠƠŮՠŠϠҠŭŠǠՠԠΠŠŠŮԧӠĠ ŠήՠŠΠ̠ŠͮŠŠӠƠӠҠǠӮŠ٠ԠӠϠŠԮՠŠŠŠŠŮՠ٠ϠȠϠŠŠҠԠϠŠΠ̮ՠŠΠ̠ĭĠͮŠ͠ӠĠȠŠǠӮԠӠ٠ԠΠŮՠŠΠ̠ԠҮŠ٠ԠӠϠŠԮՠŠΠԠԯԠŮŠӠҠϠŠԮՠŠԠҠϠŠȬԠԠӠĮĮՠ٠ԠҮՠŠŠ٠ΠŠǠΠϠՠ٠נϠȮՠŠŠ٠ΠŠǠΠϠՠ٠נϠȮՠŠŠҠŠΠϠՠנŠ٠ǠȮՠŠҠŠŠƠŠƠ٠Ƞ̮ԠӠĠ̠ԠԠŠϠŠӮ"z           !!! ! ! ! ! !!!!!!!!!""" " " " " "ՠŠҠŠŠƠŠƠ٠Ƞ̮ԠӠĠ̠ԠԠŠԮՠŠ٠ΠŬǠŠŠϠŠȮԠӠĮՠŠ٠ΠŬǠŠŠϠŠȮԠӠĮՠŠ٠ŠŮՠŠ̠®ՠŠ̠ΠԠĠĮӠŠǠήԠӠŠǠ̠ҧΠԮՠŠ͠ҮԠӠĠ٠ŠΠӠήՠŠ̠ ήՠŠ̠ȠĠ̠ŠήԠӠΠӠҮӠŠӠŬҠΠԠԠӠŠƠǮ