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