fix encoding

git-svn-id: svn://tug.org/texlive/trunk@30500 c570f23f-e606-0410-a88d-b1316a301751

6 files changed, 321 insertions, 321 deletions

diff --git a/Master/texmf-dist/tex/platex/jsclasses/jsarticle.cls b/Master/texmf-dist/tex/platex/jsclasses/jsarticle.cls
index cda0820cc83..d0e21549e62 100644
--- a/Master/texmf-dist/tex/platex/jsclasses/jsarticle.cls
+++ b/Master/texmf-dist/tex/platex/jsclasses/jsarticle.cls
@@ -408,11 +408,11 @@
     \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
     \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
 \fi
-\prebreakpenalty\jis"2147=10000      % 5000   $B!G(B
-\postbreakpenalty\jis"2148=10000     % 5000   $B!H(B
-\prebreakpenalty\jis"2149=10000      % 5000   $B!I(B
-\inhibitxspcode`$B!*(B=1
-\inhibitxspcode`$B")(B=2
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+\inhibitxspcode`！=1
+\inhibitxspcode`〒=2
 \xspcode`+=3
 \xspcode`\%=3
 \xspcode`^^80=3
@@ -971,10 +971,10 @@
         \ifnum #2>\c@secnumdepth \else
           \protect\numberline{\csname the#1\endcsname}%
         \fi
-        #7}}% $BL\<!$K%U%k%M!<%`$r:\$;$k$J$i(B #8
+        #7}}% 目次にフルネームを載せるなら #8
   \else
     \begingroup
-      \interlinepenalty \@M % $B2<$+$i0\F0(B
+      \interlinepenalty \@M % 下から移動
       #6{%
         \@hangfrom{\hskip #3\relax\@svsec}%
         #8\@@par}%
@@ -984,7 +984,7 @@
       \ifnum #2>\c@secnumdepth \else
         \protect\numberline{\csname the#1\endcsname}%
       \fi
-      #7}% $BL\<!$K%U%k%M!<%`$r:\$;$k$J$i$3$3$O(B #8
+      #7}% 目次にフルネームを載せるならここは #8
   \fi
   \@xsect{#5}}
 \def\@xsect#1{%
@@ -1090,8 +1090,8 @@
   \newcommand{\section}{%
     \if@slide\clearpage\fi
     \@startsection{section}{1}{\z@}%
-    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% $BA0%"%-(B
-    {.5\Cvs \@plus.3\Cdp}% $B8e%"%-(B
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
     {\normalfont\Large\headfont\raggedright}}
 \fi
 \if@twocolumn
@@ -1100,8 +1100,8 @@
     {\normalfont\normalsize\headfont}}
 \else
   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
-    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% $BA0%"%-(B
-    {.5\Cvs \@plus.3\Cdp}% $B8e%"%-(B
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
     {\normalfont\large\headfont}}
 \fi
 \if@twocolumn
@@ -1116,13 +1116,13 @@
 \fi
 \if@twocolumn
   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
-    {\z@}{-1zw}% $B2~9T$;$:(B 1zw $B$N%"%-(B
-    {\normalfont\normalsize\headfont $B"#(B}}
+    {\z@}{-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
 \else
   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
     {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
-    {-1zw}% $B2~9T$;$:(B 1zw $B$N%"%-(B
-    {\normalfont\normalsize\headfont $B"#(B}}
+    {-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
 \fi
 \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
    {\z@}{-1zw}%
@@ -1186,11 +1186,11 @@
 \renewcommand{\theenumiii}{\@roman\c@enumiii}
 \renewcommand{\theenumiv}{\@Alph\c@enumiv}
 \newcommand{\labelenumi}{\theenumi.}
-\newcommand{\labelenumii}{\inhibitglue$B!J(B\theenumii$B!K(B\inhibitglue}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
 \newcommand{\labelenumiii}{\theenumiii.}
 \newcommand{\labelenumiv}{\theenumiv.}
 \renewcommand{\p@enumii}{\theenumi}
-\renewcommand{\p@enumiii}{\theenumi\inhibitglue$B!J(B\theenumii$B!K(B}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
 \renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
 \newcommand\labelitemi{\textbullet}
 \newcommand\labelitemii{\normalfont\bfseries \textendash}
@@ -1255,10 +1255,10 @@
   \let \\=\@centercr
   \list{}{%
     \itemsep \z@
-    \itemindent -2zw % $B85(B: -1.5em
+    \itemindent -2zw % 元: -1.5em
     \listparindent\itemindent
     \rightmargin \z@
-    \advance\leftmargin 2zw}% $B85(B: 1.5em
+    \advance\leftmargin 2zw}% 元: 1.5em
   \item\relax}{\endlist}
 \newenvironment{quotation}{%
   \list{}{%
@@ -1271,7 +1271,7 @@
 \def\@begintheorem#1#2{\trivlist\labelsep=1zw
    \item[\hskip \labelsep{\headfont #1\ #2}]}
 \def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
-      \item[\hskip \labelsep{\headfont #1\ #2$B!J(B#3$B!K(B}]}
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
 \newenvironment{titlepage}{%
     \if@twocolumn
       \@restonecoltrue\onecolumn
@@ -1327,8 +1327,8 @@
                {\end@dblfloat}
 \newlength\abovecaptionskip
 \newlength\belowcaptionskip
-\setlength\abovecaptionskip{5\p@} % $B85(B: 10\p@
-\setlength\belowcaptionskip{5\p@} % $B85(B: 0\p@
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
 \long\def\@makecaption#1#2{{\small
   \advance\leftskip .0628\linewidth
   \advance\rightskip .0628\linewidth
@@ -1381,7 +1381,7 @@
       \rightskip\@tocrmarg
       \parfillskip-\rightskip
       \leavevmode\headfont
-      \setlength\@lnumwidth{4zw}% $B85(B1.5em [2003-03-02]
+      \setlength\@lnumwidth{4zw}% 元1.5em [2003-03-02]
       \advance\leftskip\@lnumwidth \hskip-\leftskip
       #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
     \endgroup
@@ -1440,7 +1440,7 @@
    \endlist}
 \newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
 \let\@openbib@code\@empty
-\newenvironment{theindex}{% $B:w0z$r(B3$BCJAH$G=PNO$9$k4D6-(B
+\newenvironment{theindex}{% 索引を3段組で出力する環境
     \if@twocolumn
       \onecolumn\@restonecolfalse
     \else
@@ -1477,12 +1477,12 @@
     \fi
     \clearpage
   }
-\newcommand{\@idxitem}{\par\hangindent 4zw} % $B85(B 40pt
-\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % $B85(B 20pt
-\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % $B85(B 30pt
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
 \newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
-\newcommand\seename{\if@english see\else $B"*(B\fi}
-\newcommand\alsoname{\if@english see also\else $B"*(B\fi}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
 \let\footnotes@ve=\footnote
 \def\footnote{\inhibitglue\footnotes@ve}
 \let\footnotemarks@ve=\footnotemark
@@ -1522,16 +1522,16 @@
 \def\@inhibitglue{%
   \futurelet\@let@token\@@inhibitglue}
 \def\@@inhibitglue{%
-  \ifx\@let@token$B!V(B
+  \ifx\@let@token「
     \inhibitglue
   \else
-    \ifx\@let@token$B!J(B
+    \ifx\@let@token（
       \inhibitglue
     \else
-      \ifx\@let@token$B!X(B
+      \ifx\@let@token『
         \inhibitglue
       \else
-        \ifx\@let@token$B!N(B
+        \ifx\@let@token［
           \inhibitglue
         \fi
       \fi
@@ -1626,12 +1626,12 @@
     \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
     \inhibitglue \ignorespaces
   \fi}
-\def\$B>.(B#1{\hbox{$\m@th$%
+\def\小#1{\hbox{$\m@th$%
   \csname S@\f@size\endcsname
   \fontsize\sf@size\z@
   \math@fontsfalse\selectfont
   #1}}
-\def\$B>e>.(B#1{{\sbox\z@ T\vbox to\ht0{\$B>.(B{#1}\vss}}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
 \def\cmrTeX{%
   \ifdim \fontdimen\@ne\font >\z@
     T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
@@ -1640,12 +1640,12 @@
   \fi}
 \def\cmrLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.32em\$B>e>.(B{A}\kern-.22em\cmrTeX
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
   \else
-    L\kern-.36em\$B>e>.(B{A}\kern-.15em\cmrTeX
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
   \fi}
 \def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
-\def\sfLaTeX{L\kern-.25em\$B>e>.(B{A}\kern-.08em\sfTeX}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
 \def\ptmTeX{%
   \ifdim \fontdimen\@ne\font >\z@
     T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
@@ -1654,9 +1654,9 @@
   \fi}
 \def\ptmLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.2em\$B>e>.(B{A}\kern-.1em\ptmTeX
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\ptmTeX
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
   \fi}
 \def\pncTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1666,9 +1666,9 @@
   \fi}
 \def\pncLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\pncTeX
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\pncTeX
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
   \fi}
 \def\pplTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1678,9 +1678,9 @@
   \fi}
 \def\pplLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.27em\$B>e>.(B{A}\kern-.12em\pplTeX
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.15em\pplTeX
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
   \fi}
 \def\ugmTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1690,9 +1690,9 @@
   \fi}
 \def\ugmLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.2em\$B>e>.(B{A}\kern-.13em\ugmTeX
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.13em\ugmTeX
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
   \fi}
 \DeclareRobustCommand{\TeX}{%
   \def\@tempa{cmr}%
@@ -1752,10 +1752,10 @@
 \def\pLaTeX{p\LaTeX}
 \def\pLaTeXe{p\LaTeXe}
 \def\AmSTeX{\protect\AmS-\protect\TeX{}}
-\DeclareRobustCommand{\BibTeX}{B\kern-.05em\$B>.(B{I\kern-.025em B}%
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
   \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
 \DeclareRobustCommand{\SliTeX}{%
-  S\kern-.06emL\kern-.18em\$B>e>.(B{I}\kern -.03em\TeX}
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
 \let\ltx@ifnextchar\@ifnextchar
 \def\ProvidesFile#1{%
   \begingroup
@@ -1768,23 +1768,23 @@
     \@makeother\/%
     \@makeother\&%
     \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
-\newcommand{\prepartname}{\if@english Part~\else $BBh(B\fi}
-\newcommand{\postpartname}{\if@english\else $BIt(B\fi}
-\newcommand{\presectionname}{}%  $BBh(B
-\newcommand{\postsectionname}{}% $B@a(B
-\newcommand{\contentsname}{\if@english Contents\else $BL\<!(B\fi}
-\newcommand{\listfigurename}{\if@english List of Figures\else $B?^L\<!(B\fi}
-\newcommand{\listtablename}{\if@english List of Tables\else $BI=L\<!(B\fi}
-\newcommand{\refname}{\if@english References\else $B;29MJ88%(B\fi}
-\newcommand{\bibname}{\if@english Bibliography\else $B;29MJ88%(B\fi}
-\newcommand{\indexname}{\if@english Index\else $B:w0z(B\fi}
-\newcommand{\figurename}{\if@english Fig.~\else $B?^(B\fi}
-\newcommand{\tablename}{\if@english Table.~\else $BI=(B\fi}
-\newcommand{\appendixname}{\if@english Appendix~\else $BIUO?(B\fi}
-\newcommand{\abstractname}{\if@english Abstract\else $B35MW(B\fi}
-\newif\if$B@>Nq(B \$B@>Nq(Btrue
-\def\$B@>Nq(B{\$B@>Nq(Btrue}
-\def\$BOBNq(B{\$B@>Nq(Bfalse}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
+\newcommand{\figurename}{\if@english Fig.~\else 図\fi}
+\newcommand{\tablename}{\if@english Table.~\else 表\fi}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+\newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
 \newcount\heisei \heisei\year \advance\heisei-1988\relax
 \def\today{%
   \if@english
@@ -1793,14 +1793,14 @@
       July\or August\or September\or October\or November\or December\fi
       \space\number\day, \number\year
   \else
-    \if$B@>Nq(B
-      \number\year $BG/(B
-      \number\month $B7n(B
-      \number\day $BF|(B
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
     \else
-      $BJ?@.(B\number\heisei $BG/(B
-      \number\month $B7n(B
-      \number\day $BF|(B
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
     \fi
   \fi}
 \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
diff --git a/Master/texmf-dist/tex/platex/jsclasses/jsbook.cls b/Master/texmf-dist/tex/platex/jsclasses/jsbook.cls
index 8ac2742ccdc..63b8d5e51bb 100644
--- a/Master/texmf-dist/tex/platex/jsclasses/jsbook.cls
+++ b/Master/texmf-dist/tex/platex/jsclasses/jsbook.cls
@@ -415,11 +415,11 @@
     \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
     \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
 \fi
-\prebreakpenalty\jis"2147=10000      % 5000   $B!G(B
-\postbreakpenalty\jis"2148=10000     % 5000   $B!H(B
-\prebreakpenalty\jis"2149=10000      % 5000   $B!I(B
-\inhibitxspcode`$B!*(B=1
-\inhibitxspcode`$B")(B=2
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+\inhibitxspcode`！=1
+\inhibitxspcode`〒=2
 \xspcode`+=3
 \xspcode`\%=3
 \xspcode`^^80=3
@@ -980,10 +980,10 @@
         \ifnum #2>\c@secnumdepth \else
           \protect\numberline{\csname the#1\endcsname}%
         \fi
-        #7}}% $BL\<!$K%U%k%M!<%`$r:\$;$k$J$i(B #8
+        #7}}% 目次にフルネームを載せるなら #8
   \else
     \begingroup
-      \interlinepenalty \@M % $B2<$+$i0\F0(B
+      \interlinepenalty \@M % 下から移動
       #6{%
         \@hangfrom{\hskip #3\relax\@svsec}%
         #8\@@par}%
@@ -993,7 +993,7 @@
       \ifnum #2>\c@secnumdepth \else
         \protect\numberline{\csname the#1\endcsname}%
       \fi
-      #7}% $BL\<!$K%U%k%M!<%`$r:\$;$k$J$i$3$3$O(B #8
+      #7}% 目次にフルネームを載せるならここは #8
   \fi
   \@xsect{#5}}
 \def\@xsect#1{%
@@ -1082,7 +1082,7 @@
   \else
     \clearpage
   \fi
-  \thispagestyle{empty}% $B2$J8MQI8=`%9%?%$%k$G$O(B plain
+  \thispagestyle{empty}% 欧文用標準スタイルでは plain
   \if@twocolumn
     \onecolumn
     \@restonecoltrue
@@ -1126,7 +1126,7 @@
   \fi}
 \newcommand{\chapter}{%
   \if@openright\cleardoublepage\else\clearpage\fi
-  \plainifnotempty % $B85(B: \thispagestyle{plain}
+  \plainifnotempty % 元: \thispagestyle{plain}
   \global\@topnum\z@
   \if@english \@afterindentfalse \else \@afterindenttrue \fi
   \secdef
@@ -1155,18 +1155,18 @@
     \@afterheading
   \fi}
 \def\@makechapterhead#1{%
-  \vspace*{2\Cvs}% $B2$J8$O(B50pt
+  \vspace*{2\Cvs}% 欧文は50pt
   {\parindent \z@ \raggedright \normalfont
     \ifnum \c@secnumdepth >\m@ne
       \if@mainmatter
         \huge\headfont \@chapapp\thechapter\@chappos
         \par\nobreak
-        \vskip \Cvs % $B2$J8$O(B20pt
+        \vskip \Cvs % 欧文は20pt
       \fi
     \fi
     \interlinepenalty\@M
     \Huge \headfont #1\par\nobreak
-    \vskip 3\Cvs}} % $B2$J8$O(B40pt
+    \vskip 3\Cvs}} % 欧文は40pt
 \def\@schapter#1{%
   \chaptermark{#1}%
   \if@twocolumn
@@ -1175,12 +1175,12 @@
     \@makeschapterhead{#1}\@afterheading
   \fi}
 \def\@makeschapterhead#1{%
-  \vspace*{2\Cvs}% $B2$J8$O(B50pt
+  \vspace*{2\Cvs}% 欧文は50pt
   {\parindent \z@ \raggedright
     \normalfont
     \interlinepenalty\@M
     \Huge \headfont #1\par\nobreak
-    \vskip 3\Cvs}} % $B2$J8$O(B40pt
+    \vskip 3\Cvs}} % 欧文は40pt
 \if@twocolumn
   \newcommand{\section}{%
     \@startsection{section}{1}{\z@}%
@@ -1190,8 +1190,8 @@
   \newcommand{\section}{%
     \if@slide\clearpage\fi
     \@startsection{section}{1}{\z@}%
-    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% $BA0%"%-(B
-    {.5\Cvs \@plus.3\Cdp}% $B8e%"%-(B
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
     {\normalfont\Large\headfont\raggedright}}
 \fi
 \if@twocolumn
@@ -1200,8 +1200,8 @@
     {\normalfont\normalsize\headfont}}
 \else
   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
-    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% $BA0%"%-(B
-    {.5\Cvs \@plus.3\Cdp}% $B8e%"%-(B
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
     {\normalfont\large\headfont}}
 \fi
 \if@twocolumn
@@ -1216,13 +1216,13 @@
 \fi
 \if@twocolumn
   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
-    {\z@}{-1zw}% $B2~9T$;$:(B 1zw $B$N%"%-(B
-    {\normalfont\normalsize\headfont $B"#(B}}
+    {\z@}{-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
 \else
   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
     {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
-    {-1zw}% $B2~9T$;$:(B 1zw $B$N%"%-(B
-    {\normalfont\normalsize\headfont $B"#(B}}
+    {-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
 \fi
 \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
    {\z@}{-1zw}%
@@ -1286,11 +1286,11 @@
 \renewcommand{\theenumiii}{\@roman\c@enumiii}
 \renewcommand{\theenumiv}{\@Alph\c@enumiv}
 \newcommand{\labelenumi}{\theenumi.}
-\newcommand{\labelenumii}{\inhibitglue$B!J(B\theenumii$B!K(B\inhibitglue}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
 \newcommand{\labelenumiii}{\theenumiii.}
 \newcommand{\labelenumiv}{\theenumiv.}
 \renewcommand{\p@enumii}{\theenumi}
-\renewcommand{\p@enumiii}{\theenumi\inhibitglue$B!J(B\theenumii$B!K(B}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
 \renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
 \newcommand\labelitemi{\textbullet}
 \newcommand\labelitemii{\normalfont\bfseries \textendash}
@@ -1313,10 +1313,10 @@
   \let \\=\@centercr
   \list{}{%
     \itemsep \z@
-    \itemindent -2zw % $B85(B: -1.5em
+    \itemindent -2zw % 元: -1.5em
     \listparindent\itemindent
     \rightmargin \z@
-    \advance\leftmargin 2zw}% $B85(B: 1.5em
+    \advance\leftmargin 2zw}% 元: 1.5em
   \item\relax}{\endlist}
 \newenvironment{quotation}{%
   \list{}{%
@@ -1329,7 +1329,7 @@
 \def\@begintheorem#1#2{\trivlist\labelsep=1zw
    \item[\hskip \labelsep{\headfont #1\ #2}]}
 \def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
-      \item[\hskip \labelsep{\headfont #1\ #2$B!J(B#3$B!K(B}]}
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
 \newenvironment{titlepage}{%
     \cleardoublepage
     \if@twocolumn
@@ -1389,8 +1389,8 @@
                {\end@dblfloat}
 \newlength\abovecaptionskip
 \newlength\belowcaptionskip
-\setlength\abovecaptionskip{5\p@} % $B85(B: 10\p@
-\setlength\belowcaptionskip{5\p@} % $B85(B: 0\p@
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
 \long\def\@makecaption#1#2{{\small
   \advance\leftskip .0628\linewidth
   \advance\rightskip .0628\linewidth
@@ -1519,7 +1519,7 @@
    \endlist}
 \newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
 \let\@openbib@code\@empty
-\newenvironment{theindex}{% $B:w0z$r(B3$BCJAH$G=PNO$9$k4D6-(B
+\newenvironment{theindex}{% 索引を3段組で出力する環境
     \if@twocolumn
       \onecolumn\@restonecolfalse
     \else
@@ -1556,12 +1556,12 @@
     \fi
     \clearpage
   }
-\newcommand{\@idxitem}{\par\hangindent 4zw} % $B85(B 40pt
-\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % $B85(B 20pt
-\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % $B85(B 30pt
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
 \newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
-\newcommand\seename{\if@english see\else $B"*(B\fi}
-\newcommand\alsoname{\if@english see also\else $B"*(B\fi}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
 \let\footnotes@ve=\footnote
 \def\footnote{\inhibitglue\footnotes@ve}
 \let\footnotemarks@ve=\footnotemark
@@ -1602,16 +1602,16 @@
 \def\@inhibitglue{%
   \futurelet\@let@token\@@inhibitglue}
 \def\@@inhibitglue{%
-  \ifx\@let@token$B!V(B
+  \ifx\@let@token「
     \inhibitglue
   \else
-    \ifx\@let@token$B!J(B
+    \ifx\@let@token（
       \inhibitglue
     \else
-      \ifx\@let@token$B!X(B
+      \ifx\@let@token『
         \inhibitglue
       \else
-        \ifx\@let@token$B!N(B
+        \ifx\@let@token［
           \inhibitglue
         \fi
       \fi
@@ -1706,12 +1706,12 @@
     \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
     \inhibitglue \ignorespaces
   \fi}
-\def\$B>.(B#1{\hbox{$\m@th$%
+\def\小#1{\hbox{$\m@th$%
   \csname S@\f@size\endcsname
   \fontsize\sf@size\z@
   \math@fontsfalse\selectfont
   #1}}
-\def\$B>e>.(B#1{{\sbox\z@ T\vbox to\ht0{\$B>.(B{#1}\vss}}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
 \def\cmrTeX{%
   \ifdim \fontdimen\@ne\font >\z@
     T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
@@ -1720,12 +1720,12 @@
   \fi}
 \def\cmrLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.32em\$B>e>.(B{A}\kern-.22em\cmrTeX
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
   \else
-    L\kern-.36em\$B>e>.(B{A}\kern-.15em\cmrTeX
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
   \fi}
 \def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
-\def\sfLaTeX{L\kern-.25em\$B>e>.(B{A}\kern-.08em\sfTeX}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
 \def\ptmTeX{%
   \ifdim \fontdimen\@ne\font >\z@
     T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
@@ -1734,9 +1734,9 @@
   \fi}
 \def\ptmLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.2em\$B>e>.(B{A}\kern-.1em\ptmTeX
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\ptmTeX
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
   \fi}
 \def\pncTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1746,9 +1746,9 @@
   \fi}
 \def\pncLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\pncTeX
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\pncTeX
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
   \fi}
 \def\pplTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1758,9 +1758,9 @@
   \fi}
 \def\pplLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.27em\$B>e>.(B{A}\kern-.12em\pplTeX
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.15em\pplTeX
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
   \fi}
 \def\ugmTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1770,9 +1770,9 @@
   \fi}
 \def\ugmLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.2em\$B>e>.(B{A}\kern-.13em\ugmTeX
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.13em\ugmTeX
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
   \fi}
 \DeclareRobustCommand{\TeX}{%
   \def\@tempa{cmr}%
@@ -1832,10 +1832,10 @@
 \def\pLaTeX{p\LaTeX}
 \def\pLaTeXe{p\LaTeXe}
 \def\AmSTeX{\protect\AmS-\protect\TeX{}}
-\DeclareRobustCommand{\BibTeX}{B\kern-.05em\$B>.(B{I\kern-.025em B}%
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
   \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
 \DeclareRobustCommand{\SliTeX}{%
-  S\kern-.06emL\kern-.18em\$B>e>.(B{I}\kern -.03em\TeX}
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
 \let\ltx@ifnextchar\@ifnextchar
 \def\ProvidesFile#1{%
   \begingroup
@@ -1848,24 +1848,24 @@
     \@makeother\/%
     \@makeother\&%
     \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
-\newcommand{\prepartname}{\if@english Part~\else $BBh(B\fi}
-\newcommand{\postpartname}{\if@english\else $BIt(B\fi}
-\newcommand{\prechaptername}{\if@english Chapter~\else $BBh(B\fi}
-\newcommand{\postchaptername}{\if@english\else $B>O(B\fi}
-\newcommand{\presectionname}{}%  $BBh(B
-\newcommand{\postsectionname}{}% $B@a(B
-\newcommand{\contentsname}{\if@english Contents\else $BL\<!(B\fi}
-\newcommand{\listfigurename}{\if@english List of Figures\else $B?^L\<!(B\fi}
-\newcommand{\listtablename}{\if@english List of Tables\else $BI=L\<!(B\fi}
-\newcommand{\refname}{\if@english References\else $B;29MJ88%(B\fi}
-\newcommand{\bibname}{\if@english Bibliography\else $B;29MJ88%(B\fi}
-\newcommand{\indexname}{\if@english Index\else $B:w0z(B\fi}
-\newcommand{\figurename}{\if@english Fig.~\else $B?^(B\fi}
-\newcommand{\tablename}{\if@english Table.~\else $BI=(B\fi}
-\newcommand{\appendixname}{\if@english Appendix~\else $BIUO?(B\fi}
-\newif\if$B@>Nq(B \$B@>Nq(Btrue
-\def\$B@>Nq(B{\$B@>Nq(Btrue}
-\def\$BOBNq(B{\$B@>Nq(Bfalse}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+\newcommand{\prechaptername}{\if@english Chapter~\else 第\fi}
+\newcommand{\postchaptername}{\if@english\else 章\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
+\newcommand{\figurename}{\if@english Fig.~\else 図\fi}
+\newcommand{\tablename}{\if@english Table.~\else 表\fi}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
 \newcount\heisei \heisei\year \advance\heisei-1988\relax
 \def\today{%
   \if@english
@@ -1874,14 +1874,14 @@
       July\or August\or September\or October\or November\or December\fi
       \space\number\day, \number\year
   \else
-    \if$B@>Nq(B
-      \number\year $BG/(B
-      \number\month $B7n(B
-      \number\day $BF|(B
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
     \else
-      $BJ?@.(B\number\heisei $BG/(B
-      \number\month $B7n(B
-      \number\day $BF|(B
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
     \fi
   \fi}
 \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
diff --git a/Master/texmf-dist/tex/platex/jsclasses/jspf.cls b/Master/texmf-dist/tex/platex/jsclasses/jspf.cls
index efec43ba040..55a111ed7d6 100644
--- a/Master/texmf-dist/tex/platex/jsclasses/jspf.cls
+++ b/Master/texmf-dist/tex/platex/jsclasses/jspf.cls
@@ -408,11 +408,11 @@
     \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
     \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
 \fi
-\prebreakpenalty\jis"2147=10000      % 5000   $B!G(B
-\postbreakpenalty\jis"2148=10000     % 5000   $B!H(B
-\prebreakpenalty\jis"2149=10000      % 5000   $B!I(B
-\inhibitxspcode`$B!*(B=1
-\inhibitxspcode`$B")(B=2
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+\inhibitxspcode`！=1
+\inhibitxspcode`〒=2
 \xspcode`+=3
 \xspcode`\%=3
 \xspcode`^^80=3
@@ -757,7 +757,7 @@
   \def\@oddfoot{\normalfont\hfil\thepage\hfil}
   \def\@evenfoot{\normalfont\hfil\thepage\hfil}
   \def\@oddhead{\normalfont\hfil \@title \hfil}
-  \def\@evenhead{\normalfont\hfil $B%W%i%:%^!&3KM;9g3X2q;o(B\hfil}}
+  \def\@evenhead{\normalfont\hfil プラズマ・核融合学会誌\hfil}}
 \def\ps@myheadings{%
   \let\@oddfoot\@empty\let\@evenfoot\@empty
   \def\@evenhead{%
@@ -884,10 +884,10 @@
         \ifnum #2>\c@secnumdepth \else
           \protect\numberline{\csname the#1\endcsname}%
         \fi
-        #7}}% $BL\<!$K%U%k%M!<%`$r:\$;$k$J$i(B #8
+        #7}}% 目次にフルネームを載せるなら #8
   \else
     \begingroup
-      \interlinepenalty \@M % $B2<$+$i0\F0(B
+      \interlinepenalty \@M % 下から移動
       #6{%
         \@hangfrom{\hskip #3\relax\@svsec}%
         #8\@@par}%
@@ -897,7 +897,7 @@
       \ifnum #2>\c@secnumdepth \else
         \protect\numberline{\csname the#1\endcsname}%
       \fi
-      #7}% $BL\<!$K%U%k%M!<%`$r:\$;$k$J$i$3$3$O(B #8
+      #7}% 目次にフルネームを載せるならここは #8
   \fi
   \@xsect{#5}}
 \def\@xsect#1{%
@@ -1004,8 +1004,8 @@
   \newcommand{\section}{%
     \if@slide\clearpage\fi
     \@startsection{section}{1}{\z@}%
-    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% $BA0%"%-(B
-    {.5\Cvs \@plus.3\Cdp}% $B8e%"%-(B
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
     {\normalfont\Large\headfont\raggedright}}
 \fi
 \if@twocolumn
@@ -1014,8 +1014,8 @@
     {\normalfont\normalsize\headfont}}
 \else
   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
-    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% $BA0%"%-(B
-    {.5\Cvs \@plus.3\Cdp}% $B8e%"%-(B
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
     {\normalfont\large\headfont}}
 \fi
 \if@twocolumn
@@ -1030,12 +1030,12 @@
 \fi
 \if@twocolumn
   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
-    {\z@}{-1zw}% $B2~9T$;$:(B 1zw $B$N%"%-(B
+    {\z@}{-1zw}% 改行せず 1zw のアキ
     {\normalfont\normalsize\headfont}}
 \else
   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
     {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
-    {-1zw}% $B2~9T$;$:(B 1zw $B$N%"%-(B
+    {-1zw}% 改行せず 1zw のアキ
     {\normalfont\normalsize\headfont}}
 \fi
 \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
@@ -1100,11 +1100,11 @@
 \renewcommand{\theenumiii}{\@roman\c@enumiii}
 \renewcommand{\theenumiv}{\@Alph\c@enumiv}
 \newcommand{\labelenumi}{\theenumi.}
-\newcommand{\labelenumii}{\inhibitglue$B!J(B\theenumii$B!K(B\inhibitglue}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
 \newcommand{\labelenumiii}{\theenumiii.}
 \newcommand{\labelenumiv}{\theenumiv.}
 \renewcommand{\p@enumii}{\theenumi}
-\renewcommand{\p@enumiii}{\theenumi\inhibitglue$B!J(B\theenumii$B!K(B}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
 \renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
 \newcommand\labelitemi{\textbullet}
 \newcommand\labelitemii{\normalfont\bfseries \textendash}
@@ -1128,10 +1128,10 @@
   \let \\=\@centercr
   \list{}{%
     \itemsep \z@
-    \itemindent -2zw % $B85(B: -1.5em
+    \itemindent -2zw % 元: -1.5em
     \listparindent\itemindent
     \rightmargin \z@
-    \advance\leftmargin 2zw}% $B85(B: 1.5em
+    \advance\leftmargin 2zw}% 元: 1.5em
   \item\relax}{\endlist}
 \newenvironment{quotation}{%
   \list{}{%
@@ -1144,7 +1144,7 @@
 \def\@begintheorem#1#2{\trivlist\labelsep=1zw
    \item[\hskip \labelsep{\headfont #1\ #2}]}
 \def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
-      \item[\hskip \labelsep{\headfont #1\ #2$B!J(B#3$B!K(B}]}
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
 \newenvironment{titlepage}{%
     \if@twocolumn
       \@restonecoltrue\onecolumn
@@ -1200,8 +1200,8 @@
                {\end@dblfloat}
 \newlength\abovecaptionskip
 \newlength\belowcaptionskip
-\setlength\abovecaptionskip{5\p@} % $B85(B: 10\p@
-\setlength\belowcaptionskip{5\p@} % $B85(B: 0\p@
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
 \long\def\@makecaption#1#2{%
   \vskip\abovecaptionskip
   \sbox\@tempboxa{\small\sffamily #1\quad #2}%
@@ -1264,7 +1264,7 @@
       \rightskip\@tocrmarg
       \parfillskip-\rightskip
       \leavevmode\headfont
-      \setlength\@lnumwidth{4zw}% $B85(B1.5em [2003-03-02]
+      \setlength\@lnumwidth{4zw}% 元1.5em [2003-03-02]
       \advance\leftskip\@lnumwidth \hskip-\leftskip
       #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
     \endgroup
@@ -1323,7 +1323,7 @@
    \endlist}
 \newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
 \let\@openbib@code\@empty
-\newenvironment{theindex}{% $B:w0z$r(B3$BCJAH$G=PNO$9$k4D6-(B
+\newenvironment{theindex}{% 索引を3段組で出力する環境
     \if@twocolumn
       \onecolumn\@restonecolfalse
     \else
@@ -1360,12 +1360,12 @@
     \fi
     \clearpage
   }
-\newcommand{\@idxitem}{\par\hangindent 4zw} % $B85(B 40pt
-\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % $B85(B 20pt
-\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % $B85(B 30pt
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
 \newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
-\newcommand\seename{\if@english see\else $B"*(B\fi}
-\newcommand\alsoname{\if@english see also\else $B"*(B\fi}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
 \let\footnotes@ve=\footnote
 \def\footnote{\inhibitglue\footnotes@ve}
 \let\footnotemarks@ve=\footnotemark
@@ -1405,16 +1405,16 @@
 \def\@inhibitglue{%
   \futurelet\@let@token\@@inhibitglue}
 \def\@@inhibitglue{%
-  \ifx\@let@token$B!V(B
+  \ifx\@let@token「
     \inhibitglue
   \else
-    \ifx\@let@token$B!J(B
+    \ifx\@let@token（
       \inhibitglue
     \else
-      \ifx\@let@token$B!X(B
+      \ifx\@let@token『
         \inhibitglue
       \else
-        \ifx\@let@token$B!N(B
+        \ifx\@let@token［
           \inhibitglue
         \fi
       \fi
@@ -1509,12 +1509,12 @@
     \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
     \inhibitglue \ignorespaces
   \fi}
-\def\$B>.(B#1{\hbox{$\m@th$%
+\def\小#1{\hbox{$\m@th$%
   \csname S@\f@size\endcsname
   \fontsize\sf@size\z@
   \math@fontsfalse\selectfont
   #1}}
-\def\$B>e>.(B#1{{\sbox\z@ T\vbox to\ht0{\$B>.(B{#1}\vss}}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
 \def\cmrTeX{%
   \ifdim \fontdimen\@ne\font >\z@
     T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
@@ -1523,12 +1523,12 @@
   \fi}
 \def\cmrLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.32em\$B>e>.(B{A}\kern-.22em\cmrTeX
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
   \else
-    L\kern-.36em\$B>e>.(B{A}\kern-.15em\cmrTeX
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
   \fi}
 \def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
-\def\sfLaTeX{L\kern-.25em\$B>e>.(B{A}\kern-.08em\sfTeX}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
 \def\ptmTeX{%
   \ifdim \fontdimen\@ne\font >\z@
     T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
@@ -1537,9 +1537,9 @@
   \fi}
 \def\ptmLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.2em\$B>e>.(B{A}\kern-.1em\ptmTeX
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\ptmTeX
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
   \fi}
 \def\pncTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1549,9 +1549,9 @@
   \fi}
 \def\pncLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\pncTeX
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\pncTeX
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
   \fi}
 \def\pplTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1561,9 +1561,9 @@
   \fi}
 \def\pplLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.27em\$B>e>.(B{A}\kern-.12em\pplTeX
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.15em\pplTeX
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
   \fi}
 \def\ugmTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1573,9 +1573,9 @@
   \fi}
 \def\ugmLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.2em\$B>e>.(B{A}\kern-.13em\ugmTeX
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.13em\ugmTeX
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
   \fi}
 \DeclareRobustCommand{\TeX}{%
   \def\@tempa{cmr}%
@@ -1635,10 +1635,10 @@
 \def\pLaTeX{p\LaTeX}
 \def\pLaTeXe{p\LaTeXe}
 \def\AmSTeX{\protect\AmS-\protect\TeX{}}
-\DeclareRobustCommand{\BibTeX}{B\kern-.05em\$B>.(B{I\kern-.025em B}%
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
   \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
 \DeclareRobustCommand{\SliTeX}{%
-  S\kern-.06emL\kern-.18em\$B>e>.(B{I}\kern -.03em\TeX}
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
 \let\ltx@ifnextchar\@ifnextchar
 \def\ProvidesFile#1{%
   \begingroup
@@ -1651,23 +1651,23 @@
     \@makeother\/%
     \@makeother\&%
     \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
-\newcommand{\prepartname}{\if@english Part~\else $BBh(B\fi}
-\newcommand{\postpartname}{\if@english\else $BIt(B\fi}
-\newcommand{\presectionname}{}%  $BBh(B
-\newcommand{\postsectionname}{}% $B@a(B
-\newcommand{\contentsname}{\if@english Contents\else $BL\<!(B\fi}
-\newcommand{\listfigurename}{\if@english List of Figures\else $B?^L\<!(B\fi}
-\newcommand{\listtablename}{\if@english List of Tables\else $BI=L\<!(B\fi}
-\newcommand{\refname}{\if@english References\else $B;29MJ88%(B\fi}
-\newcommand{\bibname}{\if@english Bibliography\else $B;29MJ88%(B\fi}
-\newcommand{\indexname}{\if@english Index\else $B:w0z(B\fi}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
 \newcommand{\figurename}{Fig.~}
 \newcommand{\tablename}{Table~}
-\newcommand{\appendixname}{\if@english Appendix~\else $BIUO?(B\fi}
-\newcommand{\abstractname}{\if@english Abstract\else $B35MW(B\fi}
-\newif\if$B@>Nq(B \$B@>Nq(Btrue
-\def\$B@>Nq(B{\$B@>Nq(Btrue}
-\def\$BOBNq(B{\$B@>Nq(Bfalse}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+\newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
 \newcount\heisei \heisei\year \advance\heisei-1988\relax
 \def\today{%
   \if@english
@@ -1676,14 +1676,14 @@
       July\or August\or September\or October\or November\or December\fi
       \space\number\day, \number\year
   \else
-    \if$B@>Nq(B
-      \number\year $BG/(B
-      \number\month $B7n(B
-      \number\day $BF|(B
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
     \else
-      $BJ?@.(B\number\heisei $BG/(B
-      \number\month $B7n(B
-      \number\day $BF|(B
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
     \fi
   \fi}
 \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
diff --git a/Master/texmf-dist/tex/platex/jsclasses/kiyou.cls b/Master/texmf-dist/tex/platex/jsclasses/kiyou.cls
index 99d4e3d539b..7cf845a1ba4 100644
--- a/Master/texmf-dist/tex/platex/jsclasses/kiyou.cls
+++ b/Master/texmf-dist/tex/platex/jsclasses/kiyou.cls
@@ -410,11 +410,11 @@
     \reDeclareMathAlphabet{\mathrm}{\@mathrm}{\@mathmc}
     \reDeclareMathAlphabet{\mathbf}{\@mathbf}{\@mathgt}}
 \fi
-\prebreakpenalty\jis"2147=10000      % 5000   $B!G(B
-\postbreakpenalty\jis"2148=10000     % 5000   $B!H(B
-\prebreakpenalty\jis"2149=10000      % 5000   $B!I(B
-\inhibitxspcode`$B!*(B=1
-\inhibitxspcode`$B")(B=2
+\prebreakpenalty\jis"2147=10000      % 5000   ’
+\postbreakpenalty\jis"2148=10000     % 5000   “
+\prebreakpenalty\jis"2149=10000      % 5000   ”
+\inhibitxspcode`！=1
+\inhibitxspcode`〒=2
 \xspcode`+=3
 \xspcode`\%=3
 \xspcode`^^80=3
@@ -955,10 +955,10 @@
         \ifnum #2>\c@secnumdepth \else
           \protect\numberline{\csname the#1\endcsname}%
         \fi
-        #7}}% $BL\<!$K%U%k%M!<%`$r:\$;$k$J$i(B #8
+        #7}}% 目次にフルネームを載せるなら #8
   \else
     \begingroup
-      \interlinepenalty \@M % $B2<$+$i0\F0(B
+      \interlinepenalty \@M % 下から移動
       #6{%
         \@hangfrom{\hskip #3\relax\@svsec}%
         #8\@@par}%
@@ -968,7 +968,7 @@
       \ifnum #2>\c@secnumdepth \else
         \protect\numberline{\csname the#1\endcsname}%
       \fi
-      #7}% $BL\<!$K%U%k%M!<%`$r:\$;$k$J$i$3$3$O(B #8
+      #7}% 目次にフルネームを載せるならここは #8
   \fi
   \@xsect{#5}}
 \def\@xsect#1{%
@@ -1074,8 +1074,8 @@
   \newcommand{\section}{%
     \if@slide\clearpage\fi
     \@startsection{section}{1}{\z@}%
-    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% $BA0%"%-(B
-    {.5\Cvs \@plus.3\Cdp}% $B8e%"%-(B
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
     {\normalfont\Large\headfont\raggedright}}
 \fi
 \if@twocolumn
@@ -1084,8 +1084,8 @@
     {\normalfont\normalsize\headfont}}
 \else
   \newcommand{\subsection}{\@startsection{subsection}{2}{\z@}%
-    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% $BA0%"%-(B
-    {.5\Cvs \@plus.3\Cdp}% $B8e%"%-(B
+    {\Cvs \@plus.5\Cdp \@minus.2\Cdp}% 前アキ
+    {.5\Cvs \@plus.3\Cdp}% 後アキ
     {\normalfont\large\headfont}}
 \fi
 \if@twocolumn
@@ -1100,13 +1100,13 @@
 \fi
 \if@twocolumn
   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
-    {\z@}{-1zw}% $B2~9T$;$:(B 1zw $B$N%"%-(B
-    {\normalfont\normalsize\headfont $B"#(B}}
+    {\z@}{-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
 \else
   \newcommand{\paragraph}{\@startsection{paragraph}{4}{\z@}%
     {0.5\Cvs \@plus.5\Cdp \@minus.2\Cdp}%
-    {-1zw}% $B2~9T$;$:(B 1zw $B$N%"%-(B
-    {\normalfont\normalsize\headfont $B"#(B}}
+    {-1zw}% 改行せず 1zw のアキ
+    {\normalfont\normalsize\headfont ■}}
 \fi
 \newcommand{\subparagraph}{\@startsection{subparagraph}{5}{\z@}%
    {\z@}{-1zw}%
@@ -1170,11 +1170,11 @@
 \renewcommand{\theenumiii}{\@roman\c@enumiii}
 \renewcommand{\theenumiv}{\@Alph\c@enumiv}
 \newcommand{\labelenumi}{\theenumi.}
-\newcommand{\labelenumii}{\inhibitglue$B!J(B\theenumii$B!K(B\inhibitglue}
+\newcommand{\labelenumii}{\inhibitglue（\theenumii）\inhibitglue}
 \newcommand{\labelenumiii}{\theenumiii.}
 \newcommand{\labelenumiv}{\theenumiv.}
 \renewcommand{\p@enumii}{\theenumi}
-\renewcommand{\p@enumiii}{\theenumi\inhibitglue$B!J(B\theenumii$B!K(B}
+\renewcommand{\p@enumiii}{\theenumi\inhibitglue（\theenumii）}
 \renewcommand{\p@enumiv}{\p@enumiii\theenumiii}
 \newcommand\labelitemi{\textbullet}
 \newcommand\labelitemii{\normalfont\bfseries \textendash}
@@ -1239,10 +1239,10 @@
   \let \\=\@centercr
   \list{}{%
     \itemsep \z@
-    \itemindent -2zw % $B85(B: -1.5em
+    \itemindent -2zw % 元: -1.5em
     \listparindent\itemindent
     \rightmargin \z@
-    \advance\leftmargin 2zw}% $B85(B: 1.5em
+    \advance\leftmargin 2zw}% 元: 1.5em
   \item\relax}{\endlist}
 \newenvironment{quotation}{%
   \list{}{%
@@ -1255,7 +1255,7 @@
 \def\@begintheorem#1#2{\trivlist\labelsep=1zw
    \item[\hskip \labelsep{\headfont #1\ #2}]}
 \def\@opargbegintheorem#1#2#3{\trivlist\labelsep=1zw
-      \item[\hskip \labelsep{\headfont #1\ #2$B!J(B#3$B!K(B}]}
+      \item[\hskip \labelsep{\headfont #1\ #2（#3）}]}
 \newenvironment{titlepage}{%
     \if@twocolumn
       \@restonecoltrue\onecolumn
@@ -1311,8 +1311,8 @@
                {\end@dblfloat}
 \newlength\abovecaptionskip
 \newlength\belowcaptionskip
-\setlength\abovecaptionskip{5\p@} % $B85(B: 10\p@
-\setlength\belowcaptionskip{5\p@} % $B85(B: 0\p@
+\setlength\abovecaptionskip{5\p@} % 元: 10\p@
+\setlength\belowcaptionskip{5\p@} % 元: 0\p@
 \long\def\@makecaption#1#2{{\small
   \advance\leftskip .0628\linewidth
   \advance\rightskip .0628\linewidth
@@ -1365,7 +1365,7 @@
       \rightskip\@tocrmarg
       \parfillskip-\rightskip
       \leavevmode\headfont
-      \setlength\@lnumwidth{4zw}% $B85(B1.5em [2003-03-02]
+      \setlength\@lnumwidth{4zw}% 元1.5em [2003-03-02]
       \advance\leftskip\@lnumwidth \hskip-\leftskip
       #1\nobreak\hfil\nobreak\hbox to\@pnumwidth{\hss#2}\par
     \endgroup
@@ -1427,7 +1427,7 @@
    \endlist}
 \newcommand{\newblock}{\hskip .11em\@plus.33em\@minus.07em}
 \let\@openbib@code\@empty
-\newenvironment{theindex}{% $B:w0z$r(B3$BCJAH$G=PNO$9$k4D6-(B
+\newenvironment{theindex}{% 索引を3段組で出力する環境
     \if@twocolumn
       \onecolumn\@restonecolfalse
     \else
@@ -1464,12 +1464,12 @@
     \fi
     \clearpage
   }
-\newcommand{\@idxitem}{\par\hangindent 4zw} % $B85(B 40pt
-\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % $B85(B 20pt
-\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % $B85(B 30pt
+\newcommand{\@idxitem}{\par\hangindent 4zw} % 元 40pt
+\newcommand{\subitem}{\@idxitem \hspace*{2zw}} % 元 20pt
+\newcommand{\subsubitem}{\@idxitem \hspace*{3zw}} % 元 30pt
 \newcommand{\indexspace}{\par \vskip 10\p@ \@plus5\p@ \@minus3\p@\relax}
-\newcommand\seename{\if@english see\else $B"*(B\fi}
-\newcommand\alsoname{\if@english see also\else $B"*(B\fi}
+\newcommand\seename{\if@english see\else →\fi}
+\newcommand\alsoname{\if@english see also\else →\fi}
 \let\footnotes@ve=\footnote
 \def\footnote{\inhibitglue\footnotes@ve}
 \let\footnotemarks@ve=\footnotemark
@@ -1509,16 +1509,16 @@
 \def\@inhibitglue{%
   \futurelet\@let@token\@@inhibitglue}
 \def\@@inhibitglue{%
-  \ifx\@let@token$B!V(B
+  \ifx\@let@token「
     \inhibitglue
   \else
-    \ifx\@let@token$B!J(B
+    \ifx\@let@token（
       \inhibitglue
     \else
-      \ifx\@let@token$B!X(B
+      \ifx\@let@token『
         \inhibitglue
       \else
-        \ifx\@let@token$B!N(B
+        \ifx\@let@token［
           \inhibitglue
         \fi
       \fi
@@ -1613,12 +1613,12 @@
     \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
     \inhibitglue \ignorespaces
   \fi}
-\def\$B>.(B#1{\hbox{$\m@th$%
+\def\小#1{\hbox{$\m@th$%
   \csname S@\f@size\endcsname
   \fontsize\sf@size\z@
   \math@fontsfalse\selectfont
   #1}}
-\def\$B>e>.(B#1{{\sbox\z@ T\vbox to\ht0{\$B>.(B{#1}\vss}}}
+\def\上小#1{{\sbox\z@ T\vbox to\ht0{\小{#1}\vss}}}
 \def\cmrTeX{%
   \ifdim \fontdimen\@ne\font >\z@
     T\kern-.25em\lower.5ex\hbox{E}\kern-.125emX\@
@@ -1627,12 +1627,12 @@
   \fi}
 \def\cmrLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.32em\$B>e>.(B{A}\kern-.22em\cmrTeX
+    L\kern-.32em\上小{A}\kern-.22em\cmrTeX
   \else
-    L\kern-.36em\$B>e>.(B{A}\kern-.15em\cmrTeX
+    L\kern-.36em\上小{A}\kern-.15em\cmrTeX
   \fi}
 \def\sfTeX{T\kern-.1em\lower.4ex\hbox{E}\kern-.07emX\@}
-\def\sfLaTeX{L\kern-.25em\$B>e>.(B{A}\kern-.08em\sfTeX}
+\def\sfLaTeX{L\kern-.25em\上小{A}\kern-.08em\sfTeX}
 \def\ptmTeX{%
   \ifdim \fontdimen\@ne\font >\z@
     T\kern-.12em\lower.37ex\hbox{E}\kern-.02emX\@
@@ -1641,9 +1641,9 @@
   \fi}
 \def\ptmLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.2em\$B>e>.(B{A}\kern-.1em\ptmTeX
+    L\kern-.2em\上小{A}\kern-.1em\ptmTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\ptmTeX
+    L\kern-.3em\上小{A}\kern-.1em\ptmTeX
   \fi}
 \def\pncTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1653,9 +1653,9 @@
   \fi}
 \def\pncLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\pncTeX
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.1em\pncTeX
+    L\kern-.3em\上小{A}\kern-.1em\pncTeX
   \fi}
 \def\pplTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1665,9 +1665,9 @@
   \fi}
 \def\pplLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.27em\$B>e>.(B{A}\kern-.12em\pplTeX
+    L\kern-.27em\上小{A}\kern-.12em\pplTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.15em\pplTeX
+    L\kern-.3em\上小{A}\kern-.15em\pplTeX
   \fi}
 \def\ugmTeX{%
   \ifdim \fontdimen\@ne\font >\z@
@@ -1677,9 +1677,9 @@
   \fi}
 \def\ugmLaTeX{%
   \ifdim \fontdimen\@ne\font >\z@
-    L\kern-.2em\$B>e>.(B{A}\kern-.13em\ugmTeX
+    L\kern-.2em\上小{A}\kern-.13em\ugmTeX
   \else
-    L\kern-.3em\$B>e>.(B{A}\kern-.13em\ugmTeX
+    L\kern-.3em\上小{A}\kern-.13em\ugmTeX
   \fi}
 \DeclareRobustCommand{\TeX}{%
   \def\@tempa{cmr}%
@@ -1739,10 +1739,10 @@
 \def\pLaTeX{p\LaTeX}
 \def\pLaTeXe{p\LaTeXe}
 \def\AmSTeX{\protect\AmS-\protect\TeX{}}
-\DeclareRobustCommand{\BibTeX}{B\kern-.05em\$B>.(B{I\kern-.025em B}%
+\DeclareRobustCommand{\BibTeX}{B\kern-.05em\小{I\kern-.025em B}%
   \ifx\f@family\cmr\kern-.08em\else\kern-.15em\fi\TeX}
 \DeclareRobustCommand{\SliTeX}{%
-  S\kern-.06emL\kern-.18em\$B>e>.(B{I}\kern -.03em\TeX}
+  S\kern-.06emL\kern-.18em\上小{I}\kern -.03em\TeX}
 \let\ltx@ifnextchar\@ifnextchar
 \def\ProvidesFile#1{%
   \begingroup
@@ -1755,23 +1755,23 @@
     \@makeother\/%
     \@makeother\&%
     \ltx@ifnextchar[{\@providesfile{#1}}{\@providesfile{#1}[]}}
-\newcommand{\prepartname}{\if@english Part~\else $BBh(B\fi}
-\newcommand{\postpartname}{\if@english\else $BIt(B\fi}
-\newcommand{\presectionname}{}%  $BBh(B
-\newcommand{\postsectionname}{}% $B@a(B
-\newcommand{\contentsname}{\if@english Contents\else $BL\<!(B\fi}
-\newcommand{\listfigurename}{\if@english List of Figures\else $B?^L\<!(B\fi}
-\newcommand{\listtablename}{\if@english List of Tables\else $BI=L\<!(B\fi}
-\newcommand{\refname}{\if@english References\else $B;29MJ88%(B\fi}
-\newcommand{\bibname}{\if@english Bibliography\else $B;29MJ88%(B\fi}
-\newcommand{\indexname}{\if@english Index\else $B:w0z(B\fi}
-\newcommand{\figurename}{\if@english Fig.~\else $B?^(B\fi}
-\newcommand{\tablename}{\if@english Table.~\else $BI=(B\fi}
-\newcommand{\appendixname}{\if@english Appendix~\else $BIUO?(B\fi}
-\newcommand{\abstractname}{\if@english Abstract\else $B35MW(B\fi}
-\newif\if$B@>Nq(B \$B@>Nq(Btrue
-\def\$B@>Nq(B{\$B@>Nq(Btrue}
-\def\$BOBNq(B{\$B@>Nq(Bfalse}
+\newcommand{\prepartname}{\if@english Part~\else 第\fi}
+\newcommand{\postpartname}{\if@english\else 部\fi}
+\newcommand{\presectionname}{}%  第
+\newcommand{\postsectionname}{}% 節
+\newcommand{\contentsname}{\if@english Contents\else 目次\fi}
+\newcommand{\listfigurename}{\if@english List of Figures\else 図目次\fi}
+\newcommand{\listtablename}{\if@english List of Tables\else 表目次\fi}
+\newcommand{\refname}{\if@english References\else 参考文献\fi}
+\newcommand{\bibname}{\if@english Bibliography\else 参考文献\fi}
+\newcommand{\indexname}{\if@english Index\else 索引\fi}
+\newcommand{\figurename}{\if@english Fig.~\else 図\fi}
+\newcommand{\tablename}{\if@english Table.~\else 表\fi}
+\newcommand{\appendixname}{\if@english Appendix~\else 付録\fi}
+\newcommand{\abstractname}{\if@english Abstract\else 概要\fi}
+\newif\if西暦 \西暦true
+\def\西暦{\西暦true}
+\def\和暦{\西暦false}
 \newcount\heisei \heisei\year \advance\heisei-1988\relax
 \def\today{%
   \if@english
@@ -1780,14 +1780,14 @@
       July\or August\or September\or October\or November\or December\fi
       \space\number\day, \number\year
   \else
-    \if$B@>Nq(B
-      \number\year $BG/(B
-      \number\month $B7n(B
-      \number\day $BF|(B
+    \if西暦
+      \number\year 年
+      \number\month 月
+      \number\day 日
     \else
-      $BJ?@.(B\number\heisei $BG/(B
-      \number\month $B7n(B
-      \number\day $BF|(B
+      平成\number\heisei 年
+      \number\month 月
+      \number\day 日
     \fi
   \fi}
 \hyphenation{ado-be post-script ghost-script phe-nom-e-no-log-i-cal man-u-script}
diff --git a/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty b/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
index 0efc60a5e28..cc042f57c62 100644
--- a/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
+++ b/Master/texmf-dist/tex/platex/jsclasses/okumacro.sty
@@ -53,7 +53,7 @@
       \hbox to \dimen1{\kanjistrut\hfil\unhbox1\hfil}}}\hskip\kanjiskip\relax}
 \def\kenten#1{%
   \ifvmode\leavevmode\else\hskip\kanjiskip\fi
-  \setbox1=\hbox to \z@{$B!&(B\hss}%
+  \setbox1=\hbox to \z@{・\hss}%
   \ht1=.63zw
   \@kenten#1\end}
 \def\@kenten#1{%
@@ -67,7 +67,7 @@
     \kanjiskip=0pt plus 1fil minus 1fil
     \xkanjiskip=\kanjiskip
     #2}}
-\newcommand{\$BMK(B}{{\@tempcnta=\year \@tempcntb=\month
+\newcommand{\曜}{{\@tempcnta=\year \@tempcntb=\month
   \ifnum \@tempcntb<3
     \advance \@tempcnta by -1
     \advance \@tempcntb by 12
@@ -87,11 +87,11 @@
   \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}}
-\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}
+  \ifcase \@tempcnta 日\or 月\or 火\or 水\or 木\or 金\or 土\fi}}
+\def\挨拶{\noindent 拝啓\hspace{1zw}\ifcase\month\or
+  厳寒\or 春寒\or 早春\or 陽春\or 新緑\or 向暑\or
+  猛暑\or 残暑\or 初秋\or 仲秋\or 晩秋\or 初冬\fi
+  の候，ますますご清栄のこととお喜び申し上げます。}
 \def\myallowbreak{\@ifnextchar\egroup{}{\penalty\exhyphenpenalty}{}}
 \begingroup
   \catcode`\-=\active
@@ -112,7 +112,7 @@
   \chardef\{=`\{
   \chardef\}=`\}
   \chardef\_=`\_
-  \def\\{\char"5C\penalty\exhyphenpenalty{}}% $B%P%C%/%9%i%C%7%e(B
+  \def\\{\char"5C\penalty\exhyphenpenalty{}}% バックスラッシュ
   \spaceskip=.32em plus.16em minus.09em
   \frenchspacing
   \noautoxspacing
@@ -123,8 +123,8 @@
 \newcommand{\asciibar}{%
   \makebox[0.525em]{\rule[-0.2ex]{0.15ex}{0.7ex}\kern-0.15ex
     \rule[0.8ex]{0.15ex}{0.7ex}}}
-\def\$B!]!](B{$B!=(B\kern-.5zw$B!=(B\kern-.5zw$B!=(B}
-\def\$B!=!=(B{$B!=(B\kern-.5zw$B!=(B\kern-.5zw$B!=(B}
+\def\－－{―\kern-.5zw―\kern-.5zw―}
+\def\――{―\kern-.5zw―\kern-.5zw―}
 \newcommand{\removept}[2]{%
   \edef#2{\expandafter\@removePT\the#1}}
 {\catcode`p=12 \catcode`t=12 \gdef\@removePT#1pt{#1}}
@@ -269,7 +269,7 @@
     \vrule\hfill
     \vbox\bgroup
       \vskip15pt
-      \def\thempfootnote{\arabic{mpfootnote}}% $B5SCm$r;;MQ?t;z$K(B
+      \def\thempfootnote{\arabic{mpfootnote}}% 脚注を算用数字に
       \begin{minipage}{\linewidth}}{%
       \end{minipage}\vskip15pt
     \egroup\hfill\vrule
@@ -282,7 +282,7 @@
 \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
+     % または \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}%
@@ -303,20 +303,20 @@
 \newenvironment{EXAMPLE}{\begin{flushleft}\EXAMPLEWIDTH=\linewidth
   }{\end{flushleft}}
 \newenvironment{IN}{%
-  \makebox[35pt][l]{\small\fbox{$BF~NO(B}}%
+  \makebox[35pt][l]{\small\fbox{入力}}%
   \advance \linewidth by -35pt
   \begin{minipage}[t]{\linewidth}}{%
   \end{minipage}\\[6pt]}
 \newenvironment{OUT}{%
-  \makebox[35pt][l]{\small\fbox{$B=PNO(B}}%
+  \makebox[35pt][l]{\small\fbox{出力}}%
   \advance \linewidth by -35pt
   \begin{minipage}[t]{\linewidth}}{%
   \end{minipage}}
 \newcommand{\INEX}{\medbreak\noindent
-  \framebox[\columnwidth][l]{\small\hskip2zw $BF~NO(B}\nobreak
+  \framebox[\columnwidth][l]{\small\hskip2zw 入力}\nobreak
   \begin{quote}\small}
 \newcommand{\OUTEX}{\end{quote}
-  \framebox[\columnwidth][l]{\small\hskip2zw $B=PNO(B}\nobreak
+  \framebox[\columnwidth][l]{\small\hskip2zw 出力}\nobreak
   \begin{quotation}\small}
 \newcommand{\ENDEX}{\end{quotation}\bigbreak}
 \newcommand{\ENDEXC}[1]{\end{quotation}\nobreak
@@ -329,10 +329,10 @@
     \advance\@tempcnta-\c@page
     \ifnum\@tempcnta=0
     \else
-      \ifnum\@tempcnta=1 $B!J<!%Z!<%8!K(B
+      \ifnum\@tempcnta=1 （次ページ）
       \else
-        \ifnum\@tempcnta=-1 $B!JA0%Z!<%8!K(B
-        \else $B!J(B\pageref{#1}$B%Z!<%8!K(B
+        \ifnum\@tempcnta=-1 （前ページ）
+        \else （\pageref{#1}ページ）
         \fi
       \fi
     \fi
@@ -351,7 +351,7 @@
   \hbox{\hbox to \shaderule{\copy0\hss}\kern \z@
   \vrule\@width\wd0\@height\z@\@depth\shaderule\hskip-\shaderule
   \vrule\@width\shaderule\@height\dimen0}}
-\def\sankoumark{{\small $B!z(B}}
+\def\sankoumark{{\small ★}}
 \newenvironment{sankou}{\vspace{3pt}%
   \begin{list}{}{%
     \setlength{\leftmargin}{3zw}%
@@ -365,7 +365,7 @@
     \setlength{\partopsep}{0pt}%
     \setlength{\listparindent}{0zw}%
   }\item[\sankoumark]\small}{\end{list}}
-\def\toimark{{\small\bf $B!ZLd![(B}}
+\def\toimark{{\small\bf 【問】}}
 \newenvironment{toi}{\vspace{3pt}%
   \begin{list}{}{%
     \setlength{\leftmargin}{3zw}%
@@ -398,7 +398,7 @@
 \newcommand{\5}{\penalty50 }          % \penalty\exhyphenpenalty
 \newcommand{\ANGLE}[1]{%
   $\langle$\kern0pt\nobreak{#1}\kern0pt\nobreak$\rangle$}
-\newcommand{\$B3t(B}{\hspace{\kanjiskip}\<$B!J3t!K(B\<\hspace{\kanjiskip}}
+\newcommand{\株}{\hspace{\kanjiskip}\<（株）\<\hspace{\kanjiskip}}
 \@ifundefined{widebaselines}{}{%
   \let\endmathdisplaysave=\endmathdisplay
   \def\endmathdisplay{\widebaselines\endmathdisplaysave}}
diff --git a/Master/texmf-dist/tex/platex/jsclasses/okuverb.sty b/Master/texmf-dist/tex/platex/jsclasses/okuverb.sty
index 335004af9cf..872b5613570 100644
--- a/Master/texmf-dist/tex/platex/jsclasses/okuverb.sty
+++ b/Master/texmf-dist/tex/platex/jsclasses/okuverb.sty
@@ -44,12 +44,12 @@
 \fi
 \def\verbatim@font{\ttfamily}
 \def\verb{%
-  \leavevmode\hbox % $BJQ99(B
+  \leavevmode\hbox % 変更
   \bgroup
     \verb@eol@error \let\do\@makeother \dospecials
     \verbatim@font\@noligs
-    \noautoxspacing % $BDI2C(B
-    \verbh@@k % $BDI2C(B
+    \noautoxspacing % 追加
+    \verbh@@k % 追加
     \@ifstar\@sverb\@verb}
 \if@yen
 \begingroup \catcode `|=0 \catcode `[= 1