/* $DOC$
   $NAME$
      ft_Shift()
   $CATEGORY$
      Keyboard/Mouse
   $ONELINER$
      Determine status of shift key
   $SYNTAX$
      ft_Shift() -> lValue
   $ARGUMENTS$
      None
   $RETURNS$
      .T. if a shift key is pressed, .F. if otherwise.
   $DESCRIPTION$
      This function is useful for times you need to know whether or not the
      shift key is pressed, such as during a MemoEdit().
   $EXAMPLES$
      IF ft_Shift()
         @ 0, 0 SAY "Shift"
      ELSE
         @ 0, 0 SAY "     "
      ENDIF
   $SEEALSO$
      ft_CapLock(), ft_Ctrl(), ft_NumLock(), ft_PrtScr(), ft_Alt()
   $END$
 */