7 lines
140 B
Tcl
7 lines
140 B
Tcl
|
puts -nonewline "Enter a number of milliseconds to sleep: "
|
||
|
|
flush stdout
|
||
|
|
set millis [gets stdin]
|
||
|
|
puts Sleeping...
|
||
|
|
after $millis
|
||
|
|
puts Awake!
|