!+
!TRIM_BUFFER.TPU
!-

Procedure Eve_Trim_Buffer

    message("Trimmimg buffer...");
    eve$trim_buffer( current_buffer );
    message("Trimming complete.");

endprocedure