putc.tcl - puts with a color argument for prettier output
proc putc {color verbage} {
global ans
global spid
global device_name
global ipaddress
switch -- $color \
"pink" {set col "35"
} "dkblue" {set col "34"
} "ltgreen" {set col "32"
} "yellow" {set col "33"
} "ltblue" {set col "36"
} "red" {set col "31"
} "white" {set col "37"
} "yellow" {set col "38"
} "unk4" {set col "39"
} "unk5" {set col "40"
} default {set col "0"
}
append c "\033\[" "$col" "m" "$verbage" "\033\[0m"
puts $c
return
}