14 lines
186 B
Text
14 lines
186 B
Text
func$ bin num .
|
|
b$ = ""
|
|
if num = 0
|
|
b$ = "0"
|
|
.
|
|
while num > 0
|
|
b$ = num mod 2 & b$
|
|
num = num div 2
|
|
.
|
|
return b$
|
|
.
|
|
print bin 2
|
|
print bin 50
|
|
print bin 9000
|