(***********************************************************************)
  (*                                                                     *)
  (*                            Mesa Software                            *)
  (*                       3302 Fourth Ave, Suite 101                    *)
  (*                          San Diego, Ca. 92103                       *)
  (*                                                                     *)
  (*                                                                     *)
  (*       Program :    Report-hdr;          File Name :  RPT-HDR.PAS    *)
  (*                                                                     *)
  (*       Release :    Version 1.0               Date : April 24,1989   *)
  (*                                                                     *)
  (*                                                                     *)
  (*                                                                     *)
  (***********************************************************************)


      Program Report_Header;



        {$M 8192,20000,65000}           { Leave memory for child process }


          {file name is rpt-hdr.pas}
           uses crt,dos,printr2,miscttt;

     var
       Co_nam,addrs,City,State,Zip,Phone,
       Report_Title,page                    : String;
       pag_num,screen_countr                : integer;
       test_error_num,test_num              : word;
       test_error_manager                   : boolean;

     begin
       Co_nam := 'Mesa Software';
       addrs  := '3302 Fourth Avenue';
       City   := 'San Diego,';
       State  := 'California';
       zip    := '92103';
       Phone  := '1(555)555-5555';
       Report_Title := 'Accounts Receivable Aging Report';
       pag_num := 1;

      (* We have given an error number of 157 to demo then Function IO_NOT_OK
        Function. In real life, you should be careful of

         {$M 8192,20000,65000}           { Leave memory for child process }

        memory management.
      *)

      Test_error_manager := False;
      if test_error_manager then
      begin
        test_error_num := 157;
        if (IO_NOT_OK(test_error_num)) then
          exit;
      end;

      clrscr;
      for screen_countr := 1 to 11 do
        writeln;
      writeln('              The below is an example of GetSystemdate, Hit Return ');
      writeln('                         ',getsystemdate);
      readln;
      writeln;
      writeln('              The below is an example of NumToStr, Hit Return');
      test_num := 45678;
      writeln('                     ' ,NumToStr(test_num));
      readln;
      writeln;
      writeln('              We will now print a banner and report header, Hit Return');
      readln;
      str(pag_num,page);
      if printer_on then
      begin
         Banner(Co_nam,Addrs,City,State,Zip,Phone,Report_Title);
         Report_Hdr(Report_Title,Co_nam,Addrs,City,State,Zip,page);
      end;
    end.