8 lines
97 B
Text
8 lines
97 B
Text
|
PROC main()
|
||
|
|
DEF i = 1024
|
||
|
|
WHILE i > 0
|
||
|
|
WriteF('\d\n', i)
|
||
|
|
i := i / 2
|
||
|
|
ENDWHILE
|
||
|
|
ENDPROC
|