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&Q: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'D09,+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