C   ---------------------------------------------------------------------------
C   GETSTRING.FOR - The function of this routine is to find the next character
C	string and return pointers to the First and Last characters of the
C	string.
C   ---------------------------------------------------------------------------
C
	INTEGER*4 FUNCTION GET_STRING ( STRING, FIRST, LAST )
C
	IMPLICIT INTEGER*4 (A-Z)
C
	EXTERNAL	SS$_NORMAL
C
	PARAMETER	BLANK=' '
C
	CHARACTER	STRING*(*)
C
	INTEGER*4	FIRST, LAST, TMP
C   ---------------------------------------------------------------------------
C
C   Translate all tabs to blanks.
C
	STATUS = TABS_TO_BLANKS ( STRING, STRING )
C
C   Find the beginning of the string.
C
	GET_STRING = %LOC(SS$_NORMAL)
	STRING_S = LEN( STRING )
C
	FIRST = LAST + 1
	TMP = LIB$SKPC ( BLANK, STRING(FIRST:STRING_S) ) + (FIRST-1)
	IF ( TMP .EQ. (FIRST-1) ) THEN
		GET_STRING = 0
	END IF
	FIRST = TMP
C
C   Find the end of the string.
C
	LAST = INDEX ( STRING(FIRST:STRING_S), BLANK ) + (FIRST-1)
	IF ( LAST .EQ. (FIRST-1) ) LAST = STRING_S + 1
	LAST = LAST - 1
C
C   Return
C
	RETURN
	END