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