COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4
C00008 00003	\:@←cmathx
C00010 00004	\output{\baselineskip 20pt\page\ctrline{\:a\count0}\advcount0}
C00012 ENDMK
C⊗;
\chcode'173←1 \chcode'176←2 \chcode'44←3 \chcode'26←4
\chcode'45←5 \chcode'43←6 \chcode'136←7 \chcode 1←8

\def\%{\char'45 }	% Note, the space after 45 is needed! (e.g.\%0)

\def\lft#1{#1\hfill}
\def\ctr#1{\hfill#1\hfill}
\def\rt#1{\hfill#1}

\def\rjustline#1{\hjust to size{\hskip0pt plus1000cm minus1000cm #1}}
\def\ctrline#1{\hjust to size{\hskip0pt plus1000cm minus1000cm #1\hskip0pt
	plus1000cm minus1000cm}}

\def\trace{\chpar0←} \def\jpar{\chpar1←} \def\ragged{\chpar8←}

\def\log{\mathop{\char'154\char'157\char'147}\limitswitch}
\def\lg{\mathop{\char'154\char'147}\limitswitch}
\def\ln{\mathop{\char'154\char'156}\limitswitch}
\def\lim{\mathop{\char'154\char'151\char'155}}
\def\limsup{\mathop{\char'154\char'151\char'155\,\char'163\char'165\char'160}}
\def\liminf{\mathop{\char'154\char'151\char'155\,\char'151\char'156\char'146}}
\def\sin{\mathop{\char'163\char'151\char'156}\limitswitch}
\def\cos{\mathop{\char'143\char'157\char'163}\limitswitch}
\def\tan{\mathop{\char'164\char'141\char'156}\limitswitch}
\def\cot{\mathop{\char'143\char'157\char'164}\limitswitch}
\def\sec{\mathop{\char'163\char'145\char'143}\limitswitch}
\def\csc{\mathop{\char'143\char'163\char'143}\limitswitch}
\def\max{\mathop{\char'155\char'141\char'170}}
\def\min{\mathop{\char'155\char'151\char'156}}
\def\sup{\mathop{\char'163\char'165\char'160}}
\def\inf{\mathop{\char'151\char'156\char'146}}
\def\det{\mathop{\char'144\char'145\char'164}}
\def\exp{\mathop{\char'145\char'170\char'160}\limitswitch}
\def\Pr{\mathop{\char'120\char'162}}
\def\gcd{\mathop{\char'147\char'143\char'144}}
\def\choose{\comb()}
\def\leftset{\mathopen{\{\,}}
\def\rightset{\mathclose{\,\}}}
\def\modop{\<\,\mathbin{\char'155\char'157\char'144}\<\,}
\def\mod#1{\penalty0\;(\char'155\char'157\char'144\,\,#1)}
\def\eqv{\mathrel\char'421 }
\def\neqv{\mathrel{\not\eqv}}

\def\qquad{\quad\quad}

\def\ldots{{.\≥.\≥.}}
\def\cdots{{\char'401\≥\char'401\≥\char'401}}
\def\ldotss{{.\≥.\≥.\≥}}
\def\cdotss{\cdots\≥}
\def\ldotsm{{\≥.\≥.\≥.\≥}}
\def\vdots{\vjust{\baselineskip 4pt\vskip 6pt\hjust{.}\hjust{.}\hjust{.}}}

\def\eqalign#1{\vcenter{\halign{\hfill$\dispstyle{##}$⊗$\dispstyle{\null##}$\hfill
\cr#1}}}
\def\eqalignno#1{\vjust{\tabskip 0pt plus 1000pt minus 1000pt
   \halign to size{\hfill$\dispstyle{##}$\tabskip 0pt
   ⊗$\dispstyle{\null##}$\hfill\tabskip 0 pt plus 1000pt minus 1000pt
   ⊗\hfill$ ##$\tabskip 0pt\cr#1}}}
\def\cpile#1{\vcenter{\halign{\hfill$## $\hfill\cr#1}}}
\def\lpile#1{\vcenter{\halign{$## $\hfill\cr#1}}}
\def\rpile#1{\vcenter{\halign{\hfill$## $\cr#1}}}
\def\null{\hjust{}}
\def\twoline#1#2#3{\halign{\hjust to size{##}\cr$\quad\dispstyle{#1}$\hfill\cr
\noalign{\penalty 1000\vskip#2}\hfill$\dispstyle{#3}\quad$\cr}}

\def\chop to#1pt#2{\hjust{\lower#1pt\null\vjust{\hjust{\lower100pt\hjust{\raise100pt
\hjust{$\dispstyle{#2}$}}}\vskip-100pt}}} % pretends that #2 is #1pt deep

\def\spose#1{\hjust to 0pt{\hskip 0pt minus 100pt #1 \hskip 0pt minus 10000000pt}}
\:@←cmathx
\:a←cmr10 \:b←cmr9 \:d←cmr7 \:e←cmr6 \:f←cmr5
\:g←cmi10 \:h←cmi9 \:j←cmi7 \:k←cmi6 \:l←cmi5
\:n←cms10 \:o←cms9
\:q←cmb10 \:r←cmb9
\:u←cmsy10 \:v←cmsy9 \:x←cmsy7 \:y←cmsy6 \:z←cmsy5
\:<←cmi9 \:?←cmti10

\def\rm{\:b} \def\sl{\:o} \def\bf{\:r} \def\it{\:<}

\parindent 18pt \maxdepth 2pt \topbaseline 9pt
\parskip 0pt plus 1 pt \baselineskip 11pt \lineskip 1pt
\dispskip 11pt plus 3pt minus 8pt
\dispaskip 0pt plus 3pt \dispbskip 6pt plus 3pt minus 8pt

\def\biglp{\mathopen{\hbox{\:a(}}}
\def\bigrp{\mathclose{\hbox{\:a)}}}
\def\bigglp{\mathopen{\vcenter{\hjust{\:@\char'22}}}}
\def\biggrp{\mathclose{\vcenter{\hjust{\:@\char'23}}}}
\def\biggglp{\mathopen{\vcenter{\hjust{\:@\char'40}}}}
\def\bigggrp{\mathclose{\vcenter{\hjust{\:@\char'41}}}}

\mathrm bef \mathit hkl \mathsy vyz \mathex @
\output{\baselineskip 20pt\page\ctrline{\:a\count0}\advcount0}
\setcount0 1

\hsize 353pt % this isn't in the manual but it seems right for the XGP
\vsize 478pt % likewise
\def\hjust{\hbox}\def\vjust{\vbox} % the 1978 names for these things

\rm
\null\vskip-11pt % allows glue at top of first page
% if you want to change \vsize, you have to \eject the first page first