\define[1]\divisionrule {\dontleavehmode\blap {\vskip-\strutht \blackrule[width=\the\dimexpr.5em*#1\relax,height=2\linewidth]}% \vskip-\lineheight}

Ahh! Yes, this helps a lot. Thank you very much! Wolfgang