\setbox1\hbox{\vrUl{.08em}{0pt}{.08em}}%
\def\docOnnect{\ifdim\dhelptwo=\dhelptwenty%
\advance\dhelptwenty\hAlf\wd2\advance\ynumbering\hAlf\dp2%
\advance\ynumbering\hAlf\ht2\advance\xfraclen\hAlf\dp2%
\advance\xfraclen\hAlf\ht2\kern\dhelptwenty%
\ifdim\ynumbering>\xfraclen\negadvAnce\xfraclen\dhelpone%
\vrUl\dhelpone\ynumbering{-\xfraclen}\else%
\negadvAnce\ynumbering\dhelpone%
\vrUl\dhelpone\xfraclen{-\ynumbering}\fi%
\kern-\dhelpone\kern-\dhelptwenty\else\ifdim\ynumbering=\xfraclen%
\advance\dhelptwenty\hAlf\wd2\advance\dhelptwo\hAlf\wd2%
\ifdim\dhelptwo>\dhelptwenty\ynumbering\dhelptwo\dhelptwo\dhelptwenty%
\dhelptwenty\ynumbering\fi\negadvAnce\dhelptwenty\dhelptwo%
\advance\xfraclen\hAlf\dp2\advance\xfraclen\hAlf\ht2%
\ynumbering\xfraclen\negadvAnce\ynumbering\dhelpone\kern\dhelptwo%
\vrUl\dhelptwenty\xfraclen{-\ynumbering}%
\kern-\dhelptwo\kern-\dhelptwenty\else\dhelpnineteen\dhelptwo%
\negadvAnce\dhelpnineteen\dhelptwenty%
\divide\dhelpnineteen\thOusand0\dhelpseventeen\ynumbering%
\negadvAnce\dhelpseventeen\xfraclen\divide\dhelpseventeen\thOusand0%
\cthree\dhelpnineteen\multiply\cthree\dhelpnineteen%
\cfour\dhelpseventeen\multiply\cfour\dhelpseventeen%
\advance\cfour\cthree\rOot\chelpthree0\cfour\thOusand0%
\negadvAnce\cfour\chelpthree\csix\wd1\multiply\csix2%
\divide\csix3\divide\csix\cthree\advance\xfraclen\hAlf\dp2%
\advance\dhelptwenty\hAlf\wd2\advance\xfraclen\hAlf\ht2%
\kern\dhelptwenty\loop\dhelptwelve\zEro%
\advance\dhelptwelve\chelpthree\dhelpnineteen\dhelpeighteen\xfraclen%
\advance\dhelpeighteen\chelpthree\dhelpseventeen\kern\dhelptwelve%
\raise\dhelpeighteen\copy1\kern-\wd1\kern-\dhelptwelve%
\advance\chelpthree\csix%
%neu
    \advance\chelpthree\csix%
    \advance\chelpthree\csix%
    \advance\chelpthree\csix%
\ifnum\chelpthree<\cfour\repeat\kern-\dhelptwenty\fi\fi}%
