/* $DOC$
   $NAME$
      ft_Origin()
   $CATEGORY$
      Environment
   $ONELINER$
      Report the drive, path and filename of the current program
   $SYNTAX$
      ft_Origin() -> cString
   $ARGUMENTS$
      None
   $RETURNS$
      A string containing the full drive/directory/filename of
      the currently executing file.
   $DESCRIPTION$
      Often users will install multiple copies of application software,
      especially on networks and in situations where the user is trying
      to get around a copy protection scheme.

      This function enables you to learn the name and source location
      of the currently executing file, so that you may take whatever
      action you need to.
   $EXAMPLES$
      IF !( hb_FNameNameExt( ft_Origin() ) == "myapp.exe" )
         ? "Incorrect startup file.  Please remove/rename and start again"
         RETURN
      ENDIF
   $SEEALSO$
   $END$
 */