RosettaCodeData/Task/CRC-32/M2000-Interpreter/crc-32-2.m2000
2023-07-01 13:44:08 -04:00

7 lines
210 B
Text

Module CheckApi {
Declare CRC32 LIB "ntdll.RtlComputeCrc32" {Long Zero, a$, long s}
a$=Str$("The quick brown fox jumps over the lazy dog")
l=len(a$)*2
Hex Uint(CRC32(0,a$,l))
}
CheckApi