September Morn Update

Task/Detect-division-by-zero/BASIC/detect-division-by-zero-4.basic

@@ -1,6 +1,12 @@
-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
+result = DetectDividebyZero(1, 0)
+
+
+Function DetectDividebyZero(a, b)
+    On Error GoTo [Error]
+        DetectDividebyZero= (a/ b)
+        Exit Function
+    [Error]
+        If Err = 11 Then '11 is the error number raised when divide by zero occurs
+            Notice "Divide by Zero Detected!"
+        End If
+End Function