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