> >
> > Hello Borislav,
> >
> > It always returns zero?
> >
> >
> > Richard
>
> O GOD!!!
> I always forgot that [^] is not POWER operator but XOR(), Sorry:
>

>  FUNCTION CRC16(lnVal)
>      LOCAL lnCRC, rip, lnFor
>      lnCRC = 0
>      FOR lnFor = 16 TO 0 STEP -1
>          rip   = BITXOR(lnVal, lnCRC)
>          lnCRC = BITRSHIFT(lnCRC,1)
>          lnVal = BITRSHIFT(lnVal,1)
>          IF BITAND(rip, 1) # 0
>             lnCRC = BITXOR(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.

Hi Borislav,

thanks for the update.

Richard