#----- room temperature reading -----

proc makeTroom {troom} {
  makenv $troom euro2k
  $troom rdonly 1
  obj_list $troom room temperature reading
  catch {$troom upperlimit 99.9}
  defineTemperature $troom
}