-------------------------- time.tex ----------------------
\newcount\milhours\newcount\minutes\newcount\hours
\def\thetime{\milhours=\time
\divide\milhours by 60
\minutes=\milhours
\multiply \minutes by -60
\advance\minutes by \time
\hours=\time \divide\hours by 60
\ifnum \hours>12 \advance \hours by -12 \fi
\the\hours:\ifnum \minutes > 9 \the\minutes \else 0\the\minutes \fi}
\def\miltime{\milhours=\time
\divide\milhours by 60
\minutes=\milhours
\multiply \minutes by -60
\advance\minutes by \time
\the\milhours:\ifnum\minutes>9 \the\minutes\else 0\the\minutes \fi}