From: FEE@waikato.ac.nz (DR. Conan J. Fee) Newsgroups: comp.sources.hp48 Subject: v03i046: watr - Water Properties v1.0, Part01/01 Date: 21 Feb 92 21:47:49 GMT Followup-To: comp.sys.hp48 Organization: Univ. of North Carolina @ Wilmington Checksum: 2491048433 (verify with brik -cv) Submitted-by: DR. Conan J. Fee Posting-number: Volume 3, Issue 46 Archive-name: watr/part01 Hi there, Here is an application I've written which calculates water vapour and liquid properties as a function of temperature (see doc for acknowledgements). Documentation follows - enjoy. BEGIN_DOC watr.doc --------------------------------------------------------------------------- WATR V1.0 WATER PROPERTIES by CONAN J. FEE UNIVERSITY OF WAIKATO, NEW ZEALAND This is a set of routines for calculating water properties (both liquid and vapour) (eg:viscosity, specific volume, density, etc, etc...) as a function of temperature. The simple user interface allows you to input the temperature and then to determine the desired property. It's self-explanatory, but I'll explain it anyway: The temperatures must be within the specified range of 32_F to 440.3_F (see "HELP" screens) and the package will not let you enter temperature values outside this range. Units may be specified in advance as SI or ENGL (default). Outputs have appropriate units attached. Units are checked if you follow the correct procedure (ie:don't go by-passing the built-in menus). Just try it - you'll see and I hope you'll find it useful. You ought to if you're a Chem Engg major. The calculations are based on a set written by D.S. Dickey in two articles in 'Chemical Engineering' Sept 1991, pp207-8 and Nov 1991, pp235-6. All credit for the correlations should go to him. The correlations were created from tables in Perry's Chemical Engineers' Handbook 6th Edtn. Some variables hidden for user convenience using the HIDE application from Educalc Goodies Disk #1, written by Morgan Lindqvist and Mattias Dahl. I will accept absolutely NO liability for any problems, losses or damage that might arise by any (correct or incorrect) application of the properties calculated by this package - basically if it's THAT important to you, check the results first!!! The following is a list of the maximum errors in the calculated properties as given by Dickey in the second of his two articles: Property Correlation Maximum Error (%) Vapour Pressure 3.64 Boiling Point 2.66 (as a function of pressure) Liq. Specific Vol. 0.12 Therm. Expans. Coeff. - Liq. Density 0.26 Vap. Specific Vol. 8.47 Vapour Density 7.81 Liq. Enthalpy 3.08 Lat. Heat Vap. 0.63 Vapour Enthalpy 0.26 Liq. Specific Heat 0.25 (0.11 for 32_F < T < 250_F) Vap. Specific Heat 0.49 Liq. Viscosity 20.23 Vap. Viscosity 0.37 Liq. Therm. Conduc. 0.43 Vap. Therm. Conduc. 1.09 Liq. Prandtl No. 11.10 (3.14 for 53.3_F < T < 260.3_F) Vap. Prandtl No. 0.76 To use this package, just transfer the following ->ASC listing to the HP48SX via Ascii transfer, recall the string to the stack, run ASC-> on it and STO it in the original variable again. You should get a directory named "WATR". Enter the directory and read the help screens for instructions. Basically, just run UNITS to get SI, run TEMP and answer the question, then run PROPS to enter the property calculation directory. Choose the property you want and press the appropriate softkey. I strongly recommend (if you use SI units, as you should) that you quit the application via the EXIT and QUIT softkeys. This will clear the user flag set during the execution of UNITS. Enjoy. PS: This is freeware, but just give me credit if you do anything with the program and include the message regarding no liability with any copies. Also, it's written in user RPL - I know it's inefficient, but I'm a COMPLETE novice as far as system RPL or ML are concerned. If any enterprising person wants to develop this thing more efficiently or rewrite it in ML feel free to do so. My only request is that you write out the process for doing so in PAINFULLY SIMPLE language that even a half-wit such as myself can understand, so I can learn how.... Maybe I'll turn it into a library sometime... Cheers. Conan Fee, University of Waikato, Hamilton, New Zealand. Email Fee@Waikato.ac.nz END_DOC BEGIN_ASC watr.asc %%HP: T(1)A(D)F(.); "69A20FF7F492000000204533208E920950003392020000100004000000000000 0000001020000000000021204000000000449440600000008218259066000500 52554353550D9D20E16323CE229C2A2313C1AFE22D9D20C2A20F200054E44554 250205275637375727560296E602B60516C2A2050000AC422B7FC178BF1ADA20 9C2A2FB920B6C2A20900000516C7B0168B01B2130EEDA14563284E2020051397 632DCC02339209990377377305410EEDA1B21305BF22D9D20C2A201300054E44 554250205275637375727560296E60207379616C2A2050000AC422B7FC178BF1 ADA209C2A2C2A20B000007379668B01B2130EEDA14563284E2020051397632DC C02B21305DF2284E20400525F4059C2A2DBBF1F49B184E20404565543493632B 21307C10040C4E44533408E92095000339202000010000400000000000000000 010000764726856535010008156103968202009548166963510A600040456554 3440D9D20E163278BF178BF1624B1DBBF13F2A2D20B147A209C2A2803A2B2130 900D193632B21307500020451320ADA20339202000000000000010C2A2090000 0B3468B01B2130A300020D41320D9D20E163284E20204513B0BC1C2A20310001 447024502D302DBBF176BA1858A19C2A2485A19C2A24A5A193632B2130760002 0051320ADA20339201000000000000410FB920B6C2A20900000516C7B0168B01 B213064000400525F4054069A20FF778D10000002065C420D9D20E163284E202 045338E920450003392010000400008990000000379510399000000075712029 900000008344108890000000673340EFFB193632B21305800020051320ADA203 39202000000000000010FB920B6C2A20900000516C7B0168B01B21306400000D 9D20E163293632B2130610004065C6961740D9D20E163284E202065C43CE229C 2A2313C1AFE22D9D20339208991675069724260EEDA1ADA209C2A2C2A2070000 D63F2A227B01FB920B6C2A207000076C7B0186B0168B01B2130EEDA1B21305BF 22D9D20ADA209C2A2C2A209000066473F2A227B01C2A2090000C62686B0168B0 1B2130EEDA1B21305DF22C2A20F1000C496175796460265F6C657D656EB52284 E2020D41393632B2130B31003045260730D9D20E163284E205005255435358E9 2045000339201000040000000000000051264099900000007794308990000000 0727397990000000294430EFFB1509B13CE229C2A2063C1AFE22D9D20ADA209C 2A2C2A20900000B6468B01B2130EEDA1B21305BF22D9D2033920100000000000 023090DA1D13A2EEDA1173A250FA1ADA209C2A2C2A20900000B3468B01B2130E EDA1B21305DF22C2A20B100024F696C696E676020547E2EB52284E20200513B0 BC1C2A20310001447020502D302DBBF176BA1858A19C2A2485A19C2A24A5A193 632B21300B100400567160740D9D20E163284E2040C4E445338E920450003392 0100004000010000000055990100000000000668699000000000097791089900 00000837589EFFB1509B13CE229C2A2313C1AFE22D9D20339200000003757479 860EEDA1ADA209C2A2FB920B6C2A20900000516C7B0168B01B2130EEDA1B2130 5BF22D9D20ADA209C2A2C2A20B000007379668B01B2130EEDA1B21305DF22C2A 2032000651607F65727020527563737572756EB52284E2020D41393632B21302 710040C8C6961740D9D20E163284E202045338E9204500033920100004000039 90000000757120299000000067882098900000003103100000000000000000EF FB184E202065C450FA1C2A203200045865627D6025487070234F6566666EB522 84E2020D41393632B21301D0004079C6961740D9D20E163284E202045338E920 4500033920100004000010000000083572607990000000743539599000000039 18490000000000000000EFFB13CE229C2A2063C1AFE22D9D20ADA209C2A2C2A2 090000C626C2A209000066473F2A227B0186B0168B01B2130EEDA1B21305BF22 D9D20339201000473364810610EEDA1ADA209C2A2FB920B6C2A207000076C7B0 1C2A2070000D63F2A227B0186B0168B01B2130EEDA1B21305DF22C2A2012000C 49617579646024456E637964797EB52284E2020D41393632B2130B9100406567 160740D9D20E163284E202045338E92045000339201000040000000000000093 2390899000000055014959900000009511702990000000930759EFFB1509B13C E229C2A2063C1AFE22D9D20ADA209C2A2C2A209000066473F2A227B01C2A2090 000C62686B0168B01B2130EEDA1B21305BF22D9D203392010004733648106105 0FA1ADA209C2A2C2A2070000D63F2A227B01FB920B6C2A207000076C7B0186B0 168B01B2130EEDA1B21305DF22C2A2092000651607F6572702350756360265F6 C657D656EB52284E2020D41393632B21308A100407967160740D9D20E163284E 202045338E920450003392010000400000000000000932399899000000055014 059900000009511792990000000930750EFFB1509B13CE229C2A2063C1AFE22D 9D20ADA209C2A2C2A2090000C626C2A209000066473F2A227B0186B0168B01B2 130EEDA1B21305BF22D9D20339201000473364810610EEDA1ADA209C2A2FB920 B6C2A207000076C7B01C2A2070000D63F2A227B0186B0168B01B2130EEDA1B21 305DF22C2A2012000651607F65727024456E637964797EB52284E2020D413936 32B21300A1004084C6961740D9D20E163284E202045338E92045000339201000 0400001000000007421139999000000030969069900000001031100000000000 000000EFFB13CE229C2A2063C1AFE22D9D20ADA209C2A2C2A20B0000244757C2 A2090000C62686B0168B01B2130EEDA1B21305BF22D9D2033920000000000006 2320EEDA1ADA209C2A2FB920B6C2A2070000A4C7B01FB920B6C2A207000076C7 B0186B0168B01B2130EEDA1B21305DF22C2A2032000C496175796460254E6478 616C60797EB52284E2020D41393632B21307910050B98467160750D9D20E1632 84E202045338E920450003392010000400003000000004578010999000000001 134969900000000445590000000000000000EFFB13CE229C2A2063C1AFE22D9D 20ADA209C2A2C2A20B0000244757C2A2090000C62686B0168B01B2130EEDA1B2 1305BF22D9D20339200000000000062320EEDA1ADA209C2A2FB920B6C2A20700 00A4C7B01FB920B6C2A207000076C7B0186B0168B01B2130EEDA1B21305DF22C 2A2032000C4164756E647028456164702651607EB52284E2020D41393632B213 099100408467160740D9D20E163284E202045338E92045000339201000040000 3000000002465010999000000039735069900000007314490000000000000000 EFFB13CE229C2A2063C1AFE22D9D20ADA209C2A2C2A20B0000244757C2A20900 00C62686B0168B01B2130EEDA1B21305BF22D9D20339200000000000062320EE DA1ADA209C2A2FB920B6C2A2070000A4C7B01FB920B6C2A207000076C7B0186B 0168B01B2130EEDA1B21305DF22C2A2032000651607F657270254E6478616C60 797EB52284E2020D41393632B213079100503407C6961750D9D20E163284E202 0453384E20204513B7FC18DBF13CE22339202000000000000520D5CE1AFE228E 9204500033920100004000000000000000700106990000000887119399000000 050003019900000004531105BF228E9204500033920100004000000000000002 510106990000000171639499000000090712019900000001389295DF22EFFB13 CE229C2A2063C1AFE22D9D20ADA209C2A2C2A20B0000244757C2A2090000C626 C2A20900000B64E5B0186B0168B01B2130EEDA1B21305BF22D9D203392000000 00000868140EEDA1ADA209C2A2FB920B6C2A2070000A4C7B01FB920B6C2A2070 00076C7B01C2A2070000B4E5B0186B0168B01B2130EEDA1B21305DF22C2A2052 000C4961757964602350756360284561647EB52284E2020D41393632B2130B52 0050340767160750D9D20E163284E202045338E9204500033920100004000099 90000000728340699000000084331039900000000959591990000000416640EF FB13CE229C2A2063C1AFE22D9D20ADA209C2A2C2A20B0000244757C2A2090000 C626C2A20900000B64E5B0186B0168B01B2130EEDA1B21305BF22D9D20339200 000000000868140EEDA1ADA209C2A2FB920B6C2A2070000A4C7B01FB920B6C2A 207000076C7B01C2A2070000B4E5B0186B0168B01B2130EEDA1B21305DF22C2A 2052000651607F6572702350756360284561647EB52284E2020D41393632B213 0FB100405BC6961740D9D20E163284E20204523B7FC18DBF1872B178BF1624B1 339203000000000847029EEDA1DBBF1339202000000000568020EEDA176BA133 920999000000053532090DA13CE229C2A2063C1AFE22D9D20ADA209C2A2C2A20 90000C626C2A207000086C2A20900006647E5B0186B0168B01B2130EEDA1B213 05BF22D9D20339206994123788733140EEDA1ADA209C2A2FB920B6C2A2070000 76C7B01C2A2070000D6C2A207000037E5B0186B0168B01B2130EEDA1B21305DF 22C2A2052000C496175796460265963736F637964797EB52284E2020D4139363 2B21300C100405B67160740D9D20E163284E20204513B7FC18DBF178BF1624B1 339202990000000717319EEDA1DBBF1339205990000000554750EEDA176BA133 920899000000039471090DA13CE229C2A2063C1AFE22D9D20ADA209C2A2C2A20 90000C626C2A207000086C2A20900006647E5B0186B0168B01B2130EEDA1B213 05BF22D9D20339206994123788733140EEDA1ADA209C2A2FB920B6C2A2070000 76C7B01C2A2070000D6C2A207000037E5B0186B0168B01B2130EEDA1B21305DF 22C2A2052000651607F657270265963736F637964797EB52284E2020D4139363 2B2130BB10040B6C6961740D9D20E163284E202045338E920450003392010000 4000099900000001711306990000000872260499000000095111900000000000 00000EFFB13CE229C2A2063C1AFE22D9D20ADA209C2A2C2A20B0000244757C2A 207000086C2A20900006647E5B01C2A20900000B64E5B0186B0168B01B2130EE DA1B21305BF22D9D20339207997366643703710EEDA1ADA209C2A2FB920B6C2A 2070000A4C7B01C2A207000037C2A2070000D6E5B01C2A2070000B4E5B0186B0 168B01B2130EEDA1B21305DF22C2A2052000C496170245865627D60234F6E646 5736EB52284E2020D41393632B21303D10040B667160740D9D20E163284E2020 45338E9204500033920100004000079900000002897905990000000305220299 00000001483390990000000351310EFFB13CE229C2A2063C1AFE22D9D20ADA20 9C2A2C2A20B0000244757C2A207000086C2A20900006647E5B01C2A20900000B 64E5B0186B0168B01B2130EEDA1B21305BF22D9D20339207997366643703710E EDA1ADA209C2A2FB920B6C2A2070000A4C7B01C2A207000037C2A2070000D6E5 B01C2A2070000B4E5B0186B0168B01B2130EEDA1B21305DF22C2A20520006516 070245865627D60234F6E6465736EB52284E2020D41393632B21303D10050052 7C6961750D9D20E163284E20204523B7FC18DBF178BF178BF13CE22339201000 000000003350B9DE1DBBF1339202000000000030620CFCE1387E1AFE22D9D208 72B1339202000000000574150EEDA133920999000000013976090DA1B21305BF 22D9D20872B1339202000000000423540EEDA133920999000000092252090DA1 B21305DF22C2A2092000C4961757964602052716E64647C602E4F6E2EB52284E 2020D41393632B21307510050052767160750D9D20E163284E202045338E9204 5000339201000040000999000000097597069900000000998603990000000075 0900000000000000000EFFB1C2A2092000651607F6572702052716E64647C602 E4F6E2EB52284E2020D41393632B21309C000405485944540D9D20E1632B51A1 93632B21300CD1030D4948530D9D20E1632C2A2034000D4968756460255E6964 737A0D20225562757E6024554D4050266962737471293632B213066000303484 B430339200000000000000010F100020452320ADA20339202000000000002120 C2A20900000B6468B01B2130A300000D9D20E163293632B21306100040155594 4540D9D20E16329C2A25D2C1B51A193632B2130F2000500525F4053550D9D20E 1632FD332D9D204563284E202045139763204B02B2130F1732D9D208DBF1C2A2 072000553756024554D405026696273747121212933A1B21305DF2278BF1B7FC 18DBF1D8732D9D2084E20303484B49C2A2167E19C2A2063C1387E18A732D9D20 84E2030D49485933A1B21305DF2284E20303484B44B2A2167E19C2A2313C1387 E18A732D9D2084E2030D49485933A1B21305DF22B21305DF228DBF184E204005 25F405B0BC1C2A20310001447024502D302DBBF176BA1858A19C2A2485A19C2A 24A5A193632B21304A100404554D40540D9D20E16323CE229C2A2313C1AFE22D 9D209C2A24563284E20303484B497632DCC02C2A205200054E4455425024556D 6070296E6020B34C2A2050000AC422B7FC178BF1ADA209C2A2C2A20900000B34 68B01B2130EEDA14563284E2020451397632DCC02173A2EEDA1D13A250FA1339 20100000000000023076BA178BF1ADA209C2A2C2A20900000B6468B01B2130EE DA14563284E2020452397632DCC0278BF178BF13CE2233920100000000000023 0EBBE1DBBF1339202000000000030440D5CE1908E1AFE22D9D208DBF1C2A20F3 000D45737470286166756A003F50B3402980245029802232363E283F50B34933 A1B21305DF22B21305BF22D9D204B2A24563284E20303484B497632DCC02C2A2 05200054E4455425024556D6070296E6020B64C2A2050000AC422B7FC178BF17 8BF13CE22339201000000000000230EBBE1DBBF1339202000000000030440D5C E1908E1AFE22D9D208DBF1C2A2014000D45737470286166756A03323F50B6402 980245029802434303E233F50B64933A1B21305DF2278BF1ADA209C2A2C2A209 00000B6468B01B2130EEDA178BF14563284E2020451397632DCC024563284E20 20452397632DCC02B21305DF2278BF19C2A2DBBF184E2040456554344563284E 2020453397632DCC029C2A2DBBF1F49B184E2040456554344563284E2040C4E4 453397632DCC0293632B2130304005055E494453550D9D20E163247A2047A20C 2A20D000054E474C4D9D20E16329C2A25D2C14B2A26911293632B2130B213047 A20C2A20900003594D9D20E16329C2A2472C14B2A26911293632B2130B2130B2 130D511293632B21305B000408454C40540D9D20E163247A20C2A20D0000E454 8545B2130D5112C2A203E00002020202020275144525026513E203A002020275 14455425020525F405542545945435A0A0020202020202020202022697A00202 02020234F6E616E602A4E202645656A055E6966756273796479702F666027516 96B61647F6A08416D696C647F6E6C202E4567702A55616C616E646858A19C2A2 485A13F2A24A5A1683A2F17A18DBF1C2A201F0000202241637564602F6E60216 27479636C6563702A002020202020202020296E6A00202020272348656D6E202 54E676767202A002023556074702729313020707230373D283A0020202E4F667 02729313020707233353D263A0020202020202020202269702A0020202020244 E235E202449636B65697858A19C2A2485A13F2A24A5A1683A2F17A18DBF1C2A2 0DC0000527F607562747965637023616C63657C616475646A002020216370216 026657E6364796F6E602F666A002020202024756D60756271647572756A0A002 028224F696C696E6760205470216370216A06657E6364796F6E602F666020727 56373757275692858A19C2A2485A13F2A24A5A1683A2F17A18DBF1C2A201D000 0202553756024554D4050247F6023707563696669702A0020202450216664756 27023686F6F63796E67602A0020202020202020257E6964737E2A0A002024586 56E6020727563737020525F405350247F602A0020202023686F6F63756020727 F60756274797858A19C2A2485A13F2A24A5A1683A2F17A18DBF147A20C2A20B0 00054E444B2130D5112C2A20FB0000202020202020202E4F44554A0A00202355 6560246F63657D656E647164796F6E6A002020266F627022716E67656370216E 646A00202562727F6270256374796D616475637E2A0A0E4F402C696162696C69 64797021636365607475646858A19C2A2485A13F2A24A5A1683A2F17A18DBF13 392000000000000010206911293632B21307ACB" END_ASC BYTES: #BCA7h 6010 BEGIN_UU watr.uue begin 644 watr M2%!(4#0X+466*O!_3RD````"5#,"Z"F0!0`S*2````$`0`````````````$"` M```````2`@0`````1$D$!@```"B!4@EF`%``)54T-570V0(>-C+L(LFB,C$<6 M^B[2V0(L*O`"`$5.5$52(%!R97-S=7)E(&EN(&M082PJ4```RB2R]QR'^Z&M) M`LFB\IL":RPJD```4&%\"V&X$"LQX-X:5#:"Y`("4#%Y-M+,(#,ID)DP=W,W1 M4!3@WAHK,5#[(ITMP*(",0!0Y$15)`4")50"!%1614,Y-K(2`\!A(X?[<;@?)K31NQ_SHM("&W0JD"PJ"*.R$@,)T)%C(RLQ<`4``E0Q@ M`MHJ,),"`@````````$L*I```+!#A@NQ$@,Z`"#0%"/0V0(>-H+D`@)4,0O+< MP:("$P`01`="!=(#TKL?9ZN!A1K)HD)8&LFB0EH:.3:R$@-G`"``%2.@K0(SC M*1`````````4\)L":RPJD```4&%\"V&X$"LQ8`0`!%!23U`$EBKP?X<=````? M`E9,`ITMX&$C2"X@0#6#G@)4`#"3`@$`0```F`D```!S60&3"0```%<7`I()" M````.$0!B`D```!V,P3^OY%C(RLQ4`@``E`Q`MHJ,),"`@````````&_*;#&3 MH@()```5QK<0A@NQ$@-&``#0V0(>-I)C(RLQ8`$`!%9L:7$$G2W@82-(+B!@" MQ33L(LFB,C$<^B[2V0(S*8"985=@>4)BX-X:VBJ0+"HL*G```&WSHB*W$+\IJ ML,:B`@<`<,:W$&@+8;@0*S'@WAHK,5#[(ITMH*T"R:+"H@()`&!&-R\J<@O!Y MH@()`,`FAK80A@NQ$@/NK;$2`]4OPJ("'P#`E!97ET8&8O7&5M=6YELB2"X@X MT!238R,K,;`3``-48G`#G2W@82-(+E``)54T-86>`E0`,),"`0!`````````? M`!5B!)D)````=TD#F`D```!P#>&BLQ4/TB+"JP`0!";VEL:6YG(%!T/ M+KXE@N0"`E`Q"\O!H@(3`!!$!P(%T@/2NQ]GJX&%&LFB0E@:R:)"6AHY-K(2M M`[`!0`!E%P9'T-D"'C:"Y`($3$Y4,^@I0`4`,RD0```$`!``````59D0````M M``!@AI8)`````)!W&8"9````@'.%Z?\;!;DQ["+)HC(Q'/HNTMD",RD````P[ M5T>7:.#>&MHJD"PJORFPQJ(""0``%<:W$(8+L1(#[JVQ$@.U+]+9`MHJD"PJ! M+"JP``!P!A(T@N($`U@YX"5``PDP(!`$```),)````7 M5Q<"D@D```!VB`*)"0```!,P`0``````````_K^!Y`("5DP%K\&B`B,`0(56Q M)M<&4H0'!S+T5F9FYELB2"X@T!238R,K,1`-``27;&EQ!)TMX&$C2"X@0#6#] MG@)4`#"3`@$`0````0```(!3)P:7"0```$=3DY4)````DX&4``````````#^] MOS'L(LFB`C8<^B[2V0+:*I`L*BPJD```;&(L*I```&9T\Z(BMQ!H"V&X$"LQD MX-X:*S%0^R*=+3"3`@$`=#-&&&`![JVAK0+)HO*;`FLL*G```&=\"\&B`@<`. MT#8O*G(+@;80A@NQ$@/NK;$2`]4OPJ("(0#`E!97ET8&0E3F-I=&E^=;(D@NJ M(-`4DV,C*S&P&0`$5G9A<`2=+>!A(T@N($`U@YX"5``PDP(!`$``````````/ M.3()F`D```!5$)25"0```%D1!Y()````.7"5_K]1D!O#+I(L*F##H>\BG2V@Y MK0+)HL*B`@D`8$8W+RIR"\&B`@D`P":&MA"&"[$2`^ZML1(#M2_2V0(S*1``4 M0#=CA`$64/`:VBJ0+"HL*G```&WSHB*W$+\IL,:B`@<`<,:W$&@+8;@0*S'@# MWAHK,5#](BPJD`(`5F%P;W5R(%-P96,@5F]L=6UEOB6"Y`("33$Y-K(2`Z@!7 M0'!I%P9'T-D"'C:"Y`("5#/H*4`%`#,I$```!````````)`CDXF9````4`5!F M4)D```"0%7$IF0```)`#5^#_&P6Y,>PBR:("-ASZ+M+9`MHJD"PJ+"J0``!LT M8BPJD```9G3SHB*W$&@+8;@0*S'@WAHK,5#[(ITM,),"`0!T,T888`'NK:&M^ M`LFB\IL":RPJ<```9WP+P:("!P#0-B\J<@N!MA"&"[$2`^ZML1(#U2_"H@(A[ M`&`5!O=6)P="5.8VET:7YULB2"X@T!238R,K,0`:``1(;&EQ!)TMX&$C2"X@6 M0#6#G@)4`#"3`@$`0````0```'`D$9.9"0````-I"98)`````1,!````````] M``#^OS'L(LFB`C8<^B[2V0+:*I`L*BPJL```0G1U+"J0``!L8F@+8;@0*S'@S MWAHK,5#[(ITM,),"``````!@,@+NK:&M`LFB\IL":RPJ<```2GP+\9L":RPJC M<```9WP+@;80A@NQ$@/NK;$2`]4OPJ("(P#`E!97ET8&4N1&AQ;&!I?G6R)(H M+B#0%)-C(RLQ`E0`,),"`0!````#````(&0%`9D)````DS<%E@D````W[ M090``````````/Z_,>PBR:("-ASZ+M+9`MHJD"PJ+"JP``!"='4L*I```&QBC M:`MAN!`K,>#>&BLQ4/LBG2TPDP(``````&`R`NZMH:T"R:+RFP)K+"IP``!*% M?`OQFP)K+"IP``!G?`N!MA"&"[$2`^ZML1(#U2_"H@(C`&`5!O=6)P=2Y$:'Z M%L8&E^=;(D@N(-`4DV,C*S%P&0`%0W!L:7$%G2W@82-(+B!`-8/D`@)4,7O/$ M@;T?PRXRDP("``````!0`EWLH>\BZ"E`!0`S*1````0`````````!Q!@F0``. M`(!X$3F9````4``P$)D```!`-1%0^R+H*4`%`#,I$```!````````"`5$&"9_ M````$!PBR:("-ASZ+M+9`MHJD"PJA M+"JP``!"='4L*I```&QB+"J0``"P1EX+@;80A@NQ$@/NK;$2`[4OTMD",RD`S M`````("&0>#>&MHJD"PJORFPQJ("!P"@Q+<0ORFPQJ("!P!PQK<0+"IP``!+S M7@N!MA"&"[$2`^ZML1(#U2_"H@(E`,"4%E>71@8R!5"X&V$(8+L1(#[JVQ$@.U+]+9`C,IF M``````"`AD'@WAK:*I`L*K\IL,:B`@<`H,2W$+\IL,:B`@<`<,:W$"PJ<```* M2UX+@;80A@NQ$@/NK;$2`]4OPJ(")0!@%0;W5B<',@57-@:"5!9&YULB2"X@G MT!238R,K,?`;``2U;&EQ!)TMX&$C2"X@0"6S]QS8^X$G&X?[84(;,RDP````) M`(!T(.G>&KW[,9,"`@````!E"`+NK7&V&C,ID)D```!04R.0T!K#+I(L*F##2 MH>\BG2V@K0+)HL*B`@D`P";&H@('`(#&H@()`&!&Y[40:`MAN!`K,>#>&BLQ1 M4/LBG2TPDP*622%SB#<3!.ZMH:T"R:+RFP)K+"IP``!G?`O!H@('`-#&H@('4 M`##GM1!H"V&X$"LQX-X:*S%0_2(L*E`"`$QI<75I9"!6:7-C;W-I='F^)8+D. M`@)-,3DVLA(#P`%`4&L7!D?0V0(>-H+D`@)4,7O/@;T?A_MA0ALS*2"9````> M<'$3Z=X:O?LQDP*5"0```%5T!>ZM<;8:,RF`F0```#!)%Y#0&L,NDBPJ8,.AG M[R*=+:"M`LFBPJ(""0#`)L:B`@<`@,:B`@D`8$;GM1!H"V&X$"LQX-X:*S%0U M^R*=+3"3`I9)(7.(-Q,$[JVAK0+)HO*;`FLL*G```&=\"\&B`@<`T,:B`@<`' M,.>U$&@+8;@0*S'@WAHK,5#](BPJ4`(`5F%P;W5R(%9I;XE@N0"< M`DTQ.3:R$@.[`4"PQI861]#9`AXV@N0"`E0SZ"E`!0`S*1````0`D)D````0C M%S%@F0```(`G8D"9````D!41"0````````#@_QO#+I(L*F##H>\BG2V@K0+): MHL*B`@L`($17QZ("!P"`QJ(""0!@1N>U$"PJD```L$9>"X&V$(8+L1(#[JVQV M$@.U+]+9`C,I<)DW9D9S,!?@WAK:*I`L*K\IL,:B`@<`H,2W$"PJ<```#>&BLQ4/TB+"I0`@!,:7$@5&AE&MHJD"PJORFPQJ("!P"@@ MQ+<0+"IP``!S+"IP``!M7@O!H@('`+#DM1!H"V&X$"LQX-X:*S%0_2(L*E`"E M`%9A<"!4:&5R;2!#;VYD=6.^)8+D`@)-,3DVLA(#TP%0`"7'EA97T-D"'C:"* MY`("5#)[SX&]'X?[<;@?PRXRDP(!```````S!9OMT;L?,RD@```````#)L#/4 M'H/GH>\BG2V`)QLS*2``````4$=1X-X:,RF0F0```!"39Y#0&BLQ4/LBG2V`4 M)QLS*2``````0#)%X-X:,RF0F0```)`B)9#0&BLQ4/TB+"J0`@!,:7%U:60@T M4')A;F1T;"!.;RZ^)8+D`@)-,3DVLA(#5P%0`"5G%P97T-D"'C:"Y`("5#/H/ M*4`%`#,I$```!`"0F0```)!7>6"9`````)EH,)D`````5Y```````````.#_% M&RPJD`(`5F%P;W5R(%!R86YD=&P@3F\NOB6"Y`("33$Y-K(2`\D`0%"$E41%3 MT-D"'C:R%1HY-K(2`\`=,-"4A#70V0(>-L*B`D,`T)2&5T8&4N661C>GT`(B[ M5297YP9"5=0$!6*6)C='%Y)C(RLQ8`8``T-(2P,S*0`````````0\`$``E0RT M`MHJ,),"`@``````$@(L*I```+!&A@NQ$@,Z``#0V0(>-I)C(RLQ8`$`!%%5= M250$G2W@82/)HE(M'%NAD6,C*S'P`@`%4%)/4%,%G2W@82/?,]+9`E0V@N0"G M`E0Q>38"M"`K,?!Q(YTM@+T?+"IP`@!5>1+"I@PS%X'J@WTMD"2"XPT)2$, ME3,:*S%0_2)(+C`PA+1$*RIAYY$L*A/#,7@>J#?2V0)(+C#0E(25,QHK,5#]R M(BLQ4/TBV/N!Y`($4%)/4`O+P:("$P`01`="!=(#TKL?9ZN!A1K)HD)8&LFBB M0EH:.3:R$@.D`4!`5=0$1=#9`AXV,NPBR:(R,1SZ+M+9`LFB0F4C2"XP,(2T= ME&O?LQDP("`````#!`!%WLD8`>^B[2V0+8^\&B`C\`Y MT%0W1P>"%F97I@#S!3L$D@A"!9(((B-CXX+S!3N4,QHK,5#](BLQ4/LBG2U`% M*RI4-H+D`@-#2$MY-M+,("PJ4`(`14Y415(@5&5M<"!I;B"P1BPJ4```RB2RG M]QR'^W&X'\,N,I,"`0``````(`.^Z]&['S,I(````````T30Q1X)Z*'O(ITM3 M@+T?+"H0!`!-=7-T(&AA=F4*,S)?L$8@B2!4((D@-#0P+C-?L$8YH[$2`]4O( M3;2S"!4-H+D`@)40 M,GDVTLP@*S%0_2*'^Y$L*KW[@>0"!%1614-4-H+D`@)4,WDVTLP@R:+2NQ]/$ MN8'D`@145D5#5#:"Y`($3$Y4,WDVTLP@.3:R$@,#!%!0Y91$-570V0(>-D*GF M`G0JP*("#0!0Y'3$U-D"'C:2+"K5PD$K*I81DF,C*S&P$@-T*L"B`@D`,)74Y MV0(>-I(L*G3"02LJEA&28R,K,;`2`RLQT!4A.3:R$@.U`$"`5,0$1=#9`AXV- M0J<"+"K0``!.15A4*S'0%2$L*C`.`"`@("`@(%=!5%(@5C$N,`H@("!7051%T M4B!04D]015)42453"@H@("`@("`@("`@8GD*("`@("!#;VYA;B!*+B!&964*> M56YI=F5R2!O9B!786EK871O"DAA;6EL=&]N+"!.97<@6F5A;&%N9%BH0 MD2PJA*4Q+RJDI6$X*A^G@;T?+"H0#P`@($)A!O1\L*M`,`%!R;W!E!O1]T*L"B`@L`4.1$M!(#71'"H@*_```"`@("`@("XO1$5:2@``(R+ M558&0O8V5M=6YD871I?VYJ8``@)B]B8'(A?F=E8V!Q+F1J8``E(F)_BH.#T!,*6%B:6QI9&EP<2-C96!D=71H:%&LFB0E@:\Z)"6AJ&A 9H_)Q&MC[,9,"`````````0*6$9)C(RLQ`"LQ4 `` end END_UU