PROCdivide(-44, 0)
      PROCdivide(-44, 5)
      PROCdivide(0, 5)
      PROCdivide(5, 0)
      END

      DEF PROCdivide(numerator, denominator)
      ON ERROR LOCAL IF FALSE THEN
        REM 'Try' clause:
        PRINT numerator / denominator
      ELSE
        REM 'Catch' clause:
        CASE ERR OF
          WHEN 18: PRINT "Division by zero"
          WHEN 20: PRINT "Number too big"
          OTHERWISE RESTORE LOCAL : ERROR ERR, REPORT$
        ENDCASE
      ENDIF
      ENDPROC