\def\xaxIs{\ifnum\xscaling=1\raise\xnumberheight\hbox to\xtotal{%
\divide\xmin\xbasis\divide\xmax\xbasis%
\divide\xinc\xbasis%
\ifnum\xbasis=10\else\message{xnumber-Error!}\fi%
\kern\xpos\kern-.5\xnumberlength\loop\xvalint\xmin\relax%
\hbox to\xnumberlength{\hss\ifnum\xvalint<0-\xvalint-\xvalint\fi%
\relax\number\xvalint\hss}%
\ifnum\xmin<\xmax\advance\xmin\xinc\hss%
\else\xfinal1\fi\relax\ifnum\xfinal<1\repeat}\kern-\xtotal\fi}%