>&& typedef DWORD unsigned long; >FUNCTION NumToULong(tnNumber) > ASSERT BETWEEN(tnNumber,0,4294967295) MESSAGE "Value out of range." > RETURN CHR(BITAND(tnNumber,0x000000FF)) + ; > CHR(BITAND(BITRSHIFT(tnNumber,8),0x000000FF)) + ; > CHR(BITAND(BITRSHIFT(tnNumber,16),0x000000FF)) + ; > CHR(BITRSHIFT(tnNumber,24)) >ENDFUNC > >&& typedef WORD unsigned short; >FUNCTION NumToUShort(tnNumber) > ASSERT BETWEEN(tnNumber,0,65535) MESSAGE "Value out of range." > RETURN CHR(BITAND(tnNumber,0x000000FF)) + ; > CHR(BITAND(BITRSHIFT(tnNumber,8),0x000000FF)) >ENDFUNC >>
* NumToULong BINTOC(BITAND(m.tnNumber,0xFFFFFFFF),"RS") * NumToUShort LEFT(BINTOC(m.tnNumber,"RS"),2)