      !--------------------------------------------------------------
      !
      !  Savage
      !
      !  Test the speed (and stability) of floating point functions.
      !
      !--------------------------------------------------------------

      COUNT = 250

      DIM I AS INTEGER
      DIM SUM AS DOUBLE

      PRINT "Start..."
      SUM = 1.0
      FOR I = 1 TO COUNT - 1
        SUM = TAN ( ATN ( EXP ( LOG ( SQR (SUM * SUM))))) + 1.0
      NEXT
      PRINT "sum = ";SUM
