mirror
/
RosettaCodeData
mirror of https://github.com/acmeism/RosettaCodeData.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
RosettaCodeData/Task/Loops-While/FreeBASIC/loops-while.basic

11 lines
89 B
Plaintext
Raw Permalink Blame History

' FB 1.05.0 Win64
Dim i As Integer = 1024
While i > 0
Print i
i Shr= 1
Wend
Sleep
Reference in New Issue View Git Blame Copy Permalink