Anonymous user
Loops/While: Difference between revisions
no edit summary
No edit summary |
|||
Line 1,034:
end
end.</lang>
=={{header|PeopleCode}}==
<lang PeopleCode>
Local string &CRLF;
Local number &StartNumber;
&LoopNumber = 1024;
&CRLF = Char(10) | Char(13);
While &LoopNumber > 0;
WinMessage(&LoopNumber | &CRLF);
&LoopNumber = &LoopNumber / 2;
End-While;
</lang>
=={{header|Perl}}==
|