%
% Memo -- Generate a memo banner
%
% Use \memodept{ text } to define the department text.
% Use \memocirc{ text } to define the to field.
% Use \memodate{ text } to define the date the memo will be sent (default is
%         the current date that TeX processes the file).
% Use \memofrom{ text } to define the from field.
% Use \memophone{ text } to define the phone number of the sender.
% Use \memoloc{ text } to define the location of the sender.
% Use \memosubj{ text } to define the subject of the memo.
%
% Use \memohdr to print the memo banner once the fields above have been defined
%
\nopagenumbers
\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\memotwobx#1#2{\line{{To}\hskip 10pt #1\hfill{Date}\hskip 10pt #2}}
\def\memothrbx#1#2#3{\line{{From}\hskip 10pt #1\hfill\hfill\hfill
    {Extension}\hskip 10pt #2\hfill{Mail Code}\hskip 10pt #3}}
\def\memoltbx#1{\line{{Subject}\hskip 10pt #1\hfill}}
\def\memoya{DITC}               \def\memoyb{You}
\def\memoyc{\today}             \def\memoyd{Me}
\def\memoye{01-943-XXXX}        \def\memoyf{Misc.}
\def\memoyg{Building 93}
\def\memodept #1{\def\ya {#1}}  \def\memocirc #1{\def\yb {#1}}
\def\memodate #1{\def\yc {#1}}  \def\memofrom #1{\def\yd {#1}}
\def\memophone #1{\def\ye {#1}} \def\memosubj #1{\def\yf {#1}}
\def\memoloc #1{\def\yg {#1}}
\font\fiverm=cmbx5                  % Change to CMBX5 if you use new TeX 2.0
\def\memohdr{\centerline{\fiverm interoffice memorandum}\par
     \null\par
     \centerline{\bf NATIONAL PHYSICAL LABORATORY} % Change this line
     \centerline{\bf {\memoya}}
     \null\par
     \memotwobx{\memoyb}{\memoyc}
     \memothrbx{\memoyd}{\memoye}{\memoyg}
     \memoltbx{\memoyf}
     \vskip 10pt}