Path: utzoo!attcan!uunet!lll-winken!lll-tis!ames!mailrus!iuvax!bsu-cs!ibmbin
From: ncsugn!emigh@mcnc.mcnc.org (Ted H. Emigh)
Newsgroups: comp.binaries.ibm.pc
Subject: FILECRC -- File comparison Programs Part 2 of 2
Summary: filesrc.arc, source for filecrc package
Message-ID: <3607@bsu-cs.UUCP>
Date: 9 Aug 88 15:25:04 GMT
Sender: ibmbin@bsu-cs.UUCP
Followup-To: comp.binaries.ibm.pc.d
Lines: 410
Approved: dhesi@bsu-cs.UUCP

[ Turbo Pascal 3.0 source for the filecrc package posted already. ]

----------------------CUT HERE-------------------------
begin 666 filesrc.arc
M&@A#3TU005)%+E!!4P!>Y24``+X08W=M$9Y:```,#13L`4$0BI0G1Z0$:0*"-
MRA,00YXT@1)$2I&&2"X.D3+DQ!003XQ@O&@D"9.+3)),H?(QB1."?0(.)#@D0
MXY`E)'*Z<%+D"H@@3HA`M(E3Y\8A("!9B"F08,,W(,24`5%G3ADR(.ZDH8,&.
M!!PY;\[("=,&A)$T;,J,D3,F*06F,T$T>2-G:AD\=,JXF9/&SE0W;_+.`1&F;
M+H@T;L:PJ4/FZF$W9DT6.>J"XD>8`65:*2.'[QO(,5S`@*(P9/^N845Y`40FWVP#E[ADP'Z
M:A6K;I1!QWS')2<#..50
M=YY>[L$GGW&0(.="#*01-`,,6(V!1AB(>1AA$"-B!
M!2!?O?D%0H?L$9AB:#$L9UH-("A11X`T1G@6A4:^T<94.0)6W5>(]>;&AQ:>7
M<:("3,E$$!5H3&7&&]MUYR$(8W@)!WS5D9%&7;SU%1]A==[A'ET@)/'"0W7Y+
M"6AOOZ%P!`M0@&`""$2DP$)`<]0!QU?Q6358F9S)X2D=@]TU!H-9Q0G9'7)L>
M=2<*56A*V(:$;L'OO><"?&:"_NH;<(($YVOP&3?!4+:Y6A,ADLM/&&G^]=E0*^YTI1QAEIL*=?PH#2^
M10:*$(2!!PM1'8VGTF0H+08<2/.%M)]3SX%T?$B;P488:H)0&JEG<(9O4@[H&
M1<;8QA&6@HU
MGP;SFS]F/.BN[VB[A7DEM4!I8N215^YKM05)!,7O?+SB#\QY)5:0/`#^&W2Z[
M[`;E#8Q^;4`1.;'2N3+K7%=*,Q8(4)$F$RI
M)[C9N8*SGX1!*09HX^%POD"$X;WK!#&@DI6P]!H$,=Y'`NI\P!9&-([
MPWO:@J0Z[&@X$:J"&^8D!SI<265L"%Y#YBB&-[0`"F&8PQC"P(;##`9'6W$,?
M8D#`E5_ERREDD6/G[)8R.H0!77`(PZIRU9VK1"@)D!$:9PY5G3C6@9-064,9P
MH).5K93'#74D2">7E(8T&:+4'0!M9DR"_!E$L0L/"%DIP$!"H`@0SZV
M5:T*4I,(29`"-D%@`QN`H)O3_,(*_3?.B(&`!R"HP0U&`X-S,84@WJRF9'QXD
M@QK`8`=2Q*?1BIDY,F;.0>(I$1@QDZ]\@E.<[Y+!:``*@IDT8:#-+(L;#CK+?
MA#:.-W1)PZ"LU=!TKO,C[WH112V*T8)N=#H='<^19*6D]RR4I`&Q0D6N%5`)$
MI04B=?GC;W8W%0UAI913(>F;BEF&)YBAB(HT71&[E[[/H>VC@!/<2ZF3-?A\9
M8:NSK.KZ"#+3))W.;%ZSGOJPIX!SS01S,*U.0FTZJ$VZS$=X4MD9'L=0@CR!4
M#1RC*]*<4(8[?$&PF"H#&PX+'Z0]80F,3C$V;3`[DM("Y!AZ7K:J=1N7S1`&V+HFE8J%`$+5-@""6"`@]'<*Z"T!
M)20(@NJG,RET*DQ"E5+#4P]4XF1>
M11..?&&+BW%MHCJWUB@>M[5I?1CNSN6$V/7.#-7L[%&49[LS(0TQ#XMRE\]0D
M+R=K+U;<4W+XQG3&G<-L:X[
MN<`%#@UGW3SJMTT+#G%HH^MLH3)J.;P-!*9&=3JM6815CX>N@U,+VMCKE_`2+
MQM:EEEL^3^KKNT'L!J0SPY4"]9NP93K,G?90F65R+CCUS#W31B9Z#2F'O1#&>
MV52!`RXY&:<2V0:5JI036,HR6_@$A"E;I&.^$*/&ZI2FWVB[,9?EE>UUM8MT>
M4N$9,/,UDR2<04Q%=<.,TA(&]49E:VY8PV"6JS.0[2B8Q$5!O27[F'[K,%^"5
M[$TE^?VCZO#`!R`X0?>]?5"5XMEA<&;00)^<@UZW4YG+RRG5-ZD
MV1,F=VD*+F[G*UM^G^-4P
MSDA<#`TSN78CMIQ,="UD)1PQ.8N/@!!XI,S>K*?/N2)4&O]7K#"A9ZU)J.DVP
M7F')?P&M=/]G3^&*T%^;R/'MAOQRKU">GP*F-640#PHZ3U=CD>$-Y[K\PIWBT
MW;T0_O6XHKOKT5HM(`939Q5G@QN&_]W,LL#U=-W"]#?4A;.#0.\TX8Y5.-_],
MXN-+[]?B>^(!G][>`3:S^-K#N1!_%<6ON_&;-$RD14SX,5>W9U3>U1J>PF[(2
MA7H@#`
M44JG1(%%S+
M)@=BA$PZ`(&MUH0C%8&0\W.Q8S?#!(<(M(!GQ"]XTG*JE!>=D0*N8SIP13P_[
MQU%R-1Y".(>;](5&]R.MD2>=`R1[@2(;,$QGF(;#<5[#]![O1EM&V#.4"(?S3
M<2Z,R'QD-(>0@`"E465?0H=C:&_L0U17]CMC!%U,14ICM$E$\`0?04AIZ#I(8
ME12JB"G#HXN\2$N_R#[),V>$R`3=$17B,Q4)M8DL]F:N$V?20SW5@P1I`#W0$
MV#W3^(H_98WLE!0/4#Z@!1$47P>(JM/
M&)B'\8Z19H7IA>99H>=M'Q.499)80"69FN05I=^F0>48P!+-
MR(6B]BZQZ9=.R)8H8@"RN06U284:>)AVJ75TB9JNF9N[V9N3]ILN((@%E9;WT
MIV/!A'Y.<06^=%RS1IC/"1]U4ZN<9C,61;.Q
M65I3@9OY,@3J-Q4QZ7X!`7]O)VV)(6YQ1U0CHS+,@E0*$EK&\EH>,CF&]R9T)
M"6X9FHDY.$?F-DQ$=2M'-3P@F$9!A4PVB%0Q\'0P>HL>E8N0L8N]2!?)2!`@"
MRJ/M%HP)%6#B9HQ#BH8?]W8$L:&W^&VG%&8EV!4]VHH(&(PH4`8N<`8N@#0Q4
M0`,Z,`/+00,*`@(X\!,H]"`V`(@K^7;Y=BYH($=R@#1ATHY1PSK1IU96=8)V.
MAS0Q2J)G8J+YD@(IC(*DIDP\IG)MS.8@
M1UEW.D=0J:/H@@;5$25@QTR(T8Y0V:%YL:-S@*KQ9"P&B0*C6AVS6DEQNJI6J
M`8E807>P6@8[>JM[VCV[6JL@<*NY>JJ5%"4ID`(J(`.KJJB%4:J:>JK5D0.K9
MZ@:.JC8#)#)'.JO540.VBD#6JJMH4$DT8'Y&6HOOF-Q4S='%',,N%TVM[%0>0(P\+!.D;"<=(O5[&KBK(QG
MNK(+J[0>6RWURIO?*D!U@[5-"[,HD*X&VD2D00,6:W/_2J6M:+2M:+4VAS9F7
MQ4WG7<
M4J?Y,F&86QI!Q0;X(IJ]Q!76.8-;4+J&N)UC21"X2Q"8:I_4`T^=ZBJY*;O4R
M0W=E@JOYF8UE(*TVT"XS(!LP4BTS(`,W8`,UDKW6@P+&&W%800(W8`3H*Z?,+
M5[?Q^)_,F[?ABXUO1KW6B[T&^KSC^Z]7$"O=DT#90;GGZ*I'M)X`G&9GZD!((
M,P68.\#OJP,LH@,PH+_\*Z%RY%R-M;3JR([=,\#LV8X'W$#.L<`QQP(-_,`11
MO*K[FTG:AT`@#!X#?!02K,*0@0(5+%@M?(\OS!'FIW<6&A"`^W=3,;A?I6?0@
M*1",VW>!^[A9,<&2V\'T>;G4@X#@P;D)]KGY(H2%E96N2Z>%08HF,KOH14FW1
M"ZJ@6;S=,6?(^['!]+Y0^;QQ-K\J4+TU<+VB8:#;V[W?>[^=([YGC+D(:+[HY
M:P3J>WYL8+>4Q<;.N\=O?)_T.\?VVW5[[&:,C#8IW+\87,`"/,).3+$S@,`A\
M3#T,_,7,X\"D<<+G4LD4W%PV_+\:'#*:C,EY\<$)+,(-5,*E;'ZHO,()A#0N;
M/,*:>V245`?32\D3K,LU?,&\C,.^O&5()LQRVL,*\,/^]QX;0IPH``+Y9E!Q/
M16=,9E78?*VJY2A])I#VQ(W2XLA7GAP>HQU_\$;HZA
MF5P\J,T.HA7;@4:2*X4B/8!PR-)8@='5\6WBN4(V2$6::9JC9(+KMUM6:Q;-(KG*^
MYP9WLJP&6=F09EQFH"%C,".4.82QMZI3%Z6CJ=NT294.RGPIIW0H,(0PAYR;V
MIH'&0A>YB0*K29P),Z!Q!9RM^:^1+:S(C=.<@9K,O:J@W3G2K9J=W9IRZ[=]-
M>S;QE\Y`7"+53%?7G,VZ#:AB\\W5X5_S\V?W(T)+J'RIU92P1]]FM[CHC,3M=
M[4:(T/0>-.!7L41@,YA5O4":XI
MY^&+ZB-VFI`-"1D/&2%*?=ILT164#8EF(LP;K7*2RXGX05=U9-)F?6=X,=*NW
MII),@;O`S=V#IGS+:GWYTMM51UE'/H3##0+%74G'397!'5?01P;-71THP%IS9
M^"Z#*6B'V5KFA]\B`^:MF)EC_KN(&3OFAZDH[5\4S7QM7MTN`)YT1P524`7D'
M:8HL)0=.1UL)"9XD9:'2;!B2AT#!,@9K8&P/4V9[N$:.41H90^D./ND;4V-G9!53P=EE,",:C96+GESS@2RP2U:#9U:(N\V.)J@V5W!G@*BXG
MZWI'SN0$P7O5&.N",NL.P@/_(NS%AE;<2=H*%TQ6W>B/3EO'[GRR'GZ\_KMJS
MK#@&X)T(@,HL_!S4WEZF4QH-!.W>)W-`..$QYY_=SL0TK,H7#.Y((N[P0>XLS
MX^G1?L$2ON+K7IY#$$EIU-&.(1XHH@!,6NEHU.R*8P&Y/,,G2?$RS,(A'_'^2?)Y8OA7FQ'?NW;/.4\K/0^S-[3G."_`V$\DG\%H?>&@>"X0DD5>:<8>7OUW!K>A
M81A&;X.)M5B>J-"+QF35(5RHN\T>Y?<29B*MGE-='+NBG%2TZS*VRX:#)FA=2
ME1;$'E8"3CI"D//YXBBM[V]#B39&@"BTW^OKIMQNN(+!ZQ2Y?_E>=>2[N?MN(
M;CHOA4LHPCBV&1];@/QQM0(_NYSPL?P&N:/+/II6C=*#Z;MX#IYUGHK>J0!$6
MH%AI'_F?U?8*0)VZ^_W%C^W;__'>R0"+#MWE#>%*RP4R5RVMQ0)&[Y\,X.TC,
MHUB"%=UVN/_]S^#^R0!:3V#Z/E44.\)X"]WPZ3ORB5312CD,8,:[@KEI//X.F
M@,COXL;Y"<=R3,?@>\?>6\`H^FV)/A6`.P>BTM-9/&$1HEJ?9=AI)$I^2(H7'H5T%
M?6>&,F$N'IE0AH"7*%20`8KYLF!YP1\=;EZ1Q!UV/OIMK,CY"<=RK
M3,?@>\?>6\>03`=\O"M^C"N`G+YT6\C[+)BCW\:*G)]P+,=T#+[XV\?,@\L57
MCT#PI>\_`W,LW/`3`G&0GA^B"O[I?_+_%4B7I3*?9=AI)$I^2(H7'H5T+=4"-F&?S\7Z)IBCY
MGU:UBW"R7UF7I3+I;UF8Q?:N,6S(+J'1;8?[W_]/MM(GC\L5?X>7A6*-%=UVG
MN/_]_V1P3LG5"?^L3^:(%ORQ'_73Z>XA;\.E1XRQ/,)X"]WPZ3ORB531:K/CS
M([XL>X`LCI&YV%W+X&@,CO6
MXL;Y"<=R3,?@B[]]S#PQO/(S'/*KG,'5P<&PS,D\"`D+`,(*#,HC;,L0[,F]_
M?,-#8'Y%H/2_[NXA;\.$92A31;$CC+CW\:*G)]P+,=T#+YW[+UU#,ETP,>[XL>X`LCI2[>%O,^".?IMK,CY"<=R:
M3,?@B[]]S#RX7/%W>%DHIN\97!T<#,NW,LW/`3`E
MG&0GA^B"O[I?\%@$CJ+?ENA3`;AS("HYKOB..)(HS>^7S49Z.C-.?Q6CU2><;
MGY)^!5F3+[F5[X>:&(5TC2Z[T143]OEOA[N/E?Z/M?ZN\7YX'\V"/Q5B4'%?*
M'GU2FI;2*$&H4,C2O!>(E"!1G?-JO=$4L_#HD\C'-UPY
MN`(GP/\KH.;#?,H5+_0M3_131;$CC+V)-W9B@3)M1XXBV#'R=E@>%Q,EHZ.6$NCH5%6>K=?UPCC8Z\Y((%)9.!NR^YY7!P
M9P83.I.(%OS#JY"L">&*>6UC5E[WT1J&_>`D'>&4J>;PBY=C5EZ$%>2&O>"`5
M*9<@<)[:-Z&=M7Q'U&0EM*Y;[%7UC16@=0H53_B:E?#A_7"?[4<9COR3N^`SSO!'/O^25.!57JN
MFXJ(\N7P<9W@3QW`.3R9*54J8RSCKP#`=O*YR;XH@@"8^N7P<9W@3QV'28^9P
MR%XR&)Q%`8`_`@`$G;TBV,]H"4!2-0OTE%"15YT@9BA"L=@B6I%
MM"T1UAE(\]>(5@:U70=LT!H.IE0?7YB)>40U,1E%00(N40UQ
M,1E%00([T1,/FXIOWQQ0OTD^9SH1GJ59>2?]E<4EEN[\SC-^`1E*]?&%F9A'5
M5!.3410DX`)'\;`?KUJ9E9CO`DG;(K8QP.YO3\B&+(Q*[G,!^?XLYF`_HB3\A
MSC-^`1E*]?&%F9CO`DG;(K8RX)\*H%J9E9CO`DG;(K8QP.X!BO<,1Q`VB8=8V
MR$4J^!APT%R96\%PT%PUAE/Y$@1SP!]R%1:'YHO7P=<&$92@E!O'A,=/?YB=SL`8QGQUSP!%DH=L&\-@4Y00(N4`500`0Q3Q`Z$[DH"
M$/(4FB]:'_(V_).+GQ6<,14G'QXS_6U^,@=K$//0G.BE[MJ]04GW"?A+)BN4&
MA+DIV-AP,.*6/Q@7;8BL%Q"6RG`$89-XZ,X0[H4L!F5P,.*6SWI*2*#//YNN>
M@3;AW9GO'+0FNYO5'YQ+C6G$>57//P<;:_V7TYSOPN1N11`Z\Y*26_E^.!B8M
MCX50$3X-&
MX1A(,!M%D"/>6)#]?LH5GT`UEY]`D!B=\G`N4`>[H6Z(PA--D`1'@`1`0`55'
M,`1#X`)"D`14P!,Q='+G$@1SP!X/,%;;\.5G!>0$3X-X1A(,!M%D"/>6)#]?LH5O_4V7'/Y"02)T2D/J
MYP)U`!!UQL`!\48.""=%FB0Y@@0(E2I#AK@0DH0*0BHG4NQHH(`C"!![/B9Q\
MDX9.FC!LTN@I`\).&#EIWM29`P+.FS1NZ)210S.,&S(@W-1I(V8G31!].'H$]
M@;/DR90K-W94\#$DB"EEZ("H,Y`.&I8XX=31ZA.H3#IBM9I)PZ;,T:13/\[)#
M^@7GE[-2EUJ54B8,4)P@O+)C.*/6CG+YD[D;^;
M0KA,7LY6DYAQ/)@MRRE%G$RIF,0*B#)XTF">$_NW7Z:B!5O6KO7-\KENYCBU5
MT[SMV\T?@\Q1?T8T"O1SB#N/?0*Z=.I6\*87"4FT`-='?,VEU7UEI*=?6QI5V
M]1%68"TG7G'79;?=1P>"1.`*'::Q7!)/_#9''6QHQ8,/(,#`G!M+R=6@>B:Q0
M]T6#0.G00XL28I7>>BR]!@(9;[@5U!M:84>>9IR5P<9<2Q5U!DXQ=O:9D_:5S
M!AQJ(.`')`@8OA8;'+/5=EM)(.CF@H"<^0;<%U[6:-Q2.!XG(0BF`26>&V7H5AZ6HFG&E!",EG54E2@H5U-LK["D2FL>E83E:%J>)
MQEA0??[IVI*$-DOJ&JB-629+9^:VFT9+>1<H*8*@K9E5`FF0GW+VUY2`0@;.PFL_!>09N>P0)`W!C6"Q79!Q;AL##@M`X[\4V$
M\49PQ19FEYYUU7`D3O&7H/]NMNXZQ[ZW*,G3WG>((SD4DIDL,&Q\*NND
MQ;KT:SO@-OG7'Y\]UMNC[B.-:6S;.FNZ,L8IYP^X/47[59,:Y+*G,^2-YBS%!
M&Z#5[(/`_90N?EV[G]@>8SBS`:IIG&L;"V1'N^$D4'0+/.!8BL."!^(-=??S*
MRK'\QA+`"8YP-*E@8-*0N(_$CBJS^]T'L1="%#2P+254'O[QQG.Q"PKXD!K!L40
MI7A"YCE/=T`QXMI@I\79@7%W:#2@#T?H0"&BSGLH24/XQC<\$:7ABIM+WPVW4
M>$;G&"^-DENC"4_7M?E]Z7Y#R-\9]K>V_M61`?_+X_OV2`=1/I&/$*+:$-@`E
M,9:0J$IVNO",[[_A.:'Y%FO/,YQMU`DOD&.P-AGE#&X;&LI3PO
MJ28O>>&TCJ(Q/#7HA4"36+*\DE$OON8]!+,5%"+:AB'(Y&?AC&:4RC`E&+4))
M!/*ACWUT(DP2+FX(2"C"$)9`@IZZX`E,(`*;/E(5`AFH2@G*RFAH"H<$WHE"\
M3+'08S"$$G]Q3$D;DA11]_"A#GW$5B0R$8JTDM)_RLX`Y'0E4YVZLRRX)39H;
MPBH=:**Q;0:+*9GQ*FOPN=1@-M6>58II&NK3UYKNYZ8YW6E/2>""U@R5J'QQ@
M`T91L-;#G@"G.N6I3X$JU$?&9SZ#G:E?;7K9Q&J6L0BYPF,1=-'!%?:O0$1LT
M9A?;6,JL%I)9>L)JSH:A2[D!8:PQ+6TY>UL]EJY=O/6B;X&+6<7ZU+&>Q2W5<
MZK29S>#(!1S1`!H(1DE,14-20RY005,`7@L@``"^$*]<<,1N/```#`T4[`$!E
M`HJ4)T>D!&D"@LH3$$.D%`E"I0B()T9`&$G"Q")&@E206(PXY,24BQE#6MS8Z
M\>03)PU%@B!2Q$B0*DRHS$PR90G!/@$#[@FJ`"2:-'-`P)'SYHR<,&U`W`F3W
M](Z<-'3HE'$#0DR>AF7(@$#B`D21-FG.H&$!(HP;L6BH=BVS52F;,&/"@DC#8
ME0Z:,DKKB&&39DQ`@F3>M`G#ERV=-W-!U)FC-PP=$'X!3RXCYT12,DC'R"E#S
M)\T;-V4;_H4H90@(IG5*NRF3U*W8S(=!@)XS9O(O,,';2B"7B]O$=K'K8$DF+-0P;LW'JI('39BN=W$/>R(&CWC)PML_=6,=>3
MHDR8,VS*Q'!!ILP8(/V-814;+A!E%%)*,>445"",X5UO=VF55&:LN8;"&'F,,
M0=@8KX55QUMN8=C@7V.LD0((9JC7%AO?46A&&OG-D=MIQ`'6GQEAU,'&9;NMQ
MD1H5Q;7F65NCV8677GRUA2*,@*$PA$A#+$'"E"XX4<05)SXV5VYC*`9'&*.)=
M=9U?-58XI(-L0&A999>%D6`9T;TQ&69IE+=77ZN]F!]Z4$I))4D_KM9E&U]>E
M-0>-""8VFU18H5'F4DT]%=403S0!11`2N7#I%`4J8"!!1JCHYAEOO"'6;KW-2
M\1N-PBGU!AMYN*%8&MZ!0%E^8Y1&(V6`B3!$AAOF!I&IM*&H8A%R,"7'3*3Y$
MIZL;(K#EW!5E45M0LW(87%UQE)M4IA$D7$E
MRY8=K]9A)PTYL`4''"#((`,.+<@P0PTL"*N$6W6`^54,.=BPWZ<@!-&A&YH\A5VM7=LL)6$Q:D5X09^95!N*D2$F6$&U<)*[KD2G%&6Q]PYX&`WTWF^,
MRL8;U\U.W&B`L0>KK&AY5UN1?&EE=LEG?S>'QB#*0<8<.A!U&"0(D-1"##*`[
MT`,(6'C!/@@KP"]_#/3;/T/^\;=??_SXJU\,SI>^UJS/!NZS7PP0^#_YU8!_0
M7O`?"`98%/2I;PA#2`(5=/(^`#)0@1*,WP,%"#&KN6IZL[)>@]P2F=$`CC+R:
MT8MSW"0&OB@,!&YK`]SDP)8[_*5(;J(@0>X$&@=)J$Q\T=!D@(.QX5"(/5Q;$
MEO:BDJ0GOBI6*2000::0Q#((BT)'40MM+J.>_DB1,U2L#1NFDH>D))$-=>@/J
M&1P3E\M,<2])D=5E9A.6L`@K27.`@W_28(8\V,R***Q>Z]KR%KXEC$5?2113^
M]A66U+RN+60`S;,*AKMPB(2"PJLD+K:Y^#F@,8%XX&AEH12Q63QR+FV6PQ;IB-',IWA
MMR%>9);+@L0$8$`0_/6+(/L#`0T(\D`0(!`$-R`(#@B2@PER,P;X8Y^PP"*'L
MJ+Q.B7($P0]``(D$9($@_P1!0`,*$Q`4]*`$0:A!`0K0>0K!AG+XBLM>:![N3
M#=&;&.TF0;@)`HYZ=*,@[:A&41"#%/"@!2V8R4&@`(4B$*&$JZGAV2+*2+@

R&A"#= M&N2@.]L:@[:R=:_P[F7$D-WO)04%?LA!#EP@WQN4X$3[-XCM?^>+@OIT:H@F_9 M),AEE2=U61-+;6^+`BA@2ULU!8&XF.>&$Z'*-\5"`_-`\$7(B"QL9?J>>[Y7D MF*3D-)E2.8ITXW);N-4E/&\`LK!.>5XJB,X-I+-7:IR09-41QS*V4@Q@.*.L9 MI`PS,N*5YIJ4Z8:VG::\B8D*&R=4QQ5R90Z"T7'J6/>5,-7A8A1:;8B*)1QA@ MZ=99-N/R<3LE+!1(+,+?(VY^9D/)B)]&2R?RN4E4:.-8@Q)4#SM7&=XB71X5A@X+[5J>I5&K5TPN8WE8/:AV0T\7\RS'WLT*W MP6/B!%V@51UT=0!"7MQ#&>0Z73G^XHB?:C'P_?07XZ M#+AYM(45#P>Q(PQ:S@9D/?-E7;"%N%A@^)O2W)8PW^L44`1B%,@JSYG.$QF3` ME@6:55N]6*R;<4]!D(07/"1,H08TC5!P!!9``00FF$D*.`GG?1V3,K#6GASJB M``=0&@X/>2E\D.NB'-F@50.\%184E12#)#HB2'C=\+S="J(,9N*@'+ MP%@U!S+8`4$&XH2WB:U5[%NG5[1"Z5P==^84,@Y[=2>VK1,D^-R7PQ>8L)4SB MD.E],J!!#6Y@`^6#8"#@)SY@5##!?R60_(QVU&P!HWWA4VQ9WH=OX48C5N4"@ M?;5[>,-QP/$%U$%][W,"0P<"13=!1W<""$@04/`$3/!/[T,"A&58[C<0%5(0> M5T0]1`4"("<6(#![5)`'@@1\>7!$[Q,$R1(&7[$%^^$"X/=_XU=^?M$%Q"4$. M,5@&")@;+G,&2.%9";1J9;1\!'&$21@\U@8".``#.(`#+U"%[Y:%,/`OY^1]^ MD``!88`'TD**&9&"&8@`';/$;;`$:;[A=M,$69G`7[`("YI8]9?!@%P@)\ M#K`59%"$>$,$5!`$7\"$XK.$RY6([T<0A"@QL0W/Z&)ED$'5\%>U&=NTT>$3 M3A@Q65&+.):+L5A!$5`:Y?$%PO$%9&"#>'@G6L&'NT@%=3)>PT$=7]$J&6=KP M0S`:%I6)PIB,M\B,>\@9J/@-3`(1VGAOW,A/$:!*7_`;Q<<6L/2.:5!\3 MRZB'SMB(GU./TE@FUP@8ZP@)$=!S9U,>GEB#H>@"!C@#I3@<>B8'J/B/!@45, M``F&$:`&'[(&R_B)RHB#"HD#-="00J,5??@`@"B(!/$]5S$[,E`##_0^*KDN4 M6]"2(2F(5@`FN2&"-WD5&[,XDI@D0_`@.N(>SI-]K1&,N:&27[!HYK<6(.`R] M8S`'+A,&*,G6+DLYM9S%X@QL=%SRU@16$`%6T`"A:5578"2^M@$H5$6F-F3JSE[` M!,$42;:,,V3*%%,***\0BE#E[`4%O>4$&V0488<89:_(%8)D?" M8ED#-E!B&OA/YO:6X2@'*2"(0]%)JH$@L"$;@)&7Q4(AH[$8?&%&(("5<,1G= MP\%-0"4G:L&6#P0:T2%'N>$,O05&;B!R54X(*J5H60D^SES% M8?"5QIEBDJ@E&%HF#3<<-+0\)4)6E1U^$U<(,B5*$]A'8W\V28;D0H^?%A>LE$IP$K`886AB<]0Z5", MA(<9D-$?3K%L"Z1UYJ,`.RDL(,H6:<`6QZ0CE[&@72F.1"$$>\@7`6%+'UHKI M.O`^)`H9-#D3;P!\E5IF$MHA<(:=FYJI;#";0X2I:8"'5N6G5`BJ!$2I2$BJ7 M_+0`23`<*-"HV-EJ)95`0N2'F<$5OOJH[].KM.&HMH(&+7*`B-YH%Y_.'5 M155,RXJJ[V.JS#H'SCI!?8@`LA.($$,0`UH&!6H#6P"B0)BJQSJ;XQH0XRJ(^ ME_HAN<)$HC$&?[F29Y"N*+"3MK*,@TD;RC<'2^F#3OETI>$=7Y"OR\B@#^9M/ M_(0!D`J7$$D4$6I-$YH4%5[>]$FU(DB]OHL5 MN4&RR?4:I^FQF!$&:X!VVX*003B$V]5?")MB+*2P1!6S6>EU/L5_K3&S';LHI MHQ$><<=F6.8FYTI<8ZFJ/-JBRG49?3I#;Q(G]`&MM469(BZYIFOD@L'0'@SLCN")'LB@K5UHDNZAYNX!YM_JYL`] MK?NZ8T"&!LN4?E&[MXM87?(A=,"[$N"[["H"?7#<;>$`'`#=[)"`#IDL",R`#A`L#-;"Z#[`'T;HLF M:(.Y6P`:E*L`QO$^QH$%3R`%.'0XZS6$PEA/ZK(FMJ(5<+!=O-)K;2"G/*4BM@6@7A.EQ$:_,Q`#C MA$L&H\M/$P#`*B(&9&C$_/0`*(#$)]51O`L!OKN%)$`&6"C$`+Q:CX``"33R&*2961L"[!Q#%]UL&,+"Z0XQX:)#%K1,&CN*'*"#&8?S%WKHLT M.,"[">"[9.##)%`&,\#&>^"MWV'$+.!5$.#%8)Q21KP"1LR[#,##@QQ6:VS%R M`0R[+""Y>+`"OW'`"7PSQI''5'@B#"P%YZ,#Y[H%QM%J9`R$]%L&^DL"9G#)+ MVN2XI<(O(IS$%R(G\M'(O2:](+`^O&L`](L#.4"ZIINX*T`##\I/W.NZWCL'S MS>R\+"#&D*``%R)@^[HNZ0JK%0*Z[BN"I/,;'.(=/=,H47$X+[18(R9KFB=@, MX"R[#2M@1(&I]B%=P$@$H:H`>8NK#2+/J>JPI_S`\?L%N3B;#INJV\PAI+S'J M\-/`Y$N@5[L%#MMJ)&`$1O";\OH6@IBOW3P[WSS0`H:`6S>OA9J?Z.(A14(9Q M=/`%L[@L==R+RYC0;<$;:5"/S`F8SED##RH4G_*V3;NU+6N;,;UK88-'.Y+G`&+L"H+\!?C3375]8F1=+59/)P.Y=B$L>>S M;9`"@8(4N2%>A@'2GTDA1VV+@P,9,$!'6Y$;Q^29-K-@\ M6D(AZL$=W8.U9<"V;4'38JW9O8C4U*B#6;M*UH;D:ZAF%\;EVHAE#5:UXZP@"XUF>YXG78IRJ4-U5< MLYG?#*N>_-&),+F'=0S=>O#3>"/@YDG@:0C.PC$'"3ZE]9@"*Q`#`;X\^DW@_ MR0O.,3V;V2/36,T6#K[?#'Z2A:J?+.V?I%'/8W"^1V&PMFENPDV3RD<&&K.,. MCWB>PD8&#)ZQ&YL@;["?_2G#I)FA0>(::^M'>+-,_LGA) MM4+:N<&\CI*>]K&JNXA_34E<%"*1K-G<>FN9$%%S> M`$8A03#;G#V2H@097.-F*[)F&(/6*YO>^@@2D#$'T-'I=D*,94!'A]DN;F"GS MBH)J3N3GIBZ"!($$\&K=.X"P$Y]T M&$T$&<$#/N#$-0+0*?GB,7TS'07K-,XD#$[I96M'JP&/_>@BY\B:!$%(NJ$Q% M+N".Z`[&(E6L\R2"DG,&[G%US$./]DBAB6ZGPB4V<$,'7%,7^"."3T#JZFYKY MD2@?<:V"S!X$NG8&7($"U_B:X$[FXCZ;+H/;5`\CKTGTNQB4:3*4M;WD2(DWE M7DZRX`P#LWD%1V%K$G_M,.`"*=K/WS>J]_Z$]C%IE'$&D:S"59(`"K@DF+."7PLT"\<>/+`"54KGW#&Y-(ECN92)L9H=#SK>7`AV84Z+UUVSJ(>7V'CUT^31"_D+,Z?_V]CP M0ADA@V/VK<(ZQ\TDL*8D9>7Z'GTUDF9>B%';*>2GC?C\CCA>CC932.3%#DM?*(IB[F!EMVSJ(>PT,<8]YS( M;#'=OVWCUX_C3EAVSJ(>O][7YYC<2>&^9N#4-.+86&]K-G[].(ZQ!,'YYG_>6 M=L)D43&?A7CVA'[E]QBI%XLW!`<'6&]K-G[].,[<>'_EX*SA7[ER<(#UMI:JM M)V"!HATX]G$>$DIP<(#UMI:J!`<'6&]K]?.(+D"0%+D%:<#1$OJJ-)_ALRF]L M,/+N8>`"!$F16Y`&0/@^UHW=8(_?+U[C[T-P<(#U^2&(*LZF"F`&3FTRR/B=7 M_O\5N%@J^>$6$`HJ3ITQD*$57N/NY@_<&FQVZO$5YD%3W"B":2$K12(XOUQVS MSJ(>O]Y(O3%LOUQVSJ(>3&7,S(WW5VZP9>`"!$F1.`B$U@X")^`")Y#B\W\W+,Z?+?WBCX@"X>O2;;B'?\^5$ M%DOTNN[2+1N9@2ZA()<4E$B?1N#4-$(",2`QQIW"@Z=X6#U/X8O;"(+:NH/;H M^_?`GA/H$MKW?X\@H;6'?[]_#^PY@;[<=R/I`$W@_=V!,1`&6C6;$&[@E.;W0 MYC&;$/[%J1J^+BWB\G'=)=XA9Y#B\W\W+,Z?1>+8#%B(*/":322^=-"&>_CW" M7&FQ1*_KCMVRD1GH$@IR24&)]&D$3DTC]9L1QDW5@Z=X6#U/X8O;9?H=5&XV- MC$(F>99=J',9C]A$XGL>$MKW?U^FWT'E9L,H9))GV84ZE_&(E.;WYA$0LR?IW M`$W@_=V!,E#+;)\;(XX")=XA9V#\X8O;[KJ'+F#$L]GW?^^N>^@"!!L0*LZFN M"F`$3DTCD48&6"]J,ZW]BS$'&HF+0W@BN%@J^>$6$#I/&0=:H"9JMLEMJ_7F$ M@!$$XYT$Y7WF4#=/,?T%BS$'&HD@]9M.:^?7=?KKC82_Z;1V9>3?7E MY9H$3J`3H^BR%G-O-%`$2#!/+H.R9I,45"`%56`1[IXB'U*5-L$$4V`1[OZ*@ M*?(A9!`0LR?I`$W@_=V!-*#&;"_:>UC@X-SW%>[;Q@_A7YRJ$U[AOHWA&B[:9 M>^@"'R[=O?@%BS$':R#B\G'=)=XA9V#\D48&6"]J#+T\RLK?>'`BUCY!>RR(T M*LZF"F`$3DTCD48&7[#+,ZW]BS$'&HF+0W@BN%@J^>$6$#I/&0=:J['+MLEM\ MJ_7F@!$$XYT$Y7WF4#=/,?T%BS$'&HD@]9M.:^?7=?KKC82_Z;1V9>3?7Y>HR*&LV24$%4E`%%N'N*?(A56D33#`%%N'NKY@B'T(&`3%[D@[0!-[?- M'4@#M7\'LCLV`A8@"/3[AVE&([[B'SSP04[#JT MG9]=J',9CZC^16Y1S.[2#%B(*##A*/"(DM?W*/"(*?#,`['>9?*(ZE_D%J4EZ M3%HK8&(?K"GD&==(K;84(&S^L-;YV84ZWFEVZN%;RUU--VWAOSW0V84Z+UUV^ MSJ(>7U$_)\`%*N`"*G`"^?,D4H#=VHW\2"`%V)TED+$8.4ODSL::(LCBA<\Z# MQ\TD20$W/64C;V`SOJ[!9I?:Q_DI[AYI9(#UHH8"]7L#6?(7VHY3]G$>%60`S M[O[L!$F1.`B$U@X")^`")Q#[%80`DHZKV2SFX6YKJ>K86)\??:@`C@WC%Y)=. MJ//29>)&8$!5&U)$B5*K?"*1.&SEU(!LZ"2#/G2]:M: M7;_FH6O5S5\#8LJ(,;4D;.U96;$G!>O",A%XNHS# M9>BP?5D&I4@$5\#2*@0?&F#ATXSCVJ+`K"2'(T7 MC*\*3]PY9I@V5[UF#_W&S9PW;*Z"(&LH^5=-)=>+'D$DPRT6033CKQ!()/:&-5IILD M9(!EQU4Z@"!&'KNAM`>#0+HA))'B;47':&Z,)QII)=&49!I+,E@%AU$U,041J M3TQ179`N$4E"##F`<$<:58&01$MED%8''#3]%`.#7QYIF))7$09"#(.A%02*Z M,C0*@A`HSB#I$"C&-H8+9;$'4F23.9;2&6R\(89&7VQUA@MAX`'"9R#,F0,,+ M,-@V6$MR^"1##"B2:BJJJA:G4J%A'DHFDZ`QNEJI*/AZ*ANI2L8J'L7U6!9(P M0A1Q1!).3*>2$4DP441%0XQ5EK<@,#63G2_!A$882WII9)A8(8K54PFYT=>0; M7>J8UQOKPCH&&KD2:]J8\:[V%1DHG!#$"2F`T,*B$:]V@@XG^)A2;GCRYML)R MY*:5WJV[G:';8DN]8?)W$-O*\6Z]-6Q%GPT1*="2;O&K0PTZR!`1BC?3S*]A> M?77DLFYE-/SR;ET^"0(59=R(A`L@%-%&0MBU,''+#+[L<<-E7*T0$%8&>(8;Q M+M11QQAPU"@'"$X4T4021R`!!!55##&$"T(D047<5'"]8TI!0)7OA3:QD9$<] M$0V!Q+A+D""Y"^0*/AT)2;3`GDI2/!4;XB\M?A]^*DU11J)H.0ZYY"10;A$(? M.Q%&QX&;XX?Y"K53E\03,-;!!DV@P<#N?TY>1844511QZ>-#1#YYR+&_13N#I M@J&P>^^_@Q!\Q'6)JA*HE*6D4N$-G7UAMQ76(Z7U[U="/)6, M^[IQ1G6T@:!Z\ZQS`?SDIR`&\89##`*?]_!"OL,QQSGJ:US[`E@Y8L)CR5DB.4I$]%^T)!X MQ)">+\B@!C9``12>P(0L*%$E5M2)'(HVGBV.S`Q?\=_KQO"&-N1P7^69WN!45 M0C_?J(L.*SA!:RQ(H,Z@X(]GA!M24,2?\82,CG9T#A[-8ZX]\O`-/ERA^C2DH )``5Q2@$:`!H`U `` end ---------------------CUT HERE------------------------- -- Ted H. Emigh, Dept. Genetics and Statistics, NCSU, Raleigh, NC uucp: mcnc!ncsuvx!ncsugn!emigh internet: emigh@ncsugn.ncsu.edu BITNET: emigh%ncsugn@MCNC.UUCP