!
!
! ***** SET NOWRITE/WRITE ***** 
!
! Routine to toggle a buffer between NO_WRITE and WRITE.  Sets the
! status line to bold,underline for NO_WRITE buffer, sets the status 
! line to normal for WRITE buffer.
!
PROCEDURE fred$set_write

    LOCAL buffer_name;

    if (GET_INFO (current_buffer, "system") = 0) then
       buffer_name := GET_INFO (current_buffer,"name");
       if not GET_INFO (current_buffer, "no_write") then
          SET (no_write, current_buffer, on);
          MESSAGE ("Buffer " + buffer_name + " is write locked.");
       else
          SET(no_write, current_buffer, off);
          MESSAGE("Buffer " + buffer_name + " is write enabled.");
       endif;
    endif;
    eve$update_status_lines;             

ENDPROCEDURE;