proc loadeuro {name value args} {
  clientput "nv makepar $name w $args"
  eval nv makepar $name w $args
  nv $name $value
}

proc ceuro {} {
  nv makepar imode w int 199
  nv imode 2
}

proc oeuro {} {
  nv imode 0
}

proc leuro {} {
  loadeuro decp 1 int 525
  loadeuro inpL -2.47 12307
  loadeuro inpH 79.68 12306
  loadeuro VALL -78.0 12303
  loadeuro VALH 437.5 12302
  loadeuro rngL -78.0 11
  loadeuro rngH 437.5 12
#  loadeuro adj 1 int 566
}

publishLazy ceuro
publishLazy leuro
publishLazy oeuro

clientput "ceuro (go to config mode)"
clientput "leuro (load)"
clientput "oeuro (go to oper mode)"

