home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / packer / arc / arctool / dearcabt.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-09-29  |  924 b   |  57 lines
  1. {
  2.                        F i l e    I n f o r m a t i o n
  3.  
  4. * DESCRIPTION
  5. Turbo Pascal V4.0 DEARC routine to abort with a message.
  6.  
  7. * ASSOCIATED FILES
  8. DEARC.PAS
  9. DEARCABT.PAS
  10. DEARCGLB.PAS
  11. DEARCIO.PAS
  12. DEARCLZW.PAS
  13. DEARCUNP.PAS
  14. DEARCUSQ.PAS
  15. DEARC.TXT
  16.  
  17. }
  18. (**
  19.  *
  20.  *  Module:       dearcabt.pas
  21.  *  Description:  DEARC routine to abort with a message
  22.  *
  23.  *  Revision History:
  24.  *    7-26-88 : unitized for Turbo v4.0
  25.  *
  26. **)
  27.  
  28.  
  29. unit dearcabt;
  30.  
  31. interface
  32.  
  33. uses
  34.   dearcglb;
  35.  
  36.   procedure abort(s : strtype);
  37.  
  38. implementation
  39.  
  40. (**
  41.  *
  42.  *  Name:         procedure abort
  43.  *  Description:  terminate the program with an error message
  44.  *  Parameters:   var -
  45.  *                  s : strtype - message to print
  46.  *
  47. **)
  48. procedure abort(s : strtype);
  49. begin
  50.   writeln('ABORT: ', s);
  51.   halt(1);                            { pbr: added (1) param - dos exit code }
  52. end; (* proc abort *)
  53.  
  54. end.
  55.  
  56. 
  57.