/**/
.Wirtschaftsbuch ~new("VWL") ~lesen
.Sprachbuch ~new("WiKo") ~lernen
::CLASS Buch
::ATTRIBUTE name
::METHOD INIT
self~name = ARG(1)
::CLASS Wirtschaftsbuch SUBCLASS Buch
::METHOD lesen
SAY self~name": 'Ich lese...'"
::CLASS Sprachbuch SUBCLASS Buch
::METHOD lernen
SAY self~name": 'Ich lerne...'"

/* Multiple Inheritance */
.Wirtschaftsbuch ~new("VWL") ~lesen
.Sprachbuch ~new("WiKo") ~lernen
.Lehrbuch ~new("Englische Wirtschaftssprache") ~pruefen
::CLASS Buch
::ATTRIBUTE name
::METHOD INIT
self~name = ARG(1)
::METHOD bestehen
SAY self~name": 'bestehen!'"
::CLASS Wirtschaftsbuch MIXINCLASS Buch
::METHOD lesen
SAY self~name": 'Ich lese...'"
::CLASS Sprachbuch MIXINCLASS Buch
::METHOD lernen
SAY self~name": 'Ich lerne...'"
::CLASS Lehrbuch SUBCLASS Wirtschaftsbuch INHERIT Sprachbuch
::METHOD pruefen
self ~~lesen ~~lernen ~~bestehen