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

11 lines
241 B
Text

If OpenConsole()
Print("Enter a time(milliseconds) to sleep: ")
x.i = Val(Input())
PrintN("Sleeping...")
Delay(x) ;in milliseconds
PrintN("Awake!")
Print(#CRLF$ + #CRLF$ + "Press ENTER to exit")
Input()
CloseConsole()
EndIf