*COMDECK PBMAX
_*****************************
*                            *
*    GET MAXIMUM OF 2 NBRS   *     NON-INTERRUPTABLE
*                            *
*****************************?
_$R-,G-,I+? 
FUNCTION PBMAX(A,B : INTEGER) : INTEGER;
BEGIN 
  IF A > B THEN PBMAX := A ELSE PBMAX := B
END;
