Newsgroups: fj.comp.texhax
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!sh.wide!wnoc-kyo!kyu-cs!lab!lab!isozaki
From: isozaki@square.ntt.jp (Hideki Isozaki)
Subject: Re: calender
In-Reply-To: murakami@jsd.co.JP's message of 6 Jan 93 04:56:48 GMT
Message-ID: <3f.p7jsq@lab.ntt.jp>
Sender: news@lab.ntt.jp
Organization: NTT Basic Research Laboratories
References: <2456@jsdmaster.jsd.co.JP>
Distribution: fj
Date: 8 Jan 1993 03:35:41 GMT
Lines: 405
Xref: galaxy.trc.rwcp.or.jp fj.comp.texhax:3102
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.comp.texhax&nb=3102&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.


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

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

$B0k:j=(<y(B  $B#N#T#T4pAC8&(B
#!/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{\$B==Fs7n$N%3%a%s%H(B}{
X        \$BMWCm0U(B7$BF|$OK:G/2q(B\footnote{$B=BC+(B}$B$NF|(B
X        \$BMWCm0U(B14$BF|$OF1Ak2q$NF|(B
}
\newcommand{\$B0l7n$N%3%a%s%H(B}{
X        \$BMWCm0U(B8$BF|$O?7G/2q(B\footnote{$B?7=I(B}$B$NF|(B
X        \$BMWCm0U(B21$BF|$O8&5f2q$NF|(B
}
X
X
\begin{center}
\$B%+%l%s%@!<(B1992$BG/(B12$B7n(B
X
\$B%+%l%s%@!<(B1993$BG/(B1$B7n(B
X
\$B%+%l%s%@!<(B1993$BG/(B3$B7n(B
X
\$B%+%l%s%@!<(B1993$BG/(B5$B7n(B
\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
% $B2~9T$r6uGr$K$7$J$$!%(B
\endlinechar=-1
X
% $B>e2<:81&$N%^!<%8%s$ND4@0(B
\topmargin-1cm
\headsep\z@
\headheight\z@
\textheight 60pc \textwidth 40pc 
\oddsidemargin -1cm
X
% $B%Z!<%8HV9f$r$D$1$J$$!%(B
\pagestyle{empty}
X
% $BJLL>(B
%
\let\$B@Q(B=\multiply
\let\$BOB(B=\advance
\let\$B>&(B=\divide
%
% $B<!$N%3%^%s%I72$O!$%W%m%0%i%`$rFI$_0W$/$7$?$j!$(B
% $B?t;z%H!<%/%s$N=*$o$j$rL@<($7$?$j$9$k$N$K;H$o$l$k!%(B
% 
\let\$B!((B=\relax
\let\then=\relax
\let\nop=\relax
\let\ficase=\fi
\let\finum=\fi
X
%
% $B%(%i!<I=<($9$k$H$-$K!$$I$3$G%(%i!<$,@8$8$?$+I=<($9$k!%(B
%
\def\$BF|IUI=<((B{\typeout{}\message{\the\$BF|(B $BF|(B:}}
\def\errorstop{\typeout{$B0[>o=*N;(B}\batchmode\stop}
X
%  Integers
\newcount\$B;M=5<~4|>jM>(B 
%
%  $BMKF|$rI=$9?t(B \$BMKF|HV9f(B $B$O(B \$B;M=5<~4|>jM>(B $B$+$i5a$a$i$l$k!%(B
%
% \$BMKF|HV9f(B 0:$BF|MK(B 1:$B7nMK(B ... 6:$BEZMK(B
%
\newcount\$BMKF|HV9f(B 
X
%
% $B1<G/$N1F6A$r7W;;$9$k$?$a!$(B2$B7nKvF|$rG/EY$N6h@Z$j$H$7$F(B
% $B7W;;$70W$/$9$k!%(B
%
% \$B7W;;7n(B   3: 3$B7n(B, 4: 4$B7n(B,  ... 12: 12$B7n(B, 13: 1$B7n(B, 14: 2$B7n(B
% \$B7W;;G/(B   3$B7n(B ... 12$B7n(B = \$BG/(B, 1$B7n(B ... 2$B7n(B : \$BG/(B - 1 
%
\newcount\$B7W;;G/(B
\newcount\$B7W;;7n(B
%
% $BG/$K$h$k$:$l$N=$@5(B
%
\newcount\$B=$@5F|?t(B
%
% $B>jM>(B #1 mod #2 -> #1 $B$N7W;;(B
%
\newcount\@$B>&(B
%
\def\$B>jM>(B#1#2{\@$B>&(B=#1\$B!((B\$B>&(B\@$B>&(B #2\$B!((B\$B@Q(B\@$B>&(B #2\$B!((B\$BOB(B #1 -\@$B>&(B\$B!((B}
X
%
% $B:#F|$O2?G/2?7n2?F|(B?
%
\newcount\$BG/(B
\newcount\$B7n(B
\newcount\$BF|(B  % [0]
X
\newif\if$B=KF|(B      % [2] $B=KF|(B(5$B7n(B4$BF|4^$`(B)$B$H?6BX5YF|$K(B True
\newif\if$B?6BX5YF|(B     % [2] $B?6BX5YF|$N860x$H$J$C$?F|MKF|$H7nMKF|$K(B True
\newif\if$BG/KvG/;O5Y(B   % $BG/KvG/;O5Y(B
\newif\if$BMWCm0U(B       % $B$=$NB>(B
X
\newcount\$B6/D4(B      % $B6/D4$N<oN`(B 0:$BJ?F|(B 1:$B5YF|(B 2:$B$=$NB>(B
X
\def\$B3dEvI}(B{3cm}
X
X
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%  $B!V5YF|!W$HMKF|(B
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
X
\def\$BMKF|Ey7W;;(B{
%
% \$B7W;;7n(B   if 1$B7n(B or 2$B7n(B then \$B7n(B + 12 else \$B7n(B fi
% \$B7W;;G/(B   if 1$B7n(B or 2$B7n(B then \$BG/(B -  1 else \$BG/(B fi
%
\$B7W;;7n(B=\$B7n(B\$B!((B\$B7W;;G/(B=\$BG/(B\$B!((B
\ifnum\$B7n(B<3\then\$BOB(B\$B7W;;7n(B 12\$B!((B\$BOB(B\$B7W;;G/(B -1\$B!((B\finum
%
% \$B;M=5<~4|>jM>(B = 
% (\$BF|(B + 30*\$B7W;;7n(B + 3$B7n0J9_$NBg$N7n$N?t(B + $BG/$K$h$k=$@5(B - 16) mod 28
%
% 3$B7n0J9_$NBg$N7n$N?t(B = floor(($B7W;;7n(B - ($B7W;;7n(B<9) - ($B7W;;7n(B<14)) / 2)
%
\$B;M=5<~4|>jM>(B=\$B7W;;7n(B\$B!((B
\ifnum\$B7W;;7n(B<9\then\$BOB(B\$B;M=5<~4|>jM>(B -1\$B!((B\finum
\ifnum\$B7W;;7n(B<14\then\$BOB(B\$B;M=5<~4|>jM>(B -1\$B!((B\finum
\$B>&(B\$B;M=5<~4|>jM>(B 2\$B!((B
%
% (30*\$B7W;;7n(B + 3$B7n0J9_$NBg$N7n$N?t(B) mod 28 
%     = (3$B7n0J9_$NBg$N7n$N?t(B + \$B7W;;7n(B + \$B7W;;7n(B) mod 28
%
\$BOB(B\$B;M=5<~4|>jM>(B\$B7W;;7n(B\$B!((B\$BOB(B\$B;M=5<~4|>jM>(B\$B7W;;7n(B\$B!((B
%
% $BG/$K$h$k=$@5(B = \$B7W;;G/(B + $B1<G/$N1F6A(B
%    (365 mod 28 = 1 $B$J$N$G!$1<G/0J30$G$O(B1$BF|$:$D$:$l$k!%(B)
%
% $B1<G/$N1F6A(B = floor(\$B7W;;G/(B/4) - floor(\$B7W;;G/(B/100) + floor(\$B7W;;G/(B/400)
%   ($B1<G/$O(B 4 $B$G3d$j@Z$l$kG/$K$"$j!$(B100 $B$G3d$j@Z$l$kG/$K$J$/!$(B
%    400 $B$G3d$j@Z$l$kG/$K$"$k!%(B)
%
\$B=$@5F|?t(B=\$B7W;;G/(B\$B!((B\$BOB(B\$B;M=5<~4|>jM>(B\$B=$@5F|?t(B\$B!((B
\$B>&(B\$B=$@5F|?t(B 4\$B!((B\$BOB(B\$B;M=5<~4|>jM>(B\$B=$@5F|?t(B\$B!((B
\$B>&(B\$B=$@5F|?t(B 25\$B!((B\$BOB(B\$B;M=5<~4|>jM>(B -\$B=$@5F|?t(B\$B!((B
\$B>&(B\$B=$@5F|?t(B 4\$B!((B\$BOB(B\$B;M=5<~4|>jM>(B\$B=$@5F|?t(B\$B!((B
%
%  7$BF|<~4|$N(B \$BMKF|HV9f(B   $B$OF|MK$K(B 0
% $B$K$J$k$h$&$K%7%U%H$9$k!%(B
%
\$BOB(B\$B;M=5<~4|>jM>(B\$BF|(B\$B!((B
% 
%    \$BMKF|HV9f(B $B$r5a$a$k(B 
%
\$BMKF|HV9f(B=\$B;M=5<~4|>jM>(B\$B!((B
\$BOB(B\$BMKF|HV9f(B 3\$B!((B
\$B>jM>(B\$BMKF|HV9f(B{7}\$B!((B
%
%    \$B;M=5<~4|>jM>(B $B$r5a$a$k(B 
%
\$BOB(B\$B;M=5<~4|>jM>(B -16\$B!((B
\$B>jM>(B\$B;M=5<~4|>jM>(B{28}}
X
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%                            $B=UJ,=)J,(B
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% $B<!$N7W;;<0$O(B fj.sci.misc $B$NA0ED(B  $BL@F|O$$5$s$N(B 1990$BG/(B12$B7n(B4$BF|$N5-;v(B
% $B$K$h$k!#(B
% $B=UJ,(B1980-2099[20.8431 + 0.242194*($BG/(B-1980)-[($BG/(B-1980)/4]]
% $B=)J,(B1980-2099[23.2488 + 0.242194*($BG/(B-1980)-[($BG/(B-1980)/4]]
\newdimen\$B=U=)(Bdim
% $B<!$N7W;;<0$O(B fj.questions.misc $B$NNkLZ!!=S9'$5$s$N(B1992$BG/(B1$B7n(B30$BF|$N5-;v$K$h$k(B
%$B!!(B(8(y-1980)+687)/33-(y-1980)/4    (1900-2099)($B=U(B)$B!!!&!&!&(B(28)
%$B!!(B(8(y-1980)+766)/33-(y-1980)/4    (1980-2099)($B=)(B)$B!!!&!&!&(B(29)
X
\newcount\$B=U=)(Bcnt
\def\$B=UJ,=)J,7W;;(B{
X\$B=U=)(Bcnt=\$BG/(B \advance\$B=U=)(Bcnt by -1980 
X{\divide\$B=U=)(Bcnt by 4 \xdef\$B=U=)D4@0(B{\the\$B=U=)(Bcnt}}
X\multiply\$B=U=)(Bcnt by 8 \edef\$B=U=)H,G\(B{\the\$B=U=)(Bcnt}
X\advance\$B=U=)(Bcnt by 687 
X\divide\$B=U=)(Bcnt by 33 \advance\$B=U=)(Bcnt by -\$B=U=)D4@0(B
X\edef\$B=UJ,(B{\the\$B=U=)(Bcnt}%
X\$B=U=)(Bcnt=\$B=U=)H,G\(B
X\advance\$B=U=)(Bcnt by 766 
X\divide\$B=U=)(Bcnt by 33 \advance\$B=U=)(Bcnt by -\$B=U=)D4@0(B
X\edef\$B=)J,(B{\the\$B=U=)(Bcnt}}
X
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%       $BMKF|(B
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
%   $BMKF|$rI=<($9$k(B 
%
\def\$BMKF|(B{\ifcase\$BMKF|HV9f(B $BF|(B\or $B7n(B\or $B2P(B\or $B?e(B\or $BLZ(B\or $B6b(B\or $BEZ(B\ficase}%[1]
X
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%     $B5YF|$J$I(B
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
X
% 
%$B=KF|$N7W;;(B 
%
\def\$B=KF|Ey7W;;(B{\$B=KF|(Bfalse\$BG/KvG/;O5Y(Bfalse\$BMWCm0U(Bfalse
\ifcase\$B7n(B\or\$B0l7n$NM=Dj(B\or\$BFs7n$NM=Dj(B\or\$B;07n$NM=Dj(B\or
\$B;M7n$NM=Dj(B\or\$B8^7n$NM=Dj(B\or\$BO;7n$NM=Dj(B\or
\$B<77n$NM=Dj(B\or\$BH,7n$NM=Dj(B\or\$B6e7n$NM=Dj(B\or
\$B==7n$NM=Dj(B\or\$B==0l7n$NM=Dj(B\or\$B==Fs7n$NM=Dj(B\ficase}
X
\def\$B0l7n$NM=Dj(B{
\ifnum\$BF|(B=1\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B85F|(B}\finum
\ifnum\$BF|(B=2\then\$BG/KvG/;O5Y(Btrue\def\$B5Y$`M}M3(B{$BG/;O(B}\finum
\ifnum\$BF|(B=3\then\$BG/KvG/;O5Y(Btrue\def\$B5Y$`M}M3(B{$BG/;O(B}\finum
\ifnum\$BF|(B=15\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B@.?M$NF|(B}\finum
\$B0l7n$N%3%a%s%H(B}
X
\def\$BFs7n$NM=Dj(B{
\ifnum\$BF|(B=11\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B7z9q5-G0F|(B}\finum
\$BFs7n$N%3%a%s%H(B}
X
\def\$B;07n$NM=Dj(B{
\ifnum\$BF|(B=\$B=UJ,(B\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B=UJ,$NF|(B}\finum
\$B;07n$N%3%a%s%H(B}
X
\def\$B;M7n$NM=Dj(B{
\then\ifnum\$BF|(B=29\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B$_$I$j$NF|(B}\finum
\$B;M7n$N%3%a%s%H(B}
X
\def\$B8^7n$NM=Dj(B{
\ifnum\$BF|(B=3\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B7{K!5-G0F|(B}\finum
\ifnum\$BF|(B=4\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{($B9qL1$N5YF|(B)}\finum 
\ifnum\$BF|(B=5\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B$3$I$b$NF|(B}\finum
\$B8^7n$N%3%a%s%H(B}
X
X
\def\$BO;7n$NM=Dj(B{
\$BO;7n$N%3%a%s%H(B}
X
\def\$B<77n$NM=Dj(B{
\$B<77n$N%3%a%s%H(B}
X
\def\$BH,7n$NM=Dj(B{
\$BH,7n$N%3%a%s%H(B}
X
X
\def\$B6e7n$NM=Dj(B{
\ifnum\$BF|(B=15\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B7IO7$NF|(B}\finum
\ifnum\$BF|(B=\$B=)J,(B\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B=)J,$NF|(B}\finum
\$B6e7n$N%3%a%s%H(B}
X
X
\def\$B==7n$NM=Dj(B{
\ifnum\$BF|(B=10\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$BBN0i$NF|(B}\finum
\$B==7n$N%3%a%s%H(B}
X
X
\def\$B==0l7n$NM=Dj(B{
\ifnum\$BF|(B=3\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$BJ82=$NF|(B}\finum
\ifnum\$BF|(B=23\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$B6PO+46<U$NF|(B}\finum
\$B==0l7n$N%3%a%s%H(B}
X
X
\def\$B==Fs7n$NM=Dj(B{
\ifnum\$BF|(B=23\then\$B=KF|(Btrue\def\$B5Y$`M}M3(B{$BE79DCB@8F|(B}\finum
\ifnum\$BF|(B>28\then
X\$BG/KvG/;O5Y(Btrue\def\$B5Y$`M}M3(B{$BG/Kv(B}\finum
\$B==Fs7n$N%3%a%s%H(B}
X
\let\$B0l7n$N%3%a%s%H(B=\relax
\let\$BFs7n$N%3%a%s%H(B=\relax
\let\$B;07n$N%3%a%s%H(B=\relax
\let\$B;M7n$N%3%a%s%H(B=\relax
\let\$B8^7n$N%3%a%s%H(B=\relax
\let\$BO;7n$N%3%a%s%H(B=\relax
\let\$B<77n$N%3%a%s%H(B=\relax
\let\$BH,7n$N%3%a%s%H(B=\relax
\let\$B6e7n$N%3%a%s%H(B=\relax
\let\$B==7n$N%3%a%s%H(B=\relax
\let\$B==0l7n$N%3%a%s%H(B=\relax
\let\$B==Fs7n$N%3%a%s%H(B=\relax
X
\def\$BMWCm0U(B#1$BF|$O(B#2$B$NF|(B{\ifnum\$BF|(B=#1\then\$BMWCm0U(Btrue\def\$BCm0U;v9`(B{#2}\finum}
X
\newcount\$B1<G/(B
X
\def\$B1<G/7W;;(B{\$B1<G/(B=\$BG/(B \$B>jM>(B\$B1<G/(B{400}
X\ifnum\$B1<G/(B=0\then\def\$BFs7nKvF|(B{29}
X\else\$B1<G/(B=\$BG/(B \$B>jM>(B\$B1<G/(B{100}
X\ifnum\$B1<G/(B=0\then\def\$BFs7nKvF|(B{28}
X\else
X\$B1<G/(B=\$BG/(B \$B>jM>(B\$B1<G/(B{4}
X\ifnum\$B1<G/(B=0\then\def\$BFs7nKvF|(B{29}
X\else\def\$BFs7nKvF|(B{28}
X\finum
X\finum
X\finum}
X
\newcount\$B=5HV9f(B
X
\def\$B%+%l%s%@!<(B#1$BG/(B#2$B7n(B{
X\begin{minipage}{12cm}\centering\fbox{
X\unitlength=1.5cm\begin{picture}(7,7.3)(-0.5,-6.9)
X\$BG/(B=#1\relax\$B7n(B=#2\relax\$BF|(B=1\relax
X\$B=UJ,=)J,7W;;(B
X\$B?6BX5YF|(Bfalse % $B7n$r$^$?$,$k?6BX5YF|$O$?$^$?$^B8:_$7$J$$!%(B
X\normalsize
X\put(0,-0.3){\makebox(0,0){$BF|(B}}
X\put(1,-0.3){\makebox(0,0){$B7n(B}}
X\put(2,-0.3){\makebox(0,0){$B2P(B}}
X\put(3,-0.3){\makebox(0,0){$B?e(B}}
X\put(4,-0.3){\makebox(0,0){$BLZ(B}}
X\put(5,-0.3){\makebox(0,0){$B6b(B}}
X\put(6,-0.3){\makebox(0,0){$BEZ(B}}
X\large
X\put(-0.5,0.1){\hbox to 7\unitlength{
X\leaders\hrule\@height2ex\hfill
X{ \bf\the\$BG/(B $BG/(B\the\$B7n(B $B7n(B }
X\leaders\hrule\@height2ex\hfill}}
X\ifnum\$B7n(B=2\$B1<G/7W;;(B\finum
X\edef\$BKvF|(B{\ifcase\$B7n(B\or31\or\$BFs7nKvF|(B\or31\or30\or31\or30
X\or31\or31\or30\or31\or30\or31\ficase}
X\$BF|(B=0\relax\$B=5HV9f(B=1\relax
X\@whilenum\$BF|(B<\$BKvF|(B\do{
X\def\$B5Y$`M}M3(B{}\def\$BCm0U;v9`(B{}
X\$BOB(B\$BF|(B 1\relax
X\$BMKF|Ey7W;;(B    \$B=KF|Ey7W;;(B   \$B6/D4H=CG(B
X\put(\the\$BMKF|HV9f(B,-\the\$B=5HV9f(B){\makebox(0,0){\$B%^!<%/(B}}
X\ifnum\$BMKF|HV9f(B=6\then\$BOB(B\$B=5HV9f(B 1\finum}
X\end{picture}}\hss\end{minipage}}
X
\def\$B6/D4H=CG(B{\$B6/D4(B=0\relax
X\if$BMWCm0U(B\$B6/D4(B=2\relax\fi
X\ifnum\$BMKF|HV9f(B=0\then\$B6/D4(B=1\relax
X\if$B=KF|(B\then\$B?6BX5YF|(Btrue\fi
X\finum
X\if$BG/KvG/;O5Y(B\$B6/D4(B=1\relax\fi
X\if$B=KF|(B\$B6/D4(B=1\relax\fi
X\ifnum\$BMKF|HV9f(B=1\then\if$B?6BX5YF|(B\then\$B6/D4(B=1\relax
X\def\$B5Y$`M}M3(B{$B?6BX(B}\$B?6BX5YF|(Bfalse\fi\finum
X\ifnum\$BMKF|HV9f(B=6\then\$B6/D4(B=1\relax\finum
X\def\$B%^!<%/(B{\hbox{\footnotesize
X\vtop to 0pt{\offinterlineskip
X\hbox to \unitlength{\large\strut
X\hss\ifcase\$B6/D4(B{\rm\the\$BF|(B}\or
X\framebox[1cm]{\bf\the\$BF|(B}\or{\it\the\$BF|(B}\ficase\hss}
X\hbox to \unitlength{\hss\$B5Y$`M}M3(B\hss}
X\hbox to \unitlength{\hss\$BCm0U;v9`(B\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
