function p=battery(p)

% function p=battery(p)

% try to find know battery calibration and issue warning if low

% battery level first low second critical

batlevel=[40 37];

%  WH 149

if p.instid(1)==102206758

 disp(' found CPU board of serial 149 ')

 p.battery=0.3*p.xmv(1);

%  WH 754

elseif p.instid(1)==2474849359

 disp(' found CPU board of serial 754 ')

 p.battery=0.37*p.xmv(1);

else

 disp(' do not know calibration of this instrument make a guess: ')

 p.battery=0.33*p.xmv(1);

end

if p.battery>batlevel(1)

 bc='g';

elseif p.battery>batlevel(2)

 bc='y';

else

  warn=([' Battery voltage is low : ',num2str(round(p.battery*10)/10),' V'])

    p.warn(size(p.warn,1)+1,1:length(warn))=warn;

 bc='r';

end

text(0,0,['Battery Voltage is ',num2str(round(p.battery*10)/10),' V'],'color',bc,...

       'fontsize',14,'fontweight','bold')

disp([' Battery Voltage is ',num2str(round(p.battery*10)/10),' V'])