CAUSE ERROR Example10 CLEAR SCREEN
20 ON ERROR RECOVER Here
30 PRINT "Calling Force error SUB."
40 Force_error
50 PRINT "If it reaches here, it didn't work."
60 Here: PRINT "It works!"
70 END
80 !
90 SUB Force_error
100 PRINT "Forcing error 1"
110 CAUSE ERROR 1
120 SUBEND
|