\ facility-ext 98.6.20 1:00 am NAB

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