NAME=JBDecHex
AUTHOR=
ITEM=function JBDecHex$(number)
DESCRIPTION=Function to convert positive integers to hexadecimal string representation. Function returns an empty string if argument is wrong.
OUTSIDE CODE=

function JBDecHex$(number)
    'non-integers would cause "system primitive failure"
    if number <> int(number) then exit function

    if number = 0 then
        JBDecHex$ = "0"
        else
        digits$ = "0123456789ABCDEF"
        while number > 0
            a = number mod 16 + 1
            JBDecHex$ = mid$(digits$, a, 1); JBDecHex$
            number = int(number/16)
        wend
    end if
end function
