\ facility-ext 98.6.20 NAB

module facility-ext

create time  7 cells allot

public:

: TIME&DATE
  ( -- sec min hr day mo yr)
  time >abs  TimGetSeconds
  TimSecondsToDateTime
  6 0 do  time  i cells +  @  loop ;

end-module