RosettaCodeData/Task/Detect-division-by-zero/BASIC/detect-division-by-zero-5.basic
2019-09-12 10:33:56 -07:00

6 lines
130 B
Text

10 ON ERROR GOTO 60
20 PRINT 2/3
30 PRINT 3/5
40 PRINT 4/0
50 END
60 IF ERR=11 THEN PRINT "Division by zero in line"ERL:RESUME 50