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

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