10
REM > FNcrc - crc%=FNcrc(mem%,len%)
20
:
30
DEF
FN
crc(mem%,len%)
40
crc%=0:
REPEAT
:crc%=crc%
EOR
(256*?mem%):mem%=mem%+1
50
FOR
x%=1
TO
8:crc%=crc%*2:
IF
(crc%
AND
&10000):crc%=crc%
EOR
&11021
60
NEXT
:len%=len%-1:
UNTIL
len%=0:=crc%
Download FNcrc
BBC BASIC detokeniser and syntax highlighter by Ben Ryves.