From: isozaki@square.ntt.jp (Hideki Isozaki)
Subject: Re: calender
Organization: NTT Basic Research Laboratories
Distribution: fj
Date: 8 Jan 1993 03:35:41 GMT


> $@B<>e!wK|G/$/$l$/$l%?%3%i(J $@$G$9(J
>
> $@7k2L$r#T#e#X(J $@%U%)!<%^%C%H$G=PNO$G$-$k(J
>$@K|G/%+%l%s%@!<%W%m%0%i(J$@%`$J$s$F(J
>$@$J$$$G$7$g$&$+!)(J

$@$3$l$G$I$&$G$7$g$&!%(J

				$@0k:j=(<y(J  $@#N#T#T4pAC8&(J
#!/bin/sh
# This is a shell archive (produced by shar 3.49)
# To extract the files from this archive, save it to a file, remove
# everything above the "!/bin/sh" line above, and type "sh file_name".
#
# made 01/08/1993 03:33 UTC by isozaki@square
# Source directory /home/isozaki/TeXmac
#
# existing files will NOT be overwritten unless -c is specified
#
# This shar contains:
# length  mode       name
# ------ ---------- ------------------------------------------
#    567 -rw-rw-r-- eclcalen.tex
#  11635 -rw-rw-r-- eclcalen.sty
#
# ============= eclcalen.tex ==============
if test -f 'eclcalen.tex' -a X"$1" != X"-c"; then
	echo 'x - skipping eclcalen.tex (File already exists)'
else
echo 'x - extracting eclcalen.tex (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'eclcalen.tex' &&
\documentstyle[eclcalen]{j-article}
X
\begin{document}
X
\newcommand{\$@==Fs7n$N%3%a%s%H(J}{
X        \$@MWCm0U(J7$@F|$OK:G/2q(J\footnote{$@=BC+(J}$@$NF|(J
X        \$@MWCm0U(J14$@F|(J$@$OF1Ak2q$NF|(J
}
\newcommand{\$@0l7n$N%3%a%s%H(J}{
X        \$@MWCm0U(J8$@F|$O?7G/2q(J\footnote{$@?7=I(J}$@$NF|(J
X        \$@MWCm0U(J21$@F|$O8&5f2q$NF|(J
}
X
X
\begin{center}
\$@%+%l%s%@!<(J1992$@G/(J12$@7n(J
X
\$@%+%l%s%@!<(J1993$@G/(J1$@7n(J
X
\$@%+%l%s%@(J$@!<(J1993$@G/(J3$@7n(J
X
\$@%+%l%s%@!<(J1993$@G/(J5$@7n(J
\end{center}
\end{document}
X
SHAR_EOF
chmod 0664 eclcalen.tex ||
echo 'restore of eclcalen.tex failed'
Wc_c="`wc -c < 'eclcalen.tex'`"
test 567 -eq "$Wc_c" ||
	echo 'eclcalen.tex: original size 567, current size' "$Wc_c"
fi
# ============= eclcalen.sty ==============
if test -f 'eclcalen.sty' -a X"$1" != X"-c"; then
	echo 'x - skipping eclcalen.sty (File already exists)'
else
echo 'x - extracting eclcalen.sty (Text)'
sed 's/^X//' << 'SHAR_EOF' > 'eclcalen.sty' &&
% eclcalen.sty 
% (C) Hideki ISOZAKI 1990
% 1993.1.7
X
% $@2~9T$r6uGr$K$7$J$$!%(J
\endlinechar=-1
X
% $@>e2<(J$@:81&$N%^!<%8%s$ND4@0(J
\topmargin-1cm
\headsep\z@
\headheight\z@
\textheight 60pc \textwidth 40pc 
\oddsidemargin -1cm
X
% $@%Z!<%8HV9f$r$D$1$J$$!%(J
\pagestyle{empty}
X
% $@JLL>(J
%
\let\$@@Q(J=\multiply
\let\$@OB(J=\advance
\let\$@>&(J=\divide
%
% $@<!$N%3%^%s%I72$O!$%W%m%0%i%`$rFI$_0W$/$7$?$j!$(J
% $@?t;z%H!<%/%s$N=*$o$j$rL@<((J$@$7$?$j$9$k$N$K;H$o$l$k!%(J
% 
\let\$@!((J=\relax
\let\then=\relax
\let\nop=\relax
\let\ficase=\fi
\let\finum=\fi
X
%
% $@%(%i!<I=<($9$k$H$-$K!$$I$3$G%(%i!<$,@8$8$?$+I=<($9$k!%(J
%
\def\$@F|IUI=<((J{\typeout{}\message{\the\$@F|(J $@F|(J:}}	
\def\errorstop{\typeout{$@0[>o=*N;(J}\batchmode\stop}
X
%  Integers
\newcount\$@;M=5<~4|>jM>(J 
%
%  $@MKF|$rI=$9?t(J \$@MKF|HV9f(J $@$O(J \$@;M=5<~4|>jM>(J $@$+$i5a$a$i$l$k!%(J
%
% \$@MKF|HV9f(J 0:$@F|MK(J 1:$@7nMK(J ... 6:$@EZMK(J
%
\newcount\$@MKF|HV9f(J 
X
%
% $@1<G/$N1F6A$r7W;;$9$k$?$a!$(J2$@7nKvF|$rG/EY$N6h@Z$j$H$7$F(J
% $@7W;;$70W$/$9$k!%(J
%
% \$@7W;;7n(J   3: 3$@7n(J, 4: 4$@7n(J,  ... 12: 12$@7n(J, 13: 1$@7n(J, 14: 2$@7n(J
% \$@7W;;G/(J   3$@7n(J ... 12$@7n(J = \$@G/(J,	 1$@7n(J ... 2$@7n(J : \$@G/(J - 1 
%
\newcount\$@7W;;G/(J
\newcount\$@7W;;7n(J
%
% $@G/$K$h$k$:$l$N=$@5(J
%
\newcount\$@=$@5F|?t(J
%
% $@>jM>(J #1 mod #2 -> #1 $@$N7W;;(J
%
\newcount\@$@>&(J
%
\def\$@>jM>(J#1#2{\@$@>&(J=#1\$@!((J\$@>&(J\@$@>&(J #2\$@!((J\$@@Q(J\@$@>&(J #2\$@!((J\$@OB(J #1 -\@$@>&(J\$@!((J}
X
%
% $@:#F|$O2?G/2?7n2?F|(J?
%
\newcount\$@G/(J
\newcount\$@7n(J
\newcount\$@F|(J  % [0]
X
\newif\if$@=KF|(J	      % [2] $@=KF|(J(5$@7n(J4$@F|4^$`(J)$@$H?6BX5YF|$K(J True
\newif\if$@?6BX5YF|(J     % [2] $@?6BX5YF|$N860x$H$J$C$?F|MK(J$@F|$H7nMKF|$K(J True
\newif\if$@G/KvG/;O5Y(J   % $@G/KvG/;O5Y(J
\newif\if$@MWCm0U(J       % $@$=$NB>(J
X
\newcount\$@6/D4(J	      % $@6/D4$N<oN`(J 0:$@J?F|(J 1:$@5YF|(J 2:$@$=$NB>(J
X
\def\$@3dEvI}(J{3cm}
X
X
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%		  $@!V5YF|!W$HMKF|(J
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
X
\def\$@MKF|Ey7W;;(J{
%
% \$@7W;;7n(J   if 1$@7n(J or 2$@7n(J then \$@7n(J + 12 else \$@7n(J fi
% \$@7W;;G/(J   if 1$@7n(J or 2$@7n(J then \$@G/(J -  1 else \$@G/(J fi
%
\$@7W;;7n(J=\$@7n(J\$@!((J\$@7W;;G/(J=\$@G/(J\$@!((J
\ifnum\$@7n(J<3\then\$@OB(J\$@7W(J$@;;7n(J 12\$@!((J\$@OB(J\$@7W;;G/(J -1\$@!((J\finum
%
% \$@;M=5<~4|>jM>(J = 
% (\$@F|(J + 30*\$@7W;;7n(J + 3$@7n0J9_$NBg$N7n$N?t(J + $@G/$K(J$@$h$k=$@5(J - 16) mod 28
%
% 3$@7n0J9_$NBg$N7n$N?t(J = floor(($@7W;;7n(J - ($@7W;;7n(J<9) - ($@7W;;7n(J<14)) / 2)
%
\$@;M=5(J$@<~4|>jM>(J=\$@7W;;7n(J\$@!((J
\ifnum\$@7W;;7n(J<9\then\$@OB(J\$@;M=5<~4|>jM>(J -1\$@!((J\finum
\ifnum\$@7W;;7n(J<14\then\$@OB(J\$@;M=5<~4|(J$@>jM>(J -1\$@!((J\finum
\$@>&(J\$@;M=5<~4|>jM>(J 2\$@!((J
%
% (30*\$@7W;;7n(J + 3$@7n0J9_$NBg$N7n$N?t(J) mod 28 
%     = (3$@7n0J9_(J$@$NBg$N7n$N?t(J + \$@7W;;7n(J + \$@7W;;7n(J) mod 28
%
\$@OB(J\$@;M=5<~4|>jM>(J\$@7W;;7n(J\$@!((J\$@OB(J\$@;M=5<~4|>jM>(J\$@7W;;7n(J\$@!((J
%
% $@G/(J$@$K$h$k=$@5(J = \$@7W;;G/(J + $@1<G/$N1F6A(J
%    (365 mod 28 = 1 $@$J$N$G!$1<G/0J30$G$O(J1$@F|$:$D$:$l$k!%(J)
%
% $@1<G/$N(J$@1F6A(J = floor(\$@7W;;G/(J/4) - floor(\$@7W;;G/(J/100) + floor(\$@7W;;G/(J/400)
%   ($@1<G/$O(J 4 $@$G3d$j@Z$l$kG/$K$"$j!$(J100 $@$G3d$j@Z$l$kG/$K$J$/!$(J
%    400 $@$G3d$j@Z$l$kG/$K$"$k!%(J)
%
\$@=$@5F|?t(J=\$@7W;;G/(J\$@!((J\$@OB(J\$@;M=5<~4|>jM>(J\$@=$(J$@@5F|?t(J\$@!((J
\$@>&(J\$@=$@5F|?t(J 4\$@!((J\$@OB(J\$@;M=5<~4|>jM>(J\$@=$@5F|?t(J\$@!((J
\$@>&(J\$@=$@5F|?t(J 25\$@!((J\$@OB(J\$@;M=5<~4|>jM>(J -\$@=$@5F|?t(J\$@!((J
\$@>&(J\$@=$@5F|?t(J 4\$@!((J\$@OB(J\$@;M=5<~4|>jM>(J\$@=$@5F|?t(J\$@!((J
%
%  7$@F|<~4|$N(J \$@MKF|HV9f(J	   $@$OF|MK$K(J 0
% $@$K$J$k$h$&(J$@$K%7%U%H$9$k!%(J
%
\$@OB(J\$@;M=5<~4|>jM>(J\$@F|(J\$@!((J
% 
%    \$@MKF|HV9f(J $@$r5a$a$k(J 
%
\$@MKF|HV9f(J=\$@;M=5<~4|>jM>(J\$@!((J
\$@OB(J\$@MKF|HV9f(J 3\$@!((J
\$@>jM>(J\$@MKF|HV9f(J{7}\$@!((J
%
%    \$@;M=5<~4|>jM>(J $@$r5a$a$k(J 
%
\$@OB(J\$@;M=5<~4|>jM>(J -16\$@!((J
\$@>jM>(J\$@;M=5(J$@<~4|>jM>(J{28}}
X
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                            $@=UJ,=)J,(J
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% $@<!$N(J$@7W;;<0$O(J fj.sci.misc $@$NA0ED(J  $@L@F|O$$5$s$N(J 1990$@G/(J12$@7n(J4$@F|$N5-;v(J
% $@$K$h$k!#(J
% $@=UJ,(J	1980-2099	[20.8431 + 0.242194*($@G/(J-1980)-[($@G/(J-1980)/4]]
% $@=)J,(J	1980-2099	[23.2488 + 0.242194*($@G/(J-1980)-[($@G/(J-1980)/4]]
\newdimen\$@=U=)(Jdim
% $@<!$N7W;;<0$O(J fj.questions.misc $@$NNkLZ!!=S9'$5$s$N(J1992$@G/(J1$@7n(J30$@F|$N5-;v$K$h$k(J
%$@!!(J(8(y-1980)+687)/33-(y-1980)/4    (1900-2099)($@=U(J)$@!!!&!&!&(J(28)
%$@!!(J(8(y-1980)+766)/33-(y-1980)/4    (1980-2099)($@=)(J)$@!!!&!&!&(J(29)
X
\newcount\$@=U=)(Jcnt
\def\$@=UJ,=)J,7W;;(J{
X	\$@=U=)(Jcnt=\$@G/(J \advance\$@=U=)(Jcnt by -1980 
X	{\divide\$@=U=)(Jcnt by 4 \xdef\$@=U=)D4@0(J{\the\$@=U=)(Jcnt}}
X	\multiply\$@=U=)(Jcnt by 8 \edef\$@=U=)H,G\(J{\the\$@=U=)(Jcnt}
X	\advance\$@=U=)(Jcnt by 687 
X	\divide\$@=U=)(Jcnt by 33 \advance\$@=U=)(Jcnt by -\$@=U=)D4@0(J
X	\edef\$@=UJ,(J{\the\$@=U=)(Jcnt}%
X	\$@=U=)(Jcnt=\$@=U=)H,G\(J
X	\advance\$@=U=)(Jcnt by 766 
X	\divide\$@=U=)(Jcnt by 33 \advance\$@=U=)(Jcnt by -\$@=U=)D4@0(J
X	\edef\$@=)J,(J{\the\$@=U=)(Jcnt}}		
X
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%			       $@MKF|(J
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%   $@MKF|$rI=<($9$k(J 
%
\def\$@MKF|(J{\ifcase\$@MKF|HV9f(J $@F|(J\or $@7n(J\or $@2P(J\or $@?e(J\or $@LZ(J\or $@6b(J\or $@EZ(J\ficase}%[1]
X
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%			     $@5YF|$J$I(J
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
X
% 
%		$@=KF|$N7W;;(J 
%
\def\$@=KF|Ey7W;;(J{\$@=KF|(Jfalse\$@G/KvG/;O5Y(Jfalse\$@MWCm0U(Jfalse
\ifcase\$@7n(J\or\$@0l7n$NM=Dj(J\or\$@Fs7n$NM=Dj(J\or\$@;07n$NM=Dj(J\or
\$@;M7n(J$@$NM=Dj(J\or\$@8^7n$NM=Dj(J\or\$@O;7n$NM=Dj(J\or
\$@<77n$NM=Dj(J\or\$@H,7n$NM=Dj(J\or\$@6e7n$NM=Dj(J\or
\$@==7n$NM=Dj(J\or\$@==0l7n(J$@$NM=Dj(J\or\$@==Fs7n$NM=Dj(J\ficase}
X
\def\$@0l7n$NM=Dj(J{
\ifnum\$@F|(J=1\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@85F|(J}\finum
\ifnum\$@F|(J=2\then\$@G/KvG/;O5Y(Jtrue\def\$@5Y$`M}M3(J{$@G/;O(J}\finum
\ifnum\$@F|(J=3\then\$@G/KvG/;O5Y(Jtrue\def\$@5Y$`M}M3(J{$@G/;O(J}\finum
\ifnum\$@F|(J=15\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@@.?M$NF|(J}\finum
\$@0l7n$N%3%a%s%H(J}
X
\def\$@Fs7n$NM=(J$@Dj(J{
\ifnum\$@F|(J=11\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@7z9q5-G0F|(J}\finum
\$@Fs7n$N%3%a%s%H(J}
X
\def\$@;07n$NM=Dj(J{
\ifnum\$@F|(J=\$@=UJ,(J\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@=UJ,$NF|(J}\finum
\$@;07n$N%3%a%s%H(J}
X
\def\$@;M7n$NM=Dj(J{
\then\ifnum\$@F|(J=29\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@$_$I$j$NF|(J}\finum
\$@;M7n$N%3%a%s%H(J}
X
\def\$@8^7n$NM=Dj(J{
\ifnum\$@F|(J=3\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@7{K!5-G0F|(J}\finum
\ifnum\$@F|(J=4\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{($@9qL1$N5YF|(J)}\finum 
\ifnum\$@F|(J=5\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@$3$I$b$NF|(J}\finum
\$@8^7n$N%3%a%s%H(J}
X
X
\def\$@O;7n$NM=Dj(J{
\$@O;7n$N%3%a%s%H(J}
X
\def\$@<77n$NM=Dj(J{
\$@<77n$N%3%a%s%H(J}
X
\def\$@H,7n$NM=Dj(J{
\$@H,7n$N%3%a%s%H(J}
X
X
\def\$@6e7n(J$@$NM=Dj(J{
\ifnum\$@F|(J=15\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@7IO7$NF|(J}\finum
\ifnum\$@F|(J=\$@=)J,(J\then\$@=KF|(Jtrue\def\$@5Y$`(J$@M}M3(J{$@=)J,$NF|(J}\finum
\$@6e7n$N%3%a%s%H(J}
X
X
\def\$@==7n$NM=Dj(J{
\ifnum\$@F|(J=10\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@BN(J$@0i$NF|(J}\finum
\$@==7n$N%3%a%s%H(J}
X
X
\def\$@==0l7n$NM=Dj(J{
\ifnum\$@F|(J=3\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@J82=$NF|(J}\finum
\ifnum\$@F|(J=23\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@6PO+46<U$NF|(J}\finum
\$@==0l7n$N%3%a%s%H(J}
X
X
\def\$@==Fs7n(J$@$NM=Dj(J{
\ifnum\$@F|(J=23\then\$@=KF|(Jtrue\def\$@5Y$`M}M3(J{$@E79DCB@8F|(J}\finum
\ifnum\$@F|(J>28\then
X	\$@G/KvG/;O5Y(Jtrue\def\$@5Y$`M}M3(J{$@G/Kv(J}\finum
\$@==Fs7n$N%3%a%s%H(J}
X
\let\$@0l7n$N%3%a%s%H(J=\relax
\let\$@Fs7n$N%3%a%s%H(J=\relax
\let\$@;07n$N%3%a%s%H(J=\relax
\let\$@;M7n$N%3%a%s%H(J=\relax
\let\$@8^7n$N%3%a%s%H(J=\relax
\let\$@O;7n$N%3%a%s%H(J=\relax
\let\$@<77n$N%3%a%s%H(J=\relax
\let\$@H,7n$N%3%a%s%H(J=\relax
\let\$@6e7n$N%3%a%s%H(J=\relax
\let\$@==7n$N%3(J$@%a%s%H(J=\relax
\let\$@==0l7n$N%3%a%s%H(J=\relax
\let\$@==Fs7n$N%3%a%s%H(J=\relax
X
\def\$@MWCm0U(J#1$@F|$O(J#2$@$NF|(J{\ifnum\$@F|(J=#1\then\$@MWCm0U(Jtrue\def\$@Cm0U;v9`(J{#2}\finum}
X
\newcount\$@1<G/(J
X
\def\$@1<G/7W;;(J{\$@1<G/(J=\$@G/(J \$@>jM>(J\$@1<(J$@G/(J{400}
X	\ifnum\$@1<G/(J=0\then\def\$@Fs7nKvF|(J{29}
X	\else\$@1<G/(J=\$@G/(J \$@>jM>(J\$@1<G/(J{100}
X		\ifnum\$@1<G/(J=0\then\def\$@Fs7nKvF|(J{28}
X		\else
X			\$@1<G/(J=\$@G/(J \$@>jM>(J\$@1<G/(J{4}
X			\ifnum\$@1<G/(J=0\then\def\$@Fs7nKvF|(J{29}
X				\else\def\$@Fs7nKvF|(J{28}
X			\finum
X		\finum
X	\finum}
X
\newcount\$@=5HV9f(J	
X
\def\$@%+%l%s%@!<(J#1$@G/(J#2$@7n(J{
X	\begin{minipage}{12cm}\centering\fbox{
X	\unitlength=1.5cm\begin{picture}(7,7.3)(-0.5,-6.9)
X	\$@G/(J=#1\relax\$@7n(J=#2\relax\$@F|(J=1\relax
X	\$@=UJ,=)J,7W;;(J
X	\$@?6BX5YF|(Jfalse % $@7n$r$^$?$,$k?6BX5YF|$O$?$^$?$^B8:_$7$J(J$@$$!%(J
X	\normalsize
X	\put(0,-0.3){\makebox(0,0){$@F|(J}}
X	\put(1,-0.3){\makebox(0,0){$@7n(J}}
X	\put(2,-0.3){\makebox(0,0){$@2P(J}}
X	\put(3,-0.3){\makebox(0,0){$@?e(J}}
X	\put(4,-0.3){\makebox(0,0){$@LZ(J}}
X	\put(5,-0.3){\makebox(0,0){$@6b(J}}
X	\put(6,-0.3){\makebox(0,0){$@EZ(J}}
X	\large
X	\put(-0.5,0.1){\hbox to 7\unitlength{
X		\leaders\hrule\@height2ex\hfill
X		{ \bf\the\$@G/(J $@G/(J\the\$@7n(J $@7n(J }
X		\leaders\hrule\@height2ex\hfill}}
X	\ifnum\$@7n(J=2\$@1<G/7W;;(J\finum
X	\edef\$@KvF|(J{\ifcase\$@7n(J\or31\or\$@Fs7nKvF|(J\or31\or30\or31\or30
X		\or31\or31\or30\or31\or30\or31\ficase}
X	\$@F|(J=0\relax\$@=5HV9f(J=1\relax
X	\@whilenum\$@F|(J<\$@KvF|(J\do{
X		\def\$@5Y(J$@$`M}M3(J{}\def\$@Cm0U;v9`(J{}
X		\$@OB(J\$@F|(J 1\relax
X		\$@MKF|Ey7W;;(J    \$@=KF|Ey7W;;(J   \$@6/D4H=CG(J
X		\put(\the\$@MKF|(J$@HV9f(J,-\the\$@=5HV9f(J){\makebox(0,0){\$@%^!<%/(J}}
X		\ifnum\$@MKF|HV9f(J=6\then\$@OB(J\$@=5HV9f(J 1\finum}
X	\end{picture}}\hss\end{minipage}}
X
\def\$@6/D4H=CG(J{\$@6/D4(J=0\relax
X	\if$@MWCm0U(J\$@6/D4(J=2\relax\fi
X	\ifnum\$@MKF|HV9f(J=0\then\$@6/D4(J=1\relax
X		\if$@=KF|(J\then\$@?6BX5YF|(Jtrue\fi
X	\finum
X	\if$@G/KvG/;O5Y(J\$@6/D4(J=1\relax\fi
X	\if$@=KF|(J\$@6/D4(J=1\relax\fi
X	\ifnum\$@MKF|HV9f(J=1\then\if$@?6BX5YF|(J\then\$@6/D4(J=1\relax
X		\def\$@5Y$`M}M3(J{$@?6BX(J}\$@?6BX5YF|(Jfalse\fi\finum
X	\ifnum\$@MKF|HV9f(J=6\then\$@6/D4(J=1\relax\finum
X	\def\$@%^!<%/(J{\hbox{\footnotesize
X		\vtop to 0pt{\offinterlineskip
X		\hbox to \unitlength{\large\strut
X			\hss\ifcase\$@6/D4(J{\rm\the\$@F|(J}\or
X			\framebox[1cm]{\bf\the\$@F|(J}\or{\it\the\$@F|(J}\ficase\hss}
X		\hbox to \unitlength{\hss\$@5Y$`M}M3(J\hss}
X		\hbox to \unitlength{\hss\$@Cm0U;v9`(J\hss}\vss}}}}
X
\endlinechar=13
\endinput
X
SHAR_EOF
chmod 0664 eclcalen.sty ||
echo 'restore of eclcalen.sty failed'
Wc_c="`wc -c < 'eclcalen.sty'`"
test 11635 -eq "$Wc_c" ||
	echo 'eclcalen.sty: original size 11635, current size' "$Wc_c"
fi
exit 0