% ^^A -*- japanese-latex -*-
% \CheckSum{1357}
% \iffalse
%
%   okumacro.dtx
%   $B;d2HHG%^%/%m=8(B ($B<Q$F$b>F$$$F$b$+$^$$$^$;$s(B)
%   okumura@matsusaka-u.ac.jp
%   http://www.matsusaka-u.ac.jp/~okumura/
%
%  [2002-12-19] $B$$$m$$$m$J$b$N$K<}O?$7$F$$$?$@$/:]$K%i%$%;%s%9$rL@3N$K$9$k(B
%  $BI,MW$,@8$8$F$-$^$7$?!#%"%9%-!<$N$b$N$,:G6a$O!J(Bmodified$B!K(BBSD$B%i%$%;%s%9$K$J$C(B
%  $B$F$$$^$9$N$G!$;d$N$b$N$b$=$l$K=`$8$F!J(Bmodified$B!K(BBSD$B$H$9$k$3$H$K$7$^$9!#(B
%
%<okumacro>\NeedsTeXFormat{pLaTeX2e}
%<okumacro>\ProvidesPackage{okumacro}[2004/08/23 okumura]
%<*driver>
\documentclass{jsarticle}
\usepackage{doc}
\usepackage{okumacro}
\addtolength{\textwidth}{-1in}
\addtolength{\evensidemargin}{1in}
\addtolength{\oddsidemargin}{1in}
\addtolength{\marginparwidth}{1in}
\setlength\marginparsep{5pt}
\setlength\marginparpush{0pt}
% \OnlyDescription
\DisableCrossrefs
\setcounter{StandardModuleDepth}{1}
\GetFileInfo{okumacro.sty}
\begin{document}
  \DocInput{okumacro.dtx}
\end{document}
%</driver>
%
% \fi
%
% \title{$B;d2HHG%^%/%m=8(B}
% \author{$B1|B<@2I'(B}
% \date{\filedate}
% \maketitle
%
% \MakeShortVerb{\|}
%
% \section{$B$O$8$a$K(B}
%
% $B$3$l$O!X(B\pLaTeXe $BH~J8=q:n@.F~Lg!Y$J$I$NK\$r:n$C$?$H$-$K;H$C$?%^%/%m$r(B
% $B=8$a$?$b$N$G$9!#:n$C$?$@$1$G%F%9%H$b$7$F$$$J$$$b$N$J$I$b:.$8$C$F$$$k(B
% $B2DG=@-$,$"$j$^$9!#35$7$FB>$NJ}$K$O$"$^$jMxMQ2ACM$,$J$$$b$N$G$9!#(B
%
% \section{$B?tCM=8(B}
%
% \begin{itemize}
% \item B5: $182\,\mathrm{mm} \times 257\,\mathrm{mm}$
% \item B4: $257\,\mathrm{mm} \times 364\,\mathrm{mm}$
% \item A5: $148\,\mathrm{mm} \times 210\,\mathrm{mm}$
% \item A4: $210\,\mathrm{mm} \times 297\,\mathrm{mm}$
% \item $1\,\mathrm{in} = 72.27\,\mathrm{pt} = 2.54\,\mathrm{cm}$
% \item $1\,\mathrm{Q} = 0.25\,\mathrm{mm} = 0.711319\,\mathrm{pt}$
% \item $1\,\mathrm{pt} = 1.405839\,\mathrm{Q} = 0.3514598\,\mathrm{mm}$
% \item min10: $1\,\mathrm{zw} = 9.62216\,\mathrm{pt}
%       = 3.3818\,\mathrm{mm} = 13.5272\,\mathrm{Q}$,
%       $1\,\mathrm{zh} = 9.16443\,\mathrm{pt}$
% \item cmr10: $1\,\mathrm{em} = 10\,\mathrm{pt}$,
%       $1\,\mathrm{ex} = 4.30554\,\mathrm{pt}$
% \end{itemize}
%
% \StopEventually{}
%
% \section{$B;(%^%/%m(B}
%
% $B0J2<$,<B:]$N%^%/%m=8$G$9!#(B
%
%    \begin{macrocode}
%<*okumacro>
%    \end{macrocode}
%
% \begin{macro}{\ruby}
%
% |\ruby{$B1|(B}{$B$*$/(B}\ruby{$BB<(B}{$B$`$i(B}| $B$G(B\ruby{$B1|(B}{$B$*$/(B}\ruby{$BB<(B}{$B$`$i(B}$B$H(B
% $B$J$j$^$9!#(B|\ruby{$B1|B<(B}{$B$*$/$`$i(B}| $B$G$b$+$^$$$^$;$s$,!$1|$HB<$N4V$G(B
% $B9TJ,3d$,$G$-$J$/$J$j$^$9!#(B
%
% $BOBJ8%Y!<%9%i%$%s$,(B $88:12$ $B$N0LCV$K$"$k$3$H$r2>Dj$7$F;YCl$rF~$l$^$7$?!#(B
%
% $B%P%0!'(B |1\ruby{$B1|(B}{$B$*$/(B}1| $B$N$h$&$J>l9g$K(B |\xkanjiskip| $B$,F~$j$^$;$s!#(B
%
% [2003-02-09] $B%4%7%C%/BN$N%k%S$,%4%7%C%/BN$K$J$k%P%0!)$r=$@5$7$^$7$?!#(B
%
% [2003-05-29] $Bc7F#=$;0O:$5$s$N(BOTF$B%Q%C%1!<%8$N(Bexpert$B%*%W%7%g%s$KBP1~$7$^$7$?!#(B
%
% [2003-09-01] $B%*%W%7%g%s0z?t$GI}$,;XDj$G$-$k$h$&$K$7$^$7$?(B [2003-10-02$B%P%0%U%#%C%/%9(B]$B!#(B
%
%    \begin{macrocode}
\providecommand{\rubyfamily}{}
\def\kanjistrut{\vrule \@height0.88zw \@depth0.12zw \@width\z@}
\newcommand{\ruby}[3][0zw]{%
  \leavevmode
  \dimen1=#1\relax
  \dimen3=\f@size\p@
  \setbox1=\hbox{#2}%
  \setbox3=\hbox{\rubyfamily\fontsize{0.5\dimen3}{0pt}\selectfont #3}%
  \ifdim\dimen1=\z@
    \ifdim\wd1>\wd3 \dimen1=\wd1 \else \dimen1=\wd3 \fi
  \fi
  \hbox{%
    \kanjiskip=0pt plus 2fil
    \xkanjiskip=0pt plus 2fil
    \vbox{%
      \hbox to \dimen1{\rubyfamily
        \fontsize{0.5\dimen3}{0pt}\selectfont \kanjistrut
        \ifdim\dimen1<\wd3
          \hss\unhbox3\hss
        \else
          \hfil\unhbox3\hfil
        \fi
      }%
      \nointerlineskip
      \hbox to \dimen1{\kanjistrut\hfil\unhbox1\hfil}}}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\Ruby}
%
% $B%k%S$,N>B&$K%k%S$NH>J8;zJ,$:$D$O$_=P$7$F$b$$$$>l9g$K;H$$$^$9!#(B
% $B$?$@!$$3$l$rO"B3$7$F;H$&$H!$%k%S$,=E$J$j9g$C$F$7$^$$$^$9!#(B
%
% $B$3$l$O$"$^$jB8:_0U5A$,$J$$$N$G$H$j$"$($:>C$7$F$*$-$^$9!#(B
%
%    \begin{macrocode}
% \newcommand{\Ruby}[2]{%
%   \leavevmode
%   \setbox0=\hbox{#1}%
%   \mytempdima=\f@size\p@
%   \setbox1=\hbox{\fontsize{0.5\mytempdima}{0pt}\selectfont #2}%
%   \dimen0=\wd1 \advance \dimen0 by -0.5\mytempdima
%   \ifdim\wd0>\dimen0 \dimen0=\wd0 \fi
%   \hbox{%
%     \kanjiskip=0pt plus 2fil
%     \xkanjiskip=0pt plus 2fil
%     \vbox{%
%       \hbox to \dimen0{\normalfont\rubyfamily
%         \fontsize{0.5\mytempdima}{0pt}\selectfont \kanjistrut\hss#2\hss}%
%       \nointerlineskip
%       \hbox to \dimen0{\kanjistrut\hfil#1\hfil}}}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\kenten}
%
% \kenten{$B7wE@(B}$B$r?6$k%3%^%s%I$G$9!#(B
%
%    \begin{macrocode}
\def\kenten#1{%
  \ifvmode\leavevmode\else\hskip\kanjiskip\fi
  \setbox1=\hbox to \z@{$B!&(B\hss}%
  \ht1=.63zw
  \@kenten#1\end}
\def\@kenten#1{%
  \ifx#1\end \let\next=\relax \else
    \raise.63zw\copy1\nobreak #1\hskip\kanjiskip\relax
    \let\next=\@kenten
  \fi\next}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\kintou}
%
% $B4JC1$J6QEy3d$j%3%^%s%I$G$9!#(B
%
%    \begin{macrocode}
\newcommand{\kintou}[2]{%
  \leavevmode
  \hbox to #1{%
    \kanjiskip=0pt plus 1fil minus 1fil
    \xkanjiskip=\kanjiskip
    #2}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\$BMK(B}
%
% $B:#F|$NMKF|$r=PNO$7$^$9!#(B
%
%    \begin{macrocode}
\newcommand{\$BMK(B}{{\@tempcnta=\year \@tempcntb=\month
  \ifnum \@tempcntb<3
    \advance \@tempcnta by -1
    \advance \@tempcntb by 12
  \fi
  \multiply \@tempcntb by 13
  \advance \@tempcntb by 8
  \divide \@tempcntb by 5
  \advance \@tempcntb by \@tempcnta
  \divide \@tempcnta by 4
  \advance \@tempcntb by \@tempcnta
  \divide \@tempcnta by 25
  \advance \@tempcntb by -\@tempcnta
  \divide \@tempcnta by 4
  \advance \@tempcntb by \@tempcnta
  \advance \@tempcntb by \day
  \@tempcnta=\@tempcntb
  \divide \@tempcntb by 7
  \multiply \@tempcntb by 7
  \advance \@tempcnta by -\@tempcntb
  \ifcase \@tempcnta $BF|(B\or $B7n(B\or $B2P(B\or $B?e(B\or $BLZ(B\or $B6b(B\or $BEZ(B\fi}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\$B0';"(B}
%
% $B;~8u$N0';"$r=PNO$7$^$9!#(B
%
%    \begin{macrocode}
\def\$B0';"(B{\noindent $BGR7<(B\hspace{1zw}\ifcase\month\or
  $B874((B\or $B=U4((B\or $BAa=U(B\or $BM[=U(B\or $B?7NP(B\or $B8~=k(B\or
  $BLT=k(B\or $B;D=k(B\or $B=i=)(B\or $BCg=)(B\or $BHU=)(B\or $B=iE_(B\fi
  $B$N8u!$$^$9$^$9$4@61I$N$3$H$H$*4n$S?=$7>e$2$^$9!#(B}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\mytt}
%
% |\texttt| $B$G$O(B \verb/|/ |!| |@| |*| |-| |+| |=| |[| |]| |:| |;|
% |"| |`| |'| |<| |>| |?| |,| |.| |/| $B$O$=$N$^$^=P$;$^$9$,!$(B
% |!| |?| |.| |:| $B$N8e$OM>J,$J6u$-$,F~$j$^$9!#(B
% $B$^$?!$(B|#| |$| |&| |_| |{| |}| $B$O(B \texttt{\bslash} $B$GF($2$l$P;H$($^$9$,!$(B
% $B$=$&$7$F$b(B |_| |{| |}| $B$O@5$7$$(B \texttt{cmtt} $B%U%)%s%H$K$J$j$^$;$s!#(B
% $B$5$i$K!$(B|~| |^| $B$O(B \texttt{\bslash} $B$rIU$1$F$b8eB3$NJ8;z$N%"%/%;%s%H(B
% $B$N$h$&$K$J$C$F$7$^$$$^$9!J(B|\~{}|$B!$(B|\^{}| $B$N$h$&$K$9$l$P2?$H$+(B
% $B$J$j$^$9$,!K!#$3$3$GDj5A$9$k(B |\mytt| $B%^%/%m$r;H$($P!$(B
% |{| |}| $B$O(B \texttt{\bslash} $B$GF($2$l$P@5$7$$(B \texttt{cmtt} $B%U%)%s%H(B
% $B$K$J$j!$(B
% |#| |&| |_| |~| |^| $B$O(B \texttt{\bslash} $B$GF($2$J$/$F$b$=$N$^$^(B
% $B$G=PNO$G$-$^$9!#(B
% |$| $B$b$=$N$^$^=PNO$G$-$k$h$&$K$7$F$$$?$N$G$9$,!$(B
% $B?t<0%b!<%I$O;H$($?J}$,JXMx$J$N$G!$30$7$^$7$?!#(B
% $B$^$?!$(B|\\| $B$G1_0u$,=P$^$9!#(B
% |/|$B!$(B|\\|$B!$(B|.|$B!$(B|@|$B!$(B|-| $B$N8e$m$G2~9T$G$-$k$h$&$K$7$F$"$j$^$9!#(B
% |{\mytt ...}| $B$N$h$&$K$7$F;H$$$^$9!J(B|\mytt{...}| $B$G$O$"$j$^$;$s!K!#(B
% $B%9%Z!<%9$O<c43?-=L$9$k$h$&$K$7$^$7$?!#(B
% |\mbox{\mytt ...}| $B$N$h$&$K$7$F;H$($P!$(B
% $BOBJ8!&2$J84V$N%0%k!<$N<+F0A^F~$O$7$^$;$s!#(B
%
%    \begin{macrocode}
\def\myallowbreak{\@ifnextchar\egroup{}{\penalty\exhyphenpenalty}{}}
\begingroup
  \catcode`\-=\active
  \catcode`\.=\active
  \catcode`\/=\active
  \gdef\mytth@@k{%
    \catcode`\-=\active \def-{\char`\-\myallowbreak}%
    \catcode`\.=\active \def.{\char`\.\myallowbreak}%
    \catcode`\/=\active \def/{\char`\/\myallowbreak}%
  }
\endgroup
\def\mytt{\ttfamily
  \catcode`\#=12
  \catcode`\&=12
  \catcode`\^=12
  \catcode`\~=12
  \catcode`\_=12
  \chardef\{=`\{
  \chardef\}=`\}
  \chardef\_=`\_
% \def\\{Y\llap=\penalty\exhyphenpenalty{}}% $B!o5-9f(B
  \def\\{\char"5C\penalty\exhyphenpenalty{}}% $B%P%C%/%9%i%C%7%e(B
% \spaceskip=.5em  plus.25em minus.15em
  \spaceskip=.32em plus.16em minus.09em
  \frenchspacing
  \noautoxspacing
  \mytth@@k}
%    \end{macrocode}
% \end{macro}
%
% $B$3$l0J30$N5-9f$O<!$N$h$&$K$7$F=PNO$G$-$^$9!#(B
%
% \begin{quote}
%   |\texttt{\char"20}| \qquad \texttt{\char"20} $B8+$($k6uGr(B \\
%   |\texttt{\char"5C}| \qquad \texttt{\char"5C} $B%P%C%/%9%Z!<%9(B \\
%   |\texttt{\char"0B}| \qquad \texttt{\char"0B} $B>e8~$-Lp0u(B \\
%   |\texttt{\char"0C}| \qquad \texttt{\char"0C} $B2<8~$-Lp0u(B \\
%   |\texttt{\char"0D}| \qquad \texttt{\char"0D} $B:81&BP>N$J%7%s%0%k%/%)!<%H(B
% \end{quote}
%
% \begin{macro}{\yen}
% \begin{macro}{\BS}
%
% |\yen| $B$O1_0u!$(B|\BS| $B$O%P%C%/%9%i%C%7%e$G$9!#(B
%
%    \begin{macrocode}
\DeclareRobustCommand{\yen}{{\ooalign{Y\crcr\hss=\hss}}}
\providecommand{\BS}{\texttt{\char"5C}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
%
% \begin{macro}{\bslash}
%
% $B%P%C%/%9%i%C%7%e$O(B |doc| $B%Q%C%1!<%8$J$I$G$NDj5A$K=>$C$F$*$-$^$9!#(B
%
%    \begin{macrocode}
{\catcode`\|=\z@ \catcode`\\=12|gdef|bslash{\}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\asciibar}
%
% $B??$sCf$,>/$7ES@Z$l$?=DK@(B \asciibar\ $B$G$9!#(B
% \verb/|/ $B$KBP1~$9$k(BASCII$BJ8;z$G$9!#(B
%
%    \begin{macrocode}
\newcommand{\asciibar}{%
  \makebox[0.525em]{\rule[-0.2ex]{0.15ex}{0.7ex}\kern-0.15ex
    \rule[0.8ex]{0.15ex}{0.7ex}}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\$B!]!](B}
% \begin{macro}{\$B!=!=(B}
%
% $BG\3Q$N%@!<%7$G$9!#@N$O(B |\rule[0.33zh]{2zw}{.03zh}| $B$H$7$F$$$^$7$?$,!$(B
% $B$A$g$C$HDc$9$.$k$h$&$G$9!#OBJ8%U%)%s%H$N%Y!<%9%i%$%s(B
% $B$O(B $88:12$ $B$N$H$3$m$K$"$k$b$N$,B?$$$N$G!$(B0.38\,zw$B$N$H$3$m$KCf?4@~$,(B
% $BMh$k$[$&$,$$$$$h$&$G$9!#B@$5$b$A$g$C$H$@$1B@$/$7$^$7$?!#(B
%
%    \begin{macrocode}
% \def\$B!]!](B{\rule[0.36zw]{2zw}{0.04zw}}
%    \end{macrocode}
%
% $B$5$i$K$h$/9M$($?$i(B |\scalebox{2}[1]{$B!=(B}| $B$N$[$&$,$h$5$=$&$J$N$G!$(B
% |graphics| $B$^$?$O(B |graphicx| $B%Q%C%1!<%8$rFI$_9~$s$@>l9g$O$3$A$i$r;H$&$h$&$K$7$^$7$?!#(B
%
%    \begin{macrocode}
% \def\$B!]!](B{\@ifundefined{scalebox}{\rule[0.36zw]{2zw}{0.04zw}}{\scalebox{2}[1]{$B!=(B}}}
%    \end{macrocode}
%
% $B$5$i$K$$$m$$$m$J$40U8+$r$$$?$@$-!$<!$N$h$&$KD>$7$^$7$?!#(B
%
%    \begin{macrocode}
\def\$B!]!](B{$B!=(B\kern-.5zw$B!=(B\kern-.5zw$B!=(B}
%    \end{macrocode}
%
% $B>e$N$b$N$OA43Q%^%$%J%9Fs$D$G$7$?$,!$A43Q%@!<%7Fs$D$G$b$$$$$h$&$K$7$^$7$?!#(B
%
%    \begin{macrocode}
\def\$B!=!=(B{$B!=(B\kern-.5zw$B!=(B\kern-.5zw$B!=(B}
%    \end{macrocode}
%
% \end{macro}
% \end{macro}
%
%
% \section{$B%-!<%H%C%W!$!{?t;z(B}
%
% \begin{macro}{\removept}
%
% |#1| $B$KM?$($?(Bdimen$B%l%8%9%?$N(B pt $B$r>C$7$??tCM$r(B |#2| $B$N%^%/%m$K(B
% $BDj5A$7$^$9!#(B
%
%    \begin{macrocode}
\newcommand{\removept}[2]{%
  \edef#2{\expandafter\@removePT\the#1}}
{\catcode`p=12 \catcode`t=12 \gdef\@removePT#1pt{#1}}
% $B$7$+$7(B latex.ltx $B$G<!$N$h$&$KDj5A$5$l$F$$$^$7$?!#(B
% $B$3$l$r$=$N$^$^;H$C$?$i$h$+$C$?!#(B
% \begingroup
%   \catcode`P=12
%   \catcode`T=12
%   \lowercase{
%     \def\x{\def\rem@pt##1.##2PT{##1\ifnum##2>\z@.##2\fi}}}
%   \expandafter\endgroup\x
% \def\strip@pt{\expandafter\rem@pt\the}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\keytop}
%
% $B$3$l$r;H$C$F%-!<%H%C%W5-9f$r:n$j$^$9!#(B
%
%    \begin{macrocode}
\newcommand{\keytop}[1]{{\leavevmode\kern1pt
  \setbox1=\hbox{\normalfont\sffamily [}%
  \dimen1=\ht1
  \removept{\dimen1}{\tempC}%
  \setbox0=\hbox{\normalfont\sffamily #1}%
  \dp0=0pt
  \dimen0=\wd0
  \ifdim\dimen0<\ht1 \dimen0=\ht1 \fi
  \advance \dimen0 by 5pt
  \removept{\dimen0}{\tempA}%
  \divide \dimen0 by 2
  \removept{\dimen0}{\tempB}%
  \unitlength=1pt
  \advance \dimen1 by 2pt
  \hbox{\vrule height\dimen1 depth2pt width0pt}%
  \begin{picture}(\tempA,\tempC)
    \put(0,0){\line(0,1){\tempC}}
    \put(\tempA,0){\line(0,1){\tempC}}
    \put(\tempB,0){\oval(\tempA,4)[b]}
    \put(\tempB,\tempC){\oval(\tempA,4)[t]}
    \put(\tempB,0){\makebox(0,0)[b]{\box0}}
  \end{picture}\kern1pt}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\return}
%
% $B%j%?!<%s%-!<$N5-9f$G$9!#(B
%
%    \begin{macrocode}
\def\RETMARK{{\unitlength=1pt
  \setbox0=\hbox{\normalfont\ttfamily [}%
  \dimen0=\ht0
  \removept{\dimen0}{\tempA}%
  \advance \dimen0 by -1pt
  \removept{\dimen0}{\tempB}%
  \begin{picture}(\tempA,\tempA)
    \put(\tempA,1){\line(0,1){\tempB}}
    \put(\tempA,1){\vector(-1,0){\tempA}}
  \end{picture}}}
\newcommand{\return}{\keytop{\RETMARK}}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\upkey}
% \begin{macro}{\downkey}
% \begin{macro}{\rightkey}
% \begin{macro}{\leftkey}
%
%    $B>e2<1&:8$NLp0u%-!<$G$9!#(B
%
%    \begin{macrocode}
\newcommand{\upkey}{\raisebox{-2pt}{%
  \setlength{\unitlength}{1pt}%
  \thinlines
  \begin{picture}(14,9)
    \put(7,2){\vector(0,1){8}}
    \put(1,2){\line(0,1){7}}
    \put(13,2){\line(0,1){7}}
    \put(7,9){\oval(12,4)[t]}
    \put(7,2){\oval(12,4)[b]}
  \end{picture}%
}}
\newcommand{\downkey}{\raisebox{-2pt}{%
  \setlength{\unitlength}{1pt}%
  \thinlines
  \begin{picture}(14,9)
    \put(7,10){\vector(0,-1){8}}
    \put(1,2){\line(0,1){7}}
    \put(13,2){\line(0,1){7}}
    \put(7,9){\oval(12,4)[t]}
    \put(7,2){\oval(12,4)[b]}
  \end{picture}%
}}
\newcommand{\rightkey}{\raisebox{-2pt}{%
  \setlength{\unitlength}{1pt}%
  \thinlines
  \begin{picture}(14,9)
    \put(3,6){\vector(1,0){8}}
    \put(1,2){\line(0,1){7}}
    \put(13,2){\line(0,1){7}}
    \put(7,9){\oval(12,4)[t]}
    \put(7,2){\oval(12,4)[b]}
  \end{picture}%
}}
\newcommand{\leftkey}{\raisebox{-2pt}{%
  \setlength{\unitlength}{1pt}%
  \thinlines
  \begin{picture}(14,9)
    \put(11,6){\vector(-1,0){8}}
    \put(1,2){\line(0,1){7}}
    \put(13,2){\line(0,1){7}}
    \put(7,9){\oval(12,4)[t]}
    \put(7,2){\oval(12,4)[b]}
  \end{picture}%
}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% \end{macro}
% \end{macro}
% 
% \begin{macro}{\MARU}
%
% $B4]$G0O$s$@J8;z$G$9!#(B
%
% [2003-01-24] |graphicx| $B$N$H$->/$78+1G$($,NI$/$J$k$h$&$K$7$^$7$?!#(B
%
%    \begin{macrocode}
% \newcommand{\MARU}[1]{{%
%   \ooalign{\hfil#1\/\hfil\crcr\raise.167ex\hbox{\mathhexbox20D}}}}
\newcommand{\MARU}[1]{{%
    \ooalign{\hfil
      \@ifundefined{scalebox}{%
        #1\/\hfil\crcr\raise.167ex}{\raise.1zw\hbox{\scalebox{0.8}{#1\/}}\hfil\crcr\raise.1zw}%
      \hbox{\fontencoding{OMS}\fontfamily{cmsy}\fontseries{m}\fontshape{n}\selectfont
        \char"0D}}}}
%    \end{macrocode}
% \end{macro}
%
% $B$=$NB>$N%m%4$G$9!#(B
%
%    \begin{macrocode}
% \newcommand{\MuTeX}{M\kern-.15em\raise.2ex\hbox{u}\kern-.32em\TeX}
\newcommand{\PiC}{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC}
\newcommand{\PiCTeX}{\PiC\kern-.11em\TeX}
\newcommand{\JTeX}{\leavevmode\lower.5ex\hbox{J}\kern-.17em\TeX}
\newcommand{\JLaTeX}{\leavevmode\lower.5ex\hbox{\rm J}\kern-.17em\LaTeX}
\DeclareRobustCommand{\JBibTeX}{$\mbox{%
    \lower.5ex\hbox{J}\ifx\f@family\cmr\kern-.15em\else\kern-.05em\fi
    \BibTeX}$}
\newcommand{\pTeXsT}{p\kern-.21em\TeX\kern-.10em s\kern-.21em T}
% $B%$%s%W%l%9$N?7(B TeX $B$N2>>N(B
\newcommand{\iTeX}{\accent'27\i\TeX}
% $B:y0f$5$s$N?7(B TeX $B$N%m%4!J2>!K(B
\newcommand{\MlTeX}{M\kern-.1667em\lower.5ex\hbox{L}\kern-.25em\TeX}
%    \end{macrocode}
%
% METAFONT$B$N%m%4$r=P$9J}K!$O$$$m$$$m$"$j$^$9!#$^$:8E$$J}K!$G!$(B
% |manfnt| $B$r;H$&$b$N$G$9!#(B
%
%\begin{verbatim}
% \font\manual=manfnt
% \font\manLarge=manfnt scaled \magstep 2
% \font\manHuge=manfnt scaled \magstep 5
% \newcommand{\MF}{%
%   \ifx\@currsize\small
%     {\manual hijk}\-{\manual lmnj}% 9pt
%   \else
%     \ifx\@currsize\footnotesize
%       \ifdim \fontdimen\@ne\font>\z@
%         {\manual \char92\char93\char94\char95efg\char94}% 8pt slanted
%       \else
%         {\manual opqr}\-{\manual stuq}% 8pt
%       \fi
%     \else
%       \ifx\@currsize\Large
%         {\manLarge META}\-{\manLarge FONT}% mag2 (14pt)
%       \else
%         \ifx\@currsize\Huge
%           {\manHuge META}\-{\manHuge FONT}% mag5 (25pt)
%         \else % \normalsize
%           \ifdim \fontdimen\@ne\font>\z@
%             {\manual 89:;<=>:}% 10pt slanted
%           \else
%             {\manual META}\-{\manual FONT}% 10pt
%           \fi
%         \fi
%       \fi
%     \fi
%   \fi}
%\end{verbatim}
%
% $B<!$O(B |logo| $B$r;H$&J}K!$G$9!#(B
%
%\begin{verbatim}
%\font\logoTen=logo10
%\font\logoEight=logo8
%\font\logoLarge=logo10 scaled \magstep 2
%\font\logoHuge=logo10 scaled \magstep 5
%\newcommand{\MF}{%
%  \ifx\@currsize\Large
%    {\logoLarge META}\-{\logoLarge FONT}%
%  \else
%    \ifx\@currsize\Huge
%      {\logoHuge META}\-{\logoHuge FONT}%
%    \else
%       \ifx\@currsize\footnotesize
%         {\logoEight META}\-{\logoEight FONT}%
%       \else
%         {\logoTen META}\-{\logoTen FONT}%
%       \fi
%    \fi
%  \fi}
%\end{verbatim}
%
% \LaTeXe $B$NJ}K!$H$7$F$O!$(B
% $B<!$N$h$&$J(B |ulogo.fd| $B$r:n$C$F$*$-$^$9!#(B
%
%\begin{verbatim}
%\DeclareFontFamily{U}{logo}{}
%\DeclareFontShape{U}{logo}{m}{n}{%
%      <5><6><7><8>logo8%
%      <9>logo9%
%      <10><10.95><12><14.4><17.28><20.74><24.88>logo10}{}
%\DeclareFontShape{U}{logo}{m}{sl}{%
%      <5><6><7><8><9>logosl9%
%      <10><10.95><12><14.4><17.28><20.74><24.88>logosl10}{}
%\DeclareFontShape{U}{logo}{bx}{n}{%
%      <5><6><7><8><9>%
%      <10><10.95><12><14.4><17.28><20.74><24.88>logobf10}{}
%\DeclareFontShape{U}{logo}{m}{it}
%  {<->ssub*logo/m/sl}{}
%\end{verbatim}
%
% $B$3$l$G<!$N$h$&$K$7$^$9!#(B
%
%\begin{verbatim}
% \DeclareRobustCommand{\MF}{{\fontfamily{logo}\selectfont META}\-%
%   {\fontfamily{logo}\selectfont FONT}}
% \DeclareRobustCommand{\MP}{{\fontfamily{logo}\selectfont META}\-%
%   {\fontfamily{logo}\selectfont POST}}
%\end{verbatim}
%
% $B$7$+$7$h$/D4$Y$F$_$?$iF1MM$J$b$N$,(B |mflogo.sty|$B!$(B|ulogo.fd|
% $B$H$7$FG[I[$5$l$F$$$^$7$?$N$G!$$=$A$i$r;H$&$3$H$K$7$^$9!#(B
%
% \section{$B$$$m$$$m$J4D6-(B}
%
% \begin{environment}{dangerous}
%
% $B;29M;v9`$r%a%bIw$KIU$1$k4D6-$G$9!#1tI.5-9f$r;H$&$h$&$K$7$^$7$?!#(B
%
%    \begin{macrocode}
%\newcommand{\dangerouslabel}[1]{{%
%  \setlength{\fboxsep}{1pt}%
%  \fbox{\footnotesize\bfseries #1}}}
\newenvironment{dangerous}{%
  \vspace{3pt}%
  \begin{list}{\ding{"2E}}{%
%   \let\makelabel=\dangerouslabel
    \setlength{\leftmargin}{3zw}%
    \setlength{\itemindent}{0pt}%
    \setlength{\labelwidth}{2zw}%
    \setlength{\labelsep}{6pt}%
    \setlength{\rightmargin}{0pt}%
    \setlength{\itemsep}{0.5\baselineskip}%
    \setlength{\parsep}{0pt}%
    \setlength{\topsep}{0.5\baselineskip}%
    \setlength{\partopsep}{0pt}%
    \setlength{\listparindent}{0zw}%
  }\small}{\end{list}}
%    \end{macrocode}
% \end{environment}
%
% \begin{environment}{namelist}
%    |\begin{namelist}{xxxx} \item[...] ... \end{namelist}| $B$G(B
%    $B8+=P$7$r(B |xxxx| $B$NI}$K$7$?%j%9%H$r:n$j$^$9!#(B
%    \begin{macrocode}
% \newcommand{\namelistlabel}[1]{{#1}\ \dotfill\ }
\newcommand{\namelistlabel}[1]{\hspace{1zw}#1\hfil}
\newenvironment{namelist}[1]{%
  \begin{list}{}{%
    \let\makelabel=\namelistlabel
    \settowidth{\labelwidth}{#1}%
    \addtolength{\labelwidth}{2zw}%
    \setlength{\leftmargin}{\labelwidth}%
    \setlength{\labelsep}{0pt}%
  }}{\end{list}}
%    \end{macrocode}
% \end{environment}
%
% \begin{environment}{mybibliography}
%
% |thebibliography| $B$H$[$\F1$8;29MJ88%%j%9%H4D6-$G$9$,!$(B
% $B>O!J@a!K8+=P$7$r=PNO$;$:!$%+%&%s%?$r%j%;%C%H$7$^$;$s!#(B
% |thebibliography| $B$HF1$8(B |enumiv| $B$H$$$&%+%&%s%?$r;H$C$F$$$^$9$N$G!$(B
% $BI,MW$K1~$8$F(B
% \begin{quote}
%   |\setcounter{enumiv}{0}|
% \end{quote}
% $B$H$7$F=i4|2=$7$F$/$@$5$$!#(B
%
%    \begin{macrocode}
\newenvironment{mybibliography}[1]{%
   \list{\@biblabel{\@arabic\c@enumiv}}%
        {\settowidth\labelwidth{\@biblabel{#1}}%
         \leftmargin\labelwidth
         \advance\leftmargin\labelsep
         \@openbib@code
         \@nmbrlisttrue\def\@listctr{enumiv}%
         \let\p@enumiv\@empty
         \renewcommand\theenumiv{\@arabic\c@enumiv}}%
   \sloppy
   \clubpenalty4000
   \@clubpenalty\clubpenalty
   \widowpenalty4000%
   \sfcode`\.\@m}
  {\def\@noitemerr
    {\@latex@warning{Empty `mybibliography' environment}}%
   \endlist}
%    \end{macrocode}
% \end{environment}
%
% \begin{environment}{FRAME}
%
% $BOH$G$9!#(B
%
%    \begin{macrocode}
\newenvironment{FRAME}{\begin{trivlist}\item[]
  \hrule width\linewidth
  \hbox to \linewidth\bgroup
    \advance\linewidth by -30pt
    \hsize=\linewidth
    \vrule\hfill
    \vbox\bgroup
      \vskip15pt
      \def\thempfootnote{\arabic{mpfootnote}}% $B5SCm$r;;MQ?t;z$K(B
      \begin{minipage}{\linewidth}}{%
      \end{minipage}\vskip15pt
    \egroup\hfill\vrule
  \egroup\hrule width\linewidth
  \end{trivlist}}
\newcommand{\SHUTTEN}[1]{%
  \par\nobreak\removelastskip\rightline{\small#1}\medbreak}
%    \end{macrocode}
% \end{environment}
%
% \begin{environment}{screen}
%
% $B%9%/%j!<%sIw$N4D6-$G$9!#85$O(B |ascmac.sty| $B$K$"$C$?$N$@$H(B
% $B;W$$$^$9$,!$$+$J$j2~JQ$7$?$+$b$7$l$^$;$s!#(B
%
% |\begin{screen}[0.75]| $B$N$h$&$K%*%W%7%g%s$N?tCM$rM?$($k$H(B
% $B2#I}$r(B0.75$BG\$9$k$h$&$K$7$F$_$^$7$?!#(B
% $BG\N($,(B 1 $B0J30$N>l9g$O(B \texttt{graphicx} $B%Q%C%1!<%8$,I,MW$G$9!#(B
% $B2hLL=PNONc$,%3%i%`I}$rD6$($k>l9g$NBP=hK!$H$7$FM-8z$+$b$7$l$^$;$s!#(B
% $B$?$@!$(Bscreen$B4D6-$N:G=i$K(B |[| $B$,Mh$k>l9g$O8mF0:n$7$^$9$N$G!$(B|\relax|
% $B$+(B |{}| $B$rF~$l$F8mKb2=$7$F$/$@$5$$!#(B
%
%    \begin{macrocode}
\newdimen\@scw
\newbox\scb@x
\newenvironment{screen}[1][1]%
 {\def\screensc@le{#1}\@scw=\linewidth \advance \@scw by -20pt
  \setbox\scb@x=\hbox\bgroup\begin{minipage}[b]{\@scw}}%
     % $B$^$?$O(B \setbox\scb@x=\vbox\bgroup\advance \linewidth by -20pt \relax
 {\end{minipage}\egroup
  \dimen0=\linewidth \removept{\dimen0}{\hsPT}%
  \divide \dimen0 by 2 \removept{\dimen0}{\hhsPT}%
  \dimen0=\ht\scb@x \advance \dimen0 by 10pt
  \removept{\dimen0}{\htxPT}%
  \begin{flushleft}
    \vspace{6.5pt}%
    \begin{picture}(\hsPT,\htxPT)
      \put(\hhsPT,\htxPT){\oval(\hsPT,10)[t]}
      \put(0,0){\line(0,1){\htxPT}}
      \put(\hsPT,0){\line(0,1){\htxPT}}
      \put(\hhsPT,0){\oval(\hsPT,10)[b]}
      \put(10,5){\ifdim\screensc@le pt=1pt \box\scb@x
                 \else\scalebox{\screensc@le}[1]{\box\scb@x}\fi}
    \end{picture}%
  \end{flushleft}}
%    \end{macrocode}
% \end{environment}
%
% \begin{environment}{EXAMPLE}
%
% $B=PNONc$G$9!#$:$$$V$sA0$K:n$C$?$N$G!$:F8!F$$NMW$,$"$j$^$9!#(B
%
%    \begin{macrocode}
\newdimen\EXAMPLEWIDTH
\newenvironment{EXAMPLE}{\begin{flushleft}\EXAMPLEWIDTH=\linewidth
  }{\end{flushleft}}
\newenvironment{IN}{%
  \makebox[35pt][l]{\small\fbox{$BF~NO(B}}%
  \advance \linewidth by -35pt
  \begin{minipage}[t]{\linewidth}}{%
  \end{minipage}\\[6pt]}
\newenvironment{OUT}{%
  \makebox[35pt][l]{\small\fbox{$B=PNO(B}}%
  \advance \linewidth by -35pt
  \begin{minipage}[t]{\linewidth}}{%
  \end{minipage}}
\newcommand{\INEX}{\medbreak\noindent
  \framebox[\columnwidth][l]{\small\hskip2zw $BF~NO(B}\nobreak
  \begin{quote}\small}
\newcommand{\OUTEX}{\end{quote}
  \framebox[\columnwidth][l]{\small\hskip2zw $B=PNO(B}\nobreak
  \begin{quotation}\small}
\newcommand{\ENDEX}{\end{quotation}\bigbreak}
\newcommand{\ENDEXC}[1]{\end{quotation}\nobreak
  \begin{flushright}\footnotesize#1\end{flushright}\bigbreak}
%    \end{macrocode}
% \end{environment}
%
% \section{$B;((B}

% \begin{macro}{\whichpage}
%
% |\whichpage{$B;2>HL>(B}| $B$G!$$=$N%Z!<%8$,F1$8%Z!<%8$K$"$l$P2?$b=PNO$;$:!$(B
% $B$=$&$G$J$1$l$P!J<!%Z!<%8!K!JA0%Z!<%8!K!J(B123$B%Z!<%8!K$N$h$&$J7A<0$G(B
% $B>l=j$r=PNO$7$^$9!#(B
%
%    \begin{macrocode}
\def\whichpage#1{%
  \expandafter\ifx\csname r@#1\endcsname\relax
  \else
    \@tempcnta\pageref{#1}\relax
    \advance\@tempcnta-\c@page
    \ifnum\@tempcnta=0
    \else
      \ifnum\@tempcnta=1 $B!J<!%Z!<%8!K(B
      \else
        \ifnum\@tempcnta=-1 $B!JA0%Z!<%8!K(B
        \else $B!J(B\pageref{#1}$B%Z!<%8!K(B
        \fi
      \fi
    \fi
  \fi}
%    \end{macrocode}
% \end{macro}
%
% \begin{environment}{migiake}
%
%    $B$4$/4JC1$J1&6u$1%3%^%s%I$G$9!#;H$C$F$$$^$;$s!#(B
%
%    \begin{macrocode}
% \newenvironment{migiake}[1]{%
%   \setlength{\rightskip}{#1}\samepage}{\par}
%    \end{macrocode}
% \end{environment}
%
% \begin{macro}{\rightfig}
%
%    $B$b$&>/$7$^$7$J1&6u$1$G$9!#(B
%    |#1| $B$O6u$1I}(B, |#2| $B$O9T?t(B, |#3| $B$O?^$dI=$G$9!#(B
%
%    \begin{macrocode}
% \def\rightfig#1#2#3{\noindent
%   \dimen0=\baselineskip \multiply \dimen0 by #2
%   \advance\dimen0 by -\baselineskip \advance\dimen0 by 2ex
%   \hangindent=-#1 \hangafter=-#2
%   \raise 2ex \hbox to 0pt{\smash{\vtop to \dimen0{\vfil
%   \vbox{\hfill \hbox to #1{ \ \hfill #3}}\vfil
%   }}\hss}\hskip\parindent\ignorespaces}
%    \end{macrocode}
% \end{macro}
%
% $B4A;z$NI}$r(Btt$B%U%)%s%H(B2$BJ8;zJ,$K$7$^$9!#;H$C$F$$$^$;$s!#(B
%
%    \begin{macrocode}
% \newcommand{\kanjitt}[1]{\texttt{\kanjiskip0.083595em\relax#1}}
%    \end{macrocode}
%
% \begin{environment}{shadebox}
%
% $B1FIU$-$NH"$G$9!#(B|ascmac.sty| $B$+$i<h$j$^$7$?!#(B
%
%    \begin{macrocode}
\newdimen\shaderule \shaderule 5\p@
\def\shadebox{\dimen0\linewidth \advance\dimen0-20\p@ 
  \advance\dimen0-2\fboxrule \advance\dimen0-\shaderule
  \setbox\@tempboxa=\hbox\bgroup\minipage{\dimen0}}
\def\endshadebox{\endminipage\egroup\dimen0=10\p@ \advance\dimen0-\fboxrule
  \setbox\@tempboxa=\hbox{\kern\dimen0\unhbox\@tempboxa\kern\dimen0}%
  \setbox0=\vbox{\hrule\@height \fboxrule
  \hbox{\vrule\@width \fboxrule \hskip-\fboxrule
  \vbox{\vskip\fboxsep \box\@tempboxa\vskip\fboxsep}%
  \hskip-\fboxrule\vrule \@width \fboxrule}\hrule \@height \fboxrule}%
  \dimen0=\ht0 \advance\dimen0-\shaderule
  \hbox{\hbox to \shaderule{\copy0\hss}\kern \z@
  \vrule\@width\wd0\@height\z@\@depth\shaderule\hskip-\shaderule
  \vrule\@width\shaderule\@height\dimen0}}
%    \end{macrocode}
% \end{environment}
%
% \begin{environment}{sankou}
%
% $B;29M!J(Bdangerous bend $BIw!K$N4D6-$G$9!#(B
%
%    \begin{macrocode}
\def\sankoumark{{\small $B!z(B}}
\newenvironment{sankou}{\vspace{3pt}%
  \begin{list}{}{%
    \setlength{\leftmargin}{3zw}%
    \setlength{\itemindent}{0pt}%
    \setlength{\labelwidth}{2zw}%
    \setlength{\labelsep}{6pt}%
    \setlength{\rightmargin}{0pt}%
    \setlength{\itemsep}{0pt}%
    \setlength{\parsep}{0pt}%
    \setlength{\topsep}{0.5\baselineskip}%
    \setlength{\partopsep}{0pt}%
    \setlength{\listparindent}{0zw}%
  }\item[\sankoumark]\small}{\end{list}}
%    \end{macrocode}
% \end{environment}
%
% \begin{environment}{toi}
%
% $BLd$$$N4D6-$G$9!#(B
%
%    \begin{macrocode}
\def\toimark{{\small\bf $B!ZLd![(B}}
\newenvironment{toi}{\vspace{3pt}%
  \begin{list}{}{%
    \setlength{\leftmargin}{3zw}%
    \setlength{\itemindent}{0pt}%
    \setlength{\labelwidth}{2zw}%
    \setlength{\labelsep}{6pt}%
    \setlength{\rightmargin}{0pt}%
    \setlength{\itemsep}{0pt}%
    \setlength{\parsep}{3pt plus 1pt minus 1pt}%
    \setlength{\topsep}{3pt plus 1pt minus 1pt}%
    \setlength{\partopsep}{3pt plus 6pt minus 1pt}%
    \setlength{\listparindent}{0zw}%
  }\item[\toimark]\small}{\end{list}}
%    \end{macrocode}
% \end{environment}
%
% $B1Q8lMQ$N9TAw$j$K@Z$jBX$($k%3%^%s%I$G$9$,!$;H$C$F$$$^$;$s!#(B
%
%    \begin{macrocode}
% \def\english{%
%   \ifx\@currsize\normalsize   \fontsize{10}{12pt}\selectfont\else
%   \ifx\@currsize\small        \fontsize{9}{11pt}\selectfont\else
%   \ifx\@currsize\footnotesize \fontsize{8}{9.5pt}\selectfont\fi\fi\fi}
%    \end{macrocode}
%
%    \begin{macrocode}
% \newcommand{\shima}{dvi\-out\slash dvi\-prt\index{dviout/dviprt}}
\providecommand{\eps}{\varepsilon}
% \newcommand{\zip}{$B")(B\kern0pt\relax}
% \def\mathpalette#1#2{\mathchoice{#1\displaystyle{#2}}%
%   {#1\textstyle{#2}}{#1\scriptstyle{#2}}{#1\scriptscriptstyle{#2}}}
% $B!e(B, $B!f!$!a$N>e2<$KE@(B
\def\LEQQ{\mathrel{\mathpalette\gl@align<}}
\def\GEQQ{\mathrel{\mathpalette\gl@align>}}
\def\gl@align#1#2{\lower.6ex\vbox{\baselineskip\z@skip\lineskip\z@
    \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr}}}
\def\APPROX{\mathrel{\mathpalette\ap@align{\smash.}}}
\def\ap@align#1#2{\lower.2ex\vbox{\baselineskip\z@skip\lineskip\z@
    \def\finsm@sh{\ht\z@.2ex \dp\z@.2ex \box\z@}%
    \ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr#2\crcr}}}
%%% Fractions like 1/2 by DEK (TUGboat, 6(1):36, TeXbook (Excercise 11.6))
\def\FRAC#1#2{\leavevmode\kern.1em
  \raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em
  /\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}}
\newcommand{\hk}{\hspace{\kanjiskip}}
\newcommand{\hx}{\hspace{\xkanjiskip}}
\newcommand{\3}{\penalty300 }
\newcommand{\5}{\penalty50 }          % \penalty\exhyphenpenalty
%    \end{macrocode}
%
% \begin{macro}{\>}
% $BA43Q%3%s%^$ND>8e$KH>3QJ8;z$,Mh$?>l9g!$A43Q%3%s%^$N8e$KA^F~$7$F!$(B
% $BH>3Q6uGr$HF1$8$@$1$N?-=L$r;}$?$;$k$?$a$N%0%k!<A^F~%3%^%s%I$G$9!#(B
% $B;H$C$F$$$^$;$s!#(B
%    \begin{macrocode}
% \newcommand{\>}{\relax
%   \ifmmode\mskip\medmuskip\else\hskip0em plus0.167em minus0.111em\fi}
%    \end{macrocode}
% \end{macro}
%
% \begin{macro}{\ANGLE}
% Angle brackets $B$G$9!#(B
%    \begin{macrocode}
\newcommand{\ANGLE}[1]{%
  $\langle$\kern0pt\nobreak{#1}\kern0pt\nobreak$\rangle$}
%    \end{macrocode}
% \end{macro}
%
% $BJ,?t4X78$G$9!#(B\texttt{amstex} $B%Q%C%1!<%8$G$b$[$\F1$8$b$N$,(B
% $BDj5A$5$l$F$$$^$9$,!$(B\texttt{amstex} $B%Q%C%1!<%8$N(B |\cfrac| $B$G(B
% $B$O(B |\mathstrut| $B$G$O$J$/(B |\strut| $B$,;H$o$l$F$$$k$?$a!$(B
% $BOBJ8%9%?%$%k$G9TAw$j$,Bg$-$$>l9g$K$O!$$A$g$C$H4V1d$S$7$F$7$^$$$^$9!#(B
%    \begin{macrocode}
% \providecommand{\tfrac}[2]{{\textstyle\frac{#1}{#2}}}
% \providecommand{\dfrac}[2]{{\displaystyle\frac{#1}{#2}}}
% \providecommand{\cfrac}[2]{\dfrac{\mathstrut #1}{#2}}
%    \end{macrocode}
%
% \begin{macro}{\dalembert}
% D'Alembertian$B!J(B|\Box| $B$h$j>/!9Bg$-$$;M3Q!K$G$9!#(B
%    \begin{macrocode}
% \newcommand{\dalembert}{{%
%   \setlength{\unitlength}{0.1em}%
%   \begin{picture}(8,8)
%     \thinlines
%     \put(1,0){\framebox(6,6){}}
%   \end{picture}}}
%    \end{macrocode}
% \end{macro}
% 
% \begin{macro}{\kanjibox}
% $B4A;z$NBg$-$5$NH"$G$9!#;H$C$F$$$^$;$s!#(B
%    \begin{macrocode}
% \newcommand{\kanjibox}{{\setlength{\unitlength}{0.1091175zw}%
%   \begin{picture}(9.62216,7.77588)\thinlines
%   \put(0,-1.38855){\framebox(9.16443,9.16443){}}\end{picture}}}
%    \end{macrocode}
% \end{macro}
% 
% Poor person's blackboard bold$B$G$9(B
% \footnote{Robert Messer, ``Blackboard Bold.''
%   \textit{TUGboat} 9(1):19--20, 1988.}$B!#(B
% 
% \begin{macro}{\R}
% \begin{macro}{\C}
%    \begin{macrocode}
% \def\R{{\rm I\kern-.17em R}} % (-.25em in the above literature)
% \def\C{{\rm\kern.24em\vrule width.02em height1.4ex depth-.05ex\kern-.26em C}}
%    \end{macrocode}
% \end{macro}
% \end{macro}
% 
% \begin{macro}{\$B3t(B}
%    \begin{macrocode}
\newcommand{\$B3t(B}{\hspace{\kanjiskip}\<$B!J3t!K(B\<\hspace{\kanjiskip}}
%    \end{macrocode}
% \end{macro}
% 
% \begin{macro}{\CVS}
%
% CVS$BMQ!#(B
%
%    \begin{macrocode}
% \def\CVS$#1: #2 ${\expandafter\def\csname CVS#1\endcsname{#2}}
%    \end{macrocode}
% \end{macro}
%
%\begin{verbatim}
% \CVS$Revision: 1.7 $
% \CVS$Date: 2000/06/09 05:55:02 $
% $B$3$NJ8=q$N%P!<%8%g%s$O(B\CVSRevision $BHG$G$"$k!#(B
%\end{verbatim}
% $B$N$h$&$K;H$$$^$9!#(B
%
% [2003-02-16..17] |js*| $B%/%i%9$G?t<0$NA08e$N%9%Z!<%9$,<c43JQ$o$C$F$7$^$$$^$9!#(B
% $B$H$j$"$($:(B |amsmath| $B$N(B |equation(*)|$B!$(B|align(*)| $B4D6-$NN`$@$1$3$3$GD>$7$F$*$-$^$9!#(B
% $B$3$N$"$?$j$O$^$?8+D>$7$^$9!#(B
%
%    \begin{macrocode}
\@ifundefined{widebaselines}{}{%
  \let\endmathdisplaysave=\endmathdisplay
  \def\endmathdisplay{\widebaselines\endmathdisplaysave}}
  \let\start@alignsave=\start@align
  \def\start@align{\vspace{4pt}\start@alignsave}
%    \end{macrocode}
%
% $B0J>e$G=*$o$j$G$9!#(B
%
%    \begin{macrocode}
%</okumacro>
\endinput
%    \end{macrocode}
%
% ^^A \endinput $B$N8e$K(B \CharacterTable $B$r=q$$$F$*$1$P!$;R%U%!%$%k$K$O(B
% ^^A $B=PNO$5$l$^$;$s!#%A%'%C%/$O(B *.dtx $B$r=hM}$7$?$H$-$K$7$F$/$l$^$9!#(B
%
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%
% \Finale
