\documentclass{article}[12pt]

\usepackage{graphicx}

\textheight=25cm
\textwidth=18cm
\hoffset=-3cm
\voffset=-3cm

\def\width{9cm}
\def \x#1#2{
\hbox{\vbox{
  \centerline{\includegraphics[width=\width,angle=270]{\name.#1.ps}
    \includegraphics[width=\width,angle=270]{\name.#2.ps}
%     \includegraphics[width=\width,angle=270]{\name.#3.ps}
    }
\hbox to \textwidth{\large \bf \name.#1.ps \hfill \name.#2.ps\hfill}
}}


}




\def\s#1{
  \def\name{#1}
  \newcount\nr\nr=1
  {\loop
    \edef\nra{\the\nr} \advance \nr by 1
    \edef\nrb{\the\nr} \advance \nr by 1
                                %   \edef\nrc{\the\nr} \advance \nr by 1
    \x \nra \nrb % \nrc 
    \ifnum\nr<\the\total
    \repeat}
  }

\begin{document}
\newcount\total\total=21\s{x.4709} %
\newcount\total\total=19\s{x.4707} %
\newcount\total\total=92\s{x.1097} %
\newcount\total\total=92\s{x.1095}
\end{document}