% sfletter.sty 
% by Shinsaku Fujita 
% Copyright (C) S. Fujita (2000). All rights reserved. 
% Version 1.00 2000/01/02
%
%  �쐬��: ���c����
%          fujitas@chem.kit.ac.jp
%
%   ���c���쒘�u����E�c�������p�v����
%
%\typeout{Option Style `sfletter.sty' by S. Fujita}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\j@urnalname{sfletter}
\def\versi@ndate{January 2, 2000}
\def\versi@nno{ver1.00}
\def\copyrighth@lder{SF} % Shinsaku Fujita
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\typeout{Option Style `\j@urnalname' (\versi@nno) <\versi@ndate>\space 
[\copyrighth@lder]}
\typeout{���c���쒘�u����E�c�������p�v����}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\jikouaisatu{\@ifnextchar[{\jikou@isatu}{\jikou@isatu[\the\month]}}
\def\jikou@isatu[#1]{\@ifnextchar({\jikou@is@tu[#1]}%
{\jikou@is@tu[#1](0)}}
\def\jikou@is@tu[#1](#2){\aisatuA{#1}\aisatuB{#2}}
\def\aisatuA#1{%
\ifcase#1\relax
\or �V�����N�̎n�߁A%�ꌎ
\or �����������̐܁A%��
\or �퐶�O���ƂȂ�܂������A%�O��
\or �tࣖ��̍��̍炫��������ƂȂ�܂������A%�l��
\or ��t�̋G�߂ƂȂ�܂������A%�܌�
\or �����Ƃ������~�J�������܂����A%�Z��
\or �{�i�I�ȉĂ�����Ă܂���܂������A%\����
\or ������������A%����
\or �㌎�Ƃ͂����c���������܁A%�㌎
\or �ӂ邳�Ƃ̏H�Ղ�̕ւ肪������鍠�ƂȂ�܂������A%�\��
\or �g�t�̕ւ�������������ƕ�����͂��߂܂������A%�\�ꌎ
\or �t���̂��킽�������G�߂�����Ă܂���܂������A%�\��
\else ���������������Ă���܂����A\fi}
\def\aisatuB#1{%
\ifcase#1\relax
�܂��܂������h�̂��ƂƂ��c�ѐ\���グ�܂��B
\or �܂��܂������˂̂��ƂƂ��c�ѐ\���グ�܂��B
\or �܂��܂��������̂��ƂƂ��c�ѐ\���グ�܂��B
\or ��������߂����ł��傤���B
\else �F�l�ɂ́A���������߂����̂��ƂƑ����グ�܂��B\fi}
\def\aisatu{\@ifnextchar[{\@isatu}{\@isatu[�q�[]}}
\def\@isatu[#1]{\@ifnextchar({\@is@tu[#1]}{\@is@tu[#1](\jikouaisatu)}}
\def\@is@tu[#1](#2){\par\noindent #1\par #2}
\def\musubi{\@ifnextchar[{\@musubi}{\@musubi[�h��]}}
\def\@musubi[#1]{\mbox{}\hfill #1\hskip1zw\mbox{}\par}
\def\Date{\expandafter\kanji\the\year �N
\expandafter\kanji\the\month ��
\expandafter\kanji\the\day ��}
\def\yDate#1{\mbox{}\hfill\def\tempaaa{#1}%
\ifx\tempaaa\empty\Date\else#1\fi\par}
\def\sasidasistretch{0.6}
\def\sasidasi{\@ifnextchar[{\s@sidasi}{\s@sidasi[\Date]}}
\def\s@sidasi[#1]#2#3{%
#1\hfill\parbox[t]{\sasidasistretch\textwidth}{\baselineskip=12pt
\hspace*{-1zw}#2\\[4pt]#3}\par}
\def\atenakeishou{�l}
\def\atena#1#2{%
\parbox{8cm}{\baselineskip=12pt
\hspace*{-1zw}#1 \atenakeishou\\[4pt]#2}\hfill\mbox{}\par}
\endinput
