local fn CustomPOW( base as double, exponent as NSInteger ) as double
  double     power = base, result
  NSUInteger i

  if exponent = 0.0 then result = 1.0  : exit fn
  if exponent = 1.0 then result = base : exit fn
  if exponent < 0.0
    for i = 2 to -exponent
      power = power * base
    next
    result = 1.0/power : exit fn
  end if
  for i = 2 to exponent
    power = power * base
  next
  result = power
end fn = result

print "Custom POW function:"
print "fn CustomPOW( 2,    2 ) = "; fn CustomPOW( 2,    2 )
print "fn CustomPOW( 2.5,  2 ) = "; fn CustomPOW( 2.5,  2 )
print "fn CustomPOW( 2,   -3 ) = "; fn CustomPOW( 2,   -3 )
print "fn CustomPOW( 1.78, 3 ) = "; fn CustomPOW( 1.78, 3 )
print "fn CustomPOW( 5.5,  5 ) = "; fn CustomPOW( 5.5,  5 )
print "fn CustomPOW( 4.5,  2 ) = "; fn CustomPOW( 4.5,  2 )
print "fn CustomPOW( -1,  -3 ) = "; fn CustomPOW( -1,  -3 )
print
print "Native FB ^ operator:"
print "2^2    = "; 2^2
print "2.5^2  = "; 2.5^2
print "2^-3   = "; 2^-3
print "1.78^3 = "; 1.78^3
print "5.5^5  = "; 5.5^5
print "4.5^2  = "; 4.5^2
print "-1^=3  = "; -1^-3
print
print "Native FB fn POW function:"
print "fn POW( 2,    2 ) = "; fn POW( 2,    2 )
print "fn POW( 2.5,  2 ) = "; fn POW( 2.5,  2 )
print "fn POW( 2,   -3 ) = "; fn POW( 2,   -3 )
print "fn POW( 1.78, 3 ) = "; fn POW( 1.78, 3 )
print "fn POW( 5.5,  5 ) = "; fn POW( 5.5,  5 )
print "fn POW( 4.5,  2 ) = "; fn POW( 4.5,  2 )
print "fn POW( -1,  -3 ) = "; fn POW( -1,  -3 )
print

HandleEvents