RosettaCodeData/Task/Sleep/FreeBASIC/sleep.freebasic

9 lines
202 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01: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