home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / dos / errlev1.bas < prev    next >
Encoding:
BASIC Source File  |  1992-08-09  |  219 b   |  8 lines
  1. 'Purpose : To exit program returning an error level
  2.  
  3. DECLARE SUB ExitWithRC ALIAS "_exit" (BYVAL RC AS INTEGER)
  4.  
  5. 'Just set ErrLev% to the errorlevel you want or just ExitWithRC 13
  6. ErrLev% = 13
  7. ExitWithRC ErrLev%
  8.