L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`;7);:A$: J:: AFTER SEARCHING A" "WEEK YOU FINALLY STUMBLE UPON A PLACE IN":"THE HILLS THAT MATCHES THE DESCRIPTIONS."::"THE AIR SEEMS CHARGED WITH MAGIC HERE." 8000 :"GOOD LUCK, ";NAME$;".":D$"RUN MAIN PGM" @::7);"PRESS ANY KEY TO CONTINUE""AND TO SATISFY YOUR OWN CURIOSITY, YOU":"DECIDE TO TRY TO FIND THIS PLACE ON YOUR":"OWN.": "SINCE YOU HAVE NO IDEA WHERE TO START ON":"YOUR QUEST, YOU SEEK AN ORACLE IN A NEAR":"TOWN. YOU FIND THE ORACLE AND GET SOME":"SKETCHY INSTRUCTIONS.ORS THAT SOME KIND":"OF GOD LIVED THERE AS WELL AS OTHER VERY":"POWERFUL CREATURES."::"IT WAS SAID THAT SOMEONE HAD GONE IN AND" "RETURNED WITH TWICE HIS FORMER STRENGTH":"AND AGILITY." 8000` "DETERMINED TO INVESTIGATE THESE RUMORS ":L1);ADV$;L2)::/ d /// PRINT DESCRIPTION n"YOU WERE TALKING TO SOME MEN IN THE MAIN":"HALL AND YOU HEARD OF A NEW AND STRANGE":"PLACE THAT SOUNDED INTRIGUING. NOBODY IN":"THE GROUP HAD EVER ACTUALLY GONE THERE," x"BUT THEY HAD HEARD RUM THE GAUNTLET 2 BY JOHN NELSON8? M 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 (   C2:CC1CC0:AD%(E,4)0::"THE MACHINE DISINTEGRATES!"BMQ300DL~OCHCH((1)9):20900JLQ:"YOU ARE KNOCKED BACK BY A MAGICAL JOLT!"LQCCCC2:CC1CC0:AD%(E,4)0::"THE MACHINE DISINTEGRATES!"LQ300H((1)6):20900L~OCHCH((1)9):20900LQ:"YOU ARE KNOCKED BACK BY A MAGICAL JOLT!"9MQCCCD%(0,2)((1)6):20900?KOMD%(0,2)MD%(0,2)((1)9):20900WKLO /// CHAR ENHANCEKQOE6:CC2ĺ:"THE MACHINE DOES NOTHING.":100KVOCH23CH24:20900K`OCH18CHCH1:20900KjOCH13CHCH((1)4):20900KtOCH6CHCH((1)6):20900z#?      ήӠήàeΠ͠G ŠԠ̠Ϡ ̠Ϯà!ŠήŠήӠ ή͠Ӡ ήӠ @@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys2$'F.'*** WRITTEN BY^8'*** LYNELL JACKSONxB'*** JANUARY 14, 1987~L'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>30 PM PST MONDAY-SATURDAY." $#""P#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND" #"MOST UP TO DATE PUBLIC DOMAIN SLIBRARY"6 Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."Y d#"511-104 ENCINITAS BOULEVARD"t n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:TINUE >" l24:7110! vGO$:' - D TB%(21(PR$)2)S TB%:PR$;Y _ (#| +#<*** DATA LOCATION ***> /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE APHIC"2 16297,1:16300,1:16301,1:16304,1< 7010B J :W I1ND%i PR$:I:7110p Iz 7010  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CON*>  GF%11110 :O PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"] 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRCING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"ADVENTURE 31":* NAME OF THE PROGRAM TO RUN NEXT   <*** MAIN PROGRAM ** <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fp THE GAUNTLET <-E_ BY JOHN NELSON ex2DK$(4):1000d///MAIN LOOP. FIRST GIVE ROOM DESC, THEN GET COMMANDn5 xSPDSPDSPD1:SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)2MD%(                !!! ! ! ! ! !!!!!!!!!""" " " " " """"""""" ՠŠàǠŠΠŠĠĠԠƠ٠ӠΠŠҮŠӠǠŠӠӠՠŠҮŠӠӠŠӠƠήՠŠΠΠǠҮŠӠŠ٠ҠŠĠƠԮՠ٠ŠŠȠӠٮՠŠǠΠΠŠˠĠǠӠӠˮŠӠӠŠӠ ŠҠ͠îՠŠנŠĠΠӬĠՠŠǠŠĠĠӠՠ٠ϠŠƮŠ٠ҠӠǠΠŠΠՠŠάԠŠ٠ŠĠנŠӠĠԠծՠŠȠҠΠҠҠĠǠŠĠˮŠӠǠŠ̠ԠӠΠՠ٠ĠΠŠ̮ՠŠ̠̠ϠӠŠӠĠҠŠӠŠĠ׬ӠϠՠŠӠŮՠŠҠΠǠȠŠӠȠӮŠӠԠҠԠĠӠӠŠӠҬǠƠŠŮŠӠŠӠĠϠŠ٠ԠԮԠՠ̠ŠŠŬŠŠӠϠ٠Ԯ̠ĠנӠŠծŠӠŠ̠ԠՠàӠƠՠ̠ΠŠ ƠàϠͮՠŠȠǠԠԠӠԠŠȠĠǠԠծ٠ՠԠŠҠԡՠŠĠŠԠԠӠԠŠȠĠǠԠծ٠ՠԠŠҠԡՠŠĠǠԠԠӠԠŠȠĠǠԠծ٠ՠԠŠҠԡ368,0:A$:4DK$"CLOSE":SPDMD%(0,2)MD%(0,2)2BDIE2500W14: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 MAIN HALL,":"LORD WILLIAM2:MD%(3,14)2l100$v 25 NORTH,SOUTH,EAST,WEST,UP,DOWN,GET,TAKE,DROP,LOOK,EXAMINE,ATTACK,FLEE,GIVE,INVENTORY,BLAST,HEAL,POWER,SPEED,SMILE,WAVE,SAY,READY READ,PRESS///DONE WITH GAME :"(HIT ANY KEY TO CONTINUE) ";:1630`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%(96):ROOM1~MD%(8,14)2:MD%(9,14)2:MD%(11,14)W2):AD%(NA,8)WS%(W2)::W24.8WZW2: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:EAEA,WS%(A)::DK$;"CLOSE"s$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%(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,ACNW15:WN$(NW),WT%(NW),WO%(NW),WD%(NW),WP%(NW):A14:WN$(A),WT%(A),WO%(A),WD%(A)FACTS,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:::"WELL, WILL YOU PLEDGE THIS?";A$:550sX:"THEN YOU SHALL HAVE YOUR REWARD.":MD%(0,1)24:MD%(0,2)24:CH24:|100///INITIALIZE DATADK$;"OPEN EAMON.DESC":DK$;"READ EAMON.DESC":NR,NZ,NE,NM:DK$;"CLOSE":NANZDK$;"OPEN EAMON.ARTIF COMBAT AND":"TREASURES FOR AS LONG AS YOU SHALL LIVE?":"";A$l&(A$,3)"YES"A$"Y"(A$,3)"AYE"6000(A$,1)"N"ĺ:(34);"THEN I CAST YOU OUT OF MY GRACE.":MD%(0,1)MD%(0,1)2:MD%(0,2)MD%(0,2)2:CHCH2:)::"A SIMPLE YES OR NO WILL DO."OUSLY POWERFUL FORCE AND":"HELD SEVERAL FEET OFF THE GROUND.":"A VOICE SPEAKS TO YOU IN UNDERSTANDING":"TONES AND SAYS:"::(34);"DO YOU PLEDGE TO USE YOUR SWORD FOR THE":"GOOD OF MANKIND, AND GIVE UP ALL QUESTS"@"FOR THE SIMPLE PLEASURES O25DFM2:7500:M2200:M2:4906|M2:DF0:7500:490?OFMM21NM:MD%(M2,5)ROOMMD%(M2,14)1DFM2:7500:M2200:M2:490M2NBTL(FD%(1)TD%(1)):NBTLĂM100>:"AS YOU ENTER THE ROOM YOU ARE GRIPPED ":"BY SOME TREMENDMRĺ: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%(M,13):490YMD%(M,14)2490^MD%(M,14)3390hOFM:TD%(3)MD%(0,1)DF0:7500:490rM21NM:MD%(M2,5)ROOMMD%(M2,14)3(1).000,20000,19000/,///COMMANDS RETURN TO HERE1ROOM15CNTCNT1:CNT3ĺ:"THE BIRD DROPS YOU INTO SOME BRUSH.":R229:35006NBTL500@M1NM:MD%(M,5)ROOM490JM2MD%(M,14)(MD%(M,14)2):MRFD%(M2)TD%(M2)(41(1)20){TMD%(M,4):"HUH? I ONLY UNDERSTAND THESE COMMANDS-- ";:C1NC:C$(C);20(C$(C)));::::210z C$(C)S$S$V$:V$C$(C)"C3000,3000,3000,3000,3000,3000,4000,4000,5000,6000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,15000,16000,17000,18' CZ$A$:A2(A$):(A$,A,1)" "ĂE V$(A$,A1):S$(A$,A1)f (S$,1)" "S$(S$,2):260 C16:(C$(C),(V$))V$290 :F0:A7NC:C$(A)V$CA:290 (C$(A),(V$))V$FF1:CA:F1275 :F290 V$"PRAY"C26:290] D%(A,9)1:E A:AANA:AD%(A,4)ROOMĺ"YOUR ";AN$(A)" IS HERE."W A:V%(ROOM)1 NC24:AD%(4,4)ROOMAD%(5,4)ROOMAD%(6,4)ROOMNC25 :" YOUR COMMAND?";A$ (A$,1)" "A$(A$,2):220 A$""A$CZ$:(37):17:A$ A$""275"READ EAMON.DESC,R";A300:A$:DK$::A$::LK1>*A:LK300R*V%(ROOM)0:300i*X///ATTACK COMMANDs*b4900*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 ,)GOLDGOLD((A$)):GOLD0(A$)0CC6D)(A$)GOLD20CC6Y)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$;300>(A1NA:AD%(A,4)1ĺAN$(A);" DROPPED.":AD%(A,4)ROOMP(A:WT0:5060d(P /// DROP GOLD}(Z(S$)0A$S$:5240(d:"YOU HAVE ";GOLD;" GOLD PIECES.":"HOW MANY DO YOU WANT TO DROP?";A$:(A$)GOLD5220(n(A$)1ī300)xCC((A$)100)";S$::100B'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)1MD%(0,9)1(REVIOUSLY SPECIFIED.;&)S$""ĺ:C$(C);" WHAT";:S$:4900A&.V&///DROP COMMAND`&4900&(S$)0(S$,4)"GOLD"5200&S$"ALL"5100 'A1NA:(AN$(A)S$(AN$(A),(S$))S$(AN$(A),(S$))S$)AD%(A,4)1Ă::"YOU AREN'T CARRYING A 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%r&$///ROUTINE TO GET S$ IF NOT P$(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)::AD%(A,2)2MD%(0,9)1300$617000%@R100FRFR((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#4900#S$"ALL"4160]$A1NA:(AN$(A)S"100,"///CHECK REACTIONS ON MONSTERSc"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):FRF! R203500%! ///SPECIAL MOVESl! R299ĺ:"YOU SUCCESSFULLY RIDE OFF INTO THE":" SUNSET.":2000z! R23490! :"YOU CAN'T GO THAT WAY!":V%(ROOM)0:100! R3ROOM:ROOMR2:3600! ROOM15CNT0! ROOM13V%(30)1:V%(31)1:V%(29)1R":MN$(0):REC:DK$;"CLOSE"; T DK$;"RUN MAIN HALL,S6,D1"P ///MOVE COMMAND NBTLS$"FLEE"ĺ:"YOU CAN'T DO THAT WITH UNFRIENDLIES ABOUT!"::100 D16:(V$,1)("NSEWUD",D,1)Ă! DK$;"READ EAMON.ROOMS,R";ROOM:D21D:R2::DK$N CHARACTERS,L150,S6,D1":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 ADVENTURE :"(HIT ANY KEY TO CONTINUE) ";:A$:3 2500 :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":2900g DK$;"OPEO 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 GOLDGOLDTP:GOLD0GOLD0(B):W51W5W21W5(W5)2080k*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::5:"AS YOU DELIVER YOUR TREASURES T 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;") " (37):23:A$:W5(A$ BLAST ";S$;"!"::100/:,S1:11500:SUC300d:,:"DIRECT HIT!"::S6:D1:DFM:A0:7635::300:,SUC0:SA%(S)RL(100(1)1):SUC(((RLS2%(S))(RL5))(RL95)):RL10011600:,SUCĺ:"NOTHING HAPPENED.":;-RL(100(1)1):RLS2%(S)S2%(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$::A009$':3009*///BLAST SPELL9+4900:,M1NM:S$MN$(M)MD%(M,5)ROOMĂ::"YOU CAN'T90;8#:MD%(0,13)0:SA%(2)90:S2%(2)90:R3ROOM3600:50508%(S$)GOLDĺ:"YOU AREN'T CARRYING THAT MUCH GOLD OF YOUR OWN!"::3008&%GOLD(GOLD(S$)):MD%(M,14)0:MD%(M,3)MD%(M,3)(1(S$)100):91208'///INVENTORY COMMAND9':"YOU ARE 9)A:MD%(M,10)MD%(M,9)AD%(A,5):MD%(M,4)2MD%(M,4)G7#M8A3ī9200_7#R3ROOM:3600:50508#:"WHEN YOU HAND THE ORB OVER TO THE WIZARDHE ACCEPTS IT GRACIOUSLY AND WAVES HIS":"HAND IN FRONT OF YOUR FACE.":X14:SA%(X)SA%(X)2:SA%(X)90SA%(X)AN$(A)AD%(A,4)19095E6x#:A22A23::"WHAT TO GIVE? ";S$:9065s6#:"YOU AREN'T CARRYING A ";S$;"!"::1006#AMD%(0,9)MD%(0,9)16#:"OKAY.":AD%(A,4)M1:MD%(M,14)0:MD%(M,3)MD%(M,3)(1AD%(A,1)100)47#MD%(M,10)0MD%(M,9)1MD%(M,A21;5<#M1NM:(S$,(MN$(M)))MN$(M)MD%(M,5)ROOM9050k5F#:A21A22::"WHO TO GIVE TO? ";S$:90205P#:"NOBODY HERE BY THAT NAME!"::1005Z#S$(S$,(MN$(M))1)5d#(S$,1)" "S$(S$,2):90605i#(S$)095006n#A1NA:(S$,(AN$(A)))6:S$C$(D)V$S$:S$"FLEE":3000(4^k4*!DR$"":8500:DR$"000000"ĺ:"THERE'S NO PLACE TO GO!!":100u4/!350044!DK$;"READ EAMON.ROOMS,R";ROOM:D16:DR%(D):DR$DR$(DR%(D))::DK$4>!R2DR%(6(1)1):R2185104H!4(#///GIVE COMMAND52#%(AJ,4)DF1AD%(AJ,4)ROOM3(: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)23<DF0DIE1:20003:3@///FLEE COMMAND3JNBTLĺ:"THERE'S NOTHING TO FLEE FROM!"::100"4TD1 IS HURTING.":%2" IS IN PAIN.":F2" IS VERY BADLY INJURED.":z2" IS AT DEATH'S DOOR,":" KNOCKING LOUDLY.":2MN$(DF);" IS DEAD!"::AMD%(DF,14):FD%(A)FD%(A)MD%(DF,1)MD%(DF,13)D2:MD%(DF,5)03A2DFNZNM:AD%(A2,4)ROOM:AJ1NA:ADMD%(DF,8):D21ĺ" BLOW BOUNCES OFF ARMOUR"::j1MD%(DF,13)MD%(DF,13)D2:MD%(DF,13)MD%(DF,1)77001AMD%(DF,14):FD%(A)FD%(A)D21:MN$(DF);:(MD%(DF,13)5MD%(DF,1)1)7655,7660,7665,7670,76751" IS STILL IN GOOD":" SHAPE.":2"D%(OF,10)2INCG0DMD%(OF,11):SMD%(OF,12):A1:RL5ĺ"A HIT!":76350"A CRITICAL HIT!":R2(100(1)1):R251A0:76350R286S1.5S:76350R296D2D:76350R2100D3D:76350770011D20:D31D:D2D2(S(1)1)::D2D2A%(MD%(OF,9),5):MD%(OF,9)1:MD%(OF,4)MD%(OF,4)2:(1).5ĺ:a/y" BROKEN WEAPON HURTS USER!"r/~FR1007560/DMD%(OF,11):SMD%(OF,12):DFOF:A1:7635/DMD%(OF,11)2:SMD%(OF,12):DFOF:A0:76350INC((100(1)1)MD%(OF,10)):MD%(OF,10)M(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::.oFR957550>/t" WEAPON BROKEN!":AD%(MD%(OF,9),4)0:MD%(OF,10)MD%(OF,10)AD10)AD%(A,5):MD%(OF,4)MD%(OF,4)2:A-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.":(.e"A FUMBLE!":FR(100(1)1):FR3540)2:M1NM:MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0L,M:R3ROOM:3600:300t,///MONSTER TRIES TO PICK UP WEAPON,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,WEAPON READY!"::1004+OF0:DFM:7500:HIT7360b+INCW2AD%(MD%(0,9),6):WA%(W2)WA%(W2)2s+EAAE300+(100(1)1)MD%(0,10)7360+A2:EAAE1A1+AEAEA:MD%(0,10)MD%(0,10)A+MD%(DF,14)1DF03002,MD%(DF,3)MD%(DF,3D%(0,1)((1)9):20900/JN /// AGIL ENHANCEaJNE5:CC2ĺ:"THE MACHINE DOES NOTHING.":100JNMD%(0,2)23MD%(0,2)24:20900JNMD%(0,2)18MD%(0,2)MD%(0,2)1:20900JOMD%(0,2)13MD%(0,2)MD%(0,2)((1)4):20900KOMD%(0,2)6MD%(0,2)M ENHANCE:INE4:CC2ĺ:"THE MACHINE DOES NOTHING.":100^INMD%(0,1)23MD%(0,1)24:20900INMD%(0,1)18MD%(0,1)MD%(0,1)1:20900INMD%(0,1)13MD%(0,1)MD%(0,1)((1)4):20900INMD%(0,1)6MD%(0,1)MD%(0,1)((1)6):20900JNMD%(0,1)M.";(34):MD%(0,11)2:MD%(0,12)8)HjJ3002HN300BH N /// PRESSH*N4900:S$"BUTTON"ĺ:"I DON'T KNOW WHAT YOU MEAN.":100H4NAD%(4,4)ROOM20100H>NAD%(5,4)ROOM20200HHNAD%(6,4)ROOM20300HzN:"I DON'T SEE ANY ";S$;".":100IN /// HARD40ī275GLJFP10ī275GVJMD%(0,13).55MD%(0,1)ĺ:"YOU HEAR A BOOMING VOICE SAY:":(34);"TRY A LITTLE HARDER, VALIANT ONE.":MD%(0,13)MD%(0,13)1:100 H`JMD%(0,13)0::"A BOOMING VOICE COMES OUT OF NOWHERE ":"AND SAYS:":(34);"YOU WILL BE HELPEDTH THIS MACHINE MAY ENDANGER":15)"YOUR LIFE."::13);"THE MANAGEMENT"::210dF I /// SIGN IN 12FI:"NATURE LOVERS ONLY BEYOND THIS POINT":13);"THE MANAGEMENT"F I:210F.J300F8J /// WEARGBJFTMD%(0,1)MD%(0,2):FPMD%(0,11)MD%(0,12):FT:"TAMPERING WITH THIS MACHINE MAY ENDANGER":15)"YOUR LIFE."::13);"THE MANAGEMENT"::210rEDH /// SIGN IN 8ENH:"TAMPERING WITH THIS MACHINE MAY ENDANGER":15)"YOUR LIFE."::13);"THE MANAGEMENT"::210EH /// SIGN IN 10OFH:"TAMPERING WI);"LEAGUE BY DROPPING YOUR GOLD HERE":"ALL DONATIONS ARE APPRECIATED BUT ARE ":8);"NOT MANDATORY. (H.A.L.)"D,G:"THANK YOU"D6G:210D|G /// SIGN IN 5DG:"IF YOU DID NOT GIVE, T-H-H-H-Z-Z-Z":" TO YOU!"::210DG /// SIGN IN 6^EG,18400,18500,18600,18700,CF /// SIGN IN 1CF:" NOT RESPONSIBLE FOR DEATH OR INJURY":11);"BEYOND THIS POINT":8);"ENTER AT YOUR OWN RISK."::13);"THE MANAGEMENT"CF:210CG /// SIGN IN 4oD"G:" DONATE TO THE HANDICAPPED ADVENTURERS":3%(A,8)BFF:"READIED."::300.BPF /// READbBZF4900:S$"SIGN"ĺ:"I DON'T UNDERSTAND.":100BdFROOM1ROOM4ROOM5ROOM6ROOM8ROOM10ROOM12ĺ:"I DON'T SEE ANY SIGN HERE.":100BnFROOM118100BxFROOM518300CFROOM2100,18200EADY A WEAPON.ArB4900cA|BA1NA:AN$(A)S$AD%(A,4)1Ă::"YOU AREN'T CARRYING IT!"::100ABAD%(A,2)2ĺ:"THAT ISN'T A WEAPON!"::100B///SAY COMMAND @>4900C@>S$"BLAST"V$S$:S$"":11000X@>S$"HEAL"12000n@>S$"POWER"13000@>S$"SPEED"14000@>((S$,11)"PUT ME DOWN"(S$,4)"DOWN"(S$,7)"GO DOWN")ROOM15R242:3500@B:"OKAY, '";S$;"'"::300AhB///R%(M,14)2MD%(0,1)20MD%(0,11)MD%(0,12)9MD%(0,8)5MD%(M,14)3:FLAG1:MD%(M,3)100w?:MD%(M,14)15030,15040,15050?:MN$(M);" GROWLS AT YOU":15100?:MN$(M);" IGNORES YOU":15100?:MN$(M);" ";V$;"S BACK":15100?:M:?;FLAGİ3600@;3>6S3:11500:SUC300U>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>:FLAG0>::M1NM:MD%(M,5)ROOM15100V?:MD(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=2ROOM15CNT5:300="3MD%(0,13)0ĺ:"ALL OF YOUR WOUNDS ARE HEALED."::MD%(0,13)0:300=,314020=6///SPEED SPELL WOUNDS SEEM TO CLEAR UP.":Z<.MD%(0,13)MD%(0,13)(10(1)1):MD%(0,13)0MD%(0,13)0n</DF0:7650:300<2///POWER SPELL--RE-WRITE THIS SECTION FOR YOUR OWN SPECIAL PLOTS<2S4:11500:SUC300_=2RAISE0:M1NM:M2NZNMM:AD%(M2,4)ROOMAD%S)S2%(S)2:SA%(S)SA%(S)2/; -S2%(S)S2%(S)25;-;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)ĺ"SOME OF YOUR