RosettaCodeData/Task/Sleep/FreeBASIC/sleep.basic
2023-07-01 13:44:08 -04:00

8 lines
202 B
Text

' 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