Loops/While: Difference between revisions
Added FreeBASIC
(Lingo added) |
(Added FreeBASIC) |
||
Line 621:
STOP
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}}==
|