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