#--------------------------------------------------------------------------
# some tcl for testing Tcl language environment device drivers in psish
# Mark Koennecke, February 1998
#--------------------------------------------------------------------------
rename Controller serialport

proc ClientPut {text} {
     puts stdout $text
}