!	This routine translates a buffer name to a buffer pointer
!
!	Inputs:
!		buffer_name	String containing the buffer name
!
procedure eveplus_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