{WFPLUS - Function Extensions to ObjectWindows Copyright (C) Doug Overmyer 7/1/91}
unit WFPlus;


{******************************************************************}
{ I N T E R F A C E                                                        }
{******************************************************************}
interface
uses WinTypes, WinProcs, WinDos, Strings, WObjects,StdDlgs;
function Max(I,J:Integer):Integer;
function Min(I,J:Integer):Integer;
{********************************************************************}
{I M P L E M E N T A T I O N                                                     }
{********************************************************************}
implementation

{***********************************************************************}
function Max(I,J:Integer):Integer;
begin
	if I > J then
   	Max := I
   else
   	Max := J;
end;
{***********************************************************************}
function Min(I,J:Integer):Integer;
begin
	if I < J then
   	Min := I
   else
   	Min := J;
end;


end.