\font\tinyx=cmr8 at 6pt \def\tiny{\tinyx \baselineskip=6pt}
\font\headx=cmb8 at 9pt \def\head{\headx \baselineskip=9pt}

\hoffset -0.5in
\voffset -0.5in
\hsize 7.5in
\vsize 10in

\catcode `\@11
\def\@name{}
\def\@course{}
\def\@teacher{}
\def\name#1{\def\@name{#1}}
\def\course#1{\def\@course{#1}}
\def\teacher#1{\def\@teacher{#1}}
\def\makeheader{
\noindent Your Name: \@name
\vskip 2ex plus 0pt
\noindent Course: \@course
\vskip 2ex plus 0pt
\noindent Teacher: \@teacher
\vskip 2ex plus 0pt
}

\def\column#1#2{ %width %count %text=
  \def\item##1{
    \noindent \vrule \vbox{
      \hrule \hsize#1 ##1
      \hrule
    }\vrule\par \vskip -1.5pt
  }
  #2%
}

\def\row#1#2#3{ %width %count %text
  \count10=0
  \def\item##1{
    \hskip 0.4em
    \vbox{
      \hsize #1 \smallskip
      ##1
    }
    \advance \count10 by 1 \ifnum\count10<#2 \vrule \fi
  }
  \hbox{\hskip -0.15em #3 \hskip -0.6em}
}

\def\@question{}
\def\question#1{\def\@question{#1}}
\def\@claim{} \def\claim#1{\def\@claim{#1}}
\def\@evidence{} \def\evidence#1{\def\@evidence{#1}}
\def\@justification{} \def\justification#1{\def\@justification{#1}}

\def\@data{} \def\@columns{} \dimendef\@tablewidth=1
\def\data#1#2#3{
  \def\@columns{#1} \dimen1=#2\relax
  \def\@data{#3}
}

\def\makedata{
  \def\text##1{\ \tolerance=10000 \hbadness=10000 \hbox to \@tablewidth{\vbox{\vskip1ex \noindent \hsize\@tablewidth ##1 \smallskip}} }
  \gdef\endlinex{\cr \noalign{\hrule height 0.05pt}}
  \halign{\vrule width 1pt \text{##} & \text{##} \vrule width 1pt & ## \cr
    \noalign{\hrule height 1pt}
    \@data
    \noalign{\hrule height 1pt}
  }
}

\def\pad#1{\smallskip #1 \smallskip}
\def\parsub{\par}
\def\makedoc{
  \column{7.4in}{
    \item{\pad{{\bf Question:} \@question}}
    \item{\pad{{\bf Claim:} \@claim}}
    \item{\row{3.6015in}{2}{
      \item{ {\bf Evidence:} \parsub\parsub \noindent\makedata\parsub\smallskip \@evidence \smallskip}
      \item{ {\bf Justification (Reasoning) of the Evidence:} \parsub \@justification \smallskip }
    }}
  }
}

\name{Holden Rohrer}
\course{FVS Chemistry AB 19.3}
\teacher{Kerr}

\question{Based on a substance's properties, how can you determine whether its bonds are ionic or covalent?}
\claim{If a substance is solid at room temperature, has a crystalline structure, dissolves easily in water, and conducts electricity well, then it likely contains ionic bonds. Otherwise, it likely contains covalent bonds.}

\data{2}{1.65in}{testtest & xrioe &\endlinex this is & a line &\cr}
\evidence{%\parsub \noindent\data\parsub\smallskip
\qquad\qquad\qquad\qquad Lab Results\parsub
Metal ion in Unknown Solution \#1: Lithium \parsub
Metal ion in Unknown Solution \#2: Cesium \parsub
}

\justification{
This makes sense
}

\makeheader
\makedata
\makedoc
\bye
