17 lines
302 B
Text
17 lines
302 B
Text
' version 13-07-2018
|
|
' compile with: fbc -s console
|
|
|
|
Dim As String spinning_rod = "|/-" + Chr(92)
|
|
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
|