ERRM$ Example
10 CLEAR SCREEN
20 ON ERROR CALL Testerr
30 Forceerr
40 PRINT "If you read this message, 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 "*";ERRM$
130 STOP
140 SUBEND
