8bit checksumを計算する。
checksum8 <intvar> <string> checksum8file <intvar> <filename>
引数の文字列およびファイルから加算サム(8bit)を計算する。
計算結果は intvar 変数に数値として格納される。
checksum8file でファイルが開けなかった場合は、result 変数に -1 が格納される。
str = 'this is a test string to be checksum8ed'
checksum8 crc str
; Display checksum8 result asHEX
sprintf '0x%08X' crc
messagebox inputstr 'checksum8 = '
checksum8file crc 'foo.bin'
if result = -1 then
messagebox 'file open error' 'checksum8file = '
else
sprintf '0x%08X' crc
messagebox inputstr 'checksum8file = '
endif