Task

Write a function to detect a   divide by zero error   without checking if the denominator is zero.




FUNCTION zero_divide(num, denom)
    XEQ( num// "/" // denom,  *99) ! on error jump to label 99
    zero_divide = 0                ! division OK
    RETURN
 
 99 zero_divide = 1
END