_zlibapicrc32.prg

*!* _zlibapicrc32

*!* Update a running Adler-32 checksum with the bytes buf[0..len-1] and
*!*	 return the updated checksum.  If buf is Z_NULL, this function returns the   
*!*	 required initial value for the checksum.     
*!*	 An Adler-32 checksum is almost as reliable as a CRC32 but can be computed   
*!*	 much faster.

lparameters crc, buf, nlen

declare integer crc32 in zlib1.dll as _zlibapicrc32 ;
	integer crc, ;
	string  buf, ;
	integer nlen

return _zlibapicrc32(m.crc, m.buf, m.nlen)