code 41009;
real procedure NEGBIN(X, K, P);
value X, K, P; real X, K, P;
NEGBIN:= if K < 0 ∨ K > ENTIER(K)
         then STATAL3 ERROR(“NEGBIN”, 2, K)
         else if P ≤ 0 ∨ P > 1
         then STATAL3 ERROR(“NEGBIN”, 3, P)
         else if X ≥ K then
              1 - BIN(K - 1, ENTIER(X), P)
         else 0;
eop