%% Environment for setting programs. Newlines are explicit, because
%% otherwise I need comments in weird places to make the vertical spacing
%% come out properly. You can write `\obeylines' if you really want to.
-\def\prog{\codeface\quote\tabbing}
+\def\prog{\let\prog@@cr\@tabcr\let\@tabcr\@progcr\codeface\quote\tabbing}
\def\endprog{\endtabbing\endquote}
\def\ind{\quad\=\+\kill}
+\def\@progcr{\futurelet\@tempa\@progcr@i}
+{\def\:{\gdef\@progcr@sp}\: {\@progcr}}
+\def\@progcr@i{%
+ \ifx\@tempa\@sptoken\let\next@\@progcr@sp\else
+ \if1\ifx\@tempa[1\else
+ \ifx\@tempa*1\else
+ 0\fi\fi
+ \let\next@\prog@@cr\else
+ \if1\ifx\@tempa+1\else
+ \ifx\@tempa-1\else
+ 0\fi\fi
+ \let\next@\@progcr@ii\else
+ \let\next@\@progcr@a\fi\fi\fi
+ \next@}
+\def\@progcr@a{\prog@@cr*{}\ignorespaces}
+\def\@progcr@ii#1{\csname @progcr@#1\endcsname\ignorespaces}
+\@namedef{@progcr@+}{\prog@@cr[\medskipamount]}
+\@namedef{@progcr@-}{\prog@@cr*[\jot]}
%% Put a chunk of text in a box.
\newenvironment{boxy}[1][\q@]{%
\if@nobreak\else\par\goodbreak\fi%
\global\@dheadfirsttrue%
\begingroup%
- \codeface%
\let\@endparenv\relax%
\clubpenalty\@M \widowpenalty\@M \interlinepenalty50%
- \tabbing#1\endtabbing%
+ \@prog#1\endtabbing%
\endgroup%
\penalty\@M\@afterheading%
\list{}{\rightmargin\z@\topsep\z@}\item%