****************************
*!* Example 6
****************************
*!* Compress and decompress a string in memory.
*!* The amount of compression is pretty remarkable.
****************************
SET LIBRARY TO LOCFILE("vfpcompression.fll")
CLEAR
lcOriginal = REPLICATE("Visual FoxPro Rocks!",1060)
?"Equals Original: " + IIF(UnzipString(ZipString(m.lcOriginal)) == m.lcOriginal, "YES", "NO")

lcOriginal = REPLICATE("Visual FoxPro Rocks!",1061)
?"Equals Original: " + IIF(UnzipString(ZipString(m.lcOriginal)) == m.lcOriginal, "YES", "NO")

SET LIBRARY TO