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