NAME
        GetProgramName -- Returns the current program name (V36)

   SYNOPSIS
        success = GetProgramName(buf, len)
        D0                       D1   D2

        bool getprogramname(strptr, long)

   FUNCTION
        Extracts the program name from the CLI structure and puts it
        into the buffer.  If the buffer is too small, the name is truncated.
        If no CLI structure is present, a null string is returned in the
        buffer, and failure from the call (with ioerr() ==
        ERROR_OBJECT_WRONG_TYPE);

   INPUTS
        buf     - Buffer to hold extracted name
        len     - Number of bytes of space in buffer

   RESULT
        success - Success/failure indicator

   SEE ALSO
        setprogramname()