10 lines
254 B
Text
10 lines
254 B
Text
ON ERROR PROCerror(ERR, REPORT$) : END
|
|
|
|
ERROR 100, "User-generated exception"
|
|
END
|
|
|
|
DEF PROCerror(er%, rpt$)
|
|
PRINT "Exception occurred"
|
|
PRINT "Error number was " ; er%
|
|
PRINT "Error string was " rpt$
|
|
ENDPROC
|