code 41567;
real procedure UNIFORM(X, A, B);
value X, A, B; real X, A, B;
begin
    if B ≤ A then
        STATAL3ERROR(“UNIFORM”, 2, B);
    UNIFORM:= if X ≤ A then 0 else
        if X ≥ B then 1 else (X - A) / (B - A)
end UNIFORM;
eop