9 lines
121 B
Text
9 lines
121 B
Text
|
include "cowgol.coh";
|
||
|
|
|
||
|
|
var n: uint16 := 1024;
|
||
|
|
while n > 0 loop
|
||
|
|
print_i16(n);
|
||
|
|
print_nl();
|
||
|
|
n := n/2;
|
||
|
|
end loop;
|