Section Header
    + name :=Expanded DATE;
    - comment := "Date";
    - type := `unsigned long`;
    - default := `0`:DATE;
Section Insert
    - parent_object:OBJECT :=
Section Public
    - '>' Right 60 other:SELF :BOOLEAN <-
    - '<' Right 60 other:SELF :BOOLEAN <-
    - '>=' Right 60 other:SELF :BOOLEAN <-
    - '<=' Right 60 other:SELF :BOOLEAN <-
    - year :UINTEGER_16 <-
    - month:UINTEGER_8 <-
    - day :UINTEGER_8 <-
    - week_day :UINTEGER_8 <-
Section Public
    - create (y:UINTEGER_16,m,d,wd:UINTEGER_8) :DATE <-
    - to_string:STRING <-
    - append_in str:STRING <-
    - append_short_in str:STRING <-
    - append_short2_in str:STRING <-
    - print <-