12 lines
233 B
Text
12 lines
233 B
Text
#AppType Console
|
|
function Bin(byval n as integer, byval s as string = "") as string
|
|
if n > 0 then return Bin(n \ 2, (n mod 2) & s)
|
|
if s = "" then return "0"
|
|
return s
|
|
end function
|
|
|
|
print Bin(5)
|
|
print Bin(50)
|
|
print Bin(9000)
|
|
|
|
pause
|