<html>
<head>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=US-ASCII">
<meta name=Generator content="Microsoft Word 10 (filtered)">
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:navy;
text-decoration:underline;}
span.emailstyle17
{font-family:Arial;
color:windowtext;}
span.EmailStyle18
{font-family:Arial;
color:navy;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=navy>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Hi all,</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>I just finished reworking a Dynix BIB I-descriptor that
figures out which format icon should be displayed on the summary screen in our
iPac<font color=navy><span style='color:navy'>:</span></font></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><a href="http://www.hclib.org/catalog/index.cfm">http://www.hclib.org/catalog/index.cfm</a>
(remote user)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><a href="http://www.hclib.org/catalog/index.cfm?profile=sd">http://www.hclib.org/catalog/index.cfm?profile=sd</a>
(internal user)</span></font></p>
<p class=MsoNormal><font size=2 color=navy face=Arial><span style='font-size:
10.0pt;font-family:Arial;color:navy'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>It's (mostly) based on the MARC leader and fixed field
codes, so if you can count on your cataloging to have the right codes in the
right places, it might be something you'd be interested in.<font
color=navy><span style='color:navy'> </span></font>I'll try to chop
it up and explain some of what it's doing. Feel free to contact me
if you want to really dig into it and/or you want to see the XSLT that utilizes
it.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>The output of the I-descriptor is the text string
"format_icon!" and then one of the following image file names:</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>OO.gif
On order - our order records would otherwise all be "Books"</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>QM.gif
"Question Mark" - blank gif</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>LP.gif
Large Print</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>MF.gif
Microform (currently a blank gif)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>BR.gif
Braille (currently a blank gif)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>ER.gif
Electronic Resource</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>BK.gif
Book</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>NP.gif
Newspaper (currently a blank gif)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>MA.gif
Magazine (currently a blank gif)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>VHS.gif
Video tape</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>DVD.gif
DVD</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>AC.gif
Audio cassette (non-music)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>CD.gif
Compact Disc (non-music)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>ACM.gif
Audio cassette (music)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>CDM.gif
Compact Disc (musc)</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Sample output:</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>>LIST BIB L-IPAC.FORMAT2</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>BIB....... Format icon info..............</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>777107 format_icon!BK.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>777109 format_icon!BK.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>777110 format_icon!QM.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>777111 format_icon!BK.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>307113 format_icon!VHS.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>307115 format_icon!BK.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>307116 format_icon!BK.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>777128 format_icon!AC.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>777132 format_icon!BK.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>777138 format_icon!VHS.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>307133 format_icon!CDM.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>777139 format_icon!CD.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>307135 format_icon!ACM.gif</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>Enter DICT NAME : L-IPAC.FORMAT2</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>1 FIELD
NAME 1/ Format icon info</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>2
FORMAT
30L</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>3
CONVERSION 1/ </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>4 FIELD
EXPRESSION
SUBSTRINGS(TRANS(MARC.BIB,@ID,F1,"X"),7,1);SUBSTRINGS(</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
TRANS(MARC.BIB,@ID,F1,"X"),8,1);SUBSTRINGS(DESC,2,1);S</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
UBSTRINGS(FIXED,24,1);SUBSTRINGS(FIXED,22,1);"format_i</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
con!":IF BARCODES AND (SUM(EQS(TRANS(HOLDINGS,BARCODES</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
,STATUS,"X"),REUSE("AO"))) + SUM(EQS(TRANS(HOLDINGS,BA</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
RCODES,STATUS,"X"),REUSE("AR")))
= DCOUNT(BARCODES,@SV</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
M)) THEN "OO.gif" ELSE (IF @1 = "" THEN "QM.gif"
ELSE </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
(IF @1 = "a" THEN (IF @4 = "d" THEN "LP.gif" ELSE
(IF </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
@4 = "a" "b" "c" THEN "MF.gif" ELSE (IF
@4 = "f" THEN </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
"BR.gif" ELSE (IF @4 = "s" THEN "ER.gif" ELSE (IF
@2 =</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
"m" THEN "BK.gif" ELSE (IF @2 = "s" THEN (IF @5 =
"n"</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
THEN
"NP.gif" ELSE (IF @5 = "p" THEN "MA.gif" ELSE
"B</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
K.gif")) ELSE "BK.gif")))))) ELSE (IF @1 = "g" THEN (I</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
F @3 = "f" THEN "VHS.gif" ELSE (IF @3 = "d" THEN
"DVD.</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
gif" ELSE "QM.gif")) ELSE (IF @1 = "i" THEN (IF @3 =
"</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
s" THEN "AC.gif" ELSE (IF @3 = "d" THEN
"CD.gif" ELSE </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
"QM.gif")) ELSE (IF @1 = "j" THEN (IF @3 = "s"
THEN "A</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
CM.gif" ELSE (IF @3 = "d" THEN
"CDM.gif" ELSE "QM.gif"</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>
)) ELSE "QM.gif")))))</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>5
SINGLE/MULTI S</span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>### END OF RECORD ###</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Here's the FIELD EXPRESSION again on a single line:</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>SUBSTRINGS(TRANS(MARC.BIB,@ID,F1,"X"),7,1);SUBSTRINGS(TRANS(MARC.BIB,@ID,F1,"X"),8,1);SUBSTRINGS(DESC,2,1);SUBSTRINGS(FIXED,24,1);SUBSTRINGS(FIXED,22,1);"format_icon!":IF
BARCODES AND
(SUM(EQS(TRANS(HOLDINGS,BARCODES,STATUS,"X"),REUSE("AO")))
+ SUM(EQS(TRANS(HOLDINGS,BARCODES,STATUS,"X"),REUSE("AR")))
= DCOUNT(BARCODES,@SVM)) THEN "OO.gif" ELSE (IF @1 = ""
THEN "QM.gif" ELSE (IF @1 = "a" THEN (IF @4 = "d"
THEN "LP.gif" ELSE (IF @4 = "a" "b" "c"
THEN "MF.gif" ELSE (IF @4 = "f" THEN "BR.gif"
ELSE (IF @4 = "s" THEN "ER.gif" ELSE (IF @2 = "m"
THEN "BK.gif" ELSE (IF @2 = "s" THEN (IF @5 = "n"
THEN "NP.gif" ELSE (IF @5 = "p" THEN "MA.gif"
ELSE "BK.gif")) ELSE "BK.gif")))))) ELSE (IF @1 =
"g" THEN (IF @3 = "f" THEN "VHS.gif" ELSE (IF @3
= "d" THEN "DVD.gif" ELSE "QM.gif")) ELSE (IF @1
= "i" THEN (IF @3 = "s" THEN "AC.gif" ELSE (IF @3
= "d" THEN "CD.gif" ELSE "QM.gif")) ELSE (IF @1 =
"j" THEN (IF @3 = "s" THEN "ACM.gif" ELSE (IF @3
= "d" THEN "CDM.gif" ELSE "QM.gif")) ELSE
"QM.gif")))))</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>The first several sections establish some variables:</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>SUBSTRINGS(TRANS(MARC.BIB,@ID,F1,"X"),7,1);</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>This looks into the MARC.BIB file and grabs the 7<sup>th</sup>
character of the Leader (the Type of Record code) and saves it as @1.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>SUBSTRINGS(TRANS(MARC.BIB,@ID,F1,"X"),8,1);</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Same thing for the 8<sup>th</sup> character of the Leader (the
Bibliographic level code), saving it as @2.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>SUBSTRINGS(DESC,2,1);</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Saves the 2<sup>nd</sup> character of the 007 as @3.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>SUBSTRINGS(FIXED,24,1);</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Saves the 24<sup>th</sup> character of the 008 as @4.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>SUBSTRINGS(FIXED,22,1);</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Saves the 22<sup>nd</sup> character of the 008 as @5.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>"format_icon!":</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>This sticks the text string "format_icon!" at
the beginning of the output. It's the hook that the XSLT uses to
identify the right data.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Then comes a whole host of nested IF THEN ELSE statements that
decide which icon should be used for the title. The first test is to see
if the item is on order (order records would otherwise all be considered
Books):</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>IF BARCODES AND
(SUM(EQS(TRANS(HOLDINGS,BARCODES,STATUS,"X"),REUSE("AO")))
+ SUM(EQS(TRANS(HOLDINGS,BARCODES,STATUS,"X"),REUSE("AR")))
= DCOUNT(BARCODES,@SVM)) THEN "OO.gif"</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>In English, this says: "If there are items
attached AND all of the items have a status of either AO or AR, then it's
on order."</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>The rest of the IF THEN ELSE mess is looking at the various
aspects of the Leader, 007, and 008 to determine the format of the title.
Again, if you're interested I can give you more information about how I
laid this out.</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Phil</span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+</span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>Phil Feilmeyer
pfeilmeyer@hclib.org</span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>Integrated Library System
Manager (952) 847-8768</span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>Hennepin </span></font><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>County</span></font><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
</span></font><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>Library</span></font><font size=2
face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
(952) 847-8600 (fax)</span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>12601 Ridgedale Drive</span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>Minnetonka</span></font><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>,
</span></font><font size=2 face="Courier New"><span style='font-size:10.0pt;
font-family:"Courier New"'>MN</span></font><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'> </span></font><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>55305-1909</span></font><font
size=2 face="Courier New"><span style='font-size:10.0pt;font-family:"Courier New"'>
<a href="http://www.hclib.org/">http://www.hclib.org</a></span></font></p>
<p class=MsoNormal style='text-autospace:none'><font size=2 face="Courier New"><span
style='font-size:10.0pt;font-family:"Courier New"'>-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-</span></font></p>
<p class=MsoNormal><font size=3 face="Times New Roman"><span style='font-size:
12.0pt'> </span></font></p>
</div>
</body>
</html>