Allen,
This works for us:

* Program....: LRC.PRG
* Abstract...: Computes LRC (Longitudinal Redundancy Check) for string passed in
*              Returns a single character
LPARAMETERS p_cString

IF PCOUNT()<1 OR TYPE("p_cString") <> "C"
    RETURN CHR(0)
ENDIF
LOCAL lnLRC, lnii

lnLRC = 0

FOR lnii = 1 TO LEN(p_cString)
    lnLRC = BITAND(0xFF,BITXOR(lnLRC,ASC(SUBSTR(p_cString,lnii,1))))
ENDFOR
RETURN CHR(lnLRC)

Rick

>Can anyone give me example code on doing LRC on a string?
>
>Thanks,
>Allen