\NeedsTeXFormat{LaTeX2e}
\ProvidesClass{inrblankkoi}[2001/02/17]
\DeclareOption{twoside}{\OptionNotUsed}
\DeclareOption*{\PassOptionsToClass{\CurrentOption}{article}}
\ProcessOptions\relax
\LoadClass[12pt,a4paper]{article}
\RequirePackage[koi8-r]{inputenc}
\RequirePackage[T2A]{fontenc}
\RequirePackage[russian]{babel}
\RequirePackage{url}
\RequirePackage{tabularx}

%\hoffset=-0.25in
\oddsidemargin=0pt
\textwidth=\paperwidth
\advance\textwidth by -1.5in
\@settopoint\textwidth

\newsavebox{\blankheader}
\sbox{\blankheader}{\parbox{\textwidth}{%
  \leavevmode{\sffamily\bfseries\huge\def\arraystretch{0}%
              \begin{tabular}{@{}r@{}l@{}}é&I\\[2pt]
                                    ñ&N\\[2pt]
                                    é&R\\
              \end{tabular}}\hfil
    \begin{tabular}{c}
      \sffamily\Large òïóóéêóëáñ áëáäåíéñ îáõë \\
      \sffamily\huge éîóôéôõô ñäåòîùè éóóìåäï÷áîéê \\
    \end{tabular}
  \begin{center}\itshape\small
    117312, íÏÓË×Á, ÷-312, ÐÒÏÓÐÅËÔ 60-ÌÅÔÉÑ ïËÔÑÂÒÑ, 7Á. äÌÑ
      ÔÅÌÅÇÒÁÍÍ: íÏÓË×Á, íåúïî\\
    ôÅÌÅÆÏÎ: 135-77-60, 334-00-71, 334-01-79 (ËÁÎÃ.) æÁËÓ: 135-22-68, \\
    E-mail: \url{inr@inr.ac.ru}
  \end{center}%
}}

\newcommand{\lupangle}{\rule{0.4pt}{12pt}\raise 12pt\rlap{\rule{12pt}{0.4pt}}}
\newcommand{\rupangle}{\raise 12pt\llap{\rule{12pt}{0.4pt}}\rule{0.4pt}{12pt}}
\newcommand{\ldownangle}{\rule{0.4pt}{12pt}\rlap{\rule{12pt}{0.4pt}}}
\newcommand{\rdownangle}{\llap{\rule{12pt}{0.4pt}}\rule{0.4pt}{12pt}}


\voffset=-0.5in
\topmargin=0pt
\headheight=\ht\blankheader
\advance\headsep by \dp\blankheader
\textheight=\paperheight
\advance\textheight by -1.2in
\advance\textheight by -\headheight
\advance\textheight by -\headsep
\advance\textheight by -\footskip

\newcommand{\ps@blank}{%
  \renewcommand{\@oddhead}{\usebox{\blankheader}}%
  \renewcommand{\@oddfoot}{\ldownangle\hfill\rdownangle}
}

\pagestyle{blank}


\newcommand{\numtoday}{\number\day/\number\month/\number\year}
\date{\numtoday}

\newcommand{\outnumber}[1]{\def\blank@outnumber{#1}}
  \outnumber{}
\newcommand{\refnumber}[1]{\def\blank@refnumber{#1}}
  \refnumber{}

\newenvironment{letter}[2]{\noindent\vtop{
    \hbox{\begin{tabularx}{0.5\textwidth}{ccX}
      \hbox to 3cm{\hfill\@date\hfill} & \No
        & \blank@outnumber\\\cline{1-1}\cline{3-3}
    \end{tabularx}}\vspace{1ex}
    \hbox{\begin{tabularx}{0.5\textwidth}{cX}
      îÁ \No & \blank@refnumber\\\cline{2-2}
    \end{tabularx}}\vspace{2ex}
    \hbox{\lupangle~\parbox[t]{0.4\textwidth}{\leavevmode\ignorespaces
                                              #1}~\rupangle}
  }
  \lupangle~\hbox to 0.48\textwidth{\hfill
              \vtop{\let\\=\cr\halign{##\hfil\cr #2\cr}}
            }~\rupangle
  \vfil
}{\vfil\vfil\eject}