◄Example►                 ◄Contents►  ◄Index►  ◄Back►
──────────────────────────────────────────────────────────────────────────────
'This example uses the RESET statement to close several files at once.
'The program attempts to write to the previously opened files, causing
'an error and demonstrating that all files are closed.
 
DEFINT A-Z
ON ERROR GOTO ErrHandler    'Set up the error handling routine.
 
CLS
FOR I = 1 TO 3
    OPEN "Test" + RIGHT$(STR$(I), 1) + ".dat" FOR OUTPUT AS FREEFILE
    PRINT "File #"; I; "has been opened for output."
NEXT I
PRINT : PRINT "Press any key to RESET all open files."
PRINT
Z$ = INPUT$(1)
RESET
FOR I = 1 TO 3
    PRINT "Trying to write to file #"; I
    PRINT #I, "Test data"
NEXT I
END
 
ErrHandler:
'Error 52 is "Bad File Name or Number"
IF ERR = 52 THEN PRINT "  File #"; I; "not open. RESET closed it."
RESUME NEXT