prevnext "Tcl Users
"
if { [var exists TclUsers] } {
set TclUsers [var get TclUsers]
} else {
set TclUsers 1
}
if { [var exists Total] } {
set Total [var get Total]
} else {
set Total 1
}
if { ! [string is integer $Total] || ! [string is integer $TclUsers] } {
error "Only integers, please"
}
if { $TclUsers > 200 } {
set TclUsers 200
}
if { $Total > 200 } {
set Total 200
}
if { $TclUsers > $Total } {
set Total $TclUsers
}
puts "There are $TclUsers Tcl users and $Total
people in attendance, give or take a few."
?>
set i 0
while { $i < $TclUsers } {
puts { | }
incr i
}
while {$i < $Total } {
puts { | }
incr i
}
?>