* ConvertAPI.prg 08-Oct-97 * these functions convert to/from internal binary storage function ToWord( pnNumber ) nMSB = int( pnNumber / 256 ) && most significant byte nLSB = pnNumber % 256 && least significant byte return chr( nLSB ) + chr( nMSB ) function ToLong( pnNumber ) nMSW = int( pnNumber / 65536 ) && most significant word nLSW = pnNumber % 65536 && least significant word 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 ) )