class AUTHOR
    
create
    make

feature {NONE} -- Initialization

    make (a_name: UC_STRING) is
        do
            set_name (a_name)
        end

feature -- Access

    name: UC_STRING
    
feature -- Status setting
    
    set_name (a_name: UC_STRING) is
        do
            name := a_name
        end
        
end -- class AUTHOR