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