RosettaCodeData/Task/Detect-division-by-zero/True-BASIC/detect-division-by-zero.basic

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