8 lines
121 B
Text
8 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;
|