12 lines
262 B
Text
12 lines
262 B
Text
MODULE BbtComputeCRC32;
|
|
IMPORT ZlibCrc32,StdLog;
|
|
|
|
PROCEDURE Do*;
|
|
VAR
|
|
s: ARRAY 128 OF SHORTCHAR;
|
|
BEGIN
|
|
s := "The quick brown fox jumps over the lazy dog";
|
|
StdLog.IntForm(ZlibCrc32.CRC32(0,s,0,LEN(s$)),16,12,'0',TRUE);
|
|
StdLog.Ln;
|
|
END Do;
|
|
END BbtComputeCRC32.
|