PACKAGE BODY Min_Max IS
------------------------------------------------------------------
--| bodies of functions provided by Min_Max package
--| Author: Michael B. Feldman, The George Washington University
--| Last Modified: July 1995
------------------------------------------------------------------
FUNCTION Minimum (Value1, Value2: Integer) RETURN Integer IS
Result: Integer;
BEGIN
IF Value1 < Value2 THEN
Result := Value1;
ELSE
Result := Value2;
END IF;
RETURN Result;
END Minimum;
FUNCTION Maximum (Value1, Value2: Integer) RETURN Integer IS
Result: Integer;
BEGIN
IF Value1 > Value2 THEN
Result := Value1;
ELSE
Result := Value2;
END IF;
RETURN Result;
END Maximum;
END Min_Max;