RosettaCodeData/Task/Sleep/FBSL/sleep.fbsl

9 lines
142 B
Plaintext

#APPTYPE CONSOLE
DIM %msec
PRINT "Milliseconds to sleep: ";
%msec = FILEGETS(stdin, 10)
PRINT "Sleeping..."
SLEEP(%msec)
PRINT "Awake!"
PAUSE