Loops/While: Difference between revisions
Content added Content deleted
(Lingo added) |
(Added FreeBASIC) |
||
Line 621: | Line 621: | ||
STOP |
STOP |
||
END</lang> |
END</lang> |
||
=={{header|FreeBASIC}}== |
|||
<lang freebasic>' FB 1.05.0 Win64 |
|||
Dim i As Integer = 1024 |
|||
While i > 0 |
|||
Print i |
|||
i Shr= 1 |
|||
Wend |
|||
Sleep</lang> |
|||
{{out}} |
|||
<pre> |
|||
1024 |
|||
512 |
|||
256 |
|||
128 |
|||
64 |
|||
32 |
|||
16 |
|||
8 |
|||
4 |
|||
2 |
|||
1 |
|||
</pre> |
|||
=={{header|Frink}}== |
=={{header|Frink}}== |