\input webmac
% ADAPTED from DVITYPE, version 2.6.

% Here is TeX material that gets inserted after \input webmac
\def\hang{\hangindent 3em\indent\ignorespaces}
\font\ninerm=cmr9
\let\mc=\ninerm % medium caps for names like PASCAL
\def\PASCAL{{\mc PASCAL}}

\def\(#1){} % this is used to make section names sort themselves better
\def\9#1{} % this is used for sort keys in the index

\def\title{Crudetype}
\def\contentspagenumber{1}
\def\topofcontents{\null
  \def\titlepage{F} % include headline on the contents page
  \def\rheader{\mainfont\hfil \contentspagenumber}
  \vfill
  \centerline{\titlefont Crudetype}
  \vskip 15pt
  \centerline{An adaptable device driver (Version 0, 1986)}
  \vfill}
\pageno=\contentspagenumber \advance\pageno by 1


% These macros for verbatim scanning are Copied from MANMAC.TEX. But we cant
% use the vertical bar for a temporary escape character as WEAVE catches it.
% So we will use ! instead and hope for the best
\chardef\other=12
\def\ttverbatim{\begingroup
  \catcode`\\=\other  \catcode`\{=\other  \catcode`\}=\other  \catcode`\$=%
\other
  \catcode`\&=\other  \catcode`\#=\other  \catcode`\%=\other  \catcode`\~=%
\other
  \catcode`\_=\other  \catcode`\^=\other
  \obeyspaces \obeylines \tt}

\outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=0pt
  \catcode`\!=0 \rightskip-5pc \ttfinish}
{\catcode`\!=0 !catcode`!\=\other % ! is temporary escape character
  !obeylines % end of line is active
  !gdef!ttfinish#1^^M#2\endtt{#1!vbox{#2}!endgroup$$}}



\M133. Clearly, \\{alphabet} will only cover a very 
small part of the problem.
The
next procedure enters data into a subset of the \\{codes} array corresponding
to
a single row of a \TeX\ font. In the standard font tables, row number \|m is
the subrange $8\ast\|m\to8\ast\|m+7$ of a font. It is hoped that when the calls
of
procedure \\{row} are written out in a program, the result will be (just about)
legible, whereas a string of statements like \par\qquad
$\\{codes}[\|i,\|j].\\{font}\K\\{something}$\par
is certainly not legible.

The parameters are: \item
\\{row\_spec} specifies what characters are to go into the row.
\\{scheme}= number assigned to the \TeX\ coding scheme within the program,\item
\\{row\_num}= number of the row in that scheme. (starting from 0),\item
\\{font} = initial printer font, \par

\Y\P$\4\X50:Medium level procedures\X\mathrel{+}\S$\6