10 lines
257 B
Tcl
10 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"
|