LZH Compress

Has anyone got source code for performing LZH compression / decompression
on a string within memory.

Thanks for your help
Brosco