code 41542;
real procedure CAUCHYINV (PROB, LOC, SCALE);
value PROB, LOC, SCALE; real PROB, LOC, SCALE;
begin real ARG;
    ARG:= 3.1415 92653 5898 × PROB;
    CAUCHYINV:= if PROB ≤ 0 ∨ PROB ≥ 1 then
            STATAL3 ERROR (“CAUCHYINV”, 1, PROB)
        else if SCALE ≤ 0 then
            STATAL3 ERROR (“CAUCHYINV”, 3, SCALE)
        else
            -SCALE × COS (ARG) / SIN (ARG) + LOC
end CAUCHYINV;
eop