11 lines
254 B
Text
11 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
|