Binary digits: Difference between revisions

m
Line 2,110:
 
<syntaxhighlight lang="text">
procfunc$ toBinbin num . bin$ .
binb$ = ""
if num = 0
binb$ = "0"
.
while num > 0
binb$ = num mod 2 & binb$
num = num div 2
.
return b$
.
toBin 2print bin$ 2
print bin$ 50
toBin 50print bin$ 9000
print bin$
toBin 9000 bin$
print bin$
</syntaxhighlight>
{{out}}
1,983

edits