with
  ANN7S,
  DC_Errr,
  Text_IO; -- for exception location only

procedure ANN7 is
---------------------------------------------------------------------------
begin
  ANN7S.Demo_Xor;
exception
  when others =>
    DC_Errr.Notify ( "ANN7" );
    raise;
end ANN7;