real-time cputid.F by H.Kino