// Power() - returns 'base' to the 'exp' power
// Note: this is not meant for math-intensive computation
// Note: does not handle negative exponents
// RRMS-Gumby
Power( base, exp )
{
switch( exp )
{
case 0:
return( 1 );

case 1:
return( base );

case 2:
return( base * base );

case 3:
return( base * base * base );

default:
break;
}

if ( exp < 0 )
return( undefined );

result = 0.0;
result = result + base;

for ( i = 1; i < exp; i++ )
result = result * base;

return( result );
}

// RoundToDecimal() - returns 'number' rounded to 'numDecimals' decimal places
// Note: this is not meant for math-intensive computation
// RRMS-Gumby
RoundToDecimal( number, numDecimals )
{
if ( number == 0 )
return( 0.0 );

if ( numDecimals < 0 )
numDecimals = 0;

power10 = Power(10, numDecimals);

neg = false;
if ( number < 0 )
{
neg = true;
number = number * (-1.0);
}

shift_number = number * power10;

result = 0.0;

while ( shift_number > 1.0 )
{
shift_number = shift_number - 1.0;
result = result + 1.0;
}

if ( shift_number >= 0.5 )
result = result + 1.0;

if ( neg )
result = result * (-1.0);

return( result / power10 );
}