ERRL Example
10 CLEAR SCREEN
20 ON ERROR GOTO 50
30 !force error
40 Here: PRINT SYSTEM$("NON EXISTAT ") !gives error 401
50 PRINT "Testing line label for error."
60 IF ERRL(Here) THEN CALL Testerr !See if the error occurred on line 40.
70 PRINT "If you see this line, the test failed."
80 END
90 SUB Testerr
100 BEEP
110 PRINT "Error *";ERRN;"on line";ERRLN
120 STOP
130 SUBEND