Module Checkit {
      Function DetectDivisionByZero(&a()) {
            Try {
                  a=a()
            }
            =Error$=" division by zero"
      }

      Print DetectDivisionByZero(lazy$(10/0))=True
      Z=10
      A=4
      B=0
      Print DetectDivisionByZero(lazy$(Z/B))=True
      Print DetectDivisionByZero(lazy$(Z/A))=False
}
Checkit