RosettaCodeData/Task/Loops-While/PeopleCode/loops-while.peoplecode
2016-12-05 23:44:36 +01: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;