TeX: program 用環境

program と code を作ってみた。

documentclass[10pt]{article}
usepackage{ascmac}
usepackage{fancybox}

newenvironment{program}{
  VerbatimEnvironment
  baselineskip=.80normalbaselineskip
  begin{quote}begin{screen}begin{footnotesize}begin{Verbatim}
}{
  end{Verbatim}end{footnotesize}end{screen}end{quote}
  baselineskip=normalbaselineskip
}

newenvironment{code}[2]{
  VerbatimEnvironment
  baselineskip=.80normalbaselineskip
  begin{quote}begin{itembox}[#1]{footnotesize #2}begin{footnotesize}begin{Verbatim}
}{
  end{Verbatim}end{footnotesize}end{itembox}end{quote}
  baselineskip=normalbaselineskip
}

begin{document}
begin{program}
int main(void) { return 0; }
end{program}

begin{code}{l}{sample}
$ cc f.c -o f && ./f && echo $?
0
end{code}
end{document}