Loops/While: Difference between revisions
Content added Content deleted
No edit summary |
|||
Line 1,034: | Line 1,034: | ||
end |
end |
||
end.</lang> |
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}}== |
=={{header|Perl}}== |