RosettaCodeData/Task/Detect-division-by-zero/NS-HUBASIC/detect-division-by-zero.basic

10 ON ERROR GOTO 40
20 PRINT 1/0
30 END
40 IF ERR = 10 THEN PRINT "DIVISION BY ZERO IN LINE"ERL
50 RESUME 30