INTEGER DAT_VALS(10)
CALL DATE_AND_TIME(DAT_DATE,DAT_TIME,DAT_ZONE,DAT_VALS)
ms=DAT_VALS(8)
sc=DAT_VALS(7)
mi=DAT_VALS(6)
hr=DAT_VALS(5)
dy=DAT_VALS(3)
mo=DAT_VALS(3)
yr=DAT_VALS(3)