\begin{struktogramm}(90,50)
  \assign{fahre vorwärts}
  \while{solange Gestein vorhanden}
    \assign{nimm Gestein}
    \assign{fahre vorwärts}
  \whileend
  \assign{setze eine Marke}
\end{struktogramm}