13 lines
366 B
Tcl
13 lines
366 B
Tcl
#----------------------------------------------------------------------------
|
|
# Common Tcl-command procedures for DMC
|
|
# Mark Koennecke February 1997
|
|
#--------------------------------------------------------------------------
|
|
proc Milch { n } {
|
|
for {set i 0 } { $i < $n } { incr i} {
|
|
ClientPut "Milch ist gesund"
|
|
}
|
|
}
|
|
|
|
proc Kaba { text } {
|
|
return $text
|
|
} |