8 lines
136 B
Text
8 lines
136 B
Text
func$ bin num .
|
|
if num <= 1 : return num
|
|
return bin (num div 2) & num mod 2
|
|
.
|
|
print bin 0
|
|
print bin 5
|
|
print bin 50
|
|
print bin 9000
|