9 lines
257 B
Tcl
9 lines
257 B
Tcl
proc question {var message} {
|
|
upvar 1 $var v
|
|
puts -nonewline "$message: "
|
|
flush stdout
|
|
gets stdin $v
|
|
}
|
|
question name "What is your name"
|
|
question task "What is your quest"
|
|
question doom "What is the air-speed velocity of an unladen swallow"
|