>>255
zlib公式にあるDLLが使えるって事です

#uselib "zlib.dll"
#func zlib_compress "compress2" var, var, var, int, int
#func zlib_uncompress "uncompress" var, var, var, int

sdim d,1024
sdim d2,1024
sdim s,1024
s = "てすと"

sl = strlen(s)
dl = 5

zlib_compress d,dl,s,sl,1
mes stat ; buffer error

dl = 1024

zlib_compress d,dl,s,sl,1
mes stat

dl2 = 1024

zlib_uncompress d2,dl2,d,dl
mes stat