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