RosettaCodeData/Task/Detect-division-by-zero/HicEst/detect-division-by-zero-1.hicest

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