内存压缩解压例程

sourceLen ＝ 取字节集长度 (数据)
.如果真 (sourceLen ＝ 0)
返回 ({ })
.如果真结束
.如果真 (yj ＝ 0)
yj ＝ 内存加载dll (#zlib, “zip”)
.如果真结束
destLen ＝ sourceLen × 1.001 ＋ 12
dest ＝ 取空白字节集 (destLen)
ret ＝ winapi (“Mem|zip”, “compress”, 7, 取址2 (dest), 取址 (destLen), 取址2 (数据), sourceLen)
dest ＝ 到字节集 (“Gz”) ＋ { 0 } ＋ 到字节集 (sourceLen) ＋ 取字节集左边 (dest, destLen)