lcStr = "LRC - Longitudinal Redundancy Check" lnLRC = 0 FOR i=1 TO len(lcStr) lnLRC = BITXOR(lnLRC, ASC(SUBSTR(lcStr,i ,1) )) ENDFOR ? lnLRC lcLRC = CHR(lnLRC)