14 lines
139 B
Text
14 lines
139 B
Text
dim x%:rem an integer
|
|
|
|
x%=1024
|
|
|
|
while x%>0
|
|
|
|
print x%
|
|
x%=x%/2
|
|
|
|
end_while
|
|
|
|
rem output starts with 1024 and ends with 1.
|
|
|
|
terminate
|