RosettaCodeData/Task/Inheritance-Single/Forth/inheritance-single-2.fth
2023-07-01 13:44:08 -04:00

7 lines
180 B
Forth

include FMS2LL.f
:class Animal ;class
:class Dog <super Animal ;class
:class Cat <super Animal ;class
:class Lab <super Dog ;class
:class Collie <super Dog ;class