8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RM荰u^ ]mUMY_^[UhE SEEEVWM @ME܍E؉EEEEE j3Y}j}YEEEEك<#Í‹U E p"piEE+]+}+"TD"ً##%C‹U E p"piEE+]+}H+"TD"ً ##%C‹U E p"piEE+]+}+"T"TD#EAMON.FK' 0E001 'E002! E003" E004# E005$ E006% E007& E008' E009( E010) E011* E020+ E043 E060 E061 E074 E075 E078 E079 E080 E106 E124 E148 E150 E157 E158 E194 E217 E225 E226 E237 E997 E998 E999 &PRODOS"}@ ,BASIC.SYSTEM9( 'STARTUPN)EAMON.PICS  *FRONT.DESKd )&SNAPPYl@9.NEW.CHARACTERSo e))MAIN.HALL{;THE.ADVENTURER (*CHARACTERS*'(CHAR.EXTs(.CHARACTER.EDIT3)$EDIT^g5$LISTw%L !C}" %"" &)#M8( Y% ) LH""" &)jB, )7(P0 ( @X p 8 " ! +}""0 &"0 R%"" &)?) ;",")ɂ """ &) R%LH")0I0hx H( , R%Щ ߩ"L! )L! 8'  )ɀ)4,- U JNT) "L"" &) !` |"M) !"#$%&'()*+,-./01234567Fi/ ƀ"3 """ " iL X\"LY"ίΠ`"""""(#*(% F%Z]eRQ!0SB}RBiBB}` }FELT#> ȏ6 . ) ɟ"     Lb#b#ŠϠĠԠ  m# m# J Qڨ)̰}]! нȱ ̀𩠙 i  a Y n ɟg   VR6  .X ɛL " e ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8`<YYZLYLYLY뿭` 8!@8` R%MNЩUMߩ  L 5   8 0 8  `0 / X?&G& e&&q&P&0`ŠӠֱ̭ԠŠҬî̠ӠĮʎ1&… )n&Dž )\%T&L()8= )J 81(&2(& m((ʎ1ζ&ζ&&3223 ')L&18&"m11 2H22h2舌&&12H)M0 h10200I20h2 C(`L%12 `_3("L  <8# ȱ)ɀ  );( ` (Xp< @;( )m;(;(.;(>( M;(i  ``) '(j21 & &!` )&&(i(&(( CBDFGE !)&$ m(,&& … m(ŅL7'JJJJ`Ϡ3(8`&h)hrȱȱȱȱ0]cȱeem+ȱ+ȱ++ȱ++ȱ+ )+ C* )L2)`Ly* U*L) ) L2) )L)8e` ,$`ee` `+ *+ *` * * *`hh8`8`+++`}+`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <x0HH1HH "hh+("i 0Ꮻ\Ꮸ0hh8(`hhh8k/<ʆ>-=?BC8 é&'112`HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLآ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@pvȱ@Hȱ@Ah@@cpe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl`B f-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпllllhh8` Q)T'P") ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA C'KI؍0JHi 뎁`C8` @)0 3N0" K莭0 ⭪i` ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ0NN` G8`F@ 0 F LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 밳JK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQ8`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K01 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a ,FإGؐ.` ,JHIH IL3FHGI ҭJjHIHB>IؙJJ [: IL}HIHI`JKJK`FHIG ( Ȣ؝}؈JL)eKM`)` J vJ͛ $0 ΊJFȱJL8`GBJ R FإG`BH RFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` zL)J  8"L zH  8 9ؙ` @ P8`K8`B8` H؈OJJJJحm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Qh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$% LL L L 6 $pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8NNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL9L-M O,p莝eNNO(`JNKOL 6/ $P L8 } [ؑJ`L@ȱ@ `@Nȱ@O`؝}}vIvؐ` hzؽ}؝v h ' h؝zv؈` ` H Rh)N@ 9; L  6$ )bJ ] ) H 6hL )  )حJjIwHIvH؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL& O, PeNNO N(` C  7 2JvHIwHI؊ LI  ,` A Hv ع Hw ؙ؊ؠIhHIhH  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . Q#ع؍0 ]讁)`.@+ i 8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  ) 9⬂Ȣ؝z@zݚ@ʈLN KIJHȢݚ h魚)Jn 8 δ ؍ ؍ `H8 ع)ꭱJJJJ Ȣ؝I؈ 6h(8H ; h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @LL =@ -ȹP8` i` ;ם0 -B ;)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J -טyרםOO)׍O`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 F`aO)@LP8` `  zHOCDC h`yٙ٭yٙ٩`H GB`FaG 3%&N    ܮ `J HH hh` 0 @ LJL t_̴Xܝ ݝ0̴ȩFG  0` ܅F݅G ` } tͬ 밽܅F݅G ` }) t$ L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 z9X(K zXXK تKo`V8`no` C on zI9XX`)HJJJh`OeNeO࿰ z9XАO`@ȭ@` ON `NJKO`HхhꭋILhH),ex8 (8` ԍ`@Ae Hk00YpmGIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-89APPLELKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LRP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ`` ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D EFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ح o âXoύX1021ʆ ")i/ d+ M# L $0)0ei B = )n  Э` M )ЏL6  9 X [ ?  W" !# n. n'% n% n ɍ+Ɋɋɉɛݮʽ/ L6L[  Mȱ蝀` ̭  ( 9 X L $ ` & & & &e`{8i [`0{2H* Ah2  Mȱ  L `κºú` GAB0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKELG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""I򭭻L8:;<=>?@ABCDEFGHIJKLYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠH06172839h` v97L75v^a ?/( va?L5LLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b ,S0 @ lLޭBDEF޾ p ޾ p($ذ v (0 ?( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ ?B94 l% bʽ  ՚,S` H $݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O黩 puȾ ɾ-O c־Jjjj껝2뻝3 `O>0O v POپھ p +H־Ǿh۰8L־Jjjj2껽3뻭ɾ)Ⱦ8껰  OLӜ ΤLLX>(F﻽ﻝﻩ`ֻ־ؾپھ׾` bɄ KDEF vLl v lL5 bKɍKL?`  vLl@3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅3ݷ03LG8H933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B;8`W K  黐LK ҟ ҟ l KK`JJJJ8`轌K)` #hhLJپھ pHJh` D!hgtp `tp8nnitpiͱtso8pinii>j?kͷ>pIiͯͷ l - `>i>?Ek?!>Q>>>Ͳͳ `` \>Ͳ ͳ `e>>?ʹ?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`;=:<:<=;`ͯm;>:8o>oȑ>ppȑ>> :op` DKpn͋ @p;틻=po:i>?Ek?>Q>> L> \/ e>>?ʹ?ޱ>ȥj>>m>` im8iŻnjƻkiljoŻS -޻.߻$I2 U)VJ T)`l޻8`a HbIJhjǾȾɾ p٭b=aIe f`8` cP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ŵ 춰5W) )W)@! pZ}ȾȾ󰹩 p` c־ǾҾ,G 8`׾ؾ  p ۥs׾tؾE` c ( |о(־Ǿ,G 8`_`W)H־Jjjjh2׻3ػ p̭ػ׻ L%Ǿ廎滠 ..8׻ػ 廍⻈ۭ (׻8廪ػ滨mȾȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDbzDl e|Ŭ-⭚ݴgaB<{P~VM@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~T٩   LiLMTRLLLLL58ﻀۻ)Iۻ `2Eۻ8`ﻀ ԠŬLL8 EAMON HARD DRIVE IMAGE BY FRANK KUNZE 12/23/02 b D$(4):D$"PREFIX":P$:D$"PREFIX"P$(26)"1":(21)::::40):23:1:40);:X222:X:1:" ":X:40:" ":1:1:"\";:40:"/":23:1:"/";:40:"\";:34,1:33,38:32,1:35,22: (:500::" EAMON MASTER DISK & BEGINNERS CAVE"::11)"BY DONALD BROWN":::14);(48(DA10));DA"-"(MX$,MO32,3)"-"(48(YR10))YR 2::6)"<1> ENTER MAIN HALL":6)"<2> EDIT CHARACTER FILE":6)"<3> CONTINUE PREVIOUS GAME"T <6)"<4> NOTES ONMOPQTUVWSYZ[\ HDV IMAGE":6)"<5> EDIT AN ADVENTURE":6)"<6> LIST AN ADVENTURE":6)"<7> QUIT" F:" ENTER 1-7 ->";A$:A$""40:A((A$,1))48:A1A7(A$)140:A80,90,10000,5000,200,210,100 PD$"-FRONT.DESK" ZD$"-CHARACTER.EDIT"K d:10:" QUIT TO (B)ASIC OR (P)RODOS?"::" -->";A$:A$"B"A$"P"100:A$"B"ĉ::24:X nD$"BYE"g D$"-EDIT"v D$"-LIST"  SET DATE  MX$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC?????????":A(49040):B(49041):YR(B2):MO(A32)8(BYR2):DAA(A32)32( YR99MO13MO0DA32DA0ıK EN700:9:" ENTER THE DATE:" 11:1:" DD-MMM-YY"::" WHEN FINISHED":" TO START OVER":11:2:HT2:X$"" &HT:A$:A$(8)540:A$(13)660U 0(HT4HT8)(A$"0"A$"9")550:HT2A$"3"550:(HT12HT15)A$"5"550:(HT4HT8)A$"A"A$"Z"550:(X$)6550 :HT5MO$A$:MO112:MO$(MX$,3MO2,1)Ă:550 DHT5ĭMO$"F"MO$"S"MO$"O"MO$"N"MO$"D"X$(X$,2)(MX$,3MO2,3):(MX$,3MO2,3);:HTHT3:6308NHT6MO$(X$,1)A$:MO112:MO$(MX$,3MO2,2)Ă:550XHT6ĭMO$"AP"MO$"AU"MO$"JA"X$(X$,2)(MX$,3MO2,3):(8);(MX$,3MO2,3);:HTHT2:630bHT7MO$(X$,2)A$:MO112:MO$(MX$,3MO2,3)Ă:550lA$;:X$X$A$<v(X$,2)"31"((X$)2X$"01")540:HTHT1(HT3)(HT7)(HT10)(HT13)HT9N29(MO2):N$(N):(MO2MO4MO6MO9MO11)(X$,2)N$X$N$(X$,3):2:N$;550DA((X$,2)):MO$(X$,3,3):YR((X$,6,2))(X$)7540YR99MO12MO1DA31D8o18?88888 8nA U*UT*U*@ǿT*U*U>>08nx9>8@n9x8@S*T*#U*U(U*U*QrS* T*0n9n88||P*S*Q* A*U*U**U U*UxM*@@_AAAYYF@PrU*(U*U*T*UP**U*E*RTUVWXYZ[\]^_`ab@r U*yD*Q* UUT @@ @ *Gx(U *U T U*pT@ *x*T*@(P*eU*U*nx8n8088|8xT U(EP* U*e U**nfnfZZ ll llllfn nflll l8 U*UjT U*DϟU*U*U*S@"88@*R*U* (U*U(U*U PbS* P*ОP*EX*Q* CG*U* E*U"U*U|M*@_AAYYYFT@rU* !U*U*T*UpT**U*e(((U*y*T*UUT @@@  @*W`(U @*U yT U*P@ *TD*P(TE*U*U*U UP*!@ U*e'U**~f~~fff<<l l<<>8P*W*Q* pT*U*U*U* UbQ*0@Y_OY@*T*eP Y*U*U*P*U(U*UF*(rU*Y׀T*U*PT*U* O2*U*xT*T* P* U"@ @ (Q@S @@* uT*U*0Dx8F?n}8v|8x@ U"E@*@U(Q*e/U**86|8|nv88>8n6x (EjUT*(T@!*U*/U**n~>8<~BDBDlDDBDLDD>DLP*UU U*pߏ U*U*UzT**U*U eDDDDDDP*AeP*Q* `U*U*U*U*Q*UrU* @YAAYY_F*UzT*Q**U*U*U*P*U(U*U*@*r U*yǿT*U*U*P*@r@*U*xT*U*P**Q"(QS @P*(U*T*DDDlDDDL$DDPU"ye@*PU Q*e/U**>@L@BDLDD|E@DLD PUU* |AF*U*U*(<(<|TD|<DD|DD*Q*U*p@*U*U*U*UzT*  U*AD||DD|P*aeW*Q* `!U*U**U*T*UrU* @YAAAY_F`*UzT*@*U*U*U*U*P**U*U*Pr U*T*Q*U U@ @@*@OzT*U*yT*U*U*@*P"(P*@P (eU*T*|DTDD||DPU*%@*T P*/U**v=v||~>~|~>~>n~xDx<(D|Dx(DD U*UrU"U* @|CB*U*U*@@DD@xDDD S*T*@pU*U(U*U*UrQ* U*DD<<TTP*aEW*Q* @(U*U**U U*UzE*@@YGAAYYF@*T:T**U*U*U*U P**U**$@r U*yP*Q*U `U @ @ *@z U *U yT*U*T P1(T*@ P (eU*T*DDDD to exit.":10 4:X117:AN$(X,1);:40:AN$(X17,1)::L4:H1:Z1 L:H::AN$(Z,1)::49168,0 A(49152):A1281040:AA128:L:H:AN$(Z,1) A8HH39:ZZ17:H11030:H40:ZZ34:1030;$A11LL1:ZZ1:L31030:L20:ZZ17:1030o.A21HH39:ZZ17:H401030:H1:ZZ34:10308A10LL1:ZZ1:L211030:L4:ZZ17:1030BA27ī100LA131030::(21): V49168,0:D$"PREFIX":P$:D$:D$"PREFIX"P$AN$(Z,2):11509`D$"VERIFY FRESH.MEAT":216,0:Z31ī1150j"YOU ALREADY HAVE A CHARACTER THERE. USETHE CONTINUE GAME OPTION FROM THE MAIN MENU...";:49168,0:A$::D$"PR#3"::tD$"PREFIX/":D$"PREFIX":P$:D$:D$"PREFIX"P$:100(~216,0:D$"PREFIX/":D$"PREFIX":P$:D$:D$"PREFIX"P$_Z32ĺO$"CHAR.EXT,L256":W$"CHAR.EXT,R"RE:"":C$D$"PREFIX":P$:D$:D$"PREFIX"P$AN$(Z,2)F$"EAMON.NAME":216,0:O$F$:R$F$:AN$:C$::5:"You are about to adventure in":::AN$::X110000:VO$"FRESH.MEAT":W$"FRESH.MEAT":RE500:200:C$:D$"-EAMON."(AN$(Z,2),3)".INTRO"g WEP SHOP %FF$::A$"As you enter the weapon shop, Marcos Cavielli (the owner) comes from out of the back room and says, "Q$"Well, as I live and breathe, if it isn't my old pal, "NA$"!":10:A$Q$"So, do you want to: Buy a weapon, Sell a weapon, or get some better armour?"Q$:10::"(Hit a key, B, S, A, or N(othing) :";A$:A$:A$"N"100:TR13:A$("BSA",TR,1)Ă:20107TRTRTR::C2CH(11(1)5):C2C2(C20):RT10C2:TR12080,2280,2590C  BUY %WN$(4)"NONE"A$"Marcos smiles at you and says, "Q$"Thatsa good, but first you gotta sell me a weapon. You know the law: No more than four weapons per person!"Q$:10:2280*A$"Marcos smiles at you and says, "Q$"Good! I gotta the best. You wanta (A)xe, (B)ow, (M)ace, s(P)ear, or (S)word?":10:2760:N$4:A$"Marcos says, "Q$"Well, I just happen to have three "N$"S in stock, of varying quality!":10:>A$Q$"I've got a very good one for "(P(2BP))" GP, a fair one for "(P(BP))" GP, and a kinda shabby one for "(P(BP2))" GP. Which do you want?"Q$:10:H"(Hit a key: G, F, P, or (N)othing :";RA$:A14:A$("GFPN",A,1)Ă:2130,\A$:A4100:QA:AAA::PBPBP(Q1)BP2(Q3):PP(P)pPGOA$"Marcos shakes a finger at you and says, "Q$"You shouldn't play tricks on an old friend! Come back when you gotta more gold!"Q$" He then walks away.":10:7000:100W14:WN$(W)N$N$N$"#":2180':W14:WN$(W)"NONE"ĂsWN$(W)N$:WT%(W)TP:WO%(W)10(2Q):WD%(W)1:WS%(W)SI:GOGOP:WWW:A$"Marcos hands you your weapon and takes the price from you.":10:GOP(50)2270*A$"He now asks you, "Q$"Now how about some armour?"Q$:10::"(Hit Y or N) -->";JA$:A$:A$"N"ĺA$::2270A$"Y"A$"Marcos looks at your strangely then says, "Q$"Don't you be a-talking gibberesh to old Marcos, now, "NA$"!"Q$:10::2230:2590c:A$"Marcos smiles and says, "Q$"Come back again soon, "NA$"!"Q$" as he shoos you out of his shop.":10:7000:100p SELL A$"Marcos asks you, "Q$"Is this weapon you want to sell me a standard weapon like I sell?"Q$:10::"(Hit Y or N) :";A$:A$"Y"A$"N"2290:A$:A$"Y"2440 P(50RT5):A$"Marcos says, "Q$"Then I can only give you "(P)" gold pieces for it, take it or leave it!"Q$::10::"(Hit T or L) -->"; A$:A$"L"100:A$"T"2320:A$A$ :A$"Marcos says, "Q$"Okay, what've ye got?"Q$:10::A14:WN$(A)"NONE"ĺA": ";WN$(A)::AA1y) :"Enter the # (1-"A")";:A$:W(A$):W1WA2345. W:X$WN$(W):WN$(W)"NONE"ĺ:A$"Marcos frowns and says, "Q$"You can't sell a weapon you don't own!"Q$:10:7000:100Q8 L(X$,5)"SWORD"(X$,5)"SPEAR"(X$,4)"MACE"(X$,3)"BOW"(X$,3)"AXE":L2380B A$"Marcos frowns at you and says, "Q$"This is a weapon like I sell, remember?"Q$:10:7000:100dL A$"Marcos gives you your money and takes your weapon.":10:GOGOP:WW4:AW1:WN$(W)WN$(A):WT%(W)WT%(A):WO%(W)WO%(A):WD%(W)WD%(A):WS%(W)WS%(A)::WN$(4)"NONE"` :A$"Marcos asks you, "Q$"How about buying a weapon?"Q$:10::"(Hit Y/N) :";j A$:A$"Y"A$"N"2410:A$:A$"Y"2080:2220> :A$"Marcos asks, "Q$"Well, what weapon you wanta return?"Q$:10:2760 W14:(WN$(W),(N$))N$Ă:A$"Marcos laughs and says, "Q$"You never bought one from me, remember?"Q$:10:2270 BPBPBP(WO%(W)5)BP2(WO%(W)5):P(BPRT.5):PBP4P(BP4.5) A$"Marcos examines your weapon and says, "Q$"Well, you've banged it up a bit, but I can give you "(P)" gold pieces for it, take it or leave it."Q$:10::"(Hit T or L) :"; A$:A$"T"A$"L"2490:A$:A$"L"2270:2380+ :W14:("ABMS",W,1)(X$,1)ĴW2540,2550,2560,25702 WB BP25:2460R BP40:2460b BP20:2460 (X$,2,1)"P"BP25:2460  BP50:2460  ARMOR # A2(AC2):SHACA22:B125(A21)60(A22)100(A23):TI(B1RT.5)t!( A$"Marcos takes you to the armour section of his shop and shows you suits of leather, chain, and plate armour.":10:TIB12TIB12*"2 :A$"He says, "Q$"I can put you in any of these very cheaply. I need "(P(100))" GP for the leather, "(P(250))" for the chain, and "(P(500))" for the plate.":10:"< TIA$Q$"Also, I can give you a trade-in on your old armour of "(TI)" gold pieces.":10:"F Q$"Well, what will it be?"Q$::"(Hit N for nothing or L, C, or P) -->";#P A$:A14:A$("NLCP",A,1)Ă:2640#Z A$:A12680#d PP(100(A2)250(A3)500(A4))TI:PGOA$"Marcos frowns when he sees that you do not have enough to pay for your armour and says, "Q$"I don't give credit!"Q$:10:2680:$n A$"Marcos takes your old armour and your gold and helps you into your new armour.":10:GOGOP:A2A1G$x SH2750$ A$"Marcos smiles and says, "Q$"Now how about a shield? I can let you have one for only "(P(50))" gold pieces!"Q$:10::"Hit (Y/N) :"; % A$:A$"Y"A$"N"2710:A$:A$"N"2750% :GOP(50)A$"When he sees that you do not have enough gold to buy the shield, Marcos frowns and says, "Q$"I'm sorry, but you know I don't give credit!"Q$:10:2750& GOGOP(50):SH1:A$"Marcos takes your gold and gives you a shield.":10:& ACA22SH:2270Q& :"(Hit a key, A, B, M, P, S, or (N)othing :";}& A$:A16:A$("ABMPSN",A,1)Ă:2770& A$:A6ġ:AAA::100& WA:AAA::W2790,2800,2810,2830,2850& N$"AXE":BP25:TP1:SI6:' N$"BOW":BP40:TP2:SI6:%' N$"MACE":BP20:TP3:SI4:F' N$"SPEAR":BP25:TP4:SI5:g'" N$"SWORD":BP50:TP5:SI8:v' SPELLS 1( FF$::5:A$"After a few minutes diligent searching, you find Hokas Tokas, the old mage. He looks at you and says, "Q$"So you want old Tokey to teach you some magic, heh heh?":10( :A$Q$"Well, it'll cost you. Today my fees are:":10::C2CH(11(1)5):C2C2(C20):RT10C2) " BLAST..."P(3000)"GP":" HEAL...."P(1000)"GP":" SPEED..."P(5000)"GP":" POWER..."P(100)"GP":Q) Q$"Well, which will it be?"Q$::"(Hit a key, B, H, S, P, or (N)one :";e) A$:A$"N"100) SP14:A$("BHSP",SP,1)Ă:3060) SP3090,3100,3110,3120) "Blast":PP(3000):3130) "Heal":PP(1000):3130*& "Speed":PP(5000):3130*0 "Power":PP(100)*: :PGOA$"When Hokas sees that you don't have enough to pay him, he stalks to the bar, muttering about youngsters who should be turned into frogs.":10:7000:100+N SA%(SP)03165:GOGOP:SA%(SP)((1)5026):A$"Hokas teaches you your spell, takes his fee, and returns to his stool on the bar. As you walk away, you hear him order a Double Dragon Blomb."+X 10:7000:100!,] A$"Hokas says, "Q$"I ought to take your gold anyway, but haven't you forgotten something? I already taught you that spell!"Q$n,b 10::A$"Shaking his head sadly, he returns to the bar.":10:7000:100}, BANKER ,(12)::5*-A$"You have no trouble spotting Shylock McFenney, the local banker, due to his large belly. You attract his attention, and he comes over to you.":10:-A$Q$"Well, "NA$", my dear ":7010:A$A$"what a pleasure to see you! Do you want to make a deposit or a withdrawl?"Q$:10'.:A$"(You have "(GO)" gold in hand, "(BA)" in the bank.)":10::"(Hit 'D' for Deposit, 'W' for Withdrawl) :";C.A$:A$"D"ĺA$::4140U.A$"W"4050.A$::A$"Shylock says, "Q$"Well, you have "(BA)" gold pieces stored with me. How many do you want to take back?"Q$:10:/"(Enter the number of gold pieces to withdraw) -->";A$:MN(A$)/MN0MN(MN)(MN)A$ĺ:A$"The banker scowls and says, "Q$"Come, come, you're not making sense! Try again!"Q$:10::4080k0(MNBA)ĺ:A$"The banker throws you a terrible glance and says, "Q$"That's more than you've got! You know I don't make loans to your kind!"Q$" With that, he loses himself in the crowd.":100GOGOMN:BABAMN::A$"The banker hands you your gold and says, "Q$"That leaves you with "(BA)" pieces in my care."Q$:10*1":"He shakes your hand and walks away."::7000:1001,A$"Shylock gets a wide grin on his face and says, "Q$"Good for you! How much do you want to deposit?"Q$:1016:"(Enter the amount you want to deposit) -->";A$:MN(A$)k2@MN0MN(MN)(MN)A$ĺ:A$"The banker scowls at you and says, "Q$"Come, come, you're not making sense! Try again."Q$:10::4150?3JMNGOĺ:A$"The banker was very pleased when you told him the sum, but when he discovered that you didn't have that much on you, he walked away shouting about fools who play tricks on a kindly banker.":10W3TMNGOĺ:7000:1003^GOGOMN:BABAMN:A$"Shylock takes your money, puts it in his bag, listens to it jingle, then thanks you and walks away.":10::7000:1003 DISPLAY 40 COL 54A14:SP$(A)(SA%(A))"%":SA%(A)SP$(A)"None"4:A(AC2):SH(AAC2):A(A5)A(A4)4:AR$AR$(A):SHAR$AR$" & Shield"4EA5(AR2AC):AREAEAAR10:AR3EAEA304FF$::A$"You are the ":7040:A$A$NA$:10::CP805500w53:20:"GOLD:":"HARDINESS:";:12:HD;:21:"IN HAND: "GO:"AGILITY:";:12:AG;:21:"IN BANK: "BA:"CHARISMA:";:12:CH520:"WEAPON ABILITY:":"SPELL ABILITY:";:21:"1.AXE:";:30:WA%(1):" BLAST:";:12:SP$(1);:21:"2.BOW:";:30:WA%(2)b6" HEAL:";:12:SP$(2);:21:"3.CLUB:";:30:WA%(3):" SPEED:";:12:SP$(3);:21:"4.SPEAR:";:30:WA%(4)6" POWER:";:12:SP$(4);:21:"5.SWORD:";:30:WA%(5)6:"ARMOR: "AR$:" EXPERTISE: "AE"%"::"WEAPON INFORMATION:"87" NAME TYPE CMPLX DMG ODDS";:W14:(WN$(W))18WN$(W)(WN$(W),18)r7WN$(W)18(WN$(W)))WT%(W)6((WO%(W))))WO%(W)"%";77((WD%(W))"D"(WS%(W))))WD%(W)"D"WS%(W);:A$((EAAE)(EAAE)WO%(W)WA%(WT%(W))2AG):5(A$))A$"%"7:7000:100 8| DISPLAY 80 COL 8H1403:"Hardiness: "HD;:H,20:"Agility: "AG;:H,37:"Charisma: "CH" ";:"(Charm Mon: ";:A(CH10)2:("+",(A1)11,1);A;"%)"8:"Weapon Abilities:";:H,41:"Spell Abilities:"-9" 1. Axe: "WA%(1);:H,42:"Blast..."SP$(1):" 2. Bow: "WA%(2);:H,42:"Heal...."SP$(2)9" 3. Mace: "WA%(3);:H,42:"Speed..."SP$(3):" 4. Spear: "WA%(4);:H,42:"Power..."SP$(4):" 5. Sword: "WA%(5);9H,24:"Gold: "GO;:H,56:"In bank: "BAC::"Armour: "AR$;:H,34:"Armour Expertise: "AE"%"::"Weight Carryable: ";:AHD10:A" Gronds ("A10" DOS)"::"Weapon Names:";:H,27:"Complexity:";:H,47:"Damage: Odds to Hit:":A171:"-";:::W14:WN$(W)"NONE"5590;WN$(W);31(WN$(W)));:A$(WO%(W))"%":A$;18(A$));:A$(WD%(W))"D"(WS%(W))[;A$;14(A$));(EAAE)(EAAE)WO%(W)WA%(WT%(W))2AG;"%"l;:7000:100z;p LEAVE "yA04:AR$(A)::34000:D$(4):Q$(34):FF$(12):O$D$"OPEN":R$D$"READ":W$D$"WRITE":C$D$"CLOSE"C>'yNA:AN$(NA,2):X1NA:AN$(X,1),AN$(X,2):{>,yO$"THE.ADVENTURER":R$"THE.ADVENTURER":NA$,RE:C$>1yCF$"CHAR.EXT":CL256:RE500CF$"CHARACTERS":CL150 ?6yO$;CF$",L"CL:R$;CF$",R"RE:NA$,HD,AG,CH:X14:SA%(X)::X15:WA%(X)::AEl?@ySE$,GO,BA,AC:W14:WN$(W),WT%(W),WO%(W),WD%(W),WS%(W)::C$:X14:WN$(X)""WN$(X)"NONE"?Jy:P(X)(XRT.5):RE500100:RERE500:100?Є 80 COL? ?䄉::CP80:(4)"PR#3"::SP$" ":@*Clothes,Leather,Chain Mail,Plate Mail,Magic/ExoticO@ 34,THE BEGINNER'S CAVE,E001,LAIR OF THE MINOTAUR,E002@THE CAVE OF THE MIND,E003,THE ZYPHUR RIVERVENTURE,E004,CASTLE OF DOOM,E005,THE DEATH STAR,E006,THE DEVIL'S TOMB,E007S$;"14. ADD AS A NEW RECORD":S$;"15. CANCEL CHANGES"::" INPUT (1-15) ";SxHS2200,2400,2600,2800,3000,3200,3400,3600,3800,4000,4200,4400,4600,4800,510R2060DD$(0)""ĺ:"THIS CHARACTER IS DEAD. THE PREVIOUS NAME OF THIS CHARACTER WAS:"::15:"(?)";DD$(0)::2220:"OLD NAME: "NA$(0)i"NEW NAME: ";X$:(X$)0(X$,1)"A"(X$,1)"Z"(X$)20ĺ:"INVALID NAME.":2200I1NC:NA$(I)X$ĂNA$(I)X$CIĺ:"THAT NAME IS ALREADY BEING USED.":2200DD$(0)"":UP1:NA$(0)X$:E` :"OLD HARDINESS:";HD(0):"NEW HARDINESS:";X:X3X300X(X)ĺ:"INVALID HARDINESS.":2400Xj UP1:HD(0)X:( :"OLD AGILITY:";AG(0):"NEW AGILITY:";X:X3X300X(X)ĺ:"INVALID AGILITY.":26002 UP1:AG(0)X:( :"OLD CHARISMA:";CH(0):"NEW CHARISMA:";X:X3X300X(X)ĺ:"INVALID CHARISMA.":2800; UP1:CH(0)X: :8:" SELECT SPELL:":S$;"1. BLAST",SA%(1,0):S$;"2. HEAL",SA%(2,0):S$;"3. SPEED",SA%(3,0)  S$;"4. POWER",SA%(4,0):S$;"----------":S$;"5. RETURN TO MENU":X5:600::S3020,3030,3040,3050,30609 UP1:"NEW BLAST RATING:";SA%(1,0):3000e UP1:"NEW HEAL RATING:";SA%(2,0):3000 UP1:"NEW SPEED RATING:";SA%(3,0):3000 UP1:"NEW POWER RATING:";SA%(4,0):3000 / :8:" SELECT WEAPON ABILITY:":S$;"1. AXE",WA%(1,0):S$;"2. BOW",WA%(2,0):S$;"3. CLUB",WA%(3,0) S$;"4. SPEAR",WA%(4,0):S$;"5. SWORD",WA%(5,0):S$;"----------":S$;"6. RETURN TO MENU":X6:600 :S3230,3240,3250,3260,3270,3280 UP1:"NEW AXE EXPERTISE:";WA%(1,0):3200 UP1:"NEW BOW EXPERTISE:";WA%(2,0):3200G UP1:"NEW CLUB EXPERTISE:";WA%(3,0):3200w UP1:"NEW SPEAR EXPERTISE:";WA%(4,0):3200 UP1:"NEW SWORD EXPERTISE:";WA%(5,0):3200 /H UP1::" ARMOR CLASS:"::S$;"1. SHIELD ONLY":S$;"2. LEATHER ARMOR":S$;"3. LEATHER ARMOR & SHIELD":S$;"4. CHAIN ARMOR"R S$;"5. CHAIN ARMOR & SHIELD":S$;"6. PLATE ARMOR":S$;"7. PLATE ARMOR & SHIELD"\ :S$;"(CURRENTLY ";AC(0);")":X7:600:AC(0)S::"OLD SEX: ";SEX$(0)"NEW SEX: ";X$:X$"M"X$"F"ĺ:"INVALID SEX":3600&$UP1:SEX$(0)X$:UP1::8:"SELECT ONE:"::S$;"1. GOLD IN HAND",GOLD(0):S$;"2. GOLD IN BANK",BANK(0):X2:600::S3810,3830"HOW MUCH GOLD IN HAND:";X:X0X50000X(X)ĺ:"INVALID AMOUNT.":3810GOLD(0)X:F"HOW MUCH IN BANK:";X:X0X50000X(X)ĺ::"INVALID AMOUNT.":3830VBANK(0)X::"OLD ARMOR EXPERTISE:";AE(0):"NEW ARMOR EXPERTISE:";X:X0X99ĺ:"INVALID EXPERTISE.":X0:4000UP1:AE(0)X:0 h:8:"SELECT WEAPON TO CHANGE:"::" NAME TYPE CMPLX DMG ODDS";::I14 rI;".";WN$(I,0);16(WN$(I,0)));WT%(I,0);6((WO%(I,0))));WO%(I,0);"%"; !|7((WD%(I,0))"D"(WS%(I,0))));WD%(I,0);"D";WS%(I,0);5((2AG(0)WA%(WT%(I,0),0)WO%(I,0))));2AG(0)WA%(WT%(I,0),0)WO%(I,0);"%"!J!"-----------------":"5. RETURN TO MENU":X5:600[!WS::S5ı!" SELECT FIELD TO CHANGE:"::S$;"1. NAME",WN$(W,0):S$;"2. TYPE",WT%(W,0):S$;"3. COMP.",WO%(W,0):S$;"4. DICE",WD%(W,0):S$;"5. SIDES",WS%(W,0)6"S$;"6. NEXT WEAPON":S$;"7. RETURN TO WEAPON MENU":X7:600b":S4290,4300,4340,4350,4360,4370,4200"UP1:"NEW NAME:";WN$(W,0):4260"UP1:"NEW TYPE:"":S$;"1. AXE":S$;"2. BOW":S$;"3. CLUB":S$;"4. SPEAR":S$;"5. SWORD"":WT%(W,0):4260$#UP1:"NEW TYPE:";WT%(W,0):4260I#UP1:"NEW ODDS:";WO%(W,0):4260n#UP1:"NEW DICE:";WD%(W,0):4260#UP1:"NEW SIDES:";WS%(W,0):4260#WW1:W4260,4260,4260,4260,4380##0C1C:C0:SUB1:5000:CC1:# /// CHANGE ARRAY]$NA$(C)NA$(0):SEX$(C)SEX$(0):GOLD(C)GOLD(0):BANK(C)BANK(0):HD(C)HD(0):AG(C)AG(0):CH(C)CH(0)$ I14:SA%(I,C)SA%(I,0)::I15:WA%(I,C)WA%(I,0):%AE(C)AE(0):AC(C)AC(0):I14:WN$(I,C)WN$(I,0):WT%(I,C)WT%(I,0):WO%(I,C)WO%(I,0):WD%(I,C)WD%(I,0):WS%(I,C)WS%(I,0):(% DD$(C)DD$(0)?%*UP1UP(C)1:UP0J%4:510%FULL0ĺ:"THE DIMENSIONED ARRAYS ARE FULL. YOU MAY NOT ADD A CHARACTER TO THIS FILE UNTIL THE PROGRAM IS RERUN.":720:%I1NC:NA$(I)NA$(0)Ă0&NA$(I)NA$(0)ĺ:" THAT NAME IS ALREADY BEING USED.":720:_&NCNC1:CNC:ADD1:UP(C)1:NCFULLFULL0i&4610& /// DISPLAY CHARACTER &:"RECORD #: ";:SUB1ĺC1;&SUB0ĺC;&15:"NAME: ";NA$(C)&:SEX$(C)"M"ĺ"MALE";'SEX$(C)"F"ĺ"FEMALE";'20:"GOLD:"Q'"HARDINESS:";:12:HD(C);:21:"IN HAND: ";GOLD(C)'"AGILITY:";:12:AG(C);:21:"IN BANK: ";BANK(C)'"CHARM:";:12:CH(C)'20:"WEAPON ABILITY:"'"SPELL ABILITY:";:21:"1.AXE:";:30:WA%(1,C),(" BLAST:";:12:SA%(1,C);:21:"2.BOW:";:30:WA%(2,C)h( " HEAL:";:12:SA%(2,C);:21:"3.CLUB:";:30:WA%(3,C)(" SPEED:";:12:SA%(3,C);:21:"4.SPEAR:";:30:WA%(4,C)(" POWER:";:12:SA%(4,C);:21:"5.SWORD:";:30:WA%(5,C)((A$"NONE")2AC(C)1A$"SHIELD ONLY":52206)<AC(C)1A$"LEATHER ARMOR"T)FAC(C)3A$"CHAIN ARMOR"r)PAC(C)5A$"PLATE ARMOR")Z(AC(C)2)AC(C)2A$A$" & SHIELD")d:"ARMOR: ";A$)n" EXPERTISE: ";AE(C);"%")x:"WEAPON INFORMATION:"*" NAME TYPE CMPLX DMG ODDS";P*I14:(WN$(I,C))18WN$(I,C)(WN$(I,C),18)*WN$(I,C);18(WN$(I,C)));WT%(I,C);6((WO%(I,C))));WO%(I,C);"%";'+7((WD%(I,C))"D"(WS%(I,C))));WD%(I,C);"D";WS%(I,C);5((2AG(C)WA%(WT%(I,C),C)WO%(I,C))));2AG(C)WA%(WT%(I,C),C)WO%(I,C);"%"<+:SUB2SUB0:E+720]+AU1CNCAU0:C0l+AU11300+SUB1SUB0:+510+p /// FILE MAINTENANCE +z:8:" SELECT ACTION:":;,S$;"1. LIST FILE":S$;"2. SHORT LIST":S$;"3. CONDENSE FILE":S$;"4. INIT FILE":S$;"5. LIST/DELETE CHARACTERS"e,S$;"6. RETURN TO MAIN MENU":X6:600,S6100,6800,6200,6400,6600,510,///LIST FILE,AU1:C0:1300,8/// CONDENSE FILE,BI1NC,LNA$(I)""6300d-VJINC1:NA$(J)NA$(J1):SEX$(J)SEX$(J1):GOLD(J)GOLD(J1):BANK(J)BANK(J1):HD(J)HD(J1):AG(J)AG(J1):CH(J)CH(J1)-`K14:SA%(K,J)SA%(K,J1):-jK15:WA%(K,J)WA%(K,J1):-tAC(J)AC(J1):AE(J)AE(J1)7.~K14:WN$(K,J)WN$(K,J1):WT%(K,J)WT%(K,J1):WO%(K,J)WO%(K,J1):WD%(K,J)WD%(K,J1):WS%(K,J)WS%(K,J1):F.UP(J)1:JX.NCNC1:ADD1.I:::16)"DONE":I1500:I:6000./// INIT FILE. :6:16::"WARNING":.I13:(7);:/::" THIS SUBROUTINE WILL DELETE EVERY CHARACTER ON THIS DISK!!!"j/(::" DO YOU WANT TO DELETE ALL THE":" CHARACTERS ON THIS DISK? ";A$/2A$"Y"ĺ::13:"ARE YOU SURE? ";A$/<A$"Y"6000/FD$"DELETE CHAR.EXT"/PNC1:D$"OPEN CHAR.EXT,L256":D$;"WRITE CHAR.EXT,R0":NC&0ZD$"WRITE CHAR.EXT,R1"::D$:NC0:410@0/// CHAR LIST/DELETEN0:I1NCo0:"RECORD #";I;": ";NA$(I)0" KEEP THIS RECORD?";:A$:A$:A$"N"NA$(I)"":UP(I)10060000/// SHORT LIST0I1NC:DD$(I)""S$""0<1:8:"SHORT LIST:"::S$;"REC # NAME";:S$""Ė20:"OLD NAME";1::I1NC:S$;" ";I;".";:8(S$):NA$(I);:DD$(I)""Ė21:"(?)";DD$(I);1:1S$" ":720:60001X /// MOVE CHARACTER 1bC0SUB1:1000w2l:"THIS ROUTINE WILL MOVE AN ADVENTURER FROM ONE DISKETTE/FILE TO ANOTHER. THE CHARACTER MUST BE LOADED WHEN THIS FUNCTION IS EXECUTED."2v:"THE CHARACTER NOW LOADED IS:"::(40(NA$(C)))2:NA$(C)%3:"IF THE CHARACTER IS ALREADY LOADED, INSERT THE DISK IT IS TO BE TRANSFERED TO, AND PRESS 'C'."^3:"HIT ANY OTHER KEY TO RETURN TO THE MAIN MENU.":u3A$::A$"C"5103D$"CLOSE":D$"OPEN CHAR.EXT,L256":D$"READ CHAR.EXT,R0":C2:D$d4:" SELECT ACTION:":S$;"1. ADD CHARACTER AS NEW":S$;"2. REPLACE EXISTING CHARACTER":S$;"3. LIST CHARACTERS IN THIS FILE":S$;"4. RETURN TO MAIN MENU":X4:6004S7200,7300,7800,76004 /// ADD NEW CHARACTER4*IC21:770044D$"WRITE CHAR.EXT,R0":I:IC:75304/// REPLACE CHARACTERg5:" SELECT METHOD:":S$;"1. REPLACE BY NAME":S$;"2. REPLACE BY RECORD #":S$;"3. RETURN TO FIRST MENU":X3:600}5S7400,7500,70805:10:"NAME:";N1$5I1C2:D$"READ CHAR.EXT,R"I:N2$:N2$N1$Ă:D$::"I DON'T FIND THAT NAME.":70806D$:7700:75306L/// REPLACE BY REC#6VD$::10:"RECORD #:";I:I(I)IC2I1ĺD$::"THE HIGHEST RECORD IN THIS FILE IS ";C2:70806`77006j91206t:18:"DONE."::7206/// RETURN7D$"CLOSE"::5:" INSERT ORIGINAL DISKETTE AND PRESS":16:"ANY KEY":A$:07D$"OPEN CHAR.EXT,L256":510W7J1C2:D$;"READ CHAR.EXT,R"J:N$7NA$(C)N$IJĺD$:(7):"THE CHARACTER NAME ";NA$(C):"ALREADY EXISTS IN THIS FILE IN RECORD ";J::70807(:8x:J1C2:D$;"READ CHAR.EXT,R"J:N$:S$;J;". ";N$::D$:708018@ // GENERATE NEW RECORD Y8J:"NAME OF NEW CHARACTER: ";NA$(0)8THD(0)0:AG(0)0:CH(0)0:I15:WA%(I,0)0:8^I14:SA%(I,0)0::GOLD(0)0:BANK(0)0:I14:WN$(I,0)"NONE":WT%(I,0)0:WD%(I,0)0:WO%(I,0)0:WS%(I,0)0:9hAE0:AC079rADD1:NCNC1:CNC:UP(C)1:NCFULLFULL0O9|NA$(C)NA$(0):2000h9(# /// QUIT ROUTINE x92#D$;"CLOSE"9<#I1NC:UP(I)1İ91109F#9P#ADDĺD$"OPEN CHAR.EXT,L256":D$"WRITE CHAR.EXT,R0":NC:D$9U#D$"CLOSE":D$"-STARTUP"-:Z#D$;"CLOSE":20:8:"*** END OF PROGRAM ***"::F:# /// WRITE RECORD b:#D$"OPEN CHAR.EXT,L256"}:#D$"WRITE CHAR.EXT,R"I:#DD$(I)""NA$(I)"":#NA$(I):HD(I):AG(I):CH(I):J14:SA%(J,I)::J15:WA%(J,I): ;#AE(I):SEX$(I):GOLD(I):BANK(I):AC(I)N;#J14:WN$(J,I):WT%(J,I):WO%(J,I):WD%(J,I):WS%(J,I)::D$];#D$"CLOSE"c;#|;' ///ONERR ROUTINE ;'768;$'NC1(222)5NC0:410;.'D$;"CLOSE";8'D$"OPEN CHAR.EXT,L256";B'410E001u' ' 'EAMON.001.INTRO(EAMON.NAME6(/EAMON.ROOM.NAME@)+EAMON.ROOMS@)'MAKE.FSp**FAST.STARTe**EAMON.DESC&6)SEARCH.RTN!BEAMON.UTILSB(MAIN.PGM s=SAVED.GAMEB 'Ì' EAMON ADVENTURE #1 THE BEGINNERS CAVE BY DONALD BROWN EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  (4)"-MAIN.PGM" THE BEGINNERS CAVE 6 6.0 CONVERTED FROM A 1.0 VERSION "the cave entrance. (N/S) "a dark north/south tunnel." "the west side chamber. (E)" "a large chamber. (N/S/E/W) "the east side chamber. (W)" "a west cell. (E)" "the N end of a long passage. (N/S/E/W)" "an east cell. (W)" "a west cell. (E)" "the middle of a long passage. (N/S/E/W)" "an east cell. (W)" "a west cell. (E)" "the S end of a long passage. (N/S/E/W)" "an east cell. (W)" "a broken north/south tunnel." "an e/w tunnel with faint music." "an e/w tunnel with loud music." "the temple. (W)" "the library. (E)" "a T-intersection; North by E/W." "an e/w tunnel." "the top of a stairway. (W/D)" "the bottom of a stairway. (E/U)" "an east/west tunnel." "an e/w tunnel smelling of salt." "the pirate's cove. (E/W) -99 2 0 0 0 0 1 1 4 0 0 0 0 1 0 0 4 0 0 0 1 2 7 5 3 0 0 1 0 0 0 4 0 0 1 0 0 7 0 0 0 1 4 10 8 6 0 0 1 0 0 0 7 0 0 1 0 0 10 0 0 0 1 7 13 11 9 0 0 1 0 0 0 10 0 0 1 0 0 13 0 0 0 1 10 15 14 12 0 0 1 0 0 0 13 0 0 1 13 20 16 0 0 0 1 0 0 17 15 0 0 1 0 0 18 16 0 0 1 0 0 0 17 0 0 1 0 0 20 0 0 0 1 15 0 21 19 0 0 1 0 0 22 20 0 0 1 0 0 0 21 0 23 1 0 0 24 0 22 0 1 0 0 25 23 0 0 1 0 0 26 24 0 0 1 0 0 -1 25 0 0 1 #1 THE BEGINNERS CAVE 7 SET UP VAR. TABLE A0:MA:K72:W92:C%M:RO1:R%A:CP40:D$(4):DFM:OFM:NZM:NAM:NMM:A$D$"OPENEAMON.":S$D$"READEAMON.":R21:RM:SM:D%M:LM:ACM:WTM:A%M:M%M INIT x 2CZ$D$"CLOSE":A$"DESC":S$"DESC":NR,NZ,A,NM:CZ$:K128:NANZ4:A$(NA),A%(NA,8),M$(NM),M%(NM,14),SA%(3),S2%(3),SM$(2),BV$(5,2),WA%(5),W$(4),T(3) <A$"ARTIFACTS,L"K:A1NZ:S$"ARTIFACTS,R"A:A$(A):A218:A%(A,A2)::A%(A,2)MA%(A,2)ROLL1M F:A$"MONSTERS,L"K:M1NM:S$"MONSTERS,R"M:M$(M):A112:M%(M,A):::CZ$:NC:C$(NC):A1NC:C$(A): PRO1:R21:ND6:A02:SM$(A)::A05:A202:BV$(A,A2):::A04:W$(A): ZLL4:V%((LNR)L(NRL)NR):L0& dQ$(34):M%(0,9)1:M%(0,14)3:DBNZNM:A$"":S$A$:CZ$A$:M%NM:A%NA:D$"STORE FAST.START" (#26,North,South,East,West,Up,Down,Get,Drop,Look,Examine,Read,Ready,Open,Drink,Attack,Flee,Give,Request,Inventory,Blast,Heal,Power,Speed,Smile,Say,TrollsFire 2#growls at,ignores,smiles atQ <#lunge,tear,claw,swing,chop,swing,shoot,shoot,shoot,swing,swing,swing,stab,lunge,jab,swing,chop,stabo F#axe,bow,club,spear,swordnA M0KW8ÀROҀCP DmDFOFNZ8NAXNM AkSkR2RSĀLACWT̀ CkNRPA2@NCPND@QmDBPA[mmmm mmmmm mmm mmm m xm lm _m Um Jm >m 3m 22(dd,K,K,22d   M( *m !mmm mmmlll̀S    2A_ K<ddd Kd,K2, 7- (< ӲS ll lB?llllllllllllllllllWl|lxlslnlTCXildl`l\lZlVlSlOlKlDl@l;l7l2l,l(l$ll ll lllkk kր=TrollsFireSaySmileSpeedPowerHealBlastInventoryRequestGiveFleeAttackDrinkOpenReadyReadExamineLookDropGetDownUpWestEastSouthNorthswordspearclubbowaxestabjabswingshootswingclawchoplungeswingshootchoptearswingstabswingshootswinglungesmiles atignoresgrowls atPirateCynthiaPriestMimicHeinrichGorillaHermitTan RatBrown RatBlack Ratdead Piratedead Cynthiadead Priestdead Mimicdead Heinrichdead gorilladead Hermitdead tan ratdead brown ratdead black ratempty bottlechestjewelsTrollsFirebookspicesmaceringgold coinsswordbottleaxediamonds"26 23 9 10 64 128 128 "You are at the entrance of a cave. To the south, over the tunnel entrance, is a sign saying, @Beginners only.@ To the north is the road back to town." "To the north you see the bright light streaming in from the outside. To the south you see flickering torchlight, but you cannot make out any details." ght, butyou cannot make out any details." "You are in a small side chamber to the west of the large chamber. It is very cold here, and the only light comes in dimly from the large chamber." ." "You are in a huge chamber, the roof rises out of sight. Burning torches line the walls making it easy to see. Tunnels lead north and south, and there are small chambers to the east and west." t." "You are in a small side chamber to the east of the large chamber. It is very cold here, and the only light comes in dimly from the large chamber." ." "You are in a small, stark cell with a door on the east side of the room." " "You are at the north end of a long hall. A tunnel goes north, and east and west are doors that are bolted shut (locking something in?). In the dim light you can see that the hall goes south but you cannot make out any details." ANY DETAILS." "You are in a small, stark cell with a door on the west side of the room." " "You are in a small, stark cell with a door on the east side." " "You're in the middle of a long hall. Doors are bolted on both sides of you (east and west). The hall extends north and south." ." "You are in a small, stark cell with a door on the west side." " "You are in a small, stark cell with a door on the east side." " "You are at the south end of the long hall. To your great shock two doors are on the east and west. The hall goes north from here, and a broken tunnel goes south." south." "You are in a small, stark cell with a door on the west side." " "You are in a tunnel going north and south. The sides of the tunnel are very broken and rough. You see torchlight to the south." " "You are in a secret east/west passage. You hear a faint melody coming from the east." "You are in an east/west passage. You can very clearly hear religious music being played and can smell incense from the east." "You are in the temple. Pictures of great deeds cover the walls. There are two altars here, one covered with gold paint and the other stained with blood. The only exit leads to the west." "You are in what was once obviously a library. Most of the books have been destroyed, with the scraps lying on the ground. A door, torn from its hinges, also lies on the floor. The exit is to the east." ast." "You are in a T-intersection. A brightly-burning torch is bolted to the south wall. Dark tunnels lead north and east. To the west is a place where once a door stood, but it has been torn from its hinges." " "You are in a dark east/west tunnel. You can see torchlight both directions." "You are at the top of a flight of stairs. A torch is on the wall. It looks very dark down there. A tunnel heads west." st." "You are at the bottom of a flight of stairs. A light can be seen at the top and a very dim light can be seen down the tunnel to the east." st." "You are in an east/west tunnel. Dim light can be seen in both directions." ." "You are in an east/west tunnel. You see light to the east, and feel a cool wind coming from there. In the wind you smell a hint of salt." "You are in a small bay. Cliffs rise on either side; the only exit is back to the tunnel in the west. To the east is the sea." " "There is a pile of diamonds here!" "There is a standard Marcos axe here." "There is a bottle with a strange potion inside of it here!" "There is a poor quality Marcos sword here." ." "There are 50 gold pieces here!" "There is an unmarked gold ring here." "There is a high quality Marcos mace here." e." "There are several rare spices here." "There is an old book here. It glows in the darkness and is remarkably well-preserved." d." "There is a beautiful sword here with intricate carving on the hilt. Written on the blade is the name, @TrollsFire@." ." "There is a large pile of jewels here!" "There is a large chest in the center of the room." "There is an empty bottle here." "There is a dead black rat here." "There is a dead brown rat here." "There is a dead tan rat here." "The Hermit's body lies on the floor." "The shaggy corpse of the gorilla is here." e." "Heinrich's broken body lies on the floor here. You can still see the sticker on his shield saying, @Hi, I'm Heinrich!@" "The dead Mimic lies in a formless blob on the floor." "The Priest's corpse lies on the floor, his face frozen in a fanatic's sneer." "Cynthia's dead body lies sprawled here --a pitiful sight." "The body of the pirate, his fine-looking clothing now slashed and bloody, lies here." "As you approach the chest, it suddenly becomes alive and two tentacles come out of the sides, holding you fast. Another tentacle rises from the top and attempts to hurt you." "As the pirate mutters a word that you can't make out, bright green flame surrounds the blade of his sword." d." "As the pirate chokes and dies, the flame on his sword also dies." "As you say the sword's name (TrollsFire) bright green flames appear around the sword's blade." "Since you were wearing the sword when it flamed on, you took some burn damage until the sword (hearing your cries of pain?) extinguished its flame." ." "As you say the sword's name, the bright green flame disappears from the sword." "As you read the book, you feel a weird sensation overtaking you. You suddenly realize that you are turning into a small fish." "You have no trouble finding a horse that you, well, borrow to take you on your first adventure. You follow several signs which lead you to the Beginners Cave." "He shakes his head and says, @You must have at least one weapon to adventure here! Go back to the Main Hall.@" "There is a huge black rat with sharp white teeth here!" !" "There is a huge brown rat with sharp white teeth here!" !" "There is a huge tan rat with sharp white teeth here!" "There is a grizzled old hermit (who smells as if he hasn't taken a bath in forty years) in the room." om." "There is a huge, hairy, strong and angry gorilla in the room with you!" "A human warrior stands before you, armed with a longsword and carrying a shield. On his shield is a sticker which says, @Hi, I'm Heinrich!@" "A chest-shaped monster is in the room, holding you with two tentacles and attempting to disassemble you with a third one." rd one." "There is huge man in religious garb with an insane look on his face here. In his right hand he carries a mace." "You see a beautiful girl in a flowing white dress. You recognize her as Cynthia, Duke Luxom's not-too-bright daughter." aughter." "You see a man with a beard and a brass ring in his ear. He is wearing clothes made out of silk and is wielding a very fancily engraved sword." Ak ߠȱ ߅ ߅ ߠȱ8ܩ`R 8E ߠృȱȱ i祜i ߅Bȱȱ0,6`)_08eiЩ`L` { ޥSLA P