> >
> >

> > FUNCTION CRC16(lnVal)
> >     LOCAL lnCRC, rip, lnFor
> >     lnCRC = 0
> >     FOR lnFor = 16 TO 0 STEP -1
> >         rip   = lnVal ^ lnCRC
> >         lnCRC = BITRSHIFT(lnCRC,1)
> >         lnVal = BITRSHIFT(lnVal,1)
> >         IF BITAND(rip, 1) # 0
> >            lnCRC = lnCRC ^ 0x11021
> >         ENDIF
> >     NEXT
> > RETURN lnCRC
> > 

> >
> > -----------------
> > Borislav Borissov
> >
> > Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
> > The only thing normal about database guys is their tables.
>
>
>
>
>
> Thanks for that Borislav.
>
> Richard

Test it!!!


-----------------
Borislav Borissov

Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.