いつもお世話になっています。
以前の過去ログから直円錐に内接する球を検索し，田中徹さんのソースをダウンロードした所コンパイルできませんでした。どこに問題があるのでしょうか？

\documentclass{jarticle}
\usepackage{emathP}
\begin{document}
\begin{zahyou*}[ul=10mm](-3.5,3.5)(-4,10){}%
\def\A{(0,4)}%
\def\O{(0,0)}%
\tenretu*<perl>{B(-sqrt(2),0)}
\Kaiten\O\B{180}\BB
\Kyori\O\B\Xr%
\Mul\Xr{0.25}\Yr%<=底面は縦横比4:1の楕円(変更可)
\DaenniSessen\O{\Xr}{\Yr}\A\P\Q%
{\thicklines%
\Drawline{\A\P}%
\Drawline{\A\Q}%
\Earg\O{\Xr}{\Yr}\P\argP%
\Earg\O{\Xr}{\Yr}\Q\argQ%
%%% ここまでが円錐のメイン %%%
\Hen_ko[30]<0.3>\O\A{4}%
\Hen_ko[20]<0.3>\B\O<henkosep={2pt}>{\small$\sqrt{2}$}%
\Put\O{\Daenko{\Xr}{\Yr}{\argP}{\argQ}}%
\thinlines%
\Put\O{\Daenko<hasen=[0.5][0.5]>{\Xr}{\Yr}{\argQ}{\argP}}%
}
{\thicklines%
\Naisetuen\A\B\BB% 安直な内接球
}
\Hasen{\O\A}%
\Hasen{\O\B}%
\end{zahyou*}%
\end{document}

以下エラーログです。

Runaway argument?
<\@nil \edef \@OresenV@old {\@OresenV }\relax \relax \ifthenelse {\not \ETC.
! File ended while scanning use of \@@ntenretu@sub.
<inserted text> 
                \par 
<*> 円錐.tex

よろしくご教授ください。

▼関連発言
│
└◆2063:直円錐に内接球 [euler] 11/14 13:04
　└◆2064:Re:直円錐に内接球 [飯島　徹] 11/14 13:11
　　└◆2065:Re[2]:直円錐に内接球 [euler] 11/14 13:32
　　　└◆2066:Re[3]:直円錐に内接球 [飯島　徹] 11/14 14:06
　　　　└◆2067:Re[4]:直円錐に内接球 [euler] 11/14 14:17<-last