Hi Allen,

>And finally, how does one calculate a Longitudinal Redundancy Check of this packet?
>Allen

One method:

PROCEDURE dolrc
LPARAMETERS cinstring

cinput = cinstring
numbytes = LEN(cinput)

* Takes the input string, a character at a time,
* convert to ANSI numeric and XOR with following character.
* Do the first pair to prime crcval

crcval = BITXOR(ASC(SUBSTR(cinput,1,1)),ASC(SUBSTR(cinput,2,1)))

* Now, loop through the rest

FOR x = 3 TO numbytes
  crcval = BITXOR(crcval,ASC(SUBSTR(cinput,x,1)))
ENDFOR

RETURN crcval

Just pass in your string, this will return the LRC value.