15 lines
139 B
Text
15 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
|