PRO gettime,h,date,time
;
dt=BYTE(h,90,6) & time=BYTE(h,96,4)
BYTEORDER,dt
BYTEORDER,time
year=FIX(dt,2) & BYTEORDER,year
date=[dt(0:1),year,dt(4)]
RETURN
END