Spinning rod animation/Text: Difference between revisions
Content deleted Content added
Add Factor example |
added FreeBASIC |
||
Line 75:
"\\|/-" [ "%c\r" printf flush 1/4 seconds sleep ] each
] forever</lang>
=={{header|FreeBASIC}}==
<lang freebasic>' version 13-07-2018
' compile with: fbc -s console
Dim As String spinning_rod = "|/-\"
Dim As UInteger c
While InKey <> "" : Wend
While InKey = ""
Cls
Print
Print " hit any key to end program "; Chr(spinning_rod[c And 3])
c += 1
Sleep(250) ' in milliseconds
Wend
End</lang>
=={{header|GlovePIE}}==
| |||