' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 ˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `LĦ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- (  ՠ@跻~!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`ՊЀР* @A@AЪЀРРՀРтЀРЀЀЀРԪԂЀР"***@(@*@*ШՂЪՂЀՊРՀ*A**A(P P AЀЀРЀЀЀРԪՊ"***@(@*@*РՂЪԀЀՂРՀ*A**A(P P AԠЪРЀЀЀЪРЀЀЀՂԪЀРՀժРՀԀЀՂР@A@ P AՠЪРЀЀЀРЀЀЀՊԪЀРՂժ";:3720#%tX;") POLEARM ";:3720:%~X;") THRUSTING ";H%"WEAPON"O%Xw%:"SELL WHICH ONE (# OR 0=NONE)?";%X$:(X$)48(X$)573750%(X$)X3750%(X$)0ė:2:3090%X(X$):WT%(X)3800&::"YOU DON'T HAVE THAT WEAPON"$:D$;"OPEN CHARACTERS,L211"j$.GOLDGOLDP:XREC::"ENJOY YOUR NEW WEAPON":WTWT(P10)WW%(TP):9590x$8::3090$BX14:WT%(X)03740$LWT%(X)3670,3680,3690,3700,3710$VX;") SLASHING ";:3720$`X;") DISTANCE ";:3720%jX;") BLUNT X$("GFP",Q,1)ĂQ:3540># PP(BPBP(Q1)(BP2)(Q3))P# PGOLD3590{# :"YOU HAVE ONLY ";GOLD;" GP"::3090#WT%(XI)TP:WO%(XI)10(2Q):WD%(XI)1:WS%(XI)SIDE#AD%(X0,4)1:AD%(X0,5)WO%(XI):AD%(X0,6)TP:AD%(X0,7)1:AD%(X0,8)SIDE$D,B,P OR T)?";"z X$:TP15A" X$("SDBPT",TP,1)ĂTP:3450b" TP3480,3490,3500,3510,3520y" BP25:SIDE6:3530" BP40:SIDE6:3530" BP20:SIDE4:3530" BP25:SIDE5:3530" BP50:SIDE8" :"QUALITY (G,F OR P)?";" X$:Q13#P(25)10));P(25);"...";E!> (P(252)100)(P(252)10));P(252)d!H "THRUSTING....(1D8)....";!R (P(100)100)(P(100)10));P(100);"...";!\ (P(50)100)(P(50)10));P(50);"...";!f (P(25)100)(P(25)10));P(25)"p :"SELECTION (S, ANY KEY TO CONTINUE";:A$.a::(4)"PR#6"1 CRASH,"::"AND THE AIR IS SPLIT BY A BLINDING BOLT"::"OF LIGHTENING!! A DEAFENING VOICE":`"BELLOWS, 'I TOLD YOU NOT TO DO THAT!!!'":`:"A GIGANTIC HAND REACHES DOWN FROM THE"::"SKY AND CRUSHES YOU LIKE A BUG!!!"a24:7:"PRESS ->??w- -3-M:w -N --66vIMM13M13M1s-N M13M13MN IM13M1n >7MqM1s  3MqJM1s 6vI---.-uJ--;.>.>.-u5rVw-->.>.>*-u7RMJ?)-n) nM13MI??MI-)3 >n-uNI  VI @@C?.- ??N -5?*m?7M13-u J)36Ms-N -3M13M13-u ---n?76--NJ--n?76NII)-6n)-uMM13M1??n n N )66-N I166s-N Mn7 n N 666--NMM17 n n NIM13m1n)n N )3M13M1s-N -3M?76NI )3M13 mN -3M?7 n N )3?RI NIIVI 5)3M5.M-Nm >6-N))sI.-u-->N-N>I> 3--v 5--.-6s-N -޻M:?n -N.--6NI))3M?M1s-N.)3M1?w *uIRR >RNIN---ޛ-- *NI.)s N J M13--n N -3M &7IIIN" 66N inR>i----nN> ? ? ?wqImmw M:N)N-)n mN 6R 6N5 6N --NN n:?w1VIJN7RI:((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPd +2<FWbisz#.9DOUgx&7EWhx $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?``` Q` Q``&` `` .``` 8``0` `L<``aai ``9`H8 h``` ````?aaaa(޽aa(`%ЀРЪ"BLUNT........(1D4)....";H  (P(40)100)(P(40)10));P(40);"...";v (P(20)100)(P(20)10));P(20);"...";  (P(10)100)(P(10)10));P(10) "POLEARM......(1D5)...."; * (P(50)100)(P(50)10));P(50);"...";!4 (P(25)100)( (P(25)100)(P(25)10));P(25);"...";Y (P(252)100)(P(252)10));P(252)x "DISTANCE.....(1D6)...."; (P(80)100)(P(80)10));P(80);"..."; (P(40)100)(P(40)10));P(40);"..."; (P(20)100)(P(20)10));P(20) b :2:(XA)3940l XS3650?v XI0:X14:WT%(X)ĂX:3210H XIXU XI3230 "FIRST SELL ONE OF YOUR WEAPONS"::3090 " DMG GOOD FAIR POOR" "SLASHING.....(1D6)...."; (P(50)100)(P(50)10));P(50);"...";,O10C25 "DO YOU WANT ARMOR OR WEAPONS (A/W/Q)?";J X$:X$"A"3120[! X$"Q"4250m& X$"W"31000 :XA0:X$"A"XA1: :"WILL YOU BUY, SELL OR QUIT (B,S OR Q)?";D X$:X$"Q"4250N X$"B"X$"S"3140X :XS0:X$"S"XS1 9500:) === ARMS AND ARMOUR ===4 ::2b "AS YOU ENTER THE GUILD WEAPONSHOP, THE" "WEAPONMASTER COMES OVER AND GREETS YOU" "WARMLY. 'I BUY AND SELL THE FINEST YOU" "HAVE EVER SEEN!'": C2CH(11(1)5):C2C2(C20):RTI.( 5).....(-60%)"9 " SHIELD.......(+1).....(- 5%)"D 22:7j "(HIT ANY KEY TO CONTINUE)";:X$} :1:AC0:AE0 "YOU WILL START WITH 200 GOLD PIECES" BANK0:GOLD200:WZ0:WT20:PF0 X14:WT%(X)0:WO%(X)0:WD%(X)0:WS%(X)0:X HAVE NO ARMOUR EXPERTISE"Fd "BUT THE ARMOUR TYPES AVAILABLE ARE:":qn " PROTECTION ADJUSTMENT"x " NONE.........( 0).....(- 0%)" " LEATHER......( 1).....(-10%)" " CHAINMAIL....( 2).....(-20%)" " PLATE......." BLUNT (MACE).... 20%"B " POLEARM (SPEAR)... 10%"f( " DISTANCE (BOW).....-10%"2 " SLASHING (AXE)..... 5%"< " THRUSTING (SWORD)... 0%"F WA%(1)20:WA%(2)10:WA%(3)10:WA%(4)5:WA%(5)0P 12Z "INITIALLY YOU ";(CH0)(CH10));CH 7J "DO YOU WANT THIS CHARACTER (Y OR N)?";_ X$:X$"N"2430q X$"Y"2520 === FINISH THE REST OF THE CHARACTER === ::2 "YOU HAVE INITIAL ABILITIES WITH THE 5" "WEAPON TYPES AVAILABLE:": === COMPUTER ALLOCATION ===)~ ::1T "THE COMPUTER HAS GENERATED FOR YOU:" HDD(8)D(8)D(8):AGD(8)D(8)D(8):CHD(8)D(8)D(8) 3 "STRENGTH = ";(HD0)(HD10));HD "DEXTERITY = ";(AG0)(AG10));AG "CHARISMA = :" CHARISMA ?";X$:CH01 (X$)12330N$ X1(X$):X0$(X$,X,1)j. (X$)48(X$)5723708 CH(CH10)((X0$)48)B XL CH4CH422200V (HDAGCH)502410` :" YOU DON'T HAVE THAT MANY POINTS!":9700:2110j 2540t X,1) (X$)48(X$)572250;HD(HD10)((X0$)48)BXWHD4HD422200z:" DEXTERITY ?";X$:AG0(X$)12270X1(X$):X0$(X$,X,1)(X$)48(X$)572310AG(AG10)((X0$)48) X AG4AG422200ATS"4z" OF AGILITY. USED IN COMBAT."c" CHARISMA - ABILITY TO PERSUADE OTHERS"" TO YOUR DESIRES."" ALL MUST HAVE FROM 4 TO 42 POINTS":" STRENGTH ?";X$:HD0(X$)12210X1(X$):X0$(X$,"2080'4 === PLAYER ALLOCATION ===0>:1XH"YOU HAVE 50 POINTS TO DISTRIBUTE"R"BETWEEN THREE CHARACTERISTICS:":\" STRENGTH - ABILITY TO DO DAMAGE. ALSO"f" USED AS HIT POINTS."p" DEXTERITY - ABILITY TO PERFORM FE000,7000,800015607 === CREATE CHARACTER ===@:1o"WOULD YOU PREFER TO ALLOCATE POINTS TO ""YOUR CHARACTER OR SHOULD THE COMPUTER" "DO IT RANDOMLY FOR YOU (A OR R)?";X((78)(79)256) X$:X$"R"2430*X$"A)^"3) GUILD WIZARD - LEARN NEW SPELLS";h17:"- OR -"]r"4) EXAMINE YOUR BELONGINGS"y|"5) GO OFF ON A QUEST""6) LEAVE THE GAME":"WHAT IS YOUR CHOICE (1-6)?";X$:X(X$):X49X541690:::XX48 X3000,5000,5500,6pXD@`abX0KbcxՀ0ЂՀՊЀdD@dOHLqՀ`Ђ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*ЂЀDD@D@HHHr Հ@%DHD%HD#`b I<ԪժժժժժժժժժժժժժժժՀԪժժժժժժժժժժժժժժժՀՂՂШЂЀDL`2D@HHH02  &$H$&DH$$<"<I@*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*L MENU <<<::E"" GUILDHALL OF THE FREE ADVENTURERS ":Q,34,2:6"HERE IN THE GUILDHALL YOU CAN VISIT ANY"@"OF THE FOLLOWING PLACES:":J"1) GUILD ARMORY - FINE SWORDS AND ARMOR"T"2) GUILD BANK - KEEP YOUR MONEY SAFE"HE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:A$A1500b936:12:14:"LOADING...."v(4)"RUN MENU"2000:1560:"HE SMILES WHEN HE FINDS YOUR NAME IN""HIS BOOK. HE SAYS, 'GO ON INSIDE, LAD!"9000  >>> MAIN HAL$$فȖ$  描AVE ADVENTURERS (Y OR N)?";0X$:X$"Y"1510BX$"N"1460::"THE GUARD SHRUGS AND SHUTS THE DOOR. AS":"THE DOOR SWINGS SHUT, YOU SEE SEVERAL""THUGS SAUNTER OUT OF AN ALLEYWAY...."6255,0:936:12::"INSERT YOUR MASTER DISK IN TS HE CAN'T FIND YOU LISTED. DID YOU"G n"SAY IT CORRECTLY (Y OR N)?";\ xX$:X$"Y"1430n X$"N"1400 :"TRY AND GET IT RIGHT THIS TIME!":1220 :"YOU MUST BE NEW! DO YOU WISH TO JOIN" "AS A MEMBER IN THE GUILD OF FREE AND""BRӠՠ٠ŠħӠŬŠԠΠŠӠ͠ŠĮŠՠŠǠŠĠΠĠάՠŠŠΠŠ̠ŠĠǠҠӠƠοӠӠŮӠՠ٠ŠħӠŠũԠΠŠӠĠŠħӠŮӠŠŠӠĠӬŠΠӠĠӠϮӠŠŠӠĠԠՠΧԠŠԬԠΠŠӠŠŠƠӠĮӠՠȠŠԬԠ٠ӠŠĠϠӠŠƠŠŬǠՠԮҠŠӠ͠ŠРĠϠԠծԠԠҠ҇Π  @xժՊՠժՊՀՊժժԂՀЊЂՀՀՊЀ  D%@BHH@!""D@6""""0ύ)@HH@@࿂""" 8""8"8̣ 8 "" 8"""號Ё"  D"$P0!$$>"*$>>"  DD#"迌aGHOo>Nсر*>"*>">>$$>0%@HH@@<"<$">$<$"$ȁ$>*">$">""Ġxqcq rs@!d xrd'dc""*$" "<ρÁ㣞xyp8D!bȁؿكș*""*""""$$"0·#@E@@@޿ " $"">$ $ "$$"*<" $""<" dBOa>"Nᗠ< Ƈп那ȇಠ"<"0ǟ!@B@@O࿈ҍĠˠԍĠΠԍԍ٠ōā̃xq $Irq $dr!dc<"<<xq 8|)`Á́ DHH@!"D@Ʊ"<"Ã">>Ł1@HO@@<"< < " Ȣ "< "<賐Ї ) $$P!$$"""% "PAGING THROUGH A REGISTER...":E (:D$"OPEN CHARACTERS,L211"q 2D$;"READ CHARACTERS,R0":CN:CN01370 <X1CN:D$"READ CHARACTERS,R"X FX$:NAME$X$RECX:1520 PX::XCN:RECX ZD$:"THE GUARD EYES YOU SUSPICIOUSLY AND"$ d"SAY1270 X241220/ (X32X48)X901230M X$;:NAME$NAME$X$:1230o (NAME$)17(NAME$)11300 :"A NAME MUST BE AT LEAST 2 LETTERS LONG," "AND NO MORE THAN 17 -- TRY AGAIN!"::1220 ::"HE STEPS INTO HIS BOOTH AND STARTS"LUB",6,"SPEAR",10,"SWORD",12: 16300,0:16368,0:::k " GUILDHALL OF THE FREE ADVENTURERS ": 34,2::D$(4) "AS YOU APPROACH THE DOOR, A GUARD STOPS" "YOU AND DEMANDS YOUR NAME --" NAME$""::"-->"; X$:X(X$):X13" LD$"VERIFY E.ARTIFACTS"7 VD$"VERIFY E.EFFECTS"E `D$:1150V j::11:1: t"DATA FILES DAMAGED - USE ANOTHER COPY":: ~216,0:9900 FORX=1TO1000:IFPEEK(-16384)<>155THENNEXTX X15:WT$(X),WW%(X):X  "AXE",8,"BOW",4,"C79900:24576*:(255)1778200vD$(4):WT%(4),WO%(4),WS%(4),WD%(4),WA%(5),SA%(4),S2%(4),WT$(5),WW%(5)D(S)((1)S)1P(X)(XRTIO.5)$216,0:1130.D$"VERIFY E.ROOMS"8D$"VERIFY E.DESC" BD$"VERIFY E.MONSTERSՠŠΠȠΠ̠ٮǠӠŠРΠҠŮŠ٠٠ϠϠԠǩӠˠԠϠŠ̮ՠŠΠĠԯԠŮӠƠŠǠҠŠӠ٠ՠΧԠĠͩՠҠԠ٠Ǡ͠ŠԮՠŠΠˠĠ٠Š̮ŠӠҠΠŠԠŠƠŠͮժՊՠժՊՀpx4@`Rax<@GHPaaSyՊժժԂՀ $$H$$$H$$prD""I8ЊԪՊЀՀժՊՠժՊՀ@ՊժժԂՀ d$H$d$H$d<2D ""IЊԪՊЀՀժՊՠժՊՀՊժժԂՀ@'C8C'#8C#cRa<4<7xЊԪՊЀՀՀՊЀĠĠōĠÍĠԍĠĠȍĠΠԍĠԍՠŠΠŠ̠ƠŠԠĠ٠ΠŠԠŠƠŠŠͮŠ٠ΠӠ͠ŠǠΠӠΠŠ̮52107.P"YOU DON'T HAVE THAT MUCH ON DEPOSIT!":5060`.ZGOLDGOLDX:BANKBANKX:WTWT(X10)h.d13.n"YOU NOW HAVE ";BANK;" GP ON DEPOSIT ".x" AND ";GOLD;" GP WITH YOU".9700::.| === SPELLS ===. === SPELLS ===.:2$/"AS-X$"Q"5250*-:"HOW MUCH ?";:X0E-X$:Y(X$):Y135150Y- Y48Y575120x-X(X10)(Y48):X$;:5120-:W5190-(XGOLD5180-2"YOU DON'T HAVE THAT MUCH GOLD!":5060-<GOLDGOLDX:BANKBANKX:WTWT(X10):5220.FXBANK= ,:24,"WELCOME TO THE GUILD TREASURY. YOU"a,"MAY WITHDRAW OR DEPOSIT MONEY HERE.":,"YOU CURRENTLY HAVE ON DEPOSIT: ";BANK;" GP",:"WITHDRAW OR DEPOSIT (W,D OR Q=QUIT)?";,X$:X$"W"X$"D"X$"Q"5080-::W0:X$"W"W1 ONLY ";P(50);" GP"9+T"WOULD YOU LIKE ONE (Y OR N)?";N+^X$:X$"N"4240`+hX$"Y"4190w+rP(50)GOLD4230+|::"BUT YOU HAVE ONLY ";GOLD;" GP":4240+GOLDGOLDP(50):ACAC1:WTWT(P(50)10)20+:2:3090+, === BANK == OR N=NONE)?";*X$:X14=*X$("LCPN",X,1)ĂX:4090K*X44160s*PP(100(X1)250(X2)500(X3))*"PGOLD4150*,:"YOU HAVE ONLY ";GOLD;" GP":4080*6GOLDGOLDP:ACX2SH:WTWT(P10)(AC10)*@:SH4240+J:"A SHIELD ISLDGOLDTI)XSĺ::30901)::13:"PRICE"l)"LEATHER.......";(P(100)10)(P(100)100));P(100))"CHAINMAIL.....";(P(250)10)(P(250)100));P(250))"PLATE.........";(P(500)10)(P(500)100));P(500)*:"YOUR SELECTION (L,C,P(nA2(AC2):SHACA22?(xX25(A21)60(A22)100(A23)b(TI(XRTIO.5):TIX2TIX2("YOU ARE OFFERED ";TI;" GP FOR YOUR ARMOR"("DO YOU ACCEPT (Y OR N)?";(X$:X$"N"4030(X$"Y"4000 )WTWT(TI10)(AC10):AC0:SH0:GOWT%(X)0:WO%(X)0:WS%(X)0:WD%(X)0B'AD%(NAX,4)0:AN$(NAX)""P'(X43930v'2PX3:WT%(P)WT%(P1):WT%(P1)0'<WO%(P)WO%(P1):WS%(P)WS%(P1):WD%(P)WD%(P1)'FWO%(P1)0:WS%(P1)0:WD%(P1)0'PP:XREC:9590'Z:2:3090(dAC04030:3090&X(X$):WT%(X)3800K&::"YOU DON'T HAVE THAT WEAPON":3740e&P(D(50)RTIO.5):&"YOU ARE OFFERED :";P;" GP"&"IS THIS ACCEPTABLE (Y OR N)?";&X$:X$"N"3930&X$"Y"3830& WTWT(P10)WW%(WT%(X))#'GOLDGOLDP:X;") SLASHING ";:37204%`X;") DISTANCE ";:3720M%jX;") BLUNT ";:3720h%tX;") POLEARM ";:3720%~X;") THRUSTING ";%"WEAPON"%X%:"SELL WHICH ONE (# OR 0=NONE)?";%X$:(X$)48(X$)573750%(X$)X3750&(X$)0ė:2X0,4)1:AD%(X0,5)WO%(XI):AD%(X0,6)TP:AD%(X0,7)1:AD%(X0,8)SIDEc$$:D$;"OPEN CHARACTERS,L211"$.GOLDGOLDP:XREC::"ENJOY YOUR NEW WEAPON":WTWT(P10)WW%(TP):9590$8::3090$BX14:WT%(X)03740$LWT%(X)3670,3680,3690,3700,3710%V530# BP50:SIDE82# :"QUALITY (G,F OR P)?";A# X$:Q13`# X$("GFP",Q,1)ĂQ:3540# PP(BPBP(Q1)(BP2)(Q3))# PGOLD3590# :"YOU HAVE ONLY ";GOLD;" GP"::3090#WT%(XI)TP:WO%(XI)10(2Q):WD%(XI)1:WS%(XI)SIDEB$AD%();"...";/"f (P(25)100)(P(25)10));P(25)S"p :"SELECTION (S,D,B,P OR T)?";c"z X$:TP15" X$("SDBPT",TP,1)ĂTP:3450" TP3480,3490,3500,3510,3520" BP25:SIDE6:3530" BP40:SIDE6:3530" BP20:SIDE4:3530# BP25:SIDE5:3;/!* (P(50)100)(P(50)10));P(50);"...";]!4 (P(25)100)(P(25)10));P(25);"...";!> (P(252)100)(P(252)10));P(252)!H "THRUSTING....(1D8)....";!R (P(100)100)(P(100)10));P(100);"...";"\ (P(50)100)(P(50)10));P(50ՂՂШRS,L211",=N%D$"READ CHARACTERS,R0":CN:X0A=X%XX1:XCN9590a=b%D$"READ CHARACTERS,R"X:X$|=l%X$NAME$X$""9560=v%D$:D$"WRITE CHARACTERS,R"X:RECX=%NAME$:HD:AG:CH=%N14:SA%(N):N=%N14:S2%(N):N=%N15:WA%(N):N><#X15:WA%(X):X,<#X14:WO%(X):XB<#X14:WD%(X):XX<#X14:WS%(X):Xn<#X14:WT%(X):X<#AC,AE,WT,GOLD,BANK,PF,REC<#D$"CLOSE CHARACTERS"<#<% === WRITE CHARACTER ===<:%D$:D$"CLOSE CHARACTERS"=D%D$"OPEN CHARACTE(X):X;; "AXE",8,"BOW",4,"CLUB",6,"SPEAR",10,"SWORD",12E; 1560e;(# === LOAD A CHARACTER ===;F#D$:D$"CLOSE CHARACTERS";P#D$"OPEN CHARACTERS,L211";Z#D$"READ CHARACTERS,R"REC;d#NAME$:HD,AG,CH;n#X14:SA%(X):X";:XH$""QX$:X(X$):X1343220QX24ĺ:43170Q(X32X65)X9043180QʨX$;:XH$XH$X$:43180QԨ:X1NC-RިXH$CW1000)(W100)(W10));W2P_W0WWW%(AD%(X,5))HPdX:33,40:32,0:cPn22:22:"HIT ANY KEY"{Ps22:"TO CONTINUE";PxX$:P51510:52110:PP === HELP SCREEN ===P P\:::10:Pf"VALID COMMANDS ARE:"::PpX1NC3 Qz5)100)(WA%(5)10)(WA%(5)0)(WA%(5)0));WA%(5);"%":KO"ARMOUR= ";ACbO33,19:32,21::1~O("ITEM NAME WEIGHT":O2X1NA4O(XS$)1341360$(MD%(M,13)0:NBTL1::MN$(M)R("RETURNS TO LIFE ":"AND ATTACKS YOU!":d(MD%(M,14)1:(:"SUDDENLY YOUR HEAD":"HURTS WHEN YOUR"("SPELL BACKFIRES!":"YOU FIND YOU DON'T"(""RECALL IT ANYMORE!":SA%(4)0:S2%(4)0:0),SUC0:SA%(SWN":"THE CORRIDORS!"::4':"YOU ARE HEALED!":['MD%(0,13)0HDHD1:MD%(0,1)HD:m'MD%(0,13)0:'Ȃ:"A LOUD VOICE SAYS":"YOUR DOOM HAS BEEN"'҂"SEALED!!"::'܂M1NM:MD%(M,5)ROOMĂM:SUC0:33360(悭MD%(M,13)MD%(M,1)SUC0:33PENS!"::?&ZD(7)33380,33400,33430,33450,33480,33500,33550o&d:"*POOF!* YOU HAVE":"BEEN TELEPORTED!":&nR2D(NR):32110:&x:"WITH A CREAK YOUR":"ARMOUR THICKENS!":&ACAC2:AC7AC7&MP1:10640&50000:'"BOOMING OFF DO#%SUCĺ:"NOTHING HAPPENS!"::^%SPDMD%(0,2)MD%(0,2)2:MD%(0,10)MD%(0,10)MD%(0,2)%(SPDSPDD(25)::"YOU FEEL ENERGY":"FLOWING THRU YOU!"::%2XS$"POWER"33350%<:"I DON'T UNDERSTAND"::%FSP4:33580 &PSUCĺ:"NOTHING HAP650:$āXS$"HEAL"33280,$΁SP2:33580P$؁SUCĺ:"NOTHING HAPPENS!"::z$MD%(0,13)ĺ:"YOU'RE NOT HURT!"::$MD%(0,13)MD%(0,13)D(10):MD%(0,13)0MD%(0,13)0$:"YOU FEEL BETTER!"::50000:$XS$"SPEED"33330$ SP3:33580032X048)X090331502#XNXN1:XN3033170M#"*OVERFLOW*"::33140j#X0$;:XS$XS$X0$:33150#M1NM:XS$MN$(M)ĂM::"I DON'T SEE THAT"::#SP1:33580#SUCĺ:"NOTHING HAPPENS!"::$:"DIRECT HIT!"::S6:D3:DFM:A0:35:"耲"" === CAST SPELLS ===("E"V(XS$,5)"BLAST"33220}"`X0$(XS$,1):X0$" "(XS$)1XS$(XS$,2):33120"jXS$(XS$,2):(XS$)133180"t"BLAST WHAT?":"->";:XS$"":XN0"~X0$:X0(X0$):X01333180"X024ĺ:33140#(XROOM:32250&!}MD%(M,5)ROOM32260;!}MD%(M,14)32250j!}FRMD%(M,3):FRFR100FRFR((CH10)2)!}MD%(M,14)1:FRD(100)MD%(M,14)2:FRD(100)MD%(M,14)3!}AMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)"~M:NBTL(TD%(1)0)N$(A))9ĺ! }" IS HERE"::AJ1( }Ac }AJĢ21:"(ANY KEY TO GO ON)";:X0$::X0:X023ĢX02w }AJĢ21:19): }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)1D(200)MD%(M,4))MD%(M,5)9ROOM:ROOMROOM200:52110:ROOMX9:32177D}AD%(A,4)ROOM32177f}"YOU SEE --":AN$(A)::AJ1m}A}AJĢ21:"(ANY KEY FOR MORE)";:X0$:}AJĢ21:19):X0:X023ĢX02}X0(37)1:AJ0:A1NM:MD%(A,5)ROOM32185 }:MN$(A);:(M DESK. 'I"8/"WELCOME YOU!' HE BOOMS. 'WHAT CAN I DO"`/"FOR YOU? TODAY MY PRICES ARE:'":/C2CH(11(1)5):C2C2(C20):RTIO10C2/9/"BLAST........";/(P(3000)10000)(P(3000)1000)(P(3000)100)(P(3000)10));P(3000)0X:BANKBANKX:WTWT(X10)#.d13O.n"YOU NOW HAVE ";BANK;" GP ON DEPOSIT "p.x" AND ";GOLD;" GP WITH YOU"~.9700::.| === SPELLS ===. === SPELLS ===.:2."AS YOU ENTER THE OFFICES OF THE GUILD" /"WIZARD, YOU SEE HIM AT HIS- Y48Y5751203-X(X10)(Y48):X$;:5120A-:W5190S-(XGOLD5180-2"YOU DON'T HAVE THAT MUCH GOLD!":5060-<GOLDGOLDX:BANKBANKX:WTWT(X10):5220-FXBANK5210-P"YOU DON'T HAVE THAT MUCH ON DEPOSIT!":5060.ZGOLDGOLDAW OR DEPOSIT MONEY HERE.":N,"YOU CURRENTLY HAVE ON DEPOSIT: ";BANK;" GP"},:"WITHDRAW OR DEPOSIT (W,D OR Q=QUIT)?";,X$:X$"W"X$"D"X$"Q"5080,::W0:X$"W"W1,X$"Q"5250,:"HOW MUCH ?";:X0-X$:Y(X$):Y135150"N"4240+hX$"Y"41902+rP(50)GOLD4230a+|::"BUT YOU HAVE ONLY ";GOLD;" GP":4240+GOLDGOLDP(50):ACAC1:WTWT(P(50)10)20+:2:3090++ === BANK ===+:2+"WELCOME TO THE GUILD TREASURY. YOU","MAY WITHDR%(OF,10)MD%(OF,7))RL96HIT1.7zHIT35580S7RL97ĺ" A MISS!! "::r7:" A FUMBLE!":FRD(100)7FR3540(MD%(OF,9))ĺ" -- RECOVERED!"::.8FR76OF0ĺ"-- WEAPON DROPPED!"::AD%(MD%(OF,9),4)ROOM:MD%(OF,10)MD%(OF,10)AD%(MD%(MN$(OF))9ĺ.64(MN$(OF))9ĺ" UP";:3540096>" UP"^6HAN$(A)::AD%(A,4)0:MD%(OF,9)A6RMD%(0,4)MD%(0,4)2:MD%(OF,10)MD%(OF,10)AD%(A,5):6\HIT0:MD%(OF,9)1353406fMN$(OF):" ATTACKS! -- ":MN$(DF):7pRLD(100):HIT0:(RL5RLMD0ı%5MD%(DF,3)MD%(DF,3)2:M1NMP5MD%(M,5)ROOMMD%(M,14)1MD%(M,14)0h5M:R3ROOM:35740:5 = MONSTER REACTIONS =5 MD%(OF,10)0ı5A1NA:AD%(A,4)ROOMAD%(A,2)2AD%(A,2)3ĂA:5 MN$(OF);:(MN$(OF))12ĺ 6*" PICKS";:HAT!"::64MD%(0,9)1ĺ:"NO WEAPON IS READY"::W4OF0:DFM:35420:HIT353004INCW2AD%(MD%(0,9),5):WA%(W2)WA%(W2)24EAAEı4ƉD(100)MD%(0,10)353004ЉA2:EAAE1A14ډAEAEA:MD%(0,10)MD%(0,10)A5䉭MD%(DF,14)1DF3035150#3I"*OVERFLOW*"::35120@3NX0$;:XS$XS$X0$:35130c3X:LTĺ:"IT'S TOO DARK!"::3bFO0:X1NM:XS$MN$(X)352103lMD%(X,5)ROOMMD%(X,5)1352103vXS$MN$(X)BMX3FOFO1:MX3X:FO1MBM 4FOĺ:"I DON'T SEE TAL",(AD%(A,6)0)41,4)62:MD%(0,13)0MD%(0,13)0<2B2W2ˆ === ATTACK ===]2̈q2&(XS$)13516020:"ATTACK WHAT?":"->";:XS$"":XN02:X0$:X0(X0$):X013351602?X024ĺ:351202D(X032X048)X090351303GXNXN1:XNTHAT!"::C1AD%(A,2)6ĺ:"YOU CAN'T BE THAT":"THIRSTY!!"::n1AD%(A,7)0ĺ:"IT'S ALL GONE..."::1AD%(A,5)D(100)ĺ:"NOTHING HAPPENS!"::1AD%(A,7)AD%(A,7)1:MD%(0,13)MD%(0,13)AD%(A,6):2"YOUR WOUNDS SEEM":"TO ";:("OPENHE13489000":"QUAFF WHAT?":"->";:XS$"":XN0P0,X0$:X0(X0$):X01334890a01X0243485006(X032X048)X0903486009XNXN1:XN30348800;"*OVERFLOW*"::348730@X0$;:XS$XS$X0$:34860 1JA1NA:AN$(A)XS$ĂA::"I DON'T SEE 19):X0:X023ĢX02A/(X01ND:RD%(X0)0RD%(X0)9934640b/2RD%(X0)(RD%(X0)):NXNX1:/<"YOU FOUND A SECRET":"TUNNEL GOING ";/F("NORTHSOUTHEAST WEST UP DOWN ",((X01)5)1,5):/PX0::// === QUAFF ===/0(XS$)A)::AJ1.A:.AJĢ21:"(ANY KEY FOR MORE)";:X0$:].AJĢ21:19):X0:X023ĢX02.X0(37)1:AJ0:A1NM:MD%(A,5)ROOM34595.MN$(A);:(MN$(A))9ĺ. " IS HERE"::AJ1.#A.$AJĢ21:"(ANY KEY FOR MORE)";:X0$:/%AJĢ21:19):X0:X023ĢX021-X0(37)1:AJ0:A1NZO-AD%(A,4)ROOM20034566-X9ROOM:ROOMROOM200:52110:ROOMX9:AJ1:34575-AD%(A,4)ROOM34570-"YOU SEE -- ":AN$(A)::AJ1:34575- AD%(A,4)ROOM30034575 . "YOU SEE -- ":AN$(:X01NA!,AN$(X0)XS$34280W,ʅAD%(X0,4)WHAD%(X0,4)HAAD%(X0,4)EMB34280n,ԅXS$AN$(X0)BMX0,ޅFOFO1:AX0,腂X0:FO1ABM,,Ć,Ά === LOOK ===,؆ ,52000::X0(37)1,21:"(HIT KEY FOR MORE)";:X0$:-21::%+zEMBRO200:WHRO:HARO:34230I+FOĺ:"I DON'T SEE THAT!"::+WTAD%(A,3)10MD%(0,1)ĺ:"YOU CAN'T BUDGE IT"::+AD%(A,4)1:WTWTAD%(A,3)+:AN$(A);:(AN$(A))12ĺ" TAKEN"::+:"TAKEN"::+WHRO:HA1:EMBRO ,FO060)*H:"TAKE WHAT?":"->";:XS$"":XN0I*RX0$:X0(X0$):X01334160]*WX024ĺ:34120}*\(X032X048)X09034130*_XNXN1:XN3034150*a"*OVERFLOW*"::34120*fX0$;:XS$XS$X0$:34130+pLTĺ:"IT'S TOO DARK TO":"SEE ANYTHING!": DE@)"D@ῠȁ xqcs r@#ayApA#d਼pxqs8D!<`揿"0ऎ񟈌$؛  $`GHH@%  Ḏ> О쁠"  $D""!$"!BHOO DD!"ο"  >>Ɓ ǟ ȇФ DHHGoD£#D P `'$x!$! !EH@@ @D12ۃ㟬Ⴣ@Ïئ              ::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"D *42K 22X d TARGETEZ 50)POKE 214,255: POKE 2049,1 :::8:8:"THESE AND MANY MORE FINE"::10:"PROGRAMS CAN BE FOUND"::13:"AT YOUR NEARBY":A$::14:A$;" STORE""BLOAD QUIT TITLE,A$2000"230,32:16300,0:16297,0:16302,0:16304,0< (A$: ōӍӍˍǍōčĠӍōōӍ   ,177:D$"RUN EMON":.8@ === LEAVE GAME ===T8^D$"OPEN STATUS":D$"READ STATUS"o8hDIE:D$"CLOSE STATUS"8rDIENAME$""8|XREC:9590:255,0:::D$"RUN MENU"8 === SETUP FOR GAME ===8D$"OPEN ADVENTURER":D$"WRITE ADVENTURER"#9XR(WO%(X))5)%7`1(W100)(W10));W.7jX:A7t33,40:32,0:O79700::n7X === START ADVENTURE ===7v9500:8100:::11:157"ONE MOMENT"::9:"WAKING UP THE MONSTERS"7D$"OPEN STATUS":D$"WRITE STATUS":0:D$"CLOSE STATUS"8255P6."THRUSTING=";(WA%(5)100)(WA%(5)10)(WA%(5)0)(WA%(5)0));WA%(5);"%":c68"ARMOUR= ";AC6B33,19:32,21:::"ITEM WEIGHT":6GX14:WT%(X)1WT%(X)5WT%(X)0:X6LX14:WT%(X)6250 7VWT$(WT%(X));14(WT$(WT%(X))));:W((1)0));WA%(1);"%"a5"DISTANCE =";(WA%(2)100)(WA%(2)10)(WA%(2)0)(WA%(2)0));WA%(2);"%"5"BLUNT =";(WA%(3)100)(WA%(3)10)(WA%(3)0)(WA%(3)0));WA%(3);"%"5$"POLEARM =";(WA%(4)100)(WA%(4)10)(WA%(4)0)(WA%(4)0));WA%(4);"%"SA%(4)100)(SA%(4)10));SA%(4);"%":Z4"GOLD=";(GOLD1000)(GOLD100)(GOLD10));GOLD4"BANK=";(BANK1000)(BANK100)(BANK10));BANK:4"WEIGHT= ";(WT1000)(WT100)(WT10));WT:5"SLASHING =";(WA%(1)100)(WA%(1)10)(WA%(1)0)(WA%D)3"DEXTERITY=";(AG100)(AG10));AGS3"CHARISMA =";(CH100)(CH10));CH:3"BLAST=";(SA%(1)100)(SA%(1)10));SA%(1);"%"3"HEAL =";(SA%(2)100)(SA%(2)10));SA%(2);"%"3"SPEED=";(SA%(3)100)(SA%(3)10));SA%(3);"%"%4"POWER=";(2lXGOLD5760D2v:"YOU ONLY HAVE ";GOLD;" GP WITH YOU":5780j2GOLDGOLDX:SA%(SP)(50(1)26)2::"YOU FEEL WISER AND MORE POWERFUL!"2970022p === INVENTORY ===2::2NAME$::3"STRENGTH =";(HD100)(HD10));HP(100)100)(P(100)10));P(100)S10:"WHICH ONE TO LEARN (B,H,S,P OR Q=QUIT)?";c1:X$:SP151DX$("BHSPQ",SP,1)ĂSP:56901N:SP557801XSA%(SP)ĺ:"YOU ALREADY KNOW THAT ONE!":57802bX$("3000100050000100",(SP1)41,4):XP((X$))"HEAL.........";^0(P(1000)10000)(P(1000)1000)(P(1000)100)(P(1000)10));P(1000)t0"SPEED........";0(P(5000)10000)(P(5000)1000)(P(5000)100)(P(5000)10));P(5000)0"POWER........";!1&(P(100)10000)(P(100)1000)(A OR R)?";$X((78)(79)256)9 X$:X$"R"2430K*X$"A"2080l4 === PLAYER ALLOCATION ===u>:1H"YOU HAVE 50 POINTS TO DISTRIBUTE"R"BETWEEN THREE CHARACTERISTICS:":\" STRENGTH - ABILITY TO DO DAMAGE. ALSO"f" X$:X(X$):X49X541690-:::XX48RX3000,5000,5500,6000,7000,8000\1560| === CREATE CHARACTER ===:1"WOULD YOU PREFER TO ALLOCATE POINTS TO ""YOUR CHARACTER OR SHOULD THE COMPUTER"  "DO IT RANDOMLY FOR YOU (FINE SWORDS AND ARMOR"DT"2) GUILD BANK - KEEP YOUR MONEY SAFE"n^"3) GUILD WIZARD - LEARN NEW SPELLS"h17:"- OR -"r"4) EXAMINE YOUR BELONGINGS"|"5) GO OFF ON A QUEST""6) LEAVE THE GAME":"WHAT IS YOUR CHOICE (1-6)?";HIS BOOK. HE SAYS, 'GO ON INSIDE, LAD!"19000O >>> MAIN HALL MENU <<<Y::"" GUILDHALL OF THE FREE ADVENTURERS ":,34,2:6"HERE IN THE GUILDHALL YOU CAN VISIT ANY"@"OF THE FOLLOWING PLACES:":J"1) GUILD ARMORY - N ALLEYWAY...."{255,0:936:12::"INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:A$1500936:12:14:"LOADING...."(4)"RUN MENU"2000:1560:"HE SMILES WHEN HE FINDS YOUR NAME IN"'"OU WISH TO JOIN"<"AS A MEMBER IN THE GUILD OF FREE AND"`"BRAVE ADVENTURERS (Y OR N)?";uX$:X$"Y"1510X$"N"1460::"THE GUARD SHRUGS AND SHUTS THE DOOR. AS":"THE DOOR SWINGS SHUT, YOU SEE SEVERAL""THUGS SAUNTER OUT OF A:XCN:RECX; ZD$:"THE GUARD EYES YOU SUSPICIOUSLY AND"i d"SAYS HE CAN'T FIND YOU LISTED. DID YOU" n"SAY IT CORRECTLY (Y OR N)?"; xX$:X$"Y"1430 X$"N"1400 :"TRY AND GET IT RIGHT THIS TIME!":1220:"YOU MUST BE NEW! DO Y-- TRY AGAIN!"::1220D ::"HE STEPS INTO HIS BOOTH AND STARTS"j "PAGING THROUGH A REGISTER...": (:D$"OPEN CHARACTERS,L211" 2D$;"READ CHARACTERS,R0":CN:CN01370 <X1CN:D$"READ CHARACTERS,R"X FX$:NAME$X$RECX:1520 PX:D DEMANDS YOUR NAME --". NAME$""::"-->";I X$:X(X$):X131270X X241220t (X32X48)X901230 X$;:NAME$NAME$X$:1230 (NAME$)17(NAME$)11300 :"A NAME MUST BE AT LEAST 2 LETTERS LONG," "AND NO MORE THAN 17 6384)155ĂX* X15:WT$(X),WW%(X):Xa  "AXE",8,"BOW",4,"CLUB",6,"SPEAR",10,"SWORD",12 16300,0:16368,0::: " GUILDHALL OF THE FREE ADVENTURERS ": 34,2::D$(4) "AS YOU APPROACH THE DOOR, A GUARD STOPS" "YOU AN6,0:1130" .D$"VERIFY E.ROOMS"9 8D$"VERIFY E.DESC"T BD$"VERIFY E.MONSTERS"p LD$"VERIFY E.ARTIFACTS" VD$"VERIFY E.EFFECTS" `D$:1150 j::11:1: t"DATA FILES DAMAGED - USE ANOTHER COPY":: ~216,0:9900 X11000:(1#89900:24576:D$(4)0(255)1778200Y:D$(4):D$;"BLOAD PICTURE,A$4000"16299,0:16304,0:16297,0:16302,0WT%(4),WO%(4),WS%(4),WD%(4),WA%(5),SA%(4),S2%(4),WT$(5),WW%(5)D(S)((1)S)1P(X)(XRTIO.5) $21                                `` `@L LLAx>V鷩DP (E>D Z t+0x8x D- ܸDD#HX`8?E Vk *f???0xE   Hh D#-EEE8` D ܸx D - ܸx8`L NSHOP OUTSIDE OF THE TOWN YOU"b\+"ARE PAID (TAX FREE) -- ";G;" GOLD PIECES":"FOR YOUR LOOT..."rf+GOLDGOLDGp+D$"OPEN ADVENTURER"z+D$"WRITE ADVENTURER"+NAME$+HD:AG:CH+X014:SA%(X0):X0+X014:S2%(X0):X0 +X015:)1 +A.+G0:A1NA:AD%(A,4)111080m +AD%(A,2)1GGAD%(A,1):AD%(A,4)0:WTWT(G10)AD%(A,3)*+X014:WT%(X0)0110704+WT%(X0)AD%(A,5):WO%(X0)AD%(A,6):WD%(X0)AD%(A,7):WS%(X0)AD%(A,8)>+X0H+A:WT(WT)R+::"AT THE PAWTUS")D$"WRITE STATUS":DIE7)D$"CLOSE":255,177F*DIE10760Q*11000l*D$"RUN THE ADVENTURE"r*x*+ === PAWN SHOP === ++A1NA:AD%(A,4)111027+AD%(A,2)111027+AD%(A,5)5AD%(A,5)5+AD%(A,5)1AD%(A,52:EAEA30G)MD%(0,10)(EAAE)(EAAE)WO%(1)WA%(WT%(1))2MD%(0,2))MD%(0,7)0:MD%(0,11)WD%(1):MD%(0,12)WS%(1):MD%(0,14)3)MPMP0:33430) >>> MAIN COMMAND LOOP <<<)51500:52110)31000)EX10715)D$"CLOSE":D$"OPEN STAESC,R0":NR,ND'^)RD%(ND):ROOM1:R21Ah)D$"OPEN E.ROOMS,L64"Zr)D$"READ E.ROOMS,R1"p|)C16:RD%(C):C|)NL:D$)EA0:MD%(0,8)0:A2(AC2))A22ACMD%(0,8)1:EA5)A2MD%(0,8)MD%(0,8)A2:EAEAA210 )A23MD%(0,8)MD%(0,8)1NM:D$"READ E.MONSTERS,R"C1)MN$(C):M115E")MD%(C,M):M:C_,)D$"CLOSE E.MONSTERS"6)MD%(0,1)HD:MD%(0,2)AG:MD%(0,5)1:MD%(0,8)AC:MD%(0,13)0:MN$(0)NAME$:MD%(0,9)1@) >>> OPEN ROOM FILES <<<J)D$"OPEN E.DESC,L256"T)D$"READ E.D,5)WT%(C):AD%(NAC,6)WO%(C)G(AD%(NAC,7)WD%(C):AD%(NAC,8)WS%(C)(AD%(NAC,4)1:AD%(NAC,3)WW%(WT%(C)):AD%(NAC,2)1(C( >>> LOAD MONSTERS <<<(D$"OPEN E.MONSTERS,L128"(D$"READ E.MONSTERS,R0":NM)MN$(NM),MD%(NM,15))C(D$"READ E.ARTIFACTS,R0":NZ:NANZ:NW0C (AN$(NA4),AD%(NA4,9)h (C1NA:D$"READ E.ARTIFACTS,R"C{ (AN$(C):A19 (AD%(C,A):AD%(C,A)1NWNW1 (A:C:D$"CLOSE E.ARTIFACTS" (C14:WT%(C)010465 (AN$(NAC)WT$(WT%(C))(AD%(NAC (C15:WA%(C):C+ ((C14:WO%(C):CA 2(C14:WD%(C):CW <(C14:WS%(C):Cm F(C14:WT%(C):C P(AC,AE,WT,GOLD,BANK,PF,RC Z(D$"CLOSE ADVENTURER" _(C14:S2%(C)SA%(C):C d( >>>LOAD ARTIFACTS<<< n(D$"OPEN E.ARTIFACTS,L128"( x):C- ' "AXE","BOW","CLUB","SPEAR","SWORD"C 'C15:WW%(C):CU ' 8,4,6,10,12u 'EX0:DIE0:PF1:CZ$"HELP " ' >>>LOAD CHARACTER<<< 'D$"OPEN ADVENTURER":D$"READ ADVENTURER" (NAME$:HD,AG,CH (C14:SA%(C):C (C14:S2%(C):C'S(S)(S100)(S10)(S0)9 'NC:C1NC:CL$(C):Cz ' 21,"NORTH","SOUTH","EAST","WEST","UP","DOWN","CAST","TAKE" ' "INVENTORY","LOOK","QUAFF","READ","KEY","OPEN","ATTACK" ' "FLEE","PREPARE","QUIT","SAY","DROP","HELP" 'C15:WT$(C"VERIFY E.ARTIFACTS". j'D$"VERIFY E.EFFECTS"= t'D$:10130N ~'::11:1: '"DATA FILES DAMAGED - USE ANOTHER COPY":: '216,0:59000 'WT%(4),WO%(4),WS%(4),WD%(4),WA%(5),WT$(5),SA%(4),S2%(4),CL$(21),WW%(5):D$(4) 'D(S)(S(1))1 *W''59000:(4);"MAXFILES 6":245763'D$(4)S'::11:15:"ONE MOMENT":t$'9:"WAKING UP THE MONSTERS".'216,0:101103'D$(4)8'D$"VERIFY ADVENTURER"B'D$"VERIFY E.ROOMS"L'D$"VERIFY E.DESC"V'D$"VERIFY E.MONSTERS" `'D$                                   ΍ЍΠՍժժժժժߪժ?xCp|p@pժժժժժ?xaa~p@|pժժժߪp~`~<`ߪժժժתתժת?x?x~?xppתߪժתժժժժժժժߪժժߪժժժժߪժժߪժժժժժժժժժժߪժժ?xp`p`pժժߪժժժ?xaa~pACpժժժߪժժժתתժߪ?x?x~?xpCpתߪժתժժժժժժժߪߪժժߪժժתժժժתժժժժժժժժժժתժժ?xpp`pժժתժժժ?xaa~v`Cpժժժߪժժժתժժߪ?x|~?xpCpתժתժժժժժժժժߪժժժתժժתժժժתժժժժժժժժժժתժת?xx~p`pתժժժժժժժ?xaa~pCpժժժߪժժժתժժߪ?x|~x`Ap תժתժժժժժתժժߪժժժ            7120!GX0$;:XS$XS$X0$:371304G#:FO0:X1NAKG(AN$(X)XS$37210G";:XS$"":XN0F X0$:X0(X0$):X01337160FX024ĺ:37120F(X032X048)X09037130FXNXN1:XN3037150G"*OVERFLOW*"::3ING ELSE"::FE$AD%(A,5)ĭAD%(AD%(A,5),4)1ĺ:"IT'S LOCKED!"::kE.LK0:X1NA:AD%(X,4)ROOM:LK1E8X:LKĺ:"SOMETHING'S INSIDE"::EBAD%(A,6)ĭAD%(AD%(A,6),4)1ĺ:"IT'S LOCKED!"::ELAD%(A,6)0::"IT OPENED --":FVX1ND:RD%()1AD%(X,4)RO200368401DԏXS$AN$(X)BMXADޏFOFO1:AXSD菂X:FO1ABMvDFOĺ:"THAT ISN'T HERE!"::DAD%(A,2)7ĺ:"TRY READING IT"::DAD%(A,2)1ĺ:"YOU'LL MAKE A MESS"::DAD%(A,4)836930 EAD%(A,4)4ĺ:"TRY SOMETH"->";:XS$"":XN01CX0$:X0(X0$):X01336790ECX024ĺ:36750eC(X032X048)X09036760CXNXN1:XN3036780C"*OVERFLOW*":":GOTO 36750CX0$;:XS$XS$X0$:36760C:FO0:X1NACAN$(X)XS$36840DʏAD%(X,4)ROAD%(X,4:X01NA4>B AN$(X0)XS$ĂX0::"I DON'T SEE THAT"::qBAD%(X0,4)1ĺ:"YOU DON'T HAVE IT!"::X0:B AD%(X0,4)ROOM:WTWTAD%(X0,3)::AN$(X0):" -- IS DROPPED"::B\Bf === OPEN ===BpB(XS$)136790C:"OPEN WHAT?":A === DROP ===A0AЎ(XS$)136610WAڎ:"DROP WHAT?":"->";:XS$"":XN0wA䎾X0$:X0(X0$):X01336610A鎭X024ĺ:36570A(X032X048)X09036580AXNXN1:XN3036600A"*OVERFLOW*"::36570AX0$;:XS$XS$X0$:36580BA1NA4:XS$AN$(A)AD%(A,4)1ĂA::"YOU DON'T HAVE IT!"::m@DAD%(A,2)1ĺ:" -- NOT A WEAPON"::@NMD%(0,10)(EAAE)(EAAE)AD%(A,6)WA%(AD%(A,5))2MD%(0,2)@XMD%(0,9)A:MD%(0,11)AD%(A,7):MD%(0,12)AD%(A,8):@b" -- READIED!"::A === PREPARE ===?*?(XS$)136410T?:"PREPARE WHAT?":"->";:XS$"":XN0t?X0$:X0(X0$):X01336410?!X024ĺ:36370?&(X032X048)X09036380?)XNXN1:XN3036400?+"*OVERFLOW*"::36370?0X0$;:XS$XS$X0$:36380A@:%(A)TD%(A)MD%(M,1)->M:NBTL(TD%(1)0):3>F> === FLEE ===L>q>NBTLĺ:"NOTHING TO FLEE!"::>NX0ĺ:"NOWHERE TO GO!"::>X01ND:RD%(X0)1RD%(X0)NRĂX0::"NOWHERE TO RUN!"::>"R2RD%(X0):C1632110>,>̍?֍)3(MD%(M,14)1D(200)MD%(M,4))MD%(M,5)ROOM:35820Q=ċMD%(M,5)ROOM35830f=΋MD%(M,14)35820=؋FRMD%(M,3):FRFR100FRFR((CH10)2)=MD%(M,14)1:FRD(100)MD%(M,14)2:FRD(100)MD%(M,14)3>AMD%(M,14):FD%(A)FD%(A)MD%(M,13):TDROOM:MD%(DF,10)MD%(DF,10)AD%(MD%(DF,9),5):MD%(DF,9)1:MD%(DF,4)MD%(DF,4)2f";:XH$""qQX$:X(X$):X1343220QX24ĺ:43170Q(X32X65)X9043180QʨX$;:XH$XH$X$:43180QԨ:X1NCRިXH$CL$(X)ĂX:XH$;" NOT FOUND - TRY AGAIN":43D%(X,5))PdX:33,40:32,0:9Pn22:22:"HIT ANY KEY"QPs22:"TO CONTINUE";[PxX$:oP51510:52110:uPP === HELP SCREEN ===P P\:::10:Pf"VALID COMMANDS ARE:"::PpX1NC3Pz3:N021QCL$(XN);11(CL$(XN)));WA%(5);"%":!O"ARMOUR= ";AC8O33,19:32,21::1TO("ITEM NAME WEIGHT":bO2X1NA4zO";:XS$"":XN0qI̒X0$:X0(X0$):X01337610IђX02437570I֒(X032X048)X09037580IْXNXN1:XN3037570Iے"*OVERFLOW*"::37570IX0$;:XS$XS$X0$:37580*JꒁA1NATHAT!"::-Hx:X1AD%(A,6):RAD%(A,5)1XJH}D$"OPEN E.EFFECTS,L256"oHD$"READ E.EFFECTS,R"R:MSG$:D$HD$"CLOSE E.EFFECTS"H52130:51600:X:HAD%(A,8)037300H:NAME$;:(NAME$)8ĺH" HAS DIED!":DIE1:EX1HH|IˠĠϠˠӮԠŠΠ٠ŠŠĩԠӠˠҩčԠӠˠҩōԍȍÍԍΠԍΠԍˠԍO CONTINUE";:A$$_::(4)"PR#6"16Ļm_ER4ĉ:::11:8:"DISK IS WRITE PROTECTED!"::51600:_ER8ĉ:::11:7:"DISK NOT LOADED PROPERLY!!"::51600:_ TEXT-INVERSE-CALL -936-VTAB 11d`::6:"SUDDENLY YOU HEAR A THUNDERING:"AND THE AIR IS SPLIT BY A BLINDING BOLT"::"OF LIGHTENING!! A DEAFENING VOICE":^"BELLOWS, 'I TOLD YOU NOT TO DO THAT!!!'":^:"A GIGANTIC HAND REACHES DOWN FROM THE"::"SKY AND CRUSHES YOU LIKE A BUG!!!"_24:7:"PRESS ANY KEY T:11:8:"DISK IS WRITE PROTECTED!"::7:"USE A COPY NOT THE MASTER.: NORMAL : GOSUB 51600: CONT ]ER8ĉ:::11:7:"DISK NOT LOADED PROPERLY!!"::51600:] TEXT-INVERSE-CALL -936-VTAB 11Z^::6:"SUDDENLY YOU HEAR A THUNDERING CRASH,"::52190\˭GGGG0:52190A\˺:DUM$;" ";:X0(DUM$)1:DUM$""H\˂Xh\˭X0(DUM$)L1ĺDUM$:52220~\˭DUM$""ĺ:DUM$\MSG$""\˺:\x\ === ERROR HANDLING ===\\rEL(218)(219)256\|ER(222)\ER255Ļc]ER4ĉ::AY SPACE*)'[˺D$;"READ E.DESC,R";ROOM5[˄MSG$:D$L[L118:L217:52130\[L140:L239m[X00:DUM$""~[ˁX1(MSG$)[˭(MSG$,X,1)" "DUM$DUM$(MSG$,X,1):52190\˭X0(DUM$)L1GG1:DUM$;:X0X0(DUM$):DUM$"":X0L2ĺ" ";:X0X01:GG0ɲ Z^ɉ::&ZhɁX0123:20:" ":X03Zrɝ:50000>Z|ɰ51000DZɱKZɲ bZɲ === CONTINUE ===hZɲ{Zɹ36,0:37,22:Zɺ"(ANY KEY TO GO ON)"ZɾX0$:X0$""51650Zɺ:Z ˲Z*˲ === DISPLAY DESCRIPTION ===Z4˲ [˰51000: (*CLEAR DISPLX01ND4YŭRD%(X0)RD%(X0)99ĺ("NSEWUD",X0,1);@YłX0::KYŖ3:20`Yź"YOUR COMMAND?"kYŖ1:22tYź":"zYűY8DzYBDz === SET RIGHT SCREEN ===YLDzYǹ33,19:32,21Yǹ34,1:35,22:YǗYDZY,ɲY6ɲ === RESET FULL SCREEN ===Z@530,50540!XNź"NONE (0)":50580BXXź"LEA";:50550: (*LEATHER*)aXbź"CHA";:50550: (*CHAIN*)Xlź"PLA";:50550: (*PLATE*)Xvŭ(AC2)(AC2)ĺ"&SH(";:50570Xź" (";XźAC;")"XŖ3:17Xź"YOU CAN MOVE:"XŖ6:18:8)XŖ6:18:YΠĠϠΠӠƠӠӮԠŠĠΠӠҠӮԠӠΠԩԩ٠ĠϠˠӠĠӠĠՠŠ٠ΠήΠϠŠĠϠŠĠӮԠӠ٠ԩĠĠϠĠˠҠ̮ԠŠĠϠĠӠĠӮԠӠĠԩԠӠĠԩƠĠϠˠĠҠήԠӠƠԩŠԩӠŠΠҠҠΠήˠӠ͠ΠǠȠ٠ӠĠӠΠŠͮԠϠӠ٠ԠӠԠ٠Į٠čΠŠͮ٠ӠŠҠϠנӠӬӠĠŠӠĠǠŠŮŠŠϠӮŠԠӠٮŠŠΠԠͮ͠ŠԠӠŠԩŠԩӠŠ͠ϠŠήԠԠŠĠ٠ӠԠӠΠŠˠĮԠӠ̮ŠԠӠԠ̩ԩ٠ԠӠԮŠŠҠӠԠ̠ĠҮŠӠԠӍҠ̠ΠŠҠƠŠӍΠӠŠҠΠĠήŠŠϠӮŠԠӠ΍Ӡ٠ӍҠΠԠӠԠ٠ҠԮРӠŠҠΠΠӠήŠŠϠӮŠԠӠЍŠӠ٠ӍҠΠԠӠԠ٠ҠԮԠӠŠҠΠΠήŠŠϠӮŠԠӠԍӠ٠ӍҠΠԠӠԠ٠ҠԮԠӠŠҠΠΠΠήŠŠϠӮŠԠӠԍŠӠ٠ӍҠΠԠӠԠ٠ҠԮȠӠŠҠΠΠήŠŠϠӮŠԠӠȍӠ٠ӍҠΠԠӠԠ٠ҠԮȠӠŠ٠ΠĠήŠŠϠӮŠԠӠȍӠ٠ӍҠΠԠӠԠ٠ҠԮРӠРӠٮӒήԠӠРԩĠΠŠԠΠŠĮԠӠŠΩΠŠͮӒҠ̠ΠŠҠƠŠӒ         ՠŠΠŠŠƠŠԠĠŮӠǠŠӠҠŠӮŠŠϠӠŻŠλŠҠĭġŠ٠ԠӠԮՠŠΠ̠ˠ̮Š٠ԠӠҠϠŠԮŠӠĠŠӠ٠ȠϠ٧ΠŠ̮20010)NA$"THIS PROGRAM WILL NOT WORK"4N10:7?N20400eNA$"USING A WRITE PROTECTED DISK"pN12:6{N20400NA$"YOU MUST MAKE A COPY"N14:10N20400NA$"OF THIS DISKETTE TO PLAY"N16:8N20400 NA$"PRESS ANY KEY TLORIE COUNTER!  1,FOOD VALUES, N200906 *N936S 4N3:3::I337:" ";:Ix >NI421:I:3:" ";:37:" ";:I HN21:3:I337:" ";:I RN1:1::I139:" ";:I \NI222:I:1:" ";:39:" ";:I fN23:1:I139:" ";:I: pNzN(222):20 r,  DATA FOR DESCRIPTION3 2G  THE ADVENTUREn  ONLY THE FITTEST SHALL SURVIVE DATA FOR PROGRAM NAMES 1-APPLESOFT 2-BINARY 3-TEXT FILE  1  1,THE ADVENTURE  1,CALORIE REQUIREMENTS  1,CAA$:KB(A$):A$""240, KB1KBN1240\ VTV1(X)2:HT25.5:A$(KB):110::AKB::j AN321s 320 @AN1ĺ"RUN MENUQ" A::12:14:"LOADING..." JT(A)1ĺ"RUN"A$(A) TT(A)2ĺ"BRUN";A$(A) ^T(A)3ĺ"EXEC";A$(A) hERUBLISHING 1985":110G :N:X1N:A$:VTV(X):HT20((A$)2):110: N:X1N:T(X),A$(X):VTV1(X):HT12.5:A$(X)") "A$(X):110: A$(X)") QUIT":VTV1(X):HT12.5:110 VTV1(X)2:HT15.4:A$"WHICH ONE?":110 (X1)14.0(X1.2):H ZQ7:Q17.7:Q21:Q3100:Q499:Q532:Q632:Q764Q d150 nTQ5:HTHTQ:VTVTQ1:A(A$):Q3HT,VT:X8Q2A xC(X8)Q7T(T)Q5:X8X8Q2 C(X8)Q6ĔQ2:Q4:: C(X8)Q2T:Q4:: VT24:HT5:A$"_ GREEN VALLEY P 1012,020000" 360(B12:14:"LOADING..."["BLOAD MS2,A$4000"u(C(X8)((A$,X8,1))2230,32:3086:16300,0:16297,0:16302,0:16304,0:3:0:1:232,144:233,98:24576<QA0FV(1)10.6:V(2)11.8 PX05:V1! ! !РӠРӠٮРĠϠРΠ͠ǠĮԠӠРԩԩ٠ĠϠ٠ӠϠӠĠӠΠŠŮΠԠԠŠŠǠ̠ӠĠΠŠŮϠӮŠԠӠԮՠΠϠŠ̠٠ӠՠԮŠ٠ΠҠŮԠŠĠŠŠˠĠӠĮŠ٠ϠŠŠӠƠŠӠĮԠӠŠΩŠΠ٠ӠԠӠŠĠԠŠԠԠŠϮӠӠӠӠ͠ǮŠŠϠӮԠӠōC$"":31240yC$(XC$,1)SyXC$(XC$,2):(XC$,1)" "C$C$(XC$,1):31230zC$""ĺ:"YOU MUST ENTER":"SOMETHING..";:X01800:X0::31110zC1NC:C$CL$(C)ĂC::"INVALID COMMAND":X01800:X0:31110zCZ$XC$:XS$XC$&z(XS$,1)" IT ALL NOW?";)yX0$:X0$"N"31110=yX0$"Y"31170SyDIE1:EX1:10720nyXC$""XC$CZ$::XC$y(XC$)2ĺ:"YOU MUST ENTER":"SOMETHING!";:X01800:X0::31110yXC$XC$" ":CZ$XC$y(XC$,1)" "XC$(XC$,2):31210 yXC$""ww === INVENTORY === w-w42000:3yS"y === COMMAND PROCESSOR ===Y,yd|y30500qy:XC$""yX0$:X0(X0$):X01331200yX02431110yX0331160yX032X09031120yX0$;:XC$XC$X0$:31120y:"YOU WANT TO END":5:WA%(X0):X0(+X014:WO%(X0):X0A+X014:WD%(X0):X0Z+X014:WS%(X0):X0s+X014:WT%(X0):X0+AC:AE:WT:GOLD:BANK:PF+D$"CLOSE"+$w.w === SET COMMAND WINDOW ===8wVw34,21:33,16:32,2:35,23`w: PAWNSHOP OUTSIDE OF THE TOWN YOU"f\+"ARE PAID (TAX FREE) -- ";G;" GOLD PIECES":"FOR YOUR LOOT..."vf+GOLDGOLDGp+D$"OPEN ADVENTURER"z+D$"WRITE ADVENTURER"+NAME$+HD:AG:CH+X014:SA%(X0):X0+X014:S2%(X0):X0+X01(A,5)1+A2+G0:A1NA:AD%(A,4)111080q +AD%(A,2)1GGAD%(A,1):AD%(A,4)0:WTWT(G10)AD%(A,3)*+X014:WT%(X0)0110704+WT%(X0)AD%(A,5):WO%(X0)AD%(A,6):WD%(X0)AD%(A,7):WS%(X0)AD%(A,8)>+X0H+A:WT(WT)"R+::"AT THE256?&ER(222) ?&ER255Ļj?&ER4ĉ:::11:8:"DISK IS WRITE PROTECTED!!"::9700:D$"RUN MENU"?&ER8ĉ:::11:7:"DISK NOT LOADED PROPERLY!!"::9700:D$"RUN MENU"?&:22:"ERROR "ER" AT LINE "EL::14:WT%(N):N2>%AC:AE:WT:GOLD:BANK:PF:XO>%D$"WRITE CHARACTERS,R0"^>%XCNCNXf>%CN>%D$"CLOSE CHARACTERS":>% === CONTINUE ===>&36,0:37,22:> &9:"(HIT ANY KEY TO GO ON)";>&X$:X$""9750> &:?&EL(218)(219)%D$"READ CHARACTERS,R"X:X$7=l%X$NAME$X$""9560^=v%D$:D$"WRITE CHARACTERS,R"X:RECXu=%NAME$:HD:AG:CH=%N14:SA%(N):N=%N14:S2%(N):N=%N15:WA%(N):N=%N14:WO%(N):N=%N14:WD%(N):N=%N14:WS%(N):N>%N#X14:WS%(X):X)<#X14:WT%(X):XH<#AC,AE,WT,GOLD,BANK,PF,RECb<#D$"CLOSE CHARACTERS"h<#<% === WRITE CHARACTER ===<:%D$:D$"CLOSE CHARACTERS";F#D$:D$"CLOSE CHARACTERS"\;P#D$"OPEN CHARACTERS,L211"z;Z#D$"READ CHARACTERS,R"REC;d#NAME$:HD,AG,CH;n#X14:SA%(X):X;x#X14:S2%(X):X;#X15:WA%(X):X;#X14:WO%(X):X;#X14:WD%(X):X";:XS$"":XN0"~X0$:X0(X0$):X01333180"X024ĺ:33140#(X032X048)X090D%(M,5)ROOM32260(!}MD%(M,14)32250W!}FRMD%(M,3):FRFR100FRFR((CH10)2)!}MD%(M,14)1:FRD(100)MD%(M,14)2:FRD(100)MD%(M,14)3!}AMD%(M,14):FD%(A)FD%(A)MD%(M,13):TD%(A)TD%(A)MD%(M,1)!~M:NBTL(TD%(1)0):!耲" === S HERE"::AJ1 }AP }AJĢ21:"(ANY KEY TO GO ON)";:X0$::X0:X023ĢX02d }AJĢ21:19): }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)1D(200)MD%(M,4))MD%(M,5)ROOM:32250!}M:52110:ROOMX9:321770}AD%(A,4)ROOM32177S}"YOU SEE A --":AN$(A)::AJ1Z}A}AJĢ21:"(ANY KEY FOR MORE)";:X0$:}AJĢ21:19):X0:X023ĢX02}X0(37)1:AJ0:A1NM:MD%(A,5)ROOM32185}:MN$(A);:(MN$(A))9ĺ }" IMS,R";ROOM:NX0%}X01ND:RD%(X0)>}RD%(X0)NRNXNX1S}X0:NL:LTNLLMu}D$"CLOSE E.ROOMS":D$:51510}LTİ52000:32170}"YOU ARE IN A DARK":"ROOM"::}X0(37)1:AJ0:A1NZ:AD%(A,4)ROOM20032174}X9ROOM:ROOMROOM200z 20Y D$(4):D$;"BLOAD PICTURE,A$4000":16299,0:16304,0:16297,0:16302,0yD$;"RUN THE ADV CONTINUES"(!OAIN MENU."`O11:13(jO20400LtOA$"PRESS ANY KEY TO CONTINUE."^~O19:8:20400nO19:35:A$tOO - SUBROUTINE TO PRINT TEXT WITH CLICKS.OO150OI1(A$)O(A$,I,1);OX(16336)OIOO255ODISKETTE TO PLAY"N16:8'N20400KNA$"PRESS ANY KEY TO CONTINUE."VN19:8aN20400mN19:35uOA${OO - SUBROUTINE TO PRINT TEXT WITH CLICKS.OO150OI1(A$)O(A$,I,1);OX(16336)OIOO255O CONTINUE."N19:8"N20400.N19:356OA$<OjO - SUBROUTINE TO PRINT TEXT WITH CLICKS.pOvOOI1(A$)O(A$,I,1);OX(16336)OIOO55OOUST MAKE A COPY"N14:10N20400NA$"OF THIS ՠŠΠԧή٠ǠȠӠĠϠŠȠ̮ˠӠĠȠĠԮϠŠԠӠ٠ŠҠӠΠĠ͠ԧӠӮէŠǠǠǠǠŠȠӠΠϠӠȠȠĠȮŠŠĠӠϠŠԠĠԮV0:B$""V1+ (4)"OPEN EE.DESC,L256"G (4)"WRITE EE.DESC,R"IT V0ĺB$a V1ĺA$r (4)"CLOSE"| (4) 80T (4)"OPEN E.DESC,L256"7(4)"READ E.DESC,R0"BT:T1_((4)"OPEN EE.DESC,L256"{2(4)"WRITE EE.DESC,R0"<T:T1FI0PII1Q(4)"OPEN E.DESC,L256"Z(4)"READ E.DESC,R"IdA$n(4)x"#"I:A$y">>";B$ z!! ROOM300345753. "YOU SEE A -- ":AN$(A)::AJ1:.Ad.AJĢ21:"(ANY KEY FOR MORE)";:X0$:.AJĢ21:19):X0:X023ĢX02.X0(37)1:AJ0:A1NM:MD%(A,5)ROOM34595.MN$(A);:(MN$(A))9ĺ. " IS HERE"::AJ1.#A/$AJĢ21::"(HIT KEY FOR MORE)";:X0$:=-21:19):X0:X023ĢX02Y-X0(37)1:AJ0:A1NZw-AD%(A,4)ROOM20034566-X9ROOM:ROOMROOM200:52110:ROOMX9:AJ1:34575-AD%(A,4)ROOM34570-"YOU SEE A -- ":AN$(A)::AJ1:34575. AD%(A,4)KEN"::,WHRO:HA1:EMBRO1,FO0:X01NAI,AN$(X0)XS$34280,ʅAD%(X0,4)WHAD%(X0,4)HAAD%(X0,4)EMB34280,ԅXS$AN$(X0)BMX0,ޅFOFO1:AX0,腂X0:FO1ABM,,Ć,Ά === LOOK ===,؆ ,52000::X0(37)1-21ĺ:"IT'S TOO DARK TO":"SEE ANYTHING!"::M+zEMBRO200:WHRO:HARO:34230q+FOĺ:"I DON'T SEE THAT!"::+WTAD%(A,3)10MD%(0,1)ĺ:"YOU CAN'T BUDGE IT"::+AD%(A,4)1:WTWTAD%(A,3)+:AN$(A);:(AN$(A))12ĺ" TAKEN"::,:"TAڄ === TAKE ===*䄲**>(XS$)134160Q*H:"TAKE WHAT?":"->";:XS$"":XN0q*RX0$:X0(X0$):X01334160*WX024ĺ:34120*\(X032X048)X09034130*_XNXN1:XN3034150*a"*OVERFLOW*"::34120*fX0$;:XS$XS$X0$:34130++pLT(RLS2%(SP))(RL5))(RL95))))6SUCıb)@D(100)SA%(SP)S2%(SP)S2%(SP)2:SA%(SP)SA%(SP)2{)JS2%(SP)S2%(SP).5:) ) === SAY ===)):MSG$"'"XS$"'":52122::)) === SAVE GAME CMD ===))D48500:EX1:)Є*:NBTL1::MN$(M)?("RETURNS TO LIFE ":"AND ATTACKS YOU!":Q(MD%(M,14)1:(:"SUDDENLY YOUR HEAD":"HURTS WHEN YOUR"("SPELL BACKFIRES!":"YOU FIND YOU DON'T"(""RECALL IT ANYMORE!":SA%(4)0:S2%(4)0:),SUC0:SA%(SP)RL(100):SUC((!"::!':"YOU ARE HEALED!":H'MD%(0,13)0HDHD1:MD%(0,1)HD:Z'MD%(0,13)0:'Ȃ:"A LOUD VOICE SAYS":"YOUR DOOM HAS BEEN"'҂"SEALED!!"::'܂M1NM:MD%(M,5)ROOMĂM:SUC0:33360'悭MD%(M,13)MD%(M,1)SUC0:33360(MD%(M,13)0  120<:IA:230,32:16300,0:16297,0:16302,0:16304,0iF"BLOAD QUIT TITLE,A$2000"qZA$d::10:10:"INSERT NEW DISK AND"::11:"PRESS CTRL-RESET"n110x60 TARGETA" THE BEGINNERS CAVE D" ՠŠΠˠԯԠ̮ՠΠŠԠΠȠӮՠŠΠ̠ҠͮŠӠҠΠŠԠŮ"    ! "    ! "