文章を囲みたいのですが…

名前: YOSHI
日時: 2003-03-10 15:47:42
IPアドレス: 61.213.105.*

どなたか教えてください．

\documentclass[b5paper,tombo,11pt,oneside]{jsbook}
\usepackage{epsf,verbatim,path,amsmath,bm,amssymb,cite,pifont}
\usepackage[dvips]{graphicx}
\usepackage{times}
\pagestyle{plain}
\setlength{\textwidth}{28zw}
\usepackage{makeidx}
\makeindex
\newdimen\FRAMEsep \FRAMEsep=15pt
\newenvironment{FRAME}{%
  \setbox0=\hbox\bgroup\ignorespaces}{\egroup
  \@tempdimb=\linewidth \advance\@tempdimb by -2\FRAMEsep
  \ifdim\wd0>\@tempdimb \@tempdima=\linewidth
    \else\@tempdima=\wd0\advance\@tempdima by 2\FRAMEsep\fi
  \begin{trivlist}\item[]
  \hrule width \@tempdima
  \hbox to \@tempdima{%
    \advance\@tempdima by -2\FRAMEsep
    \hsize=\@tempdima\vrule\hfill
    \vbox{\vskip5pt\def\thempfootnote{\arabic{mpfootnote}}%
	\begin{minipage}{\@tempdima}\unhbox0\end{minipage}%
        \vskip5pt}\hfill\vrule}\hrule width \@tempdima
  \end{trivlist}}
\makeatother
\begin{document}
\include{ej1}
\include{ej2}
\include{ej3}
\printindex
\end{document}

上記の環境で下記のプログラムソースのテキスト文を囲みたいと思います．
いろいろやってみましたが，だめです．
よろしくお願いします．

\begin{quote}
\small 
\setlength{\baselineskip}{11pt}
\begin{verbatim}
C********************************************************
C     ２次                            
C********************************************************
\end{verbatim}
\end{quote}

この書き込みへの返事：