RosettaCodeData/Task/Inheritance-Single/Forth/inheritance-single-2.fth
2015-11-18 06:14:39 +00:00

7 lines
180 B
Forth

include FMS-SI.f
:class Animal ;class
:class Dog <super Animal ;class
:class Cat <super Animal ;class
:class Lab <super Dog ;class
:class Collie <super Dog ;class