% From "testfont.tex",
% a testbed for font evaluation (see The METAFONTbook, Appendix H)
%
% Translated, isolated and expanded by Nicolau C. Saldanha

\newcount\m \newcount\n \newcount\p \newdimen\dim

\def\Today{\message{Please type current date:}
  \read-1 to\Date \Date}

\def\today{\ifcase\month\or
  January\or February\or March\or April\or May\or June\or
  July\or August\or September\or October\or November\or December\fi
  \space\number\day, \number\year}

\def\hoje{\number\day\ de
  \ifcase\month\or
  janeiro\or fevereiro\or mar{\c c}o\or abril\or maio\or junho\or
  julho\or agosto\or setembro\or outubro\or novembro\or dezembro\fi
  \ de \number\year}

\def\japtoday{\number\year.\twodigits\month.\twodigits\day}

\def\Hours{\message{Please type current time:}
  \read-1 to\Time \Time}

\def\hours{\n=\time \divide\n 60
  \m=-\n \multiply\m 60 \advance\m \time
  \twodigits\n:\twodigits\m}

\def\twodigits#1{\ifnum #1<10 0\fi \number#1}

\def\datepages{\footline={{\hss\tenrm\folio\hss\hbox to 0pt{
\hidewidth\fiverm\japtoday}}}}

