ERRLN Example10 CLEAR SCREEN
20 ON ERROR CALL Testerr
30 Forceerr
40 PRINT "If you see this line, the test failed."
50 END
60 SUB Forceerr
70 !force error
80 PRINT SYSTEM$("NON EXISTAT")!gives error 401
90 SUBEND
100 SUB Testerr
110 BEEP
120 PRINT "Error *";ERRN;"on line";ERRLN
130 STOP
140 SUBEND
|