!     Last change:  RJ   23 Feb 2002    8:43 pm
PROGRAM problem3
USE Optimization
CALL InitOptimization
!CALL TrivialSearch("Tables.HTM")
CALL GoalSeek(WithPath("Tables.HTM"))
END PROGRAM problem3