SUBROUTINE EST (STR, BUF, LEFT, RIGHT)
      INTEGER  STR(1), BUF(1), LEFT, RIGHT
      INTEGER  GETX, PUTX
      INTEGER  GCHAR
      GETX = 1
      PUTX = LEFT
      CONTINUE
13260 CONTINUE
      IF (.NOT.(PUTX .LE. RIGHT))GO TO 13261
      CALL PCHAR (BUF, PUTX, GCHAR (STR, GETX))
      GETX = GETX + 1
      PUTX = PUTX + 1
      GO TO 13260
13261 CONTINUE
      RETURN
      END