home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / qbfaqr01 / dos / errlev2.bas < prev    next >
Encoding:
BASIC Source File  |  1992-08-09  |  314 b   |  11 lines
  1. FUNCTION ErrorLevel% ()
  2.  
  3.    'Purpose : To check the error level of a program returning from shell
  4.    'Input   : none (well, helps if you did shell a program first)
  5.    'Return  : The errorlevel returned from the last shelled program
  6.  
  7.    DEF SEG = 0
  8.    ErrorLevel% = PEEK(&H4FE)
  9.    DEF SEG
  10. END FUNCTION
  11.