Alexander
>* ctobin( left( lcParam, 4)) as istatus
The ctobin and bintoc do not create values that are compatible with the normal binary representations of integers.
Here's the functions I use:
function ToWord( pnNumber )
nMSB = int( pnNumber / 256 )
nLSB = pnNumber % 256
return chr( nLSB ) + chr( nMSB )
function ToLong( pnNumber )
nMSW = int( pnNumber / 65536 )
nLSW = pnNumber % 65536
return ToWord( nLSW ) + ToWord( nMSW )
function FromWord( pcBuffer )
return asc( substr( pcBuffer, 2, 1 ) ) * 256 + asc( left( pcBuffer, 1 ) )
function FromLong( pcBuffer )
return FromWord( substr( pcBuffer, 3, 2 ) ) * 65536 + FromWord( left( pcBuffer, 2 ) )
