RosettaCodeData/Task/Loops-While/PeopleCode/loops-while.peoplecode
2023-07-01 13:44:08 -04:00

9 lines
196 B
Text

Local string &CRLF;
Local number &LoopNumber;
&LoopNumber = 1024;
&CRLF = Char(10) | Char(13);
While &LoopNumber > 0;
WinMessage(&LoopNumber | &CRLF);
&LoopNumber = &LoopNumber / 2;
End-While;