IMD 1.16: 7/06/2007 20:18:27 ARCDIR LBRP BACH6 EXEBACH6 EXEBATCHCPYLBR- !"BBSLAW #$%&'()*+BM28NOV OQLS,-./01CASTLE LBR23456789:;<=>?@ACASTLE LBRBBCDEFCLASICDSARCGHIJKLMNOPQRSTUVCLASICDSARCWWXYZ[\CPMINFO HLP]^DBL004 LBRV_`abcdDEARC/PMLBR[efghijklmnopqrDMASTER LBRstuvwxyz{|}~DMASTER LBR0DND-REV1LBRDND-REV1LBR7DOS385 LBRDOS385 LBRUDOSEDIT LBR--PUB.01 -PUB 011 ARCDIR CMDUo:ARCDIR COMSsARCDIR DOC z qͬ#!! 9s#r!n!(9^#V!'L!!!!ͯ!*9^#V##^#V!.hͶ'ʃ!!,9^#V##^#V"!!,9^#V##^#Vx"-Ͷ'!*9^#V##^#V!!ͯ!9e! 9~#fo#s#r+|!!! 9^#V!Ͷ'!! 9s#r!9$3$(!9$3$(! 9!!9!!9$3$*-!9*-Archive Directory version 1.0 11/18/85 Usage: arcdir [drive:]arcname[.arc] Copyright (C) 1985 by Paul Traina All rights reserved.ARCCannot find archive %s | %-12s %3dk /%4dkͬ#!9$y$?!!9$#$#͈%#$3'ͬ#!!9s#rË!9~#fo#s#r! 9^#V#!9^#V'! 9^!9^#V!9~#fo^Ͷ'!9^#V|!ͬ#!9^#V!!ͯABORT: %s ͬ#! ! 9s#r! 9~#fo+s#r#|W!!9*- D!!9^!Ͷ'W! 9^#V!'o!y!!9^#V*- ! 9s#r! 9~#ʴ! 9^#V!Ͷ'´!9^#V~¸!! 9^#V!'!!9^#V^!'!!9^#V^!'#!9^#V#!!!ͯ!9^#V^!Ͷ'u!!*-!!9^#Vs!9^#V!!9^#V!$!$!Not an archiveFile length errorInvalid header versionI don't know how to handle file %s I think you need a newer version of arcdir ͬ#! 9! 9^#V! 8ͬ#!9N#F!"\*!9^#V"Z*!9~#fo#s#r+^"X*|. *X*%Ͷ' !!9s!"^*! "`*!'"b*!9~#fo#s#r+^"X*-Ͷ'!"^*!9~#fo#s#r+^"X**X*0Ͷ'!0"`*!9~#fo#s#r+^"X**X**Ͷ'"*Z*##"Z*++^#V"d*!9~#fo#s#r+^"X*o!"d*C!9~#fo#s#r+^"X**X*)#^!͎'o*d* 7'*X*"d*+*X*.Ͷ'!9~#fo#s#r+^"X**Ͷ'*Z*##"Z*++^#V"b*!9~#fo#s#r+^"X*!"b*!9~#fo#s#r+^"X**X*)#^!͎'*b*!!"!! !! ͯq`i*:+#":++)~*s#r`i#DM~q`i^! Ͷ'_`i^! Ͷ'n!`i#DM+sq9!~**:+!ͯCan't open file for redirection: $ͬ#*c)͊#!DM`i '`i#DM+!9~#!!͎'!͕A:$$$.SUBͬ#!"-!ͬ#!con:CON:lst:LST:prn:PRN:pun:PUN:rdr:RDR:ͬ#! 9^#V!! 9^#Vxͬ#! )"@+!"D+Þ*@+"@+*D+#"D+*D+ '*@+^#V! Ͷ'Í!"-!!})DM`iDM`i~#!9^#V`i^#Vr"! ^#V"B+! 9^#V!͎'#"F+*F+͎'=*B+^*@+s{=!"-!*F+͎'d*B+#^*@+#s{d!"-!! ^#V*@+s#r*B+##^*@+##s*B+###^*@+###s!*@+s#r*@+!9^#V!9^#V!9^#V*B+^#V͊#! 9!'! *@+s#r!*D+ͬ#!9^#V!'!9^#V! '%!"-!!9^#V))) )DM! ^#V! ^#V͊#!9s#r!! s! s! s`is! ! s#r!9^#Vͬ#!H+DMÒ`i'DM`i,R(ʬ`i%~ʶÊ!"-!! 9^#V!",Ͷ'!"-!*,Ͷ'>"",*,M"! 9^#V!͎ 7'*X*"b*!"f**X*lͶ'H!9~#fo#s#r+^"X*!"f*l*X*hͶ'l!9~#fo#s#r+^"X**X*!"h*Ó! "h*Ó!"h*Ó!"h**f*!9*h**Z*2 !9"j**f**Z*"Z* *Z*##"Z*++^#V"j*#"f*) *Z*##"Z*++^#V"X**X*!9"j*s (cdorsu{x!9*j*("f**f**b*'< *b*"f**^*|z N *\*#"\**d*+"d*#*f*'z *`*`i͊#Ͷ'w !G !"h*Ê *h*#"h**j*~ *h**b*' *j*#"j*+^`i͊#Ͷ'ʾ !à *h**\*"\**^*| *\*#"\**d*+"d*#*f*' ! `i͊#Ͷ' ! + *X*`i͊#Ͷ'$ !*\*#"\*=*\*!"d("f(! 9~2b(G+V+^+6"`(+N+V+^!d(w#Z y /w#~ Ë !g(>^)|ڟ g,— s+=’ Z! ~*`(+"`(w!d(‹ # *`( +6-0123456789abcdefͬ#!s(! 9^#V ͬ#!9N#F`i Ͷ'4 ! 9^#V! C Ͷ'4 !! 9^#VC ͬ#! 9N#F! ^#V`i^#VD(y !9^#V!͎'A !9^#V`i~#fo#s#r+s!͎'ͬ#!h(DM`i(R( `i DM æ ͬ#!9N#F!"l*`i~4 ! ^!͎' !A "'!!!!Ͷ'T! 9^#V!͎'D!!Ͷ'Q!"-f"!w! 9^#V!͎'Ͷ'w!"-f"!!!! s#r!# s!$ s*,!& s`i!9^#V!s#r! 9^#V!͎'#!% s!!9^#V!s#r! 9^#V!͎'%f"!ͬ#!9N#F!& ^M"!!f"!!% s!ͬ#!9^#V))) )DM! 9^#V! 9^#V! ^#V`i^))^#V͊#ͬ#!DM!9^#V",*,&^M"*,$~*,$^!(DM! 9~#foS(! 9^#VBK! 9^#V*,͋f"!! 9^#V`i(y'",|4*,! 9^#V`i*,͛",|4f"*,*,(i'PY*,i'PYDM`i! 9~#foR(! 9^#V`i(! 9^#V`i*,͋f"`if"! 9^#Vͬ#!9N#Fʤ!! 9^#V! 9^#V!$ ^!8#!$ ^! 9~#fo͎'!$ s{`i!~#fo#s#r!ͬ#:,l!}2,!}2,}2,!,! !! !!:,o&Ͷ'O!}2,!:)o:,o#}2,&,#s!"-:,o&DM! 9~#fo'ʌ! 9^#VBK! 9^#V*-,8#`i*-"-`i:,o(}2,`iͬ#! 9N#F!"-*-#"-*-! 9~#fo'!9^#V!`i#DMl*! ^*l*͞'"l*! ^!͎'4 ! ^#VS !! s*l*ͬ#!9N#F! "c)! ^!͎'h !! ^!͎' ! ^#V`i^#V("n**n*! ^#V! ^*n*' !`in&͞'s!`is#r! s#r!! 9^#V!Ͷ' !`in&͎'s!`is#r! s#r!`i~## ! ^#V!Ͷ'\ !! 9! ^'° ! 9^#V! ^#V`is#r! ^#V! ^#V! s#r!`in&͞'s! 9^#V`i~#fo#s#r+s!͎'ͬ#!h(DM`i~ `i DM(D( ! !`is#r! s#r! s#r`iͬ#!9N#F! ^́7!! s#r`i! s#r!ͮ"p*|!! s#r!`in͞'s*p*! s#r!X*^s# yy*"-*("-ͦ(Õͬ#!!*!8#!:o&͎'*s!"~*!*DM!":+*:+'t`i^! Ͷ'`i^! Ͷ'`i#DM`i~t`i^!>Ͷ'4!">+H`i^!<Ͷ'%!">+`i#DM^! Ͷ'g`i^! Ͷ'jH`i"<+`i#DM~ʧ`i^! Ͷ'•`i^! Ͷ'ʤ!`i#DM+sço*>+*>+|!*<+W">+!*<+x">+*>+Ͷ'"!!ͪ"*<+!"+s!Ͷ'*-ͬ#!9^#V))) )DM! 9^#V! 9^#V! ^#V! ^))^#V͊#ͬ#!DM!9^#V"-*-&^M"*-$~*-$^!(DM! 9~#foS(ʺ! 9^#VBK! 9^#V*-͏f"!! 9^#V`i(y'"-|8*-! 9^#V`i*-ͣ"-|8f"*-*-(i'PYDM|5!`i*-i'PYDM`i! 9~#foR(ʃ! 9^#V`i(! 9^#V`i*-͏ʃf"`if"! 9^#Vͬ#!9N#F'ʯ!! 9^#V!$ ^!!9^#V8#!"!"-|!!$ ^! 9~#fo͎'!$ s{`i!~#fo#s#r!ͬ#! 9N#F! 9^#V"-*-+"-#|s`i^! Ͷ']! !!`i#DM+^!!5! 9^#Vͬ#! 9N#F! 9^#V"-*-+"-#|ʻ`i#DM+^! 9^#V!Ô! 9^#Vͬ#!9^#V))))~!"-$!9^#V))))^#VBK!9^#VÝ!& ^M"!`in͞'s!!!`in͎'s%f"! 9!! ^#V'#5%3$!$ ^$'A$$L$$$!$ð!"-$(O !!# s! 9$#&!!! s#r!$ s!"-$! 9$3'͎'!$ z*$!r*~#~#~#~r*w#w#w#w!u**t**r*"z*"|**z**r*"z*"r**|**t*"|*"t*!r*>w#o$!r*~&#~$õ&=ɯ<u*!}*~Oò$u*!}*ڋ$$+°$r*!z*#$r*!z*#$r*!z*#$r*!z*#%r*!z*#%!r*~/w#,%:z*?*r**t*))J%,=B%"t*"r*]%:u*:z*?z%W!u*~w+n%g%!Nyl$r*|%z*|%y%i$r*|%yz*|%%v*!r*w#¾%i$%%v*!r*w#%!v*w#%> !r*~w#%Ov*!z*#&y+&!r*4=%=\&!r*~w#7&Ov*!z*#J&y+&!&v*!z*#e&!r*v*~6#x&> !r*~w#‹&Ҩ&r*!z*#Ÿ&=„&͓$&!͓$ʵ&!<͓$&õ&͓$&&õ&͓$&&͓$&ʵ&&ͧ$&õ&ͧ$&&õ&ͧ$&&ͧ$&ʵ&&"r*!"t*"r*|'!"t**r*DM!>))G' =?'}{_v'|'|7g}o\'{_v')q'}{_v'|g}o'|g}o|/g}/o|g}o|g}o|''}'|'!}'|'!}|'}|?>o&zo&|(}|>o&s! 9$#Y%3'!! s#r! 9$ͬ#!9N#F!#!`i!~#U!!$ s!`i!~#fo+s#rr!!"-*-S(ʥ*-+"-^!'ʢ*-#"-åx*-!$ s!Ͷ'`i!~#fo#s#r!!$ s!ͬ#!"-ͬ#!9N#F!!!*-PY'!! ^#V*-'}!!!"-Ͷ'?*-Ͷ'a!"-!!!#!"-!*-|m!`i"-!! ^#V"-!ͬ#!9^#V))) )^#!è#"*T*!"T**R**R*!4#4*V*+"V*}©o&"-*V*ͬ#!9!29^#V!DMM"!9!!DMf"`iͶ'=!"-!!ͬ#!9N#F! ^#V+))"-S ! 9^#Vͮ"-|ʪ*-PY'ʪ! 9^#V*-S(ʖ*-Þ! 9^#V*-8#*-ͬ#!9^#V###y'#"-*-"-|!-"-"-"-*-##^#VBK`i"-! ^#VBK! ^#V`i'{! ^#V`i^#V))PYͶ'{! ^#V*-Ͷ'J! ^#V##^#V"-! ^#V^#V`i~#fos#r! ^#V##^#V! s#r`i^#V*-D( `i^#V*-Ͷ'ʫ! ^#V*-##s#r*-))PY"-*-*-##s#r! ^#V*-##s#r`i^#V*-(*-s#r*-`is#r*-"-!! s#|o&}/o|/g#}}o|gBK^#Vz=(#y7(###%(#x2(#~#fo}|>?o&}|>o&-???????????        |%e)*e)/k)4k)9k)>k)Ck)Hk)Mq)Rq)w) e \|| 00000 @@@@@@@@@@@@@@@ @@@@@@@ @@@@@ @@@@ 222<{ 3FP,DDF=u$)P,DDOP+DDrP+DDP!DDVv4V.Pm^;tPv4V/VPv4V+^;tv4VP{+P !DDvVtDD u3Vv^;t PD+DDP8+DDF=t3r`i`i*-Ͷ'O !"DMͶ'+ !!`is#r!! s#r`iS *-DMͬ#!9^#V!"-*-##~#v !*-DMÇ ! ^#VBK`i*-S(¦ ! ^#V*-S( ! ^#V`iD( *-PYS( ! ^#V*-R( ~ ! ^#V*-##s#r*-! s#r`i"-!# !#*R*DM*T*og!9N#F#^#Vkb6#> 6 #=.!>6#=7!y! O! S!D! !l!0_zWV!/v!y! : >¤! A![ҕ!@á!a!{!`w# .ʿ!!ʧ!!w#è!{o|g !!w#!&jz!|*! >?a{ 0:"7!9^#V*(("*-}|("*("(|!=!9}_|#W"-# o&# 2):R* _# :)_!9Æ"!9F+N+V+^+~+ngxʤ"¤"ʤ"# Ï"og!9V+^+~+ngw"#÷"|!9"!9F+N+V+^+~+ng対"#"x"w"# "w|!9~#fo###}!9^#V#N#F#nx6#s# +#! 9F+N+V+^+~+ngt#X#}t#ʈ# h#++w xh#ɯ~#~# x~#DM!99`i͊#|DM!99!#`i~# x¿#!9#R*~##!##|!Fvt4SPvt4@PvVP*Pvt46]$b6DD]3RPvvXZ^_;u;t 3]1RPRPRPvvXZ^_+RPbXZ^_׋]Ë]3Fv.DDPF^;|)FPvv^;tF]Ív]Ë]bvP*PDD]J Fv, u93VPvV6)^;t3]þVF^;tF=| P~DDPv6)FF=t F=t3Vv^;t 3]F=u P"DD3Vv^;| PDDVv^;#vtVP(!P(DDPDDVv^;t0PP6G"vvttvtXZT]Ë]ËGtw VU v2F%1FF0CP3PPP!FV^ t؃]^Ëܸ1GVUF tFuv~vv~~D+EtyEȻYKKyً3x CC$CCE y3CC1W^~FuF]^^XZ^X33SS^XZ^X3SS y ؃πRP0CPSVWW^3؎W_E %F3Vv^;|vƸ0rv1kFF0PvX vXv}~v, uF uvƸ.v, uIvFF0PvXvv~~v3VF+F ^ t3]Ë]dv u%Pv^;tlF-Pv4^;ƸtHF u vvF0PF^;u F*Pv^;tv 4XFvF3FvPDD u-0PvƊX+V PvX^^ƉF.Pv^;ƸtHF uv*Pv^;tv 4XFvF3FvPDD u-0PvƊX+V PvX^^ƉF3FlPvPb DD^;ƸtHF u vvPmF uFF FvZ~bFF 3PvVF޸gPv^;tF=|F=PF^PvVPvދYvP\PvP\^ƉF܍v܋ƸEF=|v܋Ƹ-F؉Fv܋Ƹ+v޸WPvq\PDDF썆\E%] VW_^D %  DEËE E E E uE7E tm ]]]]E ueUUU )]WUFtF uv~JyvDv~;3SSSSSS_Nj, . t. .CCsCCt֋F-0@FFދF3FF܋!~]_" " " " WUF uv~FuFFF F} vi[Y3PPPPQS vT5Qv~;rwNNOOv~FFGGvFFYċF-?)FF1F~Cv~]_ ܊o w y2y:}ĹW9Wu KK$t w$t$t2 ܉G_ttt4^XZ[YU]MQSRP_D3۹%uPPP8PRS3PD%-?=#=|)D-8yT\D 3E_Xˎ& A.2 UWFVv~ u y ؃ y ރS 3SN;w r;w+@N^Yt tu t؃FV _] v UF fF FfF FfFV ] v ûWg؎FF uFF Fv9~AFF 3PvVF޸PvދF^^PvVPvދYvFށP\PvP\^ƉF܍\P:DDF썆\FFF9FF*F FFF FFދF u-F Fvt4vXZTPZFF MF=|"v 4XRPvXZTPZ v 4X3RPvXZTPZvލ\Pvt4 F u2\F3RPvt4XZ^_;u;r v܁vDDFF uPvXVF^;rbPF^PPvX^PPvX^PF^Ɓ^+Pv0PPF^+FPvPF^ƉFPF^PPvX^PPvX^PF^^+ƁPPvX^PPvX^PF^^+P;PF+F^PvX.\FvDDFv 4XFvDDFF uF;FrFF3Ftv FܸF3FZFFܸF3FFCcsdDxXuUoObBfegivnc[PH=5*"wTRF uF;FwF u-Pv܊^;t 0PF^;t,Pv4vvЃv,v,Ћ&>O3  UF t5x t/PV±$'@'Nuӱ 9nvnX&^3^.U+;&v^.PF^;r PvX^P^ƉƋ4F uF]øMP PPD]3FFQ\vV~^X uv?k~D3FY%vX u3]ËF=|3]ËF ucF=Fa~v, uiFvv Pv2X u Fv, ukPvYFP6X@v:X u5FP6 XF(PvY Fv, ukPvYFP6 Xv[X u5FP6XFPvYPvfX u"qUFMbSvF؉FF uv!M~&vvF]Ë]F FyvX u"v~vƸ-F=|tvƸ0vƸ.vvYF=|vvY+3vVv,^;wPvVvvЃF;FwvvY+3FvvvvЃF uF u(v, uPvVvvЃvPv4vvЃV]4F̍v4^Fv4,X ux Pv̊^;t Pv̊^;t PvX6APv̊^;sZPv̊^;v Pv̊Yv́4XwPvX\F҉FЉFθF̸FPv4^^ƉFv4,X uv̊ u<Pv̊^;t F́F<>Pv̊^;t F́FFPv4^VF^ƉXF=}aP P Pv̊ uv́4Xv,4Xv́4X+qF̸>PvЊ^;tvЁ4XsF̸PuPv ^;uPvv ^;uPwPv ^;uyP PP%PFԉXFPvP ]LFFF=|,vV^ƉƋ4 u v4XF=tPPTFF uPv4X5^#PvtXPv ^;:PFƊ^;tFFF=|F uPvv F]Ë]YPF^P u]vLFPvtX5^# u v4Vvt u vtVvPPvX^P^ƉX]Ë]FF=|0vV^ƉƋ4 u v,v4Xv!]hPF^+PrFPvtX^# uO PvtX^# u vPv4VPd^;@PvtY @PvtX^# uPPX]Ë]FFFv uv4^PdFF uFPvY F uFF uFPvY awrb _FPRPFFPvFF=u F=t3PFFPvsFV&F=tF=uPRPvF=u F]ø]Ë]RPvY+v4VF^;uP PP6Fv4 uvVv4^;r v4Fv4VvXFPvXPvtX^PF^ƁPF^;t+PvtX^PvtYv4VvX5FF=|@vVPvX^P^ƉƉ^ƉƊPvVF^ƉƊP^;t v4XF=t*PF^#PPvX^P^ƉƊD^;tPvtY PvX^P^ƉƊDPvXPPvtX^#^;t3Pv4^;tPvtX PvtX PvtX v4XPvtX5^# uvvPvX uF uv4VPVPv4VFP?^;PYPvtXvtPvtX ufPvtvtVFPvV^ƉXPvtX5^# u F uv4V#PPv4t#t!XZYSRPvtXZTPZPvtX^# uvttXZ uv4t!,\t4XZvtVP!v4V!PFPYPF^;|1PvVvt^ƉƊ^;t v4XPYPF^+ƙRPvtTY[ӉTF]ËF u#v4 u v4Vv]Ë]PvtX^# uPvtX^# uPv4^;tqvtvtV P PPvt PvtFFv4FPvtX^PF^ƁPF^;t(PvtX^PvtYv4VvX]FP0^;ƸvH uH uP9PF^;ƸvH uHPX]Ë]vFPvtX^# u 3ҋ]øPvtY#F Pmvt XRPvvvtt XZ^_^_׉VFPvvXZVF?vvvttXZ^_׉VF3ҋ]vt X u$vtt vvXZ^_;u;r9vt XRPvtt XZ^_RPvvXZ^_;u;sp PvtX^# u vTPYP^5RPvvXZ^_##RPvt XZTPZPvt Xv.vtt vvXZ^_+RPvt XZvt vt X^;vt vt XvvXZ]Ë]*FP!PF^ƉFXF =|RPvvXZ^_;u;r FvvXZ؃VFRPv XRPvvXZ؃RP^YƉƊPv,4^XF ؙRPFu5XZU ujvvXZVF3RPv X3RPvv~^YƉƊPv,4^Xv X3RPFu5BXZU uF u-Pv,^Pvt Xvt XPvtX hv4VDDPvtXPvtX^# u Pvt^;tvt vt  vt ]øRPvtt XZY[-RFZ3FFF=|vttPvX^RPvtt XZ^_^_;u;rPvX^Pvt^PPFF3RPv4t!XZTPZv4V!PFF=t F=t-3PPPvX^Pvt^Ps3F F u vF u@PvtY PvX^Pvt Xvtt vttXZ^_+RPvt X^_;u;w&vtt vttXZ^_+RPvt XZ]) PvtX^# ugvtvt X^;|Pvt vt^ƉXvt XRPvtt XZ^_RPvttXZ^_;u;r.vt XRPvtt XZ^_RPvtXZTPZFvt PYPvX^^;|PYPvX^Pvt^PPvXRPPvtt XZYr^_RPv4t!XZTPZv4V"PA u@PvtY v4XIPvtY#]UNV]vvX^Fv 4^XP!PF^+F^ t3FFPvvF]Ë]=P%PF u:PFƊ^;tIvPFF=A}F=P~F@PvXgPvY P PvtV6vVPvtVF uvVPvt V( uF]v ]Ë]Mv4Fv udv4^PFF=.t:F=!|]ËF uv,4XFPv4^XFPvX]Ë]PPF^^#ƉF6Fv4F uvVvtX^;sPF^PvtX^;sMPvX^PF^ƁFv4VvXPvtX+F^+PvtXFPvX vtXFv4VvX FFSF uPF^P F u%FPvtXFPvXPvYF]Ë]U؎v~N;rNO]lݸPvv]Ë]QݍvVvP0P]Ë]6vHDDFPvtX^# uP PbPCDD3FvVvX^;r3VvDDF^;|vƋFvPvtX^# uF=tvt ,v,errorInvalid header versionI don't know how to handle file %s I think you need a newer version of arcdir BAD FILE$%03dcon: TOO MANY ARGS$warw REDIRECTION ERROR$cFREE$READ$WRITE$' NO CORE$ $$@Y@@חA7yACnF?O8M.0HwZ3sOu?zGz?,C6?80yE>ؗҜ<2#I9>D2[%Lod( ??$@$@$@CONCONRDRPUNPRN0123456789ABCDEFPvtY FPvt 4This is a program that I wrote to pull directories of ARC files (in the format (C) by System Associates). This program runs under CP/M and CP/M-86, not MS-DOS, so don't get confused. [Why Microsoft decided to use the .COM extention is beyond me]. ARCDIR.COM - CP/M-80 version in Astec "C" ARCDIR.CMD - CP/M-86 version in C-86 This program is (C) 1985 by Paul Traina. All commercial rights are reserved. The author has released the object code only for non profit distribution. The code manF= tR3VvDDF^;|JF= tv 0vtFPvtY F= t@PvtX^# uPFPX]Ë]۸PvtX^# uPvtY#vD]Ëvt vt X^;} PvtX^# uvWDDPvtX^# uOvtvt X^;t*vtXRPvt TY[ӉTvt 3vt X uvt 3v DDvt vt X^;}]Ëvt PvtX]Ë]vV4XF^;s]Í44X^+ƉFvƋYF]Ë]U؎~NF]Xvv4VvPvX^PvYPv4X]ڍvVvvV!/Pރ]Ë]FFv4^ uv,4Xv4^Pv4^X uF]Ë]v4XFv4^ uPF+F^ t3]Ë]\يFPA^;~ ZPF^;~ PvYF]Ë]يFPa^;~ zPF^;~PvYF]Ë]v؃FPvtX^# uP PP]؃PvtX^# uwFvVvX^;r^y not be included in any packages that are sold without prior written consent of the author. This program is being distributed under the "Shareware" concept so widely supported by IBM-PC users. If you like this program, and you happen to have an excess of money handy, share it with a struggling college student. If you like this program, but don't have an excess of money, don't feel bad, because I know what it's like to be poor too. Anyway, donations to the author happen to raise his morale, and when he's happy, he writes winning programs. So, make his day and send a few bucks. Of course, you might not like the program, if so, then don't send a few bucks... but if you have any ideas on making the program win totally, then send a note instead. Any bug reports would be appreciated. By the way, source code is available to "Shareware" supporters. Paul Traina 325 Ellwood Beach Dr. #16 Goleta, CA 93117  Pv^;tPvtX^# u Pv4Vv4^Pv4Vv4XFvVvX^;rX Pv^;tPvtX^# u v Ptvv4^P]v4Xvt vt X^;vt vt X@PvtX^# uPFPX]Ë]\׋vtvt X^;}Ovtvt Xv vtXRPvt TY[ӉTPvt XPvt Xvt X uPvtX5^# u3Pvt Xvvt X u Pvt X PvtY FPvt 4vt^ƉX]Archive Directory version 1.0 11/18/85 Usage: arcdir [drive:]arcname[.arc] Copyright (C) 1985 by Paul Traina All rights reserved.ARCCannot find archive %s | %-12s %3dk /%4dkABORT: %s Not an archiveFile length MZA{l F )0DLShoz!&.6>CKPhpx#+38@MRYainv "/4;CKPXbjov~"*/7AINV^cjrz&.3>CKSX`fmu}'1>FQ[`emr|+16>FLX^cksybl|@@@@U<g3ۚgӎ0) gBVgq g@ˋڑg3ۚgggat gF g|gt1 gF|gvJ˻: g^ًF|gsK #u[gûF" gK gJVgÿJ gt7g gg!g ggggJq ggc   gF ggg!g ggg!g2g ggg!gF g˻0 g gٚ ggg!gF gӻ gg gښ ggg!gF g˻0 g gٚ g gg!gF gӻ gg gښ g gg!gF g˻0 g gٚ g gg!gF gӻ0 gg gښ g gg!gF g˻0 g gٚ g gg!gF gӻF gg gښ ggg!gF g˻0 g gٚ ggg!gF gӻ\ gg gښ ggg!gF#+38@HS]bgot~  # . 9 D O Z e p {    & 2 8 = E M S _ e j r z     $ ) 1 6 @ H R _ g r |    ' / 7 @ L R W _ g m y      ' / 7 < D L T Y a i t ~  +9DOZep{"*0<BGOW]iot|  g˻0 g gٚ ggg!gF gӻr gg g gg gښ ggg!gF g˻0 g gٚ ggg!gF gӻ g g g g gښ ggg!gF g˻0 g gٚ ggg!g2g ggg!g gÚg3ۚgg g"gFCg!g gNCgRCggg!gN g g'g!gR g pg3 gV֚q gg!g g g gVVg gvZ Yg pg3gV֚q gg!g g gZgVVgZgr gs V gv ^ g" b gr f g j g n gn r g v g z g^g` Bgl BgӻbʚgBggfgl BgBgӻjʚgBggngl BgBgӻrʚgBggvgl BgBgӻzʚgBggg3ۚg g g"gFCg!g gNCg$,4<AIQY^fny  0>IT_ju &+3;AMSX`hnz&+3;CHPXcmrw $,5AGLT\bnty%+0<DJUZ_gou#)5;@HPVbhmzg g g[g*xggggggggggggJgg%FQgVggX#g_#g*g@g@gRCggg!gN g g'g!gR g pg3 gV֚q gg!g g g gVVg gv~ Yg pg3gV֚q gg!g g g~gVVg~gr gs V gvr ^ g b g f gP j g n g r g$v gZz g g g g^g`Bgl BgӻbʚgBggfgl BgBgӻjʚgBggngl BgBgӻrʚgBggvgl BgBgӻzʚgBgggl BgBgӻʚgBgggl Bggg3ۚg g g"gFCg!g gNCgRCggg!gN g g'g!gR g pg3 gV֚q gg!g g g gVVg gv Yg pg3gV֚q gg!g g ggVVggr gs V gvl^ gb gf gLj g~ gs V gvbgpBgl BgӻfʚgBggbgl BgBgӻfʚgBggjgl BgBgӻnʚgBggbgl BgBgӻrʚgBggjgl BgBgӻnʚgBggbgpBgl BgӻrʚgBggvӋʚgl BgBgӋًšgBggzgl BgBgӻʚgBgggl BgBgӻzʚgBgggl BgBgӻʚgBggbgl BgBgӻfʚgBggjgl BgBgӻnʚgBggbgl BgBgӻrʚgBggg&S&r QR3ɋp'ZY'VW򥥇ڃ?t U'_^[ˉ&QRVWp%x&S [_^ZYˋދ ts&IQVWw;v;_^u;&&YPSQRVW.PSQRVW &PSQRVWlCC tVsQ>3tsE tA:6w;C s1rs s Rwxr u%Z uuSyntax erroRETURN without GOSUOut of DATIllegal function caln gr g,v glz g^gBgl BgӻbʚgBggfgl BgBgӻjʚgBggngl BgBgӻrʚgBggvgl BgBgӻzʚgBggg3ۚg/g g#gFCg!g gNCgRCggg!gN g g%g!gR g pg3 gV֚q gg!g g g gVVg gv Yg pg3gV֚q gg!g g ggVVggr gs V gv^ g.b ghf gj gn gtr gv gz gr g gf g g g^gDBgl BgӻbʚgBggfgl BgBgӻjʚgBggngl BgBgӻrʚgBggvgl BgBgӻzʚgBgggl BgBgӻʚgBgggl BgBgӻʚgBgggl Bgg}g3ۚg4g OverfloOut of memor Subscript out of rang Division by zer Type mismatcOut of string spacString formula too compleNo RESUMRESUME without erroDevice TimeouDevice FaulOut of Pape2FIELD overflo3Internal erro4Bad file numbe5File not foun6Bad file mod7File already ope9Device I/O Erro:File already exist=Disk ful>Input past en?Bad record numbe@Bad file namCToo many fileDDevice UnavailablECommunication buffer overfloFDisk Write ProtecGDisk not ReadHDisk Media ErroUnprintable erro.X[&SP-3Kg &ˉCtK6SD3ۋӉ&SR&} Z[ urg uCKK$+؋+ڀK;rAǓ>OOXY&QPO G ǣ3󪣾 #c)-+3H ^.V6X[SPX[SPt 2345679:=>?@CEFGHD& 2345679:=>?@CEFGHD.MM!&g"gFCg!g gNCgRCggg!gN g g'g!gR g pg3 gV֚q gg!g g g gVVg gv Yg pg3gV֚q gg!g g ggVVggr gs V gvR^ gb gf gBj g~n gr g v ghz g g g^gdBgl BgӻbʚgBggfgl BgBgӻjʚgBggngl BgBgӻrʚgBggvgl BgBgӻzʚgBgggl BgBgӻʚgBgg횽g3ۚgog g#g^Cg!g gbCgfCgjCgnCgrCgvCgzCgCgCgFCgRCg gg!gF gg-g!gR g pg3 gV֚q gg!g g g gVVg gv Yg pg3gV֚q gg!g g ggVVggr>u=>t62X[>u-$)%S6x n11STO >uS1$#  t1 in line]XZUY+(1p1 at address]_ZU :!11&1!10Mô&=t t ĮsG1"3ۭ t;s ;rFF t0Internal Error - No Line Numbe0 E4E]5πL|t tc tY:s*܀wGّ͵S| t3ۀrt<~) t֊ߊwt!uދ׋?t ?t psMuE(+׋s u vT tN uvEފ x t5qwrt st$ ǣƣyþ4 tM t݋=2쁀pȀĀPӓX x ut~ˀɀSS X؃tXþ3MD tC t2쀀*pĀPɀT$2΀]-2ɀπV ‹t[\;s3sNsþ+ЋswS[i<"t,N3ɬ:t A,tNـ,uNO :tA'et eugd&duZXϰ ZXVSQgtBBecY[^VSQc>cu@6g;t* gO{Pa$a3ء "2@@XeY[^UWV3Ҏڎ>,t$>-t&^_]ǃ u|<uxx&vúuuP>sXÆʴQR QR |"ZYͱΊʰ>àst#u &rtRr2ڣNZPr<t<s2 XPP QSPXX[x>t YXtRPSQRVWƿ&6|&6~&|z&~ư>s ƿ&~&|_^ZY[X:s( C:tÊ :s _^ZY[X>2u>4u UVW_^]t>2t2Ã>4u=UVW_^] u ;rEr VP8,;4 Xtt66V6664^RSQPuXP<tK<tN<t< t< t< tW[:6w"r>r XY[ZÚ[gw tʊ6ۚgRZ RPRUVW_^]((t u t ZXP< u|/u<t Xz -\l%rˋt3ۋӋ<&tNw :v3QˋݸuV"^Yu<%t,<#t(t*<}r y8 y/#"^:t&<tK g3Ú g<-t<+uFNû wx3p‹ t3KPWUSRXXXXXЃr t),0r < wu Nì< t< t< t uGKD&PQ3 t1rڊݑ*͊r;t$π> tp+ y"xYXˁu t> tt x&PQD &PQu x ݀> tsi uD Lt L7[˃?toVw4޷ ugR u 4ȆQgOt;OtYX>bt>eu?3& &"@@>cu Ca a[BBecËg>buu>et1cu$Q މgG ΉO?Y wF;7uwwOËw F;7uww GÉOO GÉ&PSQR?'>(tO>PSQRsrkZY[Xˠrd<ts<r@PSQRVWPSQRVW&PSQRVWtF>rt6 Cc urSQWVٴ ^_Y[C:rK8 sC:s83ۊ C()C$ €t̀ ط.. c utÀt:33t8 ŰF) SQw< u Y[uÊ 000u PXFR t$K s8[P|gZgPSQRVW>s3 u |_^ZY[Xó?u >up81>(t PSCߋwr[SQ%[*ˊ [X<:r0u< uQWV ´^_YPSQRVWbPSQRVWT&^Pft/zu X&RSطX& u;RSڏZXoSRP"tuJ3۸XZ[6 ~PQRVW񭒋4 t?Jy;8$}K+ʓ+~'$u QVW_^Yu+_^YZX 3Qʋӻ gYˉ&Q3 &Q+Yˉ&J|ttRP+~;}XZB&R t>|AQPˊŠAXYZˉ&Rۉ&ڃ?tSPS_[eXZ &SRڏC |tR;~ }3]ZûLicensed Material - Program Property of IBMUVW_^]ˉ0 g(2,-b#xôiPXrq(<r P<u x&n3Ҏڣ&&&& lnpr$&lnpar "gGOgÁ}`˳..rS3ء;)gqrur:t r[3؈g>ru x/! !3ء lnpr$&&&&&PR3ҎڎgPSQRVW' Ts& u;s-s(Pu ss(t t:6 u0,u>rtKPt(u uȋ LM&rrs:tģ&tgt u2uˉ&PQRVW uF t@8r:s5>3ts)ʊ>sQYt2_^ZYXSP u2:t)&rPt(ut&rsgX[ڋ+=r^_+бҋWV-P@X5 _^&VW_^[VW67˾˾˿˿ˉ6>)6>ˉ6>6>ˏ ^&V&  &UVWPQRS [ZYX_^]VP X^˚gPQS+W3> OOv> _[YX S>ug6 E<t;NX:<,t u/FF6 _<tuË׋g!~66PDP t$3XPDPD tXPDP3ۀ|tK3ۀ|t K3ۀ>tK &&6^P&>t&XV6s{؇QsYˇQcYˇQ>ttQ{Y#.:t Fu2. ^YPVCbu6"3t=t5H;r6"+tH+^XÓ7FL6";v[빰b<rS66"=ttuNN@G7FPSVW6H=t#u󫓋;wu)@;t $+rF5>"_^[X during G.C Internal Error - String Space Corrup t$>$t$VS6$$w\Ӌ^ú݁bsG&QWH_YQVWA_^YS&tbr[s]PÇ$GXPRC"+rCCCZX>"@$+-E&>$*EbKYBDSCRNCAS1COM1COM2LPT1LPT2LPT3:9p9v:k:k:88899v:k:k:88899}:r:r:88899~:s:s:8881wt uTؘ.b(t.(M܉&V! u^P&QXPP&V^t P&uPP &VtR<uM^XPPPՉ&PS?t-_߰ItOtRtAu [XtQS˳[YQ?Y>tkYu#u3ɉYˇeQPSW,v&++r$ 2O_[XVQNNY\uFF^W_W_;&rD^&VPx0_^X u[XXxX^_ t&VW[_^&VW&;&r2 u(^жK:v t R&&&Rg&P9APBPCPDPEPFPGP1% M- X(#sPAsK tGÀ r=s63ɀAs/ ts&s!s tAt,PQt u@YX3 uËsUu%'>uP@  >rOw>u>uRrа"e" < uFY,>tĴ*̊-v2 PXt u &PVPVXu) ^XQRSڋw[ZYCt K t w*ۻr(SW._[OOuû(V6 u^V^V6 u^V6 u^V6 u^V6 u^Vt^WSPWSPD. x2ؘ.b( tXP.dX[d_SV6 t \2(g^[ðrf x2PRWg u<.tJu_ZXâ t߃rtа J JuRWV<:t ^_Z2_W+tIt97(VRG=.u.8uJuG. y^^^_ZG.tZ^.}um ,@r<suÄ&tك3bً>|6\D.T/'پMþMD t:w t*܀8wّ͵PW2̀ tc| tыˋ3wtHr#|+ t֊͊ߊ2wt#Gu?t ^?t Xp$4L\ts uu*4L\ts3 uv|Ntyً3uvdNJ݊Ί xtJqwrtst$߀ ǣ߿ƪyFþ(P*Xr:v ~ t^3ì t[։&Vt <t 6^SQRVWU3PP_SPX[ u ]_^ZY[XStȋ.tq:t5"Q.s" QS!tsI4 [Y.gt0S>t< t<;tr'_.u8X66u6t u gu giG%;%,%%%o$ }%%$$w$w$w$w$ w$ w$ w$$KM tsvRSOuG w HPu01#P& e1d uuk#.:tN v..d:1r Q tMIS6u1*˵It32?C 7Zd[1w tʊ6Ή tK SR  Z[& < u'vҀŠ´1=sư RZuÀ>tB:1s<sS6u1*Q112KYAP2X[2sCl:1r 1u:1rË "[o1Ëu u1RSS[Z&1* SR t PXZ6[^1Ƈ2QVBD tM t2쁀p̀ĀP"tX x utlDM2 tb t쀀*pĀP2ɭ̀FG"WWW ‹tY[_j|֋63;s\ u;w;R3 tP t tZ]蕒sOsO+‹ɊD E 3ۋ  ʋU tU3D t tX PD t U t3ɋ tU tыD t t X P t&ʋ t&3ۋD tU tӋD tU t ʃU3E t&ڋD t&ڋD tU t ՋD&E t&꠶&ŗZ^ ÿ tyز-J 0À>rʻt  tض+ڰ t-8dP>uo>\DɀtPZހԊYQ́twr t'RZZϿ+ϰ0AOÿŊ㗊܊ǕƊYQ́t wrt ׿ +Tl\sTl\̓0-Gf3Ғ';r03999!QRS3Ɉ3Ҵ[ZYÀ>t EQRS3ɊŇ2< tI<u t:< u ؀tu < ru؀>t :&uta7U؊&mPD؊2> tCX3.b(3.b(ʾ::::;<;;`;; ;$;<u|)t/QRTU!ZYÀ<t(|)t3ۀ<t8\*u黀*\*x3uKʀ<\'uQRSTL33[ZY3ۊ\2ÈT/D*Êd2Êd/SH[À<t|*tS3ۊ\)*\*L*@3[ À|)tWur<uD)D*Ë;tCbS[<t|)uP9XS3ۊ\)@3[D)< uD2< T2RQ>u uQYV|f ^>u`T>uS!!u#!u>u߀>tD<t <t <u\YZÃ|u |u|"V^u)&#3r<tB3|'3D2뤃l"sL$FQRSuB t|扔JDŽSt uĊ23ۉ ZL3ˉ"+;rʨt3sFVQ6 >"sY^, +3 u[ZYVQ6"> sY^ $PQRSC;ut K\'d dr 00 00ÿ>Ë;s"++0<5r O<:rA1O0A*Կ ut t8\u<uF3PQRWSt t9\rDEL˃(wL3s[_ZYXWWSߋ} t;u|[>6|_yҡ=Ps r á=>r r-À ÊrÊrÌƸ&"ŠrÌƸ&2"&0QꟋڱӱs ZtÀɰ<st $آñUà t- x$u;˟rK x rÞ33ɟл3tCÌƸ tk&/Њ"" Jt?s&/&u㫠>>뜋&/&ßؠ2r>s 2ۋ&2"&0G & G"&G"&0Gـt2&GJx1u"܋&GMx2 ÈF"Ċ$Ѵt"Ċ2 tQ tMFH_t=Mut*ʸԊ"  t6Àt2 Ê&D)D*\"D$t4[ZYXD'QW@3|3_YD!K uD)D* D)'".&/&,&*.2&GטPW&U ,<u$]_>rw7vww>t6.t8<,t&,?Redo from star@Ag/>&|.ty2 uW_Overflo VWQ6*NN +&6*t Y_^/u&(&,.&4Ӛgڋ46346+sË+sÃurSRZ[^V:85@$AA8:u ? :u>2`$THANKS FOR USING BACH'S MUSIC BOX...  >632Ê. y.Ê2"t 2" 2ÊsG&=O&=Ês2&=G&=u%DZ$NjA<r,t*sø>.62&=Erqr&=>.ˋRr Mtss3U#>.U33s EVs<>.Z&=ˋ 2s2 2s2;r>WA&2"&0;r+PSV6 t3D.u-<u>t+ tK  ^[XP6X6PX$'@'.P$XtXV^ʋw_ &6666PQRVWU9]_^ZYXˠ<t+/>v:|3:+ ~ K0t .0󤾺+It.E+ yڴ->uH 0009888'9,9>?P39u.b(UVW_^]È?QRS3ɋ[ZYÈT/PX< t< rd/t:wƅÊÊd/&Ãw tK㊟ > tCsˈ? 3Q:999I:L:Q: BACH'S MUSIC BOX [1] INVENTION #1  [2] INVENTION #84 [3] INVENTION #10J [4] INVENTION #13` [5] SOLFEGGIETTO v [6] GAVOTTE [7] STOP PICK A NUMBER TO HEAR A PIECE (c)1985 Compu-Solutions0hA l16o3 cdefdecl8go4cl32o3bal16bo4c8do3gabo4co3abgo4d8g8l32fel16fg8L& eagfegfagfedcedfedco3bao4co3bo4dco3bagf+agbl8adl32o4co3bo4c8l16do3bagf+egf+a3v gbao4co3bo4dcedl32o3bo4cl16dgl33o3bo4co3mlbl16mnbagX go1gabo2co1abgo2do3gabo4co3abgf+o2def+gef+dao3abo4cdo3bo4co3abgfedfegfo4dco3bao4co3bo4dcc o3agfegfago4edco3bo4dc+edo3b-agfagb-agfedfegfedco2bo3dcedco2bag+bao3co2bo3ef+g+af+g+eo4edcedco3bo4d=r cag+baefdo3g+o4fedl33cdmlcmncl16o3baao4agfegfago3edco2bo3dc+eR do4efgafgefo2abo3cdo2bo3co2abo4gfedfegfo3dco2bao3co2bo3dco4defgefdeo2gab-o3co2ab-gV ao3cdefdecdefgafgefgabo4co3abgo4c8o3g8l33efmlemnel16dcco2b-agfagb-abo3co2edo3co2fbo3c1d MFT100xp x/v o3l8fafo4co3fo4fl16edcdco3b-ab-agl8fao4co3ao4fcD l16o4ao5co4b-o5co4ao5co4b-o5co4ao5co4b-o5co4fagafagafagadfefdfefdfef]l16o4co3go4go3go4co3go4go3gbgo4fo3gbgo4fo3gb-go4eo3gb-go4eo3gao4e-o5co4e-o3ao4e-o5co4e-o3a-fo4do3fa-fo4do3fgo4d-b-d-\jo3go4d-b-d-o3f+e-o4co3e-f+e-o4co3e-e-o4co5co4co3e-o4co5co4co3e-o4cego5co4ge-cge-co3go4fdo3bf7o3 e-o2ce-go3ce-dco2bgbo3dgfe-de-ce-go4ce-dcdco3bagfe-d=o3e-ce-go4ce-dco3bgbo4dgfe-de-ce-go5ce-do4bo5co4ge-dco3ge-dc4 Hmft140l16x=VL16O3EAO4CO3BEBO4DL8CEO3G+O4EL16O3AEAO4CO3BEBO4DC8O3A8bebo4dcbL16O4ECEO3AO4CO3EGL8FAO4DF.L16DO3BO4DO3GBDFL8EGO4CE.L16CO3AO4CL8O3FO4D.L16O3BGBL8EO4C.L16O3AFAL8DBDl16co2go3cedo2go3dfego4cedo3go4dfl8ego3bo4gl16co3go4cedo3go4dfl8ecge7Fl16o5co4aeaceo3ao4cl8df+ao5co4l16bgdgo3bo4do3gbo4l8cegbcl16o4af+d+f+o3bo4d+o3f+ag8o4g8.eceo3a8o4f+8.do3bo4do3g8o4e8.co3ao4co3f+o4gf+ed+f+o3bo4d+e8o3bgebgbe6l16o4gb-gegc+egec+eo3agfedo4fafdfo3bo4dfdo3bo4do3gfedcD$l16o4egeceo3ao4cd+co3ao4co3f+ed+c+o2bo4dfdo3bo4do3g+bo4do3bg+bedco2b]ll16o3ceao4co3bebo4dl8co3ag+el16ao4ceco3ao4co3f+ao4co3af+ad+o4co3bag+bo4do3bg+bdfg+fdfo2bo3fedBl16o3ceaeceo2ao3cd+co2ao3co2f+o3co l8o3bgo4do3bo4fdl16gagfefedcdco3b-a8o4dco3bo4co3bagagfefedc8o4co3bo4c8o3l8efo4co3eo4co3dbo4c8FT o2l8cecgco3c8o2l16bagagfefedl8cegeo3co2go3e-o2f+o4l16cao3b-o4acao3ao4a@ o3l8b-gb-go4do3go4gl16fe-de-dco3b-o4co3b-ag8fe-de-dco2b-o3co2b-aA l8o3bc+o2l16go3eo2fo3eo2go3eo2eo3el8do2al16fo3do2eo3do2fo3do2do3d2(o2l8b-gl16o4cb-db-eb-cb-l8o2afo3l16bo4ac+adao3bo4a>^o2l8geo3l16ao4go3bo4gc+go3ao4gl8fdo1l16go2do1ao2do1b-o2do1go2d!l8o4ecl16o1fo2co1go2co1ao2co1fo2cLl16o4dfe-fdfe-fdfe-fo3b-o4dcdo3b-o4dcdo3b-o4dcdo3gb-ab-gb-ab-gb-ab-l8ecgeb-gIl16o4cdco3b-ab-agfgfe-d8gfefedcdco2b-ab-agf8o3fel8fo2ab-o3fo2ao3fo2go3ef2dMFT130x=pl8o3gbo4do3bgo4do3bgo4gl16f+gl8f+daf+daf+dgdo3bo4fdo3bo4fdo3bGl8o4eco3af+ao4cedcdo3bgegbo4dco3bo4co3af+df+ao4co3babo4cdeo3bo4geo3bo4gMo3l8abo4c+do3ao4f+do3ao4f+o3l16gf+l8g4.agf+gef+af+ef+dabo4co3bo4co3babgo4ef+g.Po4c+dc+o3bo4c+o3ao4gabagf+ef+do3ao4dc+l16dc+d4Yo2l8f+daf+do3dl16c+dc+4o2a4l8o4ec+o3ao4gl16f+gf+4d4o2l8af+do3cl16o2bo3co2b4g4l8o4do3bgo4fKo3l16co2bo3c4.l82bal8g+o3bg+el16p16eao4co3bebo4dOl16o4co3ao4cedo3bo4dfecegfedco3bo4cdefdg+dbdcafdo3bo4do3g+bo4co3aeabg+aeceo2a4.hmft120xtmft170x INVENTION #1,transcribed for computer by Seth Evans, Johann S. Bach INVENTION #8,transcribed for computer by Seth Evans, Johann S. Bach INVENTION #10,transcribed for computer by Seth Evans, Johann S. Bach/ SOLFEGGIETTO,transcribed for computer by Seth Evans, Ph. E. Bach (1714-1788)4 INVENTION #13,transcribed for computer by Seth Evans, Johann S. Bacho Gavotte,o4l4f+f+f+l8edef+g4dc+o3bao4l4aaal8bagf+ef+gf+ed,l4f+f+f+l8edef+g4dc+o3bao4l4dddl8c+dc+o3bo4e4o3a2,o4l4aaal8bagf+b4agf+eo3ao4gf+eo3go4d+ego3ao4f+o3bo4d+eo3bo4ef+l4ggl8go3babo4c+def+gf+edc+deo3ba+o4eo3bo4do3go4c+o3f+ab2p l4o4dddl8c+o3bo4c+de4dc+o3babo4c+dc+edf+egf+a4f+64e4..,l4o4f+f+l8f+agf+edc+o3bo4c+bagf+edc+o3bao4a4f+4edd2,l8o4f+el4f+o3aabo4c+l8dc+def+ga2l4o3abo4c+d2q L8O3AGL4ABO4DL8DCO3BAB4O4D4DCO3BAL4BO4DL8C+O3BO4C+DE2F+EL4F+O3AABO4C+L8DC+DEF+GA2O3L4ABO4C+D2r p8l8o3ao4def+o3ao4go3ao4f+o3adeo2f+gal16bab4.l8o3cdo2ef+gao3ceaeco2abo3cdf+ao4do3af+def+<0l8o2gbo3dgdo2bgabegbo3eo2bgef+go3bo4edcdo3babgao4co3babgf+gewpl16o3f+gf+8d8aba8f+8o4del8do3f+gbo4do3bgo4do3bgo4gdf+af+daf+do5co4bagf+gadgf+gf+edco3babo4co3bagf+gadgf+gdo2bgo1bo2dg4.MFT150x5o2 e-ce-go3ce-dco2bgbo3dgfe-de-ce-go4ce-dcdco3bagfe-d52o3 e-ce-go4ce-dco3bgbo4dgfe-de-ce-go5ce-dcdco4bagfe-dHlo4e-co3ge-co5co4ge-a-o2fa-o3cfa-o4ce-do3b-fdo2b-o4b-fdgo2e-gb-o3e-gb-o4dGo4co3ag+ao4co3ag+ao4e-co3gao4e-co3gao4dco3f+ao4aco3f+ao4f+co3dao4co3afdoo3 b-o1gb-o2dgb-agf+df+ao3dco2b-ab-gb-o3dgb-agagf+edco2b-ab-gb-o3dgb-agf+df+ao4dco3b-ab-gb-o4dgb-agagf+edco3b-aGxo3b-gb-o4dgdo3b-go2fo4gdo3bgbo4dgco3go4go3go4co3go4go3gbgo4fo3gbgo4fo3g>o4e-ce-go5co4ge-co2b-o5co4gecego5co4fco5co4cfco5co4cecb-cecb-clo4a-o1fa-o2cfa-gfecego3co2b-a-ga-fa-o3cfa-gfgfedco2b-a-ga-fa-o3cfa-gfecego4co3b-a-ga-fa-o4cfa-gfgfedco3b-a-gwvo3a-o4fco3a-fo4co3a-fca-fco2a-o3fco2a-d-2o4a-fe-fgfe-fo2c2o3a-fefgfefo1b2o5do4fga-gfe-de-go5co4gb-a-gfe-4l8d.e-16l32dcdto4eo3ao4f+o3ao4ao3ao4go3ao4eo3ao4f+o3ao4edc+dec+do3aba,l8o4do3ao4eo3ao4f+o3ao4go3ao4f+o3ao4eo3ao4f+o3ao4ao3ao4go3ao4eo3ao4f+o3ao4edc+dec+d2f+el4f+o3aabo4c+l8dc+def+ga2l4o3abo4c+d2s from the sixth suite for 'cello, J.S.Bach,"chr$(14)"&>[|ع+`33ь+ȁv|3glllmgxd ]xEco#Ƥ~@zZrN vH Tʚ;  !!!"""####$$$%%%&&&&'''((())))***+++,,,,---...////0001112222333444555566677788^_B";5J }#~t'Xv%F*Ӯw-;uD1mA4-q7|tP;d<>b}JlA]E62w8HMľfK:|O\ 5$4RKB.aUPo ̼ Y$ /\[_6A_p caw+fCzՔVijl7mGG'peXQsOnwףp= #zL} Hz@PC$t >(kn@C:h* 51_c.1@v:k ^# bx-Àz&XƐn2xʴW ?h)͡SЅ@aQYԦo% 'N x9? 6!OgI#E@|o|p+L67EV߄vl: {Η@H½p PvP?<&Ok8и'ƫ7Cưe\{2~]30b/5`=! C)/{QFZ$+vﶓ+髤8UqfclN@< 'PKPE44444PPPe35DNn"~h!II,k  j0 0 TeB׳]\);8zr1r1*.* $BATCHCPYCOMYBATCHCPYDOC[!91͉~!*ͫ ERROR, PROGRAM ABORTED _> ͇> ͇> ͇~͇~#ë~ >.͇#ö_^#VɷzW{_Ƀ_zWɅo|gxy *** MAKE FILE ERROR *** *** CLOSE FILE *** DISK FULL, RESTART WITH MORE FREE DISK SPACE DIRECTORY FULL, RESTART WITH MORE DIRECTORY SPACE FREE *** FILE RENAMING ERROR *** ABORTED, SET DRIVE ERROR x¥xG~&>  ##f͊2 : _͊>P ͡#^#6 m" ʍ l=l " ʍm "  "#@ @6#6# > 6#6# > w# =::#:+#_@w#&w0w: w . = "a;w#"~*P#BSe~*a#Ue6?#e (=m͡ʐ}!ͫ**** SOURCE FILE NOT FOUND ****!ͫBATCH FILE NOT FOUND >C ! ͡ >$  ~ 4 ~B9#~C9#~H90!Dͫ0 *** CAN ONLY PROCESS FILES WITH ".BCH" FILETYPE *** %! !\=!$͖ͫ,   <ʼ!ͫ! w# >w!q#ͫ~;#͖!!ͫ!ͫ!\,   <ʕ!  N> C ! y   ! | | | *** BATCH COPY STOPPED *** *** BATCH COPY COMPLETED *** **** Depress any key to stop batch copy **** BATCHCPY.COM, version 1.0 Copyright (C) 1985, Rob:]batchfil.BCH ar bot acceptable I th batc fil i omitted shor explanatio o th progra i give wit promp fo th nam o th batc file Th batc fil shoul lis th file with th ne fil firs separate b eithe a "=" o spac fro th sourc file Yo ma plac comment i th fil provide the ar precede b "; i th a th firs characte o th line AL line MUS en wit carriage return sampl batc fil follows: ; ; This is SAMPLE.BCH a sample batch file for use with BATCHCPY.COM. ; You will note that you can make a heading and comments ; throughout the batch file if you want provided ; that they are preceded by a ";" as the first character ; of the line. You MUST end the file with a or ; the line WILL NOT BE EXECUTED and the program will terminate. ; ; NEWFILE.TYP = OLDFILE.TYP A:NEWFILE.TYP = B:OLDFILE.TYP A1:NEWFILE.TYP = A2:OLDFILE.TYP ; [du:] NEWFIert D. Bradley BATCHCPY.COM is a Z-80 based CP/M program to quickly copy a batch of files that are listed in a file with filetype ".BCH". In a test, this program took 3:04.28 minutes to copy 190k of data in 38 files and the same copy using a SUBMIT file and PIP took 6:08.50 or nearly twice as long. The program may be invoked with or without the name of the batch file with optional drive and user designation: A>BATCHCPY A>BATCHCPY [du:]batchfil.BCH The batch file should list the files with the new file first separated by either an "=" or a space from the source file. You may place comments in the file provided they are preceded by a ";". You MUST use a at the end of each line of the batch file. NAME OF BATCH FILE TO USE:TEMPCOPY$$$ LE.TYP = [du:] OLDFILE.TYP ; . ; . ; . ; . ; [du:] NEWFILE.TYP = [du:] OLDFILE.TYP I yo wan t qui copyin whil th progra i running depres an key and the program will terminate AFTER the end of the current copy. Please note, BATCHCPY DOES NOT VERIFY the copy made. I yo hav comments yo ma leav messag fo m a th Mountai Vie RCP (415 965-409 o sen lette t 1 Shast Lane Menl Park, CA 94025. Bob Bradley  11-9-85 DOCUMENTATION FOR BATCHCPY.COM BATCHCPY.CO i Z-8 base CP/ utilit progra t quickl cop (i.e backup batc o file tha ar liste i fil wit filetyp ".BCH" I test thi progra too 3:04.2 minute t cop 190 o dat i 3 file an th sam cop usin SUBMI fil an PI too 6:08.5 o nearl twic a long. Also th batc fil an th file t b copie ma b in an o th activ use area an th scree outpu ma b copie t th printe using a ^P which is not possible under SUBMIT. BATCHCPY.COM ma b invoke wit o withou th nam o th batc fil with optional drive and user designation. A>BATCHCPY A>BATCHCPY [duModemMail 001-0122-ZY0VD$ZY-0000027-0111 From: AUTOSOFT SYSOP To: DATAFORC SYSOP Subj: BBSLAW01.MSG BBSLAW01.MSG From Chip Berlet, Public Eye Magazine. HELP FIGHT BAD BBS LAWS - 01 FEDERAL LEGISLATION RESTRICTING BBS OPERATION DUE SOON! POST THIS MESSAGE ON EVERY BBS IN AMERICA! A new federal law that would outlaw some BBS systems and severely restrict all others could be passed by Congress in 1985. A mobilization of SYSOPS and BBS users is urgently needed to ensure we have a chance to speak out on the new law. Watch BBS's for messages with "BBSLAWXX.MSG" headers or "HELP FIGHT BAD BBS LAWS - XX" titles. An ad-hoc group will be posting these messages on BBS's and the commercial systems. LAWMUG SYSOP Paul Bernstein and I have learned the law could be introduced as soon as MID JULY! Although aspects of the new Rights. NO LEGISLATION WITHOUT REPRESENTATION! There will be differing views of wording, law, and tactics; all should be given a chance to be heard. Congress should delay passage of any BBS legislation until BBS users and SYSOPS have a chance to discuss the legal issues and make their opinions known in a series of Congressional hearings. Our discussion must start immediately and we must organize to block bad BBS legislation until our voices are heard. We share the responsibility. Time is short. Spread the word. It is the electronic age. We are all Paul Revere.... ------- ModemMail 001-0122-ZY0VE$ZY-0000046-0111 From: AUTOSOFT SYSOP To: DATAFORC SYSOP Subj: BBSLAW02.MSG BBSLAW02.MSG 07/24/85 by Chip Berlet, Secretary, National Lawyers Guild Civil Liberties Committee Chicago, IL GOOD NEWS & MORE NEWS law have been discussed for months by "experts" in Washington, NOT ONE SYSOP WAS CONSULTED until a June 20 conference in Chicago which Paul and I attended. Vague language in another telecommunications law already introduced in Congress might also restrict BBS activities. We urged the Congressional aide involved in that legislation to exempt BBS systems until we could let SYSOPS and lawyers study the language more carefully. We must also monitor this law. The law restricting BBS operations was prompted by panic over the possibility that children (minors) might read pornographic material, and by the wave of publicity regarding the malicious hackers and illegal credit card and phone information posted on BBS's by electronic graffiti vandals. Among the ideas SERIOUSLY DISCUSSED for the new federal law restricting BBS's are provisions which would require: * Registration of all BBS's as a public utility. * BBS users to log in with, and post their legal names.  Since it will be important to celebrate our victories no matter how small, I am happy to announce that we have a small one to celebrate. John Podesta, the Congressional aide who is writing the "Telecommunication Privacy" legislation for Senator Patrick Leahy, has agreed that BBS's constitute a special factor for the legislation. Leahy and Podesta are willing to consider writing language that attempts to takes the unique needs of BBS's into consideration. This is a foot in the door for us. To help them understand the issues, Podesta has requested that various BBS's conduct a debate on the issues, and then send him a printed output of the running comments. He needs this material sometime in late August or early September. PUBLIC AWARENESS CAMPAIGN The debate on California's WELL/Legal conference BBS is already underway, and it should continue. Paul Bernstein of the National Association of Bulletin Board System Operators (NABBSO) in Chicago will be coor * SYSOPS to keep a log of all names of users. * SYSOPS to keep a log of all messages & access times. * Criminal penalties for SYSOPS whose BBS's contain had illegal messages posted on them - even if the SYSOP was not aware of the message and had not been informed the message was there nor given a chance to remove it! While the law is currently only being discussed, there is much pressure to restrict and regulate BBS's. A good BBS law could protect BBS's and SYSOPS. A bad law could destroy BBS's in their infancy as a telecommunications phenomena. BBS's put the individual back into mass society in the age of telecommunications. BBS's encourage information sharing and remove barriers to discussion posed by social status, wealth, class, race, sex, physical size, and many physical handicaps. BBS's encourage the democratic process and are a powerful new communications system which deserves Constitutional protection and First Amendment dinating the SYSOP response, and providing information on how to download current information and all future BBSLAW messages. If you are a SYSOP, please write him a letter with your BBS name and phone number, and he will send you the information on dowloading. NABBSO, c/o Paul Bernstein, Attorney at Law, #509A 600 N. McClurg Court, Chicago, IL 60611. We hope to see discussion on Source, Compuserve, Delphi, etc. regarding the legislation. Watch local BBS's for the BBSLAWxx.MSG's like this one. STATUS OF FEDERAL LEGISLATION There has been one Congressional oversight hearing on the Federal BBS/Child pornography Bill, and the legislation was introduced the week of June 17th. The Telecommunications Privacy Bill is in draft form, and is expected to be introduced in the next three months. The BBS laws in California have been introduced, and the response to them will affect the situation in Congress. BBS/CHILD POROGRAPHY BILL This Bill follows a similar law rt BBS's or SYSOPS, and be sure that attempts to broaden the scope of the legislation fail. I will download the text of that Bill shortly. MYSTERY LEGISLATION? There are also rumors that some federal legislation might be introduced to address the problem of the KKK/Aryan Nations BBS Network, and the general problem of illegal material on BBS's. We have an easier time here in arguing that any legislation should be aimed at criminal activity discussed on the BBS, not at all BBS's in general. Still, this Bill could be the worst of them all, if it is introduced. One rumor from several sources says that Sen. Jeremiah Denton has discussed just such legislation. TELECOMMUNICATIONS PRIVACY ACT The Telecommunications Privacy Bill is in draft form, and will be introduced within the next three months. Senator Patrick Leahy (D-VT) is the principal sponsor. In the near future a copy of the new draft text of the Bill will be made available to us for circulation. We shouregulating broadcast of sexually explicit material on cable television. The BBS Bill was introduced by Senator Trible (R-VA). One Star Trek "Trekkie" has suggested we title our opposition "The Trouble With Trible's", but I have doubts the general population would get the joke. According to my contacts in Washington, D.C., Trible is a very conservative Republican with support from the direction of the New Right/Moral Majority crowd. He is unlikely to be swayed by either Constitutional or First Amendment arguments. It makes more sense to target other members of the Committee for a letter writing campaign. The Trible Bill is prompted by concern over child pornography and child molestation. It appears that some rather foul individuals have set up a BBS where child molesters and pedophiles discuss in explicit detail sexual experiences with small children. The Senator's response to this is to write legislation that could affect all BBS systems. We have to figure ld thank Leahy for soliciting our comments and encourage sensitivity to the needs of BBS's in the legislation. As of July 24, Senator Leahy and Representative Kastenmeier are working on preparing a bill to be introduced jointly in the House and Senate, probably in late August or September. They are both willing to listen to our side of things. Several other computer/telecommunication Bills are expected to be introduced in the current session. More to follow. -30- ------- ModemMail 001-0122-ZY0VF$ZY-0000066-0111 From: AUTOSOFT SYSOP To: DATAFORC SYSOP Subj: BBSLAW03.MSG BBSLAW03.MSG FROM: Chip Berlet Secretary, National Lawyers Guild Civil Liberties Committee Re: Federal Legislation Affecting Computer Bulletin Boards #3 in a series A PETITION FOR BBS RIGHTS If you out how to draw the distinctions between the issues here. Needless to say, we have an uphill battle. In defending BBS Freedom, we will be accused of defending child molestation. Yech! The Trible Bill is officially the "Computer Porography and Child Exploitation Prevention Act" S. 1305. "To establish criminal penalties for the transmission by computer of obscene matter, or by computer or by other means, of matter pertaining to the sexual exploitation of children." It has been referred to the Senate Committee on the Judiciary. On the plus side, the law as presently worded, clearly focuses on the perpetrator. While the Senator apparently wanted to directly regulate BBS's that carried child pornography, the Justice Department warned that such action might be UnConstitutional. This is good news for us, since it means the Justice Department recognizes at least some Constitutional issues relating to BBS's. We need to read the language of the Bill to make sure it does not hu agree with the wording, print and circulate the following petition: * * * * * * * * We, the undersigned, support the following principles: NO LEGISLATION WITHOUT REPRESENTATION. Congress and state legislatures should delay passage of any BBS legislation until BBS users and SYSOPS have a chance to discuss the legal issues and make their opinions known in a series of Congressional and state-level hearings. PUNISH PERPETRATORS NOT COMMUNICATORS. If any legislation is needed it should focus on criminal penalties for persons placing illegal messages on BBS's. DUE PROCESS OF LAW. SYSOPS should be guaranteed that their homes, equipment, data and electronic communications be given the same Constitutional protections from unreasonable search and seizure enjoyed by all other Americans. PROTECT DIGITAL COMMUNICATION. All Americans who choose to communicate using computerized "digital" typed messages should expect those communications be covered b"experts" are having input into the wording. We should try to squeeze ourselves into that process, but the Washington, D.C. crowd always resents outsiders like plain citizens intervening in their little tea party.... COALITIONS Oddly enough, the telecommunications industry might be our best allies. At the Chicago conference some industry people wondered what will happen to phone companies or The Source, or E-Mail services. Media - always sensitive to First Amendment issues. Use your imagination. ONE TACTICAL SUGGESTION My argument is that SOMEONE has to be legally liable for illegal messages. Not the SYSOP, but the perpetrator, who I think it wise to refer as an "illegal electronic graffiti artist." Frankly, ain't no law yet that protects the owner of a supermarket bulletin board who leaves posted an illegal message after being notified of its existence. Argument, legal types? LETTERS, WE SHOULD SEND LETTERS The Judiciary Committeey all current laws applying to spoken and written communication. This includes laws relating to expectation of privacy, due process, freedom of speech, freedom of association, freedom from unreasonable search and seizure. RECOGNIZE DIVERSITY. No law that singles out BBS's as one single form of communication can possibly apply to the wide diversity of usages for BBS systems. Message posting, private mail, public forums, publishing, attorney/client conferencing, contract negotiations, games, educational centers, consulting services, private and public conferences are just a few of the current uses for BBS's. Name Address ZIP ----------------------------------------------------------- Please send completed petitions to National Association of Bulletin Board System Operators (NABBSO), c/o Paul Bernstein, #509A, 600 N. McCLurg Court, Chicago, IL 60611. * * * * * * * * LOBBYING and LEGISLATION Steps in the process: s of the House and Senate will most likely be considering the legislation that involves BBS's and telecommunications. The most effective letters come from constituents, Check the lists below for Judiciary committee members from your state. Express your views in a short letter. Ask for copies of pending legislation. U.S. Senate The Honorable (Name of Senator) Senate of the United States Washington, D.C. 20510 Senate Judiciary Committee (as of 1984) Republicans: Chairman - Strom Thurmond (SC), Charles M. Mathias, Jr. (MD), Paul Laxalt (NV), Orrin G. Hatch (UT), Robert Dole (KS), Alan K. Simpson (WY), John P. East (NC), Charles E. Grassley (IA), Jeremiah Denton (AL), Arlen Spector (PA) Democrats: Joseph R. Biden Jr. (DE), Edward M. Kennedy (MA), Robert C. Byrd (WV), Howard M. Metzenbaum (OH), Dennis DeConcini (AZ), Patrick J. Leahy (VT), Max Baucus (MT), Howell Heflin (AL) House of Representatives The Honorable (Name of Representative) U.S. House of  Prevent legislation from being filed. Delay Committee hearings. Testify at hearings. Promote publicity. Form coalitions with other interests. Introduce conflicting bill to cause debate and delay. Lobby Committee members to kill or amend bill. Lobby Full Congress to kill or amend bill. Lobby President to veto bill. Fight in courts to challenge validity of law. I think with the current President and Supreme Court we can write off the last two tactics as pointless. In this situation it might also be wise to pressure the ACLU to direct its staff to help us. Until Bills are actually introduced, this may be the best first step. But maybe telling people to target the introducing legislators or Committee members might be the best course. Or both. It's always guesswork before the Bill is introduced. Remember, however, the best time to affect legislation is BEFORE it is introduced, when only the legislative staffs and  Representatives Washington, D.C. 20515 House Judiciary Committee (as of 1984) Democrats: Chairman - Peter W. Rodino, Jr. (NJ), Jack Brooks (TX), Robert W. Kastenmeier (WI), Don Edwards (CA), John Conyers, Jr. (MI), John F. Seiberling (OH), Romano L. Mazzoli (KY), William J. Hughes (NJ), Sam B. Hall, Jr. (TX), Michael Lynn Synar (OK), Patricia Schroeder (CO), Dan Glickman (KS), Barney Frank (MA), George W. Crockett, Jr. (MI), Charles E. Schumer (NY), Bruce A. Morrison (CT), Edward F. Fieghan (OH), Lawrence J. Smith (FL), Howard Berman (CA) Republicans: Hamilton Fish, Jr. (NY), Carlos J. Moorehead (CA), Henry J. Hyde (IL), Thomas N. Kindness (OH), Harold S. Sawyer (MI), Daniel E. Lungren (CA), F. James Sensenbrenner, Jr. (WI), Bill McCollum (FL), E. Clay Shaw (FL), George W. Gekas (PA), Micahel DeWine (OH) THE BBSLAWXX.MSG MESSAGES In Chicago we are setting up a small committee to brainstorm some ideas on how to deal with the federal legislation expected vPBM28NOV.ONLT  !"#$%&'()*+,-./0123456789:;<=>?@ABoCDEFGHIJKLMNOPQRSP.}&UOv.v0x;6O\ Øl6W<^qͫǫ߸Wr+\?חqxh$\}z8}0>+~9~rN'J/˝+~NFշ+_N|}9>ꁗ?~W'?_N_E-O\|< /?y~g-vO\|׏:qL慏7/']=>^Y_}㚯prW_^y6O/qoW盏'_N|yuz8}wn^ǿ]?LJF/8\=<_Y7O\x|۫Oy|㗗7\|^quW~>>vw8Oyo~|?q«N\}RF'?_]yuk~?<|_F\|phAbxpsWWhPoJ1ڿ?^T[wsK6{.w7y&e@^]] stint working on the ACLU government surveillance case against the Chicago Police "Red Squad." I wear a lot of hats, but try to keep them seperate ... not always with success. I spent five years in Washington D.C. - half of that time writing about federal legislation (emphasis on higher education), the other half lobbying and doing publicity & organizing for educational groups. As a journalist, I write a monthly computers & law feature for the "Chicago Lawyer" newspaper. For the past several months I've been writing about computer privacy issues. Because of that (and my BBS user hobby) I was hired to write a research paper on BBS's and the law. What I found out scared me - there is NO law that covers BBS's as currently adjudicated. That means any legal right for BBS depends on success in the first cases to hit the courts, and drafting relevant legislation as soon as possible. See ya later... -30- -------  M1ց1l_[x;k 6 yllu@ݦ1wbt[֦ց1 YM1bt[esv7m%E7M1eq@nil@NJ)`_;P F[ v5z{9O@_(IbŁ16bt;>U)`[;P FMaƁ1d*e|@N4|@N"Cm#(IBsiց1²֮Ubt;e{6 6 SVѦ@݆ü@݆uBg׹bt*ځ1BB0/mw?5^ξ8P FdoS ~@^/ElrP/9zk 赬m5cS @u@^n8P FQ]tc¦}@x6 5ͦ6Ł1zrގ/kզ}q@n5 O; f*btx[[_(Sm( ;W}oS @_(qXoS @Y(1{bba:P F ݥ-P Øø[mo}q@>.:lkm.17;k ilm/~jM1ځ1Jq)Ł15m5cxk *ı6btbƁ1ʪ+o}@]e۰æ|@]~s'6k *ަ~@]>7)8P FW9TV/U>Wi6/U>WzM1w[ *p6Uwoxk *KnoY@]eo:v@zbƁ1ʹ M)8P FW97a]UMdxk *禫[l( *穪v@r״ޮUk *wM͝M1bt*; *wzέ(USmo8P FW c:un}@]nLb[ *?):͝()l(|<dbbt +6k *SP*Ł1)),U~w۬#6bt]6)UP Mw1v[_;P FW]nU@]c̯Φeq@J|@]]sbtu<]m3P61UÚqξv@kb}@]sfg㜁8P FW9z+k ݻ-n|@= c8k Ø~je@}Sm7ч1uwަց10nmo(cꢷUŁ10 v@>kBƦ~q@>{򶊷8P Fݰk9baU:P F^{- koxk 6 Cϗͱځ1PsWƦq@>T[su@>TOc),ч*ȝ)8P F [oS @q@>TAPo(YM1Ɓ1us(ٵޮsчKoчP:oS Ɓ1]W{b@}h|@}صݺbxbbvajց1p{чcbq~@}߭Ubv[_;P F_)5ަ@}9aLsbF6cbF6k 豍r] qwۍ)(T ;cS @:P Fb[)(En_(jll;'u@ ~3 ٦+ѷ7ަѷX)ѷqξv@H6Ł1usnv}o}@OU_;P Fns;k m/ѯ6 4&k 4ù)8P F:lo}@oS [ 4ŮŦ~@Cs@u@Nc:oy [ $ڈ}q@Nհ6ubti9ځ1:Up6k TU/&oS ~q@NbW6޶ځ1:uSlBI^lbtXަց1:]m_(EIMoS ~q@~ޮU hyS{;Ł1Zbb40(k/M1}q@⥷):P FO:6k Ui9}q@Z%Ɓ1zjR)`Y(VMm Uvءi/bԪ\,SSL6l7S׵ʼځ1zjp?u_(v Ó):P FOy&cS ~@=8|@=o)(lm bxbƁ1zjt_;P FOc]b~(qt9ځ1zwڝm_(86ަ@=6bnzk zަ|@=Uiξv@4ځ1z 6[ )lSw]a,Sw])/SwݱmSަ8P FOaoY|@=0&8g_;P FOm. )T{ )aoS v@ 2t6ځ1z²){0_(pnsbt1M1Ɓ1:Ę~)Cq@1[o!.76/ѡvg/ѡ=a4g_;P Fv`Ɓ1:;{&/ѡ_]/ѡ${&_;P Fu Pj v4ځ1:4XUfbthV׌M1@:P FfUqͽM1@:P FfUqŦ_j ЬjlS /bthΡ)ѡmm( i_(Ck]_(Cѡ8g_;P F&wUhzb@Rm(btoA⭯(Cվn׌B ѡ:Wb~8P FpecS P6 Pulmf@ámŁ1Z9 h^762! 8g_;P F0y b sKέ(e80]Pj h5{o@-qA).c,v/u ۲`Y@}\/d6Ł1xhB7Jc}@}<4UbQkmXj 裨n26 }Qަ~@}U`S o Tk#9Ł1(ڈk cu8xk cu8xbb14;{b@}Fw@_(\6iځ1~xb~Y()P F*P6ѹ nSl(sqqξv@SӎCvXځ1:OMJަzq@SjVb@&)`8P F穪):P F穪R(_;P FFi,~q@Ř/sbtGoתbtGowUk {oY|@E{o׹bt/VѹqֶsbtC{i@!tymx ѹk+d}@umg_;P F箚ÄM1bt8Vѹ bS ~q@S U(/~WM1@s`C~@s5ỵ(}Výk n_(!歷)8P Fw(!{oY8P FwCJVp\Ŧ~@ Ƕ έ(V2a|@Tsbt٭q@{b@5:oS ]q@ nHv;_;P FwMq7$b@5kj]s6R;P Fw4޶v@Fim(:tfbt7Ji&bŁ1KcfbtM1@UU޶3?Ł1btWU)UkS P6btWU)ަ/bt7nx{9Ov@M)8P FwaCe@݅a򶊷v@B*eq@BzV( .ooS ~@*tަ}q@)Tv[_;P Fw!VL6}q@.B&l;_;P Fwz M1v@mg@Oybbtw?6Ł1B}),;aŦ|@}kUbŮ`x 8_4޶(/vSc_;P F_T}mY~@}M1@}B0(/bE0(/rX+'/ݘzbMq@v6l(/JjP6]U%)6 苮m7]U%m+]U%)`8P F]+Uަ~@vTs6ԋb۵*ަ@v{bbfM1@/oM1e@v\M1wŁ1xckŁ1xLCLM1eq@~BlS @8P F?5Cwl_(lv[_;P F?5Cwl/OMj+iv@~P ˡ˻MoS 8P F?]]m6ځ1r[[_;P F?]6dӼbe6ځ1i~mOUX]M1Ł1 0_(؝6[ 觬JM1eq@~ʪrځ1)+5k 觬k/mxS(r)[oתbS6}sk c,v/u ۲`Y@}\/d6Ł1xhB7Jc}@}<4UbQkmXj 裨n26 }Qަ~@}U`S o Tk#9Ł1(ڈk cu8xk cu8xbb14;{b@}Fw@_(\6iځ1~xb~Y()  CASTLE BAS&CASTLE DOCt 1000 REM ***************************************************** 1005 REM * * 1010 REM * WIZARD'S CASTLE GAME FROM JULY/AUGUST 1980 * 1015 REM * ISSUE OF RECREATIONAL COMPUTING MAGAZINE * 1020 REM * WRITTEN FOR EXIDY SORCERER BY JOSEPH R. POWER * 1025 REM * MODIFIED FOR HEATH MICROSOFT BASIC BY J.F.STETSON * 1030 REM * * 1035 REM ***************************************************** 1040 DEFINT A-Z 1045 DIM C$(34),I$(34),R$(4),W$(8),E$(8) 1050 DIM L(512),C(3,4),T(8),O(3),R(3) 1055 DEF FNA(Q)=1+INT(RND(1)*Q) 1060 DEF FNB(Q)=Q+8*((Q=9)-(Q=0)) 1065 DEF FNC(Q)=-Q*(Q<19)-18*(Q>18) 1070 DEF FND(Q)=64*(Q-1)+8*(X-1)+Y 1075 DEF FNE(Q)=Q+100*(Q>99) 1080 Y$="** PLEASE ANSWER YES OR NO" 1085 NG=0 1090 REM 1095 REM INITIALIZE ARRAYS 1100 REM 1105 NG=NG+1 11 OT=OT+4*(RC=1) 1570 IF RC > 0 THEN R$(3)="HUMAN" : GOTO 1585 1575 PRINT "** THAT WAS INCORRECT. PLEASE TYPE E, D, M, OR H." 1580 GOTO 1535 1585 PRINT "WHICH SEX TO YOU PREFER"; 1590 GOSUB 5415 1595 IF O$="M" THEN SX=1 : GOTO 1615 1600 IF O$="F" GOTO 1615 1605 PRINT "** CUTE ";R$(RC);", REAL CUTE. TRY M OR F." 1610 GOTO 1585 1615 PRINT 1620 PRINT "OK, ";R$(RC);", YOU HAVE THE FOLLOWING ATTRIBUTES :" 1625 PRINT "STRENGTH =";ST;" INTELLIGENCE =";IQ;" DEXTERITY =";DX 1630 PRINT "AND";OT;"OTHER POINTS TO ALLOCATE AS YOU WISH." 1635 PRINT 1640 Z$="STRENGTH" 1645 GOSUB 5430 1650 ST=ST+Q 1655 IF OT=0 GOTO 1695 1660 Z$="INTELLIGENCE" 1665 GOSUB 5430 1670 IQ=IQ+Q 1675 IF OT=0 GOTO 1695 1680 Z$="DEXTERITY" 1685 GOSUB 5430 1690 DX=DX+Q 1695 PRINT "OK, ";R$(RC);", YOU HAVE 60 GOLD PIECES (GP'S)." 1700 Z$="ARMOR" 1705 GOSUB 5555 1710 AV=0 : WV=0 : FL=0 : WC=0 1715 PRINT "PLATE<30> CHAINMAIL<20> LEATHER<10> NOTHING<0>" 1720 GOSUB 5405 1725 IF O$="N" GOTO 1755 1730 AV=-3*(O$="P")-2*(O$="C")-10 Q=RND(1) 1115 RESTORE 1120 FOR Q=1 TO 34 1125 READ C$(Q),I$(Q) 1130 NEXT Q 1135 FOR Q=1 TO 512 1140 L(Q)=101 1145 NEXT Q 1150 FOR Q=1 TO 8 1155 READ W$(Q),E$(Q) 1160 NEXT Q 1165 FOR Q=1 TO 4 1170 READ R$(Q) 1175 NEXT Q 1180 IF NG > 1 GOTO 1250 1185 PRINT CHR$(27);"E" 1190 GOSUB 5375 1195 PRINT TAB(16);"* * * THE WIZARD'S CASTLE * * *" 1200 PRINT 1205 GOSUB 5375 1210 PRINT "MANY CYCLES AGO, IN THE KINGDOM OF N'DIC, THE GNOMIC" 1215 PRINT "WIZARD ZOT FORGED HIS GREAT *ORB OF POWER*. HE SOON" 1220 PRINT "VANISHED, LEAVING BEHIND HIS VAST SUBTERRANEAN CASTLE" 1225 PRINT "FILLED WITH ESURIENT MONSTERS, FABULOUS TREASURES, AND" 1230 PRINT "THE INCREDIBLE *ORB OF ZOT*. FROM THAT TIME HENCE, MANY" 1235 PRINT "A BOLD YOUTH HAS VENTURED INTO THE WIZARD'S CASTLE. AS" 1240 PRINT "OF NOW, *NONE* HAS EVER EMERGED VICTORIOUSLY! BEWARE!!" 1245 PRINT 1250 X=1 : Y=4 1255 L(FND(1))=2 1260 FOR Z=1 TO 7 1265 FOR Q1=1 TO 2 1270 Q=104 1275 GOSUB 5285 1280 L(FND(Z+1))=103 1285 NEXT Q1 1290 NEXT(O$="L") 1735 IF AV > 0 GOTO 1755 1740 PRINT 1745 PRINT "** ARE YOU A ";R$(RC);" OR ";C$(FNA(12)+12);"?" 1750 GOTO 1700 1755 AH=AV*7 : GP=GP-AV*10 1760 PRINT 1765 PRINT "OK, BOLD ";R$(RC);", YOU HAVE";GP;"GP'S LEFT." 1770 Z$="WEAPONS" 1775 GOSUB 5555 1780 PRINT "SWORD<30> MACE<20> DAGGER<10> NOTHING<0>" 1785 GOSUB 5405 1790 IF O$="N" GOTO 1820 1795 WV=-3*(O$="S")-2*(O$="M")-(O$="D") 1800 IF WV > 0 GOTO 1820 1805 PRINT 1810 PRINT "** IS YOUR IQ REALLY";IQ;"?" 1815 GOTO 1770 1820 GP=GP-WV*10 1825 IF GP < 20 GOTO 1855 1830 PRINT 1835 PRINT "DO YOU WANT TO BUY A LAMP FOR 20 GP'S"; 1840 GOSUB 5415 1845 IF O$="Y" THEN LF=1 : GP=GP-20 : GOTO 1855 1850 IF O$ <> "N" THEN PRINT : PRINT Y$ : PRINT : GOTO 1835 1855 PRINT 1860 IF GP < 1 THEN Q=0 : GOTO 1915 1865 PRINT "OK, ";R$(RC);", YOU HAVE";GP;"GOLD PIECES LEFT." 1870 PRINT 1875 INPUT "FLARES COST 1 GP EACH. HOW MANY DO YOU WANT";O$ 1880 Q=VAL(O$) 1885 PRINT 1890 IF Q > 0 OR ASC(O$)=48 GOTO 1910 1895 PRINT "** IF YOU DON'T WANT ANY, J Z 1295 FOR Z=1 TO 8 1300 FOR Q=113 TO 124 1305 GOSUB 5285 1310 NEXT Q 1315 FOR Q1=1 TO 3 1320 FOR Q=105 TO 112 1325 GOSUB 5285 1330 NEXT Q 1335 Q=125 1340 GOSUB 5285 1345 NEXT Q1 1350 NEXT Z 1355 FOR Q=126 TO 133 1360 Z=FNA(8) 1365 GOSUB 5285 1370 NEXT Q 1375 Q=101 1380 FOR A=1 TO 3 1385 Z=FNA(8) 1390 GOSUB 5285 1395 C(A,1)=X 1400 C(A,2)=Y 1405 C(A,3)=Z 1410 C(A,4)=0 1415 NEXT A 1420 RC=0 1425 ST=2 1430 DX=14 1435 R$(3)="MAN" 1440 Q=112+FNA(12) 1445 Z=FNA(8) 1450 GOSUB 5285 1455 R(1)=X 1460 R(2)=Y 1465 R(3)=Z 1470 Q=109 1475 Z=FNA(8) 1480 GOSUB 5285 1485 O(1)=X 1490 O(2)=Y 1495 O(3)=Z 1500 BF=0 : OT=8 : AV=0 : HT=0 : T=1 : VF=0 : LF=0 1505 TC=0 : GP=60 : RF=0 : OF=0 : BL=0 : IQ=8 : SX=0 1510 FOR Q=1 TO 8 1515 T(Q)=0 1520 NEXT Q 1525 PRINT CHR$(7); 1530 PRINT "ALL RIGHT, BOLD ONE." 1535 PRINT "YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT." 1540 GOSUB 5405 1545 FOR Q=1 TO 4 1550 IF LEFT$(R$(Q),1)=O$ THEN RC=Q : ST=ST+2*Q : DX=DX-2*Q 1555 NEXT Q 1560 PRINT 1565 UST TYPE 0 (ZERO)." 1900 PRINT 1905 GOTO 1875 1910 IF Q > GP THEN PRINT "** YOU CAN ONLY AFFORD";GP;"." : PRINT : GOTO 1875 1915 FL=FL+Q : GP=GP-Q 1920 X=1 : Y=4 : Z=1 1925 PRINT "OK, ";R$(RC);", YOU ARE NOW ENTERING THE CASTLE!" 1930 GOTO 3450 1935 REM 1940 REM MAIN PROCESSING LOOP 1945 REM 1950 T=T+1 1955 IF RF+OF > 0 GOTO 2020 1960 IF C(1,4) > T(1) THEN T=T+1 1965 IF C(2,4) > T(3) THEN GP=GP-FNA(5) 1970 IF GP < 0 THEN GP=0 1975 IF C(3,4) <= T(5) GOTO 2020 1980 A=X : B=Y : C=Z 1985 X=FNA(8) : Y=FNA(8) : Z=FNA(8) 1990 L(FND(Z))=FNE(L(FND(Z)))+100 1995 X=A : Y=B : Z=C 2000 IF L(FND(Z)) <> 1 GOTO 2020 2005 FOR Q=1 TO 3 2010 C(Q,4)=-(C(Q,1)=X)*(C(Q,2)=Y)*(C(Q,3)=Z) 2015 NEXT Q 2020 IF FNA(5) > 1 GOTO 2165 2025 PRINT 2030 PRINT "YOU "; 2035 Q=FNA(7)+BL 2040 IF Q > 7 THEN Q=4 2045 ON Q GOSUB 2125,2065,2115,2055,2135,2145,2155 2050 GOTO 2165 2055 PRINT "STEPPED ON A FROG!" 2060 RETURN 2065 PRINT "HEAR "; 2070 ON FNA(4) GOTO 2075,2085,2095,2105 2075 PRINT "A SCREAM!" 2080 RETUPAL EYE - CURES BLINDNESS" 2390 PRINT "BLUE FLAME - DISSOLVES BOOKS NORN STONE - NO BENEFIT" 2395 PRINT "PALANTIR - NO BENEFIT SILMARIL - NO BENEFIT" 2400 PRINT 2405 PRINT "PRESS RETURN WHEN READY TO RESUME, ";R$(RC);"."; 2410 LINE INPUT "";O$ 2415 GOTO 1950 2420 PRINT 2425 PRINT "** SILLY ";R$(RC);", THAT WASN'T A VALID COMMAND!" 2430 GOTO 1950 2435 IF L(FND(Z))=2 GOTO 4970 2440 X=X+(O$="N")-(O$="S") 2445 Y=Y+(O$="W")-(O$="E") 2450 X=FNB(X) 2455 Y=FNB(Y) 2460 GOTO 3450 2465 IF L(FND(Z))=3 THEN Z=Z-1 : GOTO 3450 2470 Z$="UP" 2475 GOTO 2490 2480 Z$="DOWN" 2485 IF L(FND(Z))=4 THEN Z=Z+1 : GOTO 3450 2490 PRINT 2495 PRINT "** THERE ARE NO STAIRS GOING ";Z$;" FROM HERE!" 2500 GOTO 1950 2505 IF BL <> 1 GOTO 2540 2510 PRINT 2515 PRINT "** YOU CAN'T SEE ANYTHING, YOU DUMB ";R$(RC);"!" 2520 GOTO 1950 2525 REM 2530 REM DISPLAY MAP OF CURRENT CASTLE LEVEL 2535 REM 2540 PRINT 2545 A=X : B=Y 2550 FOR X=1 TO 8 2555 FOR Y=1 TO 8 2560 Q=L(FND(Z)) 2565 IF Q > 99 THEN Q=Q-100:LET RN 2085 PRINT "FOOTSTEPS!" 2090 RETURN 2095 PRINT "A WUMPUS!" 2100 RETURN 2105 PRINT "THUNDER!" 2110 RETURN 2115 PRINT "SNEEZED!" 2120 RETURN 2125 PRINT "SEE A BAT FLY BY!" 2130 RETURN 2135 PRINT "SMELL ";C$(12+FNA(13));" FRYING!" 2140 RETURN 2145 PRINT "FEEL LIKE YOU'RE BEING WATCHED!" 2150 RETURN 2155 PRINT "HEAR FAINT RUSTLING NOISES!" 2160 RETURN 2165 IF BL+T(4) <> 2 GOTO 2185 2170 PRINT 2175 PRINT C$(29);" CURES YOUR BLINDNESS!" 2180 BL=0 2185 IF BF+T(6) <> 2 GOTO 2205 2190 PRINT 2195 PRINT C$(31);" DISSOLVES THE BOOK!" 2200 BF=0 2205 PRINT 2210 LINE INPUT "ENTER YOUR COMMAND : ";O$ 2215 IF LEFT$(O$,2)="DR" GOTO 2870 2220 O$=LEFT$(O$,1) 2225 IF O$="N" GOTO 2435 2230 IF (O$="S") OR (O$="W") OR (O$="E") GOTO 2440 2235 IF O$="U" GOTO 2465 2240 IF O$="D" GOTO 2480 2245 IF O$="M" GOTO 2505 2250 IF O$="F" THEN ON BL+1 GOTO 2620,2505 2255 IF O$="L" THEN ON BL+1 GOTO 2750,2505 2260 IF O$="O" GOTO 2965 2265 IF O$="G" THEN ON BL+1 GOTO 3185,2505 2270 IF O$="T" THEN PRINT : ON Q=34:REM TO HIDE ROOMS 2570 IF X=A AND Y=B THEN PRINT "<";I$(Q);"> "; : GOTO 2580 2575 PRINT " ";I$(Q);" "; 2580 NEXT Y 2585 PRINT 2590 PRINT 2595 NEXT X 2600 X=A : Y=B 2605 GOTO 2725 2610 PRINT ") LEVEL";Z 2615 GOTO 1950 2620 IF FL <> 0 GOTO 2650 2625 PRINT "** HEY, BRIGHT ONE, YOU'RE OUT OF FLARES!" 2630 GOTO 1950 2635 REM 2640 REM DISPLAY ADJACENT ROOM CONTENTS WITH FLARE 2645 REM 2650 PRINT 2655 FL=FL-1 2660 A=X : B=Y 2665 FOR Q1=A-1 TO A+1 2670 X=FNB(Q1) 2675 FOR Q2=B-1 TO B+1 2680 Y=FNB(Q2) 2685 Q=FNE(L(FND(Z))) 2690 L(FND(Z))=Q 2695 PRINT " ";I$(Q);" "; 2700 NEXT Q2 2705 PRINT 2710 PRINT 2715 NEXT Q1 2720 X=A : Y=B 2725 GOSUB 5570 2730 GOTO 1950 2735 REM 2740 REM DISPLAY CONTENTS OF ADJACENT ROOM WITH LAMP 2745 REM 2750 IF LF <> 0 GOTO 2770 2755 PRINT 2760 PRINT "** YOU DON'T HAVE A LAMP, ";R$(RC);"!" 2765 GOTO 1950 2770 PRINT 2775 PRINT "WHERE DO YOU WANT TO SHINE THE LAMP (N,S,E,W)"; 2780 GOSUB 5415 2785 A=X : B=Y 2790 X=FNB(X+(O$="N")-(O$="S")) RF+1 GOTO 3315,3335 2275 IF O$="Q" GOTO 3390 2280 IF O$<>"H" GOTO 2420 2285 PRINT CHR$(27);"E" 2290 PRINT "*** WIZARD'S CASTLE COMMAND AND INFORMATION SUMMARY ***" 2295 PRINT 2300 PRINT "THE FOLLOWING COMMANDS ARE AVAILABLE :" 2305 PRINT 2310 PRINT "H/ELP N/ORTH S/OUTH E/AST W/EST U/P" 2315 PRINT "D/OWN DR/INK M/AP F/LARE L/AMP O/PEN" 2320 PRINT "G/AZE T/ELEPORT Q/UIT" 2325 PRINT 2330 PRINT "THE CONTENTS OF ROOMS ARE AS FOLLOWS :" 2335 PRINT 2340 PRINT ". = EMPTY ROOM B = BOOK C = CHEST" 2345 PRINT "D = STAIRS DOWN E = ENTRANCE/EXIT F = FLARES" 2350 PRINT "G = GOLD PIECES M = MONSTER O = CRYSTAL ORB" 2355 PRINT "P = MAGIC POOL S = SINKHOLE T = TREASURE" 2360 PRINT "U = STAIRS UP V = VENDOR W = WARP/ORB" 2365 PRINT 2370 PRINT "THE BENEFITS OF HAVING TREASURES ARE :" 2375 PRINT 2380 PRINT "RUBY RED - AVOID LETHARGY PALE PEARL - AVOID LEECH" 2385 PRINT "GREEN GEM - AVOID FORGETTING O 2795 Y=FNB(Y+(O$="W")-(O$="E")) 2800 IF A-X+B-Y <> 0 GOTO 2820 2805 PRINT 2810 PRINT "** THAT'S NOT A DIRECTION, ";R$(RC);"!" 2815 GOTO 1950 2820 PRINT 2825 PRINT "THE LAMP SHINES INTO (";X;",";Y;") LEVEL";Z;"." 2830 PRINT 2835 L(FND(Z))=FNE(L(FND(Z))) 2840 PRINT "THERE YOU WILL FIND ";C$(L(FND(Z)));"." 2845 X=A : Y=B 2850 GOTO 1950 2855 REM 2860 REM TAKE A DRINK FROM A POOL 2865 REM 2870 IF L(FND(Z))=5 GOTO 2890 2875 PRINT 2880 PRINT "** IF YOU WANT A DRINK, FIND A POOL!" 2885 GOTO 1950 2890 Q=FNA(8) 2895 PRINT 2900 PRINT "YOU TAKE A DRINK AND "; 2905 IF Q < 7 THEN PRINT "FEEL "; 2910 ON Q GOTO 2915,2920,2925,2930,2935,2940,2945,2955 2915 ST=FNC(ST+FNA(3)) : PRINT "STRONGER." : GOTO 1950 2920 ST=ST-FNA(3) : PRINT "WEAKER." : ON (1-(ST<1)) GOTO 1950,4910 2925 IQ=FNC(IQ+FNA(3)) : PRINT "SMARTER." : GOTO 1950 2930 IQ=IQ-FNA(3) : PRINT "DUMBER." : ON (1-(IQ<1)) GOTO 1950,4910 2935 DX=FNC(DX+FNA(3)) : PRINT "NIMBLER." : GOTO 1950 2940 DX=DX-FNA(3) : PRINT "CLUMSIER." : ON (1-(DX<1))O 1950 3285 A=FNA(8) : B=FNA(8) : C=FNA(8) 3290 IF FNA(8) < 4 THEN A=O(1) : B=O(2) : C=O(3) 3295 PRINT "***THE ORB OF ZOT*** AT (";A;",";B;") LEVEL";C;"!" 3300 GOTO 1950 3305 PRINT "A SOAP OPERA RERUN!" 3310 GOTO 1950 3315 IF RF <> 0 GOTO 3335 3320 PRINT 3325 PRINT "** YOU CAN'T TELEPORT WITHOUT THE RUNESTAFF!" 3330 GOTO 1950 3335 Z$="X-COORDINATE" 3340 GOSUB 5485 3345 X=Q 3350 Z$="Y-COORDINATE" 3355 GOSUB 5485 3360 Y=Q 3365 Z$="Z-COORDINATE" 3370 GOSUB 5485 3375 Z=Q 3380 O$="T" 3385 GOTO 3450 3390 PRINT 3395 PRINT "DO YOU REALLY WANT TO QUIT NOW"; 3400 GOSUB 5415 3405 PRINT 3410 IF O$="Y" GOTO 3425 3415 PRINT "** THEN DON'T SAY THAT YOU DO!" 3420 GOTO 1950 3425 PRINT 3430 GOTO 5030 3435 REM 3440 REM DISPLAY STATUS INFORMATION 3445 REM 3450 PRINT 3455 IF BL=0 THEN GOSUB 5570 : PRINT 3460 PRINT "STRENGTH =";ST;" INTELLIGENCE =";IQ;" DEXTERITY =";DX 3465 PRINT "TREASURES =";TC;" FLARES =";FL;" GOLD PIECES =";GP 3470 PRINT "WEAPON = ";W$(WV+1);" ARMOR = ";W$(AV+5); 3475  GOTO 1950,4910 2945 Q=FNA(4) : IF Q=RC GOTO 2945 2950 RC=Q : PRINT "BECOME A ";R$(RC);"." : GOTO 1950 2955 SX=1-SX : PRINT "TURN INTO A "; : IF SX=0 THEN PRINT "FE"; 2960 PRINT "MALE ";R$(RC);"!" : GOTO 1950 2965 IF L(FND(Z)) <> 6 GOTO 2985 2970 PRINT 2975 PRINT "YOU OPEN THE CHEST AND" 2980 GOTO 3115 2985 IF L(FND(Z)) <> 12 GOTO 3005 2990 PRINT 2995 PRINT "YOU OPEN THE BOOK AND" 3000 GOTO 3020 3005 PRINT 3010 PRINT "** THE ONLY THING OPENED WAS YOUR BIG MOUTH!" 3015 GOTO 1950 3020 ON FNA(6) GOTO 3025,3040,3050,3060,3075,3090 3025 PRINT "FLASH! OH NO! YOU ARE NOW A BLIND ";R$(RC);"!" 3030 BL=1 3035 GOTO 3105 3040 PRINT "IT'S ANOTHER VOLUME OF ZOT'S POETRY! - YECH!!" 3045 GOTO 3105 3050 PRINT "IT'S AN OLD COPY OF PLAY";R$(FNA(4));"!" 3055 GOTO 3105 3060 PRINT "IT'S A MANUAL OF DEXTERITY!" 3065 DX=18 3070 GOTO 3105 3075 PRINT "IT'S A MANUAL OF STRENGTH!" 3080 ST=18 3085 GOTO 3105 3090 PRINT "THE BOOK STICKS TO YOUR HANDS -" 3095 PRINT "NOW YOU ARE UNABLE TO DRAW YOUR WEAPON!" 31IF LF=1 THEN PRINT " AND A LAMP"; 3480 PRINT 3485 WC=0 3490 Q=FNE(L(FND(Z))) 3495 L(FND(Z))=Q 3500 Z$="YOU NOW HAVE" 3505 PRINT 3510 PRINT "HERE YOU FIND ";C$(Q);"." 3515 IF (Q<7) OR (Q=11) OR (Q=12) GOTO 1950 3520 IF Q=7 THEN GP=GP+FNA(10) : PRINT Z$;GP;"." : GOTO 3105 3525 IF Q=8 THEN FL=FL+FNA(5) : PRINT Z$;FL;"." : GOTO 3105 3530 IF Q > 9 GOTO 3545 3535 IF (O(1)=X) AND (O(2)=Y) AND (O(3)=Z) THEN ON (1-(O$="T")) GOTO 2440,5175 3540 X=FNA(8) : Y=FNA(8) : Z=FNA(8) : GOTO 3450 3545 IF Q=10 THEN Z=FNB(Z+1) : GOTO 3450 3550 IF Q <= 25 OR Q >= 34 GOTO 3580 3555 PRINT 3560 PRINT "IT'S NOW YOURS!" 3565 T(Q-25)=1 3570 TC=TC+1 3575 GOTO 3105 3580 A=L(FND(Z))-12 3585 WC=0 3590 IF (A<13) OR (VF=1) GOTO 4185 3595 PRINT 3600 PRINT "YOU MAY TRADE WITH, ATTACK, OR IGNORE THE VENDOR." 3605 GOSUB 5405 3610 IF O$="I" GOTO 1950 3615 IF O$ <> "A" GOTO 3640 3620 VF=1 3625 PRINT 3630 PRINT "YOU'LL BE SORRY THAT YOU DID THAT!" 3635 GOTO 4185 3640 IF O$="T" GOTO 3660 3645 PRINT 3650 PRINT "** NI00 BF=1 3105 L(FND(Z))=1 3110 GOTO 1950 3115 ON FNA(4) GOTO 3120,3140,3160,3140 3120 PRINT "KABOOM! IT EXPLODES!!" 3125 Q=FNA(6) 3130 GOSUB 4860 3135 ON (1-(ST<1)) GOTO 3105,4910 3140 Q=FNA(1000) 3145 PRINT "FIND";Q;"GOLD PIECES!" 3150 GP=GP+Q 3155 GOTO 3105 3160 PRINT "GAS!! YOU STAGGER FROM THE ROOM!" 3165 L(FND(Z))=1 3170 T=T+20 3175 O$=MID$("NSEW",FNA(4),1) 3180 GOTO 2440 3185 IF L(FND(Z))=11 GOTO 3205 3190 PRINT 3195 PRINT "** IT'S HARD TO GAZE WITHOUT AN ORB!" 3200 GOTO 1950 3205 PRINT 3210 PRINT "YOU SEE "; 3215 ON FNA(6) GOTO 3220,3230,3240,3250,3285,3305 3220 PRINT "YOURSELF IN A BLOODY HEAP!" 3225 ST=ST-FNA(2) : ON (1-(ST<1)) GOTO 1950,4910 3230 PRINT "YOURSELF DRINKING FROM A POOL AND BECOMING ";C$(12+FNA(13));"!" 3235 GOTO 1950 3240 PRINT C$(12+FNA(13));" GAZING BACK AT YOU!" 3245 GOTO 1950 3250 A=X : B=Y : C=Z 3255 X=FNA(8) : Y=FNA(8) : Z=FNA(8) 3260 Q=FNE(L(FND(Z))) 3265 L(FND(Z))=Q 3270 PRINT C$(Q);" AT (";X;",";Y;") LEVEL";Z;"." 3275 X=A : Y=B : Z=C 3280 GOT CE SHOT, ";R$(RC);"!" 3655 GOTO 3595 3660 FOR Q=1 TO 8 3665 A=FNA(Q*1500) 3670 IF T(Q)=0 GOTO 3700 3675 PRINT 3680 PRINT "DO YOU WANT TO SELL ";C$(Q+25);" FOR";A;"GP'S"; 3685 GOSUB 5415 3690 IF O$="Y" THEN TC=TC-1 : T(Q)=0 : GP=GP+A : GOTO 3700 3695 IF O$ <> "N" THEN PRINT Y$ : GOTO 3675 3700 NEXT Q 3705 IF GP >= 1000 GOTO 3725 3710 PRINT 3715 PRINT "YOU'RE TOO POOR TO TRADE, ";R$(RC);"." 3720 GOTO 1950 3725 IF GP < 1250 GOTO 3975 3730 PRINT 3735 PRINT "OK, ";R$(RC);", YOU HAVE";GP;"GP'S AND ";W$(AV+5);" ARMOR." 3740 PRINT 3745 Z$="ARMOR" 3750 GOSUB 5555 3755 PRINT "NOTHING<0> LEATHER<1250> "; 3760 IF GP > 1499 THEN PRINT "CHAINMAIL<1500> "; 3765 IF GP > 1999 THEN PRINT "PLATE<2000>"; 3770 PRINT 3775 GOSUB 5405 3780 PRINT 3785 IF O$="N" GOTO 3850 3790 IF O$="L" THEN GP=GP-1250 : AV=1 : AH=7 : GOTO 3850 3795 IF O$ <> "C" OR GP >= 1500 GOTO 3810 3800 PRINT "** YOU HAVEN'T GOT THAT MUCH CASH ON HAND!" 3805 GOTO 3740 3810 IF O$="C" THEN GP=GP-1500 : AV=2 : AH=14 : GOTO 3850 3815 I80 GOTO 1950 4185 Q1=1+INT(A/2) : Q2=A+2 : Q3=1 4190 IF (C(1,4)>T(1)) OR (BL=1) OR (DX 14 THEN PRINT "YOU CAN ALSO CAST A SPELL." 4225 PRINT 4230 PRINT "YOUR STRENGTH IS";ST;"AND YOUR DEXTERITY IS";DX;"." 4235 GOSUB 5405 4240 IF O$ <> "A" GOTO 4445 4245 IF WV <> 0 GOTO 4265 4250 PRINT 4255 PRINT "** POUNDING ON ";C$(A+12);" WON'T HURT IT!" 4260 GOTO 4700 4265 IF BF <> 1 GOTO 4285 4270 PRINT 4275 PRINT "** YOU CAN'T BEAT IT TO DEATH WITH A BOOK!" 4280 GOTO 4700 4285 IF DX >= FNA(20)+(3*BL) GOTO 4305 4290 PRINT 4295 PRINT "YOU MISSED, TOO BAD!" 4300 GOTO 4700 4305 Z$=RIGHT$(C$(A+12),LEN(C$(A+12))-2) 4310 IF LEFT$(Z$,1)=" " THEN Z$=MID$(Z$,2) 4315 PRINT 4320 PRINT "YOU HIT THE EVIL ";Z$;"!" 4325 Q2=Q2-WV 4330 IF (A <> 9 AND A <> 12) GOTO 4355 4335 IF FNA(8) <> 1 GOTO 4355 4340 PRINT 434F O$ <> "P" OR GP >= 2000 GOTO 3830 3820 PRINT "** YOU CAN'T AFFORD PLATE ARMOR!" 3825 GOTO 3740 3830 IF O$="P" THEN GP=GP-2000 : AV=3 : AH=21 : GOTO 3850 3835 PRINT 3840 PRINT "** DON'T BE SILLY. CHOOSE A SELECTION." 3845 GOTO 3770 3850 IF GP < 1250 GOTO 3975 3855 PRINT 3860 PRINT "YOU HAVE";GP;"GP'S LEFT WITH ";W$(WV+1);" IN HAND." 3865 PRINT 3870 Z$="WEAPON" 3875 GOSUB 5555 3880 PRINT "NOTHING<0> DAGGER<1250> "; 3885 IF GP > 1499 THEN PRINT "MACE<1500> "; 3890 IF GP > 1999 THEN PRINT "SWORD<2000>"; 3895 PRINT 3900 GOSUB 5405 3905 PRINT 3910 IF O$="N" GOTO 3975 3915 IF O$="D" THEN GP=GP-1250 : WV=1 : GOTO 3975 3920 IF O$ <> "M" OR GP >= 1500 GOTO 3935 3925 PRINT "** SORRY SIR, I'M AFRAID I DON'T GIVE CREDIT!" 3930 GOTO 3865 3935 IF O$="M" THEN GP=GP-1500 : WV=2 : GOTO 3975 3940 IF O$ <> "S" OR GP >= 2000 GOTO 3960 3945 PRINT "** YOUR DUNGEON EXPRESS CARD - "; 3950 PRINT "YOU LEFT HOME WITHOUT IT!" 3955 GOTO 3865 3960 IF O$="S" THEN GP=GP-2000 : WV=3 : GOTO 3975 3965 PRINT "** T5 PRINT "OH NO! YOUR ";W$(WV+1);" BROKE!" 4350 WV=0 4355 IF Q2 > 0 GOTO 4700 4360 PRINT 4365 MC=MC-1 4370 PRINT C$(A+12);" LIES DEAD AT YOUR FEET!" 4375 IF H > T-60 GOTO 4395 4380 PRINT 4385 PRINT "YOU SPEND AN HOUR EATING ";C$(A+12);E$(FNA(8));"." 4390 H=T 4395 IF X <> R(1) OR Y <> R(2) OR Z <> R(3) THEN ON (1-(A=13)) GOTO 4420,5305 4400 PRINT 4405 PRINT "GREAT ZOT! YOU'VE FOUND THE RUNESTAFF!";CHR$(7) 4410 R(1)=0 4415 RF=1 4420 Q=FNA(1000) 4425 PRINT 4430 PRINT "YOU NOW GET HIS HOARD OF";Q;"GP'S!" 4435 GP=GP+Q 4440 GOTO 3105 4445 IF O$="R" GOTO 4700 4450 IF O$ <> "C" GOTO 4595 4455 IF IQ >= 15 OR Q3 <= 1 GOTO 4475 4460 PRINT 4465 PRINT "** YOU CAN'T CAST A SPELL NOW!" 4470 GOTO 4195 4475 PRINT 4480 PRINT "WHICH SPELL (WEB, FIREBALL, DEATHSPELL)"; 4485 GOSUB 5415 4490 PRINT 4495 IF O$ <> "W" GOTO 4515 4500 ST=ST-1 4505 WC=FNA(8)+1 4510 ON (1-(ST<1)) GOTO 4700,4910 4515 IF O$ <> "F" GOTO 4560 4520 Q=FNA(7)+FNA(7) 4525 ST=ST-1 4530 IQ=IQ-1 4535 IF (IQ < 1) OR (ST < 1) GOTORY CHOOSING A SELECTION!" 3970 GOTO 3895 3975 IF GP < 1000 GOTO 1950 3980 Z$="STRENGTH" 3985 GOSUB 5525 3990 IF O$ <> "Y" GOTO 4020 3995 GP=GP-1000 4000 ST=FNC(ST+FNA(6)) 4005 Q=ST 4010 GOSUB 5540 4015 GOTO 3975 4020 IF O$ <> "N" THEN PRINT Y$ : GOTO 3980 4025 IF GP < 1000 GOTO 1950 4030 Z$="INTELLIGENCE" 4035 GOSUB 5525 4040 IF O$ <> "Y" GOTO 4070 4045 GP=GP-1000 4050 IQ=FNC(IQ+FNA(6)) 4055 Q=IQ 4060 GOSUB 5540 4065 GOTO 4025 4070 IF O$ <> "N" THEN PRINT Y$ : GOTO 4030 4075 IF GP < 1000 GOTO 1950 4080 Z$="DEXTERITY" 4085 GOSUB 5525 4090 IF O$ <> "Y" GOTO 4120 4095 GP=GP-1000 4100 DX=FNC(DX+FNA(6)) 4105 Q=DX 4110 GOSUB 5540 4115 GOTO 4075 4120 IF O$ <> "N" THEN PRINT Y$ : GOTO 4080 4125 IF (GP<1000) OR (LF=1) GOTO 1950 4130 PRINT 4135 PRINT "DO YOU WANT TO BUY A LAMP FOR 1000 GP'S"; 4140 GOSUB 5415 4145 IF O$ <> "Y" GOTO 4175 4150 GP=GP-1000 4155 LF=1 4160 PRINT 4165 PRINT "IT'S GUARANTEED TO OUTLIVE YOU!" 4170 GOTO 1950 4175 IF O$ <> "N" THEN PRINT Y$ : GOTO 4130 41  4910 4540 PRINT "IT DOES";Q;"POINTS WORTH OF DAMAGE." 4545 PRINT 4550 Q2=Q2-Q 4555 GOTO 4355 4560 IF O$="D" GOTO 4580 4565 PRINT 4570 PRINT "** TRY ONE OF THE OPTIONS GIVEN." 4575 GOTO 4195 4580 PRINT "DEATH . . . "; 4585 IF IQ < FNA(4)+15 THEN PRINT "YOURS!" : IQ=0 : GOTO 4910 4590 PRINT "HIS!" : Q2=0 : GOTO 4360 4595 IF O$="B" AND Q3 <= 1 GOTO 4615 4600 PRINT 4605 PRINT "** CHOOSE ONE OF THE OPTIONS LISTED." 4610 GOTO 4195 4615 IF TC <> 0 GOTO 4635 4620 PRINT 4625 PRINT "ALL I WANT IS YOUR LIFE!" 4630 GOTO 4700 4635 Q=FNA(8) 4640 IF T(Q)=0 GOTO 4635 4645 PRINT 4650 PRINT "I WANT ";C$(Q+25);". WILL YOU GIVE IT TO ME"; 4655 GOSUB 5415 4660 IF O$="N" GOTO 4700 4665 IF O$ <> "Y" THEN PRINT Y$ : GOTO 4645 4670 T(Q)=0 4675 TC=TC-1 4680 PRINT 4685 PRINT "OK, JUST DON'T TELL ANYONE ELSE." 4690 VF=VF+(L(FND(Z))=25) 4695 GOTO 1950 4700 Q3=2 4705 IF WC <= 0 GOTO 4720 4710 WC=WC-1 4715 IF WC=0 THEN PRINT : PRINT "THE WEB JUST BROKE!" 4720 Z$=RIGHT$(C$(A+12),LEN(C$(A+12))-2) 4725 IFF" 5095 PRINT 5100 PRINT "AND IT TOOK YOU";T;"TURNS!" 5105 PRINT 5110 PRINT "ARE YOU FOOLISH ENOUGH TO WANT TO PLAY AGAIN"; 5115 GOSUB 5415 5120 PRINT 5125 IF O$ <> "Y" GOTO 5155 5130 PRINT "SOME ";R$(RC);"S NEVER LEARN!" 5135 PRINT 5140 PRINT "PLEASE BE PATIENT WHILE THE CASTLE IS RESTOCKED." 5145 PRINT 5150 GOTO 1105 5155 IF O$ <> "N" THEN PRINT Y$ : GOTO 5110 5160 PRINT "MAYBE DUMB ";R$(RC);" IS NOT SO DUMB AFTER ALL!" 5165 PRINT 5170 GOTO 5580 5175 PRINT 5180 PRINT "GREAT UNMITIGATED ZOT!" 5185 PRINT 5190 PRINT "YOU JUST FOUND ***THE ORB OF ZOT***!" 5195 PRINT 5200 PRINT "THE RUNESTAFF HAS DISAPPEARED!" 5205 RF=0 5210 OF=1 5215 O(1)=0 5220 GOTO 3105 5225 DATA AN EMPTY ROOM,.,THE ENTRANCE,E,STAIRS GOING UP,U 5230 DATA STAIRS GOING DOWN,D,A POOL,P,A CHEST,C,GOLD PIECES,G 5235 DATA FLARES,F,A WARP,W,A SINKHOLE,S,A CRYSTAL ORB,O 5240 DATA A BOOK,B,A KOBOLD,M,AN ORC,M,A WOLF,M,A GOBLIN,M,AN OGRE,M 5245 DATA A TROLL,M,A BEAR,M,A MINOTAUR,M,A GARGOYLE,M,A CHIMERA,M 5250 DATA A BAF LEFT$(Z$,1)=" " THEN Z$=MID$(Z$,2) 4730 IF WC <= 0 GOTO 4750 4735 PRINT 4740 PRINT "THE ";Z$;" IS STUCK AND CAN'T ATTACK NOW!" 4745 GOTO 4805 4750 PRINT 4755 PRINT "THE ";Z$;" ATTACKS!" 4760 IF DX < FNA(7)+FNA(7)+FNA(7)+3*BL GOTO 4780 4765 PRINT 4770 PRINT "WHAT LUCK, HE MISSED YOU!" 4775 GOTO 4805 4780 PRINT 4785 PRINT "OUCH! HE HIT YOU!" 4790 Q=Q1 4795 GOSUB 4860 4800 IF ST < 1 GOTO 4910 4805 IF O$ <> "R" GOTO 4195 4810 PRINT 4815 PRINT "YOU HAVE ESCAPED!" 4820 PRINT 4825 PRINT "DO YOU WANT TO GO NORTH, SOUTH, EAST, OR WEST"; 4830 GOSUB 5415 4835 IF O$="N" OR O$="S" OR O$="E" OR O$="W" GOTO 2440 4840 PRINT 4845 PRINT "** DON'T PRESS YOUR LUCK, ";R$(RC);"!" 4850 PRINT 4855 GOTO 4825 4860 IF AV=0 GOTO 4900 4865 Q=Q-AV 4870 AH=AH-AV 4875 IF Q < 0 THEN AH=AH-Q : Q=0 4880 IF AH >= 0 GOTO 4900 4885 AH=0 : AV=0 4890 PRINT 4895 PRINT "YOUR ARMOR HAS BEEN DESTROYED . . . GOOD LUCK!" 4900 ST=ST-Q 4905 RETURN 4910 PRINT CHR$(7) 4915 GOSUB 5375 4920 PRINT "A NOBLE EFFORT, OH FORLROG,M,A DRAGON,M,A VENDOR,V,THE RUBY RED,T 5255 DATA THE NORN STONE,T,THE PALE PEARL,T,THE OPAL EYE,T 5260 DATA THE GREEN GEM,T,THE BLUE FLAME,T,THE PALANTIR,T,THE SILMARIL,T 5265 DATA X,"?",NO WEAPON," SANDWICH" 5270 DATA DAGGER," STEW",MACE," SOUP",SWORD," BURGER",NO ARMOR," ROAST" 5275 DATA LEATHER," FILET",CHAINMAIL," TACO",PLATE," PIE" 5280 DATA HOBBIT,ELF,MAN,DWARF 5285 X=FNA(8) : Y=FNA(8) 5290 IF L(FND(Z)) <> 101 GOTO 5285 5295 L(FND(Z))=Q 5300 RETURN 5305 PRINT 5310 PRINT "YOU GET ALL HIS WARES :" 5315 PRINT "PLATE ARMOR" 5320 AV=3 : AH=21 5325 PRINT "A SWORD" 5330 WV=3 5335 PRINT "A STRENGTH POTION" 5340 ST=FNC(ST+FNA(6)) 5345 PRINT "AN INTELLIGENCE POTION" 5350 IQ=FNC(IQ+FNA(6)) 5355 PRINT "A DEXTERITY POTION" 5360 DX=FNC(DX+FNA(6)) 5365 IF LF=0 THEN PRINT "A LAMP" : LF=1 5370 GOTO 4420 5375 FOR Q=1 TO 64 5380 PRINT "*"; 5385 NEXT Q 5390 PRINT 5395 PRINT 5400 RETURN 5405 PRINT 5410 PRINT "YOUR CHOICE"; 5415 INPUT O$ 5420 O$=LEFT$(O$,1) 5425 RETURN 5430 PRINT "HOWMERLY LIVING ";R$(RC);"!" 4925 PRINT 4930 PRINT "YOU DIED DUE TO LACK OF "; 4935 IF ST < 1 THEN PRINT "STRENGTH." 4940 IF IQ < 1 THEN PRINT "INTELLIGENCE." 4945 IF DX < 1 THEN PRINT "DEXTERITY." 4950 PRINT 4955 Q3=1 4960 PRINT "AT THE TIME YOU DIED, YOU HAD :" 4965 GOTO 5055 4970 Q3=0 4975 PRINT 4980 PRINT "YOU LEFT THE CASTLE WITH"; 4985 IF OF=0 THEN PRINT "OUT"; 4990 PRINT " THE ORB OF ZOT." 4995 PRINT 5000 IF OF=0 GOTO 5030 5005 PRINT 5010 PRINT "AN INCREDIBLY GLORIOUS VICTORY!!" 5015 PRINT 5020 PRINT "IN ADDITION, YOU GOT OUT WITH THE FOLLOWING :" 5025 GOTO 5050 5030 PRINT 5035 PRINT "A LESS THAN AWE-INSPIRING DEFEAT." 5040 PRINT 5045 PRINT "WHEN YOU LEFT THE CASTLE, YOU HAD :" 5050 IF Q3=0 THEN PRINT "YOUR MISERABLE LIFE!" 5055 FOR Q=1 TO 8 5060 IF T(Q)=1 THEN PRINT C$(Q+25) 5065 NEXT Q 5070 PRINT W$(WV+1);" AND ";W$(AV+5); 5075 IF LF=1 THEN PRINT " AND A LAMP"; 5080 PRINT 5085 PRINT "YOU ALSO HAD";FL;"FLARES AND";GP;"GOLD PIECES" 5090 IF RF=1 THEN PRINT "AND THE RUNESTA  MANY POINTS DO YOU WISH TO ADD TO YOUR ";Z$; 5435 INPUT O$ 5440 PRINT 5445 Q=VAL(O$) 5450 IF Q=0 AND ASC(O$) <> 48 THEN Q=-1 5455 IF Q<0 OR Q>OT OR Q<>INT(Q) THEN PRINT "** "; : GOTO 5430 5460 OT=OT-Q 5465 RETURN 5470 INPUT O$ 5475 Q=INT(VAL(O$)) 5480 RETURN 5485 PRINT 5490 PRINT Z$; 5495 INPUT O$ 5500 Q=INT(VAL(O$)) 5505 IF Q > 0 AND Q < 9 THEN RETURN 5510 PRINT 5515 PRINT "** TRY A NUMBER FROM 1 TO 8." 5520 GOTO 5485 5525 PRINT 5530 PRINT "DO YOU WANT TO BUY A POTION OF ";Z$;" FOR 1000 GP'S"; 5535 GOTO 5415 5540 PRINT 5545 PRINT "YOUR ";Z$;" IS NOW";Q;"." 5550 RETURN 5555 PRINT 5560 PRINT "THESE ARE THE TYPES OF ";Z$;" YOU CAN BUY :" 5565 RETURN 5570 PRINT "YOU ARE AT (";X;",";Y;") LEVEL";Z;"." 5575 RETURN 5580 END ARE THE * * WIZARD'S CASTLE GAME FROM JULY/AUGUST 1980 * ISSUE OF RECREATIONAL COMPUTING MAGAZINE * * ORIGINAL EXIDY SORCERER VERSION BY JOSEPH R. POWER * MODIFIED HEATH MICROSOFT BASIC VERSION BY J.F.STETSON * WIZARD'S CASTLE IS A FTES OF STRENGTH (ST), INTELLIGENCE (IQ), AND DEXTERITY (DX). IN ADDITION, THERE ARE SOME OTHER POINTS WHICH YOU MAY DISTRIBUTE BETWEEN THESE THREE ATTRIBUTES AS YOU WISH. * YOUR ST, IQ, AND DX MAY BE ANY NUMBER FROM 1 TO 18. IF ANY OF THE THREE DROPS BELOW 1, YOU HAVE DIED. FOR ALL THREE ATTRIBUTES, THE LARGER THE NUMERICAL VALUE, THE BETTER. EACH CHARACTER ALSO STARTS THE GAME WITH 60 GOLD PIECES (GP'S) WITH WHICH TO PURCHASE SOME, NONE, OR ALL OF THE FOLLOWING ITEMS : * ARMOR YOU MAY BUY PLATE ARMOR FOR 30 GP'S, CHAINMAIL FOR 20 GP'S, OR LEATHER FOR 10 GP'S. YOU CAN WEAR ONLY ONE SUIT OF ARMOR AT A TIME. THE MORE EXPENSIVE THE ARMOR, THE MORE DAMAGE IT WILL ABSORB. * WEAPON YOU MAY BUY A SWORD FOR 30 GP'S, A MACE FOR 20 GP'S, OR A DAGGER FOR 10 GP'S. YOU CAN ONLY CARRY A SINGLE WEAPON AT A TIME. THE MORE EXPENSIVE THE WEAPON, THE MORE DAMAGE IT DOES TO THE VARIOUS MONSTERS. * LAMP IF, AFTANTASY GAME ABOUT EQUAL IN COMPLEXITY TO THE SEVERAL VERSIONS OF "ADVENTURE" WHICH ARE NOW AVAILABLE FOR MICROCOMPUTERS AND IS A VERY LARGE "BASIC" PROGRAM IN ITS OWN RIGHT. UNLIKE ADVENTURE, THE CASTLE IS RANDOMLY STOCKED FOR EACH GAME, WHICH MEANS THAT WINNING ONE DOES NOT DETRACT FROM PLAYING FUTURE GAMES. AT PRESENT, THERE ARE VERISONS OF WIZARD'S CASTLE FOR THE EXIDY SORCERER, TRS-80, HP-2000 AND HEATH H-8/H-89 COMPUTERS. * * BACKGROUND HISTORY * MANY CYCLES AGO, IN THE KINGDOM OF N'DIC, THE GNOMIC WIZARD ZOT FORGED HIS GREAT *ORB OF POWER*. SOON AFTER DOING THIS, HE VANISHED, LEAVING BEHIND HIS VAST SUBTERRANEAN CASTLE FILLED WITH ESURIENT MONSTERS, FABULOUS TREASURES, AND THE INCREDIBLE *ORB OF ZOT*. FROM THAT TIME HENCE, MANY A BOLD YOUTH HAS VENTURED INTO THE WIZARD'S CASTLE. AS YET, *NONE* HAS EVER EMERGED VICTORIOUS. * * INTRODUCTION * WIZARD'S CASTLE IS A COMPUTERIZED SIMULATION OF ONE OF THE MOST COMMON AND POPULAR FANTASY MOTIFS - THE LONE ADVENTURER'S QUEST WITHIN ER SELECTING ARMOR AND A WEAPON, YOU HAVE 20 GP'S OR MORE LEFT, YOU MAY BUY A LAMP FOR 20 GP'S. HAVING THE LAMP WILL ALLOW YOU TO LOOK INTO AN ADJACENT ROOM WITHOUT HAVING TO ENTER IT. * FLARES IF, AFTER ALL OTHER PURCHASES, YOU HAVE ANY MONEY LEFT, YOU MAY BUY FLARES FOR 1 GP EACH. LIGHTING A FLARE REVEALS THE CONTENTS OF ALL THE ROOMS SURROUNDING YOUR CURRENT LOCATION. * ONCE YOU HAVE CREATED AND EQUIPPED A CHARACTER, YOU ARE READY TO ENTER THE CASTLE AND BEGIN YOUR ADVENTURES. * * THE CASTLE * THE CASTLE IS ARRANGED AS AN 8 X 8 X 8 THREE DIMENSIONAL MATRIX. THIS MEANS THAT THERE ARE 8 LEVELS WITH 64 ROOMS ON EACH LEVEL. THE CASTLE LEVELS ARE NUMBERED FROM 1 (THE TOP LEVEL) TO 8 (THE BOTTOM LEVEL). EACH CASTLE LEVEL IS CONSTRUCTED LIKE A DOUGHNUT IN THAT THE NORTH EDGE IS CONNECTED TO THE SOUTH EDGE AND THE EAST EDGE IS CONNECTED TO THE WEST EDGE. IN A SIMILAR FASHION, THE SINKHOLES (EXPLAINED LATER) ON LEVEL 8 WILL "DROP" YOU DOWN TO AN IMMENSE UNDER- GROUND LABYRINTH. EACH GAME IS SEPARATE FROM ALL OTHERS, SO THE GAME IS A CHALLENGE EVEN AFTER YOU HAVE WON SEVERAL TIMES. EACH GAME WILL RESULT IN A WIN OR A LOSS, DEPENDING ON A PLAYER'S SKILL AND LUCK. THE INSTRUCTIONS WHICH FOLLOW EXPLAIN THE RULES AND OPTIONS OF THE GAME. IF AT ANY TIME, HOWEVER, YOU ARE NOT SURE OF WHAT TO DO - EXPERIMENT. THE PROGRAM IS DESIGNED TO PREVENT INVALID INPUTS. * * CHARACTER CREATION * AT THE START OF EACH GAME, YOU WILL BE ASKED A NUMBER OF QUESTIONS ABOUT WHAT TYPE OF CHARACTER YOU WILL HAVE. YOU MUST MAKE CHOICES ABOUT THE FOLLOWING : * RACE YOU MAY BE AN ELF, DWARF, MAN, OR HOBBIT. EACH RACE STARTS WITH A TOTAL OF 32 POINTS (EXCEPT HOBBITS, WHO ONLY GET 28), BUT THEY ARE DISTRIBUTED DIFFERENTLY FOR EACH RACE. * SEX YOU MAY BE MALE OR FEMALE. BOTH ARE EQUAL IN ABILITY AND IN THE NUMBER OF POINTS. BE CREATIVE WITH YOUR RESPONSE. * POINTS EACH CHARACTER STARTS WITH A NUMBER OF POINTS FOR THE ATTRIBU LEVEL 1. THE ONLY ROOM WHICH DOES NOT FUNCTION LIKE THIS IS THE ENTRANCE / EXIT ROOM OF THE CASTLE WHICH IS ALWAYS LOCATED AT LOCATION (1,4) LEVEL 1. GOING NORTH FROM THIS ROOM TAKES YOU OUT OF THE CASTLE AND ENDS THE GAME. * EACH ROOM OF THE CASTLE WILL HAVE AS CONTENTS ONE OF THE FOLLOWING : * E THE ENTRANCE / EXIT ROOM . AN EMPTY ROOM CONTAINING NOTHING U STAIRS GOING UP TO THE LEVEL ABOVE D STAIRS GOING DOWN TO THE LEVEL BELOW P A MAGIC POOL FROM WHICH YOU MAY DRINK C A CHEST WHICH YOU MAY OPEN B A BOOK WHICH YOU MAY OPEN G FROM 1 TO 10 GOLD PIECES F FROM 1 TO 3 FLARES W A WARP TO ANOTHER RANDOM LOCATION M A MONSTER (ONE OF 12 DIFFERENT TYPES) V A VENDOR WHICH YOU MAY ATTACK, IGNORE OR TRADE WITH O A CRYSTAL ORB (THIS IS NOT THE *ORB OF ZOT*) S A SINKHOLE (A ROOM WITH NO FLOOR) T A TREASURE (ONE OF THE 8 IN THE CASTLE) * THE SINGLE LETTERS ARE THE ABBREVIATIONS FOR THE ROOM CONTENTS THE OPPOSITE EDGE, YOU WILL ALWAYS SEE NINE ROOMS WITH YOUR LOCATION IN THE CENTER. EACH FLARE BURNS AWAY TO NOTHING. YOU MAY LIGHT FLARES AS LONG AS YOU HAVE SOME AND YOU ARE NOT BLIND OR RETREATING FROM A MONSTER. FOR THOSE WHO ARE FAMILIAR WITH ANY OF THE COMMON "STAR TREK" GAMES, A FLARE WORKS MUCH LIKE A LONG RANGE SENSOR SCAN WITH THE ADDITION OF WRAPAROUND. * LAMP ALLOWS YOU TO SHINE YOUR LAMP INTO ANY ONE OF THE ROOMS NORTH, SOUTH, EAST, OR WEST OF YOUR CURRENT POSITION, REVEALING THE ROOM'S CONTENTS. UNLIKE FLARES, THE LAMP MAY BE USED REPEATEDLY. YOU MAY USE YOUR LAMP AT ANY TIME UNLESS YOU DON'T HAVE A LAMP, ARE BLIND, OR ARE RETREATING FROM A MONSTER. * OPEN CAUSES YOU TO OPEN A BOOK OR A CHEST WHICH IS IN THE ROOM WITH YOU. * GAZE CAUSES YOU TO GAZE INTO A CRYSTAL ORB. WHEN YOU SEE YOURSELF IN A BLOODY HEAP, YOU LOSE 1 OR 2 POINTS OF STRENGTH. WHEN YOU SEE THE LOCATION OF THE *ORB OF  WHICH ARE DISPLAYED WHENEVER YOU LOOK AT YOUR MAP OR LIGHT A FLARE. WHEN YOU LOOK AT YOUR MAP, THE ROOM YOU ARE CURRENTLY LOCATED IN IS BRACKETED BY < >. * * PLAYER COMMANDS * WHENEVER THE PROGRAM ASKS FOR A COMMAND, YOU MUST DECIDE WHAT ACTION YOU WISH TO PERFORM. IF YOUR CHOICE IS NOT VALID IN YOUR CURRENT SITUATION, THE PROGRAM WILL INFORM YOU AND ALLOW YOU TO TRY AGAIN. THE FOLLOWING IS A LIST OF THE COMMANDS WHICH THE PROGRAM UNDERSTANDS, WITH A DESCRIPTION OF THEIR EFFECTS AND RESTRICTIONS : * NORTH MOVES YOU TO THE ROOM NORTH OF YOUR PRESENT POSITION. WHEN YOU GO NORTH FROM THE ENTRANCE / EXIT ROOM, THE GAME TERMINATES. IN ALL OTHER CASES, THE NORTH EDGE WRAPS AROUND TO THE SOUTH. * SOUTH MOVES YOU TO THE ROOM SOUTH OF YOUR PRESENT POSITION. IN ALL CASES, THE SOUTH EDGE WRAPS AROUND TO THE NORTH EDGE. * EAST MOVES YOU TO THE ROOM EAST OF YOUR PRESENT POSITION. IN ALL CASES, THE EAST EDGE WRAPS AROUND TO THE WEST EDGEZOT*, THERE IS ONLY A 50% CHANCE THAT IT IS CORRECT. YOU CANNOT GAZE WHEN YOU ARE BLIND OR WHEN YOU ARE NOT IN A ROOM CONTAINING A CRYSTAL ORB. * TELE- ALLOWS YOU TO TELEPORT DIRECTLY INTO A SPECIFIC ROOM ANYWHERE IN PORT THE CASTLE. THIS IS THE ONLY WAY TO ENTER THE ROOM CONTAINING THE *ORB OF ZOT*. YOU MUST HAVE THE RUNESTAFF IN ORDER TO TELEPORT. * QUIT ALLOWS YOU TO END THE GAME WHILE YOU ARE STILL IN THE CASTLE. YOU WILL BE ASKED IF YOU REALLY WANT TO QUIT, IN CASE YOU MADE A MISTAKE OR WANT TO CHANGE YOUR MIND. IF YOU QUIT, YOU WILL LOSE THE GAME. * HELP CAUSES A SUMMARY OF THE AVAILABLE COMMANDS, ABBREVIATIONS USED IN DESCRIBING THE CONTENTS OF ROOMS, AND THE BENEFITS OF POSSESSING EACH OF THE TREASURES TO BE DISPLAYED AT ANY TIME DURING THE GAME. * ALL OF THE COMMANDS, EXCEPT DRINK, CAN BE ABBREVIATED TO THEIR FIRST LETTER (M FOR MAP, Q FOR QUIT, ETC.). THE ABBREVIATION FOR DRINK IS "DR" (TO DI. * WEST MOVES YOU TO THE ROOM WEST OF YOUR PRESENT POSITION. IN ALL CASES, THE WEST EDGE WRAPS AROUND TO THE EAST EDGE. * UP CAUSES YOU TO ASCEND STAIRS GOING UP. YOU MUST BE IN A ROOM CONTAINING STAIRS GOING UP. * DOWN CAUSES YOU TO DESCEND STAIRS GOING DOWN. YOU MUST BE IN A ROOM CONTAINING STAIRS GOING DOWN. * DRINK CAUSES YOU TO TAKE A DRINK FROM A MAGIC POOL. YOU MAY REPEAT THIS COMMAND AS OFTEN AS YOU WISH, BUT YOU MUST BE IN A ROOM CONTAINING A MAGIC POOL. * MAP CAUSES A MAP OF THE LEVEL YOU ARE CURRENTLY ON TO BE PRINTED. ALL UNEXPLORED ROOMS ARE DISPLAYED AS "?". ALL OTHER ROOMS ARE DISPLAYED AS THEIR ONE CHARACTER ABBREVIATIONS. YOU MAY LOOK AT YOUR MAP AT ANY TIME UNLESS YOU ARE EITHER BLIND OR ARE RETREATING FROM A MONSTER. * FLARE CAUSES ONE OF YOUR FLARES TO BE LIT, REVEALING THE CONTENTS OF ALL ROOMS SURROUNDING YOUR CURRENT POSITION. BECAUSE EACH EDGE IS JOINED TO STINGUISH IT FROM "D" FOR THE DOWN COMMAND). * * MAGIC SPELLS * WHENEVER YOUR INTELLIGENCE (IQ) BECOMES 15 OR HIGHER, YOU GAIN THE OPTION TO CAST A MAGIC SPELL ON A MONSTER IF YOU HAVE THE VERY FIRST COMBAT OPTION. THE THREE SPELLS AND THEIR EFFECTS ARE AS FOLLOWS : * WEB TRAPS THE MONSTER IN A STICKY WEB SO THAT IT CAN'T FIGHT BACK AS YOU ATTACK IT. THIS SPELL LASTS FROM 2 TO 9 TURNS AND COSTS YOU ONE STRENGTH (ST) POINT. * FIRE- HITS THE MONSTER WITH A BALL OF FLAME THAT CAUSES BETWEEN 2 AND 14 BALL POINTS WORTH OF DAMAGE INSTANTLY. IT COSTS ONE STRENGTH POINT AND ONE INTELLIGENCE POINT. * DEATH- IS A CONTEST OF WILLS BETWEEN THE MONSTER AND YOURSELF. WHOEVER SPELL HAS THE LOWER INTELLIGENCE DIES AT ONCE. IT COSTS NOTHING TO USE, BUT IT IS VERY RISKY. EVEN WITH AN IQ OF 18 (THE HIGHEST POSSIBLE), YOU STILL HAVE A 25% CHANCE OF BEING KILLED. * * TREASURES, CURSES, BLINDNESS, AND SUCH * IN THE CASTLE ARE EIGHT RANDOMLY PLACH THEM. KILLING A VENDOR, HOWEVER, WILL GIVE YOU NEW PLATE ARMOR, A SWORD, ONE OF EACH KIND OF POTION, AND A LAMP (IF YOU DON'T HAVE ONE), IN ADDITION TO HIS HOARD OF BETWEEN 1 AND 1000 GOLD PIECES. TO END HOSTILITIES AND REESTABLISH TRADING PRIVILEGES, YOU MUST BRIBE ANY VENDOR IN THE CASTLE WITH THE TREASURE OF HIS CHOICE. * * MONSTERS AND THE RUNESTAFF * THERE ARE 12 TYPES OF MONSTERS IN THE CASTLE : * KOBOLD, ORC, WOLF, GOBLIN, OGRE, TROLL BEAR, MINOTAUR, GARGOYLE, CHIMERA, BALROG, DRAGON * PLEASE NOTE THAT EACH TIME YOU STRIKE A GARGOYLE OR A DRAGON, THERE IS A POSSIBILITY THAT YOUR WEAPON WILL BE SHATTERED. * EACH MONSTER POSSESSES A HOARD OF FROM 1 TO 1000 GP'S WHICH YOU OBTAIN WHEN YOU KILL THE MONSTER. IN ADDITION, ONE OF THE MONSTERS IS CARRYING THE RUNESTAFF (YOU WON'T KNOW WHICH ONE UNTIL YOU KILL IT). YOU MUST HAVE THE RUNESTAFF TO TELEPORT, AND WHEN YOU TELEPORT INTO THE CASTLE ROOM WHICH CONTAINS THE *ORB OF ZOT*, THE RUNESTAFF DISAPPEARS (YOU MUST FIND YOUR WAY TO THED TREASURES : * THE RUBY RED - WARDS OFF THE CURSE OF LETHARGY. THE PALE PEARL - WARDS OFF THE CURSE OF THE LEECH. THE OPAL EYE - CURES BLINDNESS. THE GREEN GEM - WARDS OFF THE CURSE OF FORGETFULLNESS. THE BLUE FLAME - DISSOLVES BOOKS STUCK TO YOUR HANDS. * THE NORN STONE - HAS NO SPECIAL POWER. THE PALANTIR - HAS NO SPECIAL POWER. THE SILMARIL - HAS NO SPECIAL POWER. * THERE ARE THREE CURSES : * LETHARGY - THIS GIVES THE MONSTERS THE FIRST ATTACK WHICH PREVENTS YOU FROM BRIBING THEM OR CASTING SPELLS ON THEM. * LEECH - THIS TAKES FROM 1 TO 5 GP'S FROM YOU EACH TURN UNTIL YOU HAVE NO GOLD PIECES LEFT. * FORGETFULLNESS - THIS CAUSES YOU TO FORGET WHAT YOU KNOW ABOUT THE CASTLE. YOUR MAP WILL SLOWLY RETURN TO ALL QUESTION MARKS. HOWEVER, THE CONTENTS OF THE ROOMS IN THE CASTLE ARE THE SAME. * IN ADDITION TO NULLIFYING THE EFFECTS OF THE CURSES, THE TREASURES ALSO PROVIDE PROTECTION FROM TWO UNDESIRABLE THINGS WHICH CAN HAPPEN WHEN YOU OPEN A BOOK. THESEE CASTLE EXIT WITHOUT IT). * * WARPS AND THE *ORB OF ZOT* * ALL BUT ONE OF THE ROOMS DENOTED AS "W" REALLY ARE WARPS, AND WALKING, FALLING, OR TELEPORTING INTO THEM WILL CAUSE YOU TO MOVE TO ANY ROOM IN THE CASTLE AT RANDOM. THE ONE EXCEPTION IS THE *ORB OF ZOT*, WHICH IS DISGUISED AS A WARP. WALKING INTO THIS ROOM ALWAYS CAUSES YOU TO MOVE ONE ROOM FURTHER IN THE SAME DIRECTION. TO ACTUALLY ENTER THIS ROOM, YOU MUST USE THE RUNESTAFF TO TELEPORT IN. AT THIS POINT, YOU WILL ACQUIRE THE GREAT *ORB OF ZOT*, AND THE RUNESTAFF WILL VANISH. TO WIN THE GAME, YOU MUST LEAVE THE CASTLE WITH THE *ORB OF ZOT*. REMEMBER THAT CRYSTAL ORBS ARE NOT THE *ORB OF ZOT* AND CANNOT BE PICKED UP. * * ERROR MESSAGES * ANY TIME YOU RECEIVE A MESSAGE STARTING WITH "**", IT MEANS THAT THE LAST THING YOU TYPED WAS UNACCEPTABLE TO THE PROGRAM AT THAT TIME. FOR INSTANCE, IF YOU GET THE MESSAGE "** IT'S HARD TO GAZE WITHOUT AN ORB.", THIS MEANS THAT YOU TRIED TO GAZE FROM A ROOM WHICH DID NOT CONTAIN A CRYS ARE GOING BLIND, WHICH PREVENTS YOU FROM SEEING YOUR MAPS, LIGHTING FLARES, USING YOUR LAMP, GAZING INTO ORBS, AND BEING INFORMED OF YOUR PRESENT LOCATION, AND SECONDLY, HAVING THE BOOK STICK TO YOUR HANDS, WHICH PREVENTS YOU FROM USING YOUR WEAPON TO FIGHT MONSTERS (YOU CAN STILL CAST SPELLS AT THEM IF YOU ARE SMART ENOUGH, HOWEVER). * * VENDORS * ON EVERY LEVEL IN THE CASTLE, THERE ARE VENDORS WHO ARE MORE THAN WILLING TO SELL YOU VARIOUS ITEMS AT GROSSLY INFLATED PRICES. NORMALLY, THE VENDORS WILL MAKE YOU AN OFFER FOR EVERY TREASURE YOU HAVE, AND THEN, DEPENDING ON THE AMOUNT OF GOLD YOU HAVE, WILL SELL YOU NEW ARMOR, A NEW WEAPON, POTIONS OF STRENGTH, INTELLIGENCE AND DEXTERITY (NO MATTER HOW MANY POTIONS YOU BUY, THE MAXIMUM AMOUNT OF THESE ATTRIBUTES YOU CAN HAVE IS 18), AND A LAMP, IF YOU DON'T ALREADY HAVE ONE. IF YOU CHOOSE TO ATTACK A VENDOR, YOU WILL THEN ANTAGONIZE EVERY VENDOR IN THE CASTLE, AND THEY WILL ALL REACT LIKE MONSTERS. YOU WILL ALSO LOSE THE ABILITY TO TRADE WITTAL ORB. YOU ARE ALWAYS REQUIRED TO REDO YOUR LAST RESPONSE WHEN YOU RECEIVE AN "**" TYPE MESSAGE. * * GOOD LUCK, AND BEWARE! * EOF S THE *ORB OF ZOT*, WHICH IS DISGUISED AS A WARP. WALKING INTO THIS ROOM ALWAYS CAUSES YOU TO MOVE ONE ROOM FURTHER IN THE SAME DIRECTION. TO ACTUALLY ENTER THIS ROOM, YOU MUST USE THE RUNESTAFF TO TELEPORT IN. AT THIS POINT, YOU WILL ACQUIRE THE GREAT *ORB OF ZOT*, AND THE RUNESTAFF WILL VANISH. TO WIN THE GAME, YOU MUST LEAVE THE CASTLE WITH THE *ORB OF ZOT*. REMEMBER THAT CRYSTAL ORBS ARE NOT THE *ORB OF ZOT* AND CANNOT BE PICKED UP. * * ERROR MESSAGES * ANY TIME YOU RECEIVE A MESSAGE STARTING WITH "**", IT MEANS THAT THE LAST THING YOU TYPED WAS UNACCEPTABLE TO THE PROGRAM AT THAT TIME. FOR INSTANCE, IF YOU GET THE MESSAGE "** IT'S HARD TO GAZE WITHOUT AN ORB.", THIS MEANS THAT YOU TRIED TO GAZE FROM A ROOM WHICH DID NOT CONTAIN A CRYS$ $]5 ر|`JgOy- T%OEO?%+BG&K|&,,^QE@5hj,N[m2@2Q+BL1yd@tYn' [(]X(~_2qtw4@B!E|D{>|iuo|YY*~Ӡ@s&[ܙm00O|Ղe-_3V0%h gnȅ{+'EڙNՅx~/I"Il$?+ӆTO2 Sߦ> @2H EwT!t*O5gS&g&5H CUAI1z̭&9ãTJtD߻5+MTk| _A-"< YU?>%$hB IrHi9“x@?7#%h/փ3.c{B&JehRsDT۳N$B JSX_2 Ah]R eҨv-Ź@B>kXh_  **JhR #NRAvrcz]*l*VR i.$|$ֲ K fR7* =4sO\>&2#Úd \)\ &&eY$-K36>\Qpe=꒵(QٱHTm )gVq="<%UD Le,*u8햔9)mD6y7.x [Q_ Wwp|kQP g}ojrAb=kؗO@E.,*Ύ11TB7ZOcf?Tc*%)r CLASICDS.TXT!IB0"A,Gn|  TNVd|1rQ5QRHg[NQ=|$K_G L=_=Y|1s|% +zJk1h" pVO?`q'8;8ۓ]7+{9y9ŐrD8<"$S_1R @s=$͡V9ω e.1e#$}l9Üg QH [_ W-`zkJgNOoM*1ּP΍xG\襢: VyNQ1+Y+1p=Zy:g 6 E9%uJc|#ZB BbQN|9@V=R[|3n5iz"di1sZ=R 591qz!=D9+%(\ A N$CZz,xfyH#9\%A|zlZLK%" QޕS<ҭ*'q PS_FR|*Tzhle|gZ(uϏ?+~V Fy C=!/R^Y|I6|6Х-S;enB1vy P\3> @Vϯm7ĵHZnj]3DJm?+1sjܫ!Hİgυ,|mQ E9N c;z%oDckV`bÍqv,+[əҐRܝ͗=՗(Q–ߖJD?,n FF=Y= K19 i!+ym# Tl RV09zHR͂$9z1-Tl<ېZ53LlA6@*A(SZ*)5n&D(-BBQ7ϥZ톑|Oƫa8aƔϗXHB{*_{%C:mxnn[5?mbyebW2ݖ0eѳGZ/xY/mTc:@9U,aGR&P蘰[OZRAMQ:Q,kY$W_ZMD5ҪmoPM9|(X cڜߏ ,ҼJ!?+3 E̵T Q`lJd8H\ @f(\ߢ &x+xaAc; 0\?`y-*8şfU S!3&bkTu}Z9VgBNl,$TJkPr/':Q98'#55<=/Z;ec~$RxԂ jdSPFhر@+8KD4ؔ!0qźG+%> ߨ4(&NC3@M[d27+e:\+9åSGTZ!#m$O*yy̾}]eTAz Cilyn-f1zٵ Q^,ʴzf,~wt0Dо/+\B)C&JoE+gnȇzG9mBo?lD(]׭vF>x D @Y-Pm9=ڏ3G 6,XIIjzgBqѸ4$s! LÇUC 3C9Uۨ3Xpd5j*xyVvUa?(~Hn%;$>c4+e<(_!vxYj,Q &Uz׺d9By~I.QIm'P,‘uܙPAX뤁VJ[ *iBV$>QC\!l k~5"#;JpJt:};_"kϫA<Ң$.g".l2sBX4:Mw"n4_PudT$5P/V!p4J;`6Y'kC"n4^hļ0|Kᐓ3J 1aށaܯ1ҩ{&+T#_L_] :˱$ey܍բΏСx+r"6=Zu@j ɟ2kС B#FP* 2* Zk6B΀C :&6j ½ G~= WO_)hСxaJ4B5b p- 2vq"#;ٻ65!\;Сxgr"3l3h#[ 0/I l3cj ɗ½ uO~ȓԿ *hfmngNR} %/F92^չ8;ОhO[հwSu;&$ž|+Оh2+J{׸)+sNRiVތr MU G&!!暅n ^_`}hRiVތr MU G=iVތf$r MU [+~RiVތ3_`q 1暅n\=]@io1tJշ阗>wɏI:|=IЉY>BDqt0&T8[^7+y>OBF9\吔TAϬ9ZdBM?kAxV\Tj}eƔq*E0RD·Q-^Vٵpxq獤UPqKS dd8%ݗ&yUZWkۃ6O$Q;jwd P# NؓbDg=Su(ݷKMJkhj0$4F B[fq-IqCb!_΋8N},f"8  n(,5.),U BFlVɀf" iqv| K&ĸUw~ Z>RE=bkb A "AA+3*_'G9B[|zDhQ氙S4FƋ$0.?Wb9Ϟ@AjQaA7Ji$"E^9'@|"tQHjaF"r.vx ؍O3d4{7 wh—ͨcwTeȲep "Ή ПHUO[_ih]ԬZM>_fĕV{i1 i^b3-48.1|XKGBGS2x(eֹ׭TdR6ngũfyI߉c {K|~UX :zQi`iQO [#XPVg*#U]tcD15b(Uz%W\jȟt"`JH]U ZjE΁ 7D9gMBn#- k>T4,Y%JY{kk]9$M[ 84PQQC-R SBOTOF< JR$"nh~ӭkk4xmmm~)%FŒbRmms(F|xmS؎2|Ѕ=[9$M[ 84P%Bv_qg߀e*>i(NRC OFUc,I`3,Td{N2t.ܢ+i,TdAj(S /2uY ʅmc!_ _5SREPŔhg,Q]|ސ?BUH[BQ2BOyV_,j-lqZF#jQ D&w%g +ݾH) I!u{׸`8, [T.ǖ1T@f]!J[0m7'U,r;Ym;RiJU?ݧRXItDOOj_zqhu0-AM3hu0x>JiƊM0Ud϶(]y3-jK ƃ$pI?Ic΀7+~3B~-3kUb0(+_ޜUb0CBDrBJ^"UκG@ rT?'̖/49 3؋}+lrH17x)h16sRbAR> =g}y\}o^ES4:"tōLEFsv'|e(@g;W|V˒ Jcb,vF$݅ .4.t|0rjQ䯑61RdA9&ٸxܤՆNB/yYK ~Ӣ|ol5 iI#&Ʉ]wZ͚Yذl5.!Y (&n@0((IYolEғ!&R@MV hөol"YR@M_DwtϘ_؎iol"YR@M_~Tml"YR@M_ FHߟ2 olEAYf2 q<<&Ʉ]AM%y>UTYJCIolEozoc-: ;-xlI,*t<\&Ɍ61xU+st{/谢lg-+JYR@MU_eP;M\ Pbn"OĖ&ɆyyG0y"fGn҇Tm<떎 T# } 2 o&[!;woP=:WБd1HSe^u*`y 8,!1 1ËՆ>? N1 &ɀeT?MO$A49*%F-$ܭI{+ Ndp>;'BLMQ_cWg,r;Y_FRkBF evuː,r;S<BEI* :GSK!=sI al;uhCBDu(4Q aBIX?m9,O.(L) >e-ly'D 1xY,LIy4zP?FpY'b) ʡr;Y|.c )$M[ ٴg,#="3BӜhf_,#/A="3e< $8,'m!;P2 o&<'U,'mL_ 2v؄9$M[ 83,mCBDz(ߖZRbW/,m!;P2 o&Ŝj",یJif )$M[ 83kuY 8iZӵuR4.A6s\U,)&mΣ*CBDu^:!,)&m55"C1pbnYR@8Yg"Jm~1u/ٔ2ea4Aoֽdӂ*8=ͣr_`R~ETY5Ő7+~ 5ޠ - N!;K~ 5ޠ -;$Z!5}sK~ 5\Nlս VB/cj}7퟿`c!ſA=P;Qe&ieiV4;Qޖm99d7g;Qwm#eyST;Qwm1RmAe*O!.!APA@fӜh!APAfiӜhO;o;QPi{t- ZgN@<)bn̵;QPiB(Ta暅n2~jζ@D"F'@4.y_RX@dB(Ta暅n!$yǕj|%FBLM_!0 d@^;S.Zt.l5  ݷGrRPUqA<@D /9o";8ŗHd@t$$gA 2 o&/\<@D f#Y2?&W<S?@D+=;W7qIY:9-Ҡ@D )&mNz;viqxyN;mU:><)—{׸z1JdBկ2nR$hyϜWm4 @D QMXULj,_ MXULn&j4,Y鎄ՅTԾV~љҹ6GLTgkrX+_Eg֛(]y&/;HZ3L-fD z@0l֞1NÂ**09~*B;Z^ˆ4:4"m/*09~#/MfDeycmqw_r"34^壟09~ד@ %%u}9~Ѻ'kψ pg뭸-l D?oM9~ѺmD]y4U#4e-q!19~тwD 4qt.~ETYJ=9~F˼)',+*?sBv^9~Ā\"#;H1QI3-r[Bv\7 @iEy4<2v@31r(eOy < @31r(eGB4 &R&/ӎYR1љ_z A-yI4Ջ" $R&/;6{JU:r w*+R_SCLaGo1AxHbB%;{qVw*+R_a_ KLaozE8I>Jk*+R_SCr2Vm䦱bB%&*_1IP䦱bB%;>s~|2!3V]w*+R_0ኺLa9!Ay"l~xfy4@> q AzoOF獣H@oMA$To@16.[M JoR !9$M8ڼD1wOE0NZڄשiT,Kģ(U9AgA#t]cY樯ۭH! =*{k 1wOE0Na$qB3(@@!3٫1wO0NIʕȓ7=@!5} Xr߳L]:;g/skm:J)*4ZH*ޔ?)w-"m+VF; Ʌ*9ȴ `;gάrY=;3&! Xr^ ,*t0CXr^EսI W@t.΋k *ݿ M3E:;gάW@vg+hXrA95cKk Ry2 )+ULƹ*-q<A FsXֳًoݱ_zc ҕ±qH&[\<yO$Tmo_l| _+g5I!g "−+~g56Wx;-\<yc,%+k9_IYg9-(]y!Y'Su;& y=đycײA w2J2ۏ@½`Um'{xg9- A* *|KOycތ2 oe69ꉛk g9U]gj[тzhF A̮MceUv'&s>㛈s_2 g9U]hLza? _E S< g9U]zk,ڹ%JY3yceUש:H!BFwCBDu^pceUG͂F A̮M< +Ig9U]禕QP9ܯyceU΋#N䍕БyceUUmЂВ*<ycgy⓺ۏMA$D}J7ܡ@tg9- ķ299<g9-˄1JY ac)2i'MRXItdկ{Q=\9azT"{Ahuӭ* uwujs\$X~+8 %?laֻ<-E_+$"H[L!-rMV$B&;[ث#=+`BA92 o&{Y+`M%-4'& l5Uf]7M<\~O,.}F9keYJ`2 o9!Es.4SC<{w88vgD7hh9Ca(Հg'qA9%F, k N.tlYlDY 4V !^1̺?K Jam߈&3^5XAx: lT ,9RMBￖ)Ӡ7 ,9RMB"0& i@: ,#I;;Auˌ<<BC $`ƊLny@4E Z%Fc^t fضVd;k ETd3|qXM*Z%Fv,irү2 ETb0~#BtZ%F Cs}oETi KVIp OUFt|m {#0COUF˱[}< u]8#+&<N&0Ud϶(]y3)(9 @ғfyW!ot4 zZbfyqt$!50%.{$B趰ߋ'*Q,$%8<趰ϮD#I{- )E<ܬ7A Ǿ㧶uӪ)|6VGa4Aoֽe[*< h̜Q[r굠٤k{$|)bn'<΢G"VU;%- Mߠu;&$žaM-5wa>žfޠ *ݧ'bυ %=o AUâg&B m>ؔYĆϋ0zk4x%5E%J5 MA$a/@Njp- D$ a-y4#B)J(ts6gTUi6h?Q:-V4-SP%R$D"n󸝒=Ҡ{D$!^1{kv!Ie!<>-9 @x0 !CYDȜ&Ǒ'bT_|3t'kXz8[%?RڽBv8xrDߗ%%!Y 'ksTQ?PZ{#*DGIֽBv:};\ri'~yUdjӵ PT:};\ &N@'*x'ksӵA{M%< 'ksӵ3 BeJVP1g Et|@rk1| EQQE9 |d*;άKўtZIګI}㛈KZp“9f9tO-Nw \)3!߂t#+A1" oeJ,}w2.{dJ* e+g-DrAep$]U7-q<A6_<GD'ksAPPg ^Gՠ񶊬cè \ *"5c|M\7) 0h;%$¯ۃ. 0Nw\'! &¯ۇBQ 0Nwպ.qTlVl *P7qIAP2A0!=.&¯e Vwmct2_mSWJycl *Pi{ߔ$cbO "=9Ə A̮Fml$&¯e Vwm٤e+ JIJy*}<\O:¯e Vwm61Yos#j+%0C¯e V|'L_:¯e V| fD(=s}iڞ)=F5k4 2 o&{!6I_k3!H%p;"x{Fu鄯pn)2Q!WNၺBf`{:k7;FP#YӜ")&/fsVn$Iw+Q? SŜ=sVn$Iw+ZMUB*BLMQ_< ʫk5kIvBD{clG",Z3I^!Y'4vyH,d'`롧rґx0?Z$NŜ8:>Jڛ0q-[~B oeI_-Ǘ* ɫ=Zr;It'Ƀښݸp bVn" \ Bɫ=ۈ'%lF 4+ɃښU]H1J&գQ!^1w<Ƀڑ-Ruv&y+Q_6L}_鄯)IJ{[uq9ɫ=)S~)4= WOp k>Jڑ-Ҟk -| UbI>^<?6<ȗdR'kmZ*;5={W$ɫ=pR RWc(!a[:>Jړ0I?Ic2{X$;4B5b (=sތ;0mv4iVތv+xk1ei)fP@0soC=sئOei)fP@0soCk3bB%g9ՙ_$3Q2fs6 '"_J4ͧkH@3K7Hk3bB%L* Zjv_2k2ݷ@02R@ЩW%A~lgHk4->vPpm;3{!`0līkDhe+%1Q<¤, Գ#VωrNi:l+"<[Գ#lJ$Dܐel$l(_T (SZ.sCmɊ4%<fTj'l /9o.!_k_FWQ Ok_FG. 0Nx&sbk_F˹2yUΉ ]yʽfTby|}ɱCBDq@hAk_Ffjj$+%|:k_Fu,%?lUE, l_5`f`H8<$kްg3x؁N(k6_}f!V٫kkްg9-."Y>f?ioPst{Ƭ_Jkkk4%_Z_GS$]+k4%A%,$1RmAe*O!pk؍:X&8y༉)U7O.,:@w,0!mBFZz+q bV=_{ޡR "B[_l(?R#Vωr?5l+"<[!FFpsBܐ\²#-+x;=F<L(Q<²#-Gh|ȇAPEثDcң@:l+"<[ckg"f~]\Y<\{ FrkB3h۽&yiQ<{ Frc-: &L#l$ <\{ Fr1U+8R G7*Kk ՅVy_wI{JU:l2 oeMXUgFw.ct2 o&Ŗf]se Vw9d=2 z_~樧%-g2 o&Ŝ$n>wmD6P ęLMizck ! |IM¹_:م֔rN |IW|یeB;* :QzŠcę-$q="3`\O[k ! |IÖ?M|_4 PbnȎ}! |IÖ!fD W]ѡ,! |IÖNCPmw<ęPie"n`[.-* ! |Ie V0]1| L)bnAPJ,! |Ie V&/;6 A̮AUP=:ę-%٘A_Nz8R G78L! |I-9 E$:^DzIׅck ! |I$ AMtfp ! |I >'_4.l53ę[ RnR$h&;[ V< JeV6ߴ;fy$fQ< 0Udϱ;ʽeV5gD>ԑ_B8̵$n+jOsqAcVM\3(6Q,XpI?Ic|1RŇ{M==E7q@#)'؈4lɞۿXItcDO(y<G '5a-'QD+WG!\$31~į['B߂t}>"J'QڲIGA+=L JC 11tlɞ52?"xSg^11tlɞ5O D_:ۖ9 դ麊)FO=*(&P>"o$*iG9޵Z3QWq'$RXqVO2ePW|gV 9ưJ޾-4* MXc?-mUn-4* MXcTF#ş޾-4* MXc*byŝ*(6o9grk&iB*VH?+XH+$m0nsŜK?wWvD/g1JY Ipܾh%{1Ncλ_Ǒ]xz 떎_!Jq7iF[[ת1\&n!#*g[%KtD+[PHFVHp B=·lEh.d@6 _5R?APgh+kW$$6yMYa([wPh5cֲ|Ws;Մ@9ɕz8R G7lQڲMtlɞ_kVDm3Z3!UP=:g11tlɞ_g)eP;.z~U1ͫ)F6PpRω7qX)%>t11q-kcekɄ|ȇAPEثDcN <[ߛT,Kg9Yck P@qxSuG< μIC+pȊ9{2mgL4M 11zH;qA' otް呯7z<G 11q-t|m.d_qmngx~UIG<KUe+@ 6+G_J󞼦9MB+$733!_l5\ WszAm1.b2 oeJl ~N-p $9 _0Хs $~N-p Zu;"QZ<$:ϫBv_>0cw`LVBIjV49$@U ,3US}<<g S>"jQ FyU:H;xSu̖< g S>,)#dFyU:H;{$}MOiʫ FyU:H; "l 9WӨFyU1Xc`4'& )sVQFyU1-`zF.m|#H)jbQzZ}wy=F7HLm>Elʫ%`rݱp$\gՄ@9ɾd釭s!6=4QڲMBi+p!8Lp0I?IcΏZKY 50eq9_$.`pоQ[ s(fbq(]3B'sVf`#U+`!2cbO4V•z8R G7դ麎cbO4V~Wm*;kQ[ ਤr{G9C쯾Q[ Ư!{9&%kQ[ ez0AEgѝ< Kތmv4iVތvN;ɬ$d+vQfWw3mi3It85ŗŧamFy_pV_jxSuIś%ޠ 3ecɖN llJn#|LO,v<0iE$jamܤm2 P[bweJټOP[49Ø,E NlP"1vbB88?>CAyհ*x9-8JvRl el?DzY<5 el?| dnd顚u%^< e 4!E+B7 cY= e 4!E+B7 o&r o&j F< e- yNg Xk~W%Xk~WA<] e dA,6p2 o&jBX4󶶰 v(]sOKhYg0{" |Ie" jW:Yg0{ߏ%BQհ~"o$* @9ˡnp< Jxf{YWq9_$.`A95;)EӢ%f{YWqÖ0SwLW]̼őf{Yۄ*Q$6B@8N+hԕYg0zPiDk{$|)bnZ"e7őf{Ye VޓJn#x%54#VYg`4(>*C)cŝhH=c1(ҳ_"jq:Y?&J< ~`Jt|//*:u%e VB;é$Tn]xw]QQ:Pi$H"#;N︂^zr /7BR#U@et$"E}, )2>%c;MyifP@30}p< *UfP#bzh+F*&)3J_ ऍ "՞Y \Y-w+Sk0Bq5tő!4,)jpY' őZ[ķ>"  T_:A{!`g ;2 o&jRcU%kw+GHO9< eQ7y4:GS$DܚUz@ u;HD@!=ɫeQ3)8D@I?IcrU1 KPY;(hEU>U1 KPam߉sY$K_sTR1 U1[?&!- < eQ3%/7sND ;L*U7MYSx%+k1| EQQAeQ>+, !-y49-\;Tc~1eQ>+L\Y@_އYX@64g11DnDOJB~Pde+Ay͔Aa%f%Szˡ= WO_܇)I^Dn-fzJFligѝŽ$)E/RLso RZIt89HʲSC6>(~~pDɭ߳7O;`SC2=&[& HJD&E7N7O;>s#mhBu& Ow'st{XA ;>s>݂V M ߆߅T3cԕSC6sm03d!REm%lF 4+ĕSC6sӵu+$J$ [SC:};_Y{~ϫ< k¼sӵSǧZt.l5}<sئwE){$|)Yc2 ;>sȓ$I>JbB_~^_!Y IU;>s܉I>Jk*+U<vP@sAP"[e+GS&8^S3 SC4 Rze&Wq%cJYzSC4%t!sAPRf2?-[~tSC4%&oGXC/` SC:݅BEI*w~RF&EB?2 ;>sO@_̛* UF7N+)Q;>s"erJ[LY 9SC>b P$UixpFSlAmtʫ%;>s^#%nϳ )WK~h>TZ$ VSC5,(erJxihSW_R4`< JE;{Bv=Ocw=C;~=-VL(;{YWw~j{%J#SSWcwџgU|KOSWsՅޘ_si2 ;q-XΥI*ë2O_g;zGP2 o&롦3vӦ%;z>? qhuZ>1*:SWe V 8LY ֏SWe Vޙ h㛈٫k LTE~}Q~l*:-+7ho[ݠ!b"`F)+Kk 1R-$ֺ -_1R-A,26p 1R$VSu;&rEOL؎if1R6PT83\F߀vdA롘FŐ/e l!-l3h#9_4 Pbn]̹e l!-y> ޔ?)w-Yʲ\FrߊhX}e l!-Bt@9ii- EQQWsUe l(H;k~q퀼Pd!V#\F‹My H myo_m*2 \F‹My H 5Cx!êPZ Y:\F¯eUxS.zQ= Oe l!-HuZ-kt$ e l.r=nOR.?6l=* ;>aj/qaW/m{-}<6Z = "-/:&T4${x">>"@8C1t< B4!E+B?\Y69< $3!JAHB=EVH?"K'v~At!]4!JJ;q ={%F!;pZ 0۬(, Q-F`d$$< $=@7:(Jm lR%T@7:(1pjp2cLYKk yRn.Dl|\3;$.*<`Su1yW&&s";&&vwcA jlļAmU:g ਤr4 PfP@3RܬV1VU:g ਤrI` _yZcٛ # o2 mU:g ਤrq SWBK1+$Ifh 0eSFy~Ձ O@N^<0eSFyoیen-fD+?j FlҬ0eSFye V wcA l5c<0eSFye Vw9_oYɖU:gPi{%9eyQ"a0eSFye VwL"HLǙpmU:gPi+O !C|<0eSFye VBc֌ ^Rmrk(Ao&| FO%F}w (1Hqң!$ ׆ tQTaCU2o7u͔A8wp% "|BcWqQ-80q_ž.^<4tQ- qsQuzOF [_ 2?-iב6.eCUl{B5U:gPi+we\)bn̂޽mU:gPi+~0eSFye VB0(T.cWBK1+$]}mU:gPiV!;ҹ.9P=:/0eSFye V|myo_m*2 nN܎U:gPiR&/;N︂∜<0eSFye V|EOh/[:+A*6U:gPiV!;P2 o&ŝ,/<0eSFy}+Q_6L}_=U:g-Ҟ{ENA)>GpŖQD"=f!-&])˲FӜ$FxLWr(yVҬiW..:'LEJaxLW—/El WeFj4'IFf1Vc̰gЍF\{ Fr:mزTb!-rMV$!1L#ziJ#,$.?Jd]I7al$F@<ǦݭADAwY>1IQ<'F>w%0?/ ;DZɁ$hUWVM4F.$UD'$xUI%l=fV"XrBuVH< jBX}>&Br- B떎 )N4OF-FphoXk~> Z ӭ"wxdi H5;=+\7Ό-ܡ0'l?g=[~X '3 4SOCU(OyC9¼(p*IX:z?@eU}Ju%jZ"e8ȱ5w|,2yU Vx9Hdh/¼<T@>bml模@?e"x&,$)e> XQG]Zq Q(YEyk)qj5D s!Ba@@:r4;h|>"h12ɘLqL $կoBH- AN9ˡtvJ7ݮU]*H$(^Yk R_:%-RҔ&ײA 2 o&B+ )0^QƄ'?x3"6 !K_z"5f $b6+mֿ\~@9d.>#}zˡ) =u9SQeF,;Eh+~':EĚ&P"7ׇ;L\AJ&ۨA @y"%(QN3odazMib?'Om[ͦ2mF{Op;L\AJ&ۨA۶U܀(QN3oo.)[+~$(QN3o`=^OjQА JaA!o Գ#dRJ.-~{%XwAvչ/ݱ&uɠxTb;L\AJ~9{(;LR(;L\AJ E@JlX Գ#dRJom|cCoH$*;HOm[G* 4e@qD(QN3oeՋ&IK0B6E$J] ! 5(QN3og]׮4SBK'z["(QN3ooOf8~zMibxo`?/[P(QN3tչP,j%7 qD(QN3o`!A5R;L\AJ1t@R[e$ Je4g.!xD ,%gPdeHӄ?{~#[>\,e\J=T$@OU,z.)ppk\H^^\eVUA_u[k pk\HXFo q=.IYgRFRO@ԦY-|FpWXT*06ş/2  C*9G>&E!@!ck bcp9;{1Na|-*&0B0K\QI7c;bN<647dq= F0* +&Ir_)0²dj$,٠ c;o{ޡRBE,4']ҭ:c;o{ޡRB8mDG]c;oTa)HW]b.30%F۬4uGc* "L5.*+/_[5G͚ "0eMM-Zz$DAq:O y|0*2=V1UVq@vpo5!5}I\m,s(QN3t];~ڥwѫ##@8v'늍K0B6E$J]{kEսIbR[*:M|F"(QN3o`=ڲ+D\)5 K;L\AJ~94 ~R@u“Pز, L)bn+ɬ<ѤTՋ$D(QN3o`!8L O"4;HOm[ͬՑR@6Z Jl;L\AJA0/ֽaVz+R#QB;HOm[`!= 1RIG(QN3oeJb^<$ 4";L\AJZ1\/HR;L\AJA0/^3Ar]ko y"ʔOi#y Rk5;L\AJ~0.;q T;Eh+~':EZN?+| dnd;HOm[`!8L $LОTo¨Գ#dRJFk8a_8? Գ#dRJ%?5(QN3odyHSETBxTh9Hqbtt<l2*(QN3od6:t Causes a file to be opened on I: drive user 0 and then recieved using modem7 protocals KMD P ufn.typ Same as above, but file is opened in the Sysop's private area where no one sees it but Sysop Note: typing KMD by itself will display all commands possible This file can be "type"ed at any time by entering : HELP > de. "Type" by itself for info. TYPE libname filename.typ To list a file contained in a library file. TYPE filename.typ /N List a file non-stop (no paging). KMD S ufn.typ Causes a file matching the un-ambigous filename to be sent from MVRCPM to your computer using the Christensen (modem7) protocals KMD L ufn.lbr ufn.typ Same as above, but wil *-*-*-* C P / M S Y S T E M I N F O R M A T I O N COMMAND RESULTS ----------------- ----------------------------------------------------- BIGDIR Causes a directory of all files, all libraries, all users on all disks with no paging BYE Logs you off the system (disconnects) SRX Invokes the SRX Catalog program used to obtain a listing of Sysop's private library (updated about once a month) See SRX.DOC for info. CHAT During the hours of 7:00 p.m to 10:00 p.m. local, if available, will call the System operator for conference CHEK afn.typ This will do a crc (cyclic redundancy check) on any file(s) you choose. Type chek by itself for further info. DIR afn.typ Gives a directory of all files matching optional ambigous file name (default is *.* if no name entered) on current drive and user area DIR *.* $ADL Gives a directory of all files on all drives and users (including libraries) in one screen at a time paged mode DIR *.* $ADLN Same as above, but in non-paged (non stop) mode DIR *.LBR $L Shows all library files and their contents in the current drive and user area LDIR LIBNAME.LBR Displays the contents of any .LBR type file FIND afn.typ Will find all files matching the ambigous file name and/or type and return the drive an user where they are located. Type FIND with no entries for info. METAL Re-Enter the Metal BBS system to leave messages etc. TYPE ufn.typ This types any file matching the un-ambigous file name entered using a paged mode. "Type" by itself for info. TYPE libname filename.typ To list a file contained in a library file. TYPE filename.typ /N List a file non-stop (no paging). KMD S ufn.typ Causes a file matching the un-ambigous filename to be sent from MVRCPM to your computer using the Christensen (modem7) protocals KMD L ufn.lbr ufn.typ Same as above, but wil  :DBL003 COMYUDBL003 DOC+DBL004 AQM=jH $O w7$ |u "^#V|u $~7 ‡ !9"E1:=2:mP…!n~0څ:҅bk)))_#g"=2|\!#:2G*?"AG *?"C*A"?~5r5*?"A*C"?:H/:ID/Oʹr;;:G59!*C~!0!>2*E!Jw<2I  ʲ  }}  Ÿ!J~2IWw#~ :IW>W> <ʟ}w:I!Jw2Hò#w:I<2I  )*C65*?ͰC*?~?#"?*A.~# MͰK\{6# qË~w# {Ͱ[*A|b"Aͧ"C*?ͧ"?W|g>>  ´> > :G=2G_ʹ!0!:4~:60+~[ 61~#$ finished $ No File $Page: [ 1]$813) 937-3608 DATA COM NETWORK RCPM SYSTEM #2 (813) 937-6829 v4+DBL004.ASM`  !"#$%&'()*+,-./0123456789:;<=>?@AoBCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_y[{gj/ܲRNUInDݾ3EL3SNLih7*4KbMSNLMU^481E}^^.k/s'AYH|=|DNL81EN̿}"o.UTYש 81EYd)ߝei3"E,'2 pb2֟T6Yj:NL<1EO3Zf,nXR81EI_&2 >pbÉ)zxb4NL/"DBL?"^4K,H~,nx&u"mSKI.ORFSNL3SԹ40gh ̡?ҹ4LStz4LmJ\.C}"͒XSOLG ,5,G<(?"#emvk:%-0oնMU45M`U1t˥M7YTTsh0Gגfm,6d S^#̡_K\/Ҧ,aVshpFTq}Kn b|'옘 awsԏ9̡|h>,څLNsh0rF4{-UBS&GdDgTdezC Ym۴]Śddj4̡-"OXSٴ &[#̡-"X.m*FC[DEriM0U1AFvY &KU1AFvYTq}Kn b|'옘 aT2csh0#/v)ӫܾ {-0]LJL^^sh0[D~+mXә,4,YmF794Eik*vdb94Edu˥M7YTTshp6X.m*FC7.KTz!6d Ӵ*FC7.KT8/riM0AS ;2csh0#%KV[Y M DBL.PRN A>DBL RCPM.LST The Feb 14, 1984 version has an added feature, it can start printing in the middle of a file. In order to do this enter things the same way as above followed by a space, the letter 'p' then the page number to start the printing on: A>DBL DBL.PRN P8 A>dbl b:rcpm.lst p33 Since an earlier printing may have been performed, printing will always begin on an odd page number. In the two cases above, the first example will begin printing on page 7, and the second will begin on page 33. If you want to stop the printing at any time, merely press the space bar, and the program will terminate. ***************************************************** NOTE: The program will CUT-OFF any characters beyond column 60 - so be sure to set Wordstar or what ever text editor to a right margin of 60. ***************************************************** Version .003 mods by: Steve Sanders 14 Cypress Drive Palm Harbor, FL 33563 DATA COM NETWORK RCPM SYSTEM #1 (^ɒVfKEД03d%:%-"t+mXә,4,YmF794xhIlNױ\t%LEU0of˥M7Y”WshQ\/Ҧ,aVsh0GTq}Kn b|'h&"ons ; r{:24ә|>'}n'D4^}c`>G4Kh2:9̡ O/%|͖dzC.Kt& M%KV[-Ul `9o?eMgTdeVshpTTshp˔WshiZ#̡&cb:C shySCgb2%̡{&{ytmUU1~g&94 B뿽W*}cb2nXLb|p[LLQfI$N4K63ȴ4K6d"Ob11A)s&;3WLl71%m,p0%7;&(*LaJ&8%_n wŽ vp}17LwqgIRen N S{8Se; ^vL> ^+p}8^Ą($u8w3&&xA{ghr&(C%ZS&&xLM>U,Qf׵dk-Fʄp2 B E;LL^! &&xA1?3X&hc*,^.KT2EH$6I.KTkM`GP2ބ'vt`B5N*&74~3ɇx%kYY p3qpSpP GT ^a9SYKUe21E>m=B=wR1 B=ݩ&&8^ W;MĄ…˄/21a2ZM>Uu,4ڍJ]0ELceNMeb+\kQ܆>U2oQceNMeb*MnC븘zCL7!6)U*&j209S4ֱhz-lriӏ21E;{ ;2sEirLV`IJ\KUez)S>#o3&.b 3! L(sSoh WcBar&hXZy"VeTkMFGДLFД8?#h^z&&DVWe]߻lQ>fc3y~yaBu M3sJ&xA7Lab~v;fR'LLu`F&TtLV9SmuQVwiI,zTnaoB3A0쭃:L7!`R/LLQB\R`Sg(fpP.*SCy[]}uʢݨԋ8&&؛2 BL|'}&hXYLcy+enT˓LL7!IM21!(ili4y0Q G ^|τwg9wgbB4d3iedm bӕJ;[e,MK\S&M٣gbBTl ҮVw]ש<} pD?qP G؉a: uGtuH4?31!rKI,M310 1393q8D2d1ΒXZC,z6˞v*lLL gBߠgµ 0<RcYĵdN0{xȄ S4,4uS&&.\&Λ~ &3)co2aZ3LL7!?t!B˄K&&XH$T~-l^M~)K&x("G&؛ę6)֢ 5SeRfqƲh7[] p;L =B F&&DA%qldvKmKHH\ʢ(=MG[H\,nXDʢ(wbhXvWd1yӕJeWY,&h7ʄj8N\ *t1EDn,Mcײv7&\Ѕ@+11! @.%ER'?MkY dkz-6M?H%KfLLQ%Kd)ZF%JK+qvQ&Tqj8TL(sBF70 xLL5 Wp4SThe6(q-KebBkMGД=&T=9STj,:KbMgSdKmUc&&:9:'pG&:0G#:9Sdκ#…˄w8LLQ-;M`bu\Ls&_CS^ sh ^2&.ʺNi&! WM7cjr?gBar&(H$YfFX;&2/Bܣp'B= )P<01sEnk̋6e]% sCwLLCnʜ 0A$̙P b|'옘PC co k-P21a(\L> s&&gbNc"T,є81ENLwLL08{8Sxvud.'^1vS2CLMZlnb)oAѽ]Dp =))_Cwo?T11E1ENLnSkJ"';&.pG3yrf+iәipp^LLh`y3m:S0 Ù<93Yoh|g3tp83M=)LLvt94xL0?iә7/}_` iә30q-qz-eb*أ:p'gT{;gbWP) ,%m3Ӣ&:?“cۑEp.q6$td~WpxZT#%ȌYm 14 3kU"wc*A9P\1Z׊!uXjF;BrV _T!J)WcCR,5B#\9PyB-jr NJ1D~C1UFh*4w ojjS)1!T]+ʱX1sn_+X+nC,6cŴv ᦕbfJ1b;XjT)X,cCV +R#4UJ1ĢC,VcC,.cw+pZ1bW9r ֹbwC,cbC,T©J8)rW+81CcӺv qXWFhaCvcEpQ)8c*W qjr,5B#R qsEⰨCN1+8jYXjF1a+8ljMW!N1ĩCJXJ1ĬCcR 1(Mb=C̦c1)Yb}CNcB)-rv +R#4bV)*W ^Պ!f1B)]!f1zW)R 1[!f1P)9brkU+ʱ*br;W+1CLcv [WFhnCLwcEbwQ)c*W jӪr,5B#vR 1sEbCLO1+jYXjFL1n+mjMbW!1ĴCJbM;kJ1fC\lrZ1fZ9r q1C\jSbClcM^;+R#4bS)UbU+ج*J1"w Վ!.vbqV!61P;8T!6N9pb U+بʱX)br{W;XJ1CbպV _WFh~CvbEbQ9Xb*w jR,5B#r sEbCNJ1;jYXjFJ1~;ojMbW!V\1ĪCʱksվV Q+F)7czZ;bQ͔bz;OcT)1DCTy+R#4bCԫ1DC1Du+vbzW9Z9ֹbP+c)CԪv QJᦔZj>'t 4g0 "Z}t't 4 Ijc!4 #5-ٶZj>'9 7>tdR#|[>' 19>vl;_PF)Fp̘vc/(X{*F0P*L+5s]!֟ϩy!J'CDi@ṏ`h= ȔR#Rj8ca{ g=:X2^RK}> q1޾)FhIWY!4 SJP֕R#4]  MDEARC COM'paDEARC DOCƙDEARC PQS%#DEARC2 IQC'DEARC3 IQC vZDEARC.PAS^ o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]ū'ů~'şzn.RfR)ԏX̦/kKS Lv _y%0Ef(^S9RPPfH~D1|+E#/ܾ^ay罧K(.zLH1ox7=~DC=M̲ˬOY8lnяI0-'ya< {Ma//׌'rQvE(lwOѣR^0ke׸"uj+}6R#4E$]R#4I6$~Dg~8v]14Wqhia; h~Rj8ca{  'g0 Jp;Eˢ(yRj۹}a!4 SJp;.#a'$ٶZ̠Yz!2cs|V'sOM?GCDi@齉vp"3&;gݾn^?|}r_PA֛Rj2TtLz Rj&-!eh= ȔR#4hz> ,2[J]!4 SJЌM 4CDi@v9#Rjdah= ȔRK(M_IGl"?lORK=7Evb;` 1oJ ah= ȔRKD+5BL: ϠJ> vpP]Z)Fhzy o?])5B0jcc!4Vjۄqbw~+J|>8tSJt\Rj 3 ȧ]j[l[JpBhX Zn8I6axt$SJp{7!7!9 w#Eͺw}8' RB0 >' RqRR!+ Ͱ R!+ Ͱ r!+ Ͱ r!+ Ͱ r!# Ͱ r!+ Ͱ T]KB!z> S>))0 = | |̀̀DMgo>jB0 7?= H͒<z5a)a<z {0Gɯgo||~}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'd } ) W _}8(8J`9{T]=o`9y t\Rj 3 ȧ$nɶR#H u=Ipg^y@[Xè/0,8v7={s=jftsSJpg^yEEKwdpEE1b6})FDﯻ8ʺQk}A7 wSJpOϢ!ۖR#4qdU7ZM&Jpg^ۇ q cl8\Z%0`ŮG"GQzFjl[J-ډ!3oUf0j Q7J3oK c{űzԚ.馔3Sg̞y%xàgftSJsGzKg57MꊞK mK"Q;1z3J` 1K% )dI(vCY;j57h 3o57MꊞIRdRjHN ᥉LYX Z;=u3Sg߼eYE_}?sSJܙ詳o~#mc8TܔR#4w&zٶZ% xi?SF;(񈹉#È6 ?5mvI%G ÏIxEǎ`K“=Ix=&KYa;16%4W'ɶ[/ܾ^ay罧K(.zLH1ox7=~DC=M̲ˬOY8lnяI0-'ya< {Ma//׌' ͫCopyright (C) 1985 BORLAND IncBSoroc 120/Apple CP/MP !9O!T9^-fl&!T9^~6#w!T9^K#^C#᯸( x # | }>) >' ́ ͬ͗ }>' xˆ }} ˸T}ٕ(0D=z ,= ( ͒ 0%{ , 7 ?(8ͬ x ͆ - r 8˸x ͏  ,-xG}r }مM 9r .>#n0͒ { = - nx ͇ ,-(-˸G,-r }ٕ?M 9.> 8ͬ ?= u+-(>͆ 0ͬ ͆ 8 ?x ͇ , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx( ?}ٽ }ցr <(r 7{ = |٤g{٣_z٢Wy١Ox٠G{ ͬ ́ }x>' ͬ}ƀ/ƀo -́ }0͎-́ ͎,}l˸ 8 4 ͗ x( - 8́ - 8,́ }l8;*!͗ ! >4ͬ͗ ͗ ͬ--- ́ ,,,-xGg?+2n*8t z~,->' x' ͘}. ͆́ , ! >4,͢- o&0%= * E RT(1)1~7#~= oͦkԄ!!"~#(}:$= +*!5!*!!:(2!5:(>2!!!:O::O:!*! !45(! +/ 0y0( d!k5!{5__o&  :(͠|(  *"x2y( >28!"9!! og2"">~22 9/4*9 Co&ͦͣ} [ (!e{ͦA8Q0G: x@!\w# (͂ ?(*( .( w^. ^!h6# (?( *( ͂( w#>?> w#ͦ 8 !ɿ .,;:=?*[]<>{}a{ |ʹ}ͽƐ'@'7||}>2ͯ*Bڨ  "og"2>2! ""*B"[Ru*"^#V#^#V#N#FO/o&9O/o&9!9(> (G,͗ }gr }؉}颋.:}8c~I$I~L*͢ٷx˸ }0G,<},-(-́ !>I0 ͗͘ o8 ͆ >' m.`1pF,t6|!wS<.z}[|%FXc~ur1}͆ٯx(<˸ 8 !~J 0.O!>s 8 =  n s͗ ͆ .n 0 ͎-́ OT0 j oD,:j !I}袋.}8c~I$I~L! >ͬ͗ I× nn ͗ = ͆ nf^VNF!DLT\I!!53!r1!͒!> x #-= o˸x͆(- }(x>8(z ,z `iÃ!>' |r |̀>)=|(DMbo˸88x(0 8> ̀x(>-{(ay( z(>. ( {>E>+|(|Dg>-|/ 0:p# ~# +>0w#,-  60#}˸}րogM| .(z = ~> x0w#xG%͇ %͇ ZJDM%͇ = +4 #4x >>2:G("ͮ"*nˮ*0 SZѷR8@* N#F#s#r, 0})jS\*##w+ N#FB ͮr+s>2!T]>)j)0 0= ]R!#]*^#V#N#F#^#V>2Ͱ:0:*6 #-Nw#Fwq#p#6#w#w#w"~Á>">!DM!":*B:!>(>2>">!"2"~ʰ*w#wx(9* :O *-4 #4!*4 #4 *-N#Fq#pV+^Bq#pSZѷR&* s#r$ s#rL <?*L!\  <( !\$>2>2L:>!(* \$\<(!3: [1ð\!(7"~> 2"S"Ns#FrB(Z#\: \<(?*"}K\! !*}#"}! x \* *>) 2""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* uKB!0>' ~#f_~65+~hìx-Sx9?+{Η@}|z z gZJDM0{ ,7}o˸? #yO!@9i&?  #?w#?/w#?w#!9! E9!!9~(+Fͺ!"9!(#>2*"| >"2:( Ͷ *w*6 !\$![ (ͦ( #:~CONTRMKBDLSTCAUXUSR>2i:*ˮ~0:*:(@q##pZ* :(  ~* < >26"!"""~>2""v>2>"!"ˮ(!~8>~O6~*"w(6(2(-()(6 (8 0 :(* y(~#+ (( 66 #6 #"*: y~o p .##~o{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6#K*K*!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#V""6#>O"w2x2*"!F"" &y*"*>2"*"!F"""!\*: Nr!~6go(\R*s#r_2x( s x(T]DMx(R0 U(͝O/o&9q# (!>F0#( ~ ( #]( ~ ( (#}(  i&T-a%â}ͦo*!~6o&|:2 2}:__zѯ2*|KB " z ^C User break+=  I/O Run-time error {ʹ, PC=*ͯNot enough memory Program aborted :ʎ'1!d!8VZB>Ã8@AAŁ@ Aρ@ ʁ@  AAہ@ށ@Aԁ@AAс@ͺ(.6w4._~ =*##55= *[R8*~#"= ͣ}== ͯ}͵}*#w+#~+>*~('k!0(ˮ]k!8ˮ!]~-#8~>27kˮw>O$6̃s #r$ͣ6̏ k ( (ˮ qk(ˮ ( k ˮ*O:~ ##~._q4((=ʦ==ʩ=ʬò*:4^q*##~6ͺ>2}*|(̓|( ̓6-#[RM8( G> A~#*'C! !TRUEFALSE!9N#Y~#( G~#> >    "~(kѻ(( !0 (ˮ!!>2Sz:0:*6##ww#w$w#w:  ##N#F*B>2w#w#[s#r> "~ͮ*-w#ww##> ͮÁ""~>2:ZR0 *4#4>2:ZR> *4 #4(> >22*f(/˦:G(##~++ :O x yC!ͺ Q*:G(##~._.͚f<\=<͚*##w ͮ 01A3@26@754A<@=?>A:;A9@8(@)+*A./A-@,$%A'@&"@#! A`aAc@bf@gedAl@monAjkAi@hx@y{zA~A}@|tuAw@vr@sqpAP@QSRAVWAU@T\]A_@^Z@[YXAHIAK@JN@OMLAD@EGFABCAA@@d!]͛ͺABORT: !]:!ͪ "\Md!%\!"#\*\*#\n&!͒Eʒ#!%\:*\*#\n&e.=d!%\*#\!"#\I#!%\:d!\!\:"\*\!ͥE#*\ !\$*\!E#!!\$!*\ !\!\, \* \!ͥEj$* \ ! ![!}2[$!}2[* \!Eʧ$!! ![$* \}/o|/g# ! ![![,* \ͫ# ![*[&!E%![,xG! \"%![,! \! \,!IE>%!}2O%!! !; !"!q!!ͺ !"!!:p!-!,! !f&"S[*S[!c"y!u!͵(*u!*u!}oE.MFile has an invalid decode tree"!{!))!)!!}/o|/g#s#r!{!))!)!!}/o|/g#s#r!*u!Rfzʬ."A[!{*A[))!)!͵(!{*A[))!)!͵(*A[#f.!"5[*5[!ͥE`/*y!"y*y!E+/Z-"w*w!E.!"?[Ò/!"y!{*5[))!*w|g}o)^#V"5[]/*w!V"w!{*5[))!*w|g}o)^#V"5[ó.*5[!}/o|/g#"5[*5[!Eʌ/!"?[Ò/*5["?[*?["/["1[*1[*/[!|g}o!![!![,!E/!![,! !![!![,!![, ! !![!![,!!! [ͽ!"[!" [! [!n&}2[*[&!.͒E0*[&!0ͥ*[&!9͸}oEʸ0*[! *[&!0R"[* [!" [! [* [n&}2[c0*[!|g}o"3[*3["[!s]*[)]T)^#V"Z*Z!͒E?1*Z"[!s]*[)]T)^#V"Z 1*["[*["Z"Z*Z*Z͖/"Z!s]*Z)]T)n&}oEʆ1*Z͒Eʫ%MCannot open archive file."!p!͒E%MCannot open archive file."!}2)%!q!:p!͒E)&MCannot open extract file."!qo!͒E_&MCannot open extract file."!"*&Ez&!}2[í&! *+n&}2[*!Eʡ&)%í&*!"*[&}2[!*+*[&s*!E&V%&*!"!Ͱ *!͒E'!ͳ&&!qͰ "[![*[RN'![,![5(R'![,!Uͫ#! ! * ! ![5(R(![,!]ͫ#! ! ![5(MInvalid parameters to fseek"![,! "[![,*[ ! "[!*[o )%!*[fzʴ("[f&}2[*[#Û("["[!*[fz("[*[*[+f&s*[#(͛!E)MToo many parameters"͛!E;)!}d!ê)͛ͺEnter archive filename:  !d͎ !:M͍Eʘ)M"Z2*Z0"Z*Z!e!|g}o"Z!s]*Z)]T)n&E1*Z!"Z*Z!E1!"Zç1!s]*Z)]T)*Zs#r*Z"Z*Z"Z"Z!s]*Z*ZI1)]T)"Z!*Zs*Z!s#r*Z*Zs#r*Z*Zs*h]!E3Z-"Z*Z!Eʒ2!"Zt3*Z!|g}o"ZZ-"h]*h]!E2!"Zt3*h]!|g}o"h]*Z!N!|g}o*h]!V!|g}o"Z*h]!|g}o"h]n3Z-"Z*Z!E83!"Zt3*Z!|g}o"Z*Z*h]!N!|g}o"Z!"h]*Z"Z*Z"Z!u*s*Zs*s!"s*s!ͥE3MStack overflow"*s!E3*s!R"s!u*sn&"Z3!"Z*Z!s]!`!N!!fz34"Z!*Z2*Z#4!"h]!"f]!"s3!!R"q]!}2n]*n]&Eʘ4!}2n]c2"l]!s]*l])]T)n&"j]*j]"ZÜ5*s!Eʖ5c2"Z*Z"Z*Z!E4!"ZÜ5!s]*Z)]T)n&}oE4*l]"Z*j]x3!s]*Z)]T)^#V!͒EG5!s]*Z)]T)"Z*Zn&x3*Z^#V"Z4!s]*Z)]T)n&"j]*j]x3*q]!͒Eʐ5*l]*j]No file name entered"͛ ͛ !!:ͣfz)"[!*[!*[n&s*[#û)!.e.!:Ͳ!E*!:M.ARC=d!"[! "i[*&EB*!}2[[,f&!͒E**i[!Eʄ*!:M is not an archive="*i[!R"i[!:͛!ͪͺ% is not an archive, or is out of sync *&E*MArchive length error"B*f&}2*&!E<+MInvalid header in archive !:="*&!EX+!}2[[,*&!E,!k[! ͵(͛ͺI dont know how to handle file !k[/#!ͪͺ in archive !:!ͪ ͛ͺ*I think you need a newer version of DEARC. *&!EI,*[!!R͵(!}2*[*[ T,*[!͵(!}2[*[&"g[*!V!|g}o! **g[|g}o!|g}o)^#V|g}o"*g[ͳ&"][*&R,*][!E,!}2,*]["*][a,Y-RY-*][!E-!a,R-*][!R"][*][!͒ER-*a,*][!R"][)-!}2!,!͈Eʁ-!"S[ç2*q]!R"q]*Z"l]3"Z*Z"Z!"*Z  $!!}2*&R5R6Z-"Z*Z!͒E6*Za,Z-"Z5d7R;6Z-"Z*Z!͒E86*ZͶ,Z-"Z6d7Rq6ͫ-ͭ."Z*Z!͒En6*ZͶ,ͭ."ZN6d7R§6@4`4"Z*Z!͒Eʤ6*Za,`4"ZÄ6d7R6@4`4"Z*Z!͒E6*ZͶ,`4"Zú6d7͛ͺI dont know how to unpack file *Z/#!ͪ ͛ͺ)I think you need a newer version of DEARC *Z  $! 'ø7**Z^#V͒Eʸ7͛ͺWARNING: File *Z/#!ͪͺ fails CRC check "Z*Z/#d!͛ͺExtracting file : !:!ͪ %*Z͠5&n%!^Z *E"8!^Z͹7 8&͛ ͛ͺTurbo Pascal DEARC Utility ͛ͺVersion 1.01, 10/19/85 ͛ &8( 8 *Etu!^Z͹7 8&͛ ͛ͺTurbo Pascal DEARC Utility ͛ͺVersion 1.01, 10/19/85 ͛11/5/85 Documentation CP/M Version of DEARC (De Arc) I allways wanted a program that would remove the files from an IBM p+kF/qv8WX)B8"g5'4@]Qpj PeSBKWBqABW*hse5+ r/"^{5'+bhC' Ax+V"յ uAO\^׵xKWD;+|8it%\BІ~ g"ظ=t)jK,]As7 Bu_(>/At:*JWaAO\^B^DZ 'o.NA] P||-!_txꙃ"A*>*JWaABW*h+k\YcMsTKDRe |⣒6/q{B ©5BckFW8 hCt%i&,9iӑDĥ/oĕ]e ƕW*?]~>6ĸ!/Y&x+ĕ pi$ĹƚHª5]by4W֜^ .T|T(]A8Xsl H-]JXY4t+ x.?CbCe3kF*j]JЕ p Ε5֬$DʽbjZ{5'E  + uAcj4[kV"^5B+kNP!ЅJ+ uAWBW*GUk>s`3 _+"gן1?~>1.tĹƚHBY=BY֤h! -+u$se WvCBEXI +{/XPC .ARC file. Now Systems Enhancements Associates has provided the means to fulfill my dreams. DEARC (De Archiver) is a program that removes the files from an Archive file. It was not tested in CP/M, but since it was written in Turbo Pascal, I thought that the port to CP/M would not be too difficult. I was right. I had to delete a total of three characters that wern't important anyway. Works like a champ. If you need a utility like this then here it is. The included .COM file (DEARC.COM) is the CP/M version. The IBM PC version is availiable in a seperate file by the name DEARC.xxx. Sincerely James W. McMann n. The IBM PC version is availiable in a seperate file by the name DEARC.xxx. Sincerely v^DEARC2.INC] o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIB5HwPWhX#AD?X(U uA iEP5ie  ,kR<`vS^kX bz zK,]Ak϶3O<|n =K\dzme hʲ&z]ǔB4y+h/_=~s\xi&k6~ p+/~GJRCʚai$Ε5HPD;Wxt|ACYAzӂkLP/_=~y\"ޓh !_&z6y+ BqAo"g5Hc#4 5r@D;#]{ĹƚHB)/+ł-+u$se |P QJAظ=t`-+u$5H-K;%E/+k: e8X#,퀎t%ZkV"^免)!B m^bSk8pԑT uA]^iYGhC !u ; qg Xw`y4`5Z*dE5H:`α5HcvPY4:5H} Bɷ_ uAhx@ɷipx8W %5kjk\YcMsT=׮ck k!_L=Z8VHfEe b=uL:h/pj 8(|GsTx5c)B|R + uA]'/tІĹt׹5H#5eyKWĥ/30W mT8V m)7Yxգ ]8i$Ε5H+dٓ= !Bck6]xA܋S*x:\"VOM+5rjz5jB9yA4Y$hid9+;mh5Y4gPQ5HRrڽPN \se5HM>: Ε5֬$DʽVuϫ)cd[4F{_0MQ3` ҟ5H#q Ε5֔=Guёu+pԑT uA]ڽ& ؞m 1:ҸyvPM^{Ml[YHKi$ĹƚHcRYsN/kB=_zׄSk8pԑT uAUAK!'w2Wk Cz+kF$T(f%@OͰ`t=5JdCI8vhn%+̀dCI8 z%FOͰF:XONY 9V7nN6ԏjdCI8,+ ڡn6 '=5J`=vx8e%pt4Z Lp? Ϸ۳nw%v %iMϷgg^b7܏5 {^БuϫOD1<6Xsl H㺯p~sЅSk>O*hl+k>98duwgqE=sF5H *jBck>^{q+k>98duwgqE=sF5Hl H+kFv5&ѕpІi\ TԄ4 8WXOJv ms:ְlk HEMvS^kX 퀟g[< Ε5֔=GuQB (w3ZvdDEARC3.INCS o !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRAXK$ Ú* kjJ c* XOp^S31DF+}V7l5& .E.ljz%FOͰq;]M>XO CVw]#kz;NJfb6`=v` ֓ J6t؍!vX YX#,퀎t%ZkV"^免)!B i]I#g%?AN?P*xDQIY Kœoˬn~s@aMbV7"%f%@OͰͣ %v/<^b)`#onhCIz%ƣ %vx$ķozmm( ц 6tmV'w5m( ڢ0 kjȡh i+l=]g%?A ^ӳW^'5E\B[x _J6O:m(ַx:d%pϨY jSVytmV^\V7x=Ë8@3^K~ᐕoP;K5j7J6>+۬>ٙg%J6A6I {:°F ÚŬ+nT(f%@OͰäӥ0xytY j5fw[ + {:vtd%päӥ0xytJ6>+ېMfҨ {:*}Vd9hckc)°F ÚŬ+Ɇ~0QJfM7 Q55Y S3nl( ú_"{ 6CV1jL:n;]dCIDz%ZC$%pJfX ܜl( d&O6tJfM7 Qv'JK {<ߞe%pjap_hYz[ +;t05jM7 Q%NY ܹfa:jtx7Bt05jg%pӥH6tytԨ4,LGkVnV!Jb(Y Hӥ/=* kjY S3nseIGmKi/=ޢfX ERAS SET TALK OFF SET COLON OFF SET BELL OFF STOR 'Y' TO FLD ACCE ' Would you like to skip the instructions at the beginning? (Y/N)' TO FLD STOR !(FLD) TO FLD IF FLD = 'N' ERAS REMA AFTER ADDING RECORDS TO YOUR MASTER FILE, IT IS IMPORTANT TO USE  QUIT'GET ENTRY READ ERAS ENDD ENDI SET TALK ON SET COLON ON RETU o continue adding records' @ 14,5 SAY'Or enter Q to QUIT'GET ENTRY READ ERAS @R@R@JREMA ALL THIS IS DONE, YOU SHOULD REINDEX YOUR MASTER FILE BY USING OPTION@"@=@R@N@,@E@ @REMA ALL THIS IS DONE,@3YOU SHOULD REINDEX YOUR MASTER FILE BY USING OPTION@? @IREMA ALL THIS IS DONE,YOU SHOULD REINDEX YOU ? REMA OPTION # 8 BEFORE TRYING TO USE ANY OF THE OTHER OPTIONS IN THE ? REMA PROGRAM. IF THIS IS NOT DONE, YOU WILL ENCOUNTER SEVERAL PROB- ? REMA LEMS BECAUSE YOUR MASTER FILE WILL NOT BE PROPERLY INDEXED. ? REMA PRESS ANY KEY TO CONTINUE. WAIT ERASE REMA WHEN YOU CHOOSE OPTION # 1, YOU ARE ADDING AN EMPTY RECORD TO YOUR ? REMA MASTER FILE. IF YOU CHANGE YOUR MIND AFTER YOU CHOOSE OPTION # 1, ? REMA THAT BLANK RECORD WILL STILL BE THERE. THIS RECORD MUST BE DELETED ? REMA IF IT DOES NOT CONTAIN ANY INFORMATION. ? REMA PRESS ANY KEY TO CONTINUE. WAIT ERASE REMA DISREGARD ALL PARENTHESES WHEN TYPEING IN COMMANDS. ? REMA IN ORDER TO DELETE THIS EMPTY RECORD, YOU FIRST HAVE TO KNOW THE ? REMA RECORD NUMBER. IN ORDER TO GET THE RECORD #, YOU MUST TELL DBASE ? REMA TO (GO BOTTOM). THEN TYPE IN (DISP). IF THE RECORD IS EMPTY TYPE ? REMA IN (DELETE FOR # = (?)). THE QUESTION MARK SHOULD BE SUBSTITUTED ? REMA FOR WHATEVER THE RECORD NUMBER IS. THEN ISSUE THE (PACK) COMMA'GET RECNO @ 3,5 SAY'Enter Disc Number'GET DISC:NO PICT'999' @ 5,5 SAY'Enter File Name (Max 8 characters)'GET FILE:NAME PICT'XXXXXXXX' @ 7,5 SAY'Enter Extent (Max 3 characters)'G'GET RECNO @ 3,5 SAY'Enter Disc Number'GET DISC:NO PICT'999' @ 5,5 SAY'Enter File Name (Max 8 characters)'GET FILE:NAME PICT'XXXXXXXX' @ 7,5 SAY'Enter Extent (Max 3 characters)'GM=10 Y 4 ?' INVALID OPTION ' ? ?' VALID OPTIONS ARE 1,2,3 AND 4 ' ? ?' REENTER OPTION ' ? ?' Press any key to return to the main menu.' WAIT RETU ENDI RETU  Which option would you like to use?(0 - 9) ? WAIT TO INPUT STOR VAL(INPUT) TO CHOICE DO CASE CASE CHOICE=0 RET ?' 1. PRINT THE CONTENTS OF A PARTICULAR DISC ' ?' 2. PRINT A FILE WHICH IS ON SEVERAL DISCS ' ?' 3. PRINT THE ENTIRE MASTER FILE AFTER IT HAS Bould use option # 3 REMA from the main menu. ? REMA Press any key to return to the print menu. WAIT ERAS RETU T) TO PRT ACCEPT' Should I send output to the printer? (Y/N) 'TO YN IF !(YN)='N' ERAS REMA Since you answered NO, you should use option # 3 REMA from the main menu. ? REMA Press any key to return to the print menu. WAIT ERAS RETU ******COMM.CMD SET EXACT ON SET TALK OFF ERASE STORE 'Y' TO AN STORE !(AN) TO AN ERASE ACCEPT 'Would you like to skip the instructions at the beginning? (Y/N)' TO AN ERASE IF!(AN) = 'N' REMARK This program is great for looking up certain types of programs. ? REMARK Such as all COPYING programs or all DIRECTORY programs. ? REMARK Press any key to continue. WAIT ERASE REMARK For instance, I have a program called DU.COM. In the COMMENTS ? REMARK field, I described DU.COM as A DISC UTILITY (LK OFF ERASE REMARK This program is great for looking up certain types of programs. ? REMARK Such as all COPYING programs or all DIRECTORY programs. ? REMARK Press any key to continue. WAIT ERASE USE B:FILE ? ACCEPT' Which type of program are you looking for? 'TO TYP ? REMARK Allow time for a search GO TOP STOR !(TYP) TO TYP DO WHIL.NOT.EOF ERAS DISP ALL OFF FOR!('&TYP')$COMMENTS ENDDO REMA Press any key to return to the main menu. WAIT ERAS RETU OB:CASE CHOICE=7 DP). IF MAPPING, UNERASING, ? REMARK ETC.). I could find this program by using option # 3 from the ? REMARK main menu or I could use this program and enter UTILITY or DISC ? REMARK or MAPPING or UNERASING or ETC. or any combinations of the above ? REMARK when I am asked which type of program I am looking for. ? REMARK Press any key to continue. WAIT ERASE REMARK You can also abbreviate any of the descriptive names that you ? REMARK entered in the COMMENTS field such as UTIL for UTILITY or DI ? REMARK for DISC or just D for DISC when asked which type of program ? REMARK you are looking. However doing this will expand the scope of ? REMARK your search. You may get more files than you were asking for. ? REMARK Press any key to begin. WAIT ERASE ENDIF USE B:FILE ? ACCEPT' Which type of program are you looking for? 'TO TYP ? REMARK Allow time for a search GO TOP STOR !(TYP) TO TYP DO WHIL.NOT.EOF ERAS DISP ALL OFF FOR!('&TYP')$COMMENTS ENDDO REMA Press any key to return to the mainM=10 Y 18 REMARK Press any key to continue WAIT ERAS STOR 0 TO COUNTER ENDI ENDD PRINT MENU *' ?'* 6. VIEW THE ENTIRE MASTER FILE, AFTER A SORT *' ?'* 7. DELETE A FILE AFTER ASKING FOR YOUR PERMISSION *' ?'* 8. UPDATES YOUR MASTER FILE AFTER MAKING ANY CHANGES *' ?'* 9. LOOKUP A CERTAIN TYPE OF PROGRAM *' ?'* 0. EXIT THE MASTER FILE MENU *' ?'*************************************************************' ?'* BY YOUR COMMAND (0 - 9) *' ?'*************************************************************' ? WAIT TO INPUT STOR VAL(INPUT)TO CHOICE ERAS IF CHOICE=0 ERAS RETU ENDI REMA PLEASE STAND BY(LOADING COMMAND FILE) DO CASE CASE CHOICE=1 DO B:ADD CASE CHOICE=2 DO B:EDET CASE CHOICE=3 DO B:PART CASE CHOICE=4 DO B:DISC CASE CHOICE=5 DO B:PRINT CASE CHOICE=6 DO B:VIEW CASE CHOICE=7 DO B:DELET CASE CHOICE=8 DO B:UPDAT CASE CHOICE=9 DO B:COMM ENDC ENDD B:PRINT CASE CHOICE=6 DO B:VIEW CASE CHOICE=7 DP). IF  IF LC = 0 REMARK &FLD DOES NOT EXIST ? REMARK Please check your spelling. ? REMARK Press any key to return to the main menu. WAIT RETU ELSE ENDI REMARK Press any key to return to the main menu. WAIT RETU to return to the main menu. WAIT R******P4.CMD SET EXACT ON SET TALK OFF ERASE STOR 0 TO OPTION ERASE DO WHIL OPTION<4 ?' Sort on which field? ' ? ?' Press key number 1 to sort on DISC:NO. ' ? ?' Press key number 2 to sort on FILE:NAME. ' ? ?' Press key number 3 to sort on EXTENT. ' ? ?' Press key number 4 to return to the print menu.' ? REMA Which option would you like to use? (1 - 4) ? WAIT TO INPUT STOR VAL(INPUT) TO OPTION ERAS IF OPTION<1 ERAS ?' INVALID OPTION ' ? ?' VALID OPTIONS ARE 1,2,3 AND 4 ' ? ?' REENTER OPTION ' ? ?' Press any key to return to the print menu.' WAIT RETU ENDI DO CASE CASE OPTION= 1 ERAS REMARK If you would like to cancel printing your Master File while ? REMARK it is printing , all you have to do is press the ESCAPE KEY. ? ARE 1,2,3 AND 4 ' ? ?' Press any key to return to the print menu.' WAIT RETURN ENDCASE RETURN R A PARTICULAR FILE *' ?'* 4. TO SEE WHAT IS ON A PARTICULAR DISC *' ?'* 5. ENTER' ? ?' Press any key to return to the print menu.' WAIT RETU ENDI DO CASE CASE OPTION= 1 ERAS REMARK If you would like to cancel printing your Master File while ? REMARK it is  REMARK However if you do this, the printer will still be ON. ? REMARK Type SET PRINT OFF and this will turn off your printer. ? REMARK Press any key to continue. WAIT ERASE ACCEPT' Should I send output to the printer? (Y/N) 'TO YN ERASE IF !(YN)='N' REMA Since you answered NO you should option # 6 from the REMA main menu. ? REMA Press any key to return to the print menu. WAIT ERAS RETU ELSE REMARK Please adjust the paper in your printer and turn it ON. ? REMARK Press any key to begin printing. WAIT DO B:P1 ENDI CASE OPTION =2 ERAS REMARK If you would like to cancel printing your Master File while ? REMARK it is printing, all you have to do is press the ESCAPE KEY. ? REMARK However if you do this, the printer will still be ON. ? REMARK Type SET PRINT OFF and this will turn off your printer. ? REMARK Press any key to continue. WAIT ERASE ACCEPT' Should I send output to the printer? (Y/N) 'TO YN ERASE IF !(YN)='N' REMA Since you answered NO you should option # 6 from the******DELET.CMD ERASE SET TALK OFF SET EXACT ON STOR'Y'TO ANSWER ERASE ?' Do not use the COM, ASM, HEX, part of the file name. ' ? ACCEPT' Which file do you want to mark for deletion? 'TO FLD ERASE STOR !(FLD)TO FLD REMA PLEASE STAND BY USE B:FILE INDEX B:FINAME STOR 0 TO COUNTER STOR 0 TO LC ERAS FIND &FLD DO WHIL FILE:NAME=FLD DISP SKIP STOR COUNTER + 1 TO COUNTER STOR LC + 1 TO LC IF COUNTER > 18 REMA Press any key to continue. WAIT ERAS STOR 0 TO COUNTER ENDI ENDD IF LC = 0 REMARK &FLD DOES NOT EXIST ?' Press any key to continue. ' WAIT RETU ENDI GO TOP ACCEPT' Which file do you want to mark for deletion by (RECORD #)? 'TO RECNO ERASE IF &RECNO>0 REMA PLEASE ALLOW TIME FOR A SEARCH USE B:FILE DELETE RECORD &RECNO  REMA main menu. ? REMA Press any key to return to the print menu. WAIT ERAS RETU ELSE REMARK Please adjust the paper in your printer and turn it ON. ? REMARK Press any key to begin printing. WAIT DO B:P11 ENDI CASE OPTION = 3 ERAS REMARK If you would like to cancel printing your Master File while ? REMARK it is printing, all you have to do is press the ESCAPE KEY. ? REMARK However if you do this, the printer will still be ON. ? REMARK Type SET PRINT OFF and this will turn off your printer. ? REMARK Press any key to continue. WAIT ERASE ACCEPT' Should I send output to the printer? (Y/N) 'TO YN ERASE IF !(YN)='N' REMA Since you answered NO you should use option # 6 from the REMA main menu. ? REMA Press any key to return to the print menu. WAIT ERAS RETU ELSE REMARK Please adjust the paper in your printer and turn it ON. ? REMARK Press any key to begin printing. WAIT DO B:P111 ENDI CASE OPTION = 4 RETU CASE OPTION > 4 ERASE ?' INVALID OPTION ' ? ?' VALID OPTIONS ERAS DISP ALL FOR * ENDI IF &RECNO<1 ERASE REMARK RECORD NUMBER MUST BE>1 ? REMARK Press any key to retry. WAIT RETU ENDI ACCEPT' Are you sure this is the file to be deleted? (Y/N) 'TO ANSWER IF !(ANSWER)='Y' ERASE SET TALK ON USE B:FILE REMARK PACKING MASTER FILE PACK ENDI IF !(ANSWER)='N' ERASE REMARK Since you answered NO,let's RECALL the file. ? REMARK Press any key to RECALL the file. WAIT ERAS REMA PLEASE STAND BY USE B:FILE INDEX B:FINAME,B:DISC,B:EXT RECALL RECORD &RECNO ENDI ERAS REMARK YOU MUST USE OPTION # 8 IF YOU HAVE DELETED ANY RECORDS. ? REMARK Press any key to return to the main menu. WAIT RETU # 8 IF YOU HAVE DELETED ANY 21DATATECHNEW 21LU3 COM ***** EDET.CMD ERASE SET TALK OFF STOR'Y'TO ANSWER DO WHIL !(ANSWER)='Y' ACCE ' Would you like to skip the instructions at the beginning? (Y/N)' TO FLD ERAS STOR !(FLD) TO FLD IF FLD = 'N' ERAS REMARK If you choose a disc to edit which is n1NWMSGS OVR 41NWPRINT OVR 41SAMPLE1 DOC 41NW KEY 41NWU COM 41SAMPLE2 DOC 41NWINSTALCOM 35D COM 26D COM  *****P2.CMD ERASE SET TALK OFF REMARK If you are not certain of the disc number which you would like to ? REMARK have printed, then you should use option # 4 from the main menu. ? REMARK Otherwise you will waste paper needlessly. ? ACCEPT ' Are you sure of the disc number? (Y/N)' TO ANSWER STORE !(ANSWER) TO ANSWER IF ANSWER = 'N' RETURN ELSE ERASE STOR 'Y' TO FLD STOR !(FLD) TO FLD DO WHILE FLD = 'Y' ERASE REMARK This program will allow you to print all the files on a particular disc. ?ot in your master ? REMARK file,the program will take you to record # 00000,disc # 1. ? REMARK If this occurs,just press the CONTROL Q key. ? REMARK Press any key to continue. WAIT ERASE REMARK When through editing press the CONTROL W key. ? REMARK If no changes are made press the CONTROL Q key. ? REMARK Press any key to start editing records. WAIT ERASE ENDI ACCEPT' Which disc number do you want to edit? 'TO NUM IF &NUM<1 ERASE REMARK INVALID OPTION ? REMARK VALID OPTIONS ARE ANY WHOLE NUMBERS>0 ? REMARK REENTER OPTION ? REMARK Press any key to return to the main menu. WAIT RETU ENDI USE B:FILE INDEX B:DISC,B:FINAME,B:EXT FIND &NUM BROWSE ACCE 'Edit more discs? (Y/N)' TO YN ERASE IF !(YN)='N' ERASE REMARK YOU MUST USE OPTION # 8 IF YOU HAVE MADE ANY CHANGES ? REMARK TO YOUR MASTER FILE ? REMARK Press any key to return to the main menu. WAIT RETU ENDI ENDD RETU UR MASTER FILE ? REMARK Press any key to return to the main menu. WAIT RETU ENDI ENDD RE ACCEPT' Which disc number would you like to have printed? 'TO NUMBER STOR 0 TO COUNTER ERASE IF &NUMBER<1 ERASE ?' INVALID OPTION ' ? ?' VALID OPTIONS ARE ANY WHOLE NUMBERS > 0 ' ? ?' REENTER OPTION ' ? ?' Press any key to return to the print menu. ' WAIT RETU ENDI ERASE ERAS REMARK Please adjust the paper in your printer and turn it ON. ? REMARK Press any key to begin printing. WAIT ERASE USE B:FILE DO WHIL .NOT. EOF SET EJECT OFF REPORT FORM B:P1 TO PRINT FOR DISC:NO = &NUMBER SKIP ENDD ENDI ERASE ACCEPT 'PRINT MORE DISCS? (Y/N)' TO FLD ERASE IF !(FLD) = 'N' RETURN ENDIF ENDD ERAS RETU  THERE IS ************** THERE IS ***************************************** IS **************U  THERE IS *************************************S **************IS ************************************************************ MSCREEN1.FMT ******* EDITING & ADDING SCREEN @ 2,10 SAY 'Enter Disc Number'GET DISC:NO PICTURE '999' @ 4,10 SAY 'Enter File Name (MAX 8 Characters)' GET FILE:NAME @ 6,10 SAY 'Enter Extent (MAX 3 Characters)' GET EXTENT PICT 'XXX' @ 8,10 SAY 'Enter something descriptive about the file you '; @ 10,10 SAY 'just entered (MAX 40 Characters)' GET COMMENTS  TO INPUT STOR VAL(INPUT) TO CHOICE DO CASE CASE CHOICE=0 RETU CPUT STOR VAL(INPUT) TO CHOICE DO CASE CASE CHOICE=0 RETU COICE DO WHIL CHOICE<10 ERASE ?' ********************** ' ?' * MASTER FILE MENU * ' ?' ********************** ' ?' 1. ADD NEW TED ' ?' 4. EXIT PRINT MENU, ENTER MASTER FILE MENU ' ? REMARK Which option would you like to use?  *option # 4 from the main menu. ? REMARK Otherwise you will waste paper needlessly. ? ACCEPT ' Are you sure of the disc number? (Y/N)' TO ANSWER STORE !(ANSWER) TO ANSWER IF ANSWER = 'N' RETURN ELSE ERASE REMARK This program will allow you to print all the files on a particular disc. ? ACCEPT' Which disc number would you like to have printe RETU ENDI ERASE ACCEPT' Should I send output to the printer? (Y/N) 'TO YN IF !(YN)='N' ERASE REMARK Since you answered NO,you should use option # 4 ? REMARK from the main menu. ? REMARK Press any key to return to the print menu. W******* DISC.CMD SET TALK OFF ERASE ACCE'WHAT DISC NUMBER DO YOU WANT TO SEE THE CONTENTS OF?'TO NUMBER STOR 0 TO COUNTER ERASE IF &NUMBER<1 ERASE ?' INVALID OPTION ' ? ?' VALID OPTIONS ARE ANY WHOLE NUMBERS > 0 ' ? ?' REENTER OPTION ' ? ?' Press any key to return to the main menu. ' WAIT ERASE RETU ENDI REMA PLEASE STAND BY STOR 0 TO LC USE B:FILE INDEX B:DISC ERAS FIND &NUMBER DO WHIL DISC:NO=&NUMBER DISP STOR COUNTER+1 TO COUNTER STOR LC + 1 TO LC SKIP IF COUNTER>18 REMARK Press any key to continue. WAIT ERAS STOR 0 TO COUNTER ENDI ENDD IF LC = 0 REMARK THERE IS NO DISC WITH A NUMBER OF &NUMBER ENDI ? ?' Press any key to return to the main menu. ' WAIT RETU NTER=0 REMARK THERE IS NO DISC WI-@*@/@(@)@<@>@@-@#@SKIP@@"@!@ @{  ERASE SET TALK OFF USE B:FILE INDEX B:EXT SET EJECT OFF DO WHILE .NOT. EOF REPORT FORM B:P3 TO PRINT ENDDO SET PRINT OFF RETURN 27CHECKC1 CMD 27DBASEJOIOVR 27DBASERPGOVR  COM 39DDT COM 39LOAD COM  ******* DISC.CMD SET TALK OFF ERASE ACCE'WHAT DISC NUMBER DO YOU WANT TO SEE THE CONTENTS OF?'TO NUMBER STOR 0 TO COUNTER ERASE IF &NUMBER<1 ERASE ?' INVALID OPTION ' ? ?' VALID OPTIONS ARE ANY WHOLE NUMBERS > 0 ' ? ?' REENTER OPTION ' ? ?' Press any key to return to the main menu. ' WAIT ERASE RETU ENDI REMA PLEASE STAND BY STOR 0 TO LC USE B:FILE INDEX B:DISC ERAS FIND &NUMBER DO WHIL DISC:NO=&NUMBER DISP STOR COUNTER+1 TO COUNTER STOR LC + 1 TO LC SKIP IF COUNTER>18 REMARK Press any key to continue. WAIT ERAS STOR 0 TO COUNTER ENDI ENDD IF LC = 0 REMARK THERE IS NO DISC WITH A NUMBER OF &NUMBER ENDI ? ?' Press any key to return to the main menu. ' WAIT RETU NTER=0 REMARK THERE IS NO DISC WI-@*@/@(@)@<@>@@-@#@SKIP@@"@!@ @{  T 37MOVCPM COM 37CPMENU PIL 37PIP COM 37BACKUP COM 37SETUP COM 37INIT COM 37TERMINALDAT 37PILOT COM 37TUTORIALPIL   @{  455 CRESCENT ST. #107 REMA OAKLAND, CA. 94610 ? REMA Any contributors who send $10 or more will be placed on my mailing list REMA and will be sent any future updates of this program free. Due to unfor- REMA seen circumstances the above offer is subject to change. ? REMA Press any to key to begin using dMASTER. WAIT STOR 0 TO CHOICE DO WHIL CHOICE<10 ERASE ?' **************** DEF UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUSoCOPY 'CORRECT $CORRECT "COVER CPMENU CPMENU CPMENU CRIME CRIME CRI*******' 07@@8@@9@@:@@;@@<@@=@@>@@?@@@@@A@@B@PC@PD@PE@PF@PG@PH@PI@PJ@PK@PL@`M@`N@`O@`P@`Q@`R@pS@pT@pU@pV@pW@pX@pY@pZ@[@\@]@^@_@`@a@b@c@d@e@f@g@***n menu. ? REMA Press any key to return to the print menu. WAIT ERAS RETU ELSE ERASE GO TOP DO WHIL .NOT. EOF USE B:FILE INDEX B:FINAME SET EJECT OFF REPORT FORM B:P2 TO PRINT FOR FILE:NAME ='&PRT' SKIP ENDD ERASE ACCEPT' PRINT MORE FILES? (Y/N) 'TO ANSWER ERASE IF !(ANSWER) = 'N' RETU ENDI ENDI ENDD SET EXACT OFF RETU y to c********************************* ' ?' * PLEASE TURN ON YOUR PRINTER * ' ?' ********************************* ' ?' 1. PRINT THE CONTENTS OF A PARTI*****UPDAT.CMD STOR'Y'TO ANSWER ERASE ACCEPT' Have you made any changes to your master file? (Y/N) 'TO ANSWER ERASE IF!(ANSWER)='Y' ?' I need to REINDEX on three fields in your master file. ' ? ?' If your master file is very large, this will take about 4-5 minutes. ' ? ?' So go get some coffee or something. ' ? ?' Press any key to start REINDEXING.' WAIT ERASE ?' Please allow time for the sorting of three fields. ' ? SET TALK ON USE B:FILE INDEX ON FILE:NAME TO B:FINAME ERASE ?' Sorting******ERASE SET TALK OFF USE B:FILE INDEX B:FINAME SET EJECT OFF DO WHILE .NOT. EOF REPORT FORM B:P2 TO PRINT ENDDO SET PRINT OFF RETURN 27CHECKC1 CMD 27DBASEJOIOVR 27DBASERPGOVR  4PIP COM 4DVORAK  on second field now. ' USE B:FILE INDEX ON DISC:NO TO B:DISC ERASE ?' Sorting on the last field now. ' USE B:FILE INDEX ON EXTENT TO B:EXT IF !(ANSWER)='N' RETU ENDI RETU ?' Sorting on the last field now. ' USE B:FILE INDEX ON EXTENT TO B:EX***** PRINT.CMD SET TALK OFF ERASE SET EXACT ON STOR 0 TO CHOICE DO WHIL CHOICE<5 ERASE ?' PRINT MENU ' ?' ********************************* ' ?' * PLEASE TURN ON YOUR PRINTER * ' ?' ********************************* ' ?' 1. PRINT THE CONTENTS OF A PARTICULAR DISC ' ?' 2. PRINT A FILE WHICH IS ON SEVERAL DISCS ' ?' 3. PRINT THE ENTIRE MASTER FILE AFTER IT HAS BEEN SORTED ' ?' 4. EXIT PRINT MENU, ENTER MASTER FILE MENU ' ? REMARK Which option would you like to use?(1-4) ? WAIT TO INPUT STOR VAL(INPUT)TO CHOICE ERAS IF CHOICE<1 ERASE ?' INVALID OPTION ' ? ?' VALID OPTIONS ARE 1,2,3 AND 4 ' ? ?' REENTER OPTION ' ? ?' Press any key to return to the print menu. ' WAIT ENDI IF CHOICE=1 DO B:P2 ENDI IF CHOICEUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUSoCOPY 'CORRECT $CORRECT "COVER CPMENU CPMENU CPMENU CRIME CRIME CRILE INDEX B:EXT SET EJECT OFF REPORT FORM B:P3 TO PRINT SET PRINT OFF RETURN 27CHECKC1 CMD 27DBASEJOIOVR 27DBASERPGOVR  COM 39DDT COM 39LOAD COMM=10 Y 4 ERASE ?' INVALID OPTION ' ? ?' VALID OPTIONS ARE 1,2,3 AND 4 ' ? ?' REENTER OPTION ' ? ?'Press any key to return to the main menu.' WAIT RETU ENDI ENDD RETU C COM 36BAZIC08 COM 36CRT 002 36BAZCONFIDOC 36BAZIC10 COM 36OBASIC COM 36BAZIC12 COM 36RANTT 36BAZCONFIDOC 36BAZIC10 COM 36OBASIC COM 36BAZIC12 COM 36RANT 2SETUP COM 2SQUEEZE COMSQUEEZES ASCII FILES 2STAT COM 2SUBMIT COM 2SYSGEN COM 2TUTORIALPIL 2USQ COM  ERASE SET TALK OFF USE B:FILE INDEX B:DISC SET EJECT OFF DO WHILE .NOT. EOF REPORT FORM B:P1 TO PRINT ENDDO SET PRINT OFF RETURN UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@@@@@@@@ @ @ @ @ @@@@@@@@@@@@@@ @ @ @ @ @ @ !@ "@ #@ $@ %@ &@ '@ (@ )@ *@ +@ ,@ -@ .@ /@ 0@ 1@ 2@03@00 Y MASTER FILE IN DISC NUMBER ORDER N N 5,DISC:NO DISC NO. 9,FILE:NAME FILE NAME 6,EXTENT EXTENT 40,COMMENTS ?ACBDy ;֣h$*':f(Nio P2UP[67z`yZ97ȎD ,ܤ2zʁ N Cy. X#@_ y X#@#ٵX/xQ>ٵX/!Z+=-Xw-V%Yq̳2a63 T 2)@]=]խpͮ,p:3^S]e Ʃ*{iOqN_4S-9g,T[5c?*ȤT(uE&GD WE U8esEFD WE U@/c(3P&aӨ ףh sNhv-VNj ݹ G]q8ݹ=5]own۝|sQ$];{]s{'j۝=v`Ϸ;wPRIN men an ente MASTE menu. 6 VIE TH ENTIR MASTE FILŬ AFTE SORT Wil allo yo t se th entir maste fil afte a sort. 7 DELET FIL AFTE ASKIN FO YOU PERMISSION Wil allo yo t delet file bu wil no PACK th maste fil unti yo giv i permissio t d so. 8 UPDATE YOU MASTE FIL AFTE ADDING DELETIN O EDTIN RECORDS Wil allo yo t REINDE you maste fil afte yo hav mad an changes. 9 LOOKU CERTAI TYP O PROGRAM Wil allo yo t looku certai typ o progra suc a al o you copyin program o al o you director program i th comment filed. 0 EXI TH dMASTE MENU Wil tak yo bac t th do prompt. I i ver importan t us optio # afte addin ne recordsv`Ϸ;w۝ۃ=v.`ݹ=ؓowGٵXv`ai=qv.`ݹ=ؓowqv`/]v`ߖz(yͮx6wks{跰[c=_o7wEB[QRݮ8%o\7 :QjC>s6yݪ[ 꼨[1Wɇue7w^;A)m--v~DND.DOC   "!#$&%'(*)+o,_-.0/123546798;:<=>?@ACBD FEr GHIJQKLM NOP QRSTUVXWYZ[]\^_`badceSfhgijklnmoprqtsuvwxyz|{}X~OuVA<^N/E3MK'-+0>;FIGL,*L5wPcf05;68f)6ؼ#??co MM[1ڑuP~Q.όaS3r\?l(W]c7G]71Zgl *z01rrћHgM2tFD?%ftw7@#5]S^ĜX唗\.RN@utwóTm]LP0Կ܁l<Uv 34E;HMyg dл0?;mgĚ@!5gFȠ~G)9HO޳=xk:\# btؗ_5CMǯz [2j0A UC‡A4`Xud7[GsYЗ+}'bja\8& -wv5yӗkfQRD[G+U}VՃrO41dۑy5[99k'hIb dP#v$ym*ftI=.v O:VT59fbNv$Gp[gg-ɭ~]Pfv_^mPl9W! G1|@5yc~=PI4`:~%XDs0˩]n\ks. Fѯ0]gn+y1 d0h/v [zxx0x!բj,\4.PÙG^zryk5SHr.>җ5oM_{1ybUqtI 5oM?%Lz7f>.vbH@oj 51Ϛw &i-@{6X+"F]nr0::mP٠\yìy[F`"YfK/gM̛SdPN! d\dYY7}9.ʥOT.׭a&Y')KSٻv.@7k|ଝ<%3!ǔ3d@obnּ5 FyFHO^D;KI9e[˦ˁ|E &Y)w 3z' |aft nHO^D;7|c&Yֲr _QHOޫ]ffόaS3r\qWm_UoMöۯb.wP~f`7wSӽt]7С?03UwnY2{Xj jVuq_Hjq/{KIF灬y|5NhZ{Nkk;e`~~|G)潈>bwȠӢrtm~s]̄l~ ]ȠnO&wD"zYjl*2y18E~jLOTQ9nֲ?^7y1Kѵ qrEY2< 5kTcQ9nj,=M@o(fp_D;WDPA]41f5ֱm]4kO?mO?\.}71?&rK.G)/yFGt_@; tQ.}rrݬy*})8k P|/&L 2fIъbמ hb~ty(fח{6KSF% k & 3:͒zs9v |5u?{GV~FoEy6ytm ЫZE<7]9`IrA{]sB`_Hrknw bˀ^GcozF0M_ F;HMkZ< dt;Ԇ)w &xZ{w يȢdF2^^^W%)'IRt9]_|yg dx+'?VvXD;w — rXOS;{ |/I dO2< t9.&_(`A%ڞ;רbF'P;e ]K/gX,ԨbFٗ[:m["3T>Rp2^)/&OsZv` y~J0fuӻ#T^\4.v 3)5)Kb5vM锔~ _єWLCUIo;.VEf-D`欉@CW#d0h gqgPf`|P {]#&C)g_ nCf }ex;TUUXʉy7YK/g —%r?)K tQPfS#8k0;rr]{59^WNVD:kVNڡ6E;9wó~*בrx9%O&ŮeΖ@7~ )38k0{/=\rj37(w 3.|` Dr+"tkbzAzYCIk(hT#'a&_(ntbN&)wzPSm' 9zo䬝_kA51?y#b0ë_?wdP׎X˚7XA?@5oݱ~]LPP'Eet9(w SCU vzAx9nV!oXsZuLg.gxY>ءu]K>zL⭜'5_b5_&Z7t zx0Ҡh5:'硇L-Lf+˥OS0gYzNɳ5d0x!r*wJfY5F{E{ZbN]nE{Κ@;Ԇ)5j8b8<ҍ\7nRbrtXÐ5oݱ~5_wȠ ٮrt`'av v;v-g(p.?;1ưI'.b@CLXb0;CjE,%TJ9dΎ.`))TgDF#2]7NkѢ{ |bra2X[ |h wv&Ŕ; hKUwk̏|}1S{6XmN]n6س)'t`SATut G-tSY?ߘr/v/Lw~om Ժv/m7[@S^@Ђa | Z#@ob@O\4^t9RKY& yH4Pfb~ eot1E颥h[2<[_tonWv>>g@/:;IoZ@pBև?!'нsE$0?ˉ[lّ5Oz4K)L{YO+"FVΜ<)}@N0?>ez:)O*L>ݙh]5z޸#k=O{YvE:%BgwgM]@Ζ_k5"h^ޫRbZ[} }׹ͰSi?_ՈcswֈγxtRP?K2XH;&? /@<[#2B!?J{_*q Y:Gh㆗ qGּG ;ոл0;WDB|nB13?n>1sj輟V(tdͫyo!4:=m8i2K?U = ?cW豘 _/Xm*yG'M'_G_cѕ}Rk<|}t?O{|=_ =c[PaT_4|!EO||cѥ}|w\!~|wU\ _1 =?݅Hc =?1_$_w%})6Of053눚7w֣zD@P;=.W >9uF2?F7k|j;˒=N{!i- ʉܥך~b~ Ƞ~GIT`YAZ{k8՗r ᵦ߳hO{-U(6ag#zw? ʝ5:ԨbU?k5M~@Ƞ\ʁ 61\ U?&#RkuMsCĎϞף"||KU3Bb+"zTˉu,JC#$f<W>17뻫T%_æҐ}b _O$Sj=1:*W-zn{bja3 {bǮPJvGUiVb:$mj3Mݺ]o|9ĎC(~_Mjk^qx_cW̚6( _TF}bWBolR DwwW{b&P͒yW<:Fpkq:~]1~|N0e55}@v"2RPMwzTvun+Bo|E1@V=bWc|NTս9PdCL||}wa&m =՘a/Σ+)_FȮUDBf\JjM6} O$-ΣYSjG~ʲLΩe"XRDuKQneYPkj?]`䗢pP$ʀ5i/$}w_⣶2;P׎ k^yqǍ|Toب3 G$Q Ԅk^>wI1s(εyS Q\f`'Ũ72W&^N ŇINVXSu ;\ph_^ vPk;N1jK}wgvzך:J\('Q;=4 Fdn{7@A(ƿ tP|䳸1akRoףK _3-W̬yk_fbExYymɦ^药H9=Y>x~Yֲ/Iף&rޥZ7@Zk-|=tW;Z+W,kףOgv[λDws7"`Y>t7r@@ )˚ƸH3|}w mE$xS(fpkJxM]̘Roף,W,kǿ0|Cnf[˪~'_jXǛkdF< F&m>^zC^_]Ċ3v5BolZNdH5<^Sz -݈ᵖMYxM]̸"xӝ?}btpKd%V药H9=XּG=gJ7"`YZZ/W,kE֦PQL =Bo|E1.Lvw-̙5o-Bď|}wu3iX]S(fp%e5"||> V q)E;|}wc{5<=S9>5OWOu^>֖zD@> V q)E;|=*P 3 ʉZ7ƦvE}|=]"cVn _.16@AXQ<| #QL ֬<. ջ)3͝q8y^$z굵)3+KL;>;1w񎳼,{X;;1o !vuODNDSTART.BASX  "!#$%&'()+*,.-/0213546789:;<=>?A@CBDoEFGIHKJLMNQOPRSUTWV^Z7?WߏW8|M~<^mǫMw[֞\~6?Wǫ+c;W_{u%6|ՕߏyЎ>i`|d9ڑL*69ЈċJh?,n_0,?ei:7(VV>Md_TvOoYIUx[vHf9/$_s.Fikԝ9;2|Q]jYd_TvXoS0XojUy{)^~r&wC8mò;o/^V~o{e］~o{۲v}ehw^ j;[RZ_ݯz{)|^˵yRPa+pZ8ߖ&aQ˯g+p:WيvWkM8|WR[Vm pڍҺZ1ÏnfmS㕆۲ڢ8m4wҤ8hݏWZhS+-1jW)۲:8m4ԎWZiԛ*bղJs5K[܆75NOq0iՎWV~4bӨuE6Lk8=VnL$ᶬ<Ԍ$Xh?(z䘲; Ds QmЈ}NAa>!PQ N&sH2E]Rrw=Rn5)iä}uC.)5ӆI\uHga>צ+&W++WLeHgN&s}C.a>Zht -J(cYA6L:V$?;^!XוC.);hLC.BWڻ.cEڲ N& VWZEEq NO񢒸ЏT hHg1\>:oYΠDTLNt,6q0iݺ^i"x{dJ:)o˪A6Lg[;^i& +7Hy{ʱJq8ߐTcv䱬Z?hDg}~;ce"r?OC~ix˪iF$sp 9G)Ѫ@]&چGʙSg-]V1ϿyeAuftuudDgt6ťu8=ԢcY5ypN}):U5mYȒZt,f:^V-:2U 3 9{SEp3&"Q׬pz Dz:6):U5mYȒ~,#^]{Y9~A]:mcS@=֊S_]-1xC8~LXy[V;sqC}qC}~ǫP?j|߿jwjwϯ=IyeuȃwzIs)=Ό⯟)Dz:lw9DF$3gN;ua)"6LV()*+,-.0/123465789o:;<=?>@ACBDEFGIHKJLNMOPRQSTUXVWY[\]Z^%tz)YTx:tG!n3'9z6L/[YwL$f v.xߖM5Pn?;L=(}ZF|G#(餴@d+?Ilg1{Sf[cL;+عD7%jv5ƴ9[J\ 7cImޔ(._%nk翂˱r}[d2}96n,ǎ>C5:˱8 n,ǖ4oV.AjP3V1gpc9V: e0+ʦC愕c%Ppp☋N [f ~؂D(KFg4\;Y>KF/kpݨ3->KF? kp=e eW~eJ e|\+ع9+g|\YCѺxoB=e?*᪚ѹT}}+K(KFgM\J,c 9acJg QS8c0bcJx Y˱c رg}+ms5X+|ڷȸn,'q5XVV!j[ >˱}+WÍRX}+_pc9|7cGs5X-X};J(˱c8BWÍX ozr5X+|ڷ˖ǂ?a%c#plq8X 0OV?LJ};ܐV.]eí<}UsϿu a.;cpHN&[г^Wc+A6LVjꪚkF+leY~ 퇯Z;Z{ azɭ[DZQ5 mIeump) N&BSv)cY]E _5nq&~ՌęU3;8_5wp-a prm{*4NO² N& u~uZ"XJ0ٖյ a?JE%qЖՍJ9<iä~k۫۱&瀝 =r̎<N&ng0H*`*ix4~e`יTcv@4-nm)>)(cYemp,dNO1Uv ޗ]gFIHeO"6L^ _a.,a;>i6WmЈtfNa롤LWP@]A6L6;JsjeZr_iN~J;r_iN;Fr_iVW~~9|neZ~~9r߿e;8mld+w~ʴ}?ҜZ_id+w~J;r_iN4r_i;v_iVW~~9r߿V+ͩ;i=+w~6q0V+ͩ;i=~~9aI+w+9%#xP+w~J#[ϯiWr߿$5Gi=+w~ՖHLgN&JJʴx%]%]e.idc+w} mn-koYm`@8mjs a_;T 6Lufߖa߭+plbݷc2jEkqp)O'כn5UZ?;\USO'wߎutY.kw<86zӭf]tJWՔtr= ۑ v+_SjOӵZ:2X)-GjeՎry(M9ܾ-; Ο4;\!8W[U[?7j;]u:|Jv.}[J M(VݮWՔlbݷWՔǓ1f;>nO0S=ܾ-KtYݮ~wFțn5*?}[ri4md.X:EDhTu6 ˾FMN?EJ9B(ۤWg<#o9bFMOj?E7BBۤ/W<#o!ov6C*q/Gh$!/֏Fw'DMvQIʆ?)n.ƾ6Gr}FM[?J`MߝMvQIʆ?)nqCW߿j+k2X)b&)WֻxV qs~#B;8i~5n LB~`DZ7< yHZ"C';{^m~Ǝ.~`nYXBht5Ic]$Fhͪۤ/}kK>O<̫y`D; Zطm_!^Noފ;+'OYƤyMʎ!K[9J_!^ t+DO} U1!?v0@"*oW.V#ŏv\V%mhkg]S;mO!?v0@"V2jE,~M6y6طrNFcVuM**n_!^T~$ʿ@ TyB~]ǾczWI7U@޷rChmWY"4?cW&}ľ%B6?ce~M6qUmW9ֱoe)i4ֺMzW+D;86l:oWYط*Bc&'[Yc]:,$4k36f؏Y=fӿvI#B~]Ǿ v+*YB~1AUg .#lc&}eV7I2ݮ$Sȏ HZbʲ M#`n؏vBb[{Lu*a)[5LEI_ٯo~`ro- ^]U~&38+= m?UH.i [Pg2?cYUgwVn^;Wv@ˤ=%k2qFc]o. v+_L[Fėr49?v0@"$b6hjl~쟵O׎ƟW/ u?U9&}"uCpv<{9Zխn^&}"]^;MRz='u &U@>v66MݼC:nYcq` 훛 v+_L'--c]oM#3x:;\'3Zu5v0@"$vsozW+G`r42܇m9*[!r4J*YB/AhP8zV_YFB4 ' ^!s4R}.D BbVKt.]O#8 c\ÜnVmۊ~:_rit$D;8i~Uq eȏ YbVmZ((u.m^;2sl.9ʎW'3V6k}[B ʲ/3F~ʒG!BJ< 9bʒ uemW!$᧑^v< Un !o\/~4WM*ľridӰǁqաۤBH[!Kh췫,n[!$4v0@rWGx8 ߮طB4?cM*dVFg<ۤ^Ǿ :4?c[&}ݺ[!k2qF᧑+ $+DSB2&ouCpS %~`D%4ۤ-Ie}+*tZm~Ʀ3L܆3s<gcÿv+4遜}оvzNh֡d >[6k`D%oWYcJ MYuM*nV Y¿v+@Jr?&&3t iT%{9 ƺM*.}+n M#3Vy^ۤ.o=B[YݮO#͉CI_?\'H؂455:&}'H55aQSc㵩I?m ʘ; ;PB4554 S3jj~ƾw  U.oWqطkBIr?jC~`DZ7mh`D\Yc]e}+r᧑+gpgAe3{9SvMV0}[G_!^u!z_⨌Ihꄿz}_bۺMh(F, v+BtɛLNz ?v0@"~`D; ֍}[BhumzJO4v0@"$O#3Vy^mzJO2gdzRYc$ҺHžס!~`c]o\h9ΏPg2?c'2?cO>4:tU%- s8;O#`ۤYO'߾Jh*3s|6قmkB1HYuH,~V%-wۤQۤRط M#G]Z&}Xž4?cW-M*ƾЬX9;OفX9;Oف)ʾVi4ۤY٤gE f=)&;֡U'/PVqT$o\nj~`D%4ۤ-o%k u+3Vyޢۤ$D Mg̩یyۤx}г$9*mvNf\; ?v0@"\߮U}+q&}hcJ,Uf+UL|yt);<5z˨cNtBA_O'_]tNjo%HhShߊv+Te=o#0;[qsitۤi ;y3ٟn^;AY D[YEh`D~\9X6_9nE~췫ױoeUB 7}͋4u6髬H[Y!K&t>{)gm~J8?n(澕zWdI2&Hd]O#*MZJOT֫ط"!KY?c;qV3;Yxʪ M#3Vy^NI_ f('Op#?v0@"d ?U֫طrC fT ѓFcfzg8cv6Kid >kuUطZic$BطZfm~J`)"D;86?6?cϳ`oe v+Te=z'Ly5YHis5X6髬K[YG_g%͋4ۤvC zV%4fyQUEI_eƾzWhUtp3 ѧHc$Һgm~NsnzWdI#} U1!?v0@"nj~`D%IhMUmPz^žuzWh`)'lѬZ6k`D_yOTOO6q}ھ; 7~uQg?c絺M; *u[YBcQ0_ۮO#Gy6_rl8Lj$~V됣9zHՑ?ϫaa*Hƾu.tZm>` 6g~HD[Ehnf=)r~췫"Jhvmii9?Ur%4ۤط[BPg5m׬}+9FDI_QbJ MYnƾ_Sc]GqQxGnݷBc$.H,~ƾdFg:úM:# kB6?c3LkB>ABFnj~`D%4ۤ-oG[Bc$wՆZJvG_gpفn7bߎ6k3޷Í\W ` S֞>3333c 4OΏPOnp̫aޙ1LQp4yG[ۤ/W#. v[?\L#^drѾnzWb/V_qs~#p9zm,9V֏*)ӒSzRܔ6pס.^TW іы#䔞!o v+ s4WYwu+D[FѝQdMOt~`Dv"4`HI_Ǫ};V%kyȏ YO#3VpU^mב[bߎFgVI_G};VK_$jhSxj*?N!?k3F8Txߎ v+tS&9u{!zh 1lYc$Bc]KicߎUF0Wumױ&o v+E~`D~ٟnvVid >suuطcM#3VymQVo*qqђx#ƾ*Mu*a:VrI x^} _;/JyK2}*% __+NCVrkBI<Ј?3IN߱٘1cߎ௮~`H!n0_;/ y0x}PSKBk3W u$4"vD v+_4AM?mc$.oGe˱>VF>ȤM6K_r+L&Te=veSU%vmBv \=;\pc9Vۤ#PzisunoGN !K߮#ط#kB6QE~`DZ7kJ; 7jط#ViSEI_ďvG};b; _;/V4JO>DriLJO5ǓV9#\a*~#(F0U݆nXžHDe˱80ym˱~)wbΗ*PK߮ط,id~Ǝp{ag3.#Zuu6($߮oGiCc$Һ_;A|jSՑ0; v~`DuxΊjط!_rl8L^Dr4hW[A6Un%<5:PvxjQW>鄂; ~rľ-цHuY1}Sc]KXb%rXJľ-ᆨ/+Oa*gמٟx}PSK2}*rJmԍN}[b; Wh9u{!F_cfyȏY=fg~k)GkBLT=о Mjۤ>E޺i4kۤToцѬn^;_};7P贚3Tumnx}HI!r4zαT:_C4nqBc]Kqcߎc; _;/V4;tU۱D_2V)HuO#3Vg .;0mױ,oRB6?c3L= jPL?`PMC 3xBI_`cߎ  gI4oz>5yAc$.~ƾzW[=Ө yGm~Ǝ~`Dhu6Xطc!!Kxdz6?c;T~-o҆^;ѨNr p?3DE!G۱in^;AYj*|I\99oױD۱BcV\3{򝙟1uuu,JOm*t$eWYطcY+ u6XrY1 S9Ô1;Y_!^d&_'|jPlz`c$.HD߮o9z+G`—d3Udoe~o)!6?c9_;r3rjMMT6eԣM%U`JiS&D[FQ'g;'+'+>+~k)GkB>%>L lS&|-ד?۵#m):>›n5g]F9qi6jpٜSSsRJ觓eԸ.kVv̌c{,g`iɑN}[; 7jκv-؜6?c{͉?\?v0@"n.m)Kh`D%oRطP+=|S  sc$Һ~}[JzW[=HՑwHDRkBHd!oKY6 jԢ}[:d.]e13Qq8tJOݷB [ͺv~ƾ-G_c]Q$˱DzD<X*XHc!x,u,n&}-G. i4MZJ.m9֡idӰg~\M; - ?[noˑ v+E>~#mY"4ak|MZ# i4eq`|~6k)طe)idӰǁq}6k`,$4oMZǾ-zW(UE>ᓳ~#mzW [=HՑ:oW{ľ- M#3S*3v8?&+p,6_$e[7}|m,m_$e["?v0@"~`䶫t/{(u+󟆽x&}-uے[r,j󇗽lyҲ*oKnF? {Yyu+󇗽x&}௾oK.zפNO^v<iY75^Q0>/M"ľ(gzwq`Hˊľ8Bu9Jj󇗽lyiYީ6iˎG؏ }#^v< Ea/;ۤ/m zj󇗽ly~`J64(u+󇗽xEI_$Vo$3NO^v<c?v0@ZV$*4(&}o$֡gzj󇗽x~`J\虿&ީ6i#0ceE;/{Yy~`J)zIiSmӰG؏  T?eQ0ceUbH)g,j󟆽<iYީ6xˎG؏ U}#v+_ǂi3(O#`؂mҗMwHYB|^&}}#^VqաdӰGm)n)mh?eQ0>/V? {Y< EI_bHqCcciUhQ0:U~&󇗽< Un^;/ǎq`C>}#eFxסۤ/roBe/+qաdӰm9J9"4^80>/V? {Yy&}}#G v+_eiGh=LUTgŏvGB"G#pMBwpz>7}ܾ-Luvj\6BkՔǓ3t:n^>a S`a@ß۷,!ӭf]tJ)`Mu*lbݷV.]%kՔqidӦaML6Tlbݷ!ӭf]to5ClbfNNGgT7o5qi^:jéی_;۔!?;\!;Nܾ--F'չn9 _(ڷB D>E^c$Һ_;UiY ?նo YzWce ?v0@"n.Mw  ?F6xHOָ6kiKBrָl)W?*/S#?v0@"c$wEbߖ6BcV1ɇK߮}[zWe%о-; u ?v0@"d ?۵6mikBZM<;G~MUEI_K[bߖ&z(~`D\x-O>|f~'nΛWI_pS7-mzWҽ"?۵GҺ2;?鏷i4Y \Ut%miWi +*t +}[uVp +ę;鏷yv'>x}zCd%p=Y LQc]K{ľ-n:oɵo[BHuÿv+냲NB~`DGhJmҗo^;Uh_Өm4zU&}v+B-. v+c+_qFhȱM#{mY7rBe/;qաdӰGmYJY"4^Q0>/V? {(&}}#K v+_4ʇ|DF#4eW*?O^VCI_c (YMwBB0W#odiC[䯋nWi# Mui#te7B0WOxܾeF0WunlF\觓FHLjk2XY4(:k2XY={`RBcq`:9z6}#9j3ަ;ؿo,ic$B"Mw4J'U%;z6k췋\!mh`D_!^gKSOwVigg \F07Bpsvo޺yNF*gO> gO>?v0@"n.uh`D_!^4VOQ3>ȏ Ⱥ!4zE)סۤ/`6B(%;bO>ue7Җ%kB>hʺWEė|j3. `o=BpS iy8͏ }#; W=;H>Fͼz!?v0@"FZFpsLOmҗMwHۆHuÏv-n}#2E mFUtFNiס6?cOx}I>M 7پ6FpsM; u o7FhkqKqKhgpW6+Dq4?c絺MzWE5c]%o]B S}#. v 4J'o3}8_hNtr6W?v0@"ަ;ؿomC6?c.(~ٟZ&syd|&mqk2QZL#htl_;X n,P3o(OOϙϨ;9;ؙx;33mqWfP%;;FnQg:vwF'uQ:ۢۤnԭʱo M#^]ԭxu[tԍղo*B6}[V%4&}tmYgŏ :k2ɃôhVıbs~9M۲ZB/Z?v0@ZV[ͺv_ra9tr5Mwߖ M#CI_6}[Vm3; -ue˱iYѝ۷e冦ۤ/`-U_PÙg~`_;/NN<8o߷e_ց=Wb''ަ;ؿo*a*o%G]0xӭ()uv-O()ŏ ׍}[z%ǃtrO'wߖu v+[ӠptYnQk2|AO'Wӿv+_#-#4^(u+󟆽,ۤeMbߖz;/{Y<c?v0@ZV%mY42x#0>/V? {Yyϋn3ީ6iҲ"o M#󇗽< EI_:Wgީ6xQ0ceU;? {Y< ~`H۲^%SmӰ؏ }[ֹ42xʣ`|^ԭx&}-"_/j󇗽,~`Jے+idӰǁyQ2x6k-oK=פNO^c?v0@ZV$m-idӰǁymגscߖ =d T?eq`H˪ iSmӰǂ; -+3^;/{80ceUbߖF }wF\7Vv̌c{L<L#= /=l\6Yc]]ǾwzW+D;f1=rV ƞeಉ)ʾwzWHOc$ҺHͅqse˱x\}(i$!thp-ɇULU?&qUmk2{6?܂i;c]dƾU M|ۤ/jcv+_g3-vT86czj Mf~|MzWsf*0t/lǘ˱}#+"+7k2{6?܂/lǘFB±pc9vod~:FVV۵iS3j&}v+_pL5$v+_pajFMYC?\od v+_.FQNm9کی;od!ӭf:tZ96ôcfcw^c4lHDYS{`u Qӛn5EFW&}v+u)ZL#S.^bv++u)ZL;fƱ33Xӝ7^B?\?k}#kzW;.4j^D`Q/k^LÍAuzW[.4 F!zi;7vCcѮ0_;W|VZ?ՖֺG_q~33F|ؿv+LJOAd󐇛nʾFps޼MyuIh`D%oW[طmC. ?v0@"e ?.K[!PC}?.K[B p; FYMj }kuh1>7?cಂn^;M4m!!K߮u.usnhG#M&=Sȿv+Te=ϧG; ľM#:˱`&} 9ve֮Jhٟ&}طvu^;WIƦt ic]\[ZB p; FYMj }kW$4e=tծطvՆ^;M鯠/B~k}kWn_yL| ^n&ȏvطv /߮vG^ţ]J<Gkc:J!KiEI_mYbU.P6m#ڏ BbuLuZiǐI%[E(9&}#]O'׿v+t:)#oWž#49m׬'ٷvѬ[&}}k$4ج*?;/X݊PgUխجU~&`u+6kTuծطv݆^;'&ٔ_߮o v+_cY0m99Wۻ3?9߿~crX\<}k׫k;ΟO9u iաۤطvv+t$D;8iAyzXp~ic]m)o:zWcG~`D~eu6-$Ehg'jK}ks%ǎ!Kiաۤ!_!Sėc$7sCpWy2_re4ɭB>U~&'e >+LpJI_mW7[\nƾ\.?xTP6NB~`D~췫-n[5s6_!^—~FMϧ?/C~췫-m[%xTUv='#ڏ BO#r,X jtՖ6#4v0@"uisU u+;G.mըFF0W6k`DHj}k`PÀc$.~om!ӭf]t}k vI?g3) Ə#0}+;ZLϳ~&s986ϖ3יGaݷ6V^PDx]pw!!?v0@" ?v0@"}kcF0W Rs"&} c]mط6r߮6H[["jʓ oW[rhţ]rp%-%hjGC1kB $ =i̫ќnƾvط,~_Lc$Bc]\[[H_!^t*LUSh҆H,QV&}sIKic↦QV&}J(=ARطBc$Bc]omY^;~**6򴩒JoW[طB h췫="qģ=rh#ƣ%%=" c$B(CI_m!oQB23Ve;?0Z~Rbv+!KiաۤطXBhumkBR%S3c]\[{423ve6_$!H_gJ//߮u.=kBIB&x?"kvQ#ڏ Bb M#:˱`&} 9ط6w+b XW~c]ľ6%kBLVx`)QVnBbڜFïnڲ}ksnid >[O O>Xt>b:mhgeVг&9x; Zb\.Կ~pK[x[VpUǎ!KiEI_mYb(e˱zQ7YUtnE?8d qzWw{G9mH$?͍%Py8wJ"ڏ H.b R_}TQg{DEOU~ր ϣq>s)uoni4ϟ|YmkBwVIzNԍx}ӵUU[tF.͍u_!O'pOM顦b&U<~ 'C~췫-m4TUEI_ 62mu7=2yȏv}sKxWO_;hOy9Sѝc$wEvG[JԇoC]\?.K[k;V؏ YO&}ľe v+v{mJL; ?XUyk&}7kBIB?U*!Ts#C~췫-m[k;؏ YO&}ľ v+A?NB~ֹ83?cG`?ՖU_9H,M:n_;/V`9#onY^;/r`9#7Bcq`9#cve4?cMZov+4:uB~`DZ7o:k[;|O>_;A&toM 7gs%BnΛWI_pS7ﾵK  ȺjK.GzC]%]vqU6 vq.$ ]|f~|Yc]micڥ v+!KiաۤطvqChumWcezW6Ivp4 ϛ2_;\AiQpLJoW[طvY+*/Zgpفu~QEx6%.kBIBmQXoW[طD翌9,_ye4LSȏvط]k⇺?.K[KPjѶ=ѶKyc$ط]~Zƾ:r[?(~췫]طͅoWF9/Z&}v+4&t8jK.%4Xy6k}ľzW6IMϧ LmMc$Bc][be /.w!p6.x%x$.$[P~e}s6.ᇚj%]k[H,e e (.0O#3V9ly6]rov+4N!7uYc]mic%zWh^e=+nrTƱ_K)~ľ$B plY; FYMj }sI nuRݮ֛n5E+_;/VcfCNΔPtnS1< ?\ ?v0@"*%Gh`D~ٟrMZo.YBceL$!HYO _[=Ө~ƾ^;B; FY]tՖ%%mh`D\"o.qC UU=u?; u߮}s*ǖ!Kx}I)(ݛ)n^?v0@"uh췫-mKr8؏ Y¿v+Thr ;)6er<oXm#4:t%:q52J^M:.]ko[.on{^v̌cxe˱80rN/on^;/֏`VԇnWR9{%vz9%$9~^tr>Nc$B7mCcq`:9~h_ǁi$|57uCce(FIB&B4h_#0 8ֶ؏ve涫Mu*᧑qmҗbvFg઼(M26q~uson V1}:Mc]p=KFȜks&>g 9ac?庫7-!c׆&>g0؏v*ub׆M|`* C&~uWoN؂}:Mc]Km<\oKBM\6[0~\wmĵ᱉؂)?庫7zPkC&>3?c 8ob\wFgM\n66wAb!c$Һol殎V.]%426qMrWK(=AO'殖qk7O6qxzӰkG O᱉k o7wEB[QRݮ8%o\7 :QjC>s6yݪ[ 꼨[1Wɇue7w^;A)m;@6IR%C~`DZ7]B &tm*&Y=ӽɪ& іS;GSh:mNfX33vqsmrid kuK(=AkB> DOS DQC#HEXAMPLE DQS( DOS COM1o9DOS SQM\DOS HQ )DOS CQ 1DOSPARSECQ 8hDOSINIT CQ 2DOSLET CQ EDOSINPUTCQ T0DOSPRINTCQ pjDOSVALUECQ xzOBJECT CQ .iHEXDUMP CQ fv'DOS.DOCZ   !"#$%&'()*+-,.1/204365798:<;=>?@BACEDGFIHJKLMONPRSQTUVWoXYqҟ)( b3 SH6I7wic$B6}s%tR'Wx}P&UOh@4FXėB4LE#u$eSyh; ?v0@"d o7w^;UkB>%>LIzVU7MBI_gmᏩ.4?cU~'ۤ/w'Hrn웻n^;QEUrE9վZFWUZjվZtV+!Nj F\JW|j||^m (ߟ.ӽeJc$Һ_;nTk҉+1GE_;j|oF9rtS ҧ}£Q>tϔ/NjUjQn?ѾvkBMwJ|Se3W|j5ӡ7'qc]GYžh=gNfjuWn䨌S߯|ݹ}smic$Һ5uU웻vC@mfFIB_lc_Uʝ}s׫nk_ld@G_WM,|>%Lo7eBtmq7w*FSZ&}veJO4ozzWt=)n8?v0@ZHľ\(l=_o7wEB[QRݮ8%o\7 :QjC>s6yݪ[ 꼨[1Wɇue7w^;A)m;@6IR%C~`DZ7]B &tm*&Y=ӽɪ& іS;GSh:mNfX33vqsmrid kuK(=AkB>! gPvݸWjrॕ*Qjkll=NӋ[]#+5Yk !sxn,ezN!鼦I?ix's|U_ WƊXЯ*OEc:5a= /f Mm}~^Ӌ!{ OI2{I+~@M6a5wRO{IZ}|/N:WJ0NpSцcÙrP_w/J+cÙr,=[勞BHm3@ Ծ: !8Zz26 #o^g1eK:K:!W^Q=0Z1G*N]/N0K<()Bةo\\dzB/Gڗz`qN\Ɔ^)^ҵ{0^ޣ5{>ZcMIk?Ūذ/N5G>:$[a)8?K|ǏN3@GG?׽$c*p*o_o^ V?ᝰKuϪyt^SM8{c>|*:\N( QX%DmXc#{)VOl"fc~mlU{:?Ū5 e.NJq^9dl1*<A|)^N."c~%T;sUGp]VVݸbUΣS AxռE:`?/bU^SོN s+i5vo1*|/I0z*^G/s鼦+V.+Fn\*XcCztwY1ZuxݻqflXˊѪehՍP]K0ذ&l}R^ laM,$ً$426şD3;K23g$j6XcP8_\ zuN=rp8I;Zs|۟:ګ'з_!|B ` O8uiz^a/ɷ_BG{wBqG๶Iqq攦c ~;cX )w["NKxMfOS,vOzQk56?[qz Ƿs76?[ κK;z9Ɔ5g223|4[[KH⟭O,4٬ٌO1zG8&cú'ekljW ?ЧX'huНIOy_cttGd^c1KRᏓ8 S*^Ӌ\Ic/qؔK]Kܯ?N@ipu'^@2wOqy/ct'}$klX_ۧ/ cÚXI{FaM,.OlLp26 :)D;髏mlXwm*66Ok,ih^Ss߫.ڷ쾶^i`lc 3OxMW Ώ6lѾx,a汒dz51ah @Cj+G葲v;^e\6| ?弗^wWl=FvK8 KRs̟bW,G_y48 KG8>\0ؤV?Fy*svr'[d/鴴~=oKRs̟bW,G_y48 KG8>\0ؤV?Fy*svry>Rwu'%X?uigWw4VK0ذ&?5'*.,cúS*}ϫذ&Rm9b;93Yg,cr{];~q/v\VVݸ c 36l-:56)׮v׷ ߸S^SO Ak#E5}'h~$!^ML)>q~G/qU8Wڅ띰zPU7.!Ѿ>=Zx]XU&ceg蘆co\*Xcúg0W^Q=ehՍ+pewҟ:OL06;9=~o'=8W.+aK.?u+_yE:׋blXw Cu/ SCϣƆub* :c/IϣOALe]K}{M=}llX cCҠ_-{:_}%]jt3|1*ذ>lJ8[=[>052{M+N N[eZ C^iSso 3ƆcҞZj^[]ϣS_j1*'c-w*p8/U7.=>q=hq*t\~^dOͽ5Oq9 ]O-mW|XLm\)~& Īj=~1zhklXt'VO<>Xr^[r^kK76\5!% ]"!K 9tFId{EhtѪbiDm:,Cwyc?5͋Kh ~8za]r&Xd56Nc̋N=5ct']U=ms!D^]VVݸkz~;4V=F=a'[0oc+kNi:v=IciyM8%9ca]rfe:Ohcr)D/sc:33. lAwO-B'WŷkذŇfe~}9]-ϫXcUCyMXz,-5~6ü).Nȅ6>ehՍ[qI=/<;ugֽ$|l:u'%ⴄlyGp=}WgUy̍u|!>ȅ.z}YZj]Y?8p[ Sq5-5TƆ5K2?QY;xb ^ >xv6Xc:qhCxvr>5~6ü伎= ^+nXcÚX%ଋ]ذ&IfY{I&XaK2fkl/}W}E<;cXRwu'%X?uigWw4VK0ذ&?5'*.,cúS*}ϫذ&Rm9b;93Yg,cr{];~q/v\"Tݜq&U|O/iVqrU? Fر*mjc8h;&Z+vyTݜT%8O4Ӥ/iV}>͟ "!4͛!E!N!%'j"J*J##^#V!!BZ!N!I%'*J^#VÝ͓Z!N!%'ZZ!N!I%'# ?PPV_ekq;  >>>not implemented. ͛!Z!J͛!!9^#V~#N#F#N#F#N#F#N#F#N#fiw#q#p#s#r#q#p#q#p#q#p!͛!`F͍F9<!!!!!9!!!!!9!!!!!9!!!!!9!!!!!9!!!!!9`F͍F!!!! 9!!!!!9!!J!!!9!!J!!!9!! J!!!9!!J!!!9!! J!!!9!! J!!!9DOSBIOSPRINTLETREADRUNMXABCDEHLIXIY͛!!9N#FEF!͛!!9N#FF+!E7!FC!`i.!R!`i:!a!`i_!͛!!>ͮDMÚs#r! 9^#V ! 9~#fo#s#r+!9~#fos ! 9^#V!#! s ! 9~#fo#s#r+!9~#fos!9^#V! 9~#fo "› Ø ! 9s#r!"!ʈ !\! 9~#fo!, ! 9s#r! ! 9~#fo!K !N! %'! 9^#V! 9~#fo#s#r+!9~#fos! 9^#V!9~#fo!ˆ ! 9^#V!"!› ! 9^#V!}!ʳ !!9^#V!9^#V͚!9^#V!9^#V!!!9"..͛!! 9~#9!2JDM`i^#VBKz6`i~#3! ^#V!9^#VͫD6>!DMx! DM!! s#r! 9~#ʔ! 9^#V E#! s#r! 9^#V! ^#VDß!! s#r!! s#r!! s#r*2J`is#r`i"2J`i͛!!9N#F! ^#V!!! ^#Vͽ! 9^#V! s#r! 9^#V! s#r!9^#V! s#r`i͛!!9^#V!9^#V!9^#V!9^#V !9͛!*2J͛!!2J!9s#r!9^#V^#VBKzʙ`i! 9~#fo!ʙ`i!9s#ri`i! 9~#fo!`i^#V!9^#Vs#r`i~#! ^#Vͽ! ^#V!!! ^#Vͽͽ!9^#V^#V͛!PDMx;`i~#'`i##~#1YDM8`i^#VBK ͛!!"J !ʓ! DM`i!*@J "*@J)BJ~#*@J)VJ^#V)*@J+"@JDM!N!%'͌7`i">J*@J|!Nc'`iout of input ͛!j"J!Z*J##^#V! "=!N!%'*@J "X!N!%'*@J#"@J*J^#V*@J)VJs#r*J^#V*@J)jJs#r!*@J)BJs#rexpression n.g. for RUN overnested, RUN ignored ͛!j"J!Z*@J "!N!x%'*J~#j!*J^#V#!9s#r!9~#Z*@J#"@J!*@J)BJs#r!9^#V*@J)VJs#rg!N!%'w!N!%'overnested, READ ignored runable to open file must have a filespec to READ ͛!j"JZ*J##~#!"J!"J/*J##^#V!!*J"J!"J/*J^#V"J*J^#V"J!N*J!*J| !9͛!!N!}%'!N! ! 9^#V!9^#V| !9dum͛!!9N#F`iø!PY͊!DM!PY"DM!0PY"DM`i!#0123456789ABCDEFabcdef͛!!DM! 9^#V͂!9s#r!!d `i))))!9~#foʹ"DM! 9s#r" ! 9^#V`i͛!!!9s#rDM!0! !9PY! !9^#V!9s#r!9^#V!9~#fos#r!9^#V!9~#fos#r!9^#V!9~#fos#r!9^#V!9~#fos#r`i!9~#fos#rà !9^#V͛!DM!9s#r`i\!W DM!9s#r`i !o !N! %'DM!'!W !9^#V'..͛!!!9s#rͧ!9s#r!9^#V!9s#r! 9s#r!"!J !\! 9~#fo! ! 9s#r! ! 9~#fo! !N! %'! 9^#V!9~#fo#s#r+!9~#fos!9^#V!9~#fo!J û ! 9^#V!"!b !!9^#V!9^#V͚!9^#V!9^#V!!!9"..͛!!!9s#rͧ! 9s#r! 9^#V!9s#r!{ͮ! 9s#r!}!ʛ ! 9^#V!"! ! 9^#V!'!, - ! 9~#fo#s#r+!9~#fos ! 9^#VFh ! 9^#V ! 9~#fo#s#r+!9~#fos ! 9^#V!$!ʰ ! 9"p of value block: ͛!j"J*J##^#V!!ʸ!͡j"J*J##^#V!!*J^#V!=!!͡j"J*J##^#V! " !͡Z*J##^#V!!J*J^#Vͽ!*J##s#r!*Js#r*J##~#*J##^#V!!ʐ*J~#!*J##s#r!*J##s#rÝ!*J##s#r*J^#V*Js#r*J~#*J^#V*J^#V "*J^#V*Js#r*J^#V*Js#rà*J^#V"J*J^#V"J*J^#V"J*J^#V"JS*J+"J*J|ʠ*J#"J+^*J#"J+s*J+"J#*J|*J^#V"J*J^#V"JL͛!Z!N! 9^#V)J^#V%'!N!7%'first expression not a proper receiver.must be LET expr1 = expr2;unknown or invalid assigned value. ͛!*J|Jͧ!9^#V!!`!o!9^#V#͊!!9s#r!9^#V!"J!*JG#ʟ!!J?!9^#Vn,"J*J!9~#fo++"J!*Js#r!*Js#r!*J"J*J##"J*J*Js#r*J*J"J*J*Js#r*J͛!!9~#*!!J?!9^#V*JG#G!!J?!9^#V#͊!!9s#r##"J*J"J*J^#V"J!!*!9^#V"J! 9^#V"J!9^#V"J! 9^#V"J|³ ͮ*J|¿ *Jo "s!ͮ*J*Jp!*J*Jp!*J!!%'! *J""J! *J"J! *J"J*J "p!*J*Jp!!*J""J!*J"J!*J"J(!ÿ *J|ʁ!ͮs! ..... |g}o|/g}/o^#V#DM!99`i͚!|z2VK7":VK"}P"}}!|!!}!|!!}|"}|?>o&zo&|"}|>o&|o&z2VK7":VK"||B"/g}/o#zP"/W{/_P"DM!>2UK))c"#}o|g{" :UK=2UK["}:UK=2UK["}DM!>))Қ" =’"}}/o|/g#}|!!|g}o{_"|[#|7g}o"{_")"}}o|gN#F# N#F#z#{ ###^#VBK^#Vz1##y+######x&##~#fo}|>?o&}|>o&{_"|g}o[#|g}o~# xp#!9WK~#‡#!#|ɧ͛!!N"]K! 9! 9^#V!#?-͛!!9^#V"]K! 9! 9^#V!#?-͛!*]K! 9^#Vc'͛!!NDM`i~*$`i DM O8#'$!$! 9^#V#^!+!!9s#r! 9^#V^-%!9~#c$!f$!! 9^#V8! s!!J͊!˜*J*J8#*J͊!*J##"J*J*J9#*J*JG#!!J?*J"Jj*J!!!J?*J*J"J*J*J9#*J*JG#&!!J?*J*JG#ʐ*J*J"++"J*J*Js#r*J*J""J*J*Js#r!*J""J*J*Js#r*J*Js#r!*J~#fos#r!*J~#fos#r*J##͛!!9^#V++"J*J*JF#!!J?*J*JG#!!J?*J^#V"J*J͊!%!!J?*J+"J#*Jͬ"8#J!!J?*J*JF#d!!J?*J*J"J*J*J9#‰*J*JG#ʖ!!J?*J^#V*J^#V!ʷ!!J?*J++͛!!9^#Vͼ*J*Js#r*J*Js#r!*J"J*J^#V"J*J͊!6*J*J##"J*J*Js#r*J*J"J*J*Js#rD!*J""J!*J""J*J^#V"J*J͊!™*J*J""J*J*J##"J*J*Js#r*J*Js#r͛!!9^#Vͼ"J! 9^#V*JG#!!J?! 9^#V#͊!! 9s#r*J! 9~#fo""J*J 9#! 9^#V##"J*J#*Js#r*J*J"J*J#*Js#r!*J"J*J*Js#r*J*Js#r!*J"J*J^#V"J*J͊!¦*J*Jʇ$!@%!9~#ʚ$!Ý$!ʹ"! 9^#V8! s!!$!@%!9~#$!$!ʹ"! 9^#V8! s!!%!!`F͍F! ^ͅB!9@%!"O!#rS$w$a$#%!! s!! s#r!`is#r! s#r! s#r`i͛!! 9^#VBK!N͎&!9s#r!!ʸ%!9^#V! !ʸ%!9^#V`i#DM+s|%!`is!9^#V!!%`i! 9~#fo!%!! 9^#V͛!! 9^#V!9s#r! 9~#fo+s#r! "S&!9^#V͎&DM!S&`i!9~#fo#s#r+s`i !S&&!!9^#Vs`i!ʅ&!9^#V! 9~#fo!ʅ&!! 9^#V͛!! 9N#F(͊!!9s#r&`i~#fo+s#r!Ú&#& &&&!9^#V͛!!9N#F`i~'!N`i#DM+^c'!'!&!N! c'͛!!9N#F`i~_'! 9^#V`i#DM+^c'!\'!1'!͛!!9N#F!PY͊!DM`i !ʢ'! 9^#V! P)!ʢ'!! 9^#VP)͛!! 9^#V(DM!'! 9^#V(!9s#r!!'!!9^#V!"PYʹ"͛!! 9N#F! ^#V`i^#V8#(! ^!͊!5(!!`in&͊!s`i~#[(+! ^#V! ^#V! ^ 6 #=…4>6#=Ž4 : >4 A4[Ҳ4@þ4a4{4`w# .4445w#4{o|g 45w#4!!|a{ !9^#V*vK!9}|-5*vK"vK|!͛!!!!KoD!:o&͊!Ks!g7"xK!KDM!"4L*4L "T7`i^! !™5`i^! !ʡ5`i#DM}5`i^zT7`i^!>!5!!9s#r5`i^!<!7!!9s#r`i#DM^! !5`i^! !65`i!9s#r`i#DM~D6`i^! !26`i^! !A6!`i#DM+sD6 6!9^#V:!9~#ʏ6!!9^#V! ͊"Ns#r!!9^#V7!9s#rè6!!9^#V8!9s#r!9^#V!!7!h7!D!9^#V!OE!7!OE! E!!{?! ͌7Q7`i*4L#"4L+)xKs#r`i#DM~Q7`i^! !?7`i^! !N7!`i#DM+sQ77p5!xK*4L͌7Can't open file for redirection: ͛!ͼ)!9~#ʦ7!7ID(4A:$$$.SUB͛!!"O!͛!!con:CON:lst:LST:prn:PRN:pun:PUN:rdr:RDR:͛!! 9^#V!! 9^#V8͛!!!O! 9s#r!!9s#r]8! 9~#fos#r!9~#fo#s#r!9^#V! "ʇ8! 9^#V!^#V!7 5"_K"aK*aKDM!9^#V*aK"aKPYF#ʮ,`i"aK!*aK*_KG#,*aK*_K"͊!!9s#r 5ʥ,!9^#V*_K"_K`i͛!!9^#V"cK! 9! 9^#V!!-?-!*cKs͛!!9^#V*cK#"cK+s!͊!͛!!L9N#F!N9~#fo#s#r+^!F9s#rz2!F9^#V!%!2!!9s!!D9s#r! !B9s#r!!@9s#r!N9^#V^!F9s#r!-!-!!D9s#r!N9~#fo#s#r+^!F9s#r!F9^#V!0!.!0!B9s#r!!>9s#r!N9~#fo#s#r+^!F9s#r!0!f.!F9^#V!9!f.!>9^#V! ͊"!F9~#fo!>9s#r .!F9^#V!.!.!!@9s#r!N9~#fo#s#r+^!F9s#r!0!.!F9^#V!9!.!@9^#V! ͊"!F9~#fo!@9s#rÁ.!F9^#V!l!,/!N9~#fo#s#r+^!F9s#r!:9!R9~#fos#rgFzF/!F9^#V!d!b/!:9!R9~#fo##s#r++^#VIzF/!F9^#V!e!’/!F9^#V!f!’/!F9^#V!g!ʸ/!9!R9~#fos#rII/!:9!R9~#fo##s#r++^#VIzF!F9^#V×1!9!!>9gF͍FC3!9!49s#rþ1!:9gFRF͟I_0!9! !>9gFF͍F2!9!49s#r!-!69~#fo+s#rsÂ0!9! !>9gF͍F2!9!49s!‘8<8!"O!!ODMá8`iDM`i~#8!9^#V`i^#VͫD8Ù8! ^#V!9s#r!9^#V!͊!#!9s#r!9^#V!͊!9!9^#V^! 9^#Vsz9!"O!!9^#V!͊!R9!9^#V#^! 9^#V#szR9!"O!! ^#V! 9^#V!s#r!9^#V##^! 9^#V##s!9^#V###^! 9^#V###s!7! 9^#V!s#r! 9^#V!9^#V!9^#V!9^#V!9^#V!^#V͚!! 9! "9!!9^#V͛!!9^#V! "&:!9^#V! "0:!"O!!9^#V)))!ODM! ^#V! ^#V͚!!9s#r!! s! s! s`is!7! s#r!9^#V͛!!6LDMÜ:`i&DM`ifMF#ʷ:!% ^z:Ô:!"O!! 9^#Vr4:!"O!! 9^#V!͊!:!94!94!9;! 9^#V!͊!,;!94!6;!"O!Y;! 9^#V!͊!!Y;!"O!!!! s#r!# s!$ s`i!9^#V!s#r! 9^#V!͊!#!% s!͊!ʳ;!;!9^#V!s#r;!;!9^#V!s#r!͛!!! 9^#V!%s!͛!!9N#F!94!!% s!͛!!9^#V! ",9gF͍FC3!9!49s#rþ1!9!!>9gF͍FC3!9!49s#rþ1!:9gFI!49s#r E!89s#r1!F9^#V!e! 1! 1!!B9^#V!!#1!+1!B9^#V!9! 9III!9! 9!49s#r E!89s#r!!@9s#r1!:9gFI!F9s#r!F9^#V!9!69s#rsþ1#o/d 0u0x0s0e0f0ck1}1!9!49~#fo"!89s#r!89^#V!@9~#fo "1!@9^#V!89s#r!D9~#42!>9~#fo+s#r#!89~#fo "42!B9^#V`i͚!2!!69s#rQ2!69~#fo#s#r!49^#V~ʑ2!69^#V!@9~#fo "ʑ2!49~#fo#s#r+^`i͚!B2!D9~#2!>9~#fo+s#r#!89~#fo "2! `i͚!Û22!F9^#V`i͚!K-͛!! 9N#F`iI͍F! 9gFͥFMHIeK^!9~#fo+s#rs!9`iI͹FgFHzFF2!9^#V͛!!9N#F! 9gFRF͟I4! 9gFI͊!!9s#r! 9! 9gFRFGRFOGzF`iͼ"I͍F!9gFͥFMHI)!9~#foeK^!9~#fo+s#rs! 9`iͼ"I͹FgFHzF!9^#V!9gF͍F2!9*25(4{#<4{#*WKDM*YKo&{#Z4o&{#*WK*+++*YKDM*[K!9N#F#^#Vkb#9^#V!9s#r!9^#V!$~`i!~#fo#s#r!͛!:oMo&|¾>!}2nM!}2pM}2oM!nM! 94! !94:pMo&!ʌ>!}2oM!! :oMo&#}2oMnM#s! :oMo&#}2oMnM#s!"pN:oMo&DM! 9~#fo ">! 9^#VBK*pNnM!9^#VoD`i*pN"pN`i:oMo&"}2oM`i͛!! 9N#F!!9s#r 2N!N~w#—HON!N#¬HyH!N4!N5‘H!N5H!N~w#HON!N#HyHûHN!N#I* ON~#I* ON~#%I!Nw#3I> 2N!N~w#DIoIN!N#XIoIcI!N5>I* ONw#~IFʙI!FʎI!D*WK!40D#4*[K+"[K}Do&"O*[K͛!!9!.9^#Vr4!9!94! 9F+N+V+^+~+ng7u<6>?7?AA|NN777777777777777yO7yO7O7O7O7O7O7O7O7OO:veDOS.SYM.   !xʍDw# ÀD!9^#V#N#F#nxʩDs# ÞD!9^#V#~#foxDDD# ûD!D!}!}!9^#V#~#foxE~E# D!9~#foE#E}!9^#V#^#V#N#FûD!9^#V#^#V#N#FD!9^#V#~#foxE~pE# aED!9^#V#^#V#N#FaE!9^#V#n~ʣEʩE#ÖE!|!9^#V#nE#üExʣE +~EéE!9~ E E EF!9~AF[F!}!9~aF{E!!9~0F:FE!9~a7F{7F o&!9~AMF[MF o&!* OkF!* Ow#w#w#w* O~#~#~#~"zN* OV+^+V+^*zN"zN* Os#r#s#r*zN* O* O" O" O* O>w#F* O~™I#FÎI=ɯ<* O* O### GFGFFF+G* O* O#.G* O* O#DG* O* O#YG* O* O#nG* O* O#ƒG* O~/w#“G* O~?G* O^#V#~#fo))ҸG#°GDM* Os#r#q#p* O~?W* O###~G~w+GG7~w+GG~#HOF* ONHy2N* ONH:N2ǸHN* Ow#mA^t#2/nFt62pc&CM ñgT(ѽ!l6X|F'8&IP/)e+|:^ F;g.}%j_.hGPNYzW?zlF.9ԹNQ嶷_ u*c{NQe8}Tc`4#)Rz/hGSTJ :EU(u@ :E!htWB1C=ٞv?u04Q^PJNQ2+10Ui10Ud\D&+[ݳmFƿz=2`=տCZfr6x^cL˺Pֻ)AHtXv#_DOS.CX  ! "#o$&%'(*),+-/.013245678:9<;>=?@ABCDEGFHKJILMNOPSRTUWQVI,{8L5}糞9pߺ{.31IO_w3so\z=eۯ14oW98<>䯭f㲘}'`f#0LcVWatpWZu{1fLL2"nm͐$fx޷3뢫ne09OKYl]tk[U0||eώt&5cβg[uq&`]t: 5aI[sj٩xt#E^Gn,*XэHFvt#xn,*HK7"XTt#Okt#)%#XM"i"o%4+W"MndQH7-knF&im<ynMqpO7B<^t26nb/3(& ~(/MnaEA(9*I(-ӍÂoQ2fG7Xl jJt`n~} oX8Am̮I7;ZXqֺmR Vl-X/U2ERQ #,^tS[B_/U[HF[I78T&Knq_RҍKТg`WӍijB+Ӎ)W!nܣ qI*4/ npjv8*I};(馉NriIɢnp֞J7 vt x3=HI7-|Lπ{iۙng%yg+!Yq8L+!Z Όb/Ua+B?݈eJ AZSI7"jxvtR3,rtx:Y>\%OnOj˼]n!~yYf%On~2/KttCa,]n˼J7?|[>tͮI7X$CYEC78x{lς2t#bOۯr{Hng^ir vSDOS.HP   "!#$%'&(*)+,-.0/123456879:;<=?>AB@DCEZ?]vL8L"ikeϮ-pFw0yOYRojﻊqD}L==%p62q}b`su(׆ݿz~Fmuf-38,R$w3nMS5̭L"ik~T, eZv5sz?I켼[ˋ, eDQ_ݸoݏv랯 &yOˋ,ˋ, oFmuڿu?L" &}yb1a){|qoףּ૙xD,//:cVL=>{S{U8=__L"T3tLo$#\>f>βoK|yѱCeLLxt66f~&0<y@7mJ_n 2[ЍǨtLxw{LN$2I$"jfվq5A&gL1G)c ݢt&A3&AʴF\׾C~Q1 R5AyON Rm'a~T$Hֈ֜I`iv&A*n; c&&AʴF>nvmQm'a~T$Hֈ,ULӾ[l'a~T$HֈALZ$020 z?V*abLk<9 2[InvioFafJǨ&w&A@J%LLiTnm[s#^=oGFIHJLKONM嶷>,S.A;>4uOW!Kяw%uū4qvOWL`]=Ty2/]2|6_y^PE#\f$K޶Η,?w"cc c/<}M?ޕY4߱=>#ýC6rEzױ?@ABCDFEGIHJKLMNPOQSRUTXVWYZ[\]hpv,cYx= `o z׷s~k; pe%^X ;4죟<]ʏ{yܳbЫye|Qg .vŮbѠܔnM}b+敝}vY:[[AW~}<z,~޼,pvY,!;'e#?6X]:5T!kZi&v ğv5&]ZqZig]R`^GC{LvvAxf^GeKQgy9ɷsM>5_s,._V[E俖Ȗ$>>5－ļ,LUՇMWS^٥>mέ?O ,5ibbEKW-\w]VnM'gLCzzŸ%> U:km]!k,fs:KQ*׬LC2 .OMKu k=xHoR3l0?K q~v 34w6& yD=&lɳFC8 b*5(LwdyL< ].^5Xs[zASc Uއһl/EY~=*Nk kO-r+/#?uqH<.B:gK]~ n٥3B-Y?ҌJwqKn]٥*st̊OM:jKzv)?a<&h~ʘs5gɳN6n^Gy.͸tcy]-h`V` &, \"uv)+&h`q?I[TǛ{RW'{w]J3+E~X^1|M].R~y # -G,GBvaPDkr I?{] .KQ*d].A *.j[_;o#1N|^hy USgG8AN!?oxW*ZqDu+ʳ hȬ rtdV)TN쑣Y1Boxd'Cu_٣18y4T_g s;_5 sģCU"i2ĦWЛ5*&7#vvWW,oWV"e:h&,כZn*.Zģ戧auZo ìLX^/d2G ̈́孙xto19#l†);].BfrLXʋv> fR^ I&<" ;򧙰tfbO&sj&VzHgPnLX4?.G*uorK<"!]H dg]< S˟ܲ Z ďdDKE@dh#.'A^9C5+z=wM*u4?uNvv*V@H5M<:T~P_.dM u~4{MYEs}~'o_nx!_ϳKIhMrZ݈})Wa&\zv:M܂dR~yMEM#tѬ#TXwwgs?w~Ӥ-yh`^_kk5M7Ő PikmCz4TЕ9@ϾZԁH<-uvY_Xh9BSP?@gqhܷϓn4pTg?oW=tͳ8D Af刁#l]3+0?AYx 9@.'=Czg /C 8~e &׍[N?gLCziϖ<4xQ٥M ǃgF7/fm~v)"57stvY `KD<~=.]/G⺙%Wl&uz1zi٥kxOX?ϊUiҍ&Q]JZq"ZEzvYU6F+AMڬ+7>5=}ҍ g '4Wzg(?a| Uљ~i\cw@>5_g{) !tgq1\cw9@ J6/wgpϖ:PVm:H]tL٥MǏx]t<ƃgF7gkcvRHS!v"BH1*m>knۡ"H7#ENؑoG #Ũ=WkCEo G #_}!kNDEH11o}HQf/D|cﻅc:D|cϢ)a<YlvwqTq7:})r*=o~@ #_=9b`^Y,o^"BH7~_"ENc>؁Wu:%lB}bc1SyZF)r*Ď}xe]J*{BStjFh\N%ZJI{;TY&PK.s{nRt2tew{oi}崨9:L멼5ݺ'w"s{mr<\4}6HQ֖Sve&夞2*? y!Cwk)*?qN-l.\o9Dv0OSk-eKr s9e;̖.ӨZzz {O ENM2.W3s+l]ur\W]l"pɰlyŦO}A_l7s ;Plb+1f n _8J39Wx߹~ :FI6~ǮJǓlpԤk&t^#?5(yt/#?u;wΖ:tKg( j@?|{s]ZEM>P㎮]0z-vȕsau;)<ǔ_=ybjFB|ro\)mЙI=˵Aw7׵ۺeOuН\vl"pl1m-+?*n\DjFB|ro+ :9v9-jnNt)̃9ysiQfH~;\2E<@9jQ٫) d<IoEmV٫) 7x4NڬܠgfH~;\2-svZfnyjF$%52 椷Ӣ6٫=IoEmV٫) 7x4NڬܠgfH~;\2-svZfnyjF$%52 椷bOc1SyZF)r*Ď}?@CADBEFIHJKGMNLOPQRSTWUVrbzV=8z#R#Sɏ$]$.KQ]O.E"yv8KƓ7GJc$z<гKQ'٤ LWI6K<:@.~&֨]~y # -G C^&֨4gK-|s*4FǓl=xROMH}Y=dģOwl#?up靧.4 F5._&g]qG. [=`$'vKDOSINIT.CP   "!#%$&'()+*,-/.0123456879;:<=>?@ABCDEGFIHJKLoNOMRlS ֢{r.w-ukk信Cnc>[@ݲhu X+IH{E=^F @{@W=n/Oguw4ѯHH[5{rR7xU_iu;=&͊ !qiJ)ǔYwk)9m='2B6o-su;>ܞ5]uRsvnӢD{uxy;KtIQWU rM !5|FuߴU EYږ+$H0-W3R/k[iQjFsm% .%[6> ֦֌\02g>Rm3~cVo\sF;upC gHLutȳg~(b~>7P Ýe<)uқÇ2i'w-;.~+QԸÇ<*prゑgS?]!!!,bO'#OʝD8rO>vl7y)|np!n>vl"+jֱo]4}0[?|umݪ.Ӈ ]=uy EEpF>|µu Nn,,bvHsZq^BQvB7CCE'#8}pumݪ.Ӈ ҮJq^?{Bt1ˆӇKqzGiWt]q^ „QYj+? lSlw%ɇ{S2'ˍܦ8fOnwvH~1,7V}LKOýwm=zGiWt]q^ǀJpO,7烻eԎCF4j? @(ꑮk?KA0q87{ Zh,]P-Znsv0RT5{v#^&udT9ͼ^.|G r]=ҵ9~yxjyHR|Jmի֛Ӎr;Jzk?Ks ý%5 > -7fp,Oxn{ dzGieEˍ:F;ɍrwVv޵>\y.ӕSX^b+;Fpo.,l["pY)v#λ6Ӈ{i1EqGȺ[-;}3W-pAoF\y#iz8XU;vҫLwC8)k?6F׳Z]1&?(k: hrFYS g8!-V(k:Y+Gm5uOȜWӇa$6{vk10&FfpLwF?0[קnwq[4cX(eD}a{CSwtE::yGo(έ.;\GS!-׀ѧ]%oMQ:ZSۤ@yt4aJ t)ƺqrJRcNK^{ x@asdTVc0%;tV75 [Vnهa-0&?eM]'̷ҨL) CzX%/FRrÔp~QfÇï1^;v㍊1mT?<XcZ>|?x}+<.<{o {/lc}p{Uk0wsn ǫj{R,obὪs[*֭:LQckq[T< m;E\cx[}\(lXغ!>k)wM=֡X{]O?u+t>$KcIQ sk1>Jwyg|+nozca=X [7(\yK8}XX@{~r>\n\QZ垟~=pʝDB?ľݧ'V;nEnryaйcHz;J#l[ v$&|0vVOR3xƖ{9W8Xi_ʉ~tRauA>(o-L;CӇ[,'{H"qp҉wNNc=Xg݌V iWt]q^ „QYj+? lSlw%ɇ{S2'ˍܦ8fOnwvH~1,7V}LKOvBDOSINPUT.CW  !"$#%'&()*,+-/.01234o65879:;<=>?@ABDCEFGHIJKLOMPNSURVTQLJEYɎӞLN$75=2>*ᚲtJ>,J\RĴ&rrÓtS k㇥UZ&Xwڳ{JӇkmZJ˄D#ougz^w{coq%EVZ+G}rgݜZy~Qf;MX9Ӈ>+xݵ?,lݠ5<[:bQy?֊eըt.5XF!/1n{QÇG4<[{cG9Ⱦ~?8G}XQO8威a(}7{ڤ98٤63r|Խa=}x󇕣ݜ;2R:#Gݛz>Jw}Xj˻9=rtiVg[] rM{Q e;;) 威aVE6aO6y/ 6Ç_d=1Em(eojÇu+4YklHQÇHo{R7u>a0IA÷b{ZQPZ:al}a*ɛ0%l :ÇmTfaoT\ʝQ ;XV%a{U?|X(l5d=|+<.7LcYB^UEi'5O;\uk.&a%d4OtpɻG7_wx*(ed=SִlR[LkRVa:rs#JÊn1-ޫʡ5 ycDG<|`NDQ{ϏjQ4:<܉'|8q:CcޫʸbZ~?xTR8=#1۹E*;KܛNu7iTN1Sܼ8ӓsb9(jn{o{eTّw?<Pxa$Mí>nk&v]DOSPRINT.CK  "!#%$&')(*,+-./012346579:8=;>@<AB?GDHFJECI'Ҙ-dǴʌצZ.w]"ory35- hS54&5UfK%,1mjZИCyuy[zp)'gӃ_c>!f/.SE"Rgy3NSsuخݪpikhSCCZvM Dj7t io6ne[.{u6IhT^ww.ze[ykhTKhkzw%z)/iY..Eltj/K>w7wFW!'mle1OLCט-J}"7oqN>^رѩ1'Ÿivz\^ɐg7F$kL-CNqcG"4Ɯ6!'AΟ'Ž-Ev٫wԘbO-?q:evѩ1aa1gr }"/%]x[dyctjI1zI 9vcQgSc54fÒo?ʯlkYC,}({u6IhT{y._:.[ {dlklXtV}PFے￱-y 2IܶDCPۚCP_Nc2um$ȴ8&FclK4漓hj[ȴDC077~W%;`n*#Nv 鎕9η %DQ02^Od'\מӽ*ɔo7zi!ٖhj[S- 1Khuq]( &YNH rdfdwOB|Pngp ȴI4sSьigu0榌cZV$+]=4u3r%--FfҜ"rɔoFn4"嬎QFnF*x_pwo#3iL!mȍ;V@CIs^I&SX:j7FSC9h[k$qG{a +h!^sFSnFq{j>5{xkLod R7#o}vGOBJECT.C[   !"$#%'&()*+,-./01325467o89:;<=>?@BADCEFGIHKJLMNOPQRSVTUXZYWrNxvDOSVALUE.CR  !"#%$'&()*,+-./1023456879:;o<?=A>@CBEDFIHGJKNMLOPQ迱nJ n,2vbZOqKY"v=u(2\^bʼZ"ܵNo,cHXP}3Y^DX$E/sKGƅ|ש.ko,&1'hVi XtV3|4>V}P{$ fw翱c r֠ sSўո5#3mP|4lm8>ymu< e9I\2= ۅ֠ sSG{qYՊxa6rr5(ꆪDSҙan*AYwL")b.Bh=nշ %;:rɫX]+)>V}P#&sAeu(:׵9WOXbEI]bkPI3$^3ܽp7ŠziO5%KL6>V}P#-9I;V׹J c,dc E1Au Ռt47s_ƴ$. wc0MG{\=a)=j֠c [ Z, qc3hu+e-5wG{jܫۅIIƒqc tG-'AN4(|87|W_԰ Yi1E1<\v_sfa_8R㥩oϼ>m_hAm0e?S'e'Gg;5xa>Z白aʬLکwK(^f\=(zɅh1NKAk )e~;LV0= 8 ZL?E E0>`AE6oHsS0Y>NEaِW\pyg(7,4NR ?L a] kYފ+V۩\3&VxCk ~sTcکUdW4F Oee">1`b/FZ ky58>Ϩ/WǏra Z11 E*0bcjě iXUw.۩j:0eVKls=9{cv?XQUNy0(a1U)] Cn@B;&VdR)bfv :ƴ5(.@ɫ3$^3ܽ俁ig=)hpw5{xkLod R7#o}i-c(GFc0ixa4])N` 鎕9.B(v'u3)ocֱkFf ܔ9DdvRIS!|l0`n '#12hyA$yA$"wsF7hj[&ҀV1n" m5g&F&STN0yuWRhuq](Ժk͕/쿑i'L!ݱ2v"jxa?ݫ&\מ &ѐXhhk7 &)3)KNLh[B Ď$ sJkFsˠݕ_&/[&`jě i[pvj }4s7_Dv2MЌ,E E; (~ i1:+vکσb,{r[ú['lnYlՃfv\c-s؃fe^L*&U;LF9AˤY;%*bv(瀀#$NMN͗/ᯥS󻝚&gg4qRrĹgvm6I3+| ]r1 Wq|u~IeR@كwv*[wLJMJfn!n(Mpi1.SvM&]-Ki{euL:jA0W2s q4Q2hN\+X>w8`5mv>ˬe/=_VX$%u}w{3)Ħ?ˬwˀv*\cHgRY F94+μL!{ HnGL+tE./ 9UƗ+KYo[mVpŬ]Yh&+ևu=CW\f-۩K怽Q{{ YeN7/ \9*G{ kXʥi1,۩5'Fr[1;ڬ,)ƋYo"YC̮+@mY$SW\,W\H!SR|X{ eN>KyX!l'`)4{)d;,Ø"lzXk eÚbNE_qv*/ Hod.Ҝάo4y8F;T9=XNLhdn(|DiJo~rZ }hVG*cF;UZ;i"ޟ,fN;5f]hܰlhGz;r4nA4Eո e"/Ҽ\3u:F;&s,w4Wk#99[ ln2U,۩lbq8B$MT9AGϳتPqwW X{TdäzE i1ꅲnY0-۩ub0ڑdz}0.C-"!/`{('h&:_0ک7 ;s qCi"SSk`:vj|t|_hVƾuvj|t|`N֎vEaِ?uvSCS_hv,dS }tnJS|$9Tz- N;5Mg.XjS>E۩iMvrgˍvje,XF;dXz筷\ i;N;5MDG|HN1:vvU୘}tvNEN;5f]3کWюvj+ q dj-[]֢ogG h*Hk)oiOTNE\Ԥ硸)dy0pQ>VSH! djcSCS_h&@֒)o^p-RȞ|t|wvjhDT07_0GziJoVƂ[S GQN2<{lN MҟIs.q837Ih\/5&G{1 Z]QWSȽ2ղ곡qwN/ݛ<iLVg>"ZjS]0<cS!ͩ/{_19&IQ&WT,۩!ͩ/`!n(M4oLF+* }TG4Ѽ19`gN;iN}}4&G+ A i1,۩y.ӘM<x&K0s棜eN|t|iN}]({0I"X09EN|t|`]cr e ?/iZފ?E;F;i'f]4+NEaxԛ iֺSo2\3Z dcN.X 3s q4Q/ҜF;G熸4>Lq&GgEu BEr;Uz;dn(|DǙ-Ck 4qNMo27ߛ`]gԪDL&T3V+"ZhaU?j4X~_|&i:F;zgH/>[)cEr;dXz筷\ i;N;5MDG|Hh~F;UZ;&s qCiygHsHN;`o$ǔ&F7:vM溌wze͐怽S+\u=Cv:F;ԛfn륎39MF4[}{tHsaN>9Z 7Īi1,۩5_iL&I&Sn i1,۩U:ƂhEafG@-۩`19ZWwAhEr;J>:_Xܘd"[Q؅"Z{iL7NB$MThI>:_0ک52l֔C/so^pgJvw "l֞\NAz.#wze͐怽Z]Zc|uTiԛ qCiyZ^[ SkɔC/s4"OvjMzbJ `k`f+oBZhGZ;RnK<&sBPhi֤W@Z2 \(M4H!{hSZ⦘-A+Jc[db0ڑdz}0.C-"!/`{('h&=?@ACBEDHFIGJKLMNPOQ># B7gTi".~"8IBB+Pdoi@y]@@MhŨ -i_@XyZo)Q1\#PbԄ"BbL息ӟ~z/EVҖQ?&]pI6r ǿ<ՄTF=/iw?%wsz㹘T~iRzJsiҦ]+=~Q*36:'IHh7?Sʸ2Rڸ$O]f:_XN 5ککrb| vuqTG aSo1ڑN;(7,4Ҽ\3u:ԘvR铣9/vYEP&韛y2?}/|?Wv*\cx PK΋lzp)1y0oֿq%Lio\I3L-Ck `dgs!n&ivک!}4ڑ1s3şYfKpbWG|Er;&s>9E!Z%9z i;CKv:F;r4:e$$yHnvLhdn(- 3Zyhvߍ p:za܎d*,\3&**9~huz璋vM~j7 gHs1sNܟ"͗ΐjc璩L&{cv?8>W.I2v*c}kSo2e,`[.co4gHs1srvh&ـ}v^d{v_`?1Hndu>L:3Zdjwvh&\c-cfo.e5Er;*Vw:F;i""uک1"F;ۑE4/L]g+ "?7Er;i^H9}01s3r?]XbUTGTG 5ڑd;OeU%' v*c_:vj`1vM憂gn!n(Mpv~d@+x0sӟMioN^$SkwZu*]`]Z *cF;UZ;Uc=4ڑd;vJO6v"'О6<>l>CHhA/q[K3+ѿɿ]N/wYgƼЮ7嗴ۼR)Ga\\!S$\Nռિ+ǯ -%nkif%36/ߋx+g5Fh5P3Oӟ_~^ZxZ <;Ni*{MHhA/q[K3+iy)?x.SgFNiWKt m0.~Y3ӭec=L:{/6"h3utg #: u˸/8ɴք*0U<<1bdDϞ TTT"VWjb@zm24=^TnnYsi=bxa>!h{x+eDJԸU|q[K3+#f?~z 0{BX~^/0Ľv(eϻyݦ:0g/*Ķ mGͣN裹9sS/vi`: }47gnPpo ք[ª,OS+t 'NL]/ꄄ{|!7&Vg}o"nW @`(W^5CM HXϠT ڵ> l auB`v7 ka *J\YqIW ѿkG902q@o`Z&9.t B$咛,z!T'$)Kw7^o_f 1sY_|3+qe}'ft~i2uֳG{aG$Dž[s \ er߬/yB$Y er߬ erI߬ erMnB$咛,z!T'$[XNr%j^B`ye*> ,'9J{?F'}dݶ4a>a#ڶ4h`(5M&ǥ;}4z!fU/ꄄ>oޔ4Ͼo=~`9_1~J{?_—0P71s1j}S t?|Bkmb}vϿa 0e y>x㶖fVG/'My>x 5{<< ^|=^ϴa>!e;$Wͽ&⎓ o^s=Ȳ]V!s^oF!z!lJ%sB˦%7 oBuBBv̿9n *>q+xq[K3+?xGoY02\r2\r2\rPgf[&r7s/>nkif%s؃pȢeڻ㖰B˦\rв)sMu›Pgq+QSVgqIf4ۃ)d:ןa>a#Z\bfF 53g/*sUBh2(Kw7fǩܾݫBh%fǩx+BHhқEpQ*gfEۃqKڻ֪BNHh撕(4fl j[/6gTaZT ^JXgfMh;Nr0'9^ m[z.J`|f[:'UMZuBkx^x+r&7K|i>4V_7fwmyBh[y|ݬU7֮6^ pI6jք=L.Л\]D.\bBnrIݦ^. ,uG !r8I_J߈>Mc)#S6r)1F DOSEDIT DQCD<DOSEDIT OBJAvZDOSEDIT.DOCH  !"#$%&'()*+o,-./0123456789:;<=>?@ABCDEFG8Ͳ6UYv?>_֦6e?l+dqn Tbbf#q Åy*l}m^``e?l+t< ~'O@8փ$ó6--raP ͲGl)f+Qmx¬ty$\`-wv"R*=pfC͕xtO@h >R0$HԒ&q抇)ۉJ_|}Rn[hZ A[H $\K6LGrzLin 8Fs^, v-zH $\Ayޯ`N2Op:{bx?M$l_f?MFs0&fKr)VYmyf=C 9W5{<}riS/۽7&f/Y :k`9Ə4+SkB[Eh;Nr%j%>;N2e=^Ohn\'+:>xNjZsճga9ɕq$յ2.:eZ[EhU[y|ݬUϜWOucnОr%j =Wu2%j =W53%j =W]ym`9ƏDuΞ%XNr%jTDW':5=W"`9Əh!瞜 wJsOfd%Z:Vgv2fa>!]y ,uq+QS/h'Xd%Z'']-ܓ.YU؃pȢeڻ㖰B˦\rв)sMu›Pgq+QSVgqIf4ۃ)d:ןa>a#Z\bfF 53g/*sUBh2(Kw7fǩܾݫBh%fǩx+BHhқEpQ*gfEۃqKڻ֪BNHh撕(4fl j[/6gTaZT ^JXgfMh;Nr0'9^ m[z.J`|f[:'UMZuBkx^x+r&7K|i>4V_7fwmyBh[y|ݬU7֮6^ pI6jք=L.Л\]D.\bBnrIݦ^. ,uG !r8I_J߈>Mc)#S6r)1F'6ԒB +@Hz־6ӵI`<|" ԩgEK0 9R_y#DS 0&0Hf},/'I9BB\vk 6;0$Rnut68ˠC!q X:٭n_78 j<$Jsk[* 'Ť!8Fs^,ڼ 8R<:568`+WsKxW(ͭ%@x ھkSU LK@[?1ZvkR;vT0u.Iff ksmjs7 )fIr/; 1)GH l=f8# im6~؜Wx8Hz{[ܶSG-$6r͊A?g ,e?lΫGLeY9rB65͂a /w1n~,5͂0Ԧ6< nm! O ּ q axwkˮ6'H t3LGh ax"H JJvk$\aw`cyT~qSX3ΌZG㕦fرZPXJuuZc7ÎՊBRiqվ@f!-T,:⾽CFFX[?:{wnŒ383mA>uym^t$(Xo$FFI􋻌2IpRF}NS~wHq̨OgֹZ\=x`fBe6}ʌR8G bMҟQn{p`>X݁Jeq =wxU2()wFFi\ڌRwÌ3HϨ5H ۷J)lfr:m{Ih3e6}ŏΨNr{m &{ۋ$̨wFF$/>UuZ$xh7ΨnRO,cQkGA,c(_X} 4nFIZR8ogkM_@F"ȇ7^p`F|Hq62jM_eԚD $a(*O,; )yWvglg?;#^p`ɞQS rI_|~4+3ؾf`DL` 󪺪' tPSQRVWU)]_^ZY[XGHKMOPSstuwv t 'ADgC< s < t P^X @< r<t.R!Z< t <t$< u. Qȵ Y..PR&P&&J u uΊS[ZX u&Jð Q&Piu &:PvYSQRUVW &t_^]ZY[&P=r.{DOS EDITOR BY J. Gersbach SQR.. r< t.^ZY[ڊ<rȴ.ώ;rt ;>t|D. 3.6{3&&!<t1Q u'!W_.w_<t<um< uu<t< tr,P&P&tW;vAO_GFGNXF;s"< s&u;t!t uG8Gr9  Il3oQ =̦QFIZZN_쿼2>FrEЎՊZp@qf4I(_X-} 4n_n{ x.$]FI~R*O,SQobw2>uҸ~RFM Z['R\y3mW fԚDχWތҸ3yҸ32J(wPQn{!ŭN);ȨOf[E| ;yRO,c(?p:N[P?Xf(X;ŌR8Sm7FF)]R\y`׿Wl1~k:mo+E#$]FI32JfBe6RpʛA,ɖgԚDo\Qoƙa\/(_{"$]F g_hG۾62mȨ5fQ|FFͿ32j83 /_{"^4uQk.^4gQk.=~T xQ\8)ތ3Y_RRAF gƙa$,ݽ9[h26}o{ 3l-4g jZg7g MB&æݔ$ϰcBs-dafyt>5̌S;(=safz޹Acm,WQb#hgFF(= c232222th_rV^+3WQFG_^.{&;Pv#sÊ r @sX W< u;6tv ߇^;tlN6[W&&WX LjG<v2.t%.> )< t.>.8t.>..;>s.>O.;>r.>jȎ؎>>> ````````