Yep, it was in the thread that said "working Code"

Here is my method of CRC which I believe came from that thread ???
And my method of LRC which works but could be improved upon.

Notes:
CRC is a WORD, LRC is a Byte
Buf is an array that contains all the bytes.
Len is the number of bytes in the array and you set that depending on what your doing.
When Receiving messages LEN has to be adjusted to Exclude the CRC or LRC Bytes.



CalcCRC:
CRC16=$FFFF
For i = 0 to Len
CRC16=CRC16^Buf[i]
For j = 1 to 8
IF CRC16.Bit0 = 1 Then
CRC16=$A001^(CRC16>>1)
ELSE
CRC16=CRC16>>1
EndIf
Next j
Next i
Return




CalcLRC:
'Procedure Builds LRC value from bytes
LRC = 0
For i = 0 TO Len
LRC = LRC + Buf[i]
Next i
LRC = $100 - LRC
Return