Set Heating$Dir <Obey$Dir>
WimpSlot -min 48K -max 48K
Run <Heating$Dir>.!CH_CALC
