code 41517;
real procedure BETA(X, ALPHA1, ALPHA2);
    value X, ALPHA1, ALPHA2; real X, ALPHA1, ALPHA2;
BETA:= if ALPHA1 ≤ 0
       then STATAL3 ERROR(“BETA”, 2, ALPHA1)
       else if ALPHA2 ≤ 0
       then STATAL3 ERROR(“BETA”, 3, ALPHA2)
       else if X ≤ 0 then 0
       else if X ≥ 1 then 1
       else INCOMPLETE BETA(X, ALPHA1, ALPHA2, 10-12);
eop