HEX(<expN>)
 Converts a decimal number to hexadecimal (base 16).
 Returns <expC> hexadecimal value of <expN>.

 Returns a 4-byte string if -32768 <= <expN> <= 65535,
         otherwise an 8-byte string.

 Useful with functions and procedures providing low-level access,
 such as DOSFUNC and ROMBIOS, that require some parameters to be
 passed as hexadecimal strings.

 HEX(    16) returns "0010"
 HEX(    79) returns "004F"
 HEX(    -1) returns "FFFF"
 HEX( 65535) returns "FFFF"
 HEX( 32768) returns "8000"
 HEX(-32768) returns "8000"
 HEX(-32769) returns "FFFF7FFF"

 DO WHILE .T.
    ACCEPT "Enter a number: " TO m_dec
    IF [] = m_dec
       EXIT
    ELSE
       ? "Result: " + HEX( VAL(m_dec) )
    ENDIF
 ENDDO


             Placed in the Public Domain by Tom Rettig Assoc.