-- Reporter Ada 95 bindings test program
-- by Stefan Bellon
-- just to demonstrate the principal usage of Reporter in Ada
-- nothing too sophisticated! ;-)

with Reporter;

procedure Test is
begin
   Reporter.Clear ("Clearing old ...");
   Reporter.Report ("This is a test message at \t ...");
   Reporter.Text ("<Obey$Dir>");
   Reporter.Where;
   Reporter.Poll (2);
   Reporter.Registers ("A register dump at \t ...");
   Reporter.Save ("RAM:MyReport");
   Reporter.Poll;
end Test;