2026-02-10 16:46:34 -05:00
|
|
|
10 REM ON ERROR GOTO / RESUME test
|
|
|
|
|
20 ON ERROR GOTO 100
|
|
|
|
|
30 PRINT "Before error"
|
|
|
|
|
40 ERROR 5
|
|
|
|
|
50 PRINT "After resume"
|
|
|
|
|
60 PRINT "Triggering div by zero"
|
|
|
|
|
70 X = 1 / 0
|
|
|
|
|
80 PRINT "After second resume"
|
|
|
|
|
90 PRINT "Error handler OK" : END
|
2026-02-10 17:01:50 -05:00
|
|
|
100 PRINT "Caught error"; ERR; "at line"; ERL
|
2026-02-10 16:46:34 -05:00
|
|
|
110 RESUME NEXT
|
