2002-01-13 01:14

' Calculates CRC-32 of itself

     $INCLUDE "rapidq.inc"
     $INCLUDE "crc32.inc"

     DIM File AS QFILESTREAM, Buffer AS STRING
     File.OPEN("crctest.rq", fmOpenRead)
     Buffer = File.ReadBinStr(File.Size)
     PRINT "My CRC-32 is ", STRCRC32(Buffer)

2002-01-13 01:14