PROCEDURE Main()

   ? CMonth( Date() )
   ? CMonth( Date() + 31 )
   ? CMonth( Date() + 60 )
   ?

   ? CDoW( Date() )
   ? CDoW( Date() + 6 )
   ? CDoW( Date() + 7 )
   ?

   RETURN