NAME
  ERDEV, ERDEV$ Functions

SYNOPSIS
  ERDEV
  ERDEV$
      o The low byte of the value returned by ERDEV contains the DOS error
        code. The high byte contains device-attribute information.

DESCRIPTION
  ERDEV, ERDEV$ Functions
  ERDEV returns an error code from the last device that generated a critical
  error. ERDEV$ returns the name of the device that generated the error.

  Example:
      'Illustrates ERDEV, ERDEV$, ERL, ERR, ERROR, ON ERROR, and RESUME.
         ON ERROR GOTO Handler
      10 CHDIR "a:\"                'Causes ERR 71 "Disk not ready"
                                    'if no disk in Drive A.
      20 y% = 0
      30 x% = 5 / y%                'ERR 11 "Division by zero."
      40 PRINT "x% ="; x%
      50 ERROR 57                   'ERR 57 "Device I/O error."
      Handler:
        PRINT
        PRINT "Error "; ERR; " on line "; ERL
        SELECT CASE ERR
          CASE 71
            PRINT "Using device "; ERDEV$; " device error code = "; ERDEV
            RESUME NEXT
          CASE 11
            INPUT "What value do you want to divide by"; y%
            RESUME                  'Retry line 30 with new value of y%.
          CASE ELSE
            PRINT "Unexpected error, ending program."
            END
        END SELECT

SEE ALSO
  ERR ERL ON ERROR