SAY "In" "cmd1.rex"
SAY "In" pp("cmd1.rex")
SAY "  /1/ In" pp("cmd2.rex")
pp: 
RETURN"c2[" || ARG(1)  || "]c2"


g1= .Abfahrt~New
g1~Datum= "20220427"
g1~Zeit= "14:15"
g2= .Abfahrt~New~~"Datum="("20220528")~~"Zeit="("16:30")
SAY g1~Datum g1~Zeit g2~Datum g2~Zeit
::Class Abfahrt
::Attribute Datum
::Attribute Zeit

g1= .Abfahrt~New
g1~Datum= "20220427"
g1~Zeit= "14:15"
g2= .Abfahrt~New~~"Datum="("20220528")~~"Zeit="("16:30")
g3= .Abfahrt~New~~"Datum="("20220630")~~"Zeit="("20:45")
SAY g1~Datum g1~Zeit, g2~Datum g2~Zeit, g3~Datum g3~Zeit
::Class Abfahrt
::Attribute Datum
::Attribute Zeit

g1= .Abfahrt~New
g1~Datum= "20220427"
g1~Zeit= "14:15"
g2= .Abfahrt~New~~"Datum="("20220528")~~"Zeit="("16:30")
g3= .Abfahrt~New~~"Datum="("20220630")~~"Zeit="("20:45")
SAY 1. "Abfahrt:" g1~Datum g1~Zeit, 2. "Abfahrt:" g2~Datum g2~Zeit, 3. "Abfahrt:" g3~Datum g3~Zeit, "Zug verpasst"
::Class Abfahrt
::Attribute Datum
::Attribute Zeit

.Zug~new ~~"Name="("Regionalzug") ~Eigenschaft
.Schnellzug~new ~~"Name="("Railjet") ~Eigenschaft
.Stadtbahn~new ~~"Name="("S-Bahn ") ~ Eigenschaft
::Class Zug
::Attribute Name
::Method Eigenschaft
Say self~Name":" "gem��tlich"
::Class Schnellzug subclass Zug
::Method Eigenschaft
Say self~Name":" "schnell"
::Class Stadtbahn subclass Zug
::Method Eigenschaft
Say self~Name":" "sehr voll"