9 lines
128 B
Text
9 lines
128 B
Text
PROGRAM:BINARY
|
|
:Input X
|
|
:" "→Str1
|
|
:Repeat X=0
|
|
:X/2→X
|
|
:sub("01",2fPart(X)+1,1)+Str1→Str1
|
|
:iPart(X)→X
|
|
:End
|
|
:Str1
|