8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LL !C}" %"" &)#M8( Y% ) LH""" &)jB, )7(P0 ( @X p 8 " ! +}""0 &"0 R%"" &)?) ;",")ɂ """ &) R%LH"+DESC.WIPE2DA~~)TEXT.LISTpTIC.TACSTEVE/*DEC.TO.HEXNKK $tt*TEST.BENCH t}*CHARACTERSt?THE.ADVENTURER<?MAIN.HALLtt+LABEL.MAKER[tt$LIST x)STARTUP.47Ik)STARTUP.5Sak)ART.MAINT Ik-REM.DUMMY.ARTIk$EDITH.r)ROOM.ANALtt.CHECK.FILES.UVK u@ FPt_p_ *MAKE.FILESv& ;}+CAPS.KILLER~ E|)DESC.WIPE]].UPDATE.FILES.6mF|NAME.CHANGE\|EAMON.UTILSILSk' &PRODOS"}@k ,BASIC.SYSTEM*(k 'STARTUP?=::"DTD+O O* %D.BUG^ @ 'COMPACTl? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R)0I0hx H( , R%Щ ߩ"L! )L! 8'  )ɀ)4,- U JNT) "L"" &) !` |"M)  !"#$%&'(<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?/<ʆ>-=?BC8 é&'112`? ( <x0HH1HH "hh+("i 0Ꮻ\Ꮸ0hh8(`hhh8kee` `+ *+ *` * * *`hh8`8`+++`}+`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *L7'JJJJ`Ϡ3(8`&h)hrȱȱȱȱ0]cȱeem+ȱ+ȱ++ȱ++ȱ+ )+ C* )L2)`Ly* U*L) ) L2) )L)8e` ,$`)ɀ  );( ` (Xp< @;( )m;(;(.;(>( M;(i  ``) '(j21 & &!` )&&(i(&(( CBDFGE !)&$ m(,&& … m(ŅJ 81(&2(& m((ʎ1ζ&ζ&&3223 ')L&18&"m11 2H22h2舌&&12H)M0 h10200I20h2 C(`L%12 `_3("L  <8# ȱ X?&G& e&&q&P&0`ŠӠֱ̭ԠŠҬî̠ӠĮʎ1&… )n&Dž )\%T&L()8= ) ͍B B(8`<YYZLYLYLY뿭` 8!@8` R%MNЩUMߩ  L 5   8 0 8  `0 / i  a Y n ɟg   VR6  .X ɛL " e ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ }FELT#> ȏ6 . ) ɟ"     Lb#b#ŠϠĠԠ  m# m# J Qڨ)̰}]! нȱ ̀𩠙Fi/ ƀ"3 """ " iL X\"LY"ίΠ`"""""(#*(% F%Z]eRQ!0SB}RBiBB}`آ <B*IBGF08Lé'+8H <,``h(`@ڍL3hh@ihAiH(ؠȱ@JJJJq@)@pvȱ@Hȱ@Ah@@cpe J) LL LJiB LJ) BxNhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJl(8`ؑ@`M8`8@ؐʈI묂)v8vv L} LةC8`؍)@ i)v8vyJ ^ ؅F Ls) +%J(a ,FإGؐ.` ,JHIH۩ ٰvw`JJJJ;i z묁͖ zٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`vw `ٽJJJJ`H͌hn)NjNjNjN. GH͌ z;٭ *Nۙ۰ڙک `Z8` G# ,`w .w .w .w8۰*Jv٭'ܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍌvw zNمFمG < Ό0 FGL鮁0 ٭w٭vٽ8`H8`  ,v w 8` 1 E8`1ݺ00 ] 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`Ψ` W |G 4A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥GȱHΨ`Ί8AeHI SB60I ٙGٙEFJCʈ h猪`8m0`,0H hi PȽΨhٍ0GF8yאFG  $0 K08`܅I `L܍MN h8D`F` alH)HFȍJHGK $%܍&܍!ܢ8* J8` L ܝ:)I 'ܝ6`B8iNFLGM`B܅IH3H ( )ݰJK 밨C%܈@" T)Ii)܍N*܍A'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` AHO` 'Q'܅IHHOOЍO@`8 ` ͉% ΉQיOʈ@mȱ@_ȱ@iklbJtKuO)5OI0ܢܽ eL'A* 7`aFG (CD Lz܅IN mAIH` pm mI0LM AOHJFKG 0NN` G8`F@ 0 F LK8`6 7I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶67 8܅I m9IHHyHȘI Lܝ` @_@ g@Ю׍O)mJHi 뎁`C8` @)0 3N0" K莭0 ⭪i` ]; 뮁ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΨ뎎׮Б` L ` @>O)I38 I`aם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA C'KI؍0lhh8` Q)T'P") ɺiL? )?      `l@Hȱ@IױHXATȱH ɯȩ׍̎5H)/@a)_ .0 :A[8@`,`B f-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ  0 HϭߍLпlll 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>K@J5 z9X(K zXXK تKo`V8`no` C on zI9XX`)HJJJh`OeNeO࿰ z9XАO`@ȭ@` ON `NJKO`H݅G ` } tͬ 밽܅F݅G ` }) t$ L`L뮰HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@BɼH GB`FaG 3%&N    ܮ `J HH hh` 0 @ LJL t_̴Xܝ ݝ0̴ȩFG  0` ܅F`a 밑 LȹL@ȅH@IL,0` G קּ= ]H.m)N 0 F`aO)@LP8` `  zHOCDC h`yٙ٭yٙ٩`LL =@ -ȹP8` i` ;ם0 -B ;)( ȹ`8m8m@8` G8`F Pm)@N8`O)@J -טyרםOO)׍OୱJJJJ Ȣ؝I؈ 6h(8H ; h(8Hh(`ؑ@`@ȱ@ ` B@8ZO h鮁ٍٍٍoHٍn8bhcOJJJJO)O@` %I -m) 0@O)N8` @ ) 9⬂Ȣ؝z@zݚ@ʈLN KIJHȢݚ h魚)Jn 8 δ ؍ ؍ `H8 ع)8` L )߹0 )p )@ ) ȩ ؝H0JK 방 LMJKFG 嬂؍b؍c؝d ؝_ vO) vO )حI͖ z`H@h`h``N8`  H  iع `  عiعi` )؍0CGHFHBFGx ް(8hFhG`@4͔ L @Ai ׭2` . Q#ع؍0 ]讁)`.@+ i ؊ PLKΞʱNLMO MЈMEKݸP%MEKΞL& O, PeNNO N(` C  7 2JvHIwHI؊ LI  ,` A Hv ع Hw ؙ؊ؠIhHIhO`؝}}vIvؐ` hzؽ}؝v h ' h؝zv؈` ` H Rh)N@ 9; L  6$ )bJ ] ) H 6hL )  )حJjIwHIvHNO 8 ؍JL`RΞʱLN1MOMEKP/MEKΞL9L-M O,p莝eNNO(`JNKOL 6/ $P L8 } [ؑJ`L@ȱ@ `@Nȱ@ LL L L 6 $pJ덟 )@።NJOK 6iKKΞΞ IJΟ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L6쬂8Nm) ) )Ю ЪG `F $ ᭔ع+ؠ 6H  Qh8` 䮁ٽ ٬ؠ@` ( H )8`)i п` H h)N$%хhꭋILhH),ex8 (8` ԍ`@Ae Hk00YpmGIJK,-NOPQRSu' @   !"#$Ԡ͠(C)1983-89APPLE` M )ЏL6  9 X [ ?  W" !# n. n'% n% n ɍ+Ɋɋɉɛݮʽ/ L6L[  Mȱ蝀ح o âXoύX1021ʆ ")i/ d+ M# L $0)0ei B = )n  ЭFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D E  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ 8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| ֽ ְ& .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Ӧ>` Ր+>P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ``LKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LR` ̭  ( 9 X L $ ` & & & &e`{8i [`0{2H* Ah2  Mȱ  L `κºú` GAB0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEJپھ pHJh` D!hgtp `tp8nnitpiͱtso8pinii>j?kͷ>pIiͯͷ l - `>i>LG8H933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B;8`W K  黐LK ҟ ҟ l KK`JJJJ8`轌K)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅3ݷ03پھ p +H־Ǿh۰8L־Jjjj2껽3뻭ɾ)Ⱦ8껰  OLӜ ΤLLX>(F﻽ﻝﻩ`ֻ־ؾپھ׾` bɄ KDEF vLl v lL5 bKɍKL?`  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O黩 puȾ ɾ-O c־Jjjj껝2뻝3 `O>0O v PODEF޾ p ޾ p($ذ v (0 ?( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ ?B94 l% bʽ  ՚,S` H H06172839h` v97L75v^a ?/( va?L5LLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b ,S0 @ lLޭBYL 8!9 詍` "  4"/pŠϠŠà͠ӠàԠŠ)+,-./0123456789:;<=JJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""I򭭻LLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<?Ek?!>Q>>>Ͳͳ `` \>Ͳ ͳ `e>>?ʹ?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`;=:<:<=;`ͯm;>:8o>oȑ>ppȑ>> :op` DKpn͋ @p;틻=po:S -޻.߻$I2 U)VJ T)`l޻8`a HbIJhjǾȾɾ p٭b=a>m>` im8iŻnjƻkiljoŻi>?Ek?>Q>> L> \/ e>>?ʹ?ޱ>ȥ])Y 񩢍`Ⱦɾ0Ǿ p)ﻩ  v6 A= 9& 98Hh 9` 䱰6Y׾ؾ+پھ p|پɾʾ`HV)jh츾$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ뻐 ɾɾ0m껐iȾ p pY)`lP c*,N!ǾȾɾʾ pǾ~H ?h8`8`,C ?  8` ȾɾM$ mHƻƻλǾ phϾ pH Lh8`Ͼ>@AB90d P(48(DA10));DA"-"(MX$,MO32,3)"-"(48(YR10))YR" "(48(HR10))HR":"(48(MIN10))MIN ZEN510::"NEW DATE AND TIME:" d11::958:"DD-MMM-YY HH:MM"::" WHEN FINISHED":" TO START OVER":" TO QUIT":12:1:HT1 :(21):::83"CURRENT DATE AND TIME:"k2MX$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC?????????"<A(49040):B(49041):MIN(49042):HR(49043)FYR(B2):MO(A32)8(BYR2):DAA(A32)32 KYR99MO12MO1DA31DA1ĺ"":LLLLL58ﻀۻ)Iۻ `2Eۻ8`ﻀ ԠŬLL孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~T٩   LiLMTRüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>AIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDbzDl e|Ŭ-⭚ݴgaB<{P~VM@@ -!S    !C- !ABELSDFRV@@ !$(19@EȾmɾɾʾiʾ` Lpl8l:/,s̝sƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHǾҾ,G 8`׾ؾ  p ۥs׾tؾE` c ( |о(־Ǿ,G 8`_`W)H־Jjjjh2׻3ػ p̭ػ׻ L%Ǿ廎滠 ..8׻ػ 廍⻈ۭ (׻8廪ػ滨mȾ>Ie f`8` cP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ŵ 춰5W) )W)@! pZ}ȾȾ󰹩 p` c־hƻλHλλhλ p' L,N HCNh`M`M Nλ 鴐`޾Lp ch־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`׻⻭ػ㻩仍廍ȾɾʾNfne}ȾȾI忩 pH Lh8`jGMǻоϻM  G1):_2`3蹀3:`V)8`MN;λ ;λ`;Cֻ N8` 1G)̀#:2׻3ػ蹀3:`V)R c޾ƻ,N0MHƻƻоֻ־ǾҾ_` /Ӿ pW) fLC`C Nλ `9V) ` V) c޾ p` c (8` 8`8`(W)`_V)Ij!؍Í`_ PjЭW)`_ Ͼ:X$""H n1403,HT1:HT:A$:A$(8)100:A$(13)200:A$(27)510 x(HT3HT7)(A$"0"A$"9")110:HT1A$"3"110:(HT11HT14)A$"5"110:(HT3HT7)A$"A"A$"Z"110:(X$)10110 HT4MO$A$:MO112:MO$(MX$,3MO2,1)Ă:110i @A 0v y y$: ey$?,0 6   ey,ԁ  0v y yA$?0$ȱ/ȱLt \,ԁ y y hvL< u0ALt$?0H ve 0v y yA$h v$?A ey ,0 ey eyA Lt$?"ɲ $@0@@L tL tLy`8f?ԁ  , ֠ȱ ,л ЯhhPQPQPҁQӁ  ڥPԁ8$?02 6Lsu 0v y y@AȱȱӁҁل>= w>= $$?$ )$?($@$: h(hh`h,` 6 L<,W,T,R,P,V,U,S  ((((*(((1<((EN((((tt  !ss0stt '*s6sNONELISTCATALOGD1H/A DUMP $CONVERT CURSORCATALOGD2DISASM $AUTO-NUMPEEK(2) 8r9```,0)$ LB> C = ? , _"_"HJJJh)I8*XX_" ,^"08* I- AT@!@ @9 8CL! 2839` %W" !W" !) !L!H h`ERROR: UNKNOWN VERL# r#JB$(ަ߫ yL!^" # # #P# Q# A@@@A@L! @ȭ @@X"0ȱ@["鈩 @ȭ @ߍLr# s#x#"     LEN::958::"TYPE "(34)"RUN"(34)" TO MAKE A CHANGE." 1:N$; 110b DA((X$,2)):MO$(X$,3,3):YR((X$,6,2)):HR((X$,8,2)):MI((X$,10,2))u (X$)11100 YR99MO12MO1DA31DA1ĺ(7);:100 49041,YR2(MO7):49040,32(MO(MO8)8)DA:49043,HR:49042,MI:EN1:8:1:20;134THT2:170L HT6MO$(X$,2)A$:MO112:MO$(MX$,3MO2,3)Ă:110^ A$;:X$X$A$ (X$,2)"31"((X$)2X$"01")100:HTHT1(HT2)(HT6)(HT9)(HT12) HT8N29(MO2):N$(N):(MO2MO4MO6MO9MO11)(X$,2)N$X$N$(X$,3):HT4ĭMO$"F"MO$"S"MO$"O"MO$"N"MO$"D"X$(X$,2)(MX$,3MO2,3):(MX$,3MO2,3);:HTHT3:170 HT5MO$(X$,1)A$:MO112:MO$(MX$,3MO2,2)Ă:110 HT5ĭMO$"AP"MO$"AU"MO$"JA"X$(X$,2)(MX$,3MO2,3):(8);(MX$,3MO2,3);:H(`B vB ,BB`8Єτ ,0`ɛɓɠɃL<ɠ y`,ԁ`:<: ɱɺ ::<`hh w>= w/ .   y yoLSw x C $20 y x$?0 C$?0$ y  eyLvC => $>=ɠɛɓɃ8 L`./gh.ȱ>=.ȱ/,-Lw`   c ,    < L Xhh 5: /8e::;i; :;LxLkBCB /8eBBCiCB:C;` $ { R穤 QP ALL<  ( ?> $ ?ۤ> .L3 gLpΠH h` 6L9Ɉɋ`ɕɊ` ?`<:=; c;.:*  5 % %  :; < ф` % Lk σ hh$0LL3$L6 ٭i鄥hh  ,@BAC m:;ƄL hhh`$Lw Υ<)<)i<=i=<=  `hhh   ƃ c   HHHHH `  ƃ<i<=i=B>C?hhhhh <  Ls8`@A`<=`ɠɛɓɠɃ` L LCLL L<  >?`1 >?>??C/=<$0 @L< >=?<) D < <)($ ɠ  ($04 )HH<) <8<==<)i<=i=h h`H<)hL σ$hh %` @` @` E ` Y` L Y`/@HӠźӠĺ,̠ӺҺŠϠ d'LϨ/S 51-mۀ؀ {ۀۀY`ۀ؀ۀ JL' J ' JY` 8BBCCDDL 'üϠž -@` 07` 6.` >  {܀݀܀ LH~ίή',#,`,hhʊ  Lz,hh ۀ܀ ݀`+:BCD ׀: 6 )   ʊ  ΰLz܀݀ hh8 ܀݀8܀܀݀݀ ΰ܀ ݀L~+:BCD ׀:   LH~   ;{ } LH~   LH~   { LH~   LH~   yɕɊʊ  Lz ۀL  车n󩭙oLG}id G}`H) 5}hJJJJ ɺi`kj e}m j k l`m }.m8m mj`O`j.k.l` q`$L$', ,L,hh Lz,r  *}DHh,qPIN'ҍIxy G}LN|Ix *}y *}JplnoF G}= |lm G}w)!,ZJpYH)oh****) n mnnopd8΀`\H[< "}h  G}(p "}n/` }]H)ހh)^ ހL}: }IȹI`܀ـ݀ڀ` z YZ[L ?{l=^_ G}&ab G}8^a_b G}L} BiBCiCDiDL ` {L} }Y)Y li OP'q 60F ߀ zt4 耭57?A+: |׀}؀~ـڀ } { } } ;{ } } }׀:ۀ܀݀ Z{2 Y {܀݀ } Z{ۀ؀ {ۀۀɭ yɈɋ g{ } |{ } { L<ΰL ~ )< 4yh v$?A 4y ,0 4y 4yA LWx ,0ɠ<H?2h y)`< H$h, ɠ Lyɠ )H h`Lڱ`55`55`Ɉɋ`ɕɊ`` H h` $H h02`>́=ȁ`C@A,-.=/> ]y$?0< w 4yȄ< 4y)$?$$@ :@A ]y<: 4y 4yLx,0 - 4y< ]yA<$? < 4yȱ ]y::  y ` u0AL[x$?0 H ve< ]yALLRHM MLgL Ȅ HL#RLu † D ! C 0Lu 3 j)Ȅ   `LgŪ嫰G L    .ee%LѠȥ񠰶L`  ghȱ X Xuv/3L `ghij L `  00 ΊJJJJ)ŨƨLƨ n L2 Z n N N . NPl OkLLmOP` ) L$ L 1 5)`H)? (hNO,(,`HH(hLh(hN OH?%Oh,(,`H(hL, (0><양> >=i?<>#<얱疥mP?Q u ~ uLPȱP` $ L @ `g:h;疩喍 7 y喍ꖭ斍떥m *5> *o8mPpnQ $ PQ @ > *PQ u ~ u $..m5LAST LINE TO BE RENUMBERED (RETURN = END OF PROGRAM)FIRST LINE TO BE RENUMBERED (RETURN = START OF PROGRAM)INCREMENT BETWEEN LINES (RETURN = 10)STARTING LINE NUMBER (RETURN = 10)Ϡ) )W)@! pZ}ȾȾ { RP͏QΏ , { RPϏQЏLՍNO PROGRAM IN MEMORYLINES NOT FOUNDINC TOO LARGEDUPLICATE LINE NUMBER ATOUT OF MEMORYPROGRAM HIDDENHIDE BUFFER IN USEPROGRAMS MERGING...ERROR: LINE# > 63999LINE TOO LONGINC = 0 -->WAIT.`棥sthhLL`EȱEi棠 ȱȱ`ijEȱEi槠`:H h`Ώ͏ $ ͏mϏ͏ΏmЏΏȩ`L؍я L< ͏ϏΏЏ 5, ,ȱȘeiȑ ]Lz 6 7iLsůtLLg6h7s8t9stsưƯsgůh尐giihijs֏t׏st8tgZ Lu G/ ^& &^ &^e^e&e  LhhLȪ膨`hhH h Lu 6 7֏׏Kgh'ȱQȱQvu/3L L;ȱȘeiL+| ֏s׏tghLBC8>9?s A @L@ 8e/"CR$(15)' CR$(X)"R"CR$(18)A "DS$(X)"D"DW$(14)X ,DS$(X)"R"DW$""x 6DR$(X)"D"DS$(27)(71) @DR$(X)"R"DS$(27)(72) JCR$(X)"R"CL%80 TCR$(X)"C"CL%132 ^DS$(X)"D"CL%(CL%2) hCL%(CL%83.5) rSP%5 DR$(X):DR$(X)"D"DR$(X)"R"DR$(X)""170L DR$(X)""DR$"R"X DR$(X)^ y "HOW MANY LABELS:";NL "TEST LABELS WANTED? (Y/N)"; YN$:YN$"Y"YN$"N"230 YN$:D$"PR#1" YN$"Y"İ440 N1NL:X16 CR$(X)"CZ\A ZL$(X)""L$(X)" ":DR$(X)"R":DS$(X)"R":CR$(X)"R":200U d"COMP./REG.:";~ nCR$(X):CR$(X)"C"CR$(X)"R"110 xCR$(X) "DOUBLE WIDE/REG. (D/R):"; DS$(X):DS$(X)"D"DS$(X)"R"140 DS$(X) "DOUBLE STRIKE/REG. (D/R)";GENERAL PURPOSE* LABEL PROGRAM0G BY JOHN NELSON U :D$(4)`X16t"LINE ";X;":";(L$(X)""2X$:X$;:X$(13)90<X$(8)(L$(X))1L$(X)"":50FX$(8)L$(X)(L$(X),(L$(X))1):50 PL$(X)L$(X)X$:50ÍhL',0LqLL LuL(*0ޠ L"H?2hHɠ '2h`LX,, LLLL$` MM`,0,@,0 (6(7)8@9A` éP L,{`$`,L׸HJxUT(T(hHPh(Hh`NO`Hxuw Kuvwx $ C nC$U{U{U QEUɃ 5IL =DɍU 5ILaB``:  慤 C C"`H Ch8Єτ ,0 ,0Ɗ0 CLC C CH$ {$hL\NU`aUUUx {FLDbU H {FUUU`bɈ,ɕɋjɊyɼ$ɬ ɮ<ɾ8ɠb`U`8.U`UU8UUULDUحUU I XUiLDU HUULDU HU [ L U= 5I L##ʊ [! F' JRLQLK…0 R S: WƋLީWXLZQX* K-+ \ۢh *T $ \f)f C RW  C \` C RWW $, \ WۤWWL$ `U LRUU L] *TvHv 0 ]JLeCij YՄ P PLl8湦 CQU)U`X)X`)@X XU @U`L0X`  ڦQP ʆ ɼ^: ɭqɴgLަ0 ڦX RPWQWWW  g R禊PWQW ZQ` NLJ N΢LNץHH T ]JLPJ *Thh` P&Q PPPQP=TQ>T)8=TPHP>TQH8Q hVhVULFL,U *T P 6Db`3 *T`Lޠ: VV,U ILDL WۦPQ $ C vCPQwx zH,ɓɠ ɠ<Ɉ ɕɃ-UU KLeC$c0$c0cx : K FLG$c0LF IA,ULI LJŸ幐QPLHPwQx`{$`PQP IV VU IU UЅDTij 'FU gݩU \F eCLeG eCLF eCLeG RuWЙvWВWWWЅW KX cR: 88 sآxc{UU H A \CU ULJHȱ wx K FLHh:g6䰰1 H K$c R 8劅 =۠<LJ! K `V؍V؍VVVFTGTuvVV`VحVVVVVuv`U %H L "# HU [ Bh [`ȥe>T =TUUUVV`0XjM \C RmCT( UU%U H I XL5ILGV,U0yz S,s *TLEUU \C@TAT I 'F c, yz Wۢ0M:, \Ɗ J \ {$0 4 E%$!{! WLlE \FLeC CLE<=<  <.ՆЄhvE K VSЦх Yբ0 K K VS K *T $ KL< ֩ҭUU sKU T \C8 Sݢ)Ѹ@#湠`U8UULwSPQ'%PQPdQ P Q JPQ $ HLwS X S S8 SP SQ`7UH \h` LLALVLWLVNjN;OONMONNNFLFLOlONNNNFLNSNSNFLNFLFLNNNNNNFLNFLFLFLdONOOFLJLONNOLNONGOO)O)OOlOyONONNNVOVObNVOVOVOVOVOVOVOVOVOVOVOVOVOVOVOLLLLLOLLLLE:bLDɃɲJɭ:ɥQLE$ , F "H F, F:LD FLH,K FLD FLHЫ F: F F"L2F  }8` F F Fu Fv` F湠`: ,K ` \ȱH \ ,GhХ̩: FLHKAJJ : ]GPQJJ : ]G򆭅 iiLWE BK F F F F F Fu F Fv B qe0s"N }U,K0 F F LE B0,K F 6G F FLE F" FLD F F" F LCɃ/ ٠ В:>LC ɫɰ G A$0 JJ :ۥvu $ FLC08LD: FLD D F Fȥ Fu Fv F B GfLE : FLG DLGLdD: ,K` F,K 5I,K GF CLBLC B,ȥьȥ CLCLC CGA=J[JJ FL Cei`LE B" F$ GJ B FɴqɥmɫɱɀɿɦGɭ^ɬ  $0Ш F:ɲeŊ勐UJJ :LH F F%$ (   BŁȥьȥь` CLOB8 Bȥȥȑȑȑ``Յ`,KP X,K67KK67JJ :۩" B#ȱ CGJJ kmnopqrsJ : F F湥Іѥ᭭JJJ FLB F?ɫiɰeɬ ɲɃ SLRA FLRA LzA" F LzA",K } Bȱ둌ꑌLzA ڥƹƸPQuv G A, LALOAuȥv8sutN @ ? /) ɾȱ @v ȩN  e ȱ e 8e/ Ţ@uN@@ өL@@ů@尰-@ :LHĠҠà͠L@LuNrNsNtNL aI8gh JJ :LHJZABREALIS1LLLLLLLL LL L LLOO.O8PGAPRAPPPnQ5TOCCURRENCES: USE "<", ">", AND UP & DOWN ARROWS ACTIVATE TRACE FIRST NO ERRORS?BC ,BCưƯJJ :8gh HJJ :8igjh HJJ :8寪 H K KKK KK67JJ :LPQPQ'%PQPdQ P Q JPQL$: ȱɲ,K0BH h 4N.DESC":D$"READEAMON.DESC":NR,NA,NE,NM:MP6ĺ:LR,LM,LA <D$"CLOSE":D$"PREFIX":P1$::"IF YOU WANT TO BUILD THE FILES ON A DIFFERENT DISK THEN INSERT THAT DISK NOW ---" A9600:D$"PREFIX/":D$"PREFIX":P$:D$"PREFIX"P$ F TEST VAR SETuwxyz{|"OPENEAMON.NAME":D$"READEAMON.NAME":NA$:ND:MP:D$"CLOSE":216,0:MP750b #MP7:LD242:55~ (D$"CLOSE":(222)550 -"FOUND ERROR #"(222)::"IN "(218)(219)256: 2216,0:MP6:LD256:LA128:LM128:LR64:LN64:ND6ND6< 7D$"OPENEAMOBUILD EAMON DATABASE2 BY FRANK KUNZE GREV. 27 SEP 94  D$(4)::6:" INSERT EAMON ADVENTURE DISKETTE AND":9600:A$"1"A$"2"ĺD$"PREFIX,D"A$D$"PREFIX/":D$"PREFIX":A$:D$"PREFIX"A$ VERSION? 9000:40N DR1:D$򍊚 v sL TH URgh֘gghgh K֩<ԅL湭`: 808`ORXϠҠþԊѾԊԺӠϠŠŠŠԠĠƍͿٯΩ̠ҠŠĺנȠĠȠŠӠŠӠΠŠӠŠӠԠԠƠ͠ŠǠŠҠҍξҠĠƠͺŠϠŭҠԍǠϠԠ͠Π١٠׮͠ϠŮӠĺŠǠӠΠӠԠԍԠéΠčŠӬîĠנӍҠǠŠҠҍξҠǠƠͺҠKIK [LfIKIKLJKIKLJKIKKKLJKKKIKKIKLH ɠ H h` cJ)  :LuJ``0 JJ :` JJ :LL@L`LLLL/LLKLKLuKLLL9ML@NL(MLMLLLKLOLL=ML_MLMLMLMLMLNL:NL4N0"iuivƹƸLdDLEuv!uvKKKK` XJJ :۬JJ :ۭK JJJ :ۭK JJJ :ۭK JJJ :ۭK JJJ :ۭK JJJ :ۭK JJJ : ɱ#ɲ/ɳ6ɴ?ɵ\ɶd h :LI` K85 PX$A$(11):90C U(222)10745:216,0:SE1:100S Z216,0:SE2` d MENU n:"WORKING ON: ";::NA$;:: x4:" 1. BUILD ARTIFACT FILE"::" 2. BUILD MONSTER FILE"::" 3. CHANGE FILE LENGTHS (LA="LA",LM="LM")":a " 4. CATALOG DISK"::" 5. CREATE A FAKE DESC FILE"::" 6. QUIT"::10)"ENTER 1-6 [_]";(8);(8); A$:M(A$):M1M6140:M:M1000,2000,3000,4000,5000:  ARTIFACTS :"BUILD 'EAMON.ARTIFACTS'? (Y/N) ";A$:A$"Y"100:1030 A$"EAMON.AR? %MP7:LD242:A1200:E1400:M1600:M311:ND560:ND6:60[ (C$:216,0:(222)5ijr * VERSION 6 OR < 2LD256:LR64:LNLR:LA128:LMLA:MP6:A1100:E1200:M1300:M312 <O$"DESC":R$"DESC":NR,NA,NE,NM:MP7ĺ:LR,LM,LA FC$:R%(ND),A%(}RT ADVENTURE DISK AND"::" PRESS ANY KEY..."::49168,0:A$:e A$"1"A$"2"ĺD$"PREFIX,D"A$ D$"PREFIX/":D$"PREFIX":A$:D$"PREFIX"A$  VERSION? 40 O$"NAME":R$"NAME":NA$,ND,MP:C$:216,0:MP7MP6:50 # VERSION 7 OR > 0 EAMON CAPS KILLER BY FRANK KUNZE 10/94 EREV. 11 SEP 94  9000:D$(4):Q$(34):O$D$"OPENEAMON.":R$D$"READEAMON.":W$D$"WRITEEAMON.":C$D$"CLOSE":ED$"DESC,":ER$"ROOMS,":EN$"ROOM.NAME,":EA$"ARTIFACTS,":EM$"MONSTERS,"B ::"INSE ANY KEY TO CONTINUE ... ";:A$::.ARTIFACTS,R"A:AN$(A):M18:AD%(A,M):::9500G$ WRITE ART 7 $216,0:D$"OPENEAMON.ARTIFACTS,L"LA:A1NA:D$"WRITEEAMON.ARTIFACTS,R"A:A$(A):M18:A%(A,M)::%D$"CLOSE"::"DONE.":A11500::100% GET A$ %%49168,0::" PRESS(M,A):::D$"CLOSE":95000# WRITE MON 7 $216,0:D$"OPENEAMON.MONSTERS,L"LM:M1NM:D$"WRITEEAMON.MONSTERS,R"M:M$(M):A111(MP7):M%(M,A):::D$"CLOSE":9500T$ WRITE ART 6 3h$216,0:D$"OPENEAMON.ARTIFACTS,L"LA:A1NA:D$"WRITEEAMON# LOAD DATA 2#9050Q<#D$"RESTOREFAST.START":D$(4):216,0:ND0:MP0:Z#(222)645:"ERROR -- FILE 'FAST.START' IS MISSING":# WRITE MON 6 #216,0:D$"OPENEAMON.MONSTERS,L"LM:M1NM:D$"WRITEEAMON.MONSTERS,R"M:MN$(M):A112:MD%:A$"Y"100:5030>A$"EAMON.DESC":D$"VERIFY"A$:8000216,0:D$"OPENEAMON.DESC":D$"WRITEEAMON.DESC":NR:NA:NE:NM:MP6ĺLR:LA:LMD$"CLOSE":100@216,0::(7)"ERROR -- ":"THERE ALREADY IS AN":"'"A$"' FILE.":A13000::100(AMON.DESC":D$"WRITEEAMON.DESC":NR:NA:NE:NM:LR:LM:LA:D$"CLOSE" :"DONE."::"NOW RE-INSERT YOUR WORK DISK":9600:D$"PREFIX"P$:100 CATALOG :D$"CAT":9600:100 MAKE FAKE DESC :"CREATE A FAKE 'EAMON.DESC'? (Y/N) ";A$:A$""MLMQ :"CHANGE TO "M:" SURE? (Y/N) ";:A$:A$:A$"Y"3060:LMM :"LA="LA,"LM="LM::"UPDATE 'EAMON.DESC'? (Y/N) : ";A$:A$"Y"100::"MAKE SURE THE DISKETTE WITH 'EAMON.DESC'":"IS IN THE DISK DRIVE":9600H D$"PREFIX/":D$"OPENE100` :"LENGTH OF 'EAMON.ARTIFACTS' --"::" = "LA;:" : ";A$:M(A$):A$""3040 :"CHANGE THE LENGTH TO "M:" ARE YOU SURE? (Y/N) ";:A$:A$:A$"Y"100:LAM :"LENGTH OF 'EAMON.MONSTERS' --"::" = "LM;:" : ";A$:M(A$)TIFACTS":D$"VERIFY"A$:80002 SE9300,9400:C  MONSTERS :"BUILD 'EAMON.MONSTERS'? (Y/N) ";A$:A$"Y"100:2030 A$"EAMON.MONSTERS":D$"VERIFY"A$:8000 SE9100,9200: LENGTHS  MP7ĺ:(7)"INVALID OPTION":A11500::8),M%(14):8000 d MENU > n:"EDITING: ";::NA$;::t x:"DATABASE: NR="NR", NA="NA", NE="NE", NM="NM: "FILES: LR="LR", LA="LA", LM="LM;:MP7ĺ", LN="LN; :7:" 1. SHIFT ROOMS"::" 2. SHIFT ARTIFACTS"::" 3. SHIFT EFFECTS":x " 4. SHIFT MONSTERS"::" 5. CHANGE FILE LENGTHS"::" 6. QUIT"::"ENTER YOUR CHOICE (1-6) [_]";(8);(8); A$:A(A$):A1A6160 A:A1000,2000,3000,4000,5000,6000:100  SHIFT ROOMS 5 RN%0:"DO YOU WANT TO EDIT ROOM NAMES  (21):::30MD$(4):D$"VERIFYFRESH.MEAT":216,0:D$"-MAIN.PGM"216,0:A$" ADVENTURE NAME":A2$" BY AUTHOR":NU0(7)"THE WONDERFUL WORLD OF EAMON":"----------------------------------------"13)"BY DONALD BROWN"@ 27:14)"ADV0,177,225,201,65,144,8,201,91,176,4,9,32,145,225,200,196,224,208,237,96F#9,SANCTUARY,THROR'S RING,DUNGEON OF DOOM,THE ALTERNATE ZONE,THE LAST DRAGON,OPERATION ENDGAME,ANIMAL FARM,THE BOY AND THE BARD,EDGAR'S ADVENTURES32:LN40:NA64:LM80:G""SOMETHING IS AMISS..."(7):A12000::[(# SHIFT PROG. {2#A752808:D:A,D::752:I<#169,76,162,0,160,3,141,245,3,142,246,3,140,247,3,96,32,227,223,160,0,177,131,133,224,200,177,131,133,225,200,177,131,133,226,160,OOMS' FILE!":A12000::3rX2LR32:LNLR:o|X1ĺAV$(X)" IS INCOMPATIBLE WITH THIS PROGRAM.":X4A199:E1199:M1299:X5LR32:LNLR:X6LR32:LA90:LM100:E1300:M1200:X7LR32:LA90:LM90:A1149:X8LRz#@ STANDARD DATABASE? FJNV:AV$(NV):A1NV:AV$(A):cTA1NV:NA$AV$(A)Ă:^XA:AAA::X3ĺAV$(X)" HAS A NON-STANDARD DATA-BASE. HOWEVER, A LOWERCASE VERSION IS AVAILABLE. CONTACT THE EAG."hX9ĺAV$(X)" HAS NO 'EAMON.RE$"'EAMON.":A$E$"ROOMS'":ALR:5500:LRL:A$E$"ROOM.NAME'":ALN:5500:LNLA$E$"ARTIFACTS'":ALA:5500:LAL:A$E$"MONSTERS'":ALM:5500:LML:|:"LENGTH OF "A$" ("A;:") : ";L$:L(L$):L$""LA:10)"-- "L" --"L5500:p QUIT 49168,0:"ENTER NEW NAME FOR "S$:"!! DON'T USE COMMAS OR COLINS !!":"!! DON'T USE CONTROL CHARS !!"::A$:(37):"";A$: CHANGE LENGTHS MP7ĺ:"INVALID OPTION!"(7):A12000::100:"ENTERING KEEPS PRESENT LENGTH":PR$;ED$"R"AM1:A$:A$:W$;ED$"R"AM1:Q$;A$;Q$:D$::C$O$;EM$"L"LM:A1NM::"SHIFTING MON. NAME #"A"/"NM::R$;EM$"R"A:A$:X1M3:M%(X)::D$:A$:MN%4130S$"MONSTER":4500"W$;EM$"R"A:Q$;A$;Q$:X1M3:M%(X)::D$::C$:MN%0:;ED$"R"AE1:Q$;A$;Q$:D$::C$:6 SHIFT MON. "DO YOU WANT TO EDIT MONSTER NAMES AFTER THEY'RE SHIFTED (FOR PROPER CAPS, ETC).":" (Y/N) : ";:A$:A$"Y"A$"N"4020:A$:A$"Y"MN%1;O$;ED$"L"LD:A1NM::"SHIFTING MON #"A"/"NM:E #"A"/"NA:R$;EA$"R"A:A$:X18:A%(X)::A$:D$:AN%2060WS$"ARTIFACT":4500 W$;EA$"R"A:Q$;A$;Q$:X18:A%(X)::D$::C$: SHIFT EFF.  NEĺ(7):# O$;ED$"L"LD:A1NE::"SHIFTING EFFECT #"A"/"NE:R$;ED$"R"AE1:A$:A$:W$HIFTED (FOR PROPER CAPS, ETC).":b" (Y/N) : ";:A$:A$"Y"A$"N"2020:A$:A$"Y"AN%1O$;ED$"L"LD:A1NA::"SHIFTING ART #"A"/"NA:R$;ED$"R"AA1:A$:D$:A$:W$;ED$"R"AA1:Q$;A$;Q$:D$::C$?O$;EA$"L"LA:A1NA::"SHIFTING ART. NAM$:A$:D$:RN%1500;`W$;EN$"R"A:Q$;A$;Q$:D$::C$:"!! MAKE SURE THAT THE ROOM NAME":" BEGINS AND ENDS WITH QUOTES ("(34)") !!"::(34)A$(34):(37):"";A$: SHIFT ART. #AN%0:"DO YOU WANT TO EDIT ARTIFACT NAMES AFTERTHEY'RE S00:O$;ER$"L"LR:A1NR::"SHIFTING ROOM NAME #"A"/"NR:R$;ER$"R"A:A$:X0ND:R%(X)::D$:A$:RN%1500W$;ER$;"R"A:Q$;A$;Q$:X0ND:R%(X)::D$::C$:L ROOM NAMES 6 VO$;EN$;"L"LR:A1NR::"SHIFTING ROOM NAME #"A"/"NR:R$;EN$"R"A:AAFTER THEY'RE SHIFTED (FOR PROPER CAPS, ETC).":t " (Y/N) : ";:A$:A$"Y"A$"N"1007:A$:A$"Y"RN%1 O$;ED$"L"LD:A1NR::"SHIFTING ROOM #"A"/"NR:R$;ED$"R"A:A$:D$:A$:W$;ED$"R"A:Q$;A$;Q$:D$::C$  ROOM NAMES 7 lMP711ENTURE #"NU::S$"*****************************************": <S$38)"**"((38(A$))2))A$((38(A$))2)((A$)2((A$)2)))"**"38)S$: FX(20(A2$)2):X)A2$:::" TO GO ON THIS ADVENTURE YOU MUST FIRST":8)"BOOT THE EAMON MASTER DISK: EAMON UNIVERSAL DUNGEON EDIT BY FRANK KUNZE 1994 NREV 10 NOV 94  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 ' D$(4):CL$D$"CLOSE":O$D$"OPENEAMON.":W$D$"WRITEEAMON.":R$D$"READEAMON.":(21):::5:11:"EAMU O$"MONSTERS,L128":M1NM:W$"MONSTERS,R"M:M$(M):M2112:M%(M,M2):::CL$l "NEW FILES BUILT"EAMON.":W$D$"WRITEEAMON.":CL$D$"CLOSE" xO$"ROOM.NAME,L64":A1NR:W$"ROOM.NAME,R"A:R$(A)::CL$:O$"ROOMS,L64":A1NR:W$"ROOMS,R"A:A216:R%(A,A2)::1::CL$ O$"ARTIFACTS,L128":A1NA:W$"ARTIFACTS,R"A:A$(A):A218:A%(A,A2):::CL$DEAMON.ROOMS,R"A:A216:R%(A,A2)::D$::D$"CLOSE"S F PUT WEAPONS ON MONS PM1NM:M%(M,9)NAM%(M,9)0A%(M%(M,9),4)M1 Z d MAKE NEW FILES , nA$D$"DELETEEAMON.":A$"ROOMS":A$"ROOM.NAME":A$"ARTIFACTS":A$"MONSTERS":O$D$"OPEN$"OPEN EAMON.MONSTERS,L128":M$(NM),M%(NM,12):A1NM:D$"READ EAMON.MONSTERS,R"A:M$(A):A2112:M%(A,A2):::D$"CLOSE" 2R%(NR,6),R$(NR):D$"OPENEAMON.ROOMS,L64":D$"OPENEAMON.ROOM.NAME,L64":A1NR:D$"READEAMON.ROOM.NAME,R"A:R$(A):D$7 <D$"REA READ OLD FILES fD$(4):D$"OPEN EAMON.DESC":D$"READ EAMON.DESC":NR,NA,NE,NM:D$"CLOSE"D$"OPEN EAMON.ARTIFACTS,L128":A$(NA),A%(NA,8):A1NA:D$"READ EAMON.ARTIFACTS,R"A:A$(A):A214:A%(A,A2)::A%(A,2)1āA258:A%(A,A2):| (:DD D$(4):E$"EAMON.NAME":D$"OPEN"E$:D$"READ"E$:N$:D$"CLOSE"oD$"DELETE"E$:D$"OPEN"E$:D$"WRITE"E$wN$(6:"6.0"2"CONVERTED FROM A 4.0 VERSION"<D$"CLOSE" "6 P::" NON COMMERCIAL DISTRIBUTION ENCOURAGED"ON DUNGEON EDIT":15:"UNIVERSAL":10 B$D$"PREFIX":" INSERT DISKETTE WITH ADVENTURE"::" PRESS ANY KEY TO CONTINUE...";:49168,0:A$::A$"1"A$"2"ĺB$",D"A$ B$"/":B$:P$:B$;P$:45 #DR1:O$"NAME":R$"NAME":AN$:ND:MP:CL$:21:3 PTĺDE$:LL(DE$)39:(L)LL(L)1Q :LL1:L1930PTİ3600g* :D$"PR#0":3570H A$"MONSTERS":F$A$:75:3500 LIST STUFF  :"# OF SPACES TO INDENT?":"(USUALLY 0) : ";ID PTĺD$"PR#1"< ::L0:ID)"LISTING "A$:3200,3300,3400J A$"ROOMS":F$A$:65:MP73500:F$"ROOM.NAME":3500m A$"ARTIFACTS":F$A$:75:3500 PTĺD$"PR#1" ::L0:"LISTING EFFECTS"::34,2:A1N%(TY):REARL%(TY):20000:"EFFECT #"A:LL1 PTāX1(DE$)80:(DE$,X,40):LL):NW0:20000:TYPE2100,2200,1330,2400;4 EDIT ROOM L>21000:1130^ EDIT ART. o22000:1230` EDIT MON. j 24000:1430 LIST THINGS  C$"LIST":500:N%(TY)ĺ"NONE OF THAT TYPE TO PRINT!":A12000::100 TYPE3100, NA$"":DE$"":NW1812000:31200:18000:100K ADD EFFECT V(DE$""m213000:18000:100x ADD MONSTER NA$"":DE$"":A1MF:M%(A)MD(A):14000:18000:31400:100 EDIT OLD ITEM )C$"EDIT":500:700:RENORL%(TY:NO1NON%(TY)(C$"CREATE")ġ:100-> ADD ITEM C$"ADD":500:N%(TY)N%(TY)1:NON%(TY):RENORL%(TY):UP1:TY1100,1200,1300,1400L ADD ROOM `NA$"":DE$"":A1ND:RD%(A)0::LT1j11000:31100:18000:100 ADD ARTIFACT:615A$(8)615PA$(27)I$I$I2$::TL1072:V:958:V:I$::A$(13)ĴI$""685:958::TL1072::(7);:630 GET NUMBER 6:958:"INPUT NUMBER OF "T$(TY)" TO "C$'" (1-"N%(TY);:") ";A$:NO(A$):NO(NO)2$" "I2$:620:A$(5)ĺI2$;:I$I$I2$:I2$"":630wA$(2)(I$)āA1(I$):(8);::I2$I$I2$:I$"":630A$(21)ĴSL685:A$(I2$,1):635A$(8)(I$)1I2$(I$,1)I2$:I$(I$,(I$)1):A$;:630A$(8)(I$)I2$I$I2$:A$;b958:TL5Ė1:V(37)1:X1TL:U$;:::V;gI$""WlI2$;:TL5ĺU$;:(8);xq(I2$)āX1(I2$):(8);:vA$:A$(4)I2$(I2$,2):620{X(I$)(I2$)TL:SL(I2$):A$(31)ĴX685:A$;:I$I$A$:I2$(I2$,2):630A$(9)ĴX685:I5000,6000* SELECT WHAT TO WORK ON 2:958:"DO YOU WANT TO "C$" A ROOM, ARTIFACT,":" EFFECT, OR MONSTER (HIT KEY, RAEM) ";A$:A18:A$("RAEMraem",A,1)Ă:520A4AA4A$:TYA:AAA::X INPUT I$ ]TLTL2381LIST NAMES OF ROOMS, ARTIFACT,ETC"::" 4. DUPLICATE A ROOM, ARTIFACT":6)"OR MONSTER" :" 5. SPECIAL FUNCTIONS"::" 6. QUIT"::"ENTER KEY FOR YOUR CHOICE (1-6) "; A$:A$(12)LKLK:100 C(A$):C1C6150:C:C1000,2000,3000,4000,  d MENU k nNW0::T14:T$(T)"-"N%(T)" ";:::3:4)"EDITING ";::AN$::("LOCK",1,LK4);: x"YOUR CHOICES ARE--"::" 1. ADD NEW ROOM,ARTIFACT,EFFECT OR":6)"MONSTER"::" 2. EDIT OLD ROOM,ARTIFACT, EFFECT":6)"MONSTER"Z :" 3. RM1:AM0:CL$"EAMON.ARTIFACTS":CL$"EAMON.MONSTERS":O$"ROOMS,L"LR:MP7ĺO$"ROOM.NAME,L"LNd H} K OPEN ART. & MON. MAM72:CL$"EAMON.ROOMS":MP7ĺCL$"EAMON.ROOM.NAME" PRM0:AM1:O$"ARTIFACTS,L"LA:O$"MONSTERS,L"LM: ZONERR GOTO 40000 16,0:MP750# (MP7:LD242:55= -CL$:(222)540000M /216,0:MP5 2LD256:LA128:LM128:LR64:LN64:ND6ND6:MP5 7O$"DESC,L"LD:R$"DESC,R0":N%(1),N%(2),N%(3),N%(4):MP7ĺ:LR,LM,LA <D$:35000:90 A OPEN ROOM FILES ^ FRM:34,2:A1N%(TY):R$;F$",R"A:NA$:D$:ID)" "A": "NA$X LL1:L1930PTİ3600h :D$"PR#0" :"PRESS ANY KEY TO RETURN TO MENU";:A$:::100 PAGE BREAK L0:PTĺ(12):$:" (PRESS ANY KEY TO CONTINUE) ";:49168,0:B$::(37)1:958:+ DUPLICATE rC$"DUPLIC.":500:C$"DUP. FROM":700:FRNO:C$"CREATE":700:NCNONON%(TY)ĺ"CREATING A "T$(TY)" FROM ANOTHER.":N%(TY)N%(TY)1:UP1NOFR:RENORL%(TY):20000:TYPE4100,4200,4300,4400 DUP. RN ROOM#":"ROOM# + 300........HIDDEN IN ROOM#"&&/MP7ĺ"ARTIFACT# + 500....INSIDE ARTIFACT#":"ROOM# + 200........EMBEDDED IN ROOM#":"-999...............WORN BY PLAYER"&0/:12500:TPA%(2):MP6ĭTP2ı '5/AR58:AR8ĭTP8ĭMP7ĺ:" 1 = HIDDEN23);X1" = "TY$(X1);%/:::12500:A$"WEIGHT":A3:12500:A$"ROOM":A4::"-1.................CARRIED BY PLAYER":MP6ĺ"(- MONSTER# - 1)...MONSTER# CARRYING IT"0&/MP7MP6ĺ"ARTIFACT# + 100....INSIDE ARTIFACT#":"ROOM# + 200........EMBEDDED IARTIFACT "NO:I2$NA$:TLAL::"ENTER ARTIFACT NAME:":600:I$""12010$.NA$I$:I2$DE$:TL238:"ARTIFACT DESCRIPTION:":600:DE$I$$.TL5:NWA%(1)50:A%(2)1:A%(3)3:A%(4)0%/A$"VALUE":A1:12500:A$"TYPE":A2::X0NF2:" "X" = "TY$(X);:XNFO -98 FOR PASSAGES"##/+:D1ND#4+"MOVE "D$(D)"...";:I2$(RD%(D)):TL5:600:RD%(D)(I$):RD%(D)(RD%(D))(RD%(D))I$Ģ(37):11060#H+:MP672:"LIGHT (0 = NONE; 1 = NORMAL) ";:I2$(LT):600:LT(I$):#. EDIT ARTIFACT H$.:"ENTERING CH DIRECTION ENTER THE ROOM # THATTHIS ROOM CONNECTS TO:"::" NO CONNECTION: 0":" EXIT TO MAIN HALL: -99":MP611055",+" DOORS: ARTIFACT # OF DOOR + "100(400(MP7)):MP7ĺ" NEGATIVE NUMBER FOR UNUSUAL THINGS":11055#-+" NEGATIVE #-1 T:A$"ROOMS":A$"ARTIFACTS":A$"MONSTERS":MP7ĺA$"ROOM.NAME"L!216,0:^!* EDIT ROOM !+:"ENTERING ROOM "NO::I2$NA$:TLRL:"ENTER ROOM NAME:":600:I$""11010:NA$I$:TL238:I2$DE$! +"ENTER ROOM DESCRIPTION:":600:DE$I$}"*+958:"FOR EA"M$:DE$"YOU SEE THE DEAD BODY OF "A$M$"." X18:A%(X)0::A%(2)1:A%(3)WT:XN%(2)1:REXRL%(2):NOX:N%(2)X:18000:31200::100 p QUIT zCL$:UPĺO$"DESC":W$"DESC":A14:N%(A)::LR:LM:LA:CL$?!LKA$D$"LOCKEAMON.":A$"DESC"5000Bb75:ASWN%(4):R$"MONSTERS,R"A:M$:A216:WT::D$l:"MONSTER #"A::" 1. THE DEAD BODY OF "M$::" 2. THE DEAD BODY OF THE "M$::"CHOOSE THE CORRECT PHRASE (1-2):";vA$:A$"1"A$"2"57500 :A$("THE ",1,(A$"2")4):NA$"DEAD :"YOU SEE ARTIFACT #"N%(2)"."cW$"ARTIFACTS,R"N%(2):"ARTIFACT "N%(2):X18:0:::D$:100z TOGGLE PRINTER PTPT:5000D GEN. BODIES NUP1:"# OF MONSTER TO START WITH"::"(DEFAULT=1) :";A$:A$""A$"1"XSW(A$):SWN%(4)DELETE":500:N%(TY)N%(TY)1:UP1:5000B ADD TO # OF ITEM sC$"INCRMNT":500:N%(TY)N%(TY)1:UP1:5000 TOGGLE LOCK "LKLK:5000| GEN. DUMMY ART. UP1:75:"NBR ART. TO GEN:";NA:A1NA:N%(2)N%(2)1:W$"DESC,R"N%(2)RL%(2)D OPTION!"(7):A12000::5000n"ROOMS="LR:"ROOM.NAME="LN:"ARTIFACTS="LA:"MONSTERS="LM:"DESC="LD: "ROOMS:";LR:"ROOM.NAME:";LN:"ARTIFACTS:";LA:"MONSTERS:";LM:"DESC:";LD:CL$:O$"DESC,L"LD:RM0:AM0:5000P DELETE LAST ITEM )ZC$"")"M:" 7. GENERATE BODIES"::" 8. (NOT USED)"::" 9. (NOT USED)"p:"INPUT YOUR CHOICE (1-9):";S$:S$(13)ĺ:100C(S$):C1C95060:C5100,5200,5300,5400,5500,5600,5700,5000,5000 FILE LENGTHS "MP7ĺ"INVALIS "::t" 1. CHANGE FILE LENGTHS"::" 2. DELETE LAST R,A,E,M"::" 3. ADD TO NBR OF R,A,E,M":" 4. TOGGLE LOCK MODE (NOW "("OFFON",LK31,3)")"::" 5. GENERATE DUMMY ARTIFACTS"::" 6. TOGGLE PRINTER (NOW "("OFFON",PT31,3)OOM #21000:RENC:NONC:11305h DUP. ART. Yr22000:RENCRL%(2):NONC:1230m DUP. EFFECT RENCRL%(3):18000:1000 DUP. MONSTER :24000:RENCRL%(4):NONC:1430 SPECIAL FUNCTIONS ::" SELECT FUNCTION OR PRES DOOR":%':/NWA%(AR)DF(TP,AR5)q'D/MP7ĭ(AR7(TP4TP6TP7))AR6TP12ĺ:"OPEN = 1; CLOSED = 0":'N/AR6ĭTP2TP3ĺ:"1=AXE, 2=BOW, 3=MACE, 4=SPEAR, 5=SWORD":'S/TPNFĺ"FIELD #"AR" : ";:12120'U/F$(TP,AR5)" : ";(X/I2$(A%(AR)):600:A%(AR)(I$)::K(0A$" : ";:I2$(A%(A)):TL5:600:A%(A)(I$):_(2 EDIT EFFECT (2:"ENTER EFFECT #"NO:I2$DE$:TL238:600:DE$I$::(6 EDIT MONSTER )6:"ENTERING MONSTER # "NO::MP7ĺ"** BE SURE TO ENTER *ALL* MONSTER NAMES IN"(218)(219)256:(222)10ĺ"CAN'T SAVE, FILE LOCKED.":G6J6020,0,WEAPON #,0,ODDS TO HIT,60,WEP DICE,1,WEP SIDES,4P5 MONSTER DATA 7 & > 5ARMOR,0,WEAPON #,0,WEP. DICE,1,WEP. SIDES,4,FRIEND,35Đ DIRECTION NAMES 5ΐN ,S ,E ,W ,U ,D ,NE,NW,SE,SW5@ ERROR TRAP =6ECL$:"ERROR CODE "(222)" IN LINE # SEABLE CONT.,KEY#,0,OPEN/CLOSED,0,#ITEMS INSIDE,0,#ITEMS CAN HOLD,5[46 6.0 DRINKABLE 4@CHANCES,50,HEAL AMOUNT,5,# OF USES,104 MONSTER DATA 4HARDINESS,16,AGILITY,16,FRIENDLINESS,654COURAGE,100,ROOM,0,WEIGHT,150,DEF. ODDS,055ARMOR1,OPEN/CLOSED,1,USER #8,0X3DOOR/GATE,ROOM BEYOND,1,KEY #,99,STRENGTH,999,HIDDEN?,03KEY,USER #5,0,USER #6,0,USER #7,0,USER #8,03BOUND MONSTER,MONSTER#,0,KEY#,0,GUARD#,0,USER #8,03"WEARABLE,ARMOR CLASS,0,TYPE,0,USER #7,0,USER #8,0E4,RE-UWEAPON,ODDS,10,TYPE,5,DICE,1,SIDES,4b2܌CONTAINER,KEY#,99,STRENGTH,100,OPEN/CLOSED,0,USER #8,02挃LIGHT,COUNTER,999,USER #6,0,USER #7,0,USER #8,02DRINKABLE,HEAL AMOUNT,10,# OF USES,5,OPEN/CLOSED,0,USER #8,03READABLE,1ST EFFECT,1,# OF EFFECTS,00100::MP7āA24:RL%(A)RL%(A)2:01J1ROOM,ART.,EFF.,MONS.\1 ART. DATA d1121GOLD,USER #5,0,USER #6,0,USER #7,0,USER #8,01TREASURE,USER #5,0,USER #6,0,USER #7,0,USER #8,01ȌWEAPON,ODDS,10,TYPE,5,DICE,1,SIDES,4&2ҌMAGIC F$(8,3)"USER #8":MP6NF360MP7āA16:A$:0MF12:M%(MF),MF$(MF),MD(MF):A112:MF$(A),MD(A)::MP7āA110:A$:0MP7āA711:MF$(A),MD(A)::MF11:MF$(3)"# MEMBERS":MD(3)10D$(10):A110:D$(A):*1RL%(4):A14:RL%(A)A134:MLLM62:ALLA42:U$(95):MP7RL38:ML30:ALML/̈A%(8),RD%(ND1),T$(4):A14:T$(A)::NF:TY$(NF),F$(NF,3),DF(NF,3):A0NF:TY$(A):A203:F$(A,A2),DF(A,A2)::0ֈMP7NF10:A02:F$(6,A),DF(6,A)::F$(4,2)"USER #7":F$(7,2)"READ FLAG"::RD%(A)::LT:D$:W$"ROOM.NAME,R"NO:(34);NA$:D$:K.y WRITE ART. .y75:W$"ARTIFACTS,R"NO:(34);NA$;(34):D18:A%(D)::D$:.z WRITE MONSTER .z75:W$"MONSTERS,R"NO:(34);NA$;(34):M1MF:M%(M)::D$:. SETUP DATA 8/ˆRLLR14:A%(A)::MP6A%(2)2A%(2)3āA58:A%(A)::D$:V-VA58:A%(A)0::D$:h-] READ MON. -]75:R$"MONSTERS,R"NO:NA$:D1MF:M%(D)::D$:-|y WRITE ROOM -y65:W$"ROOMS,R"NO:MP7ĺ(34);NA$:D1ND:RD%(D)::LT:D$:8.yA1ND,*NR$"DESC,R"RE:DE$:D$:0,R READ ROOM o,R65:R$"ROOMS,R"NO:MP7ĄNA$:A1ND:RD%(A)::LT:D$:,RA1ND(MP6):RD%(A)::LT1:MP6LTRD%(ND1),&RD$:R$"ROOM.NAME,R"NO:NA$:D$:,U READ ART. ;-U75:R$"ARTIFACTS,R"NO:NA$:A" ART.#...WEAPON #":" 0.......NATURAL WEAPONS":" - 1.....WEAPONLESS":+F7"ENTER "MF$(M)": ";:I2$(M%(M)):TL5:600:M%(M)(I$):(M%(M))I$ĺ(7):(37):14150+P7:+PF WRITE DESC +ZFW$"DESC,R"RE:(34);DE$;(34):D$:, N READ DESC `*7M3ĭMP7ĺ:" SINGLE MONSTERS - ENTER 1":" GROUP MONSTERS - ENTER # OF MEMBERS":*(7M11ĭMP7ĺ:" 1=ENEMY 2=NEUTRAL 3=FRIEND":" FOR RANDOM FRIENDLINESS,":" ENTER PERCENT LIKELY FRIENDLY + 100":M+27(M8MP7)(M9MP7)ĺ: A SINGULAR FORM **":M)6:I2$NA$:TLML:"ENTER NAME:":600:I$""14010)6NA$I$:"ENTER DESC--":I2$DE$:TL238:600:DE$I$::"MONSER #"NO" "NA$:)6M1MF*7M1M6ĭMP7ĺ:" IF GROUP MONSTER ENTER VALUE FOR JUST ONE MEMBER OF GROUP": EAMON ROOM ANALYSIS7 BY JOHN NELSON> x PRINT MONSTERS AND ARTIFACTS IN ROOMS~ 11-8-84 D$(4): ONERR GOTO 15  :6:"INSERT DUNGEON DISKETTE AND PRESS"::10);"ANY KEY TO CONTIb D$(4):R$D$"READEAMON.DESC":W$D$"WRITENEW.DESC":Q$(34):RD$"READING ":WR$"WRITTING "D$"OPENEAMON.DESC,L256":::R$",R0":NR,NA,NE,NM:D$:RENR:NANRRENANERERENENMRERENM# A$(RE):A1NR::RD$"ROOM #"A:R$",R"A:AEY TO CONTINUE":23:A$:, D$(4):DV55 50h #D$"OPEN EAMON.NAME":D$"READ EAMON.NAME":DU$ %DU$"SANCTUARY"ĺD$"CLOSE"::"'SANCTUARY' HAS A UNIQUE RECORD STRUCTURE AND CANNOT BE VERIFIED BY THIS PROGRAM.": &ND (60 -- EAMON UNIVERSAL CHECK FILES PROGRAM = 10/16/91  EAMON ADVENTURERS GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012  :5:" UNIVERSAL EAMON FILE CHECK PROGRAM" 10:"INSERT ADVENTURE TO BE TESTED FOR VALID TEXT FILES AND PRESS ANY KROOMS/ARTIFACT: ";NRNA:" EMPTY ROOMS: ";ERi" AVG. # THINGS IN NON-EMPTY ROOMS: ";(WMWA)(NRER)~D$"PR#0":255: === CHANGE SPEED ===TST21SP251ĩSP5:SPSP5TST8SP5SPSP5:SPTST0:16368,0&ATURAL PLACES (NOT ROOM 0)a A:"---------------------------------------":AR0MR0ERER1h R ::7);"PRESS ANY KEY TO CONTINUE";7);:A$:: :10);"EAMON ROOM ANALYSIS":3:" NO. ROOMS: ";NR:" AVG. ROOMS/MONSTER: ";NRNM." AVG. :150:R1NR::"ROOM ";R;" (";RN$(R);")"V i(16384)127TST(16384)128:500` mTST0 nMR0:M1NM:MD%(M,5)RĺMN$(M):MRMR1:WMWM1 xM AR0:A1NANM AD%(A,4)RĺAN$(A):ARAR1:WAWA1 AD%(A,4)0ANAN1: #ARTIFACTS IN NCTS,R";A:AN$(A):A214:AD%(A,A2):A2:AD%(A,2)2āA258:AD%(A,A2):A2] Z:D$"CLOSE"{ _"PRINTER OUTPUT?(Y/N):"; bYN$:YN$"Y"YN$"N"98 cYN$:YN$"Y"ĺD$"PR#1":(12);(40("ROOM ANALYSIS"))2);"ROOM ANALYSIS"::, d16368,0:SP150ROOM.NAME,L64":R1NR:D$"READ EAMON.ROOM.NAME,R"R:RN$(R)::D$"CLOSE" FD$"OPEN EAMON.MONSTERS,L128":M1NM:D$"READ EAMON.MONSTERS,R";M:MN$(M):M2112:MD%(M,M2):M2,M:D$"CLOSE"L PD$"OPEN EAMON.ARTIFACTS,L128":A1NANM:D$"READ EAMON.ARTIFANUE ...";:A$:4 A$"1"A$"2"ĺD$"PREFIX,D"A$c D$"PREFIX/":D$"PREFIX":A$:D$"PREFIX"A$ D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$"CLOSE" 216,0 MD%(NM,12),AD%(NA,8),MN$(NM),AN$(NA),RN$(NR)J 2D$"OPEN EAMON.$(A)::D$:D$"OPENNEW.DESC,L256"_ A1NR::WR$"ROOM #"A:W$",R"A:Q$;A$(A);Q$:D$::D$ A1NA::RD$"ART. #"A:R$",R"A100:A$(A)::D$:A1NA::WR$"ART. #"A:W$",R"A100:Q$;A$(A);Q$:D$::D$G $A1NE::RD$"EFFECT #"A:R$",R"A200:A$(A8:AD%(A,A2)0:A2,A(& NANANI:1008 /// APPLYA1NA:D$"WRITE EAMON.ARTIFACTS,R";A:AN$(A):A218:AD%(A,A2):A2,AD$"WRITE EAMON.DESC,R0":NR:NA:NE:NM:D$UP0100 /// CANCELKUPUP:"UPDATE IS ";("CANCELLEDIN EN"3050 A$:A$"N"100 UP1:X0:INANIIA11:D$"READ EAMON.DESC,R";INI100:RD$:D$"WRITE EAMON.DESC,R";I100:(34);RD$;(34) AN$(I)AN$(NAX):A218:AD%(I,A2)AD%(IANI1,A2):A2 XX1:I:D$ AIA1NIIA:AN$(A)"DUMMY":A21958::"HOW MANY TO INSERT?";NI$:(NI$)1(NI$)NA1003010 8:"AFTER WHICH ARTIFACT:";IA$:(IA$)1(IA$)NART3020 :NI((NI$)):IA((IA$)):"INSERT ";NI;" ARTIFACTS AFTER ";IA;"." 6:"IS THIS CORRECT? (Y/N) ";  A$:A$"Y"A$"$:A$"Y"A$"N"2050- A$:A$"N"100 UP1:DD1NDNA:D$"READ EAMON.DESC,R";D100:RD$:D$"WRITE EAMON.DESC,R";DND100:(34);RD$;(34) AN$(DND)AN$(D):A218:AD%(DND,A2)AD%(D,A2):A2 *D:D$:NANAND 4100 /// ADD@ 6: DELETEL 6:958:"HOW MANY TO DELETE?";ND$:(ND$)1(ND$)NART2010 8:958:"FIRST ARTIFACT TO DELETE:";D1$:(D1$)1(D1$)NART2020 ND(ND$):D1(D1$)::"DELETE ARTIFACTS ";D1;" THRU ";D1ND1 6:"IS THIS CORRECT? (Y/N) "; A$)61407 A$:(A$)1000,2000,3000,4000,5000,6000F  /// LIST :LP0:A1NA:" ";A;". ";AN$(A):LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINUE ======";:A$::LP0:  B:"====== PRESS ANY KEY TO CONTINUE ======";:A$::100  ///INTENANCE":12);"BY JOHN NELSON":10:"SELECT ACTION:" n" 1. LIST ARTIFACTS":" 2. DELETE ARTIFACTS":" 3. INSERT ARTIFACTS":" 4. APPLY CHANGES TO FILE" x" 5. CANCEL CHANGES":" 6. QUIT" "INPUT YOUR CHOICE (1-6):"; A$:(A$)1(ASC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NMH 2AN$(100),AD%(100,8)k <D$"OPEN EAMON.ARTIFACTS,L128" FA1NA:D$"READ EAMON.ARTIFACTS,R"A:AN$(A):A214:AD%(A,A2)::AD%(A,2)1āA258:AD%(A,A2): P:D$9 d:17);"EAMON":9);"ARTIFACT MA0 ARTIFACT MAINTENANCE BY JOHN NELSON O2-14-84 - REV. 11 NOV 94 _ D$(4)::6:" INSERT EAMON ADVENTURE DISKETTE AND"::6);"PRESS ANY KEY TO CONTINUE ...";:A$:D$"PREFIX/":D$"PREFIX":P$:D$"PREFIX"P$/ (D$"OPEN EAMON.DE)::D$:A1NE::WR$"EFFECT #"A:W$",R"A200:Q$;A$(A);Q$:D$::D$ .A1NM::RD$"MONSTER #"A:R$",R"A300:A$(A)::D$:A1NM::WR$"MONSTER #"A:W$",R"A300:Q$;A$(A);Q$:D$::D$ 8W$",R0":NR:NA:NE:NM:D$"CLOSE": FFECT",UP91,9)::"====== PRESS ANY KEY TO CONTINUE ======";:A$::100Zp /// QUITzUPĺ:"UPDATE HAS NOT BEEN APPLIED."::"PRESS ANY KEY TO CONTINUE";:A$::100D$"CLOSE"/ REMOVE DUMMY ARTIFACTS BY JOHN NELSON MTHIS PROGRAM WILL REMOVEjUNNEEDED ARTIFACTS FROM}EAMON FILES. 2-15-84 - REV. 11 NOV 94  D$(4): :6:"INSERT EAMON ADVENTURE DISKETTE AND "::05);"PRESS ANY KEY TO CONTINUE ...**************************************": <S$38)"**"((38(A$))2))A$((38(A$))2)((A$)2((A$)2)))"**"38)S$: FX(20(A2$)2):X)A2$:18:18::" STOP ":::" YOU MUST RUN THE EAMON MASTER AND"7 P" PREPARE YOURSELF IN THE MA (21):::30MD$(4):D$"VERIFYFRESH.MEAT":216,0:D$"-MAIN.PGM"216,0:A$"ADVENTURE NAME ":A2$"BY AUTHOR ":NU00(14)"DONALD BROWN'S"::6)::" THE WONDERFUL WORLD OF EAMON ":+ 27:14)"ADVENTURE #"NU::S$"***E ======";:A$:::LP0S::"====== PRESS ANY KEY TO CONTINUE ======";:A$:[60o === DEL NONE?DL0ė:"PROGRAM HAS CALCULATED NO DELETIONS.":"WHY BOTHER?":"AN OVERLAP WOULD OCCUR. CANNOT CONTINUE.":4);DE$;(34)RPD$"WRITE EAMON.DESC,R0":NR:RMNM:NE:NM:D$"CLOSE"V"i === VIEW ===:LP0:A1NA2:2((A)));A;"> ";(A$(A),12);:ANARĺ20((A1)));A1;"> ";(A$(A1),12)LPLP1:LP22ĺ"====== PRESS ANY KEY TO CONTINURRMDL1NA:A50:A60:A70:A80lD$"READ EAMON.ARTIFACTS,R";R:AN$:A1,A2,A3,A4:A21ĄA5,A6,A7,A8D$"WRITE EAMON.ARTIFACTS,R"RDL:AN$:A1:A2:A3:A4:A5:A6:A7:A8D$"READ EAMON.DESC,R";R100:DE$:D$"WRITE EAMON.DESC,R";RDL100:(3160 BD$:BD$"N"NM0 :RM;" ARTIFACTS TO REMAIN ON FILE - PLUS":"BODIES FOR ";NM;" MONSTERS = ";RMNM:"IS THIS CORRECT? (Y/N):"; A$:A$"Y"A$"N"190 DLNARMNM:DL12000 A$:A$"N"130 D$"OPEN EAMON.ARTIFACTS,L128"%0 xA$"S"ĀE :"NUMBER OF ARTIFACTS TO REMAIN:";A$:RM(A$) RM(RM)RMNARM10ĺ"THAT CANNOT BE ACCEPTED.":130 :"IF THERE ARE NO MONSTER BODIES ON THE ARTIFACT FILE, PRESS 'N'; OTHERWISE PRESS 'C' "; BD$:BD$"N"BD$"C"RECTLY BEFORE RUNNING THIS PROGRAM."| P:"YOU MAY VIEW THE NAMES OF ALL ARTIFACTS BY PRESSING 'V' AT THE NEXT INPUT.": Z"PRESS 'S' TO STOP; 'V' TO VIEW ARTIFACTS":"OR 'C' TO CONTINUE --> "; dA$:A$"V"A$"S"A$"C"100 nA$:A$"V"100N.ARTIFACTS" <:"YOU WILL BE REQUESTED TO INPUT THE ":"NUMBER OF ARTIFACTS THAT YOU WANT TO ":"KEEP. THIS WILL BE THE NUMBER OF "& F"ARTIFACTS TO REMAIN ON THE FILE. (DO ":"NOT COUNT MONSTER BODIES.)"::"BE SURE THE EAMON FILES ARE SET UP":"COR";:16368,0:A$:H D$"PREFIX/":D$"PREFIX":P$:D$"PREFIX"P$:20 (D$"OPEN EAMON.DESC,L256":D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D$:216,0 2A$(NA):D$;"OPEN EAMON.ARTIFACTS,L128":A1NA:D$;"READ EAMON.ARTIFACTS,R";A:A$(A)::D$;"CLOSE EAMOIN HALL":"BEFORE YOU CAN DEPART ON THIS ADVENTURE!";R ZDESIGN BY RON MALEIKANON-STANDARD FILES>DU$"THROR'S RING"LR32:LNLR:2900DU$"DUNGEON OF DOOM"LR30:LN40:RO0:AO161:EO322:MO483:SA1:SM1:LR$(LR):LN$(LN):LA$"SEQUENTIAL":LM$LA$:OF1:DU$"THE ALTERNATE ZONE"RO0:AO99:EO199:MO299:OF1:2900,IFFERENT RECORD LENGTHS THAN THE ONES LISTED ON THE FIRST SCREEN OF THIS PROGRAM.":"IT IS RECOMMENDED THAT YOU LIST THE MAIN.PGM TO VERIFY THESE RECORD LENGTHS.IF THEY ARE IN FACT CORRECT, THEN YOU HAVE A BAD FILE."CHECK FOR :M1NM:VT:22:M:D$"READ EAMON.MONSTERS,R";M:MN$:F112D7:X::XrD$"CLOSE"|::"VERIFICATION COMPLETE.": VERIFICATION ERROR216,0:D$"CLOSE"(7)::"VERIFICATION ERROR!":Z:"IT IS POSSIBLE THAT THIS ADVENTURE USES D:T%1D7āX14:A%:*^:D$"CLOSE"8`SM0360cVTVT2:D$"OPEN EAMON.MONSTERS":D$"READ EAMON.MONSTERS":VT:6:"EAMON.MONSTERS:":M1NM:VT:22:M:MN$:F112D7:X:::370IhVTVT2:D$"OPEN EAMON.MONSTERS,L"LM:VT:6:"EAMON.MONSTERS:""EAMON.ARTIFACTS:":M1NA:VT:22:M:AN$:X14:A%:X2T%A%^F:T%1D7āX14:A%:tG:D$"CLOSE":352JD$"OPEN EAMON.ARTIFACTS,L"LA:VT:5:"EAMON.ARTIFACTS:":M1NA:VT:22:M:D$"READ EAMON.ARTIFACTS,R";M:AN$:X14:A%:X2T%A%T;R:D1NDLT:RD%:::D$"CLOSE"@D7VT15:D$"OPEN EAMON.ROOMS,L"LR:13:9:"EAMON.ROOMS:":R1NR:13:22:R:D$"READ EAMON.ROOMS,R";R:RN$:D1NDLT:RD%:::D$"CLOSE"BSA0330BED$"OPEN EAMON.ARTIFACTS":D$"READ EAMON.ARTIFACTS":VT:5:FY DATA FILES,D7ĺD$"OPEN EAMON.ROOM NAMES,L"LN:13:" EAMON.ROOM NAMES:":R1NR:13:22:R:D$"READ EAMON.ROOM NAMES,R";R:RN$::D$"CLOSE"#6D7VT17:D$"OPEN EAMON.ROOMS,L"LR:15:9:"EAMON.ROOMS:":R1NR:15:22:R:D$"READ EAMON.ROOMS,R":22:X:D$"READ EAMON.DESC,R";XAO:DE$:B8:15:"EFFECT "bNE0Ģ8:22:"(NONE)":270X1NE:8:22:X:D$"READ EAMON.DESC,R";XEO:DE$:10:14:"MONSTER ":X1NM:10:22:X:D$"READ EAMON.DESC,R";XMO:DE$:D$"CLOSE"+VERIANY KEY TO CONTINUE:";:A$:A$:A$(3)ĀBVERIFY EAMON.DESCeD$::"VERIFYING: ";::DU$:p1000D$"OPEN EAMON.DESC,L"DL:::"EAMON.DESC: ROOM ":X1NR:4:22:X:D$"READ EAMON.DESC,R";XRO:DE$:,6:13:"ARTIFACT ":X1NA:64 " MONSTERS ";NM;:25:"MONSTERS: ";MO :"RECORD LENGTHS:":" EAMON.DESC: ";DL:D7ĺ" EAMON.ROOM NAMES: ";LN$ " EAMON.ROOMS: ";LR$:" EAMON.ARTIFACTS: ";LA$:" EAMON.MONSTERS ";LM$+22:16338,0:7:"HIT ";ND:"ROOM LIGHTING: ";LT$= s:22:"EAMON.DESC"l x"NO. OF RECORDS:";:22:"RECORD OFFSETS:" z" ROOMS: ";NR;:25:"ROOMS: ";RO |" ARTIFACTS: ";NA;:25:"ARTIFACTS: ";AO ~" EFFECTS: ";NE;:25:"EFFECTS: ";EOLR,LM,LA P2000" RDV590+ T88 VD$"OPEN EAMON.ROOMS,L"LR:D$"READ EAMON.ROOMS,R1":R1ND1:R%::LT1:LT$"YES":90 XLT0:LT$"NO" Z216,0:D$"CLOSE" cPRINT INFO SCREEN% dD$:::DU$:::"MAIN.PGM VERSION: ";DV:"DIRECTIONS: DV:LT1:LT$"YES":60+ 2DV4:LT$"NO" <216,0:D$"CLOSE":DL256:RO0:AO100:EO200:MO300:LR64:LN64:LA128:LM128:D7(DV7):D7DL242:RO0:AO200:EO400:MO600 ANDND6 FD$"OPEN EAMON.DESC,L"DL:D$"READ EAMON.DESC,R0":NR,NA,NE,NM:D7ĄDU$"THE LAST DRAGON"LR32:LN32:2900vDU$"OPERATION ENDGAME"LR32:LN64:LA90:LM100:EO300:MO200:2900 DU$"ANIMAL FARM"LR32:LN64:LA90:LM90:AO149:OF1:2900DU$"THE BOY AND THE BARD"LR32:LN40:NA64:LM80:2900#T LR$(LR):LN$(LN):LA$(LA):LM$(LM):::W14:(WN$(M,W))18WN$(M,W)(WN$(M,W),18)YHWN$(M,W)"NONE"WN$(M,W)""2150RWN$(M,W)18(WN$(M,W)))WT(M,W)6((WO(M,W))))WO(M,W)"%";\7((WD(M,W))"D"(WS(M,W))))WD(M,W)"D"WS(M,W);:A$((EAAE)(EAAE)WO(M,W)WA(M,WT(M,W))2ASAM 50 PLE 5 SH 50 ED HIM."::"CONGRATULATIONS.":J (216,0:(222)6ĺ"ERROR "(222): 2"IT SEEMS THAT YOU HAVE PERISHED."::"BETTER LUCK NEXT TIME."7 TEST BENCH RETURNS TO HERE AFTER AN ADVENTURE S (21):::D$(4):40A$"THE.ADVENTURER":D$"VERIFY"A$:D$"OPEN"A$:D$"READ"A$:NA$,RE:D$"CLOSE":216,0:RE50ĺ"ERROR!":" "I SEE YOU BROUGHT "NA$" BACK"::"ALIVE. WE WOULD HAVE MISS);:21:"3.CLUB:";:30:WA%(M,3):" SPEED:";:12:SP$(3);:21:"4.SPEAR:";:30:WA%(M,4) 4" POWER:";:12:SP$(4);:21:"5.SWORD:";:30:WA%(M,5)::" ARMOR: "AR$:"EXPERTISE: "AE(M)"%":3>"WEAPON NAME TYPE CMPLX DMG ODDS";:K140:"-";21:"IN HAND: "GO(M)b "AGILITY:";:12:AG(M);:21:"IN BANK: "BA(M):"CHARISMA:";:12:CH(M) 20:"WEAPON ABILITY:":"SPELL ABILITY:";:21:"1.AXE:";:30:WA%(M,1) " BLAST:";:12:SP$(1);:21:"2.BOW:";:30:WA%(M,2)Z *" HEAL:";:12:SP$(22):SH(AAC(M)2):A(A5)A(A4)4:AR$AR$(A):SHAR$AR$" & SHIELD" EA5(AR2AC(M)):AREAEAAR10:AR3EAEA30 :40):1:1:20(NA$(M))2)NA$(M): 3:("FE",(SE$(M)"F")21,2);"MALE";:20:"GOLD:":"HARDINESS:";:12:HD(M);:ELECT ^ K1NC:K": "NA$(K):::"ENTER # OF CHARACTER: ";A$:K((A$)):KKNCė:1000 "SELECT "NA$(K)"?"::"(Y/N) : ";:A$:A$"Y"A$"y"100:MK:100  DISPLAY A14:SP$(A)(SA%(M,A))"%":SA%(M,A)SP$(A)"NONE"I :A(AC(M):O$(VT5)::VT6 xK(16384):K128120:49168,0n K138K149ĺO$(VT5):VTVT1:VT10110:VT6:110 K136K139ĺO$(VT5):VTVT1:VT5110:VT9:110 K141ė:VT51000,2000,3000,4000 K177K180120:O$(VT5):VTK171:110  So9000: EAMON TEST BENCH BY FRANK KUNZE EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 d::"EAMON TEST BENCH"::"CHAR: ";::NA$(M)::6:K14:O$(K):i12:"USE ARROWS OR NO. TO SELECT THEN":8)"PRESS " nVT:G(M)):5(A$))A$"%">f:24:"[HIT ANY KEY]";:A$::100P ADVENTURE  :5:"INSERT ADVENTURE DISK IN THE CURRENT DISK DRIVE THEN HIT THE "(34)"C"(34)" KEY.":3010 49168,0:9:10:A$:A$"C"3020:8 D$"PREFIX/":D$"PREFIX":P$:D$"PREFIX"P$:D$"VERIFYEAMON.NAME":P$(P$,2,(P$)2) A((P$,1)):A48A57P$(P$,(P$)1):(P$)33040:(7)"BAD PREFIX ERROR": F$"EAMON."(P$,3)".INTRO":P$F$:300 D$"VERIFY"F$:F$"EAMON.NAME":D$"VERIFY"F$:216,0:D$"OPEN"F$:D$"(CL%(L$(X)))25 |SP$"":Y1SP%:SP$SP$" ":YP CR$;DS$;DW$;SP$;L$(X)W Xd N:PFır D$"PR#0"{ 530  ///PRINT TEST LABELS NBNL:NL1 PF1:260 D$"PR#0":"IS PRINTER ALIGNED? (Y/N)"; YN$:YN$"Y"PF0:YN$:NLNB:SAM 24 18 24 65 168 63 122 39 0 36 34 67 25 M 54899 10000 5 CRYSTAL SWORD 5 60 10 2 SWORD 5 10 5 4 STARFIRE 5 80 10 6 DRUINVAL 5 30 4 8 60 10 2 5 2 3 1 4 1 10 CREEP 99 25 22 200 204 200 200 80 80 80 80 80 51 M 70029 400000 ,8,MACE,3,25,1,10,NONE,0,0,0,0#HILDA THE HARSH,19,15,17,25,100,15,100,10,0,15,7,5,10,F,12334,500,3,MARCOS SWORD,5,0,1,8,BILLY CLUB,3,10,1,8,DAGGER,5,-10,1,6,NONE,0,0,0,0&"1. SELECT CHARACTER","2. VIEW CHARACTER","3. START ADVENTURE","4. QUIT"x#SIR LUNCHALOT,30,20,22,100,150,50,100,40,15,40,25,40,38,M,50000,50000,7,GRIMTOOTH,5,30,3,8,CROSSBOW,2,10,2,8,POINTED STICK,4,15,1,10,HATCHET,1,15,1,10 #MR. WIMPLE,20,18,18,63,80,0,80,10,0,20,15,20,20,M,2000,7534,4,TROLLSFIRE,5,25,1,10,SWORD,5,10,1(K)::VT6:100)P#4:# OF CHARACTERSaZ#CLOTHES,LEATHER,CHAIN MAIL,PLATE MAIL,MAGIC/EXOTICtd# CHARACTERS n#SAM,24,18,24,65,168,63,122,39,0,36,34,67,25,M,52647,10000,5,CRYSTAL SWORD,5,60,10,2,SWORD,5,10,5,4,STARFIRE,5,80,10,6,DRUINVAL,5,30,4,8AC(K),WN$(K,4),WT(K,4),WO(K,4),WD(K,4),WS(K,4),AR$(4),O$(4):K04:AR$(K):<#M1NC:NA$(M),HD(M),AG(M),CH(M):K14:SA%(M,K)::K15:WA%(M,K)::AE(M),SE$(M),GO(M),BA(M),AC(M)F#K14:WN$(M,K),WT(M,K),WO(M,K),WD(M,K),WS(M,K):::M1:K14:O$$(M)j GO(M):BA(M):AC(M):K14:WN$(M,K):WT(M,K):WO(M,K):WD(M,K):WS(M,K)::D$"CLOSE":D$"-"P$w QUIT :"COME AGAIN.":(# INIT DATA N2#(21):D$(4):NC:KNC:NA$(K),HD(K),AG(K),CH(K),SA%(K,4),WA%(K,5),AE(K),SE$(K),GO(K),BA(K),READ"F$:AN$:D$"CLOSE" :5:"YOU ARE ABOUT TO ADVENTURE IN":::AN$:::"RETURN TO THIS DISK WHEN ADVENTURE":" IS OVER" D$"OPENFRESH.MEAT":D$"WRITEFRESH.MEAT":50:NA$(M):HD(M):AG(M):CH(M):K14:SA%(M,K)::K15:WA%(M,K)::AE(M):SE510 YN$"N"4800 YN$:D$"PR#1":460> NL1530N D$"PR#1":j "MORE LABELS? (Y/N):"; YN$:YN$"Y"YN$"N"540 &:YN$"N"Ā 020: EAMON UNIVERSAL DUNGEON LIST BY FRANK KUNZE 1994 OREV. 25 NOV 94  EAMON ADVENTURER'S GUILD 7625 HAWKHAVEN DR. CLEMMONS, NC 27012 ! D$(4):CL$D$"CLOSE":O$D$"OPENEAMON.":W$D$"WRITEEAMON.":R$D$"READEAMON.":::5:11:"EAMON DUN14)A%(R,3):88:" ROOM"(PR$,16)A%(R,4);:X((A%(R,4))):5(X1)(X2)(X3));:AA%(R,4):A0ANRĺ"["R$(A)"]";4A0ANM1ĺ"[CARRIED BY "M$((A1))"]";>A200A200NRĺ"[EMBEDDED IN ROOM "A200"]";HX100(400(MP7)):AXANAXĺ"[EENNA`80:75:RBEEN:"ARTIFACT #"R": "A$(R):88:DSĺR$"DESC,R"RRL%(2):A$:D$:9000" VALUE"(PR$,15)A%(R,1):88:" TYPE"(PR$,16)A%(R,2);5(A%(R,2)9))"[";:A%(R,2)AFĺ"UNKNOWN]":88:2090 TY$(A%(R,2))"]":88v*" WEIGHT"(PR$,$"PR#0":100" LIST ARTIF. r"BEGINNING WITH ARTIFACT (1): ";BE$:BE$""BE$"1":(37):30:HT,30:BE$:"ENDING WITH ARTIFACT ("NA;:"): ";EN$:EN$""EN$(NA):(37):28:HT,28:EN$BE(BE$):EN(EN$):BENABE1BE1 ENNAENB": ";(X0)((X)10));X;5);.X99ĺ"[EXIT]";:1110k8MP7ĭMP6ĭX0(X)NRĺ"["R$((X))"]";BMP6ĭXDRĭNAXDRĺ"["A$(XDR)"]";LX0XNRĺ"["R$(X)"]";V89::MP6ĺ"LIGHT: "R%(R,ND1):88`89:PTL99:90j:FF$:DE$T:"ENDING WITH # ("NR;:"): ";EN$:EN$""EN$(NR):(37):21:HT,21:EN$}BE(BE$):EN(EN$):BENRBE1BE1ENNRENBEENNR80:75:RBEEN:"ROOM #"R": "R$(R):88:DSĺR$"DESC,R"R:A$:D$:9000$D1ND:XR%(R,D):" "D$(D):A%(A,2)1MP6āA258:A%(A,A2):D|:CL$"EAMON.ARTIFACTS"O$"MONSTERS,L"LM:A1NM:R$"MONSTERS,R"A:M$(A):A21MF:M%(A,A2):::CL$"EAMON.MONSTERS": LIST ROOMS "BEGINNING WITH # (1): ";BE$:BE$""BE$"1":(37):23:HT,23:BA,A2)::D$::340K@A1NR:R$"ROOMS,R"A:A21ND(MP6):R%(A,A2):J:D$:O$"ROOM.NAME,L"LN:A1NR:R$"ROOM.NAME,R"A:R$(A)::CL$"EAMON.ROOM.NAME"TCL$"EAMON.ROOMS"(rO$"ARTIFACTS,L"LA:A1NA:R$"ARTIFACTS,R"A:A$(A):A214:A%(A,A2): 7. SWITCH TO "("4080",(CP40)21,2)" COLUMNS":" 8. QUIT" :"INPUT YOUR CHOICE (1-7):";CH:FF$::CH1000,2000,3000,4000,5000,6000,7000,8000:100 , LOAD DATA 6RM97:RM1:O$"ROOMS,L"LR:MP7āA1NR:R$"ROOMS,R"A:R$(A):A21ND1:R%((40(AN$))2);::AN$:} x:"SELECT ACTION DESIRED:"::" 1. LIST ROOMS":" 2. LIST ARTIFACTS":" 3. LIST EFFECTS" " 4. LIST MONSTERS":" 5. TOGGLE PRINTER (NOW "("OFFON",PT31,3)")":" 6. TOGGLE DESC. (NOW "("OFFON",DS31,3)")"@ "))2)AN$::LL2:< PPT97:PTĺD$"PR#"PS:(9)"80N":J XLL1:90V Y:LL1~ ZL20(35(PT0))97:L0:PTĺFF$: \49168,0:"HIT ANY KEY...";:A$:::(12)::A$(27)ġ:100 a d MAIN ROUTINE  nL0::11)"EAMON DUNGEON LIST"::50 (MP7:LD242:55U -CL$:(222)5ĺ"ERROR "(222)" IN "(218)(219)256:e /216,0:MP5 2LD256:LA128:LM128:LR64:LN64:ND6ND6:MP5 7O$"DESC,L"LD:R$"DESC,R0":NR,NA,NE,NM:MP7ĺ:LR,LM,LA <D$:35000:300:100 K(CP(AN$GEON LIST":15:"UNIVERSAL":10 B$D$"PREFIX":" INSERT DISKETTE WITH ADVENTURE"::" PRESS ANY KEY TO CONTINUE...";:49168,0:A$::A$"1"A$"2"ĺB$",D"A$ B$"/":B$:P$:B$;P$:45 #O$"NAME":R$"NAME":AN$:ND:MP:CL$:216,0:MP7INSIDE "A$(AX)"]";>RMP7ĭA999ĺ"[WORN BY "M$(0)"]";v\MP6ĭA300A300NRĺ"[HIDDEN IN ROOM "A300"]";f89:XA%(R,2):A58:XAFĺ" FIELD #";A;(PR$,12)A%(R,A);:2900pMA%(R,A):" "F$(X,A);(PR$,20(F$(X,A)));M;:B((M)):X2X3ĭA5BB1:"%";Ku5(B1)(B2)(B3));:X2X3ĭA6ĺ"["W$(M)"]";wzX10ĭA5A7ĭM0MNMĺ"["M$(M)"]";(X4A5)(X8A6)(X10A6)(X12A5)ĭMNAM0ĺ"["A$(M)"]";X8ĭA5ĭM0MNRĺ"["R$(M)"]";MP7X112250:A5ĭOF USES$ MONSTER DATA $HARDINESS,AGILITY,FRIENDLINESS,COURAGE,ROOM,WEIGHT,DEF. ODDS,ARMOR,WEAPON #,ODDS TO HIT,WEP. DICE,WEP. SIDES$ MONSTER DATA 7 & > $ARMOR,WEAPON #,WEP. DICE,WEP. SIDES,FRIEND?$Đ DIRECTION NAMES ]%ΐNORTH KEY,USER #5,USER #6,USER #7,USER #8X#BOUND MONSTER,MONSTER#,KEY#,GUARD#,USER #8#"WEARABLE,ARMOR CLASS,TYPE,USER #7,USER #8#,RE-USEABLE CONTAINER,KEY#,OPEN/CLOSED,#ITEMS INSIDE,#ITEMS CAN HOLD#6 6.0 DRINKABLE $@CHANCES,HEAL AMOUNT,# "܌CONTAINER,KEY#,STRENGTH,OPEN/CLOSED,USER #8\"挃LIGHT,COUNTER,USER #6,USER #7,USER #8"DRINKABLE,HEAL AMOUNT,# OF USES,OPEN/CLOSED,USER #8"READABLE,1ST EFFECT,# OF EFFECTS,OPEN/CLOSED,USER #8"DOOR/GATE,ROOM BEYOND,KEY,STRENGTH,HIDDEN?(#A262:AR$(A):AR$(A1)AR$(A)" & SHIELD"::A05:CT$(A):F!X! ART. DATA `!12!GOLD,USER #5,USER #6,USER #7,USER #8!TREASURE,USER #5,USER #6,USER #7,USER #8!ȌWEAPON,ODDS,TYPE,DICE,SIDES"ҌMAGIC WEAPON,ODDS,TYPE,DICE,SIDES1MF$(MF):A112:MF$(A)::MP7āA15:A$:d MP7āA711:MF$(A)::MF11:MF$(3)"# MEMBERS" D$(10):A110:D$(A): RL%(4):A14:RL%(A)A100100::MP7āA24:RL%(A)RL%(A)2:@!W$(5):A15:W$(A)::AR$(7),CT$(5):AR$(0),AR$(1):258:F$(A,A2):::M$(0)"THE ADVENTURER"yшA1AF:F$(A,1)"VALUE":F$(A,2)"TYPE":F$(A,3)"WEIGHT":F$(A,4)"ROOM":ֈMP7AF10:A57:F$(6,A)::F$(4,7)"USER #7":F$(7,7)"READ FLAG":F$(8,8)"USER #8":MP6AF3MP7āA13:A$:. MF12::89 SETUP DATA ˆFF$(12):DS1:PR$"....................":FR$(1)"ENEMY":FR$(2)"NEUTRAL":FR$(3)"FRIEND":CP40:CCCP:HT1403:DR500:MP7DR100,̈A$(NA),A%(NA,8),M$(NM),M%(NM,12),R$(NR),R%(NR,ND1):AF:TY$(AF),F$(AF,8):A0AF:TY$(A):A:CP80:100"p TOGGLE DESC. 2zDSDS:100EX 40/80 COL. kbCP40CP80:D$"PR#3":CCCP:100lCP40:CCCP:(26)"1":(21):100@ QUIT JCL$:(# PRINT DESC 2#PTĺA$:LL((A$)CP)1:<#AZ1(A$)CP:(A$,AZ,CP):88:APONS]";'"XNAX0ĺ"["A$(X)"]";=, ADD MORE HERE E$89]):89:PTL99:90w.:FF$:D$"PR#0":100 TOGGLE PRINTER PTPT:PTCPCC:100"PRINTER SLOT? (DEFAULT=1):";:A$:A$(13)A$"1" A$:PS(A$):PS1PS75000MP7ĭM3M4M7M10BB1:"%";b6(B1)(B2)(B3));:M11MP7ĭX99ĺ"["X100"%]";M11ĭMP7ĭX0X4ĺ"["FR$(X)"]";M5ĭX0XNRĺ"["R$(X)"]";(MP7M9)(MP7M8)4140:X0ĺ"[WEAPONLESS]";:4900 Xĺ"[NATURAL WEMENBEENNMV80:75:RBEEN:"MONSTER #"R": ";:MP7ĭM%(R,3)1ĺM%(R,3)" ";M$(R)(" S",(MP7M%(R,3)1)11,1):88:DSĺR$"DESC,R"RRL%(4):A$:D$:9000M1MF:XM%(R,M):M3ĭMP74905%" "MF$(M)(PR$,1,20(MF$(M)))X;:B((X)):99:90# :FF$:D$"PR#0":1009 LIST MONSTERS "BEGINNING WITH # (1): ";BE$:BE$""BE$"1":(37):23:HT,23:1:"ENDING WITH # ("NM;:"): ";EN$:EN$""EN$(NM):(37):21:HT,21:NMBE(BE$):EN(EN$):BENMBE1BE1ENN1":(37):23:HT,23:1h :"ENDING WITH # ("NE;:"): ";EN$:EN$""EN$(NE):(37):21:HT,21:NE BE(BE$):EN(EN$):BENEBE1BE1 ENNEENBEENNE 80:75:RBEEN:"EFFECT #"R":":88:R$"DESC,R"RRL%(3):A$:D$:9000:89  PTLM0M8ĺ"["AR$(M)"]";:A5ĭM7ĺ"[MAGIC/EXOTIC]";fA6ĭA%(R,5)ĭM0M6ĺ"["CT$(M)"]";ADD MORE SPECIAL STUFF HERET 89::89:PTL99:90^ :FF$:D$"PR#0":100 LIST EFFECTS  "BEGINNING WITH # (1): ";BE$:BE$""BE$" ,SOUTH ,EAST ,WEST ,UP ,DOWN ,NORTHEAST,NORTHWEST,SOUTHEAST,SOUTHWESTr%ؐ WEAPON TYPES %␃AXE,BOW,CLUB,SPEAR,SWORD%쐲 ARMOR & CLOTHING %CLOTHES,SHIELD,LEATHER,CHAIN,PLATE &CLOTHING,OVERCLOTHES,SHOES,GLOVES,HEADWEAR,JEWELRYE"P F:"INSERT DISK TO WRITE TO ... ";:A$::A$"1"A$"2"ĺD$"PREFIX,D"A$ KD$"PREFIX/":D$"PREFIX":P$:D$"PREFIX"P$ PD$"OPENDATABASE":D$"WRITEDATABASE" ZA1A%:(A);6((A)));A$(A);60(A$(A))((A)));:MA%A:(M);6((M)));A$(M)"CLOSE"T (A%(NA2)(NA2(NA2)):M%(NM2)(NM2(NM2)):A$(NA4),M$(NM4) 2D$"OPENEAMON.ARTIFACTS,L"LA:A1NA:D$"READEAMON.ARTIFACTS,R"A:A$(A)::D$"CLOSE" <D$"OPENEAMON.MONSTERS,L"LM:A1NM:D$"READEAMON.MONSTERS,R"A:M$(A)::D$"CLOS5 EAMON DATABASE CREATE 7 BY FRANK KUNZE 9/94  (21):::"INSERT ADVENTURE DISK ... ";:A$::A$"1"A$"2"ĺD$"PREFIX,D"A$D$(4):D$"PREFIX/":D$"PREFIX":P$:D$"PREFIX"P$ D$"OPENEAMON.DESC":D$"READEAMON.DESC":A,NA,A,NM,A,LM,LA:D$;A$(A);Q$:D$::D$? 8W$",R0":NR:NA:NE:NM:D$"CLOSE": $(A);Q$:D$::D$:D1$ $A1NE::RD$"EFFECT #"A:R$",R"A200:A$(A)::D$:D2$:A1NE::WR$"EFFECT #"A:W$",R"A200:Q$;A$(A);Q$:D$::D$:D1$ .A1NM::RD$"MONSTER #"A:R$",R"A300:A$(A)::D$:D2$:A1NM::WR$"MONSTER #"A:W$",R"A300:Q$W A$(RE):A1NR::RD$"ROOM #"A:R$",R"A:A$(A)::D$:D2$:D$"OPENNEW.DESC,L256" A1NR::WR$"ROOM #"A:W$",R"A:Q$;A$(A);Q$:D$::D$ D1$ A1NA::RD$"ART. #"A:R$",R"A100:A$(A)::D$:D2$:A1NA::WR$"ART. #"A:W$",R"A100:Q$;Ab D$(4):R$D$"READEAMON.DESC":W$D$"WRITENEW.DESC":Q$(34):RD$"READING ":WR$"WRITTING "D1$D$"PREFIX,D1":D2$D$"PREFIX,D2":D1$D$"OPENEAMON.DESC,L256":::R$",R0":NR,NA,NE,NM:D$:RENR:NANRRENANERERENE NMRERENM8 81 89 74 34 41 28 28 12 38 65 M 17048 30000 7 ZAP GUN 2 35 2 8 WIZENHEIMER 5 25 2 8 TROLLSFIRE 5 25 1 10 BALL AND CHAIN 3 0 2 3 7 WOLVERINE P-30 2 40 3 6 NUCLEAR CANNON 2 80 20 20 FLAME THROWER 2 -20 2 9 UZI 2 60 2 8 MR. WIMPLE 25 19 1:` dA1M%:(A);6((A)));M$(A);60(M$(A))((A)));:MM%A:(M);6((M)));M$(M):o nD$"CLOSE" ::900::8166:"HA! HA! EAT MY DUST!":QX816856:A:X,A::169,10,32,100,248,160,14,169,0,162,19,134,45,32,40,248,160,24,169,0,32,40,248,169,6,160,10,162,28,134,44,32,25,248,169,13,160,10,76,25,248 T(3)M%(0,1)480urD%RO:M21NM:C%M2:S,A,D%,M%(C%,5),C%,M%:C%M2999:380wM2C%:M%(M2,11)3(1).25DFM2:M2999|:480C%1:D%ROS,A,D%,M%(C%,5),C%,M%:M%(C%,11)1C%C%1:410DFC%:DFNM480EM2DF1NM:C%M2:S,A,(M,4)MR%(1)M%(M,3)1:MR%" "M$(M);PMR%ĺ(" flees!s flee!",1(MR%1)7,7):54:M%(M,3)M%(M,3)MR%:M%(M,5)M%(M,5)(M%(M,3)0):M2M:3600:MM2:MR%0:M%(M,5)Ă:500TMC1:M%(M,3)8MCM%(M,3)8^OFM:DF0:MCMCM%(M,3):M%(M,11)34004h00:51:D%RO:M1NM:C%M:S,A,D%,M%(C%,5),C%,M%:MC%:MM999::500JM%(M,11)2Ă:500MM%(M,3)1ĭM%(M,13)M%(M,1)(1)100M%(M,4)ĺM$(M)" flees!":54:M%(M,5)0:M2M:3600:MM2::500IOM%(M,3)1340:(M%(M,12)M%(M,3))M%(M,12)(1)100M%N$N$(HEX$,(N216)1,1)(HEX$,N216(N216)1,1)G N;" = ";N$M :- <"ENTER A DECIMAL DIGIT, 0-65535":D F":";N:1000::70q  DECIMAL/HEX CONVERTER BY FRANK KUNZE HEX$"0123456789ABCDEF":N1(N256):N2N(N256)256:N65535N0:N10:N20 N$"$"(HEX$,(N116)1,1)(HEX$,N116(N116)1,1)7 INE 1040 IF YOU DON'T WANT THE":"VALUE PRINTED.": ("TO USE THE ROUTINE, LET N = THE DECIMAL":"NUMBER TO CONVERT AND GOSUB 1000. THE":"ROUTINE WILL RETURN WITH THE LOW BYTE" 2"IN N1, THE HIGH BYTE IN N2, AND THE HEX":"VALUE IN THE N$ STRING.":R ::24::"DECIMAL TO HEXADECIMAL CONVERTER";:::"BY FRANK KUNZE, 1997":"THIS IS A SHORT SUBROUTINE THAT YOU CAN":"USE IN YOUR PROGRAMS TO DISPLAY DECIMAL":"NUMBERS AS HEX VALUES.":5 "COPY LINES 1000-1050 FROM THIS PROGRAM.":"DELETE LSAM 50 @U0%- ( ( ,  `D%,M%(C%,5),C%,M%:C%M2999:430rM2C%:M%(M2,11)1(1).25DFM2:M2999x7500T(1)M999:MC999:D%RO:M1NM:C%M:S,A,D%,M%(C%,5),C%,M%:MC%:MM999::520 OFM:M%(M,8)1M%(M,6)07400:# SPECIAL STUFF ,1009 MOVE y R2R%(C):T(1)ĭNLLTĺ"You can't turn your back here!":99 R25003400:R20R2NR3500 SPECIAL MOVES  R299ĺ"You return to the Main Hall.":DI0:32000> "You can't go that way!"G$:99 H GATE/DOOR Y":8:A%(X,4)OF1:M%(OF,8)XH%.51Z%L DO BATTLE x%QHI0:WM%(OF,8):W07400%SWM502(M%(OF,2)M%(DF,2)M%(OF,7)M%(DF,7)):W0WMWMA%(W,5)2:OF0WMWMWA%(W2)4EA &VAA%(W,6)(W0):A$M$(OF)" "BV$(A,(1)3)"s at "M$(DF)"...":8S&XM%(OF,6):X0XNZĭA%(X,4)RO7460$D%RO:X0:M21NA:C%M2:S,A,D%,A%(C%,4),C%,A%:M2C%:M2M2999::7460$A%(M2,2)2A%(M2,2)3Ă:7460$XĭA%(M2,7)A%(M2,8)A%(X,7)A%(X,8)Ă:7460$XM2:@%$D%K:XA$M$(OF)" picks up "A$(X)".tblast",TA31,3TA2)" the "A$(A)"!":66r#M%(M,11)1İ294:S$"Y"100#OF0:DFM:7500:HI7360#HIĭUPWA%(W2)WA%(W2)2$M%(DF,11)1DF300:M%(DF,11)1M%(DF,11)1(M%(DF,11)3)150:R3RO:3600:300$ MONS P/U WEAP I$KD%:":99X"WM%(0,8):DA%(W,7):SA%(W,8):TA1D2:S5u"X7:K6:M4XX1:KK1"D20:A21D:D2D2(1)S1::A%(A,X)A%(A,X)D2:A%(A,X)1A%(A,X)0:A%(A,K)0:A%(A,7)1:"The "A$(A)" shatters!":64O#A%(A,8)A%(A,8)(M8):A$"Wham!! You "("hi3)0ĺ"They are ";:7652:300Y!DFM:D20:7637:300f!d LOOK !nLT100:RRO:45:300!X ATTACK !bM%(0,8)1ĺ"You have no weapon ready!":100!lTA0:4900:4700:F7300("vHARO:4805:F96:MA%(A,2):M8M4ĺ"Why would you do that?EMA%(A,4)ROW ANZĺ"This is your "A$(A)".":64 A%(A,8)A%(A,8)(A%(A,2)8):A%(A,2)6ĺ"(There are "A%(A,6)" swallows left.)":56 RA200:45:A%(A,0)1:300 4700:Fĺ"You see nothing special.":64@!RM600:45:DFM:M%(M,3)1M%(M,1,A,D%,A%(C%,4),C%,A%:AC%:C%A999:5120W5200q:WT0:M%(0,8)1:64PAM%(0,8)M%(0,8)1ZWTWTA%(A,3):A%(A,4)RO:A$(A)" dropped.":ALS52:LS0:LTNL:56:"The "A$(A)" goes out.":56 p EXAMINE 0 z4900:4804:F6050:A%(A,4)X999::F1A$"Which "Q$S$Q$" do you mean?"::65bq$ GET S$ )LTġ:100.S$""ĺ:C$(C)" who or what";:S$::L0:491081:A,S$:ID: DROP 51:4900:S$"ALL"5100:4801:F91:5200:300MD%1:A1NA:C%A:SR:C%D%47207M ARTIF SEARCH iHA1:WHHA:EMHA:4810sHA1WHRO:EMRO2004600:F0:C%0:D%0:S,S,S$,A$,C%:C%ıX1NA D%C%:A2A%(C%,4):A2WHA2HAA2EMFF1:AC%:(A$(A))SLX999:: S,R:C%D%Ă:\)S$(SY$,SL)S$S$A$(SY):FRZ\ MONS SEARCH jaWHRO:HA1fF0:C%0:D%0:S,S,S$,M$,C%:C%ĭ(S$)1ĭ(S$,1)"S"S$(S$,(S$)1):4710kC%ıpD%C%:XC%:M%(X,5)HAM%(X,5)WH4770FF1:F1MXS$M$(X)MX:1S,52aA$(A)" ";:WTA%(A,3)10M%(0,1)ĺ"is too heavy.":52A%(A,2)10ĺ"is tied down!":52"taken.":A%(A,4)1:WTWTA%(A,3):M%(0,8)1ĭA%(A,2)2A%(A,2)3M%(0,8)A:A$(A)" readied."52 SYNONYMS SL(S$)C@H(SY$,SL11):T(W)T(W)M%(K,1)M%(K,3)::D%X:U GET 4900:S$"ALL"4200:HARO:4805:F94:4300:64hD%RO:A1NA:C%A:S,A,D%,A%(C%,4),C%,A%:AC%:C%A999::300rA%(A,3)900ĺA$(A)": ";|4300::64&A%(A,3)900ĺ"Don't be absurd.":T(1)0:T(3)M%(0,1):XD%:D%R3:K1NM:C%K:S,A,D%,M%(C%,5),C%,M%:KC%:KK999:3640$M%(K,11)3M%(K,5)RO::3640.M%(K,11)1ĭ200(1)M%(K,4)M%(K,5)RO38D%RO:K1NM:C%K:S,A,D%,M%(C%,5),C%,M%:KC%:KK999::D%X:IVWM%(K,R AR2500:A%(A,8)03390:A%(A,6)R2A%(A,5):3040f "The "A$(A)" blocks the way!":99 GO  R3RO:ROR2:3600D$"READEAMON.ROOMS,R"RO:NX0:RN$:A1ND:R%(A):NXNX(R%(A)0R%(A)NR)::NL:D$:LTNLLS:A