Write procdure