\documentstyle[12pt,amstex,amssymb,lsymbs,fancyheadings%
               ,righttag,ctagsplt%
	       ]{article}

\sloppy
\textwidth 6.3in %6.5in
\textheight 8.1in %8.4in
\topmargin 0in
\oddsidemargin 0in %-.2in
\evensidemargin 0in %-.2in
\itemsep 0pt

\makeatletter
%%%%%%%%%%%%%%%%%%%%%%%%%%
% Quotation Line Spacing %
%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\singleSpace{%
    \vskip\baselineskip
%    \baselineskip=16.5pt plus .5pt minus .2pt
    \baselineskip=14.5pt plus .5pt minus .2pt
    \vskip-\baselineskip}
\def\endsingleSpace{\par}

\let\Quote\quote
\let\endQuote\endquote
\def\quote{\Quote\singleSpace}
\def\endquote{\endsingleSpace\endQuote}

\let\Quotation\quotation
\let\endQuotation\endquotation
\def\quotation{\Quotation\singleSpace}
\def\endquotation{\endsingleSpace\endQuotation}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \begin{alltt} ... \end{alltt} %
%    From alltt.sty; modified   %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\docspecials{\do\ \do\$\do\&%
  \do\#\do\^\do\^^K\do\_\do\^^A\do\%\do\~}
\def\allttO{\trivlist \item[]\if@minipage\else\vskip\parskip\fi
    \leftskip2.5em\rightskip\z@
    \parindent\z@\parfillskip\@flushglue\parskip\z@
    \@tempswafalse \def\par{\if@tempswa\hbox{}\fi\@tempswatrue\@@par}
    \obeylines \tt \catcode``=13 \@noligs % Old TeXture
    \let\do\@makeother \docspecials
    \frenchspacing\@vobeyspaces}
\let\endallttO=\endtrivlist
\def\alltt{\allttO\singleSpace}
\def\endalltt{\endallttO}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% \nonumberfootnote{...}                      %
%    By modifying \@footnotetext of latex.tex %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\long\def\nonumberfootnote#1{\insert\footins{\footnotesize
    \interlinepenalty\interfootnotelinepenalty
    \splittopskip\footnotesep
    \splitmaxdepth \dp\strutbox \floatingpenalty \@MM
    \hsize\columnwidth \@parboxrestore
    \noindent
    {\rule{\z@}{\footnotesep}\ignorespaces #1\strut}}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Modification to \@sect (from latex.tex)         %
% Modification to \section, etc. (from art12.sty) %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
     \def\@svsec{}\else
%     \refstepcounter{#1}\edef\@svsec{\csname the#1\endcsname\hskip 1em }\fi
     \refstepcounter{#1}\edef\@svsec{\csname the#1\endcsname. }\fi
     \@tempskipa #5\relax
      \ifdim \@tempskipa>\z@
        \begingroup #6\relax
          \@hangfrom{\hskip #3\relax\@svsec}{\interlinepenalty \@M #8\par}%
        \endgroup
       \csname #1mark\endcsname{#7}\addcontentsline
         {toc}{#1}{\ifnum #2>\c@secnumdepth \else
                      \protect\numberline{\csname the#1\endcsname.}\fi
                    #7}\else
        \def\@svsechd{#6\hskip #3\@svsec #8\csname #1mark\endcsname
                      {#7}\addcontentsline
                           {toc}{#1}{\ifnum #2>\c@secnumdepth \else
                             \protect\numberline{\csname the#1\endcsname.}\fi
                       #7}}\fi
     \@xsect{#5}}
 
\def\section{\@startsection{section}{1}{\z@}%
    {3.0ex plus 1ex minus .2ex}{1.0ex plus .2ex}{\large\bf}}
\def\subsection{\@startsection{subsection}{2}{\z@}%
    {2.5ex plus 1ex minus .2ex}{.85ex plus .2ex}{\normalsize\bf}}
\def\subsubsection{\@startsection{subsubsection}{3}{\z@}%
    {2.25ex plus 1ex minus .2ex}{.75ex plus .2ex}{\normalsize\it}}
\def\paragraph{\@startsection{paragraph}{4}{\z@}%
    {2.0ex plus 1ex minus .2ex}{-1em}{\normalsize\it}}
\def\subparagraph{\@startsection{subparagraph}{4}{\parindent}%
    {2.0ex plus 1ex minus .2ex}{-1em}{\normalsize\it}}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Modification to `fancyheading.sty' %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% avoid overfull \vbox warning
\addtolength{\headheight}{\@ptsize.6pt}
% remove \uppercase
\def\ps@fancy{
\let\@mkboth\markboth
\@ifundefined{chapter}{\def\sectionmark##1{\markboth{##1}{}}
\def\subsectionmark##1{\markright{##1}}}
{\def\chaptermark##1{\markboth {##1}{}}
\def\sectionmark##1{\markright{##1}}}
\def\@oddhead{\@fancyhead\relax\@olhead\@ochead\@orhead\hss}
\def\@oddhead{\@fancyhead\relax\@olhead\@ochead\@orhead\hss}
\def\@oddfoot{\@fancyfoot\relax\@olfoot\@ocfoot\@orfoot\hss}
\def\@evenhead{\@fancyhead\hss\@elhead\@echead\@erhead\relax}
\def\@evenfoot{\@fancyfoot\hss\@elfoot\@ecfoot\@erfoot\relax}
\headwidth\textwidth}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% The enumerate environment is modified. %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\labelenumi{\theenumi.}
    \def\theenumi{\arabic{enumi}}
\def\labelenumii{\theenumi.\theenumii.}
    \def\theenumii{\arabic{enumii}}
    \def\p@enumii{\theenumi.}
\def\labelenumiii{\theenumi.\theenumii.\theenumiii.}
    \def\theenumiii{\arabic{enumiii}}
    \def\p@enumiii{\theenumi.\theenumii.}
\def\labelenumiv{\theenumi.\theenumii.\theenumiii.\theenumiv.}
    \def\theenumiv{\arabic{enumiv}}
    \def\p@enumiv{\theenumi.\theenumii.\theenumiii.}

\def\enumerate{\ifnum \@enumdepth >3 \@toodeep\else
    \advance\@enumdepth \@ne
    \edef\@enumctr{enum\romannumeral\the\@enumdepth}\list
    {\csname label\@enumctr\endcsname}{%
    \usecounter{\@enumctr}
    \itemsep 0pt   % <---
    \parsep\parskip  % <---
    \labelsep = .5em
    \ifnum \@enumdepth = 1
           \labelwidth 1em
           \leftmargin 2.5em
    \else
    \ifnum \@enumdepth = 2
           \labelwidth 1.6em
           \leftmargin\labelwidth\advance\leftmargin\labelsep
    \else
    \ifnum \@enumdepth = 3
           \labelwidth 2.4em
           \leftmargin\labelwidth\advance\leftmargin\labelsep
    \else
           \labelwidth 3.2em
           \leftmargin\labelwidth\advance\leftmargin\labelsep
    \fi\fi\fi
    \def\makelabel##1{\rlap{##1}\hss}}\fi}
\let\endenumerate =\endlist

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% The itemize environment is modified. %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\labelitemi{\vbox{\hrule depth-1.5pt height5pt width3.5pt}}
%\def\labelitemi{$\bullet$}
%\def\labelitemii{\bf --}
%\def\labelitemiii{$\ast$}
%\def\labelitemiv{$\cdot$}

\def\itemize{\ifnum \@itemdepth >3 \@toodeep\else
    \advance\@itemdepth \@ne
    \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}\list
    {\csname\@itemitem\endcsname}{%
    \itemsep 0pt   % <---
    \parsep\parskip  % <---
    \def\makelabel##1{\hss\llap{##1}}}\fi}
\let\enditemize =\endlist

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Modification to \newtheorem of latex.tex %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\def\@begintheorem#1#2{%
    \series{m}\shape{n}\family{cmr}\selectfont   % medium italic roman
    \trivlist
    \item[\hskip \labelsep{%
          \series{m}\shape{sc}\family{cmr}\selectfont % medium small caps roman
          #1\ #2.}] \hspace*{\fill} \\
          }
\def\@opargbegintheorem#1#2#3{%
    \series{m}\shape{n}\family{cmr}\selectfont   % medium italic roman
    \trivlist
     \item[\hskip \labelsep{%
          \series{m}\shape{sc}\family{cmr}\selectfont % medium small caps roman
          #1\ #2.\
%          \series{m}\shape{n}\family{cmr}\selectfont  % medium normal roman
          (#3)}] \hspace*{\fill} \\
          }
\def\@endtheorem{\endtrivlist}

\def\proof{\@ifnextchar[{\@proof}{\@@proof}}
\def\@proof[#1]{%
    \series{m}\shape{n}\family{cmr}\selectfont   % medium italic roman
    \trivlist
     \item[\hskip \labelsep{%
          \series{m}\shape{sc}\family{cmr}\selectfont % medium small caps roman
          Proof of #1.}] \hspace*{\fill} \\
          }
\def\@@proof{%
    \series{m}\shape{n}\family{cmr}\selectfont   % medium italic roman
    \trivlist
     \item[\hskip \labelsep{%
          \series{m}\shape{sc}\family{cmr}\selectfont % medium small caps roman
          Proof of Theorem \thetheorem.}] \hspace*{\fill} \\
          }
\def\endproof{$\blacksquare$\endtrivlist}

%%%%%%%%%%%%%%%%%%%%%%%
% Fancy Heading Setup %
%%%%%%%%%%%%%%%%%%%%%%%

\pagestyle{fancyplain}
\lhead{\fancyplain{}{\sl\leftmark}}
\chead{}
\rhead{\fancyplain{}{\thepage}}
\lfoot{}
\cfoot{\fancyplain{\thepage}{}}
\rfoot{\fancyplain{}{\sl \today}}

\makeatother

\begin{document}

\end{document}