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