A crude text mode test for the power(y,x) function for Virtual Pascal
which  I posted in another message.  TIA for any comments, complaints,
etc from those who try the power function.

Patrick

___---------------------------------------------------------------------------

program testmath;
uses use32, crt, math;

var
   x, y, answer : extended;
   ch : char;
const
   MaxFloat : extended = 1.1E4932;
begin { main }
  repeat
     WriteLn('testing the power function y to the x');
     Write('input the number y = '); ReadLn(y);    { no validation! }
     Write('input the power x = ');ReadLn(x);      { no validation! }
     answer := power(y, x);
     if answer > MaxFloat then writeln('OverFlow...');
     WriteLn('answer is ', answer);
     WriteLn;
     Write('Press ESC to exit, any other key to continue...');
     ch := ReadKey;
     ClrScr;
  until ch = #27;
end.

___
 X KWQ/2 1.2i X I'm not young enough to know everything anymore...

--- Maximus/2 2.02