%% 
%%  A DANTE-Edition example
%% 
%%  Example 06-00-45 on page 210.
%% 
%%  Copyright (C) 2010 Herbert Voss
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 
%% 
%% ==== 
% Show page(s) 1
%% 
\documentclass[]{article}
\pagestyle{empty}
\setlength\textwidth{375.57637pt}
\setlength\parindent{0pt}
\usepackage[utf8]{inputenc}
\usepackage[ngerman]{babel}
\makeatletter
\newcounter{tempI}
\newcommand*\Ceiling[3]{%
  \@tempdima#1\relax\@tempdimb#2\relax
  \@tempdimc\z@\@tempcnta\z@
  \loop
  \ifdim \@tempdimc<\@tempdima
    \advance\@tempdimc\@tempdimb
    \advance\@tempcnta\@ne
  \repeat
  #3=\@tempcnta \ignorespaces
}
\newcommand*\show@Value[2]{%
  \@tempcnta=#2\relax
  \advance\@tempcnta-#1\relax
  \makebox[0pt][c]{\the\@tempcnta}%
}
\newcommand*\Lineal[1][\linewidth]{%
  \noindent
  \begingroup
    \thinlines \unitlength=1mm \normalfont\scriptsize\sffamily
    \settoheight\@tempdima{0}\advance\@tempdima2.7\unitlength
    \picture(#1\@gobble,\@tempdima\@gobble)%
      \put(0,0){\line(1,0){#1\@gobble}}
      \Ceiling{#1}{\unitlength}{\value{tempI}}
      \multiput(0,0)(1,0){\value{tempI}}{\line(0,1){1}}
      \Ceiling{#1}{5\unitlength}{\value{tempI}}
      \multiput(0,0)(5,0){\value{tempI}}{\line(0,1){2}}
      \Ceiling{#1}{10\unitlength}{\value{tempI}}
      \multiput(0,0)(10,0){\value{tempI}}{%
        \put(0,0){\line(0,1){2.7}}
        \put(0,3){\show@Value{\@multicnt}{\value{tempI}}}}
    \endpicture
  \endgroup \ignorespaces}
\newenvironment{testArea}%
  {\list{}{%
   \rightmargin=1.5mm\relax
   \leftmargin-\rightmargin
   \advance\linewidth2\rightmargin
   \topsep\z@
   \itemsep\parskip
   \parsep\parskip
   \partopsep\parskip
   \let\makelabel\@gobble}%
   \item[]%
   \minipage{\linewidth}\normalfont\itshape
   \Lineal\par}%
  {\endminipage\endlist}
\newcommand*\Pfeil{%
  \picture(0,0)%
    \put(0,0){\vector(0,1){1.5\ht\strutbox\@gobble}}
  \endpicture}
\makeatother

\usepackage{tabto}

\begin{document}
\begin{testArea}% see preamble of the example -> CTAN
  \NumTabs{4}
  duck \tab goose \tab turkey \tab coot   \par
       \tab       \tab        \tab grouse
\end{testArea}

\bigskip
\begin{testArea}
  \TabPositions{1.5cm,5cm,8cm}
  duck \tab goose \tab turkey \tab coot   \par
       \tab       \tab        \tab grouse
\end{testArea}

\bigskip
\begin{testArea}
  duck      \tabto{1.5cm} goose  \tabto{5cm}  turkey \tabto{8cm}
  coot \par \tabto{8cm}   grouse \tabto*{4cm} pelican
\end{testArea}
\end{document}
