/* $DOC$
   $NAME$
      ft_SetDate()
   $CATEGORY$
      DOS/BIOS
   $ONELINER$
      Set the DOS system date
   $SYNTAX$
      ft_SetDate( <dDate> ) -> <lResult>
   $ARGUMENTS$
      <dDate> is a Clipper date variable that you want to set the current
      DOS system date to.

      It is up to you to send in a valid date.  The
      year must be within the range 1980 through 2099.  If DOS
      thinks the date is not valid, it won't change the date.

   $RETURNS$
      <lResult> is simply the result of ft_int86(), passed back
      to your program.

   $DESCRIPTION$
      ft_SetDate() uses NANFOR.LIB's ft_int86() function to invoke
      the DOS Set Date service (Interrupt 33, service 43).

   $EXAMPLES$
      // The following program takes a date from the command-line and sets
      // the DOS system date:

      PROCEDURE Main( cDate )

         hb_default( @cDate, DToS( Date() ) )
         ? "Setting date to:", cDate + "... "
         ft_SetDate( hb_SToD( cDate ) )
         ? "Today is now:", Date()

         RETURN
   $END$
 */