[comp.binaries.ibm.pc] v07i188: comp, a Clipper library

ibmbin-request@crdgw1.crd.ge.com (08/19/90)

Checksum:  172387991  (Verify with "brik -cv")
Posting-number: Volume 07, Issue 188
Submitted-by: sir-alan!anomaly!mpd@uunet.uu.net
Archive-name: comp/part01

  This is a Clipper library for interfacing to IBM mainframe data
files. While it's not an executable, it sure is binary. Enjoy!


The submitter says:

COMPS.LIB - A Clipper Binary Function Library

COMPS.LIB contains a series of routines which allow the user to store      
data in the same format as IBM mainframe equipment does, as created by     
IBM's COBOL compiler (thus, are generally compatible with just about any   
language on an IBM mainframe, unless you do odd things in assembler with   
these variable types. The routines allow you, the user, to retrieve and   
store information as COMP1, COMP2, COMP3, COMP. Using these utilities, you 
can download data from the mainframe, manipulate it on the PC, and then    
transfer manipulated data back to the mainframe.                           
                                                                            
The user merely passes a character string (compressed binary number) or    
a numeral value to these routines. The routines then determine whether     
the conversion has to be "from" compressed-binary to numeric, or from      
numeric to a compressed-binary string.                                     
                                                                            
Those unfamiliar with the internal storage representation of these formats 
should review their appropiate IBM documention, in conjunction with the    
source code for these functions, and the technical description of how each 
function operates, in COMPTECH.DOC (not included with this distribution.)
                                                                            
There are two additional functions in this library, which exist for as     
support functions to the four main functions. These functions are COMP4() 
which is the same as COMP() except uses all 64 bits for positive values,   
instead of using the hi-order bit for a sign bit. The second function is   
TWOS_COMPLIMENT(), which will calculate the two's compliment of a value    
passed to it. IBM stored negative numbers in two's compliment form.        



[
Checksums obtained with the 4.3BSD "sum" or System V "sum -r" command.

checksum     size (bytes)  file (between BEGIN--cut and END--cut lines)
   26912        13373      part01

checksum     size (bytes)  file
   49313         9685      comp.zoo

-- bill
]

