code 41568;
real procedure UNIFORMINV(PROB, A, B);
value PROB, A, B; real PROB, A, B;
begin
    if B ≤ A then STATAL3ERROR(“UNIFORMINV”, 2, B);
    if PROB ≤ 0 ∨ PROB ≥ 1 then
    STATAL3ERROR(“UNIFORMINV”, 1, PROB);
    UNIFORMINV:= (B - A) × PROB + A
end UNIFORMINV;
eop