8 lines
196 B
Tcl
8 lines
196 B
Tcl
puts -nonewline "Enter a number of milliseconds to sleep: "
|
|
flush stdout
|
|
set millis [gets stdin]
|
|
set ::wakupflag 0
|
|
puts Sleeping...
|
|
after $millis set ::wakeupflag 1
|
|
vwait ::wakeupflag
|
|
puts Awake!
|