◄Example►                 ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
'This example prints the values of ERDEV and ERDEV$ after the program
'generates an error attempting to open a text file.
 
DEFINT A-Z
 
'Indicate first line of error handler.
ON ERROR GOTO ErrorHandler
 
'Attempt to open the file.
OPEN "A:JUNK.DAT" FOR INPUT AS #1
 
END
 
'Error handling routine.
'Prints values of ERDEV and ERDEV$ and returns error control to BASIC.
ErrorHandler:
PRINT "ERDEV value is "; ERDEV
PRINT "Device name is "; ERDEV$
ON ERROR GOTO 0
 
'Sample Output
'
'Running the program with drive A unlatched produces the following
'output (2 is the DOS error code for "Drive not ready"):
'
'ERDEV value is  2
'Device name is A: