HTBasic Help
×
Menu
Index

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