indexing
	description: "Does the user drink?"
	author: "Neal L. Lester (neal@3dsafety.com)"
	date: "$ May 14, 2001: $"
	revision: "$version 1.0$"

class
	HE_DRINKS

inherit
	YES_NO

create
	make_with_user_and_parent

feature

	question : STRING is
		do
			result := text.he_drinks
		end

	title : STRING is
		do
			result := text.his_habits
		end

end -- class HE_DRINKS