RosettaCodeData/Task/Sleep/FreeBASIC/sleep.freebasic
2016-12-05 23:44:36 +01: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