program Test;

Uses Crt, c_Bus, c_ISSB, MiscFunc;

var
  c:c_ISSB.tCtrl;
  bs:c_Bus.tCtrl;

  b:boolean;
  bt:byte;
  v:longint;

begin
  writeln;
  writeln('Тестирование контроллера блока питания источников ионов');
  bs.InitDefault;
  c.InitDefault(bs);

  write('Инициализация...');
  c.exInit;
  if c.ErrorCode=0 then begin
    writeln('закончена.');
  end else  begin
    writeln('ошибка: ', c.ErrorMessage(c.ErrorCode));
  end;
END.