diff --git a/doc/latex/decls.tex b/doc/latex/decls.tex
index d7948b3..47fb16e 100644
--- a/doc/latex/decls.tex
+++ b/doc/latex/decls.tex
@@ -310,14 +310,6 @@
 \newcommand{\seelisting}[1]{%
 {\normalfont{\textit{$<$see listing~\ref{#1}\/$>$}}}}
 
-\newfloat{program}{t}{lop}
-\floatname{program}{Programm}
-\newenvironment{floatprog}[2]
- {\begin{program}[ht] \caption{#1} \label{#2} \begin{alltt}}
- {\end{alltt} \end{program}%
-  % Force output of even long floating figs
-  \afterpage{\clearpage}}
-
 % Use url-package to get function names line-breaked at - / +
 % by infos in /usr/share/texmf/tex/latex/misc/url.sty
 %%\newcommand\breakfuntt{\begingroup \urlstyle{tt}%