home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / arc_lbr / dearc31.arc / DEARCABT.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-26  |  654b  |  39 lines
  1. (**
  2.  *
  3.  *  Module:       dearcabt.pas
  4.  *  Description:  DEARC routine to abort with a message
  5.  *
  6.  *  Revision History:
  7.  *    7-26-88 : unitized for Turbo v4.0
  8.  *
  9. **)
  10.  
  11.  
  12. unit dearcabt;
  13.  
  14. interface
  15.  
  16. uses
  17.   dearcglb;
  18.  
  19.   procedure abort(s : strtype);
  20.  
  21. implementation
  22.  
  23. (**
  24.  *
  25.  *  Name:         procedure abort
  26.  *  Description:  terminate the program with an error message
  27.  *  Parameters:   var -
  28.  *                  s : strtype - message to print
  29.  *
  30. **)
  31. procedure abort(s : strtype);
  32. begin
  33.   writeln('ABORT: ', s);
  34.   halt(1);                            { pbr: added (1) param - dos exit code }
  35. end; (* proc abort *)
  36.  
  37. end.
  38.  
  39.