CLEAR ERROR Example10 CLEAR SCREEN
20 ON ERROR RECOVER Here
30 Force_error
40 Here: !
50 PRINT "The error received was:"
60 PRINT ERRM$
70 CLEAR ERROR
80 PRINT "Error Cleared"
90 PRINT "If another error message appears, the test failed."
100 END
110
120 SUB Force_error
130 PRINT SYSTEM$("HTBasic")!gives error 401
140 SUBEND
|