Cybernetics

\newcounter{mysourcecounter}[section]
\setcounter{mysourcecounter}{1}
\makeatletter
\newcommand{\listofsources}{\@starttoc{xmp}}
\newenvironment{Source}[1]{\addcontentsline{xmp}{source}{#1}
  \vskip 1em
  \noindent\hrule height 1pt
  \vskip 2pt
  \noindent{\bf Source \thesection .\themysourcecounter} #1\stepcounter{mysourcecounter}
  \vskip 2pt
  \noindent\hrule height 0.4pt
  \begin{list}{}{\setlength\leftmargin{0pt}}\item[]}
  {\end{list}
  \vskip 2pt
  \noindent\hrule height 1pt
  \vskip 1em}
\newcommand{\l@source}[2]{\par\noindent#1 \dotfill {\itshape #2}}
\makeatother

\begin{document}
  \fvset{fontsize=\footnotesize}
  \listofsources
  \newpage
  \begin{Source}{Hello World!}
    \begin{Verbatim}
#include <stdio.h>

int main()
{
        printf("Hello, World!");
}
    \end{Verbatim}
  \end{Source}
\end{document}