color.tcl - colorize output to user - deprecating in favor of [putc].tcl

 proc color {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"
        return $c
 }