8 lines
155 B
Text
8 lines
155 B
Text
code CrLf=9, IntOut=11;
|
|
int I;
|
|
[I:= 1024;
|
|
while I>0 do
|
|
[IntOut(0, I); CrLf(0);
|
|
I:= I>>1; \(same as I/2 for positive I)
|
|
];
|
|
]
|