home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / dos16exi.def < prev    next >
Text File  |  1995-01-18  |  778b  |  29 lines
  1. DEFINITION MODULE DOS16EXIT;
  2.  
  3. (************************************************************************
  4.   16-bit OS/2 1.x Interface for program exit.
  5.  
  6.   Copyright (c) 1992, 1995 by Juergen Neuhoff
  7. *************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL-    Pascal-style procedures                                    *)
  11. (*$A2        WORD alignment for record fields >= 2 bytes                *)
  12.  
  13. FROM SYSTEM IMPORT Flat32Model;
  14.  
  15. (*$IF NOT Flat32Model *)
  16.  
  17. CONST (* for DosExit ActionCode *)
  18.   EXIT_THREAD  = 0;
  19.   EXIT_PROCESS = 1;
  20.  
  21. FAR PROCEDURE DosExit
  22. ( ActionCode        : CARDINAL;
  23.   ResultCode        : CARDINAL
  24. );
  25.  
  26. (*$ENDIF*)
  27.  
  28. END DOS16EXIT.
  29.