comp part01/01
BEGIN--cut here--cut here
begin 644 comp.zoo
M6D]/(#(N,#`@07)C:&EV92X:``#<I\3]*@```-;___\"``$````````!W*?$
M_0(!9`X``'$```#X%$&<C5PZ(```\PT```$```````````!C;VUP+F1O8P``
M````"@`064,`````I`%`````0"DC*```50@<2+"@P8,($RI<R+"!`A4@(DJ<
M2+&BQ8L8,VK,J,(AQ"%/FD"9XH))$B$@6H`8\@9.'CEISJ"A`R)&CAPP0#1)
M,P9-F#)L0$!Q`8)(F9ANPK@A&H1-4"DQ9\X!(:7,G#)R[)0A0]1BQX<;PXH=
M2[;B5XA4T*29"D?.&S)UQM!L$R8/"#%E0)B14P:H73)KZ<`44X?.5A!AIK)Y
MX^8,XJEAG((8T_)E5)INWM#A:77B6<1PX)0)(P=$&C=TPL@E.N5-'3EC\E(F
MDW<M8CMATK`)(X9-7CIO0,2I$SF-F32'ZUR5,X<H2]2J:=)!DU?BYS"%T;R1
MPP+$G33301R=CO5N'<=\X6RG,Z?[=KWOY[B&7=N-F>UT-S/N'H:.CHV?E27@
M@`2"\%D2J&'E1AG^)0!"&W"0`812;]#%1AXNS"%&<Y2U42"!GU51Q1!0_(>1
M"RB&4$<="](1`H468J@AAQ6&`"$9'V+TV0E!9!;C"3HXN$(,(-```Y$TU%`#
M"##,0,,-(%`!5!EB@!>E'+FQT5L8>I0'!1O*@>A1CF26Z9E'#*6IYIIL'C2F
MF7!^^!E((I%D$DJ407<:9"`LA]Q4;Y@!@EN%G=;9'6KUA)A3;]P!`GD@*%<>
M<'T"QY=98Y+17QBFN?$H=7V&T49>]\F1WV,@G-3$@[G9A^6HX@V7!ARCH@8"
M&6]8Q=]48_#5WV%BV'4F6*J>,!5(0CS!Q&05PJ%;>2A,IQQ_EYY1QH)8.F57
MAW#TET9O>7T7GAK*T<2;:^:Z(:R!8^[6&''6@L`88IZJRNII>XE:1G<L^C;'
M5'FX=FMP;^$XW6EG3'7:8U>U`6YIXJ)AW9CD704";C#QYMNC>8C67)2@$KK9
M@I`QZFC`=70'J:3</1H<7X(AIQ6].$X,UAR6UE=J?FG,F]A*(4$10W=T0B$#
MT4'/@+1(1%4Q!\*?6I57H6R`]V=W*+,+UAA*#7R'&XN%@:.FJ>GEEH>0TH7O
MJ_NRZL:L=>QFF&DTS0LI%$/PYX;!U'EJ,T2"*36'&>71]38<<?\Z]J9WJ;:&
MRU'?ZZJ^79498)R8E_596E,O]R!6?H'0[;^=<=H3:=&5AS-,C8&``K=\D8YC
ME4G)89<;=3B,50KREO8W8B#@/FJV%T=6QV_!59R7R(9^S/F@Z#8?M:>T&6:J
MH=Y11Y[OOT.:IU;,]>RI3U-1BA<((NQ5H0C,0AC[562T0#MI=E$J/%8\N5>:
M^AY2]-G],!D#Y$S7K/=M17ZGH5^E6'>&RF5N6!!YH`0!-*:TO,%B+#*#J'23
M!M)X!SP2@]1IK)>4H.!L.V&(5WIB=ZW4Z,=3@8J:Q7;6GZE\9@[:B1N.^&('
MY#B*/&DH31A"XQ9G_2I50E@5KL:0NQ:*KSL+RQ.YW"`7\7TP/)#ZG7Q>$QMF
MT08^I5&>7EA41<:TAV:1,TQ/WL:UH-!F#KV:U0OE)2CM.&HTBOJ,&<@XQY9@
MY5=G7%C1J%"$(2#!!41XPA!<%P;<Z$9CR!M4&<X0&-#AB&6``AN&>!>1RTWP
MDY@""^<N19K?W"$X8@/,"R,S1BJ^4&&>.IABOH4EVW4'43R16!GP$!@PH@J"
M?:I#:-;3RC*ZH7S)`]5]7B.Y8KZ2*)R;(1_%!YE+%8T&*.#D9W"I*-M`:@[Z
M0E71LBD>/,0&#C215,F"8@,:W`4\4RF5Z"YHM9GA!DRZ^MV>#",V.D;J::V#
ME%I:L!W:E*9*-)$GIYYV!D\A%)J@NDJ><+1'5UK1-IVLX!6>,(4O%,TD32B"
M$ZB0S5LF2F+?D4P;F2BWWX"*#J<T5OO@4+5:U4U0G+KG\8`Y.OA!#CQ$L=<)
M^8*C!9W!6S,3'EZ8TZE'Q917S:II"\'8!@<"$Y18A6";MLK5K@[$(0XQPC09
M$Z0$."V%>3$*'&&"3O'IP"$MB*M<Y9J`!,SUKGC-JU[WRE>Y.F2</-@E')S@
M@Q34]3G@,]>MUD+3N@2OB0$L'CXA-S_;$:4J<X@;'1Q2UP3`[#4+PE%*@W*^
M\5!'B&-TRBGE@",4N#-8AID#[]X3!L[6%5=U`-=J6XN#N^0AMKRKK%UT6A_@
MG0Y+<L&*;1.P.H01Q0F0Y0D(F)"&-H#'6V0%P0I>H!(9>&$&,@"K`@`KV"$4
M]K",22SPA"O9G5(*,'-H[.VB.X;+6D6SR_VL'$+[0<F<CU/J>=IF9O8>HR(U
M+P"4+G%=(-ZBQ0`%@<7#8,^;`,1BA2;PE>]CAR==2B&(A*PT0MA&YA@HO&&$
M+%CN%+0C!YI`@2]C6(OX[$L'T/+IN*DK37-;%\/7_M8JRT4!8T@5-S;L-@4,
M5L!?@_;@",/!O)S$B(5;G*H$[3?$(X::B4=8I!;@.+FE6?%ZEOOB,L3X:?/:
ML6/>R]C=S)?#]:4*@VP,O`2/8;G$]2?&.@@N$/BF,>&)V*W,7%U6MH70:'8#
M%,VPW"&VI24=G!L*:".:O4%M7J=!'!U<D((&!TT&$!8L80U;X?1>>+'Q=?.&
M\2=`#UNYA"`0\1N\U;HMHR;%"N@L$QA38AC+F#$TIK/I?()<ZRWPTH+J+6R!
MG.NZ1NN4J35R066;Y"6+!-1.AK)&IDR3#RL(R[,FL5!.;"L:>)G8.9XNK\GL
MZT0?.Z#!R;"J[1SL_?+)SG@V7EYBN&=(^OE:9P@T"`<=8PN)KMU/-`VCFYT`
M1Q<QTGF9=!DJ#1@>>RK3A>&TIT4R@U!+>-3H=8-Z.25OQ]JYO9'LUAC6<!C:
M%#PRN.XL0T,+4=LP;T&2K+&]C8MN,+_;,8'*=\;Z_.>`2TSB%+_TQ=V@:=X)
MVN&0_M5R9_Y.]C054DR8@A"J/=ZD>?S)%.8V\%3.\K$1VN!?-K::(5?R/"R7
MWB!;WISW>YC8:=8T]Z8ORF->UYD?QL`#KHV@%A2;?]&/Z]?\.LA++?)3D[S-
M)M=[GLV70,O*.;-LV"S#]<O?T=XE+Z8M#Z?VJ-J"NL['P.T=8I:+6]V:'@7*
M_K%LWUF[X>J[J<-&'9BG'K/&/%?OU+6N"]VJ7>^VDS5(J69M&KJ=K2PW6)^R
M>?06A/B@83/;83<UE3G%WLG'&_)O9K5],:_YSG+^,)Z/S!WJ,I7_SE/`:4BJ
MY/7-=8=08:,=_>C7H5SAR+#TB)`"4Q<T4U)E*S&4>\6F.KUW!L;R?)5G>_A4
M;\?$<[JG=@OH3V4P')&Q7$6'1<DD&Y'A&W+`=4*0!$X0!%*0!5]0!%(@!?MW
M7D0`?B#0(R!0!'+@%J71!%8!3O'R!)Y"73@'`T1A!-M1>(^"%=:5%"^T7#$$
M*8]V!J]2<PK#)W)0!X!A4PIT<VW#31(S=3G$!K,C=W<`$W1@&`Y5/Z#",I#S
M:#WT15B!@\OE$WM3-19'+Z!!4SR!76X@/WG0`HY6-5PS1V*0&&LAA<M54<8T
M,)V1&33!>9#C/2&(%5SG5918B0T!%EF5B9X$)XL4!"!@!34X@U$"`E,@09N8
MB1-T%I:XBJPH$.(E5A:5744C7FDA?86"<UP#0YH$`G)(!AM#7%,A3)#C7>`U
M3W<@B:F23E=1/J"B%C)!4*RE7`J`4*BR4$A1=2J#!F'B>8X(8/04>*H'>/&7
M%PN6C/T5%`[1C3_G.O)D9RW@`^SU/5B1:$YW4G@G'B`D>M&V6P[A6KZ5>N\A
M@-'6`KLU%;#WCU:!9*+HC&B`0#1Q%31Q&H`1B*43/)-T8"#@$`LF7BW0`RWP
MBF/E!O_A8.(5!,QH&[:Q4"Q&!RUP:&=F15H(1321?D;&?CD'6D6"D%.!*-?B
M$/+88E!#*0YF-A6R:I'5=GJ#(X)E9E:'>IUA',S2>$#9&`XQB"L'.2?7=D3Q
M8F_0AE#C+\S8-4X)*(*"0^O1D@@W+V136PI`%W:1!\@!AO)"!CMT7YG7'!SI
MD2`9BR()--=6DB<YA<"S&(V!EH@&D]/7-E9"D^N7!U/AB+$76]G3DPKPD^(F
ME)]&E!Z2E>"7E.4D&G(Q%9'YE()BF0A3E8Z#E7JGE4+A%E[9.F#Y*5TSFF3I
M9[QFF"^IEIOB$&X)`G`)%#A2,))$?GBI9`K0D1]IG+!H3".9-+2H%H^9F/<X
M!U4C$W1P(8ME!H3#%[8R'5U3+,<2-"TP`[?".'30,6UC1V4`/E`T%:BY<NO'
M6E`%(=[29X(&5'%W<(5F.]FYG=?21=[D$S1!=BUW=JRDD?K&*[YB&+.#AK8X
M,N&B&T'A$S,#*4I5'C'D<H7&!E,Q5(>Q,.3A$%3G$VQ@!GQH&":52^?X>9+4
M`I)B,,'Q:*(A!]C96%T$*1IJ<.K!9<+$&`Y!1@6T@S/F$!FI`&*F0Q28@/L3
MEV$H.HGA4Y0B2]!SB^%BCWF2&GM29XR1G`0:/SG*2L25C=<2.5JXHHYX`C!P
M`KZ$HP;*!@YQH2,H7E?0-[RH%+X(-5_*H?S!*KS4!KGC3U>A%=33IFRQ&T98
M2H@Q!I3!(@SJ$*7"%.I2GF6#%P&S-Y$3J"TD,7EZCX(1%XKC6Y&#B"_$=5-P
M&EVD-I,S*L%H,8M!26U$<!O:DN0VH(9:!C;E.CW$*9P"!4FP2"CB`G;PJSZY
M&Y+".VNIF<"#JOD"*YYW/H(Q&@R**HCR!AL#I\4)5WJIG"'9G")!`\_YH-C3
MB_Z"<L$(!\/H!>UDC,B8!!$Y%8R(/MQ2G[[!/H+F$.#IEU#@3J*:<#]S3?=H
M+=@2@G;Q,YPB`D7#/O/2!A<T%ZVRK,RF%'G0F%(XI1!JIG/G*23G&N!"D*]'
MF[P3I:#21B(XB:U8LI3X)IE3!);Z!((B)7A`$Z:()B8[LVWB$`$!W*?$_0(!
MN2,``*L.``#X%,J>'TI)*@``#A4```$```````````!C;VUP+FQI8@``````
M"@`0C68`````I`%`````0"DC*```X34````%P0`$$R8$=`!`@2]#GC2!8@Y1
M`H*C'D:<F,-2-H(:)4(A$)%($9(B49H\,.1+$2I%L%`Y4,0)D9)%$GR9DJ7)
M%"I!I%!!P-,G4*$'B@IYPF1*TIY+FQ[8V;,F$0-%K>HT$O0+D2!`$7"5XA5L
M$`1?QGX1,L6I6K93"#BIPH3)`2%%CGP%^G!O$`)^#4!\XN1G@8B%J1#XXO/(
M@,93\1Z!:T`RW,5P!\"=:I5RY[8&B!R1\J0*%#B8&H(A`4#`@`#74@,`8TH`
M@0(!GLA&0M#`@0`+9*,AB"!!@'.RP0`#H&!!@!7""3)H$.#;;H(.'@38=QT`
MA`@![D4'(&%"@&G=*50(\*Z[A0L!ULDV"`!#A@`'NFO8$&!<=PX=5->=!Q\$
ML`TB#0&##`"PK!%!+XP``0!:7[!!1QABL%$&<U]\`04303BQ!!6$.?2%%3\1
MP1P55SPQQ6`3,<&<$$DX$506+DDAQ8135-%$$T5(@<,-`#B"B`(``!+($$PD
M`04407H!BD$(`5#%(NS,L`TN!$$Q!9<`>(E+!P`X`(4F"BU23A?+D$$0&0;1
MX`$G!0"`S`)4%#`#G0`P4X$5`I@`BBH""$#0E5ENV>67BXY9YIEIKMGFFRD`
M`!X`V`P`P"!DJ(`I`0`\@DV=HAH0*C8-B8K`J1<]<HD!&T&!0J5DL(!I0XF0
MT0(`GFB*#:BYN@!`%J:2\<*P,`APR0%IN&%'&&S4L:$WEP3@!``X8*%!`)>\
M"0.F=>8:0Y+8K)JK#+R"^DX:6%P``!DS)&E'N0#D2D.Z``3P:[UDU/"N#0!D
M(B$VIB:2Q44Y9++JO*8.0#``T;RC,`!VK*L%J$]D@5`:6NQ(!I&>@)J)H9Z8
MNL,16.SP+@[XCLRKR2M4@<U%N>:`KR<7N5PR`#O(\<:^N>K`:YTXDV?(J/RJ
M3`8/PS[R#QD]#`W`&)F`&K,G=5)M=1U8>$J&#P"\(P'64U<-P!-8F#IQ%IJ:
M3?88;ZA"]M'ADB$A&4'PNBH@=F1+P;M"2)T,0M@@:032N0[QKHIL<\NLL]!*
M"P"U`2B>+3CO%H&OU@#4$7+9J]91`!89O&M$V!),_#G<<H-Z-+!D'/$N;X#0
MFVL2^`("R#4)9/+'V5B02882^`Z.J>%`D[&$O+:3(2,9382-.!G7K@[(&Q/+
M\;#!"$_,,``.FQJQ]Q9CK#$`'*_P[A-2?[[ZSA.O\,;NO9-LLAQT\QO%L+8\
MO2/9GEB5]NHVA6%!X%U4```G&F(\;"P``"P@0Q7>906IP2(+!*$!&_ATISSM
MJ4Y^`I2@B.$0A9CPA`F!$110J)!8L5`A4`A"6XI`A!,%048FK)$5;E@%S;&P
M-%38(1-ZR$(H/.$*07HA04A3!2K4R(<HG$(2CN`$(60!)BRT(DR$^$(6N4B%
M.%0(C6PD!1P%:4<F9,<"^\0!*%2)!&MD!@N@8"@`3(!/S&"%%0C0"#SRP@H%
MX`,D&'"0D$PD(="`Q`-;@Y)#$@0&BJ@C'5X(B%4))E8QF,61,'))D<3``);8
M1F]4&`.5%.$PGC0E2UP"$YG0Q"8XT4E1?A*4H<SR*#-1"E.<HDNI4`5(-L%*
M56RRE:[X12S&-`M:WM*6`S`S+G.IRUWRXI>^F`4P9NED8E"9F,4TYC%3.$)D
M\D(9R[0%,VW13#-=8A//M!,THF$B%!20'-:X!C;)R8)M<,.)[O@&..,ISG&2
M`X$`-"<`VAC/=`34$-Z423O<:2A!OA.>\93G/.E93WLD"H#WQ&<^!+$/?O3#
M'_]P%$`,!8!#"60@!`%`00``!2E2P`=&<&%"';(0AC3$(0^!2$0DNM9#4$0%
M%1W@ADR@@A22$+T"+/4(2$A@(U>H`"^^*%8R(@`3BF"$!"I@C#?*T8Z(XB,@
M"8E(<=BDDICD)"A)04I4.A26M`0F,36*3&9"4T+4Q"8WO6L$`*#!"#B()SWA
M\4^!`D47"B771-6546'Z$EXAM5=)^94,K+E4IC9%AA)\ZE2D>IBH4D4O4;6J
M<*%:%B9G]:X3W(I?!NG59W-5*6*]RU-9\(;CFO6L:$VK6M?*%F[(H+[:F:M6
M^%I7N]ZUJ\_I"W;"XEOSCE4M89'A6Y_+A)LR@:YJ-/"!1E#`]6;&KW'EX'-5
M^!S7_D8&=&472=J#7;RR`(ZGW>MSJ,V5O\Z+))=E`@,\0UL%_L6K_B(I9OG]
MV+"X\326>0))#1R($3*AJ608"AN$/!R2:L:KBT08`$8`A(4QE6'R!JW#!09`
M_G*EL@#*RV_O8AK9&N@`$$\O:E\;EC$`L"S>1NZWE<,6%D;QKA^0Z[@2^ISN
M>.<[X`DO;Y^CL8UA%SCI'E=Q9%"1DD>,C0>`^,.'HQD9-)==0U$8`-<`<X)/
MQ]\DH8V]LGMPP`Z<8-YD81Q/PYV+Y2R'3""I:#V;'O&R<$#E*9"!A#M@!)\7
M/;)=,(.E(*P'#RM"4%`@`'52(@I)J41,:CJ&,ZPA%W/H!"$2\8=--#4436A$
M)*+QA4QTHA-6;4(I4E&+M$Y(3(PX:R<D$(5&D$(0AN#$$J$0J4IE*JRG&%5-
MNU#35@7C";?:54T#`*QE%.L).1''-KXQCG.LXQU!^$<"]`&/S`#D!D'(#2L8
M8`MX9(<5#J`$//+#"@C(`9^:P0`K).`$D!A(OCHYD7$1I!.#)(@`4%GPA/0C
MD@29Y$(LJ4(9R&*3`!@%P:$@@P*$<I2QDH$I&<YQ5;;D)3&9B55B^4M:"H4H
M/7%Y+J&RRZ<T(2I.^:55A`E,(A23+,=4RS'3TI7-/%,N=+&+9*I9%J!@$RC:
M-`QB?N+-<()3G&LA)VC,&9>UI',S["2".\4.S]&4!@H(J&=K7A,;U51AGP$`
MA3]_$YR&#&="QD&.:F!@4.?H0J'4L0Y'L[.=[E!4/'8GR$71PU'UL,<]\)%/
M0^@CTOQP=#_]^4^`!*]2@K#T0`E:D$QIRH@QX+1"%\K0AA30H0^%:$0E&FJ*
M`'#4NB2[J4]M-LGO5=46754D676A5KGJ56R;44<\*FN0AM0:M2ZI24^*TI3R
MU5BZ-NJNC](K0?@ZJ;\&=K!UZJ!A08A80>FSCHBR?F0?ZZB\1JJO;\HLX33%
M*<_N2U2A-=5H3[4JTZ:6)2(A`ZQ%!JZ%*K#%*[X".[55++BU#;L%.;XU.<`E
M9,-57,UC*Y^C7.ZB*_CR7/P27?-R7-05`-:%72*S7=W50(8C7C_S0.("`.<%
M*ND%*NOU+NXE,O"5//-57V1P7Z""8?RR7YY`2/[%,CL@8`0VA',&``A&2+E"
M)%G`8&3@8(0D91/&0!<F84#(89[P0%8H8EEH8RY(!D+3A;Q"2"M&!BVV-WV#
M!>PE8W720%YV.'6#8V"3!</`8X_36Y)#.9:#!:!09$?&+TD&*DO6.[^#-D]6
M/(0SA\E392'(+UBF98;(91'P98DFAOQ"9B)C*-;00`=T.$Y(!FRFA(#P9N\2
M9T1(9Z-H9WA&!GJV*DK89W_V0(%6-X-6:,NS1@TD`1#D/._2:'5R09I"/8$U
M"Y(V?GU2?J!``YAF;2=4<9T6@)\F0U-`0S841@FA0SR4:PD!1*I61$>41$H4
M:T_T0K9615?DC=>VCJ-V;+:W5-'#0KM&&#7Q:R<4;,-6;->"0KF'CRP4*_>B
M1-&&52?T;$I$;0"913425F>$0MWF1@0!1PTA1W1$$./6)WK$1WC4;@7`!?'F
M;DM@;_.F`_O6;PB``OO&`?YV`?O&`E:@``80<`>Q<>A"$)R0<*U!<C<)`/P`
M<0`@<2A420"P<3,0"QBG<2HT`P3P<46YE",7*TR)$ZN$<JZT<D]@$K(4<[@$
M<T912S:'<V%9<SH73%E!3$0'=,HD=,J4EE[G%D5W3M&D=-1D%M;D=($Q&-LT
M=8K!&%8'&5DW&5NG=5V7&6#W&5-@`(@9&F9G&@:@=O?4=K,A!0-P&P$@"G,'
M4(F'=P.E&IAS4'4'`'>W4)SG4(0749WG'>"!>**I>.;!>*GI>!N5FAXE>041
M4O=A>:F)>2:5FBA5FIY7(*#W4@L"#`Q``!G`"/="(3JE>CWE>D`5>R<R>U_5
MD-GVD&3U(\M'),O@?&P5?6\U?562?HJR?MCG?I4%?^]R+#3@DN%76!^TC)6&
M#8QE)7-5GG:U?I.E?0#`?9?U+9I%?V0P+O>'-*5R*J35?^0E*DCR".V%*0_D
M*@`X$3,P@/>28/XB6\D#,+:E8%G0#,JRAS\F@=8B9&P0`%,H/::B"`[$+V6H
M+NQB`>^B,K53,$O3@<ECA_@R#0:8"-4EB)[0$%2`!;229`TQ!C\:I,S1@OP"
M93C(*[887_P2.&2@.&:8"0V!-@.190'3$"V:*YI#BE`:,(8B!SMS-#8:9S*8
M"1,0-M60/+SQ.6J0/'H&*F.P.E60+;Y8+=\R//CR.ORR/-WR+C(R/=%3.TZ8
M!:N2,!=&2`Y#2-%@/=AC*.5S-N?#,?YBC``$*DKX#H9`/YGP+=AS0&;*J80$
M")_*9*)J"!*0AON3!:G@/^W#J78*JJ*:":1ZIJTZ/0F4!4[P@'P(9'^X`MSR
M)A,T/16$J/5B6SF@K(\*,9*:,1NC!1M"!E=P,Z?*.SU*!EC`*PWA7Z"R`PAV
M7!BDI"X&KCSC,R9&!EK0/JL2JBJVJW6S!>V3,]_"JFEX4UDP"$_3!3=3J]H*
M.U[0,F86K@B&*V3P!3?SK06;KC\#*O^0C/$90HDE"*U!#0*0*V#0/M]ZK_+*
M+V%`L$PX@V3*A%Q3)WQS/C7*+V(@L@@VAJ9'-N.P,[0XIN(Z/6Y":.^R(9P`
M880S$!%D!N]R!A;$-N\R'#2``*!`#B4$C0JQE--(H=48:MEX0MPX1.QX-JG6
MC2R4CKB61>YX0R^$:SX1.&`+$TUAMOX(1.?(0B8Q!$QU0P6$0E^K:<:G;2:4
M!Q'Y;149;AC9D7O4!30Y<%!+$)N@DPLGE0FQ#T`IE$E"<0()"TFY<30P`$Y)
MN5$I$C1@<JR4<J]T$UF9$RW7E;<$EKW$2S3G2V=Y%:O[<TUW%FP9%FYI='$)
M34DW37IAEZ_[=$$0=7G"EU7G&(#)=95!F.@T!>J4<XNYF/%T=@0`F6R7'"P`
M=\F0F:%Y=P*E=[,!"\SA'#L`>"EEFA!E>*MI4:^948_'4;4)4O61FR25>2>U
M>0,BG"X%4PWR(,IY>LW)4ZSG4Z\75"9"5"I2G61T?&/5(]IY5@#0G4BR5M#G
M5G!%??;I6->GG]GW?MU'@('U`1)+:8F5+.AWG^QWGI2U?9;U)@81H)Q5*06:
M?PC*?ZSR?P(Y@.JSK1B8@/RR*QTJ+%D@"\`ZHI037%B@#SSV)L<R/=]B7.65
M7.RR@>AB9?P2+\Z5//?2+P$S,`5S,##H/0\3/A`C,0M3J=**/AV3A)WX,CR#
M,DH#,F>\,^(J,V+F8)R:,_;CL,EC,P!T$1][8FK8-$\#AV5C->F5-6:S`ESC
M-5$C-F]C-FBC-JMBM&Z3-7$S-]-C9'8S+*6@ASX6@7XH9!:+-X.8*X'S#M-C
MI;6*/0*T/5J<,`O3Q0\S/F',,>8SK>K#I9NZ.?"S*O(#JG7<,VEX.EG0/['C
MK@`P0/QB9X6&.[Q(.$@20<1C:(YFM,!(`W#0P>17:;30M$Y+$"HTD`&IN5-[
MC:(FMJ06CJ@61%R+0JU&CK#&MK.&CE.DCEA$MV&KC29TMP]I0KNPMQ,);A=I
M1WBTD8TPN`%`N0FA"8B[>PFA#XV;)$B"`%85*_*`"(24<1#M>[%2!)8@#L01
MT2F!$[WW15C%N5:I<K`4NEOYE2]7NDAQNF.INL/$NC'MND&73++[3,Y4NT@G
M34NGNW[!N[[+353GE\(;3N,DF(G)=<>;O)SQ3HG)O(T)!7@`O?BD&CP0`);Y
M=QSU3]=+''F7'-Q[4-^[F:39':=)OA6UF8N'OK/I4.L[>;@Y4I=74IH7OL'9
M4J$74\H`!2_`"`;!G*G'OZWW4[`G5--95,F7P,SG#M[YP-(75Q.L?ODI)ON)
MP9<%`H%E`M8LGXD%!`$0PA1LGA:,GB:LGF00`I8R?YPE`I^%?Z>B?P:H*C'L
M*A%0D,#'5/<X@*RQKIZEH<=E`N2"L*[E8F.07UG0$,TZ+TCB,$@2#;I3,;)L
MJ=-J">\26PVLI7J3)')V/==@M(.:/)62"?^0W=O-.TKZ!C]3-YY"R@BK/F2C
M7*6#7+6#L+N2"?E"R75C7<="-A*`Q.3=P(9@#=LSH#=3)X9PILV#+EGP!$\C
MQ:OR:('U"9M-L8*2S9FVS0#@T8YT0K8=(R<$:N)<M?>\CF4[MO5LXF@[!6I[
MD$%11LYVV\"TD`!@CN]\MEF;$.W`SP!`D7WBMW8$"5Z6+Q?M(@C)#9!PB:T1
MTK_GX03!`@U-$(#PT&-T1D\@!0M`T1B!`%.N(U7N!1M-'%M.&E)@2@3LD#I"
MTJUDTJ"KE:-;2UXI<R^-NC='EJO+<UKAEC6MEC==NSE-%I<QE[C+=#^=EWPI
MU'WY3<-+F,6+U$M]F$ZMF(_>O*:Q"E0MF6"0R98I!=8;4%^M&AM[4(L`OL#Y
M4(7'48=GOAC5>!H%>1\%U^TKU[M)U_%KUP#P>?6[()"0`D+@#GZMOX&]>H/]
MO](IP(EM5HO=V&WUV!),GB,\VB7<GR?\+JA-`R4PX<R8"JU1??@)691]P>F9
MP:RMPIP"6"T<*IV%@.#"+\#]#NR>">QC`X2DP>R^")>``57@!FO@!F]P!VX`
M`L$*`G`0!G,P!V5`!B!`!V^`V7/S![$`)V&3"41"[Q*P!?<8)%T``E20\!CR
M!G)`!S^`V0RO!-6"VON"!&10*:'0*<.203Q@[97F)A>^S6%>Y0Q9P'@+0]:(
MC>^8$"$R!:Y6CNZ<M8^@XSQND>(&Y`>AY4_$Y:]6#T>N<&5^G<A'$$;PY"P4
M#XU0)1B^]5S?]5[_]6`?]F(_]F1?]F9_]FB?]EY_DRY`KRJP(00!!GD`!'2P
M/V^@`T9@`FI`$)@]`174!!J0$`#C!U%OP"]@*$H_:TQ_^`"0`#,O!2%P^%-5
M)207`QO+DWE(<C.0`I@FD)00`$,^!;&2#@B1`!H.!2%`^DH.1J1O(K&"$!L7
M`E6R<99/$%.!22&PL3:9A[17<2&0AT;)^;TOE2'`^93[^<.ON2&`_&K?_,[_
M_-`?_=+OM/)P.@V!$)B]L<"=A\+"^2SS^4Q#^A)R^"N>[772,`EQ_@``*@0!
M*NH/^]1G*@H1$-RGQ/T"`9TE````)```^!00GPX2B`0``)T!```!````````
M````8V]M<"YL<W0```````H`$)%>`````*0!0````$`I(R@``(4D<1)$2I8O
M1:1(<<&P(4.!3A)*>2(%A,6+&"%*I.BPHPN-"BDV4##D21,H'E.Z^%+R),:7
M&%M"B:&R(TN3,T?*E%'3X<V3,F#"E#FC9\.?4&;HQ$G#*$.D-(2^I'+ER129
M/:E:E3E2ZQ2D3%1ZE2G5(E*G*[DJ0$K3*-NR%Y'R=+MS)-*B=''.@&M69M.\
M)VF,'+R6+%\03\R8F5.&C@X0,")+C@$#B<4A;\B4`1'&#1D09,+0"0-B3AH]
M91[/P!$&R<C+.`_WC0V7\%N^B1<W?BPYLHW(ED%@ULS9,VC1I$VC5HV#C&L%
ML$_&D'U;JNV=AW,S=@RY]Y@9E2]GWMSY<^C1I4^G!C$C3([GT:$$/2RWM@*[
M1+,KWLY[LHP<X0DW7G'F(9?><B#04(,-\`FG%W7YE74=4_KIQEUO,>1`0X##
MD6?<><FIIQIPKSD8&(042GB?`F/1)I5VNW4760QE`!A<AP0>AYYRZ\E`68,M
MNE265V#!1!A($U54%HP72B:##&9P.&!Y.H:(8`S_-0A100=))!62%%FG0$#<
MI\3]`@``````````````````````````````````````````````````````
*``````````#\@P``
`
end
END--cut here--cut here