!
!
! ***** DECUS$FIND_BUFFER *****
!
!	This routine translates a buffer name to a buffer pointer
!
!	Inputs: 
!		buffer_name	String containing the buffer name
!
PROCEDURE decus$find_buffer(buffer_name)	! Find a buffer by name
   LOCAL the_buffer,		! Used to hold the buffer pointer
	the_name;		! A read/write copy of the name

   the_name := buffer_name;
   CHANGE_CASE (the_name, upper);
   the_buffer := GET_INFO (buffers, "first");
   loop
      exitif (the_buffer = 0);
      exitif (the_name = GET_INFO (the_buffer, "name"));
      the_buffer := GET_INFO (buffer, "next");
   endloop;
   return the_buffer;

ENDPROCEDURE;