% ============ modified to center heads /subheads .... ======
%the parameters must be as shown and will have that meaning
% #1 font (=#3); #2 number (=#4) ; #3 <text> (=#5); #4 number/text sep (=#7)
% check on \t@agtext suppresses space when there is no number
\catcode`\@=11
\def\gensheadformat#1#2#3#4{\ifx\t@agtext\empty\setbox0=\hbox{}\else
\setbox0=\hbox{#1#2#4}\fi
\vbox{\paragraphcenterline \normalbaselines
#1\box0 #3}}
\catcode`\@=12