14 lines
165 B
Text
14 lines
165 B
Text
class
|
|
APPLE
|
|
|
|
inherit
|
|
EATABLE
|
|
|
|
feature -- Basic operations
|
|
|
|
eat
|
|
-- Consume
|
|
do
|
|
print ("One apple eaten%N")
|
|
end
|
|
end
|