%%
%% The LaTeX Companion, 3ed
%%
%% Example 7-3-1 on page I-530 in "float --- Creating new float types".
%%
%% Copyright (C) 2022 Frank Mittelbach
%%
%% It may be distributed and/or modified under the conditions
%% of the LaTeX Project Public License, either version 1.3c
%% of this license or (at your option) any later version.
%%
%% See https://www.latex-project.org/lppl.txt for details.
%%

\documentclass{tlc3exa}
\pagestyle{empty}
\setcounter{page}{6}
\setlength\textwidth{189.0pt}

  \setcounter{page}{1}
  \setlength\textheight{20.5\baselineskip}
  \addtolength\textwidth{-5pt}               % account for boxed float sticking out into margin
  \setlength\textfloatsep{6pt}
  \setlength\intextsep{6pt}
  % for the book examples we shorten the
  % vertical spaces and use a smaller font for
  % the heading
  \makeatletter
  \renewcommand\section{\@startsection{section}{1}{\z@}%
    {-1.25ex \@plus-1ex \@minus-.2ex}%
    {.5ex}%
    {\normalfont\large\bfseries}}
  \makeatother

%StartShownPreambleCommands
 \usepackage{lipsum,float}
 \floatstyle{boxed}
 \newfloat{Series}{b}{los}[section]
 \floatstyle{ruled}
 \newfloat{XML}{H}{lox}
 \floatname{XML}{XML Listing}
 \newcommand\xmlcode[1]{\texttt{#1}}
%StopShownPreambleCommands

\begin{document}
 \section{New float environments}
 \lipsum[1][1]
 \begin{Series} \caption{Euler's constant}
  \[ \mathrm{e}
     = 1 + \sum^\infty_{k=1} \frac{1}{k!}\]
 \end{Series}
 \begin{XML} \caption{A simple XML file}
  \xmlcode{<XMLphrase>Great fun!</XMLphrase>}
 \end{XML}
 \lipsum[1][2]
 \begin{XML}
  \caption{Processing instruction}
  \xmlcode{<?xml version=''1.0''?>}
 \end{XML}
 \lipsum[2]
\end{document}