*COMDECK PBMIN
_$J+? 
_*****************************
*                            *
*    GET MINIMUM OF 2 NBRS   *     NON-INTURRUPTABLE
*                            *
*****************************?
_$R-,G-,I+? 
FUNCTION PBMIN(A,B : INTEGER) : INTEGER;
BEGIN 
  IF A < B THEN PBMIN := A ELSE PBMIN := B
END;
_?
