PROCEDURE Main()

   ? CurDir()
   ? CurDir( "C" )
   ? CurDir( "C:" )
   ? CurDir( "D:" )
   ? CurDir( "A" )

   RETURN