{NUMFUNC.INC - Turbo Numeric Functions}

FUNCTION Power(X : real; Y : integer) : real;
    begin
        Power := Exp( Ln( X ) * Y );
    end; (* Power *)

FUNCTION MakeMoney(X : real) : real;
    var
        Cents,
        OldFrac      : real;
    begin
        OldFrac   := Frac(X);
        Cents     := Round(OldFrac * 100.0) / 100.0;
        MakeMoney := X - OldFrac + Cents;
    end; (* MakeMoney *)