ENTRY

note
    description: "Summary description for {ENTRY}."
    author: ""
    date: "$Date$"
    revision: "$Revision$"

class
    ENTRY

    create
        initialize

    feature

        date: TIME
        owner: PERSON
        subject: STRING
        place: STRING

        initialize(new_date: TIME; new_owner: PERSON; new_subject: STRING; new_place: STRING)
        do
            date := new_date
            owner := new_owner
            subject := new_subject
            place := new_place
        end

end