PROGRAM:BINARY
:Input X
:" "→Str1
:Repeat X=0
   :X/2→X
   :sub("01",2fPart(X)+1,1)+Str1→Str1
   :iPart(X)→X
:End
:Str1