RosettaCodeData/Task/Detect-division-by-zero/QBasic/detect-division-by-zero.basic
2023-07-01 13:44:08 -04:00

9 lines
185 B
Text

ON ERROR GOTO TratoError
PRINT 2 / 3
PRINT 3 / 5
PRINT 4 / 0
END
TratoError:
PRINT "Error"; ERR; "in the line"; ERL
IF ERR = 11 THEN PRINT "Division by zero in line"; ERL: RESUME NEXT