ON ERROR GOTO 0 |
ON ERROR GOTO 0
Restore default error handling.
Example:
' Global Error handler ON ERROR GOTO _ERROR
SUB Kalle( BYVAL n AS INTEGER ) ON ERROR RESUME NEXT PRINT n;" - Hello, my name is Kalle", ERROR 51 END SUB
FOR i = 1 TO 2 IF i > 0 THEN CALL Kalle( i ) ERROR i PRINT "%WARNING, ";ERRM, ENDIF NEXT i
' Restore error handling to default ON ERROR GOTO 0
END
_ERROR: PRINT "%ERROR, ";ERRM, RESUME NEXT
|