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

function JBDecBin$(number)
    'non-integers would not give the correct result
    if number <> int(number) then exit function

    if number = 0 then
        JBDecBin$ = "0"
        else
        while number > 0
            JBDecBin$ = str$(number and 1); JBDecBin$ 
            number = int(number/2)
        wend
    end if
end function