code 41572;
real procedure EXTVALINV(PROB, LOC, SCALE);
value PROB, LOC, SCALE; real PROB, LOC, SCALE;
begin
    if SCALE ≤ 0 then
      STATAL3 ERROR(“EXTVALINV”, 3, SCALE);
    if PROB ≤ 0 ∨ PROB ≥ 1 then
      STATAL3 ERROR(“EXTVALINV”, 1, PROB);
    EXTVALINV:= -SCALE × LN(-LN(PROB)) + LOC
end EXTVALINV;
eop