WHEN error in
     PRINT 2 / 3
     PRINT 3 / 5
     PRINT 4 / 0
USE
     PRINT "Error "; EXTYPE; "in the line"; EXLINE
     PRINT EXTEXT$
END WHEN
END