RosettaCodeData/Task/Sleep/FreeBASIC/sleep.basic

9 lines
202 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
' FB 1.05.0 Win64
Dim ms As UInteger
Input "Enter number of milliseconds to sleep" ; ms
Print "Sleeping..."
Sleep ms, 1 '' the "1" means Sleep can't be interrupted with a keystroke
Print "Awake!"
End