nathan@orstcs.UUCP (nathan) (03/19/86)
Subject: "Scientist's Helper" program source. File 1 of 7
Scientist's Helper is a data-analysis and graphing program written
by William Menke of the Oceanography Department of Oregon State
University. While it isn't StatView, the source is available.
It's written in Aztec C. Conversion to other formats is encouraged.
Besides simple graphing and data reduction, it will do multiple
regressions, filtering, Fourier transforms, and other stuff too;
and operations on the output of those operations.
Mail to me, or to Dr. Menke, by USENET or USSnail, respectively.
***All files have been processed by BinHex 4.0 and PackIt_II.***
Files: *** 1: Description, and odds & ends
2: Include file "all.h"
3: Sources: reg{cmdloop,gauss,graph,io}.c
4: Sources: reg{main,manip,menu,prim}.c
5: Sources: reg{proc,series,spline,table,wnd}.c
6. Scientist's Helper appl. v2.7, 1st Half
7: Scientist's Helper appl. v2.7, 2nd Half
Nathan C. Myers {tektronix|hplabs!hp-pcd}!orstcs!nathan
780 NW 11th St. nathan@oregon-state
Corvallis, OR 97330 (503) 753-5110
----------------------cut here---------------------
(This file must be converted with BinHex 4.0)
:#e0),A0bBc!ZF$*d!&"*9#"3593J!*!%,b-!N!6G*e"0B63!@L@APCBDN!!5P4+
6pd3A1'#(`-563Tr'##r"6DH,$(c3+pL*H@5B+$G!@kh`J+,j&Ue4A,Xb2I'Lkc!
h`V8kEU2!bR9Nblb%Q8LH#9Ip!3U8*Vk&C!UPY3Ik!&@4D&h"6SiB+ZYKE"*mdM0
$ALTLcrAl))U&k)%Z[b-"FS-$jd!)[1fBbTiXZQep&,jcLkFihHCE(!fm4E6SRRf
VMeNA[Q-EU#UpTZ2`(5eMCI`lRQI[1#4c0b1@IVK48%D[l`mS[h%6@K#X59VjiFr
A1$K3Rdd6(H(BT#1fBhH$3kM!fe-HrJ(AakMa-4+iV"5L8Ha9jb&VY0M@,BNVLMS
5k!!B02%-m!5,)5!I!L!I$@%K(kB'-pR@F@H@&RE1Z`Xj2raScLScG!0QcEf%!VE
EAIZiAR!'KF2)XH0pFViP&)P1-9N5R'55KCVAL+P6rQebV)b2rr8lDdle"DSX,CS
@l9$p3S$+#af#@CcGYDGkJY8@8k#8@"eN9c'0c)J4-BhrN!E0cIkCQ8&TQBebeFR
beGfPUc%m@@@@A$iQEQrdcD3@QCKA,9bI,9hD@V-6aCCCCF2LCaZqFE[r&K8Lh6-
[Nk@VNq@VZdY@BRLbbbbjCCCImk-9TZG'!#kb"bdKGePH9%JR%GKG5!$Vq@,H[Km
61M&DER4J!ZX(6jXh5%Z3!1L4eXJMTPc#Kd`kQkq(a-k-9TZG'!#kaPT!@r)B'N1
9@@#pd0MYK&4Q9XUZFrFcPH$S+BK&Sj6+MP*d@[f[Km6-"Vem2LE+@!C"JJH)[VT
@)93C4J6N&+`(+6i*)6d9LaqI!LK&jkQ'8K*,18NYrFB1bJQd-1"2J6AJjie`GNi
5&)XQFk)3LalDep9PB3H2C0,M`JT1BUZFq(6mQ48M#"i(*K"L%@Zlb,*3FR$Y+8`
jbHXN&*f$P*m8Hb*4+D9NC8B"S(FDXPdpJ&3k`#"e--T#5@FT*EqeJ(A`q*Q!c9m
2LDTJ'`B)2'4-K2QVDT85`'RLY@ihak1,E"JR`*U5F5XJ"!j`6eVT@2*fq"-I3C+
M4Ma4)LJ(*3E9$b`(DK&#(S(1dPUh59%BE4#`r*TVAd@[f[Km6-"QViI%fRB"8$"
!m1KR%U"138JCiSpL$J+cP8i3MpTNV(8pp%1a*'h-IR+#9RE(#645BC5#LP'hmAJ
H[Km6-"QViI%d+`#m'#"iLpNQ4D9T"X!TKP)++8EIdT,J&4`!Q0LTi,(Nl&k3!1G
@M+2BX5MC*)-%aSPMiU*cUD-QdVJ5PF)N6P)Ek8Phm@[f[Km6-"QViI%f-X"b$"!
mhL35Mj!!RSFNK5GT,C!!fdi1MSNC!+MJ"#Pf#!%j9%A3SpL(S(4d5%P4!*!!Ui'
RK0HSi!5eB6D1)+5H0#"SK`q(A`)PR+m'TF6r5@-)cH*"+2N*k)+5H0%GUJ%38Ma
+KQ,U2BJH"bB3DMkPFM&KS8$3NUqRb`-K#5&*f'%!*bUBA+!S3C29EL!pI$iQB$e
m2LD'B#%'##3BU0J&G3C4J5+@RK%(Ga45PF)S@%C4L%p$"NU"H6Y&,3b9!NLFT$I
5YS)GLe@M%@K28mF86MmQ@XGcQ+DYaM+-ec&$i%a-9LT%!JFI)&"P'"2*f5*+#XQ
PMN&+a#TK@FUR#%0J,4#$`r1@S5@&@h6J)&aq-SXr'3BVF3(ViI%pI$iRQ##rm`l
+[#rc(#G"MF`3ArQ*59H&rQD5G"MF`38`393*Zc""9!N*-%&-%&-%&8#3!*-%&8#
EX`393*Zc""IqBDj9iAj'BNl3"M3SAjQPK`aSl"H4QIV%JaS91r8!%1'0"A9j'S2
d!$'K9RkM4`iBd+Gq4U%cE!-D&'RiPpK`aS+K[)a)+JJaS9qr%N%1'0(C@mM%TmS
!aS4J[dcHK`aSkB&j'QD#0BBd)bGqQ*LG"MDjAQ)9mh8EQCZFD[q3(Z#I`#a%8Ep
MCEU"$`ZJNiA5GrmfC`VSkSJ("J"rkiZ)5!F'!(rRaiU!J`i-!2qFAF"$K!""K`B
!Ib*i!&5d-1$!$rAEkeiMJ`!rmLMM!qU@MJ`!rcjeM"!U'&S$rN@q"25e8-,3(q,
"F-,AN!!(rL`H3+eiSIra)Z'!(rp-ke4!"Ir61Y8K`(rkimU5&3BIrja4`*!!)q"
(Vd",IciA[)q3!,d",ImLJL%P3)pHJ*Er)Jd"2)%H[3%YrPPa2J%&JZ!3Amb#9F)
3#!KmJ@N)`m3`iK`!mYZJH0a&L&RiX[XkJGXDPHde[8"m66-qI%43S833S#&!S#6
#SfEU0c-h108`0J!`A3FDTJE34iiCVS4c`i!TTAQ,,"BSr,,"Ia*6,,c$A-$BiSf
CCHBIp!4!8%eK0!A1f@8!DR0XA1b6peh0X+A*8-qCiZUh1N#rFec-)9HDT0%air-
h'Z**4djQB14bhki4+BG1MEa*90-+*q@rcaKBb[[["2SkPQF0"p,AGN#JTBKqk!5
k[h'lfHh"CL4NYc+&e0#)#Z"#S)+E9N[6fI`DdVTB3XBK+p6bdAQj,HYYN!#!,U)
("l`$dmPUXJ9fR*[)K$rkmQS)VmRDdSAq9[Ad6(f"f1+0RN@#MCm2!j@mN!!4+T`
$UiTe#"9,!,+QQa0)N!#)m6-b))L`U5)5)-c#T)I*,QCQB54%`Q*'R1B9#'&55+F
*$K$fBR#,N!$U,T`jl8I-c-4BKc-c%9*!9"$D+NJ+JKSMj(X)C4bC()kMSSMa0(6
P(0()iMNE4b0)j$#14NQ)A*L&LBK8Q)`6%+%b"0'6%*Na)bBLj-3N6%)Na'GJN!$
X42B6MB(B)3f#$pJJlB)0f#$0JJY0)+65#8dJK0dQNUD4a0*)QN$TT!bD3+QNP*d
`R)%*b!bG&bH"1!RBR)#*b!5FJ!Rhq6lq*pqNj(bIILI[Y2)`RN@6`TqqNrI+H4Y
2h`Rlh6pl*j8E*(GQ*l1pGNPfGkE*&pNM@c[2ChNMBM%94YiSa)ND*Sa&NDNEH#0
Zp')SMEZ4Yfa'l)L*a#Fa#839F3LX4ZZ))T%EUL0dTQk%cFkCZC-h+QEN6,*Qidc
F5CZ&-h!La-La&5Mhpe,9ZTqS-iI#M!cQf!D9-[J5H!mGX9p!BEjSf'E+EX0q"T8
bm8f'6F2'CUF8)4,F2D0)HK8p$4`CD2&0dNTT+9GKlbAU`Q`-+2Ih'!APf@Mi)cC
pZ!M0RfmCQTkRfM5'$JE(QAMpeX*J@MpY!EP"m+-$1EBmbmI!X5(fd"Z8(T8"@8P
(UE#@-jGfIY'N2DUm+XN%GZ+%)PZ(T8TX-q43'41!jSeXN!"'`Q`hl4T$LQ`bEKi
c06LQ`bEKic06PhCqdD3q&'J&B0LQ`bEKic06PhCqdD3q&'J&B0K4lm%CXqh!01S
0U4mMFB"HACD2,+!#QAb2B#-fIEaQDRUI!dkJfT(h'!APf@Mc$%Eq9,LYdRN6D+)
&"kR`UeRkRhN[K8$B"Te"Y52X0LJccH`mGU3`BEq+-MPY!EP"i'R8'e)TeSeSrBE
&"R&#%5h$fM5'$JE&1&@5GP+"(JDG3E8L$&#%5h$p!(dK`01S0U4bbJ!TPmLI8qR
I`SlUbdEKil8T%!&SmJi3qN1G'LL'MJbdH+%)PZ(T8TX-q$KKS,XY(LK#*EKl4T!
!jSlLJTMIJMX8S10'N!$F81G0h#'LXEq+-MKel9)mGU8L!#dI!Nm"a6*A#Yq1e+4
!"D2S92dEc(k5'ADT`klkDLUGbbj%Yf(UDXVK@*1bdIF)D+a[Q+E$*Z(M-e1+DXV
K@*!!ccTZrK4JCcE'U[CcMkQV+i9L3b$&0@9`V%RCD2dKp(F8&-Em$6U$DNF`Spr
FB"HACD2JM0RfjC3!8br!0!8bq8Pi$P*#I3G3kNI4p6J(9ak#K(&#%5h$`4f+8(Q
pKbfJXU3BrF8&-Em%GLP"bbJ!TPmT,`*-@`*+iG$j%Up,)hc,D#bT"Mpa38a[`Z8
%109HcR(`Z8%)-XS!+CI+[9-1@8!&-[ZP3'QNSSi&6(Y9F0'ALK#*EKk*a1&D0KN
EjCi6ADUiD-[-N8"N6J2T$f'a3Cp)I4h&"6'r!dkJfT(%0("PSq8UmIYS$FS2K9N
UdGq"RBE#ECSlLJTMIKFS)F8h55QNT9f([*HV#E!a3K%Y`pj,eB6EQpK`GU3`BEq
&@Xq+C+i9[a#!F+2IJCf'`Qh"'E2YbbJ!TPm!f@&"Sm,TUjL0`Gq&bJK`$1`f%fi
)cCp['CUHTqp)S9a9#1!Cf'`Qh"'E2Yic06e2S91!Cf'`Qh"'E2Yic06e2S92+9H
2)1!H5Z(3qfJ0bJp6B5aR`S`-jYPP!"6,m+$4qMm(!109HcR(i1!3G6i#Y@K&b$J
(eTJ,FI5(!9Ud)Z@8!&-[`S0(k2h&"p"E,k5#X(BIF8(d&XZ+$k#hV6!@iqN1!V9
S4F+5,NQR8+0P23mCQTa3K%Y`q%9jH$$109HcR(c%$$IUF!kZ)-`kEZIH5p@%f`p
"$lVB6!Y(e2[-[(LQ5Z&Eq%9jH$$2K4JCcE$TZr!dkJfT(&-PF+hqJ$k3!2)PU"K
RJDTFXI!,J"J)l&+$j'i`#mMI&#%5h$p!(dKd!dl+CI5T6EY'N!$LK#*EKl4T$i8
C+-J@Ma3K%Y`mGU8L!#dID0)HK8m"@V3LiTNVK@r@iQbS+-p6pRK0HiS+DXY(PRK
0Fa'i1mPkX*Y`U"XXS!+CIH5p@%fl9l2#Dc$TZ*eSZ,hN[9K0JG6pRK0H43'41!i
TX-QiH-c8iTX-QiH-c8jC3!8br!0!(T2)Qd83+$dIXm*Vb+!b*`(,2#DlbAU`Q`1
e9`dCH)JK!2+eD,cVSLSBL#Ge3j@V4HGG%9$%36Zi,FV9S[1ZL1#f)MJYbY@LUI4
("EP!e!NmXS!+CI4"1kSCC3!8bqL#Gh"E%4815Z(3qfJ0bJp6B5aR`S`-jYLQ5Z&
Er3"p)FLIT)CGUR&-PF+hqJ$k3j,5hil8T%!&Sm8b9`VIk!2T$SD1$,4p+P0KR,k
5#X(BI"`$e2J+eD%A,2#DmMF8&-Ei5BaPG6Ib0a38a[LGLUK36@%d#bLhd+M&$UF
b&d,e4DB@'c*RC#V+PF&1YT!!fkLD@j1,NYJ+[28kRCVZDdXq(MJD!eJR-X3+4KS
2Sj(,2e#R#P)JNZ5q(,293#lCP(IfQ0i85B3#R`N&38"R200PT8'mdPF4DjUULlc
F9'QV&BlQrH62fj5i2dEqRjbCqm)34&q(hID,kaMAdMK2Qq8Ba`LciaM'-B[JpmA
Z`aNB`-V(#HeZ-#LpNBqL9krAb8CJhUM'-B[5p%BaM!ARJEc3&jF''jj(MH)Mpi@
N6Cq#9`h)N!!SFYm`d6C*j-q,3jE$6CpCcB@KbeK0Rdf80fKbh&0NBHAc&blG$PV
5*XM""jY`%C!!KQKbf#(6C0"qVL+(,B,&%f4FR!F82#Kbf#D6C-0!918qKbdFG0Q
%h!$P2SFYf6$3&6P26C0!918qKbdGK%f4FR"kcQ`SFY(a6C`!fIrqc3jD2lSQbF(
XF82#KbdGT0NQ5b,D(,4fNfCpQ4+PD(,4fNf6Jp[@Ff&$PSl5*XL9+P3ESFY,$TX
LFj!!!`3V*&$PTE&0Nd($"#XN81@PX8f6P2K#'3SFYBKTXj[XJB)9NLKbeL'LE1!
4rmL#i81@X-*Xi"(mP5[i%81@XBSQb,m%VKZ4)&$PV80%f4B@6HXP`Jk(,4fNf4A
CL#'m[UKbdY$6C&&GkcQ`SFY,35E)VRrqfm"IqKbdX1Qb++ij6k(,@'N6C&F0)%Z
m81@q4df4A%hm6"QKbhb`Qb+l"R*Jc3jEjD6C&FD'N!!PhLKbh%G0N9aSQrLB-d1
@iX*XLZ0B-j-'D(,F@N6C&F-EK&#+(,IFG0N9hbAK&#+(,II&%f62JPF0b*!!+(,
F@%f6)6F!18qKbhC-0!918p0N`l!3hD(,GNA*`(&$`6C-%1eNZ%(3jD1dLE*JaZ%
8)#KbdY$6C-*rLI$r0d1@PQ%f6-a$IeD(,5c5E*KaiV[k(,@)DE*N,*XD43jD`1Q
bB*F6CY$PV$#E*KaqC`PhMqKbeM&0Nc-i5l`0b*+(,@'Nf6"MMBh)NSFYmMTXjR#
A$5+(,I1+E*Kd'3+FTp$P[PT0N`9X5la3jEL1L$"S`3A#d1@MiS-'i#MC3qd1@MY
)N!!X1&"0B63&b6YADf$V80GVl,,E$3UpS[&N@%,h3C4HEB,'AHB!3lb2A(L*4a#
))*eDP9Z*h1Dc2U#L4eqmi3,32Tb"brdi8Z56["(qFjR++9!eCQiKP*rb$4C!,5!
S92@ZX8a+9'5p#[`TUU+r+S6)!9)8kN9#BN"Xp`@m890(XkLDP(Qc041kVTEJ@+J
#65ZV91jK-diR-bNGQXXhVY"mjHa`2&Sf$NdQf4BNfP-H8TUE+X+E#DkP+`k#DbP
+8T5DZUNe%dm95NdYU`L3!#Nd9D05QDBB0QQ%d%mXd45P+8RKL8U)QHQFQD`H#EQ
00d9-`r8[fZqjjXdbpc[0$e,pV[ZD0PlRJqAKMe,pV[[YE,h2"m[TQTY(UAlAIIP
CHji2Pp-dRFHTIYGpdLfAZH$jI60D)HTIYGpcB'AZH$jI60D-HTIYGpc4X[FlT4k
PqehhfYPlRH'28[fZqr+bpc[T(UAlAIG)YPlRI3(UAlAIFf"PlRHC$(UAlAIFmfD
),XXNMc)HTIYGpd5),XXNMT4kPqehhLJ),XXNM`akPqehhM!3ACC*(dMe,pV[[bN
&f@54p!HTIYGpq8KCB2Pp-dP(UAlAIH-"#b`I,kCU'28[fZqm8"#b`I,kCV528[f
Zqk*%,,"m[TQY!HTIYGpdLl,*)3@@L,c59+28[fZqk4GPNNK2A&)dqJP5Me,pV[[
&!`E*GZRG+28[fZqm8$"XM%[-TT+28[fZqm8#GQ5lGp-dP(UAlAIH+"1c)a,k8Sa
kPqehh6,RA4a2i+JqAdcDP'28[fZqiTL4$)3N6!bqR4*8U8Bp5rDllLQ*a6!beZL
5Me,pV[Z+BPKP+2,BD8HTIYGpa6%XZ+eZP+P(UAlAIG!T5%J&BIEG%P(UAlAIHja
4#+8JA,CY(UAlAII0'3`6$lGX0+28[fZqiTL@%f$RjGX0+P'-G(BqAlG"%`(3+8K
M$S&+3N!V$l$"$(4f2Pqh34-"d52ad!2$dKJKjS%k+FMc&i)1KcJ0U"5N-EdZMq%
0UlTehA"()meFSP`55C%ZL4q4,LQ*JNNb*F8a)KNIN!#'hCmM8qD-#K,j-,'%0U*
(ik!k*(`J`[$k'N-%0U#*J14Q,+F3!-G$k#8-%l(-rDccm[+HR)maH"kNme$d[J1
emXpMKY%B3k1am[fqD"1LR)maH#$SFMc&i)1J)Bk1am[fqcj'TfBiJ!Bk($"$Sl(
brEXaa!!aefHc(%!$(B@J"$Sl(brEXaa!!af&S$XpQ1)!'1`NTi3ajS%k+HMB$r"
d1F"Y)maH#$SFMc&i!KYCML!"MX*+HmG!$k'N-%0SM#(4f2Pqhc3*d8p'`(q$SHM
B$r"d"$'20!R46LQ4LQ"Q$SDF"Y3+8KMGGik!(&-6LQ"N-%0U"5N-EbRV(3!iTLF
8`-KJKYAG2FiZ+B'3!)E4'%1MXI,p[QJ6STa6)a6!c"d1+C'+B'B1J)Bmd#G&1L3
STV,"d1F"Y3+8KMG!TFG!#'e!T5'0d#P)5!82FiSK&+3,N!$"$D)`KdGMjIYmd#G
&1L3STV,"d1L3!++Db`G!3ajS%k+FAL`G$R!E9h6Q45a&`KYAG2QM)B)2QM)B*Kp
KJKYAG2QM)B+&S!3fVZR20Jjq3iTL@%f$Rj!!`3fVZRZF9K0Jjq3KY%B3k1am[fq
D"1LR&iX(3i[&Jk!KMc3*d8jmT4`G$R!E9h6h1+`bP(N)E9h6RV[`LF81+BPKP+2
)B)E8#P)Bh%4J3J`[$LQ*BC5Mb'#'eGdrXZ+BqIKa6%X-T4j$"$DZkGGS"aIG"a6
%X-T4j$"$D)`KdGMjIYmd#G&1I+8F(3jmT4`G!3ajS%k+H+!dC'$SFi$EXq4UFPN
Za,NXM%LA1XPf*Fkb-5%0SM#(4f2Pqhc3*d8m8"Sb-(3m8"Sb-(3%-HD"1LRSf#B
,"d1F"YJk+F%NJH(S``Pl-,`mb$#Apd!k(Kk--(Q3!'#'eGdjN8X4HBZJ(4,Q45a
&i3BALA!*G!3fL-)G(BqAlI0!R46dE"-&Jk(Sf#B,"d"$(QJ6STmb"8(3j`'eGdi
!KYfI)e1)JKY%B3k1am[fqD"1LRc)&3G$jN#S1J)BaMj0F&Zbpc`NeP2l@LR@AZF
1HE0-[FiB)I*VJYi1LQYD8"SX(43Pii1LK,a3553G&#A0JN#S1LK,T$(@"h['J(p
K$j0F&[-#,h8(4)"@Y&1c!Lpd%2Ne`@klTfYD$lK%iSPf4d3bZJ52%Z@9pM(QLLA
f#9daMc44,aqbVZ+aMc44,SR!$h4"GPNN#(bDi,GGdeVFS-Ia,SNALAU8F+XRRKc
cCSJZbb5"K,RrG3UbHH(20QL#l,*)'%[BKPplb*I+!'M6cCH5%2Ne`@j"GPNNJk*
!+eU5$SN!SFmfD),XXNJB)I*VJYb#l,**#d"VD)mJZbb5"ccCSJZbb5"K,T!!LY"
%JZbb5"$j0F&Z)CA3*(`NeP2l@NFD!522$RQc4"GPNN$#A%@0!*(RKccCSJZbb5"
K,T!!LY"%3bZJ52#(bDi,H&NZkDeY%H`)&a9f(20QL#l,*)'#(bDi,H#,F*0C6qe
Y%HQ9'8eH#,B3q6A"EX!ZQ4SfYE&!b0'%2Ne`@mf!0Z&S$@YLJKC!U&S!Pj(PKC!
!+#(bDi,HE!'h#b"6@a33XJ8%2Ne`@l0-3NeP2l@SNcFQK,aJCZ63Pq9Qj0"$j0F
&ZQ5,'cX%qfYEl%@#IB3q6A"ELQ4LQ"Q$SDd8b-8`-K$j0F&ZL3STV,"d1eU*#LQ
XS3q6A"ES&+3aYDe!T5%J&5K$j0F&[Xq4UGV@V[DlA4d5iUlfZedG%ZLAh[)I3d!
`3q6A"EdE!Ii1KfYSf!rK$j0F&Z,aB1KV@Lm8)I*VJYcj5MJk(Ddq8SmK$j0F&[&
!D-M"d0E&!D-L%2Ne`@k#*J0Df2h8)-,`k"5N*!+`q``3q6A"EdE"-&Jk'YSf#B+
%-I*VJYd%6!DeYbacS)XT&AYI!($"$j0F&ZJLB$@Y`'+bN9Hem!F-%2Ne`@k#*J0
DfjBjd%4$)qF@`iB)I*VJYd%6!DeYbacS)`55"``3e+L+8U)RkP+6p5P61m24k+C
2J1Zb0C,ijET)B(I'GcA&bl2BiBq6A"ES)Q!k+MC`F-%-HTIYGpej-I'4-FNX6R+
+MC`Fj*BX6$$BK+5Pd')HTIYGpejRMMi$NPLFj48E1$R*,&LBBE%*58X0L(UAlAI
GH6j*1!j*BR189'cJjb5aBQ''a#8P,TBKkPqehhANUiUk15@*cP&4Xi1FNX@*KKX
3P*5c*L(UAlAIGH55VLVSj*BR189'cJjb5aBQ''8T6(P06jP+c)NQ3T5Nae*mT-C
5SLP+L*qT5Nr8T8cULBjZ9-kP+6&8aP4*KM3KQ8T5BN`c(&J&+8Q'R9-*5P+8T84
K6"6V-bTX8T5B#SM#apM-#`#G&*kRdc+9$%U9$CkP3cP5SH)9KL*c9KL*b9KL*a8
RUF0U`cHQp5SDEPBBJJ9KL#"@'))&BBJJ9KL#"@')aQ"B"1LNp6kCP+KL9+KXp5S
CbT82%+`a%jU`a%j+`a%iU6e1'eBC[6HT800bX-33+`a"!V$%%#X-33+`a"!V$%K
8m&"0B63%06Y9lZX0b@8YJ[BVRV4k*%FK##8ZUANQ&G9X&4Y6QjNp9H3Z1Mpja!Y
!I6N1AqJi8TNM[4mjh-FU6#%f0!!+92NmZ*@CZc8+2p"N@RSS9B5kAT&I909#Q&T
,`8D9+G5,UYkT)#SUD2Ce")!QTAk1UXfX5cL"bK4)R9LTc'i#4U!@ZRd1c,Q*QR&
*GDJfJYed%X6*GNj2V[N-KeYXNYXa*MINYBbPD+5c0@Umr%r"5ae+3IHUNIFIDT5
U9`IBT5P+8IA3SqSqQA8SqLUUA!e(cUjbP'VmY*Ur5eFc9mT5P+2Q2P8TmI)I'I%
Y2-XBeTNXbaa4j9CK3B+fVLaZ*!&(P9Q&!TeaBfm9SQJSmUX`SUaF@0[&D18K)i+
2+V-+#pF@0[&D18JX8&(P9Q&!GLiXEH+dFT!!Z3+2+V-+"59aBfm9Sj5(1"4j9CK
3+GF@0`F"4j9CK49LiXELD#MbUc#J[A&MFFJ8H9@B8"f,LaZ,J&(P9Q&!T+iXEKr
!"4j9CK3B+fKQClJm2i&(P9Q&#A"QClJm(!8H9@B85KKQClJm638H9@B86M$-ch"
ij!SmUX`S,`c-p`H,J&(P9Q&"H'chLY(+31!SmUX`SR''chLY(+3QJSmUX`SP$$C
la@MP)FJ8H9@B8*F'chLY(+3Z!8H9@B8"fClJiCRlI%JF1!SmUX`S$Xch"fZ6*9q
aF($J+2+V-+*3eTA-b&LR!8H9@B85KV5Z%dKr5"`&(P9Q&%SDa&c-L18JF"4j9CK
4+'X4F*T()i!&(P9Q&#`ffEGQ%2ALY(+4cJ!8H9@B8G%dTh8piKfMPFMK`i!&(P9
Q&(40*F3l)4FMJ+2+V-+1LD,lR6f401!SmUX`Sk*SZ,U%FMK`&(P9Q&#Hq'F2emX
4FMJ+2+V-+-El6pm0pN51#MbUc#LfL66&mXK%di#MbUc#MSQLq+54PS401(!!"TZ
F[+X*[%1%pm0-2*liC`rAb`k%!'QjbmU`Qm3i5ibCScdhNG#"E4YTf,b&j$H*-'J
#%pm0-M@DB33%-cBCQN1GaJY,q)'i2EL%Z-Ya(40(R"lF4d65RFCB)#+Q1&X@d3p
iL`ZcK!3PaNc4`PaM@&dMeab1K!3Qm3i[IXql'-4XpF($S8,@eDX--Y$QpLmKH3i
ed5%hP%NhT@DUeJ3Y`JDER,bV&Y'fRB[)AN0iNaH3!,b'm53J!dh1AP@+Q1&X'Yf
-BMCik%$6FjH9B0EXBa'iDTVGM')f[D-)'QjbmU`DhBaL0VfMKUQYf-BMEAm`)!,
D0Y1aST*K2%Q$3"&j#mK[%Q,b&j!!`J)0EXBa'f[jN6k-pFFMS3%,F)'QjbmUaE4
YTf0&*-*iNaST*K2%N!#!!&Y'fRBk*-Z)GRL5Jd!3R[KTN!$-QD-pd65A%1ad)#%
pm0-KcHc0'Hk*T,L(Bk%"$-f-El,L(B)#&Z%$6FjH9BYSfdl(4*Pa$Xm5Bk*-Z)G
RL5%!&Y'fRB5l[4Cla*Jd!3R[KTN*lmc4K!3R[KTN*liC`r2BhfRliEl(3J)@i30
0cPj9LfME6X*GhSXpiN`PhHLchL5%!&Y'fRBkAAL6"S!KQE!NkcQ))#'CX@d5DBH
YSNdaI,$S3%-cBYSNdaHdB3%-cB-&*)balSQLq+54PMS3%-cBa[Uq+54PJJ)@i30
0cPj9LfME6XG,Va*MTGH*)3!@dEDGJacThL6"S!KQE'0pAh1RX%"$-f$'B6@EkHk
*S[ZG2Bk%"#Hq'Q4c#'eKG)pd64IFkHad)#'CX&RbiM'b2G%dAh1RXG#!KQE$-5-
ZPQRZLD,lR6f1K!3Y`JDER,bV&Y'fRB-FkGiN`Bjdla*#!#fME6X5KLR[H*-'J#+
Q1&X0&c-iKSZ%diJfZCR%'e`QJ3%,F)'QjbmUaE4YTf*3a6h[%Q*3a6h[%N)!,D0
Y1aST,pla*Jd!3m5GJEJjkEcM[%B,T(RmGiJXdCXp0jadmrMS3%-cB%R@Fa2fD-h
a!NkcQ*V#kA%$iK)3%,F)'QjbmUaE4YTf0&*I[H*-D+5rHm53!)!!,LaYVLcc#3M
TYF@0RM"@eF@0R3J2%R8)4ia5RL6[%6[%RH)P$F(H*1m3+5iH[%RH)$L0dfYCL4N
@"!IZBXeiNZ(k%G0[h-@D%"QE#%)'9@XhhL&aZRGQMFCa(Z`QSB+9a&4Zc@SB+9a
%jCl-P03`8VL%YM'@D'CRZ$K!CQS3Lb4'&a#AHA%DkGHBd)`mB+fKQClJjhL$#VU
maS4Ki`9Y$-ch"c[%C6Z+YEF4C)a6h22*S%!-c2F(H*,KqK!GiNZ(ji`9Y$-ch"c
S3!c-p`GHdD%EH3CQHi1H-&E3c-p`Fla!HpLE`c-p`F)&1l0'iaVLcc#3!)[Q*'i
``mB+fKQClJjhL1DBNEM$$aJVD'CRZ$RH)$hX6I6Zc4Z-#![1CQS3MEbTSf5QBH-
&E3c-p`Fk%"k9MA&RQ%K'hP)drLdRT@"!@KQVK6S3L80F+F)%LM&9HdD%)P$AR$e
HdI%1-pHF23J5+-99j`p3L80HF23J'VmeaCjK)3PaU66H)R'DNdhL#me*TS3$iHc
b**EUK##cQNYe#"d5CF3l2%P#1L6,L(B)#AGk,2H*-)3PhHLc`J*liDBK#%pm-iI
R!J9-F,B3K$-Uc'DEiMV-Uc'DEiK,LV@akiZ$S30&*-*iN`K'LNQ%%$TGH*+%)kA
3J'1G1m5B3JacTl"!P$&2Hm58)P$&2H%"0iKS3LFXeV#k4j2I$1(kq@(3JD+5rHm
58)d8Pqm)!%hL'K#-G-E6HZGl+X)Cil#c`YXG&QdhaehXU`KVB)#Ea$3K%NAVRHb
V#'H1`Xm,D5,iklf9B3eX%"0iKS3M(6'dhdlM'qiH1`Xm,E(4CY0m*FBhh&X%"0i
KS3M(6'dh[1$RMX,2#fad@E6I!h"eX%"5RbP+I,-T5PQ8T6ra0jebId56F,KBdLB
kZKa$+*KZfPfh%A2%V9$9@X!+'9cbV%L(`50FkFdq@RVX-#KQ*-EmN!#`PKYX662
')1Y9k`38&RXU#KPFmUa)P0Q5-Dh0I"3c%Q0q5&K1XhV$&U[@##JXpP3!SmUX`N*
E'0HGC#$M3iF"4j9CK)&*X[1XK"aSFQJSmUX`S'4Lmkb%('Kbi"4j9CK32jFKXUE
3FD2ii!&Y'fRBPSI0-fd'J#,AU8TBkN,+ZGJNZ8T5M6P,+Sde5RbP+I,-T5PQ8T6
rUI6&M+Ip5P'Q+DLRcme'XDU8SdYq0EYD&+8D9,"T+P+8T5RbidL@(q9)UP+jqTm
Zjme+DY#`&,)XVr+90i8UDe9+QbbT8drkU6irbU6irUU6irLPN!$pe95PXr5P66m
UT2VT9*pG+T2VT9*pG+T2VT9*me+DY#`&,)XVr+90i8UDe9+QbbT8drkU6irbU6i
rUU6irLPN2h99+@cp+902bUNqZP8RedUNqZP8RedUNqZP8Rh2HH"36@%d!+j91XP
YYN"CjF@-3kM[Kkb28&%UF%FfbQhFPqRH+T!!c@ABE-RUT+L6N!!4hpUYR#"D"-q
3!$PrT`T5ld6%IjcQFSV9H@#P"!i)kNM2T#PSK"rU-Jd@#kd@'V6G)##jf+f@9FK
l+%PGB,0#EJ@qJ#b8q@,GBB!9e*%0[S43DNL'hd*Tif+9L,)U9GG)QdL#(l5'+Rj
#P13K"N&N#Z@ZUN"(r!6&E!6%IKp!6r2cMi2Bp'!mM`m8ah(BG8AJU5)$I02#X#T
)J`'i4BaH+`+NL,e-'#X#T)J0,aJ+`+NL'hd++4@"40)4d32M&-BE&B%%L$##4'"
!$+dj#T)J0pid[&B&54&kM3-9J35)-)*%B%!-V6N+NL#2Q#"!+`+NL)&k*Tj)V!J
N3B35)`)!C@R)9*%(0j`+`+NL'Q#X#T)JLRej@&B&54%#9'NS"@"")J`JN4J36!U
5)EI3LM'1%Q9#*H#T)KYp#+SbJ5E3Q$cK&*N)3K-K#%)3K#CAFr1Am[j5rj!Hj9V
TF16(RaM2+-ZPI2cPr,q8TdP'12(#@cQ*D0i$aZ-3%E9RMB8"VrRF$88&L02'LG`
9#ebXNq@&baZNlG*Zk!ET-Y15l6NUdj*PK)A,514YeEY1"Y1"Y1"Y1"Y1"Y1@Z9N
Rb`Z@0dRET0h3$G*PTbADFP@R*-X*#jD4b0ZVGT`0T`0T`0T`0T`0TcJJ8%eK0!!
)&S(djCqT6hL*apcZB19aR%T46i'TYB#%`Vr)0e#,@fQ#NcQad-YkA6CFKCN)c&A
5fl![0#S0&Q)90l+M6P(+V)h)i5UA5!"-LAc1D"9PR8[F9+F,*FjJ"+,KePeZpP,
BSLd%1dMeaj8,F3'`PLPPT%0*[04@4%Sifd%,A2ei[39UZ*l5#6j*QYD-0QAUdT!
!H1[hR+"4T!()-bN3pei&"Jc+4$hAMlFH&0B!8Eb"%N#!!KR!$'iNcSS!4**)!)f
N!#Ek3*Qm("RHKM0dJNNF*!H1%Y3)(1%NQENfbA*Y6CQ`acAQX(%e4mU1"J#[XYa
lkFI041&66CD-&N0!LfE!G*%M3k)(6$B6T)ND(FdXD'8N$ar[9L"d`f%i$K)b0NH
p&MjSLSiq2HS5KFIAfM-HNXZTX3[Yh3`JacVaSbL*-H-(3qcL&pZk'%'1GH0'Ge2
K38&)J`Mf!(Sp*CG6BLR"AhmFkmD-ai`G$l1)T`9pr(1['M1kR`U3!ipJ"k25@A8
ff$"!9P-a"QBmB1KpRE"JJ+bQBJc1kR`S+#SpJ"k2'$SICaS-k`@YZTm+N!12B!H
MaMBRak)-FI([8*C)m5QI(aif0d`4%QK(X!24i0L(SJ$im'%B)J4!FHfG6Mf84)4
i0Sbk'4"$(ale#9,(KepZQ#-DH2"K!0!eeZQ4!l(M3CeJYCm&6SJe(YJ`3&C6-3C
P%E4iP-q24"-I([8*36(L,`)'(aiLm#"KmI!kBE#F1JJCDSpkK+XH*62Mm1[Yd`4
MMdDk#k%Uk0"Bp)2ThhM4R'3Jd%%@0d34kakamHp3P&Mf`B)#XTQ)-cKepZQ#-FH
&VSed*&dD0Bp)2ThhM4R'3Jd%%@0d34kakamHp3P3MaS-k`@Xq#Tm1[Yd`4MMdUi
@ZJ#9dB@XHN(dllaScM)3D##,'k))pBpBq2HS5SXH$#!D"VVG0KepZQ#-FH+Uk9G
&&A4T9MdJqRIH0'FC#$334Bh4"(V(V%$TKX*`Bb1!mI[8*3Z2$l)BHq#ZY01#KJM
4T[(3dH(KG&5biS*PdDV(JKZ(hdllaSc(LKFHXHZLS5"FQX4qp3PNMfX%$2c2#0a
lV66JSB)dDEad0(LJQA$`ZJ+ZLTCBm%0`qqRIH0'Bm8,MeMed9#3,NeMi(6$B6L)
(54dHp3#eMj9j9d*9d*9Md!YBpUD3!kMi(6$B6Y3)(!H2hU!@XISX4qmBKim)hMm
99aCF@9F%b`-E%q2Mq2hM%2(K'mILUZ+XZ,+Z+#CB"ZY`9PT%ITalSpm&(-c1(aq
J[*,SU'+#CB'$%'CQE%$TKX*`3$'4YMrHLS*Brd)re99e5UZUT9e5UZXNLiS09a@
U8(LSe@2p!43%F9'UmJ@LbBU09j!!',F9""H5fiU!@XImJ-@iU%UmJ-@iU%UmJ09
a8%DAN!!FPa+#152q3'UkS)ej!BYe34Vb!aEUJMAN"Lh9"+XImJ-@kS*9j!BYe35
Vb!aEULT9j!BYe&9Brj!!',G49AN"Lh899j!!',G99G&"LLG99Bra3BUA99A@5bD
UUkUU2NN"LG98,ePP3Mr994mNXU'UUMe4SlUUVUUVUUh99@2qfhYYlEHfhYYlEHf
hYYMrYYlEHfhYYlEHfhYYlEBrlEHfhYYlEHfhYYlEHff2qfhYYlEHfhYYlEHfhYY
MrYYlEHfhYYlEHfhYYlEBrlEHfhYYlEHfhYYlEHff2qfhYYlEHfhYYlEHfhYYMrY
YlEHfhYYlEHfhYYlEBrJG-0K28N6BrhSU#@2m4E0J2V(r!kBE#F3M,8"irhSU#@2
p*%M3l@2m%!aNEBre9F9",(r8N6Bre9F9",(m!JC"JFE'S6KQ8L(Z[!S&#*QBJP`
NZ!B53-*)&NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN
NNNN#*!J"3$JMGd-*-bb"4$N5i5A!-*)'%N!!XZ-T6-SNc*0,JQM)iNc)%MK%
3NPVi$@[%NNPa-ed"Sa%D*,A#iQ523'#%"C!!*!SBM1i0jRF!8Ch!%QG`EM1i!Jc
Z!(-lJ"L")"3i-i"!"QG`#c1i`QGaK-lM#Ch'%cZ-*RFS$"#!XJ5"3a'G`Ec1i!S
cZ!*-lJh'G`""RF!1Ch!$%#3#K`C`#!$-lJ&QGaK-lM#Ch'%cZ-*RFB61iNB1B&"
&EQ4[,J!!!: