\ProvidesPackage{result}[1995/01/29  Lines for student responses]

% file: result.sty
% The command result will always use the full line width, and will be
% indented correctly, even when in a list.
% Written by Nick Urbanik.

\RequirePackage{ifthen}

\newcounter{numLinesResult}%

\newcommand{\resultLineSpace}{7mm}
% There must be a way to make these declarations local:
\newlength{\indentLen}
\newlength{\bigLabelWidth}

\newcommand{\result}[3][Write results:]{{%
   \settowidth{\bigLabelWidth}{#1}
   \setlength{\parskip}{0pt}%
   \setlength{\parindent}{0pt}%
   \par%
   %\vspace{4ex}%
   \bigbreak% See page 131 of Wynter Snow (Love her name!)
   \setlength{\indentLen}{\linewidth}%
   \addtolength{\indentLen}{-\textwidth}%
   \hspace*{\indentLen}%
   \parbox[t]{\textwidth}{%
      \noindent%
      \ifthenelse{\lengthtest{\bigLabelWidth > 0pt}}%
         {\textbf{\Large #1}\hspace{2em}}%
      %else
         {}%
      #3%
      \par%
      \vspace{.5ex}%
      \par%
      \setcounter{numLinesResult}{#2}%
      \whiledo{\value{numLinesResult} > 0}%
      {%
          \vspace*{\resultLineSpace}%
          \par%
          \noindent\hrule%
          %\noindent\rule{\textwidth}{.4pt}%
          \addtocounter{numLinesResult}{-1}%
      }%
   }%
   \bigbreak% See page 131 of Wynter Snow (Love her name!)
   %\vspace{4ex}%
}}

\newcommand{\LinesForWriting}[1]{{%
   \setlength{\parskip}{0pt}%
   \setlength{\parindent}{0pt}%
   \par%
   \smallbreak% See page 131 of Wynter Snow (Love her name!)
   \vspace{1.5ex}%
   \par%
   \setcounter{numLinesResult}{#1}%
   \whiledo{\value{numLinesResult} > 0}%
   {%
      \vspace*{\resultLineSpace}%
      \par%
      \noindent\hrule%
      %\noindent\rule{#0}{.4pt}%
      \addtocounter{numLinesResult}{-1}%
   }%
   %\vspace{4ex}%
   \bigbreak% See page 131 of Wynter Snow (Love her name!)
}}