Section Header
  
  
    + name        :=Expanded  TIME;
  
  
    - comment     := "Time";
  
  
    - type        := `unsigned long`;
  
  
    - default     := `0`:TIME;
  
Section Insert
  
  
    - parent_object:OBJECT := 
  
Section Public
  
    - hour:UINTEGER_8 <-
    
  
    - minute:UINTEGER_8 <-
    
  
    - second:UINTEGER_8 <-
  
  
    - csecond:UINTEGER_8 <-
    
Section Public
  
  
    - '>' Right 60 other:SELF :BOOLEAN <- 
  
  
    - '<' Right 60 other:SELF :BOOLEAN <- 
  
  
    - '>=' Right 60 other:SELF :BOOLEAN <- 
  
  
    - '<=' Right 60 other:SELF :BOOLEAN <- 
  
  
    - to_csecond:INTEGER <- 
  
  
    - '-' Right 60 other:SELF :SELF <- 
    
  
 BSBS: A uniformiser -# +# ???
  
  
    - '-#' Right 60 other:SELF :INTEGER <- 
  
  
    - '+#' Right 60 other:INTEGER :TIME <-
    
  
    - create (h,m,s,cs:INTEGER) :TIME <-
    
  
    - create_csecond csec:INTEGER :SELF <-
    
  
    - to_string:STRING <-
    
  
    - append_in str:STRING <-
  
  
    - append_short_in str:STRING <-
    
  
    - update <-
    
  
    - print <-