>>**************************** >>*!* 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 >>