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