Spinning rod animation/Text: Difference between revisions
Content added Content deleted
(Add Factor example) |
(added FreeBASIC) |
||
Line 75: | Line 75: | ||
"\\|/-" [ "%c\r" printf flush 1/4 seconds sleep ] each |
"\\|/-" [ "%c\r" printf flush 1/4 seconds sleep ] each |
||
] forever</lang> |
] 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}}== |
=={{header|GlovePIE}}== |