6 lines
111 B
Tcl
6 lines
111 B
Tcl
for {set i 0} { $i < 3000} {incr i} {
|
|
ClientPut "Hello you"
|
|
}
|
|
ClientPut "I'am finished"
|
|
ClientPut [sicstime]
|