🚀 go-pugleaf

/* From the keyboard of U29970@uicvm.uic.edu */:
:Does anyone out there have a TEX or LATEX routine to print out a yearly
:calendar on a single page like:
:
:     Jan                Aug
:1 2 3 4 5 6 7        1 2 3 4 5 6 7
:8 9 ....             8 9 .....
:
:     Feb                Sep
:1 2 3 4 5 6 7        1 2 3 4 5 6 7
:8 9 ....             8 9 ....

I do: 

% save this as a file called `foo.tex' and cut everything before this line
%
% This is a single page calendar in Plain TeX in unix `cal' format. 
% It is meant to be printed in landscape mode. 
%
% It is not fully automatic yet but I do not mind make a few changes each
% year. If you have better idea, let me know. Yes, I have seen automatic
% calendar in both TeX and PostScript but they are not in the format
% that I want. 
%
% print from unix running Tom Rokicki's dvips: 
% tex foo
% dvips foo
% lpr -Plps40 foo.ps
%
% print from vms running Abortext's dvilaser: 
% tex foo
% texprint /P=LAN foo
%
% print from msdos running emTeX
% choose tr1 option. 
%
%\font\tenrm=cmr10 \font\cmsyten=cmsy10 \font\cmttten=cmtt10
\font\times=ptmr at 10 pt \times
\hoffset=0.0 truein \hsize=8.2 truein \nopagenumbers
% some macros
\newcount\jan\jan=0 \def\newjan{\global\advance\jan by 1\relax\number\jan} 
\newcount\feb\feb=0 \def\newfeb{\global\advance\feb by 1\relax\number\feb} 
\newcount\mar\mar=0 \def\newmar{\global\advance\mar by 1\relax\number\mar} 
\newcount\apr\apr=0 \def\newapr{\global\advance\apr by 1\relax\number\apr} 
\newcount\may\may=0 \def\newmay{\global\advance\may by 1\relax\number\may} 
\newcount\jun\jun=0 \def\newjun{\global\advance\jun by 1\relax\number\jun} 
\newcount\jul\jul=0 \def\newjul{\global\advance\jul by 1\relax\number\jul} 
\newcount\aug\aug=0 \def\newaug{\global\advance\aug by 1\relax\number\aug} 
\newcount\sep\sep=0 \def\newsep{\global\advance\sep by 1\relax\number\sep} 
\newcount\oct\oct=0 \def\newoct{\global\advance\oct by 1\relax\number\oct} 
\newcount\nov\nov=0 \def\newnov{\global\advance\nov by 1\relax\number\nov} 
\newcount\dec\dec=0 \def\newdec{\global\advance\dec by 1\relax\number\dec} 
%
% why do I use \global? see TeX Book page 232 first paragraph last sentence 
%
\def\mycr{\cr\noalign{\hrule}}
\def\thickvrule{{\vrule \hskip0.5pt \vrule}}
\def\thickhrule{{\hrule \vskip0.5pt \hrule}}
%
$$
 \vbox{\tabskip=0pt \offinterlineskip \halign to \hsize{
 \strut#&\thickvrule#\tabskip 0em plus 1em&     
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\thickvrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\thickvrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\vrule#& 
 \hfil#&\thickvrule#\tabskip=0pt\cr\noalign{\thickhrule}
 & & \multispan{41} \hfil 1992 \hfil &\cr\noalign{\thickhrule}
 & & \multispan{13} \hfil Jan\hfil& 
   & \multispan{13} \hfil Feb \hfil& 
   & \multispan{13} \hfil Mar \hfil&\cr\noalign{\thickhrule}
&& S&& M&&Tu&& W&&Th&& F&& S
&& S&& M&&Tu&& W&&Th&& F&& S 
&& S&& M&&Tu&& W&&Th&& F&& S&\mycr
&&       &&       &&       &&\newjan&&\newjan&&\newjan&&\newjan
&&       &&       &&       &&       &&       &&       &&\newfeb 
&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&\mycr
&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan
&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb
&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&\mycr
&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan
&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb
&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&\mycr
&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan
&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb
&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&&\newmar&\mycr
&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan&&\newjan&&
&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb&&\newfeb
&&\newmar&&\newmar&&\newmar&&       &&       &&       &&       &
\cr\noalign{\thickhrule}
%
   && \multispan{13} \hfil Apr\hfil& 
   &  \multispan{13} \hfil May\hfil& 
   &  \multispan{13} \hfil Jun\hfil&\cr\noalign{\thickhrule}
&& S&& M&&Tu&& W&&Th&& F&& S
&& S&& M&&Tu&& W&&Th&& F&& S
&& S&& M&&Tu&& W&&Th&& F&& S&\mycr
&&       &&       &&       &&\newapr&&\newapr&&\newapr&&\newapr
&&       &&       &&       &&       &&       &&\newmay&&\newmay
&&       &&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&\mycr
&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr
&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay
&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&\mycr
&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr
&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay
&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&\mycr
&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr
&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay
&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&&\newjun&\mycr
&&\newapr&&\newapr&&\newapr&&\newapr&&\newapr&&       &&
&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay&&\newmay
&&\newjun&&\newjun&&\newjun&&       &&       &&       &&       &\mycr
&&       &&       &&       &&       &&       &&       &&       
&&\newmay&&       &&       &&       &&       &&       &&       
&&       &&       &&       &&       &&       &&       &&       &
\cr\noalign{\thickhrule}
%
 & & \multispan{13} \hfil Jul\hfil& 
   & \multispan{13} \hfil Aug\hfil& 
   & \multispan{13} \hfil Sep\hfil&\cr\noalign{\thickhrule}
&& S&& M&&Tu&& W&&Th&& F&& S
&& S&& M&&Tu&& W&&Th&& F&& S
&& S&& M&&Tu&& W&&Th&& F&& S&\mycr
&&       &&       &&       &&\newjul&&\newjul&&\newjul&&\newjul
&&       &&       &&       &&       &&       &&       &&\newaug
&&       &&       &&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&\mycr
&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul
&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug
&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&\mycr
&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul
&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug
&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&\mycr
&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul
&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug
&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&&\newsep&\mycr
&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul&&\newjul&&       
&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug&&\newaug
&&\newsep&&\newsep&&\newsep&&\newsep&&       &&       &&       &\mycr
&&       &&       &&       &&       &&       &&       &&       
&&\newaug&&\newaug&&       &&       &&       &&       &&       
&&       &&       &&       &&       &&       &&       &&       &
\cr\noalign{\thickhrule}
%
 & & \multispan{13} \hfil Oct\hfil& 
   & \multispan{13} \hfil Nov\hfil& 
   & \multispan{13} \hfil Dec\hfil&\cr\noalign{\thickhrule}
&& S&& M&&Tu&& W&&Th&& F&& S
&& S&& M&&Tu&& W&&Th&& F&& S
&& S&& M&&Tu&& W&&Th&& F&& S&\mycr
&&       &&       &&       &&       &&\newoct&&\newoct&&\newoct
&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov
&&       &&       &&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&\mycr
&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct
&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov
&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&\mycr
&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct
&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov
&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&\mycr
&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct
&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov&&\newnov
&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&\mycr
&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct&&\newoct
&&\newnov&&\newnov&&       &&       &&       &&       &&       
&&\newdec&&\newdec&&\newdec&&\newdec&&\newdec&&       &&       &
\cr\noalign{\thickhrule}
}}$$ 
\def\copyleft{{\ooalign
   {\hfil\raise.07ex\hbox{L}\hfil\crcr\mathhexbox20D}}}
\copyleft copylefted by xiaofei@acsu.buffalo.edu 1991,1992%
%
\end
-- 
xiaofei@acsu.buffalo.edu | Subscribe Chinese Poem Exchange and Discussion List 
mail LISTSERV@UBVM.BITNET with "SUB CHPOEM-L 1st LastName" in the MESSAGE BODY
InterNet Address: UBVM.CC.BUFFALO.EDU | Posting in UUENCODED GB and BIG5