program clearinh;
uses ucamac;
var data:word;
begin
 clearinhibit;
 {do adummy camac call because inhibit will be taken intoaccount only
  on the next camac and we have to exit program }
 camac(25,0,0,data);
end.