<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">%NAME: isucaption.sty
% written by gagac@isumvs.bitnet
%
%Figure 1.1: This is the debugged version of a modified caption macro
%            to produce captions with hanging indentation (like this).
%            If the caption is less than a full line, it will be
%            centered.  \isucaption is used in the same way as \caption
%            (the name may be changed).
%            The variable \captionwidth may be set to match the width
%            of a \tabular* environment.  If set inside a table or
%            figure environment, it will affect only that environment.

\def\isucaption{\refstepcounter\@captype
  \@dblarg{\@isucaption\@captype}}

\newlength\captionwidth \captionwidth=\hsize
\long\def\@isucaption#1[#2]#3{
  \baselineskip 14.5 pt
  \addcontentsline {\csname ext@#1\endcsname}{#1}
  {\protect\numberline{\csname fnum@#1\endcsname}{\ignorespaces #2}}
     \par
  \begingroup
    \@parboxrestore
    \setbox\@tempboxa\hbox{\csname fnum@#1\endcsname #3}
    \ifdim \wd\@tempboxa &gt;\captionwidth
      \begingroup
       \setbox\@tempboxa\hbox{\csname fnum@#1\endcsname^^}
       \advance \captionwidth by -\wd\@tempboxa
        \@makecaption{\csname fnum@#1\endcsname}
        {\ignorespaces{\protect\parbox[t]{\captionwidth}{#3}}}%
      \endgroup
     \else
        \begingroup
           \@makecaption{\csname fnum@#1\endcsname}
           {\ignorespaces #3}
        \endgroup
     \fi
    \par\vspace{1.7ex}
  \endgroup}
</pre></body></html>