9 lines
96 B
Text
9 lines
96 B
Text
variables
|
|
numeric I
|
|
endvariables
|
|
|
|
I = 1024
|
|
while (I > 0)
|
|
putmess I
|
|
I = (I/2)[trunc]
|
|
endwhile
|