C*---------------------------------------------------------------------*
C|    G E T S T R :  GET A CHAR STRING ENDED BY "ENDCH" FROM BUFFER    |
C*---------------------------------------------------------------------*
      SUBROUTINE GETSTR(STR,MAXSTR,ENDCH)
C
C     STR    -  AREA TO CONTAIN CHARACTER STRING FOUND
C     MAXSTR -  MAXIMUM LENGTH FOR "STR" AREA
C     ENDCH  -  CHARACTER TERMINATING THE STRING (NOT PART OF STRING)
C
C----------------------------------------------- COMMON DATA STRUCTURES
      INCLUDE 'INPCOM.I'
C----------------------------------------------- SUBPROGRAM PARAMETERS
      INTEGER STR(1),MAXSTR,ENDCH
C*---------------------------------------------------------------------*
C
C----------------------------------------------- GET DELIMITED STRING
      CALL GTARGB(INBUF,CURCOL,MAXBUF,STR,STRLEN,MAXSTR,ENDCH)
C----------------------------------------------- RETURN
      RETURN
      END