11 lines
210 B
Text
11 lines
210 B
Text
MODULE CRC32;
|
|
IMPORT
|
|
NPCT:Zlib,
|
|
Strings,
|
|
Out;
|
|
VAR
|
|
s: ARRAY 128 OF CHAR;
|
|
BEGIN
|
|
COPY("The quick brown fox jumps over the lazy dog",s);
|
|
Out.Hex(Zlib.CRC32(0,s,0,Strings.Length(s)),0);Out.Ln
|
|
END CRC32.
|