September Morn Update

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

@@ -1,12 +1,9 @@
-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
+100 WHEN EXCEPTION USE ERROR
+110   FOR I=5 TO-2 STEP-1
+120     PRINT 10/I
+130   NEXT
+140 END WHEN
+150 HANDLER ERROR
+160   IF EXTYPE=3001 THEN PRINT EXSTRING$(EXTYPE);" in line";EXLINE
+170   CONTINUE
+180 END HANDLER