11 lines
158 B
Text
11 lines
158 B
Text
func$ bin num .
|
|
b$ = ""
|
|
while num > 1
|
|
b$ = num mod 2 & b$
|
|
num = num div 2
|
|
.
|
|
return num & b$
|
|
.
|
|
print bin 5
|
|
print bin 50
|
|
print bin 9000
|