PROCEDURE cjc_display_buffers

LOCAL   a_buffer ;

        a_buffer :=  get_info ( buffers , "LAST" ) ;
        split_line ;

        loop
            exitif ( a_buffer = 0 ) ;
            copy_text ( get_info ( a_buffer , "NAME" ) ) ;
            split_line ;
            a_buffer  :=  get_info ( buffers , "PREVIOUS" ) ;
        endloop ;


ENDPROCEDURE ;