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 <-