#----- pressure reading via eurotherm 3216 ----- proc makeEuroPress {name} { makenv $name euro2k clientput "EUROPRESS $name" obj_list $name euroPress }