12 lines
158 B
Text
12 lines
158 B
Text
:Input "DEC: ",D
|
|
:" →Str1
|
|
:If not(D:"0→Str1
|
|
:While D>0
|
|
:If not(fPart(D/2:Then
|
|
:"0"+Str1→Str1
|
|
:Else
|
|
:"1"+Str1→Str1
|
|
:End
|
|
:iPart(D/2→D
|
|
:End
|
|
:Disp Str1
|