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