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