summaryrefslogtreecommitdiff
path: root/macros/text1/pc
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/text1/pc
Initial commit
Diffstat (limited to 'macros/text1/pc')
-rw-r--r--macros/text1/pc/blocks/appendix.blk16
-rw-r--r--macros/text1/pc/blocks/asism.blk5
-rw-r--r--macros/text1/pc/blocks/asisp.blk5
-rw-r--r--macros/text1/pc/blocks/bibliog.blk10
-rw-r--r--macros/text1/pc/blocks/bquotem.blk7
-rw-r--r--macros/text1/pc/blocks/bquotep.blk7
-rw-r--r--macros/text1/pc/blocks/chapter.blk13
-rw-r--r--macros/text1/pc/blocks/contents.blk35
-rw-r--r--macros/text1/pc/blocks/enotem.blk11
-rw-r--r--macros/text1/pc/blocks/enotep.blk11
-rw-r--r--macros/text1/pc/blocks/figurem.blk8
-rw-r--r--macros/text1/pc/blocks/figurep.blk8
-rw-r--r--macros/text1/pc/blocks/fnotem.blk14
-rw-r--r--macros/text1/pc/blocks/fnotep.blk14
-rw-r--r--macros/text1/pc/blocks/fontm.blk6
-rw-r--r--macros/text1/pc/blocks/fontp.blk6
-rw-r--r--macros/text1/pc/blocks/index.blk8
-rw-r--r--macros/text1/pc/blocks/label.blk6
-rw-r--r--macros/text1/pc/blocks/lists.blk13
-rw-r--r--macros/text1/pc/blocks/maillbls.blk17
-rw-r--r--macros/text1/pc/blocks/marnote.blk6
-rw-r--r--macros/text1/pc/blocks/multicol.blk10
-rw-r--r--macros/text1/pc/blocks/pagem.blk11
-rw-r--r--macros/text1/pc/blocks/pagep.blk11
-rw-r--r--macros/text1/pc/blocks/parm.blk6
-rw-r--r--macros/text1/pc/blocks/parp.blk11
-rw-r--r--macros/text1/pc/blocks/part.blk20
-rw-r--r--macros/text1/pc/blocks/preface.blk12
-rw-r--r--macros/text1/pc/blocks/runfoot.blk6
-rw-r--r--macros/text1/pc/blocks/runhead.blk6
-rw-r--r--macros/text1/pc/blocks/subheada.blk11
-rw-r--r--macros/text1/pc/blocks/subheadb.blk10
-rw-r--r--macros/text1/pc/blocks/subheadc.blk9
-rw-r--r--macros/text1/pc/blocks/subheadd.blk7
-rw-r--r--macros/text1/pc/blocks/tablem.blk8
-rw-r--r--macros/text1/pc/blocks/tablep.blk9
-rw-r--r--macros/text1/pc/blocks/talaris.blk6
-rw-r--r--macros/text1/pc/blocks/titlepg.blk4
-rw-r--r--macros/text1/pc/fonts/dt.pkbin0 -> 1536 bytes
-rw-r--r--macros/text1/pc/misc/cm10.txt34
-rw-r--r--macros/text1/pc/misc/cm108m.mth10
-rw-r--r--macros/text1/pc/misc/cm109m.mth10
-rw-r--r--macros/text1/pc/misc/cm11.txt40
-rw-r--r--macros/text1/pc/misc/cm1110m.mth10
-rw-r--r--macros/text1/pc/misc/cm119m.mth13
-rw-r--r--macros/text1/pc/misc/cm12.txt37
-rw-r--r--macros/text1/pc/misc/cm1210m.mth10
-rw-r--r--macros/text1/pc/misc/cm1211m.mth13
-rw-r--r--macros/text1/pc/misc/cm14.txt37
-rw-r--r--macros/text1/pc/misc/cm1412m.mth13
-rw-r--r--macros/text1/pc/misc/cm18.txt37
-rw-r--r--macros/text1/pc/misc/cm1814m.mth13
-rw-r--r--macros/text1/pc/misc/cm24.txt37
-rw-r--r--macros/text1/pc/misc/cm2418m.mth13
-rw-r--r--macros/text1/pc/misc/cm36.txt37
-rw-r--r--macros/text1/pc/misc/cm5.txt51
-rw-r--r--macros/text1/pc/misc/cm6.txt49
-rw-r--r--macros/text1/pc/misc/cm65m.mth10
-rw-r--r--macros/text1/pc/misc/cm7.txt45
-rw-r--r--macros/text1/pc/misc/cm75m.mth7
-rw-r--r--macros/text1/pc/misc/cm76m.mth10
-rw-r--r--macros/text1/pc/misc/cm8.txt40
-rw-r--r--macros/text1/pc/misc/cm86m.mth13
-rw-r--r--macros/text1/pc/misc/cm87m.mth10
-rw-r--r--macros/text1/pc/misc/cm9.txt40
-rw-r--r--macros/text1/pc/misc/cm97m.mth10
-rw-r--r--macros/text1/pc/misc/cm98m.mth13
-rw-r--r--macros/text1/pc/misc/cmsan10.txt46
-rw-r--r--macros/text1/pc/misc/cmsan11.txt46
-rw-r--r--macros/text1/pc/misc/cmsan12.txt46
-rw-r--r--macros/text1/pc/misc/cmsan14.txt46
-rw-r--r--macros/text1/pc/misc/cmsan18.txt46
-rw-r--r--macros/text1/pc/misc/cmsan24.txt46
-rw-r--r--macros/text1/pc/misc/cmsan36.txt46
-rw-r--r--macros/text1/pc/misc/cmsan8.txt49
-rw-r--r--macros/text1/pc/misc/cmsan9.txt46
-rw-r--r--macros/text1/pc/models/letter.inp51
-rw-r--r--macros/text1/pc/models/letter.mdl45
-rw-r--r--macros/text1/pc/models/memo.inp48
-rw-r--r--macros/text1/pc/models/memo.mdl21
-rw-r--r--macros/text1/pc/models/mergelet.mdl77
-rw-r--r--macros/text1/pc/models/mergelst.mdl17
-rw-r--r--macros/text1/pc/models/mergetxt.inp184
-rw-r--r--macros/text1/pc/models/mergetxt.mdl96
-rw-r--r--macros/text1/pc/models/paper.inp10
-rw-r--r--macros/text1/pc/models/paper.mdl28
-rw-r--r--macros/text1/pc/models/resume.inp62
-rw-r--r--macros/text1/pc/models/resume.mdl69
-rw-r--r--macros/text1/pc/models/thesis.inp159
-rw-r--r--macros/text1/pc/models/thesis.mdl139
-rw-r--r--macros/text1/pc/readme.tex38
91 files changed, 2506 insertions, 0 deletions
diff --git a/macros/text1/pc/blocks/appendix.blk b/macros/text1/pc/blocks/appendix.blk
new file mode 100644
index 0000000000..0000bd5a39
--- /dev/null
+++ b/macros/text1/pc/blocks/appendix.blk
@@ -0,0 +1,16 @@
+% Default values for the \appendix markup
+\appendixformat{\numberingstyle{A}
+ \titleformat{\dumpinsertseject
+ \centerline{\twelvept\bold Appendix \appendixnumber}
+ \centerline{\twelvept\bold\appendixtitle}
+ \vs{1\bl}
+ \setchapternumber{0}
+ \setsubheadanumber{0}
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ \setfigurenumber{0}
+ \settablenumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end appendix format
diff --git a/macros/text1/pc/blocks/asism.blk b/macros/text1/pc/blocks/asism.blk
new file mode 100644
index 0000000000..c5ea6006c4
--- /dev/null
+++ b/macros/text1/pc/blocks/asism.blk
@@ -0,0 +1,5 @@
+% Default values for \asisbegin in \monospace
+\asisformat{\skipbefore{1\bl}
+ \everyasis{\leftindent{0pt}}
+ \skipafter{1\bl}
+}% end as is format
diff --git a/macros/text1/pc/blocks/asisp.blk b/macros/text1/pc/blocks/asisp.blk
new file mode 100644
index 0000000000..c9a65c3860
--- /dev/null
+++ b/macros/text1/pc/blocks/asisp.blk
@@ -0,0 +1,5 @@
+% Default values for the \asisbegin markup
+\asisformat{\skipbefore{6pt}
+ \everyasis{\leftindent{0pt}}
+ \skipafter{6pt}
+}% end as is format
diff --git a/macros/text1/pc/blocks/bibliog.blk b/macros/text1/pc/blocks/bibliog.blk
new file mode 100644
index 0000000000..691cee2263
--- /dev/null
+++ b/macros/text1/pc/blocks/bibliog.blk
@@ -0,0 +1,10 @@
+% Default values for the \bibliography markup
+\bibliographyformat{%
+ \titleformat{\dumpinsertseject
+ \centerline{\twelvept\bd\bibtitle}
+ \vs{\bl}
+ }% end titleformat
+ \everybibentry{\vs{1\bl}\goodbreak\hp\nin}
+ \sameauthorrulesize{width 3em height .6ex depth -.5ex}
+ \incontents{yes}
+}% end bibliographyformat markup
diff --git a/macros/text1/pc/blocks/bquotem.blk b/macros/text1/pc/blocks/bquotem.blk
new file mode 100644
index 0000000000..87d2605a8a
--- /dev/null
+++ b/macros/text1/pc/blocks/bquotem.blk
@@ -0,0 +1,7 @@
+% Defaults for \blockquotebegin in \monospace
+\blockquoteformat{\skipbefore{1\bl}
+ \everyblockquote{\rm\leftindent{36pt} % 36pt = .5in
+ \rightindent{36pt}
+ }
+ \skipafter{1\bl}
+}% end monospace block quote begin format
diff --git a/macros/text1/pc/blocks/bquotep.blk b/macros/text1/pc/blocks/bquotep.blk
new file mode 100644
index 0000000000..4fdf50b4c9
--- /dev/null
+++ b/macros/text1/pc/blocks/bquotep.blk
@@ -0,0 +1,7 @@
+% Defaults for the \blockquotebegin markup
+\blockquoteformat{\skipbefore{6pt}
+ \everyblockquote{\tenpt\leftindent{24pt} % 24pt = .3in
+ \rightindent{24pt}
+ }
+ \skipafter{6pt}
+}% end block quote begin format
diff --git a/macros/text1/pc/blocks/chapter.blk b/macros/text1/pc/blocks/chapter.blk
new file mode 100644
index 0000000000..9796e18beb
--- /dev/null
+++ b/macros/text1/pc/blocks/chapter.blk
@@ -0,0 +1,13 @@
+% Default values for the \chapter markup
+\chapterformat{\numberingstyle{1}
+ \titleformat{\dumpinsertseject
+ \centerline{\twelvept\bd Chapter \chapternumber}
+ \centerline{\twelvept\bd\chaptertitle}
+ \vs{1\bl}
+ \setsubheadanumber{0}
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end chapter format
diff --git a/macros/text1/pc/blocks/contents.blk b/macros/text1/pc/blocks/contents.blk
new file mode 100644
index 0000000000..45fa4e571d
--- /dev/null
+++ b/macros/text1/pc/blocks/contents.blk
@@ -0,0 +1,35 @@
+% Defaults when using the \tableofcontents markup
+\tableofcontentsformat{%
+ \toctitle{\centerline{\bd Table of Contents}
+ \vs{1\bl}}
+ \prefacetocformat{\nin\prefacetitle\leader\pagenumber}
+ \parttocformat{\vs{1\bl}
+ \centerline{Part \partnumber}
+ \centerline{\parttitle}
+ \vs{1\bl}
+ \nin Part \partnumber \leader \pagenumber}
+ \continuechapter{no}
+ \chaptertocformat{\hangingchapternumber \chaptertitle \leader \pagenumber}
+ \hangingchapterindent{.25in}
+ \appendixtocformat{\hangingappendixnumber \appendixtitle \leader \pn}
+ \hangingappendixindent{.25in}
+ \subheadatocformat{\leftindent{.5in}\nin
+ \subheadatitle \leader \pagenumber}
+ \subheadbtocformat{\leftindent{1in}\nin
+ \subheadbtitle \leader \pagenumber}
+ \subheadctocformat{\leftindent{1.5in}\nin
+ \subheadctitle \leader \pagenumber}
+ \subheaddtocformat{\leftindent{2in}\nin
+ \subheaddtitle \leader \pagenumber}
+ \bibliographytocformat{\nin\bibtitle \leader \pagenumber}
+ \figuretoctitle{\newpage
+ \centerline{\bd List of Figures}
+ \line{Figure \rt{Page}}}
+ \figuretocformat{\hangingnumber{\figurenumber.}\figuretitle\leader\pagenumber}
+ \hangingfigureindent{.25in}
+ \tabletoctitle{\newpage
+ \centerline{\bd List of Tables}
+ \line{Table \rt{Page}}}
+ \tabletocformat{\hangingnumber{\tablenumber.}\tabletitle\leader\pagenumber}
+ \hangingtableindent{.25in}
+}
diff --git a/macros/text1/pc/blocks/enotem.blk b/macros/text1/pc/blocks/enotem.blk
new file mode 100644
index 0000000000..2716defe7a
--- /dev/null
+++ b/macros/text1/pc/blocks/enotem.blk
@@ -0,0 +1,11 @@
+% Defaults for \autoendnote with \monospace
+\endnoteformat{\skipbefore{0\bl}
+ \textreferenceposition{down}
+ \textreferencefont{\rm}
+ \textreferencestyle{[1]}
+ \notereferenceposition{down}
+ \notereferencefont{\rm}
+ \notereferencestyle{1.}
+ \notereferencegutter{1em} % 1em = 12pt in a 12pt font
+ \everyendnote{\rm\pin{0pt}\lin{1.2em}}
+}
diff --git a/macros/text1/pc/blocks/enotep.blk b/macros/text1/pc/blocks/enotep.blk
new file mode 100644
index 0000000000..4f2b55d4e1
--- /dev/null
+++ b/macros/text1/pc/blocks/enotep.blk
@@ -0,0 +1,11 @@
+% Default values for the \autoendnote markup
+\endnoteformat{\skipbefore{4pt}
+ \textreferenceposition{down}
+ \textreferencefont{\tenpt}
+ \textreferencestyle{[1]}
+ \notereferenceposition{down}
+ \notereferencefont{\tenpt}
+ \notereferencestyle{1.}
+ \notereferencegutter{1em} % 1em = 12pt in a 12pt font
+ \everyendnote{\tenpt\pin{0pt}\lin{1.2em}}
+}% end endnoteformat markup
diff --git a/macros/text1/pc/blocks/figurem.blk b/macros/text1/pc/blocks/figurem.blk
new file mode 100644
index 0000000000..9d7263c218
--- /dev/null
+++ b/macros/text1/pc/blocks/figurem.blk
@@ -0,0 +1,8 @@
+% Defaults for \figure with \monospace
+\figureformat{\skipbefore{1\bl}
+ \position{\float}
+ \titleformat{\bqb\hp
+ \bd Figure \figurenumber. \rm\figuretitle\bqe}
+ \incontents{yes}
+ \skipafter{1\bl}
+}% End figure format markup
diff --git a/macros/text1/pc/blocks/figurep.blk b/macros/text1/pc/blocks/figurep.blk
new file mode 100644
index 0000000000..e2131696ef
--- /dev/null
+++ b/macros/text1/pc/blocks/figurep.blk
@@ -0,0 +1,8 @@
+% Defaults for the \figure markup
+\figureformat{\skipbefore{1\bl}
+ \position{\float}
+ \titleformat{\bqb\hp\tenpt
+ \bd Figure \figurenumber. \rm\figuretitle\bqe}
+ \incontents{yes}
+ \skipafter{1\bl}
+}% End figure format markup
diff --git a/macros/text1/pc/blocks/fnotem.blk b/macros/text1/pc/blocks/fnotem.blk
new file mode 100644
index 0000000000..a3d5840598
--- /dev/null
+++ b/macros/text1/pc/blocks/fnotem.blk
@@ -0,0 +1,14 @@
+% Defaults for \autofootnote with \monospace
+\footnoteformat{\skipbeforedivider{12pt}
+ \skipafterdivider{2.6pt}
+ \footnotedivider{144pt} % 144pt = 2in
+ \textreferenceposition{down}
+ \textreferenceplacement{after}
+ \textreferencefont{\rm}
+ \textreferencestyle{(1)}
+ \notereferenceposition{down}
+ \notereferencefont{\rm}
+ \notereferencestyle{1.}
+ \notereferencegutter{1em}
+ \everyfootnote{\rm\pin{.5in}\psk{.5in}\lin{0pt}\rin{0pt}}
+}
diff --git a/macros/text1/pc/blocks/fnotep.blk b/macros/text1/pc/blocks/fnotep.blk
new file mode 100644
index 0000000000..97fb1ddf0c
--- /dev/null
+++ b/macros/text1/pc/blocks/fnotep.blk
@@ -0,0 +1,14 @@
+% Defaults for the \autofootnote markup
+\footnoteformat{\skipbeforedivider{12pt}
+ \skipafterdivider{2.6pt}
+ \footnotedivider{144pt} % 144pt = 2in
+ \textreferenceposition{up}
+ \textreferenceplacement{after}
+ \textreferencefont{\tenpt}
+ \textreferencestyle{1}
+ \notereferenceposition{down}
+ \notereferencefont{\tenpt}
+ \notereferencestyle{1.}
+ \notereferencegutter{1em}
+ \everyfootnote{\tenpt\pin{20pt}\lin{0pt}}
+}
diff --git a/macros/text1/pc/blocks/fontm.blk b/macros/text1/pc/blocks/fontm.blk
new file mode 100644
index 0000000000..5f8455a998
--- /dev/null
+++ b/macros/text1/pc/blocks/fontm.blk
@@ -0,0 +1,6 @@
+% Default values for the \monospace markup
+\monospace
+ % You may change the default monspace fonts by removing the % symbol
+ % from the \selectfontset and \defaultmono\rm markups below.
+% \selectfontset{monofont}{defaultmono}{default} %
+% \defaultmono\rm
diff --git a/macros/text1/pc/blocks/fontp.blk b/macros/text1/pc/blocks/fontp.blk
new file mode 100644
index 0000000000..5393d563eb
--- /dev/null
+++ b/macros/text1/pc/blocks/fontp.blk
@@ -0,0 +1,6 @@
+% Default values for the proportional space fonts
+\selectfontset{cm12}{twelvept}{default} % default twelve point set
+\selectfontset{cm10}{tenpt}{default} % alternate ten point set
+\twelvept % default font specification
+\selectmathset{cm97m}{mathdefault} % default math font set
+\mathdefault % default math specification
diff --git a/macros/text1/pc/blocks/index.blk b/macros/text1/pc/blocks/index.blk
new file mode 100644
index 0000000000..684c4407d1
--- /dev/null
+++ b/macros/text1/pc/blocks/index.blk
@@ -0,0 +1,8 @@
+\indexformat1{\respectcase{no}
+ \style{indent}
+ \leadering{no}
+ \everyletterbreak{\vs{1\bl}}
+ \indentsubentry1{1em}
+ \indentsubentry2{2em}
+ \everyhang{1.5em}
+ \everyindex{\tenpt}}
diff --git a/macros/text1/pc/blocks/label.blk b/macros/text1/pc/blocks/label.blk
new file mode 100644
index 0000000000..d4da9e3063
--- /dev/null
+++ b/macros/text1/pc/blocks/label.blk
@@ -0,0 +1,6 @@
+% Defaults for the \label markup
+\labelformat{\skipbefore{1\bl}
+ \labelwidth{72pt}
+ \gutter{1em}
+ \everylabel{\rm}
+ }
diff --git a/macros/text1/pc/blocks/lists.blk b/macros/text1/pc/blocks/lists.blk
new file mode 100644
index 0000000000..874be36899
--- /dev/null
+++ b/macros/text1/pc/blocks/lists.blk
@@ -0,0 +1,13 @@
+% Defaults for \listbegin, \listlevel, and \bullet
+\listformat{\skipbefore{0\bl}
+ \liststyle{1.,a.,i.,1),a),i),(1)}
+ \everylistlevel1{\rm\lin{36pt}\gutter{1em}} % 36pt = .5in
+ \everylistlevel2{\rm\lin{58pt}\gutter{1em}} % 58pt = .8in
+ \everylistlevel3{\rm\lin{79pt}\gutter{1em}} % 79pt = 1.1in
+ \everylistlevel4{\rm\lin{101pt}\gutter{1em}} % 101pt = 1.4in
+ \everylistlevel5{\rm\lin{122pt}\gutter{1em}} % 122pt = 1.7in
+ \everylistlevel6{\rm\lin{144pt}\gutter{1em}} % 144pt = 2.0in
+ \everylistlevel7{\rm\lin{166pt}\gutter{1em}} % 166pt = 2.3in
+ \everybullet{\rm\lin{+36pt}\gutter{1em}} % 36pt = .5in
+ \skipafter{0\bl}
+}
diff --git a/macros/text1/pc/blocks/maillbls.blk b/macros/text1/pc/blocks/maillbls.blk
new file mode 100644
index 0000000000..145fd0667f
--- /dev/null
+++ b/macros/text1/pc/blocks/maillbls.blk
@@ -0,0 +1,17 @@
+% Set format for mail labels with the MERGE LETTER MODEL
+
+% Maillabelformat sets the page and label information for mailing labels
+\maillabelformat{\labelsetup{% Sets page and margin settings
+ \newpage % start labels on a new page
+ \notitlepage % labels not started on a title page
+ \runningheadformat{\bothpages{\line{}}} % no page #s
+ \pageformat{\topmargin{1in} % new page dimensions
+ \bottommargin{0pt}
+ \leftmargin{0pt}
+ \rightmargin{0pt}}% end page format
+ }% end labelsetup
+ \numberoflabelsperline{3} % three labels per line max
+ \labelheight{1in} % each label 1 inch high
+ \labelwidth{2.75in} % each label 2.75 inches wide
+ \labelmat{.25in} % margin to text is .25 inches
+}% end mail label format
diff --git a/macros/text1/pc/blocks/marnote.blk b/macros/text1/pc/blocks/marnote.blk
new file mode 100644
index 0000000000..ded8cac18a
--- /dev/null
+++ b/macros/text1/pc/blocks/marnote.blk
@@ -0,0 +1,6 @@
+% Default values for the \marginnote markup
+\marginnoteformat{\position{left}
+ \notewidth{54pt}
+ \notegutter{6pt}
+ \everymarginnote{\tenpt\rr}
+}% end margin note format
diff --git a/macros/text1/pc/blocks/multicol.blk b/macros/text1/pc/blocks/multicol.blk
new file mode 100644
index 0000000000..81b2522cdb
--- /dev/null
+++ b/macros/text1/pc/blocks/multicol.blk
@@ -0,0 +1,10 @@
+% Default multiple column formats
+\multicolumnformat{
+ \twocolumnwidth{.48\galleywidth} % approximately 3 inches
+ \threecolumnwidth{.31\galleywidth} % approximately 2 inches
+ \twocolumngutter{.04\galleywidth} % approximately .2 inches
+ \threecolumngutter{.035\galleywidth}
+ \columnrulewidth{0.0pt}
+ \skipbefore{6pt plus3pt minus2pt} % flexible format only
+ \skipafter{6pt plus3pt minus2pt} % flexible format only
+ }
diff --git a/macros/text1/pc/blocks/pagem.blk b/macros/text1/pc/blocks/pagem.blk
new file mode 100644
index 0000000000..99694f4721
--- /dev/null
+++ b/macros/text1/pc/blocks/pagem.blk
@@ -0,0 +1,11 @@
+% Default page dimensions and margins
+\pageformat{\pagelength{11in} % 792pt = 11in
+ \pagewidth{8.5in} % 612pt = 8.5in
+ \topmargin{1in} % 72pt = 1in
+ \bottommargin{1in}
+ \leftmargin{1.2in} % 86pt = 1.2in
+ \rightmargin{1in}
+ \bindingadjust{0in} % none
+}% end page format
+\raggedbottom % allows the bottom line to fluctuate up
+ % and down a couple lines
diff --git a/macros/text1/pc/blocks/pagep.blk b/macros/text1/pc/blocks/pagep.blk
new file mode 100644
index 0000000000..1c521e133d
--- /dev/null
+++ b/macros/text1/pc/blocks/pagep.blk
@@ -0,0 +1,11 @@
+% Default page dimensions and margins
+\pageformat{\pagelength{11in} % 792pt = 11in
+ \pagewidth{8.5in} % 612pt = 8.5in
+ \topmargin{1in} % 72pt = 1in
+ \bottommargin{1in}
+ \leftmargin{1.2in} % 86pt = 1.2in
+ \rightmargin{1in}
+ \bindingadjust{0in}
+}% end pageformat
+\normalbottom % text height will be the same for each
+ % page. Bottom lines will be even.
diff --git a/macros/text1/pc/blocks/parm.blk b/macros/text1/pc/blocks/parm.blk
new file mode 100644
index 0000000000..2d9c676951
--- /dev/null
+++ b/macros/text1/pc/blocks/parm.blk
@@ -0,0 +1,6 @@
+% Default paragraph specifications for monospace fonts
+\paragraphindent{36pt} % indent for the first line of a paragraph
+\paragraphskip{0pt} % distance between paragraphs
+\justify
+\hyphenon % hyphenation either on (\hyphenon)
+ % or off (\hyphenoff)
diff --git a/macros/text1/pc/blocks/parp.blk b/macros/text1/pc/blocks/parp.blk
new file mode 100644
index 0000000000..b31df93253
--- /dev/null
+++ b/macros/text1/pc/blocks/parp.blk
@@ -0,0 +1,11 @@
+% Default paragraph specifications for proportional fonts
+\paragraphindent{24pt} % indent for first line of text
+\paragraphskip{0pt plus 3pt minus 0pt} % Distance skipped between
+ % paragraphs. Plus and minus refer to space
+ % that may be added or subtracted from the
+ % initial setting (0pt) to make the lines
+ % even at the bottom of the page.
+
+\justify % all text will be justified
+\hyphenon % hyphenation either on (\hyphenon)
+ % or off (\hyphenoff)
diff --git a/macros/text1/pc/blocks/part.blk b/macros/text1/pc/blocks/part.blk
new file mode 100644
index 0000000000..68545f85ba
--- /dev/null
+++ b/macros/text1/pc/blocks/part.blk
@@ -0,0 +1,20 @@
+% Default values for the \part markup
+\partformat{\numberingstyle{1}
+ \titleformat{\dumpinsertseject\titlepage
+ \hrule height 0pt depth 0pt
+ \vfil % Produces a half title page
+ \centerline{\twelvept\bold Part \partnumber}
+ \centerline{\twelvept\bold \parttitle}
+ \newpage
+ \setchapternumber{0}
+ \setsubheadanumber{0}
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ \setfootnotenumber{0}
+ \setendnotenumber{0}
+ \setfigurenumber{0}
+ \settablenumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end part format
diff --git a/macros/text1/pc/blocks/preface.blk b/macros/text1/pc/blocks/preface.blk
new file mode 100644
index 0000000000..3c44e37a02
--- /dev/null
+++ b/macros/text1/pc/blocks/preface.blk
@@ -0,0 +1,12 @@
+% Default values for the \preface markup
+\prefaceformat{%
+ \titleformat{\dumpinsertseject
+ \centerline{\twelvept\bd\prefacetitle}
+ \vs{1\bl}
+ \setsubheadanumber{0}
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end preface format
diff --git a/macros/text1/pc/blocks/runfoot.blk b/macros/text1/pc/blocks/runfoot.blk
new file mode 100644
index 0000000000..8aecd0311a
--- /dev/null
+++ b/macros/text1/pc/blocks/runfoot.blk
@@ -0,0 +1,6 @@
+% Default values for the running foot title
+\runningfootformat{%
+ \bothpages{\vs{1\bl}
+ \line{\twelvept\lft{}\ctr{}\rt{}}
+ }% end bothpages
+}% end runningfootformat markup
diff --git a/macros/text1/pc/blocks/runhead.blk b/macros/text1/pc/blocks/runhead.blk
new file mode 100644
index 0000000000..c88e8758cb
--- /dev/null
+++ b/macros/text1/pc/blocks/runhead.blk
@@ -0,0 +1,6 @@
+% Default values for the running head title
+\runningheadformat{%
+ \bothpages{\line{\twelvept\lft{}\ctr{}\rt{\pagenumber}}
+ \vs{1\bl}
+ }% end bothpages
+}% end runningheadformat markup
diff --git a/macros/text1/pc/blocks/subheada.blk b/macros/text1/pc/blocks/subheada.blk
new file mode 100644
index 0000000000..ce0c4ab5fd
--- /dev/null
+++ b/macros/text1/pc/blocks/subheada.blk
@@ -0,0 +1,11 @@
+% Default values for the \subheada markup
+\subheadaformat{\numberingstyle{1}
+ \titleformat{\removelastskip\goodbreak\vs{2\bl}
+ \twelvept\bd\nin\subheadatitle\par\nobreak
+ \vs{1\bl}\nobreak
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end subheadaformat markup
diff --git a/macros/text1/pc/blocks/subheadb.blk b/macros/text1/pc/blocks/subheadb.blk
new file mode 100644
index 0000000000..e3089ad1c4
--- /dev/null
+++ b/macros/text1/pc/blocks/subheadb.blk
@@ -0,0 +1,10 @@
+% Default values for the \subheadb markup
+\subheadbformat{\numberingstyle{1}
+ \titleformat{\removelastskip\goodbreak\vs{2\bl}
+ \twelvept\it\nin\subheadbtitle\par\nobreak
+ \vs{1\bl}\nobreak
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end subheadbformat markup
diff --git a/macros/text1/pc/blocks/subheadc.blk b/macros/text1/pc/blocks/subheadc.blk
new file mode 100644
index 0000000000..be70a69692
--- /dev/null
+++ b/macros/text1/pc/blocks/subheadc.blk
@@ -0,0 +1,9 @@
+% Default values for the \subheadc markup
+\subheadcformat{\numberingstyle{1}
+ \titleformat{\removelastskip\goodbreak\vs{2\bl}
+ \twelvept\nin\subheadctitle\par\nobreak
+ \vs{1\bl}\nobreak
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{no}
+}% end subheadcformat markup
diff --git a/macros/text1/pc/blocks/subheadd.blk b/macros/text1/pc/blocks/subheadd.blk
new file mode 100644
index 0000000000..8b1cd8b6f3
--- /dev/null
+++ b/macros/text1/pc/blocks/subheadd.blk
@@ -0,0 +1,7 @@
+% Default values for the \subheadd markup
+\subheaddformat{\numberingstyle{1}
+ \titleformat{\goodbreak
+ {\twelvept\it \subheaddtitle.}
+ }% end titleformat
+ \incontents{no}
+}% end subheadd markup
diff --git a/macros/text1/pc/blocks/tablem.blk b/macros/text1/pc/blocks/tablem.blk
new file mode 100644
index 0000000000..3ab57a8d73
--- /dev/null
+++ b/macros/text1/pc/blocks/tablem.blk
@@ -0,0 +1,8 @@
+% Default \tabletitle when using \monospace
+\tableformat{\titleformat{\vs{\bl}
+ \cl{\bd Table \tablenumber}
+ \cl{\rm\tabletitle}
+ \vs{\bl}
+ }
+ \incontents{yes}
+}
diff --git a/macros/text1/pc/blocks/tablep.blk b/macros/text1/pc/blocks/tablep.blk
new file mode 100644
index 0000000000..1b1f0c4162
--- /dev/null
+++ b/macros/text1/pc/blocks/tablep.blk
@@ -0,0 +1,9 @@
+% Default values for the \tabletitle markup
+\tableformat{%
+ \titleformat{\vs{\bl}
+ \cl{\twelvept\bd Table \tablenumber}
+ \cl{\twelvept\tabletitle}
+ \vs{\bl}
+ }% end titleformat
+ \incontents{yes}
+}% end tableformat markup
diff --git a/macros/text1/pc/blocks/talaris.blk b/macros/text1/pc/blocks/talaris.blk
new file mode 100644
index 0000000000..0d908cc87f
--- /dev/null
+++ b/macros/text1/pc/blocks/talaris.blk
@@ -0,0 +1,6 @@
+% Default values for the Talaris fonts
+\selectfontset{amrom12}{twelvept}{default} % default twelve point set
+\selectfontset{amrom10}{tenpt}{default} % alternate ten point set
+\twelvept % default font specification
+\selectmathset{am97m}{mathdefault} % default math font set
+\mathdefault % default math specification
diff --git a/macros/text1/pc/blocks/titlepg.blk b/macros/text1/pc/blocks/titlepg.blk
new file mode 100644
index 0000000000..e53cfb4bdb
--- /dev/null
+++ b/macros/text1/pc/blocks/titlepg.blk
@@ -0,0 +1,4 @@
+% Default for the title (first) page
+\titlepageformat{\titleleadskip{1in}
+ \titlefootline{}
+}% end titlepage markup
diff --git a/macros/text1/pc/fonts/dt.pk b/macros/text1/pc/fonts/dt.pk
new file mode 100644
index 0000000000..137d069175
--- /dev/null
+++ b/macros/text1/pc/fonts/dt.pk
Binary files differ
diff --git a/macros/text1/pc/misc/cm10.txt b/macros/text1/pc/misc/cm10.txt
new file mode 100644
index 0000000000..aa431de13e
--- /dev/null
+++ b/macros/text1/pc/misc/cm10.txt
@@ -0,0 +1,34 @@
+\font\cmXbi=cmbxti10
+\font\cmXcc=cmcsc10
+\expandafter\newdimen\csname\the\naMEtok ilsx\endcsname
+\global\csname\the\naMEtok ilsx\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsx\endcsname=0pt
+\csname\the\naMEtok ilsx\endcsname=12pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\tenrm}%
+\def\noexpand\mi{\fam1\teni}%
+\def\noexpand\sy{\fam2\tensy}%
+\def\noexpand\ex{\fam3\tenex}%
+ \textfont0=\tenrm \textfont1=\teni
+ \textfont2=\tensy \textfont3=\tenex
+ \textfont\itfam=\tenit
+ \textfont\ttfam=\tentt \textfont\bffam=\tenbf
+ \textfont\ccfam=\cmXcc
+\def\noexpand\bd{\fam\bffam\tenbf}%
+\def\noexpand\it{\fam\itfam\tenit}%
+\def\noexpand\tt{\fam\ttfam\tentt}%
+\def\noexpand\cc{\fam\ccfam\cmXcc}%
+\def\noexpand\bi{\fam\bifam\cmXbi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsx\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm108m.mth b/macros/text1/pc/misc/cm108m.mth
new file mode 100644
index 0000000000..2410c5b3d7
--- /dev/null
+++ b/macros/text1/pc/misc/cm108m.mth
@@ -0,0 +1,10 @@
+\font\cmVIIIrm=cmr8 \font\cmVIIImi=cmmi8
+\font\cmVIIIsy=cmsy8 \font\cmVIIIex=cmex10
+\font\cmVIIIbd=cmbx8
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\tenrm \scriptfont1=\teni
+ \scriptfont2=\tensy \scriptfont3=\tenex
+ \scriptfont\bffam=\tenbf
+ \scriptscriptfont0=\cmVIIIrm \scriptscriptfont1=\cmVIIImi
+ \scriptscriptfont2=\cmVIIIsy \scriptscriptfont3=\cmVIIIex
+ \scriptscriptfont\bffam=\cmVIIIbd}%
diff --git a/macros/text1/pc/misc/cm109m.mth b/macros/text1/pc/misc/cm109m.mth
new file mode 100644
index 0000000000..7b5104aaf7
--- /dev/null
+++ b/macros/text1/pc/misc/cm109m.mth
@@ -0,0 +1,10 @@
+\font\cmIXrm=cmr9 \font\cmIXmi=cmmi9
+\font\cmIXsy=cmsy9 \font\cmIXex=cmex10
+\font\cmIXbd=cmbx9
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\tenrm \scriptfont1=\teni
+ \scriptfont2=\tensy \scriptfont3=\tenex
+ \scriptfont\bffam=\tenbf
+ \scriptscriptfont0=\cmIXrm \scriptscriptfont1=\cmIXmi
+ \scriptscriptfont2=\cmIXsy \scriptscriptfont3=\cmIXex
+ \scriptscriptfont\bffam=\cmIXbd}%
diff --git a/macros/text1/pc/misc/cm11.txt b/macros/text1/pc/misc/cm11.txt
new file mode 100644
index 0000000000..aa9300ae37
--- /dev/null
+++ b/macros/text1/pc/misc/cm11.txt
@@ -0,0 +1,40 @@
+\global\newif\ifcmXIbierr
+\font\cmXIcc=cmcsc11
+\font\cmXIrm=cmr11 \font\cmXIit=cmti11
+\font\cmXIbd=cmbx11 \font\cmXImi=cmmi11
+\font\cmXItt=cmtt11\font\cmXIsy=cmsy11
+\expandafter\newdimen\csname\the\naMEtok ilsxi\endcsname
+\global\csname\the\naMEtok ilsxi\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxi\endcsname=0pt
+\csname\the\naMEtok ilsxi\endcsname=13pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXIrm}%
+\def\noexpand\mi{\fam1\cmXImi}%
+\def\noexpand\sy{\fam2\cmXIsy}%
+\def\noexpand\ex{\fam3\tenex}%
+ \textfont0=\cmXIrm \textfont1=\cmXImi
+ \textfont2=\cmXIsy\textfont3=\tenex
+ \textfont\itfam=\cmXIit
+ \textfont\ttfam=\cmXItt \textfont\bffam=\cmXIbd
+ \textfont\ccfam=\cmXIcc
+\def\noexpand\bd{\fam\bffam\cmXIbd}%
+\def\noexpand\it{\fam\itfam\cmXIit}%
+\def\noexpand\tt{\fam\ttfam\cmXItt}%
+\def\noexpand\cc{\fam\ccfam\cmXIcc}%
+\def\noexpand\bi{\noexpand\ifcmXIbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CM11. Will print italic font .}%
+\noexpand\global\noexpand\cmXIbierrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxi\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm1110m.mth b/macros/text1/pc/misc/cm1110m.mth
new file mode 100644
index 0000000000..09cc8fb54e
--- /dev/null
+++ b/macros/text1/pc/misc/cm1110m.mth
@@ -0,0 +1,10 @@
+\font\cmXImi=cmmi11
+\font\cmXIsy=cmsy11 \font\cmXIex=cmex11
+\font\cmXIbd=cmbx11\font\cmXIrm=cmr11
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmXIrm \scriptfont1=\cmXImi
+ \scriptfont2=\cmXIsy \scriptfont3=\cmXIex
+ \scriptfont\bffam=\cmXIbd
+ \scriptscriptfont0=\tenrm \scriptscriptfont1=\teni
+ \scriptscriptfont2=\tensy \scriptscriptfont3=\tenex
+ \scriptscriptfont\bffam=\tenbf}%
diff --git a/macros/text1/pc/misc/cm119m.mth b/macros/text1/pc/misc/cm119m.mth
new file mode 100644
index 0000000000..13eca0aebf
--- /dev/null
+++ b/macros/text1/pc/misc/cm119m.mth
@@ -0,0 +1,13 @@
+\font\cmXImi=cmmi11
+\font\cmXIsy=cmsy11 \font\cmXIex=cmex11
+\font\cmXIbd=cmbx11 \font\cmXIrm=cmr11
+\font\cmIXrm=cmr9 \font\cmIXmi=cmmi9
+\font\cmIXsy=cmsy9 \font\cmIXex=cmex10
+\font\cmIXbd=cmbx9
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmXIrm \scriptfont1=\cmXImi
+ \scriptfont2=\cmXIsy \scriptfont3=\cmXIex
+ \scriptfont\bffam=\cmXIbd
+ \scriptscriptfont0=\cmIXrm \scriptscriptfont1=\cmIXmi
+ \scriptscriptfont2=\cmIXsy \scriptscriptfont3=\cmIXex
+ \scriptscriptfont\bffam=\cmIXbd}%
diff --git a/macros/text1/pc/misc/cm12.txt b/macros/text1/pc/misc/cm12.txt
new file mode 100644
index 0000000000..a505abed9c
--- /dev/null
+++ b/macros/text1/pc/misc/cm12.txt
@@ -0,0 +1,37 @@
+\font\cmXIIbi=cmbxti12
+\font\cmXIIcc=cmcsc12 \font\cmXIIex=cmex12
+\font\cmXIIrm=cmr12 \font\cmXIIit=cmti12
+\font\cmXIIbd=cmbx12 \font\cmXIImi=cmmi12
+\font\cmXIItt=cmtt12 \font\cmXIIsy=cmsy12
+\expandafter\newdimen\csname\the\naMEtok ilsxii\endcsname
+\global\csname\the\naMEtok ilsxii\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxii\endcsname=0pt
+\csname\the\naMEtok ilsxii\endcsname=14pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXIIrm}%
+\def\noexpand\mi{\fam1\cmXIImi}%
+\def\noexpand\sy{\fam2\cmXIIsy}%
+\def\noexpand\ex{\fam3\cmXIIex}%
+ \textfont0=\cmXIIrm \textfont1=\cmXIImi
+ \textfont2=\cmXIIsy \textfont3=\cmXIIex
+ \textfont\itfam=\cmXIIit
+ \textfont\ttfam=\cmXIItt \textfont\bffam=\cmXIIbd
+ \textfont\ccfam=\cmXIIcc
+\def\noexpand\bd{\fam\bffam\cmXIIbd}%
+\def\noexpand\it{\fam\itfam\cmXIIit}%
+\def\noexpand\tt{\fam\ttfam\cmXIItt}%
+\def\noexpand\cc{\fam\ccfam\cmXIIcc}%
+\def\noexpand\bi{\fam\bifam\cmXIIbi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxii\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm1210m.mth b/macros/text1/pc/misc/cm1210m.mth
new file mode 100644
index 0000000000..e1ccb4c7fc
--- /dev/null
+++ b/macros/text1/pc/misc/cm1210m.mth
@@ -0,0 +1,10 @@
+\font\cmXIImi=cmmi12
+\font\cmXIIsy=cmsy12 \font\cmXIIex=cmex12
+\font\cmXIIbd=cmbx12\font\cmXIIrm=cmr12
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmXIIrm \scriptfont1=\cmXIImi
+ \scriptfont2=\cmXIIsy \scriptfont3=\cmXIIex
+ \scriptfont\bffam=\cmXIIbd
+ \scriptscriptfont0=\tenrm \scriptscriptfont1=\teni
+ \scriptscriptfont2=\tensy \scriptscriptfont3=\tenex
+ \scriptscriptfont\bffam=\tenbf}%
diff --git a/macros/text1/pc/misc/cm1211m.mth b/macros/text1/pc/misc/cm1211m.mth
new file mode 100644
index 0000000000..d9c4e13c45
--- /dev/null
+++ b/macros/text1/pc/misc/cm1211m.mth
@@ -0,0 +1,13 @@
+\font\cmXIImi=cmmi12
+\font\cmXIIsy=cmsy12 \font\cmXIIex=cmex12
+\font\cmXIIbd=cmbx12\font\cmXIIrm=cmr12
+\font\cmXIrm=cmr11 \font\cmXImi=cmmi11
+\font\cmXIsy=cmsy11 \font\cmXIex=cmex11
+\font\cmXIbd=cmbx11
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmXIIrm \scriptfont1=\cmXIImi
+ \scriptfont2=\cmXIIsy \scriptfont3=\cmXIIex
+ \scriptfont\bffam=\cmXIIbd
+ \scriptscriptfont0=\cmXIrm \scriptscriptfont1=\cmXImi
+ \scriptscriptfont2=\cmXIsy \scriptscriptfont3=\cmXIex
+ \scriptscriptfont\bffam=\cmXIbd}%
diff --git a/macros/text1/pc/misc/cm14.txt b/macros/text1/pc/misc/cm14.txt
new file mode 100644
index 0000000000..f302bf6a12
--- /dev/null
+++ b/macros/text1/pc/misc/cm14.txt
@@ -0,0 +1,37 @@
+\font\cmXIVbi=cmbxti14
+\font\cmXIVcc=cmcsc14 \font\cmXIVex=cmex14
+\font\cmXIVrm=cmr14 \font\cmXIVit=cmti14
+\font\cmXIVbd=cmbx14 \font\cmXIVmi=cmmi14
+\font\cmXIVtt=cmtt14 \font\cmXIVsy=cmsy14
+\expandafter\newdimen\csname\the\naMEtok ilsxiv\endcsname
+\global\csname\the\naMEtok ilsxiv\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxiv\endcsname=0pt
+\csname\the\naMEtok ilsxiv\endcsname=16pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXIVrm}%
+\def\noexpand\mi{\fam1\cmXIVmi}%
+\def\noexpand\sy{\fam2\cmXIVsy}%
+\def\noexpand\ex{\fam3\cmXIVex}%
+ \textfont0=\cmXIVrm \textfont1=\cmXIVmi
+ \textfont2=\cmXIVsy \textfont3=\cmXIVex
+ \textfont\itfam=\cmXIVit
+ \textfont\ttfam=\cmXIVtt \textfont\bffam=\cmXIVbd
+ \textfont\ccfam=\cmXIVcc
+\def\noexpand\bd{\fam\bffam\cmXIVbd}%
+\def\noexpand\it{\fam\itfam\cmXIVit}%
+\def\noexpand\tt{\fam\ttfam\cmXIVtt}%
+\def\noexpand\cc{\fam\ccfam\cmXIVcc}%
+\def\noexpand\bi{\fam\bifam\cmXIVbi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxiv\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm1412m.mth b/macros/text1/pc/misc/cm1412m.mth
new file mode 100644
index 0000000000..fc933ca00f
--- /dev/null
+++ b/macros/text1/pc/misc/cm1412m.mth
@@ -0,0 +1,13 @@
+\font\cmXIVmi=cmmi14
+\font\cmXIVsy=cmsy14 \font\cmXIVex=cmex14
+\font\cmXIVbd=cmbx14\font\cmXIVrm=cmr14
+\font\cmXIIrm=cmr12 \font\cmXIImi=cmmi12
+\font\cmXIIsy=cmsy12 \font\cmXIIex=cmex12
+\font\cmXIIbd=cmbx12
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmXIVrm \scriptfont1=\cmXIVmi
+ \scriptfont2=\cmXIVsy \scriptfont3=\cmXIVex
+ \scriptfont\bffam=\cmXIVbd
+ \scriptscriptfont0=\cmXIIrm \scriptscriptfont1=\cmXIImi
+ \scriptscriptfont2=\cmXIIsy \scriptscriptfont3=\cmXIIex
+ \scriptscriptfont\bffam=\cmXIIbd}%
diff --git a/macros/text1/pc/misc/cm18.txt b/macros/text1/pc/misc/cm18.txt
new file mode 100644
index 0000000000..c4c9f52d87
--- /dev/null
+++ b/macros/text1/pc/misc/cm18.txt
@@ -0,0 +1,37 @@
+\font\cmXVIIIbi=cmbxti18
+\font\cmXVIIIcc=cmcsc18 \font\cmXVIIIex=cmex18
+\font\cmXVIIIrm=cmr18 \font\cmXVIIIit=cmti18
+\font\cmXVIIIbd=cmbx18 \font\cmXVIIImi=cmmi18
+\font\cmXVIIItt=cmtt18 \font\cmXVIIIsy=cmsy18
+\expandafter\newdimen\csname\the\naMEtok ilsxviii\endcsname
+\global\csname\the\naMEtok ilsxviii\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxviii\endcsname=0pt
+\csname\the\naMEtok ilsxviii\endcsname=20pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXVIIIrm}%
+\def\noexpand\mi{\fam1\cmXVIIImi}%
+\def\noexpand\sy{\fam2\cmXVIIIsy}%
+\def\noexpand\ex{\fam3\cmXVIIIex}%
+ \textfont0=\cmXVIIIrm \textfont1=\cmXVIIImi
+ \textfont2=\cmXVIIIsy \textfont3=\cmXVIIIex
+ \textfont\itfam=\cmXVIIIit
+ \textfont\ttfam=\cmXVIIItt \textfont\bffam=\cmXVIIIbd
+ \textfont\ccfam=\cmXVIIIcc
+\def\noexpand\bd{\fam\bffam\cmXVIIIbd}%
+\def\noexpand\it{\fam\itfam\cmXVIIIit}%
+\def\noexpand\tt{\fam\ttfam\cmXVIIItt}%
+\def\noexpand\cc{\fam\ccfam\cmXVIIIcc}%
+\def\noexpand\bi{\fam\bifam\cmXVIIIbi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxviii\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm1814m.mth b/macros/text1/pc/misc/cm1814m.mth
new file mode 100644
index 0000000000..c3c34b0f02
--- /dev/null
+++ b/macros/text1/pc/misc/cm1814m.mth
@@ -0,0 +1,13 @@
+\font\cmXVIIImi=cmmi18
+\font\cmXVIIIsy=cmsy18 \font\cmXVIIIex=cmex18
+\font\cmXVIIIbd=cmbx18\font\cmXVIIIrm=cmr18
+\font\cmXIVrm=cmr14 \font\cmXIVmi=cmmi14
+\font\cmXIVsy=cmsy14 \font\cmXIVex=cmex14
+\font\cmXIVbd=cmbx14
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmXVIIIrm \scriptfont1=\cmXVIIImi
+ \scriptfont2=\cmXVIIIsy \scriptfont3=\cmXVIIIex
+ \scriptfont\bffam=\cmXVIIIbd
+ \scriptscriptfont0=\cmXIVrm \scriptscriptfont1=\cmXIVmi
+ \scriptscriptfont2=\cmXIVsy \scriptscriptfont3=\cmXIVex
+ \scriptscriptfont\bffam=\cmXIVbd}%
diff --git a/macros/text1/pc/misc/cm24.txt b/macros/text1/pc/misc/cm24.txt
new file mode 100644
index 0000000000..83dc4387be
--- /dev/null
+++ b/macros/text1/pc/misc/cm24.txt
@@ -0,0 +1,37 @@
+\font\cmXXIVbi=cmbxti24
+\font\cmXXIVcc=cmcsc24 \font\cmXXIVex=cmex24
+\font\cmXXIVrm=cmr24 \font\cmXXIVit=cmti24
+\font\cmXXIVbd=cmbx24 \font\cmXXIVmi=cmmi24
+\font\cmXXIVtt=cmtt24\font\cmXXIVsy=cmsy24
+\expandafter\newdimen\csname\the\naMEtok ilsxxiv\endcsname
+\global\csname\the\naMEtok ilsxxiv\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxxiv\endcsname=0pt
+\csname\the\naMEtok ilsxxiv\endcsname=26pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXXIVrm}%
+\def\noexpand\mi{\fam1\cmXXIVmi}%
+\def\noexpand\sy{\fam2\cmXXIVsy}%
+\def\noexpand\ex{\fam3\cmXXIVex}%
+ \textfont0=\cmXXIVrm \textfont1=\cmXXIVmi
+ \textfont2=\cmXXIVsy \textfont3=\cmXXIVex
+ \textfont\itfam=\cmXXIVit
+ \textfont\ttfam=\cmXXIVtt \textfont\bffam=\cmXXIVbd
+ \textfont\ccfam=\cmXXIVcc
+\def\noexpand\bd{\fam\bffam\cmXXIVbd}%
+\def\noexpand\it{\fam\itfam\cmXXIVit}%
+\def\noexpand\tt{\fam\ttfam\cmXXIVtt}%
+\def\noexpand\cc{\fam\ccfam\cmXXIVcc}%
+\def\noexpand\bi{\fam\bifam\cmXXIVbi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxxiv\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm2418m.mth b/macros/text1/pc/misc/cm2418m.mth
new file mode 100644
index 0000000000..41222e47d0
--- /dev/null
+++ b/macros/text1/pc/misc/cm2418m.mth
@@ -0,0 +1,13 @@
+\font\cmXXIVmi=cmmi24
+\font\cmXXIVsy=cmsy24 \font\cmXXIVex=cmex24
+\font\cmXXIVbd=cmbx24\font\cmXXIVrm=cmr24
+\font\cmXVIIIrm=cmr18 \font\cmXVIIImi=cmmi18
+\font\cmXVIIIsy=cmsy18 \font\cmXVIIIex=cmex18
+\font\cmXVIIIbd=cmbx18
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmXXIVrm \scriptfont1=\cmXXIVmi
+ \scriptfont2=\cmXXIVsy \scriptfont3=\cmXXIVex
+ \scriptfont\bffam=\cmXXIVbd
+ \scriptscriptfont0=\cmXVIIIrm \scriptscriptfont1=\cmXVIIImi
+ \scriptscriptfont2=\cmXVIIIsy \scriptscriptfont3=\cmXVIIIex
+ \scriptscriptfont\bffam=\cmXVIIIbd}%
diff --git a/macros/text1/pc/misc/cm36.txt b/macros/text1/pc/misc/cm36.txt
new file mode 100644
index 0000000000..9a6f9ce578
--- /dev/null
+++ b/macros/text1/pc/misc/cm36.txt
@@ -0,0 +1,37 @@
+\font\cmXXXVIbi=cmbxti36
+\font\cmXXXVIcc=cmcsc36\font\cmXXXVIex=cmex36
+\font\cmXXXVIrm=cmr36 \font\cmXXXVIit=cmti36
+\font\cmXXXVIbd=cmbx36 \font\cmXXXVImi=cmmi36
+\font\cmXXXVItt=cmtt36 \font\cmXXXVIsy=cmsy36
+\expandafter\newdimen\csname\the\naMEtok ilsxxxvi\endcsname
+\global\csname\the\naMEtok ilsxxxvi\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxxxvi\endcsname=0pt
+\csname\the\naMEtok ilsxxxvi\endcsname=38pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXXXVIrm}%
+\def\noexpand\mi{\fam1\cmXXXVImi}%
+\def\noexpand\sy{\fam2\cmXXXVIsy}%
+\def\noexpand\ex{\fam3\cmXXXVIex}%
+ \textfont0=\cmXXXVIrm \textfont1=\cmXXXVImi
+ \textfont2=\cmXXXVIsy \textfont3=\cmXXXVIex
+ \textfont\itfam=\cmXXXVIit
+ \textfont\ttfam=\cmXXXVItt \textfont\bffam=\cmXXXVIbd
+ \textfont\ccfam=\cmXXXVIcc
+\def\noexpand\bd{\fam\bffam\cmXXXVIbd}%
+\def\noexpand\it{\fam\itfam\cmXXXVIit}%
+\def\noexpand\tt{\fam\ttfam\cmXXXVItt}%
+\def\noexpand\cc{\fam\ccfam\cmXXXVIcc}%
+\def\noexpand\bi{\fam\bifam\cmXXXVIbi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxxxvi\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm5.txt b/macros/text1/pc/misc/cm5.txt
new file mode 100644
index 0000000000..3cdb0205e3
--- /dev/null
+++ b/macros/text1/pc/misc/cm5.txt
@@ -0,0 +1,51 @@
+\global\newif\ifVbierr
+\global\newif\ifVccerr
+\global\newif\ifVtterr
+\global\newif\ifViterr
+\global\newif\ifVbderr
+\expandafter\newdimen\csname\the\naMEtok ilsv\endcsname
+\global\csname\the\naMEtok ilsv\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsv\endcsname=0pt
+\csname\the\naMEtok ilsv\endcsname=8pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\fiverm}%
+\def\noexpand\mi{\fam1\fivei}%
+\def\noexpand\sy{\fam2\fivesy}%
+\def\noexpand\ex{\fam3\tenex}%
+ \textfont0=\fiverm\textfont1=\fivei
+ \textfont2=\fivesy\textfont3=\tenex
+ \textfont\bffam=\fivebf
+\def\noexpand\bd{\noexpand\ifVbderr\noexpand\fam\bffam\fivebf%
+\noexpand\else\noexpand\fam\bffam\fivebf%
+\noexpand\message{<TEXT1> Warning. %
+No bold font in CM5. Will print bold extended font .}%
+\noexpand\global\noexpand\Vbderrtrue \noexpand\fi}%
+\def\noexpand\it{\noexpand\ifViterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No italic font in CM5. Will print roman font .}%
+\noexpand\global\noexpand\Viterrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifVtterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CM5. Will print roman font .}%
+\noexpand\global\noexpand\Vtterrtrue \noexpand\fi}%
+\def\noexpand\bi{\noexpand\ifVbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CM5. Will print italic font .}%
+\noexpand\global\noexpand\Vbierrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifVccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CM5. Will print roman font .}%
+\noexpand\global\noexpand\Vccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsv\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm6.txt b/macros/text1/pc/misc/cm6.txt
new file mode 100644
index 0000000000..5a3a735d8c
--- /dev/null
+++ b/macros/text1/pc/misc/cm6.txt
@@ -0,0 +1,49 @@
+\global\newif\ifcmVIbierr
+\global\newif\ifcmVIccerr
+\global\newif\ifcmVIiterr
+\global\newif\ifcmVItterr
+\font\cmVIrm=cmr6
+\font\cmVIbd=cmbx6 \font\cmVImi=cmmi6
+\font\sixsy=cmsy6
+\expandafter\newdimen\csname\the\naMEtok ilsvi\endcsname
+\global\csname\the\naMEtok ilsvi\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsvi\endcsname=0pt
+\csname\the\naMEtok ilsvi\endcsname=8pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmVIrm}%
+\def\noexpand\mi{\fam1\cmVImi}%
+\def\noexpand\sy{\fam2\sixsy}%
+\def\noexpand\ex{\fam3\tenex}%
+ \textfont0=\cmVIrm \textfont1=\cmVImi
+ \textfont2=\tensy \textfont3=\tenex
+ \textfont\bffam=\cmVIbd
+\def\noexpand\bd{\fam\bffam\cmVIbd}%
+\def\noexpand\it{\noexpand\ifcmVIiterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No italic font in CM6. Will print roman font.}%
+\noexpand\global\noexpand\cmVIiterrtrue \noexpand\fi}%
+\def\noexpand\bi{\noexpand\ifcmVIbierr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CM6. Will print roman font.}%
+\noexpand\global\noexpand\cmVIbierrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifcmVIccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CM6. Will print roman font.}%
+\noexpand\global\noexpand\cmVIccerrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifcmVItterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CM6. Will print roman font.}%
+\noexpand\global\noexpand\cmVItterrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsvi\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm65m.mth b/macros/text1/pc/misc/cm65m.mth
new file mode 100644
index 0000000000..d1c44223de
--- /dev/null
+++ b/macros/text1/pc/misc/cm65m.mth
@@ -0,0 +1,10 @@
+\font\cmVImi=cmmi6
+\font\cmVIsy=cmsy6 \font\cmVIex=cmex10
+\font\cmVIbd=cmbx6\font\cmVIrm=cmr6
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmVIrm \scriptfont1=\cmVImi
+ \scriptfont2=\cmVIsy \scriptfont3=\cmVIex
+ \scriptfont\bffam=\cmVIbd
+ \scriptscriptfont0=\fiverm \scriptscriptfont1=\fivei
+ \scriptscriptfont2=\fivesy \scriptscriptfont3=\tenex
+ \scriptscriptfont\bffam=\fivebf}%
diff --git a/macros/text1/pc/misc/cm7.txt b/macros/text1/pc/misc/cm7.txt
new file mode 100644
index 0000000000..894bff8b2c
--- /dev/null
+++ b/macros/text1/pc/misc/cm7.txt
@@ -0,0 +1,45 @@
+\global\newif\ifVIIbierr
+\global\newif\ifVIIbderr
+\global\newif\ifVIItterr
+\global\newif\ifVIIccerr
+\font\cmVIIit=cmti7
+\expandafter\newdimen\csname\the\naMEtok ilsvii\endcsname
+\global\csname\the\naMEtok ilsvii\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsvii\endcsname=0pt
+\csname\the\naMEtok ilsvii\endcsname=9pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\sevenrm}%
+\def\noexpand\mi{\fam1\seveni}%
+\def\noexpand\sy{\fam2\sevensy}%
+\def\noexpand\ex{\fam3\tenex}%
+ \textfont0=\sevenrm \textfont1=\seveni
+ \textfont2=\sevensy \textfont3=\tenex
+ \textfont\itfam=\cmVIIit
+ \textfont\bffam=\sevenbf
+\def\noexpand\it{\fam\itfam\cmVIIit}%
+\def\noexpand\bd{\fam\bffam\sevenbf}%
+\def\noexpand\tt{\noexpand\ifVIItterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CM7. Will print roman font .}%
+\noexpand\global\noexpand\VIItterrtrue \noexpand\fi}%
+\def\noexpand\bi{\noexpand\ifVIIbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CM7. Will print italic font .}%
+\noexpand\global\noexpand\VIIbierrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifVIIccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CM7. Will print roman font .}%
+\noexpand\global\noexpand\VIIccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsvii\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm75m.mth b/macros/text1/pc/misc/cm75m.mth
new file mode 100644
index 0000000000..2acd4dc1f4
--- /dev/null
+++ b/macros/text1/pc/misc/cm75m.mth
@@ -0,0 +1,7 @@
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\sevenrm \scriptfont1=\seveni
+ \scriptfont2=\sevensy \scriptfont3=\tenex
+ \scriptfont\bffam=\sevenbf
+ \scriptscriptfont0=\fiverm \scriptscriptfont1=\fivei
+ \scriptscriptfont2=\fivesy \scriptscriptfont3=\tenex
+ \scriptscriptfont\bffam=\fivebf}%
diff --git a/macros/text1/pc/misc/cm76m.mth b/macros/text1/pc/misc/cm76m.mth
new file mode 100644
index 0000000000..796813490d
--- /dev/null
+++ b/macros/text1/pc/misc/cm76m.mth
@@ -0,0 +1,10 @@
+\font\cmVIrm=cmr6 \font\cmVImi=cmmi6
+\font\cmVIsy=cmsy6 \font\cmVIex=cmex10
+\font\cmVIbd=cmbx6
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\sevenrm \scriptfont1=\seveni
+ \scriptfont2=\sevensy \scriptfont3=\tenex
+ \scriptfont\bffam=\sevenbf
+ \scriptscriptfont0=\cmVIrm \scriptscriptfont1=\cmVImi
+ \scriptscriptfont2=\cmVIsy \scriptscriptfont3=\cmVIex
+ \scriptscriptfont\bffam=\cmVIbd}%
diff --git a/macros/text1/pc/misc/cm8.txt b/macros/text1/pc/misc/cm8.txt
new file mode 100644
index 0000000000..ea69af7705
--- /dev/null
+++ b/macros/text1/pc/misc/cm8.txt
@@ -0,0 +1,40 @@
+\global\newif\ifcmVIIIbierr
+\font\cmVIIIcc=cmcsc8
+\font\cmVIIIrm=cmr8 \font\cmVIIIit=cmti8
+\font\cmVIIIbd=cmbx8 \font\cmVIIImi=cmmi8
+\font\cmVIIItt=cmtt8
+\expandafter\newdimen\csname\the\naMEtok ilsviii\endcsname
+\global\csname\the\naMEtok ilsviii\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsviii\endcsname=0pt
+\csname\the\naMEtok ilsviii\endcsname=10pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmVIIIrm}%
+\def\noexpand\mi{\fam1\cmVIIImi}%
+\def\noexpand\sy{\fam2\tensy}%
+\def\noexpand\ex{\fam3\tenex}%
+ \textfont0=\cmVIIIrm \textfont1=\cmVIIImi
+ \textfont2=\tensy \textfont3=\tenex
+ \textfont\itfam=\cmVIIIit
+ \textfont\ttfam=\cmVIIItt \textfont\bffam=\cmVIIIbd
+ \textfont\ccfam=\cmVIIIcc
+\def\noexpand\bd{\fam\bffam\cmVIIIbd}%
+\def\noexpand\it{\fam\itfam\cmVIIIit}%
+\def\noexpand\tt{\fam\ttfam\cmVIIItt}%
+\def\noexpand\cc{\fam\ccfam\cmVIIIcc}%
+\def\noexpand\bi{\noexpand\ifcmVIIIbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CM8. Will print italic font .}%
+\noexpand\global\noexpand\cmVIIIbierrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsviii\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm86m.mth b/macros/text1/pc/misc/cm86m.mth
new file mode 100644
index 0000000000..9acea1b047
--- /dev/null
+++ b/macros/text1/pc/misc/cm86m.mth
@@ -0,0 +1,13 @@
+\font\cmVIIIrm=cmr8 \font\cmVIIImi=cmmi8
+\font\cmVIIIsy=cmsy8 \font\cmVIIIex=cmex10
+\font\cmVIIIbd=cmbx8
+\font\cmVIrm=cmr6 \font\cmVImi=cmmi6
+\font\cmVIsy=cmsy6 \font\cmVIex=cmex10
+\font\cmVIbd=cmbx6
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmVIIIrm \scriptfont1=\cmVIIImi
+ \scriptfont2=\cmVIIIsy \scriptfont3=\cmVIIIex
+ \scriptfont\bffam=\cmVIIIbd
+ \scriptscriptfont0=\cmVIrm \scriptscriptfont1=\cmVImi
+ \scriptscriptfont2=\cmVIsy \scriptscriptfont3=\cmVIex
+ \scriptscriptfont\bffam=\cmVIbd}%
diff --git a/macros/text1/pc/misc/cm87m.mth b/macros/text1/pc/misc/cm87m.mth
new file mode 100644
index 0000000000..5bc523025d
--- /dev/null
+++ b/macros/text1/pc/misc/cm87m.mth
@@ -0,0 +1,10 @@
+\font\cmVIIImi=cmmi8
+\font\cmVIIIsy=cmsy8 \font\cmVIIIex=cmex10
+\font\cmVIIIbd=cmbx8\font\cmVIIIrm=cmr8
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmVIIIrm \scriptfont1=\cmVIIImi
+ \scriptfont2=\cmVIIIsy \scriptfont3=\cmVIIIex
+ \scriptfont\bffam=\cmVIIIbd
+ \scriptscriptfont0=\sevenrm \scriptscriptfont1=\seveni
+ \scriptscriptfont2=\sevensy \scriptscriptfont3=\tenex
+ \scriptscriptfont\bffam=\sevenbf}%
diff --git a/macros/text1/pc/misc/cm9.txt b/macros/text1/pc/misc/cm9.txt
new file mode 100644
index 0000000000..8602cb2d64
--- /dev/null
+++ b/macros/text1/pc/misc/cm9.txt
@@ -0,0 +1,40 @@
+\global\newif\ifcmIXbierr
+\font\cmIXcc=cmcsc9
+\font\cmIXrm=cmr9 \font\cmIXit=cmti9
+\font\cmIXbd=cmbx9 \font\cmIXmi=cmmi9
+\font\cmIXtt=cmtt9
+\expandafter\newdimen\csname\the\naMEtok ilsix\endcsname
+\global\csname\the\naMEtok ilsix\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsix\endcsname=0pt
+\csname\the\naMEtok ilsix\endcsname=11pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmIXrm}%
+\def\noexpand\mi{\fam1\cmIXmi}%
+\def\noexpand\sy{\fam2\tensy}%
+\def\noexpand\ex{\fam3\tenex}%
+ \textfont0=\cmIXrm \textfont1=\cmIXmi
+ \textfont2=\tensy \textfont3=\tenex
+ \textfont\itfam=\cmIXit
+ \textfont\ttfam=\cmIXtt \textfont\bffam=\cmIXbd
+ \textfont\ccfam=\cmIXcc
+\def\noexpand\bd{\fam\bffam\cmIXbd}%
+\def\noexpand\it{\fam\itfam\cmIXit}%
+\def\noexpand\tt{\fam\ttfam\cmIXtt}%
+\def\noexpand\cc{\fam\ccfam\cmIXcc}%
+\def\noexpand\bi{\noexpand\ifcmIXbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CM9. Will print italic font .}%
+\noexpand\global\noexpand\cmIXbierrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsix\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cm97m.mth b/macros/text1/pc/misc/cm97m.mth
new file mode 100644
index 0000000000..612ddf3587
--- /dev/null
+++ b/macros/text1/pc/misc/cm97m.mth
@@ -0,0 +1,10 @@
+\font\cmIXmi=cmmi9
+\font\cmIXsy=cmsy9 \font\cmIXex=cmex10
+\font\cmIXbd=cmbx9\font\cmIXrm=cmr9
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmIXrm \scriptfont1=\cmIXmi
+ \scriptfont2=\cmIXsy \scriptfont3=\cmIXex
+ \scriptfont\bffam=\cmIXbd
+ \scriptscriptfont0=\sevenrm \scriptscriptfont1=\seveni
+ \scriptscriptfont2=\sevensy \scriptscriptfont3=\tenex
+ \scriptscriptfont\bffam=\sevenbf}%
diff --git a/macros/text1/pc/misc/cm98m.mth b/macros/text1/pc/misc/cm98m.mth
new file mode 100644
index 0000000000..78e30ed089
--- /dev/null
+++ b/macros/text1/pc/misc/cm98m.mth
@@ -0,0 +1,13 @@
+\font\cmIXmi=cmmi9
+\font\cmIXsy=cmsy9 \font\cmIXex=cmex10
+\font\cmIXbd=cmbx9\font\cmIXrm=cmr9
+\font\cmVIIIrm=cmr8 \font\cmVIIImi=cmmi8
+\font\cmVIIIsy=cmsy8 \font\cmVIIIex=cmex10
+\font\cmVIIIbd=cmbx8
+ \expandafter\gdef\csname\the\maTHtok\endcsname{%
+ \scriptfont0=\cmIXrm \scriptfont1=\cmIXmi
+ \scriptfont2=\cmIXsy \scriptfont3=\cmIXex
+ \scriptfont\bffam=\cmIXbd
+ \scriptscriptfont0=\cmVIIIrm \scriptscriptfont1=\cmVIIImi
+ \scriptscriptfont2=\cmVIIIsy \scriptscriptfont3=\cmVIIIex
+ \scriptscriptfont\bffam=\cmVIIIbd}%
diff --git a/macros/text1/pc/misc/cmsan10.txt b/macros/text1/pc/misc/cmsan10.txt
new file mode 100644
index 0000000000..cedf00fe5e
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan10.txt
@@ -0,0 +1,46 @@
+\global\newif\ifXssbierr
+\global\newif\ifXssccerr
+\global\newif\ifXsstterr
+\font\cmXssrm=cmss10 \font\cmXssit=cmssi10
+\font\cmXssbd=cmssbx10 \font\cmXssmi=cmmi10
+\font\cmXsssy=cmsy10 \font\cmXssex=cmex10
+\expandafter\newdimen\csname\the\naMEtok ilsxss\endcsname
+\global\csname\the\naMEtok ilsxss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxss\endcsname=0pt
+\csname\the\naMEtok ilsxss\endcsname=12pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXssrm}%
+\def\noexpand\mi{\fam1\cmXssmi}%
+\def\noexpand\sy{\fam2\cmXsssy}%
+\def\noexpand\ex{\fam3\cmXssex}%
+ \textfont0=\cmXssrm \textfont1=\cmXssmi
+ \textfont2=\cmXsssy \textfont3=\cmXssex
+ \textfont\itfam=\cmXssit
+ \textfont\bffam=\cmXssbd
+\def\noexpand\bd{\fam\bffam\cmXssbd}%
+\def\noexpand\it{\fam\itfam\cmXssit}%
+\def\noexpand\bi{\noexpand\ifXssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN10. Will print italic font .}%
+\noexpand\global\noexpand\Xssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifXsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN10. Will print roman font .}%
+\noexpand\global\noexpand\Xsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifXssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN10. Will print roman font .}%
+\noexpand\global\noexpand\Xssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cmsan11.txt b/macros/text1/pc/misc/cmsan11.txt
new file mode 100644
index 0000000000..e5da60857e
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan11.txt
@@ -0,0 +1,46 @@
+\global\newif\ifXIssbierr
+\global\newif\ifXIssccerr
+\global\newif\ifXIsstterr
+\font\cmXIssrm=cmss11 \font\cmXIssit=cmssi11
+\font\cmXIssbd=cmssbx11 \font\cmXIssmi=cmmi11
+\font\cmXIsssy=cmsy11 \font\cmXIssex=cmex11
+\expandafter\newdimen\csname\the\naMEtok ilsxiss\endcsname
+\global\csname\the\naMEtok ilsxiss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxiss\endcsname=0pt
+\csname\the\naMEtok ilsxiss\endcsname=13pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXIssrm}%
+\def\noexpand\mi{\fam1\cmXIssmi}%
+\def\noexpand\sy{\fam2\cmXIsssy}%
+\def\noexpand\ex{\fam3\cmXIssex}%
+ \textfont0=\cmXIssrm \textfont1=\cmXIssmi
+ \textfont2=\cmXIsssy \textfont3=\cmXIssex
+ \textfont\itfam=\cmXIssit
+ \textfont\bffam=\cmXIssbd
+\def\noexpand\bd{\fam\bffam\cmXIssbd}%
+\def\noexpand\it{\fam\itfam\cmXIssit}%
+\def\noexpand\bi{\noexpand\ifXIssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN11. Will print italic font .}%
+\noexpand\global\noexpand\XIssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifXIsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN11. Will print roman font .}%
+\noexpand\global\noexpand\XIsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifXIssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN11. Will print roman font .}%
+\noexpand\global\noexpand\XIssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxiss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cmsan12.txt b/macros/text1/pc/misc/cmsan12.txt
new file mode 100644
index 0000000000..234dd3cbba
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan12.txt
@@ -0,0 +1,46 @@
+\global\newif\ifXIIssbierr
+\global\newif\ifXIIssccerr
+\global\newif\ifXIIsstterr
+\font\cmXIIssrm=cmss12 \font\cmXIIssit=cmssi12
+\font\cmXIIssbd=cmssbx12 \font\cmXIIssmi=cmmi12
+\font\cmXIIsssy=cmsy12 \font\cmXIIssex=cmex12
+\expandafter\newdimen\csname\the\naMEtok ilsxiiss\endcsname
+\global\csname\the\naMEtok ilsxiiss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxiiss\endcsname=0pt
+\csname\the\naMEtok ilsxiiss\endcsname=14pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXIIssrm}%
+\def\noexpand\mi{\fam1\cmXIIssmi}%
+\def\noexpand\sy{\fam2\cmXIIsssy}%
+\def\noexpand\ex{\fam3\cmXIIssex}%
+ \textfont0=\cmXIIssrm \textfont1=\cmXIIssmi
+ \textfont2=\cmXIIsssy \textfont3=\cmXIIssex
+ \textfont\itfam=\cmXIIssit
+ \textfont\bffam=\cmXIIssbd
+\def\noexpand\bd{\fam\bffam\cmXIIssbd}%
+\def\noexpand\it{\fam\itfam\cmXIIssit}%
+\def\noexpand\bi{\noexpand\ifXIIssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN12. Will print italic font .}%
+\noexpand\global\noexpand\XIIssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifXIIsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN12. Will print roman font .}%
+\noexpand\global\noexpand\XIIsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifXIIssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN12. Will print roman font .}%
+\noexpand\global\noexpand\XIIssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxiiss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cmsan14.txt b/macros/text1/pc/misc/cmsan14.txt
new file mode 100644
index 0000000000..23d2eb54a5
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan14.txt
@@ -0,0 +1,46 @@
+\global\newif\ifXIVssbierr
+\global\newif\ifXIVssccerr
+\global\newif\ifXIVsstterr
+\font\cmXIVssrm=cmss14 \font\cmXIVssit=cmssi14
+\font\cmXIVssbd=cmssbx14 \font\cmXIVssmi=cmmi14
+\font\cmXIVsssy=cmsy14 \font\cmXIVssex=cmex14
+\expandafter\newdimen\csname\the\naMEtok ilsxivss\endcsname
+\global\csname\the\naMEtok ilsxivss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxivss\endcsname=0pt
+\csname\the\naMEtok ilsxivss\endcsname=16pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXIVssrm}%
+\def\noexpand\mi{\fam1\cmXIVssmi}%
+\def\noexpand\sy{\fam2\cmXIVsssy}%
+\def\noexpand\ex{\fam3\cmXIVssex}%
+ \textfont0=\cmXIVssrm \textfont1=\cmXIVssmi
+ \textfont2=\cmXIVsssy \textfont3=\cmXIVssex
+ \textfont\itfam=\cmXIVssit
+ \textfont\bffam=\cmXIVssbd
+\def\noexpand\bd{\fam\bffam\cmXIVssbd}%
+\def\noexpand\it{\fam\itfam\cmXIVssit}%
+\def\noexpand\bi{\noexpand\ifXIVssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN14. Will print italic font .}%
+\noexpand\global\noexpand\XIVssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifXIVsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN14. Will print roman font .}%
+\noexpand\global\noexpand\XIVsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifXIVssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN14. Will print roman font .}%
+\noexpand\global\noexpand\XIVssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxivss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cmsan18.txt b/macros/text1/pc/misc/cmsan18.txt
new file mode 100644
index 0000000000..a1a581291e
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan18.txt
@@ -0,0 +1,46 @@
+\global\newif\ifXVIIIssbierr
+\global\newif\ifXVIIIssccerr
+\global\newif\ifXVIIIsstterr
+\font\cmXVIIIssrm=cmss18 \font\cmXVIIIssit=cmssi18
+\font\cmXVIIIssbd=cmssbx18 \font\cmXVIIIssmi=cmmi18
+\font\cmXVIIIsssy=cmsy18 \font\cmXVIIIssex=cmex18
+\expandafter\newdimen\csname\the\naMEtok ilsxviiiss\endcsname
+\global\csname\the\naMEtok ilsxviiiss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxviiiss\endcsname=0pt
+\csname\the\naMEtok ilsxviiiss\endcsname=20pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXVIIIssrm}%
+\def\noexpand\mi{\fam1\cmXVIIIssmi}%
+\def\noexpand\sy{\fam2\cmXVIIIsssy}%
+\def\noexpand\ex{\fam3\cmXVIIIssex}%
+ \textfont0=\cmXVIIIssrm \textfont1=\cmXVIIIssmi
+ \textfont2=\cmXVIIIsssy \textfont3=\cmXVIIIssex
+ \textfont\itfam=\cmXVIIIssit
+ \textfont\bffam=\cmXVIIIssbd
+\def\noexpand\bd{\fam\bffam\cmXVIIIssbd}%
+\def\noexpand\it{\fam\itfam\cmXVIIIssit}%
+\def\noexpand\bi{\noexpand\ifXVIIIssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN18. Will print italic font .}%
+\noexpand\global\noexpand\XVIIIssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifXVIIIsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN18. Will print roman font .}%
+\noexpand\global\noexpand\XVIIIsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifXVIIIssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN18. Will print roman font .}%
+\noexpand\global\noexpand\XVIIIssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxviiiss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cmsan24.txt b/macros/text1/pc/misc/cmsan24.txt
new file mode 100644
index 0000000000..d035cc6ecd
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan24.txt
@@ -0,0 +1,46 @@
+\global\newif\ifXXIVssbierr
+\global\newif\ifXXIVssccerr
+\global\newif\ifXXIVsstterr
+\font\cmXXIVssrm=cmss24 \font\cmXXIVssit=cmssi24
+\font\cmXXIVssbd=cmssbx24 \font\cmXXIVssmi=cmmi24
+\font\cmXXIVsssy=cmsy24 \font\cmXXIVssex=cmex24
+\expandafter\newdimen\csname\the\naMEtok ilsxxivss\endcsname
+\global\csname\the\naMEtok ilsxxivss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxxivss\endcsname=0pt
+\csname\the\naMEtok ilsxxivss\endcsname=26pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXXIVssrm}%
+\def\noexpand\mi{\fam1\cmXXIVssmi}%
+\def\noexpand\sy{\fam2\cmXXIVsssy}%
+\def\noexpand\ex{\fam3\cmXXIVssex}%
+ \textfont0=\cmXXIVssrm \textfont1=\cmXXIVssmi
+ \textfont2=\cmXXIVsssy \textfont3=\cmXXIVssex
+ \textfont\itfam=\cmXXIVssit
+ \textfont\bffam=\cmXXIVssbd
+\def\noexpand\bd{\fam\bffam\cmXXIVssbd}%
+\def\noexpand\it{\fam\itfam\cmXXIVssit}%
+\def\noexpand\bi{\noexpand\ifXXIVssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN24. Will print italic font .}%
+\noexpand\global\noexpand\XXIVssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifXXIVsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN24. Will print roman font .}%
+\noexpand\global\noexpand\XXIVsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifXXIVssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN24. Will print roman font .}%
+\noexpand\global\noexpand\XXIVssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxxivss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cmsan36.txt b/macros/text1/pc/misc/cmsan36.txt
new file mode 100644
index 0000000000..3a64c94a76
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan36.txt
@@ -0,0 +1,46 @@
+\global\newif\ifXXXVIssbierr
+\global\newif\ifXXXVIssccerr
+\global\newif\ifXXXVIsstterr
+\font\cmXXXVIssrm=cmss36 \font\cmXXXVIssit=cmssi36
+\font\cmXXXVIssbd=cmssbx36 \font\cmXXXVIssmi=cmmi36
+\font\cmXXXVIsssy=cmsy36 \font\cmXXXVIssex=cmex24
+\expandafter\newdimen\csname\the\naMEtok ilsxxivss\endcsname
+\global\csname\the\naMEtok ilsxxivss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxxivss\endcsname=0pt
+\csname\the\naMEtok ilsxxivss\endcsname=38pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXXXVIssrm}%
+\def\noexpand\mi{\fam1\cmXXXVIssmi}%
+\def\noexpand\sy{\fam2\cmXXXVIsssy}%
+\def\noexpand\ex{\fam3\cmXXXVIssex}%
+ \textfont0=\cmXXXVIssrm \textfont1=\cmXXXVIssmi
+ \textfont2=\cmXXXVIsssy \textfont3=\cmXXXVIssex
+ \textfont\itfam=\cmXXXVIssit
+ \textfont\bffam=\cmXXXVIssbd
+\def\noexpand\bd{\fam\bffam\cmXXXVIssbd}%
+\def\noexpand\it{\fam\itfam\cmXXXVIssit}%
+\def\noexpand\bi{\noexpand\ifXXXVIssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN36. Will print italic font .}%
+\noexpand\global\noexpand\XXXVIssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifXXXVIsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN36. Will print roman font .}%
+\noexpand\global\noexpand\XXXVIsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifXXXVIssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN36. Will print roman font .}%
+\noexpand\global\noexpand\XXXVIssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsxxivss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cmsan8.txt b/macros/text1/pc/misc/cmsan8.txt
new file mode 100644
index 0000000000..710177059f
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan8.txt
@@ -0,0 +1,49 @@
+\global\newif\ifcmVIIIssbierr
+\global\newif\ifcmVIIIssccerr
+\global\newif\ifcmVIIIsstterr
+\global\newif\ifcmVIIIssbderr
+\font\cmVIIIssit=cmssi8
+\font\cmVIIIssrm=cmss8 \font\cmVIIIssmi=cmmi8
+\font\cmVIIIsssy=cmsy8 \font\cmVIIIssex=cmex10
+\expandafter\newdimen\csname\the\naMEtok ilsviiiss\endcsname
+\global\csname\the\naMEtok ilsviiiss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsviiiss\endcsname=0pt
+\csname\the\naMEtok ilsviiiss\endcsname=10pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmVIIIssrm}%
+\def\noexpand\mi{\fam1\cmVIIIssmi}%
+\def\noexpand\sy{\fam2\cmVIIIsssy}%
+\def\noexpand\ex{\fam3\cmVIIIssex}%
+ \textfont0=\cmVIIIssrm \textfont1=\cmVIIIssmi
+ \textfont2=\cmVIIIsssy \textfont3=\cmVIIIssex
+ \textfont\itfam=\cmVIIIssit
+\def\noexpand\it{\fam\itfam\cmVIIIssit}%
+\def\noexpand\bd{\noexpand\ifcmVIIIssbderr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No bold font in CMSAN8. Will print roman font .}%
+\noexpand\global\noexpand\cmVIIIssbderrtrue \noexpand\fi}%
+\def\noexpand\bi{\noexpand\ifcmVIIIssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN8. Will print italic font .}%
+\noexpand\global\noexpand\cmVIIIssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifcmVIIIsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN8. Will print roman font .}%
+\noexpand\global\noexpand\cmVIIIsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifcmVIIIssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN8. Will print roman font .}%
+\noexpand\global\noexpand\cmVIIIssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsviiiss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/misc/cmsan9.txt b/macros/text1/pc/misc/cmsan9.txt
new file mode 100644
index 0000000000..7309c82d45
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan9.txt
@@ -0,0 +1,46 @@
+\global\newif\ifIXssbierr
+\global\newif\ifIXssccerr
+\global\newif\ifIXsstterr
+\font\cmIXssrm=cmss9 \font\cmIXssit=cmssi9
+\font\cmIXssbd=cmssbx9 \font\cmIXssmi=cmmi9
+\font\cmIXsssy=cmsy9 \font\cmIXssex=cmex10
+\expandafter\newdimen\csname\the\naMEtok ilsixss\endcsname
+\global\csname\the\naMEtok ilsixss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsixss\endcsname=0pt
+\csname\the\naMEtok ilsixss\endcsname=11pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmIXssrm}%
+\def\noexpand\mi{\fam1\cmIXssmi}%
+\def\noexpand\sy{\fam2\cmIXsssy}%
+\def\noexpand\ex{\fam3\cmIXssex}%
+ \textfont0=\cmIXssrm \textfont1=\cmIXssmi
+ \textfont2=\cmIXsssy \textfont3=\cmIXssex
+ \textfont\itfam=\cmIXssit
+ \textfont\bffam=\cmIXssbd
+\def\noexpand\bd{\fam\bffam\cmIXssbd}%
+\def\noexpand\it{\fam\itfam\cmIXssit}%
+\def\noexpand\bi{\noexpand\ifIXssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN9. Will print italic font .}%
+\noexpand\global\noexpand\IXssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifIXsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN9. Will print roman font .}%
+\noexpand\global\noexpand\IXsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifIXssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN9. Will print roman font .}%
+\noexpand\global\noexpand\IXssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\noexpand\let\noexpand\caps=\noexpand\cc%
+\noexpand\let\noexpand\typewriter=\noexpand\tt%
+\noexpand\let\noexpand\roman=\noexpand\rm%
+\noexpand\let\noexpand\symbol=\noexpand\sy%
+\noexpand\let\noexpand\mathitalic=\noexpand\mi%
+\noexpand\let\noexpand\extension=\noexpand\ex%
+\noexpand\interlineskip{%
+\noexpand\csname\the\naMEtok ilsixss\noexpand\endcsname}}%
diff --git a/macros/text1/pc/models/letter.inp b/macros/text1/pc/models/letter.inp
new file mode 100644
index 0000000000..4cac048afa
--- /dev/null
+++ b/macros/text1/pc/models/letter.inp
@@ -0,0 +1,51 @@
+% LETTER FORMAT FILE bth 4/1/87
+\catcode`*=11
+\raggedbottom % text height may vary from page to page
+\if*msp\defaultmono
+ \let\titlefont=\defaultmono
+ \let\twelvept=\defaultmono
+ \let\tenpt=\defaultmono
+ \let\rm=\defaultmono
+ \fi % monospace check
+\newtoks\departmentname % department name for letterhead
+\newtoks\campuszip % zip code for letterhead
+\newtoks\campusphone % phone number for letterhead
+\newtoks\date % date token list
+\newif\if*postscript
+\*postscriptfalse
+%
+\def\STOP{\endgroup\par}% ends obeylines grouping
+%
+\def\BEGINADDRESS{\begingroup\parskip=0pt\parindent=0pt\obeylines}%
+\let\SALUTATION=\null
+\let\BODY=\STOP
+\def\CLOSING{\par\vs{\bl}\begingroup\parskip=0pt\parindent=0pt
+ \obeylines}%
+\def\COPIES{\par\vs{\bl}
+ \setbox0=\hbox{Copies:\quad}\parindent=\wd0 \nin Copies:\quad}%
+\def\ENCLOSURES#1{\par Enclosures:\quad #1}% sets enclosures text line
+\def\ENDLETTER{\par\endgroup}% stop any obeylines grouping
+% Default for the title (first) page
+\titlepageformat{\titleleadskip{0in}
+ \titlefootline{}
+}% end title page format
+\def\letterhead{{\parskip=0pt
+ \if*msp
+ \cl{\titlefont Washington State University}
+ \vs{\bl}\hrule\vs{\bl}
+ \cl{\the\departmentname}
+ \cl{Pullman, Washington\ \the\campuszip}
+ \cl{\the\campusphone}
+ \vs{1\bl} % number of blank lines inserted
+ \nin\the\date %
+ \else
+ \cl{\titlefont Washington State University}
+ \vs{4pt}\hrule\vs{6pt}
+ \cl{\twelvept \the\departmentname}
+ \cl{\tenpt Pullman, Washington\ \the\campuszip}
+ \cl{\tenpt \the\campusphone}
+ \vs{1\bl} % number of blank lines inserted
+ \nin\the\date %
+ \fi
+}}% end letterhead markup
+\catcode`*=12
diff --git a/macros/text1/pc/models/letter.mdl b/macros/text1/pc/models/letter.mdl
new file mode 100644
index 0000000000..432fffbdfe
--- /dev/null
+++ b/macros/text1/pc/models/letter.mdl
@@ -0,0 +1,45 @@
+% LETTER MARKUP (style, full block) APRIL 1, 1986
+% To print on monospace printers (line printers, daisy-wheel printers)
+%\monospace % delete the "%" symbol at the beginning of this line
+\paragraphskip{12pt} % distance between paragraphs
+\paragraphindent{0pt} % first line word indent
+\sfs{cm18}{titlefont}{24pt}% large font selected for letterhead
+\input letter.inp % places the format file into your text file
+% LETTERHEAD INFORMATION
+% Type the name of your department, the campus zip code,
+% the campus telephone number, and date (if not today's
+% date) between the curly braces of the samples shown
+% below. This information will be added to the letterhead.
+%........................................................................
+\departmentname{name of your department or organization}
+\campuszip{99164-????}
+\campusphone{(509) 335-????}
+\date{\today}
+% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+\letterhead %
+\vs{2\bl} %
+% LETTER ADDRESS
+\BEGINADDRESS % . . . . insert address below this line . . . . . . . . .
+\SALUTATION % . . . replace the salutation on the next line . . . . . . .
+Dear ????
+\BODY % LETTER BODY
+% . . . . . . insert the text of the letter below this line . . . . . . .
+% . . . . . . . . . . . . and above this line . . . . . . . . . . . . . .
+% LETTER CLOSING
+\CLOSING % . . . . replace closing line, if desired . . . . . . . . . . .
+Sincerely yours,
+\vs{3\bl}
+% SIGNATURE LINE
+% . . . . . . . . . replace signature line . . . . . . . . . . . . . . .
+John Doe
+\vs{\bl}
+% ENCLOSURES AND COPIES
+% . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
+% Use \ENCLOSURES markup for an enclosure number, %
+% for example: \ENCLOSURES{3} %
+% Use \COPIES markup for a copy list, %
+% for example: \COPIES first name %
+% second name %
+% third name, etc. %
+% . . . . . . . enter enclosures and copies below this line . . . . . . .
+\ENDLETTER %------------- and above this line ---------------------------
diff --git a/macros/text1/pc/models/memo.inp b/macros/text1/pc/models/memo.inp
new file mode 100644
index 0000000000..bbf6aa632e
--- /dev/null
+++ b/macros/text1/pc/models/memo.inp
@@ -0,0 +1,48 @@
+% MEMO TEXINPUT FORMAT FILE
+% dlw 8/15/86
+\catcode`*=11
+\if*msp \let\titlefont=\defaultmono
+ \let\twelvept=\defaultmono
+ \let\tenpt=\defaultmono
+ \let\rm=\defaultmono
+ \fi % change all fonts to defaultmono for the monospace option
+\rightragged
+\newif\if*copies
+\*copiesfalse
+\newtoks\*lfthead \*lfthead = { }
+\newtoks\*ctrhead \*ctrhead = { }
+\newtoks\*rthead \*rthead = { }
+\rightragged
+% Default for the title (first) page
+\titlepageformat{\titleleadskip{0in}
+ \titlefootline{}
+}
+\def\memopageheadingformat#1{% setup for memo running head
+ \def\*left##1{\global\*lfthead={##1}}%
+ \def\*center##1{\global\*ctrhead={##1}}%
+ \def\*right##1{\global\*rthead={##1}}%
+#1}% end memoheading format
+\let\mhf=\memopageheadingformat
+\memopageheadingformat{\*left{}\*center{\pagenumber}\*right{}}
+\runningheadformat{\bothpages{\twelvept
+ \line{\hbox to.33333\hsize{\the\*lfthead\hss}\hfil
+ \hbox to.33333\hsize{\hss\the\*ctrhead\hss}\hfil
+ \hbox to.33333\hsize{\hss\the\*rthead}}
+ \vs{28pt}} % 28pt = .4in
+}% end runningheadformat
+\def\MEMO{\begingroup\obeylines\parskip=0pt\parindent=60pt}%
+\def\TEXT{\endgroup\if*msp\defaultmono\ssp\else\twelvept\fi %
+ \vs{\bl}\hrule\vs{2\bl}}%
+%
+\cl{{\titlefont M E M O R A N D U M}}
+\if*msp\par\vs{\bl}\ssp
+ \else\par\vs{.4in}\isk{18pt}\fi
+\def\TO{\nin To:\par\vs{-\bl}}%
+\def\FROM{\if*msp\vs{\bl}\fi\nin From:\par\vs{-\bl}}%
+\def\DATE#1{\if*msp\vs{\bl}\fi\nin Date:\par\vs{-\bl}#1}%
+\def\SUBJECT{\if*msp\vs{\bl}\fi\nin Subject:\par\vs{-\bl}}%
+\def\COPIES{\global\*copiestrue\vs{\bl}\nin Copies:\par\vs{-\bl} %
+ \begingroup\obeylines\singlespace %
+ \parskip=0pt\parindent=60pt}%
+\def\ENDMEMO{\if*copies\par\endgroup\global\*copiesfalse\else\par\fi}%
+\catcode`*=12
diff --git a/macros/text1/pc/models/memo.mdl b/macros/text1/pc/models/memo.mdl
new file mode 100644
index 0000000000..42d03e93be
--- /dev/null
+++ b/macros/text1/pc/models/memo.mdl
@@ -0,0 +1,21 @@
+% MEMO TEXMODEL
+% August 15, 1986
+% To print on monospace printers delete the % symbol before \monospace
+%\monospace
+\sfs{cm18}{titlefont}{24pt}% Font selected for heading
+\input memo.inp % Loads memorandum format file
+\MEMO % Prints memorandum heading
+%--------Enter the text after each markup on the following lines---------
+%------------------multiple line entries may be used---------------------
+\TO
+\FROM
+\DATE {\today}
+\SUBJECT
+\TEXT %----- Insert the memo below this line-----------------------------
+
+%--------------For a list of copies use the \COPIES: markup-------------
+% for example: \COPIES first name
+% second name
+% third name, etc.
+%------------enter the copies markup and names below this line-----------
+\ENDMEMO % ----------------and before this line--------------------------
diff --git a/macros/text1/pc/models/mergelet.mdl b/macros/text1/pc/models/mergelet.mdl
new file mode 100644
index 0000000000..de4e4fa4b2
--- /dev/null
+++ b/macros/text1/pc/models/mergelet.mdl
@@ -0,0 +1,77 @@
+% Sample Letter for Merge File Model
+%
+% TEXT1 Letterhead description, change to suit your letter
+%
+%
+\begingroup
+\paragraphskip{0pt}
+\centerline{{\titlefont Washington State University}}
+\vs{4pt}\hrule\vs{4pt}
+\centerline{{\twelvept\bd Academic Computing Service}}
+\vs{-2pt}
+\centerline{{\tenpt Pullman, Washington 99164-1220\lbr 509/335-0411}}
+\vs{1\bl} % number of blank lines inserted
+\endgroup
+\vs{\bl}
+\tenpt
+\nin{\today}
+\vs{\bl}
+\asisbegin
+\noemptyspace\title\ \firstname\ \lastname
+\noemptyspace\company
+\address
+\city, \state\ \zipcode
+\phone
+
+Dear \firstname:
+
+\asisend
+This letter is a sample for the merge file facility of \text1. Ten
+data fields were created with DBASE~III on a PC and transferred to
+CMS. The fields were delimited with double quotations marks
+({\tt "}) and a comma placed between data fields by DBASE. Any data
+base program that allows data fields to be delimited with quotation
+marks could be used. A data file may also be created
+directly on CMS by entering the data in the following manner:\lbr
+\hs{2in}{\tt "}field one{\tt "},{\tt "}field two{\tt "},\ellipsis3,{\tt
+"}last field{\tt "}\lbr
+or written as \lbr
+\hs{2in}{\tt "}field one{\tt ""}field two{\tt "\ellipsis3\ "}last
+field{\tt "}\lbr
+the commas between data fields are optional.
+
+Quotation marks must be placed on either side of each field
+(delimit the field) and the {\it each data field must come in the same
+sequence as the data names specified in the {\tt \\fieldnames} markup}.
+{\bd No \it field may be omitted}, however, a field may be empty
+({\it i.e.}, {\tt "}first field{\tt ","","}third field{\tt "}
+\ellipsis3 ).
+
+The data markup (field names immediately preceded by a {\tt \\} )
+may be used to place text anywhere in the letter, but
+each field should be followed by a control space markup (\\ \ , a
+backslash followed by a blank space) or \text1
+will drop the space after the field. For example, the \\firstname\\
+\\lastname and \\amount markup have been used to add the
+recipients name and a dollar amount in the following line.
+
+\cl{The \firstname\ \lastname\ account has been charged \amount\ for
+printing services.}
+
+The {\tt \\noemptyspace} markup may be used to prevent a blank line
+if an address line is empty. Place the data field markup between the
+{\tt \\noemptyspace} markup and the linebreak ({\tt \\lbr}) markup
+({\it i.e.}, {\tt \\noemptyspace\\company\\lbr} would prevent a blank
+line if the company data field were empty). The {\tt\\noemptyspace}
+markup prevents an extra space after an empty data field. Place
+it in the following manner: {\tt \\noemptyspace\\title\\
+\\firstname\\ \\lastname\\lbr} The {\tt \\noemptyspace} markup will
+remove the following control space ({\tt \\ }) or control line break
+({\tt \\lbr}) if the specified data field
+is empty.
+\vs{\bl}
+\noindent
+Sincerely yours,
+\vs{3\bl}
+\noindent
+John Doe
diff --git a/macros/text1/pc/models/mergelst.mdl b/macros/text1/pc/models/mergelst.mdl
new file mode 100644
index 0000000000..0d15914892
--- /dev/null
+++ b/macros/text1/pc/models/mergelst.mdl
@@ -0,0 +1,17 @@
+% Sample data base Merge File address list, created with dBASE III
+% data field names are as follows:
+% title, firstname, lastname, company, address,
+% city, state, zipcode, phone, amount
+% All data fields must be present for each entry, although the data
+% field itself may be empty (i.e., "" is an empty or null data field).
+%
+"Ms.","Claire","Buckman","ABC Distributing Director","8307 Santa Anita
+Blvd","Oxnard","CA","93034","(555)456-9059","$5.00"
+"Mr.","Rick","Lisbonn","Vice-President for Marketing","1550 Keystone
+St.","Glendale","CA","91206","(555)455-3344","$15.00"
+"Dr.","Hank","Bicksby","Research Institute, Manager","4101 Peonia
+Rd","Flagstaff","AZ","86001","(555)966-1278","$25.00"
+"","Lena","Garnett","","520 S. 8th St.","Reno","NV","89504",
+"(555)766-9121","$3.00"
+"Mrs.","Lisa","Kafmanan","Sales Support Staff Manager","1960 Lindley
+Ave.","Reseda","CA","91355","(555)860-0300","$8.00"
diff --git a/macros/text1/pc/models/mergetxt.inp b/macros/text1/pc/models/mergetxt.inp
new file mode 100644
index 0000000000..a25e9617e5
--- /dev/null
+++ b/macros/text1/pc/models/mergetxt.inp
@@ -0,0 +1,184 @@
+% Merge File Model Macro Definition File
+\catcode`*=11
+\catcode`"=\active
+\catcode`,=\active
+\catcode`@=\active
+\newbox\FirstUp
+\newbox\SecondUp
+\newbox\ThirdUp
+\newcount\*first \*first=0 % first token field
+\newcount\*index \*index=0 % field index
+\newcount\*lastentry \*lastentry=0 % last token filed
+\newcount\*letternumber \*letternumber=0 % letter number from start
+\newcount\LblsUp \LblsUp=1 % number of labels per line
+\newcount\LblsAcross \LblsAcross=0 % counter for labels accross
+\newdimen\LblMat \LblMat=0pt % left and right label margins
+\newdimen\LblHt \LblHt=0in % vertical label size
+\newdimen\LblWd \LblWd=0in % horozontal label size
+\newif\if*check \*checkfalse % datacheck for manual entry
+\newif\if*lbfopen \*lbfopenfalse % check for open label file
+\newtoks\*csnametoks \*csnametoks={} % tokens for field names
+\newtoks\*maillblfmt \*maillblfmt={} % label sheet format code
+\newtoks\*addrlbl \*addrlbl={} % address label tokens
+\newwrite\*labels % create label filee
+
+\gdef,{\char'54{}}%
+% Datacheck forces a print letter after each set of fields
+\def\datacheck{\global\*checktrue}%
+\def@{\ifnum\*index>0
+ \global\*index=\*first % reset index
+ \if*check
+ \global\advance\*letternumber by1
+ \immediate\write16{Letter number \the\*letternumber.
+ First Data Field: (\the\toks\*first) . . .
+ Last Data Field: (\the\toks\*lastentry ). }
+ \fi % write to log file for data check
+ \*prnletter % print current data
+ \fi
+} % end of @ definition
+
+% Take user defined names to build control sequences
+\def\fieldnames#1{\par
+ \global\advance\count15 by 1 % new token register
+ \global\*first=\count15 % first new token register
+ \parsenames#1\end}% end fieldnames markup
+
+% Separate name fields into individual entries
+\def\parsenames#1{\ifx#1\end
+ \createfield
+ \let\next=\relax
+ \global\*lastentry=\count15
+ \global\*index=\*first
+ \*csnametoks={}
+ \else
+ \ifx#1,
+ \createfield
+ \global\advance\count15 by 1
+ \*csnametoks={}
+ \let\next=\parsenames
+ \else \*csnametoks=\expandafter{\the\*csnametoks#1}
+ \let\next=\parsenames
+ \fi\fi
+ \next}% end parsenames markup
+
+% CREATEFIELD create control sequence names from name field entries
+\def\createfield{\expandafter\xdef\csname\the\*csnametoks\endcsname
+ {\noexpand\the\toks\the\count15 }}% end createfield markup
+
+% DEFINE " as name of merge command
+\def"#1"{% set quote marks as active macro and delimiter
+ \ifnum\*index=0 \global\*index=\*first\fi
+ \global\toks\*index={#1} % gather argument in token variable
+ \ifnum\*index<\*lastentry % continue gathering process
+ \gdef,{\gdef,{\char'54{}}}% % drop , in data but not in text
+ \global\advance\*index by1 % index by 1
+ \ignorespaces % eliminate spurious spaces
+ \else % end process
+ \global\*index=0
+ \if*check
+ \global\advance\*letternumber by1
+ \immediate\write16{Letter number \the\*letternumber.
+ First Data Field: (\the\toks\*first) . . .
+ Last Data Field: (\the\toks\*lastentry ). }
+ \fi % write to log file for data check
+ \*prnletter % print current data
+ \fi}% end define " as macro name
+
+% Merge letter text file merged for each data record
+\def\*prnletter{% Print the letter text with current name/address fields
+ \catcode`"=12\catcode`@=3 % set " and @ to normal catcodes
+ \newpage % start new page for each letter
+ \setpagenumber{1} % reset page number
+ \inputletter % new page then get letter text file
+ \*savelabels{\*setlabel} % save address label information
+ \catcode`"=\active\catcode`@=\active % reset catcodes for markup defs
+ \relax}% end prnletter markup
+
+% Give filename for letter text
+\def\documentfilename#1{\gdef\inputletter{\input #1 }}%
+
+% Give maillist data filename
+\def\datafilename#1{\input #1 }%
+
+% Print no empty lines with the line break markup
+\def\noemptyspace#1#2{\edef\V{#1}\edef\W{\empty}%
+ \ifx\V\W% do nothing if empty argument
+ \else #1#2\fi% if not empty replace argument with the line break
+}% end no emptyspace
+\let\nes=\noemptyspace % set abbreviation
+
+
+% SAVELABELS ships information for labels to the label file
+\def\*savelabels#1{% Write Mail Label Information to TEXT1$$.LABEL
+ \if*lbfopen % do nothing if file TEXT1$$.LABEL already open
+ \else \immediate\openout\*labels=text1$$.label % open TEXT1$$.LABEL
+ \immediate\write\*labels{\the\*maillblfmt} % write format
+ \global\*lbfopentrue\fi % set open flag
+ \global\advance\LblsAcross by1 % set label postion pointer
+ \ifnum\LblsAcross>\LblsUp \global\LblsAcross=1 \fi
+ \edef\T{% create labels
+ \ifnum\LblsAcross=1 \setbox\FirstUp=\fi % left label
+ \ifnum\LblsAcross=2 \setbox\SecondUp=\fi% center label
+ \ifnum\LblsAcross=3 \setbox\ThirdUp=\fi % right label
+ \vtop to\LblHt{\hsize=\LblWd \leftskip=\LblMat \rightskip=\LblMat
+ \parindent=0pt #1\par\vfil} % make label to label size and width
+ \ifnum\LblsAcross=\LblsUp % print labels
+ \ifcase\LblsUp% case 0, no labels specified
+ \or\setbox\SecondUp=\null \setbox\ThirdUp=\null % one label
+ \or \setbox\ThirdUp=\null % two labels
+ \fi% end case % three label default
+ \line{\box\FirstUp\box\SecondUp\box\ThirdUp\hfil}
+ \fi}% end definition of T
+ \immediate\write\*labels{\T} % write information to file
+}% end save labels definition
+
+% Flushlabels prints any unprinted labels remaining in the markup
+\def\*flushlabels{% print any remaining boxed labels
+ \ifcase\LblsUp % case ), no labels specified
+ \or \setbox\SecondUp=\null \setbox\ThirdUp=\null % one label
+ \or \setbox\ThirdUp=\null % two labels
+ \fi% end case % three label default
+ \immediate\write\*labels{\line{\box\FirstUp\box\SecondUp\box\ThirdUp
+ \hfil}}%
+}% end flush any remaining labels
+
+% Print the label file TEXT1$$.LABEL
+\def\printlabels{\newpage % end last letter
+ \*flushlabels % print any remaining labels
+ \immediate\closeout\*labels % close data file
+ \setpagenumber{99} % labels begin on page 99
+ \input text1$$.label % input the address label data file
+}% end print mailing labels
+
+\def\addresslabelformat#1{\global\*addrlbl={#1}}%
+\*addrlbl={}
+
+\def\*setlabel{\the\*addrlbl}%
+
+% Set format for the mailing labels
+\def\maillabelformat#1{% Sets dimensions and margins of each label
+ \def\labelsetup##1{\global\*maillblfmt={##1}}%
+ \def\numberoflabelsperline##1{\global\LblsUp=##1}%
+ \def\labelheight##1{\global\LblHt=##1}%
+ \def\labelwidth##1{\global\LblWd=##1}%
+ \def\labelmat##1{\global\LblMat=##1}%
+ #1}% end mail label format
+\let\mlfmt=\maillabelformat % set abbreviation
+\catcode`*=12
+
+% Set defaults for the mailing labels
+% Maillabelformat sets the page and label information for mailing labels
+\maillabelformat{\labelsetup{% Sets page and margin settings
+ \raggedbottom
+ \parskip=0pt plus0pt minus0pt
+ \runningheadformat{\bothpages{\line{}}}
+ \pageformat{\topmargin{1in}
+ \bottommargin{0pt}
+ \leftmargin{0pt}
+ \rightmargin{0pt}}% end page format
+ }% end labelsetup
+ \numberoflabelsperline{3}% three labels max
+ \labelheight{1in}
+ \labelwidth{2.75in}
+ \labelmat{.25in}
+}% end mail label format
diff --git a/macros/text1/pc/models/mergetxt.mdl b/macros/text1/pc/models/mergetxt.mdl
new file mode 100644
index 0000000000..9b5c9ac534
--- /dev/null
+++ b/macros/text1/pc/models/mergetxt.mdl
@@ -0,0 +1,96 @@
+% MERGE LETTER MODEL, merges address list with letter
+\input mergetxt.inp % READ TEXT1 merge file format instructions
+%
+% Select special fonts and setting markup used
+% in the merge process here:
+%
+\selectfontset{cm18}{titlefont}{default} % special letter heading font
+\titlepageformat{\titleleadskip{0in}} % no initial skip for letters
+%
+% Run TEXT1 against a file on your disk that includes
+% this model. A set of five sample letters will be printed. The
+% sample letter describes the mail merge setup. Once you have
+% run the model and read the letter, make the necessary
+% modifications to your file. Set the address field names of
+% your address file in the "\fieldnames{name, name, ...}"
+% markup with the data field names of your data base file.
+% Create the "shell letter," your letter, which includes the
+% address field names of your data file, preceded by a "\",
+% i.e., \namea, \nameb, etc. You need use only those data
+% fields necessary in the document and address label, but all
+% fields in your data base file must be given in the field
+% names markup. Specify the name of your letter file
+% "shell letter" with the "\documentfilename{fn.ft}" markup;
+% specify the address data file with the "\addressfile{...}"
+% markup; and then PRINT the file containing your letter merge
+% model to merge the address file with the shell letter and
+% print the label sheet.
+%
+% NOTE: If you create an address file by hand remove the percent sign
+% before the datacheck MARKUP. The number of the letter from the
+% beginning of the merge file data base and the first and last
+% data fields will be listed on the screen and in the log file
+% when data check is active. This will aid you in finding any
+% errors in your data file.
+%
+%\datacheck % SET DATACHECK by removing the "%" symbol
+%
+% Give all data field names in sequence of occurrence
+% (address list names)
+%
+% Format: \fieldnames{name1, name2, name3, ..., namelast}
+
+\fieldnames{title, firstname, lastname, company, address, city,
+ state, zipcode, phone, amount}
+
+% Give file name for document text (letter file that includes
+% the field names for the replaceable text in the document)
+%
+% Format: \documentfilename{filename.filetype}
+
+\documentfilename{mergelet.mdl}
+
+% WARNING!
+% If you want to modify the address label format, then the
+% \addresslabelformat markup MUST come prior to the
+% \datafilename markup.
+%
+% Format: \addresslabelformat{all fields and markup to create label}
+
+\addresslabelformat{\noindent\title\ \firstname\ \lastname\lbr
+ \company\lbr
+ \address\lbr
+ \city, \state\quad\zipcode}
+
+% Now specify where the address data file is located with
+% the \datafilename markup.
+%
+% Format: \datafilename{filename.filetype}
+
+\datafilename{mergelst.mdl}
+
+% PRINTING A MAILING LABEL SHEET
+%
+% You may use the "\maillabelformat{}" markup to change
+% the default label format markup. The default label format
+% prints three inch-high labels across the page which can be
+% copied onto a label sheet with an appropriate copy machine.
+%
+% WARNING!
+% The \maillabelformat{} markup must be placed BEFORE the
+% \printlabels markup to change the system defaults.
+%
+% Select the font setto be used in printing the labels.
+
+\tenpt % prints labels with computer modern ten point
+
+\printlabels % print address label sheet for Xerox label sheet
+
+% Labels will be printed beginning on page 99.
+%
+% WARNING!
+% If you have an empty data field occurs in the data being
+% processed within the \addresslabelformat, the field will
+% be printed as a blank space or as a blank line if the
+% field is by itself on the line.
+
diff --git a/macros/text1/pc/models/paper.inp b/macros/text1/pc/models/paper.inp
new file mode 100644
index 0000000000..b0baec1743
--- /dev/null
+++ b/macros/text1/pc/models/paper.inp
@@ -0,0 +1,10 @@
+% Student Paper Layout -- Monospace
+\footnoteformat{\everyfootnote{\rm\pin{.5in}\psk{1\bl}
+ \frenchspacing\singlespace}
+}
+\bibliographyformat{\bibentryformat{\goodbreak\vs{1\bl}
+ \frenchspacing\singlespace\hp\nin}
+ \titleformat{\np\cl{\us\bibtitle}
+ \vs{\bl}
+ }
+}
diff --git a/macros/text1/pc/models/paper.mdl b/macros/text1/pc/models/paper.mdl
new file mode 100644
index 0000000000..1ebf653335
--- /dev/null
+++ b/macros/text1/pc/models/paper.mdl
@@ -0,0 +1,28 @@
+% Student Paper Layout
+% Last updated on = 10/16/86
+\monospace
+\doublespace
+\input paper.inp % get paper format
+% Cover Page
+ \vsk{1in plus 2fil minus 1in} % space at top of page
+ \centerlinesbegin % all lines centered on cover page
+ \frenchspacing % no double spaces after periods on cover page
+%%%% insert title (using one or more lines) between dashed lines
+%--------------------------------------------------------------------
+%--------------------------------------------------------------------
+\vs{2in} % space between title and author
+%%%% insert author(s) (using one or more lines) between dashed lines
+%--------------------------------------------------------------------
+%--------------------------------------------------------------------
+\vs{2in} % space between author and course
+%%%% insert course (using one or more lines) between dashed lines
+%--------------------------------------------------------------------
+%--------------------------------------------------------------------
+\vs{.5in} % space between course and date
+%%%% Date follows; \today = current date or type over with desired date
+\today
+ \centerlinesend
+ \vs{2in plus 1 fil minus 1in} %space at bottom of page
+ \newpage %end of title page
+ \setpagenumber{1}\titlepage %no page number on first page of text
+%%%% BEGINNING OF PAPER
diff --git a/macros/text1/pc/models/resume.inp b/macros/text1/pc/models/resume.inp
new file mode 100644
index 0000000000..5370817b18
--- /dev/null
+++ b/macros/text1/pc/models/resume.inp
@@ -0,0 +1,62 @@
+%
+\catcode`*=11
+\if*msp
+\pageformat{\pagelength{11in}
+ \pagewidth{8.5in} % 792pt = 11in; 612pt = 8.5in
+ \topmargin{1in}
+ \bottommargin{1.2in} % 58pt = .8in; 72pt = 1in
+ \leftmargin{1.2in}
+ \rightmargin{1in} % 86pt = 1.2in
+ \bindingadjust{0pt}
+}
+\titlepageformat{\titleleadskip{.15in}
+ \titlefootline{}
+}
+\paragraphskip{1\bl} \paragraphindent{0pt}
+\def\name#1{\par\hfill#1\hfill\gdef\headname{#1}}
+\name{}
+\runningheadformat{\bothpages{\line{
+ \lft{\headname}\ctr{{\it Curriculum Vitae}}
+ \rt{\bd\pagenumber}} \vs{\bl}}
+ }
+\runningfootformat{\bothpages{
+ \vs{\bl}\line{\lft{}\ctr{}\rt{\today}}}
+ }
+% Defaults for the \label markup
+\labelformat{\skipbefore{1\bl}
+ \labelwidth{72pt}
+ \gutter{28pt}
+ \everylabel{\defaultmono\bd}
+ }
+%
+\else
+\pageformat{\pagelength{792pt}
+ \pagewidth{612pt} % 792pt = 11in; 612pt = 8.5in
+ \topmargin{68pt}
+ \bottommargin{52pt} % 58pt = .8in; 72pt = 1in
+ \leftmargin{72pt}
+ \rightmargin{74pt} % 86pt = 1.2in
+}
+\titlepageformat{\titleleadskip{.15in}
+ \titlefootline{}
+}
+\paragraphskip{6pt} \paragraphindent{0pt}
+\def\name#1{\par\hfill#1\hfill\gdef\headname{#1}}
+\name{}
+\runningheadformat{\bothpages{
+ \line{\lft{\headname}\ctr{\it Curriculum Vitae}
+ \rt{\bd\pagenumber}} \vs{\bl}}
+ }
+\runningfootformat{\bothpages{
+ \vs{\bl}\line{\lft{}\ctr{}\rt{\today}}}
+ }
+% Defaults for the \label markup
+\labelformat{\skipbefore{1\bl}
+ \labelwidth{72pt}
+ \gutter{28pt}
+ \everylabel{\bd}
+ }
+\fi
+%
+\catcode`*=12
+%
diff --git a/macros/text1/pc/models/resume.mdl b/macros/text1/pc/models/resume.mdl
new file mode 100644
index 0000000000..ce5e0e1bcf
--- /dev/null
+++ b/macros/text1/pc/models/resume.mdl
@@ -0,0 +1,69 @@
+% Functional style; titled, justified resume
+%
+%********************* ***RESUME TEXMODEL*** **************************
+%* This TEXMODEL shows a sample resume. To get a copy of this sample, *
+%* simply run this file through TeX as it is. *
+%* When entering your own resume be sure to replace or delete all *
+%* sample text. DO NOT use this model on a printer that only can *
+%* print with \monospace. *
+%************************************************************************
+% RESUME START
+\input resume.inp
+\cl{\bd RESUME}
+\par
+\name{Orville T. Game}
+\cl{\it 9987 NE Oak St., Arbor Bay, CK 58924}
+\vs{1\bl}
+\label{Objective}
+Seeking position with manufacturing firm which will provide
+oportunity for advancement into personel-related position.
+\label{Education}
+\it Doctor of Hagiology, \rm Medical subterfuge\rt{1983.}\lbr
+Beasley College of Performing Arts, Pullman, CA
+
+\label{ }Completed courses in economic manipulation,
+John\-ny Carson analysis, and unpadded scrimmage.
+Special courses in radar sabotage, misspelling, and
+stream of consciousness reporting of news.
+Completed graduate courses in anthropology, anthrometry, anthrosophy,
+anthromorphism, and camp counselling.
+Committee: Michael Farnberger, Casper Weinberger, Bill Cheeseburger,
+and Warren Burgher.
+GPA: 1.75. 40\%\ financed by drug sales; 60\%\ by gambling.
+
+\label{}\it Master of Arts, \rm Philosophy\rt{1983.}\lbr
+University of Idaho, Moscow, ID
+
+\label{}Completed courses in philosophy, filo-making, fillerupedness,
+filling station technology, and filler.
+Completed graduate courses in philosophy, philology,
+philo\-lo\-gram\-matry, phylogeny, filliness, and phil\-i\-stines.
+Special Committee: Phil Marquette, Phillip Petroleum, Philo Bellows,
+and Phyllus Diller.
+GPA: 0.63. 50\%\ financed by bribes, 50\%\ by unpaid loans.
+\label{Related Experience}
+\it Consultant, \rm Computing Service Center\rt{1985-}\lbr
+Washington State University, Pullman, WA 99164-1220
+\par
+\label{}Direct acquisition of antique typesetting machinery and old
+metal sculptings for garden area.
+In charge of coffee for management.
+Qualified to exterminate bugs in really awkward and tiresome
+programs.
+Training to collect and recycle aluminum cans for distribution
+to East coast distilleries.
+\label{Other Experience}
+\it Research Associate-Biowarfare, \rm Mars Institute\rt{1984-}\lbr
+P.O. Box 9, Pullman, WA 99163
+\par
+\label{}Participate in studies on neutralizing liberal demo\-crats with
+nuclear warheads (low radiation, high neutron count).
+Analyze patterns of ideological disarray for potential weakness.
+Write articles on normative aspects of unethical behavior.
+Keep memoirs of same for distribution to publishers.
+\label{Awards}
+ Special award for boot-licking, 1982.
+Outstanding Stand Out, 1983.
+\label{Activities}
+ Drama Club, 1980--82; Alpha Kappa Kappa Fraternity
+\label{References} On request.
diff --git a/macros/text1/pc/models/thesis.inp b/macros/text1/pc/models/thesis.inp
new file mode 100644
index 0000000000..2dfd40e5c0
--- /dev/null
+++ b/macros/text1/pc/models/thesis.inp
@@ -0,0 +1,159 @@
+% WSU graduate school thesis requirements.
+\paragraphindent{36pt}
+\paragraphskip{12pt plus 2pt minus 1pt}
+\raggedbottom
+%
+%
+\catcode`*=11
+\if*msp
+\pageformat{\pagelength{11in}
+ \pagewidth{8.5in}
+ \topmargin{1.2in}
+ \bottommargin{1.2in}
+ \leftmargin{1.2in}
+ \rightmargin{1in}
+ \bindingadjust{0in}
+}
+\titlepageformat{\titleleadskip{1.25in}
+ \titlefootline{}
+}
+% Default values for the \chapter markup
+\chapterformat{\numberingstyle{1}
+ \titleformat{\dumpinsertseject
+ \centerline{\bd Chapter \chapternumber}
+ \centerline{\bd\chaptertitle}
+ \vs{1\bl}
+ \setsubheadanumber{0}
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end chapter format
+% Default values for the \subheada markup
+\subheadaformat{\numberingstyle{1}
+ \titleformat{\removelastskip\goodbreak\vs{2\bl}
+ \twelvept\bd\nin\subheadatitle\par\nobreak
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end subheadaformat markup
+% Default values for the \subheadb markup
+\subheadbformat{\numberingstyle{1}
+ \titleformat{\removelastskip\goodbreak\vs{2\bl}
+ \twelvept\it\nin\subheadbtitle\par\nobreak
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end subheadbformat markup
+% Default values for the \preface markup
+\prefaceformat{%
+ \titleformat{\dumpinsertseject
+ \centerline{\bd\prefacetitle}
+ \vs{1\bl}
+ \setsubheadanumber{0}
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}
+\paragraphskip{12pt}
+\asisformat{\skipbefore{0pt}
+ \everyasis{\rm\ssp\leftindent{36pt}}
+ \skipafter{0pt}}
+%
+\blockquoteformat{\skipbefore{0pt}
+ \everyblockquote{\rm\ssp\pin{.3in}\psk{12pt}
+ \leftindent{36pt} \rightindent{36pt}}
+ \skipafter{0pt}}
+%
+\else
+\pageformat{\pagelength{11in}
+ \pagewidth{8.5in}
+ \topmargin{1.2in}
+ \bottommargin{1in}
+ \leftmargin{1.3in}
+ \rightmargin{1in}
+ \bindingadjust{0in}
+}
+\titlepageformat{\titleleadskip{1.25in}
+ \titlefootline{}
+}
+% Default values for the \subheada markup
+\subheadaformat{\numberingstyle{1}
+ \titleformat{\removelastskip\goodbreak\vs{2\bl}
+ \twelvept\bd\nin\subheadatitle\par\nobreak
+ \setsubheadbnumber{0}
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end subheadaformat markup
+% Default values for the \subheadb markup
+\subheadbformat{\numberingstyle{1}
+ \titleformat{\removelastskip\goodbreak\vs{2\bl}
+ \twelvept\it\nin\subheadbtitle\par\nobreak
+ \setsubheadcnumber{0}
+ \setsubheaddnumber{0}
+ }% end titleformat
+ \incontents{yes}
+}% end subheadbformat markup
+\asisformat{\skipbefore{0pt}
+ \everyasis{\tenpt\ssp\leftindent{36pt}}
+ \skipafter{0pt}}
+%
+\blockquoteformat{\skipbefore{0pt}
+ \everyblockquote{\rm\ssp\pin{24pt}\psk{6pt}
+ \leftindent{36pt} \rightindent{36pt}}
+ \skipafter{0pt}}
+%
+\footnoteformat{\footnotedivider{144pt} % 144pt = 2in
+ \skipafterdivider{2.6pt}
+ \textreferenceposition{up}
+ \textreferenceplacement{after}
+ \textreferencefont{\tenpt}
+ \textreferencestyle{1}
+ \notereferenceposition{down}
+ \notereferencefont{\tenpt}
+ \notereferencestyle{1.}
+ \notereferencegutter{1em}
+ \everyfootnote{\tenpt\ssp\pin{12pt}\psk{6pt}\lin{6pt}}
+}
+%
+\endnoteformat{\skipbefore{4pt}
+ \textreferenceposition{down}
+ \textreferencefont{\rm}
+ \textreferencestyle{[1]}
+ \notereferenceposition{down}
+ \notereferencefont{\rm}
+ \notereferencestyle{1.}
+ \notereferencegutter{1em} % 1em = 12pt in a 12pt font
+ \everyendnote{\rm\pin{12pt}\psk{6pt}\lin{0pt}}
+}
+\fi
+%
+\def\copyrt{\if*msp{}\else
+ {{$\copyright$}}\fi}
+%
+\newcount\P
+\def\signatures#1#2{\par\vs{54pt}\P=#1
+ \ifnum\P>50 \P=50
+ \message{Number of signature lines will be limited to 50}\fi
+ \advance\P by-1
+ \hbox{\hs{3in}\vrule width3in height.4pt}
+ \hbox{\hs{3in}\hbox to 3in{\hfill #2 \hfill}}
+ \vs{36pt}
+ \loop\ifnum\P>0
+ \hbox{\hs{3in}\vrule width 3in height.4pt}
+ \vs{48pt}
+ \advance\P by-1\repeat
+ }%
+%
+\tableofcontentsformat{%
+ \toctitle{\ssp\centerline{\bd Table of Contents}
+ \vs{\bl}}}
+\catcode`*=12
diff --git a/macros/text1/pc/models/thesis.mdl b/macros/text1/pc/models/thesis.mdl
new file mode 100644
index 0000000000..bbfde6b140
--- /dev/null
+++ b/macros/text1/pc/models/thesis.mdl
@@ -0,0 +1,139 @@
+% WSU Graduate School Thesis Requirements
+% Last updated on = 6/15/87
+%********************* ***THESIS TEXMODEL*** **************************
+%* This TEXMODEL shows some sections of a sample thesis. For a printout *
+%* of a sample thesis, simply run this file through TeX as it is. *
+%* When entering your own thesis, be sure to replace or delete all *
+%* sample text. If you are printing your thesis on a monospaced printer,*
+%* the \monospace command must be activated by removing the percent *
+%* sign preceding it. *
+%************************************************************************
+% THESIS START
+
+% ***TITLE PAGE***
+
+%\monospace
+\input thesis.inp
+\justify \singlespace
+\setpagenumber{-1}
+\centerlinesbegin
+\bd
+A PHENOMENOLOGICAL THEORY OF
+\vs{12pt}
+CROSS-CULTURAL AESTHETICS
+\vs{1.25in}
+\rm
+By
+\vs{12pt}
+GEORG MACQUET
+\vs{1.25in}
+A thesis submitted in partial fulfillment of
+the requirements for the degree of
+\vs{12pt}
+MASTER OF ARTS IN ANTHROPOLOGY
+\vs{24pt}
+WASHINGTON STATE UNIVERSITY
+Department of Anthropology
+\vs{12pt}
+December 1986
+\vs{.8in}
+\copyrt Copyright by GEORG MACQUET, 1986
+All Rights Reserved
+\centerlinesend %DO NOT DELETE THIS LINE UNLESS LINE 19 IS DELETED
+% ***COPYRIGHT PAGE***
+\np
+\titlepage
+\vsk{7in}
+\centerlinesbegin
+\copyrt Copyright by GEORG MACQUET, 1986
+All Rights Reserved
+\centerlinesend %DO NOT DELETE THIS LINE UNLESS LINE 47 IS DELETED
+% ***SIGNATURE PAGE***
+\newpage
+\setpagenumber{-2}
+\rightragged
+\vsk{2.8in}
+\doublespace
+\nin To the Faculty of Washington State University:
+\par
+The members of the Committee appointed to examine the thesis of
+GEORG MACQUET find it satisfactory and recommend that it be
+accepted.
+%
+%******************************************************************
+%* The \signatures command draws the number of lines specified *
+%* in the first parameter for the committee members' signatures. *
+%* The first parameter may be any number, but if it is larger *
+%* than 5, spacing must be changed to make it fit on one page. *
+%* The second parameter of the \signatures command will be *
+%* centered as a title under the first line. *
+%******************************************************************
+%
+\singlespace
+\signatures{4}{Chairperson}
+\doublespace
+% ***ACKNOWLEDGE***
+\newpage
+\justify
+\preface{Acknowledgements}
+I would like to thank Clarke Moustakos and Helen Burdeman
+for their help in advising me to study Anthropology at ...
+% ***ABSTRACT PAGE***
+\newpage
+\vsk{.6in}
+\centerlinesbegin
+\bd
+A PHENOMENOLOGICAL THEORY OF
+\bd
+CROSS-CULTURAL AESTHETICS
+\rm
+ABSTRACT
+\putincontents1{\nin Abstract\leader\pagenumber}
+\vs{12pt}
+\singlespace
+by Georg Macquet, M.A.
+Washington State University
+December 1986
+\centerlinesend %DO NOT DELETE THIS LINE UNLESS LINE 84 IS DELETED
+\doublespace
+\noindent Chairperson: V.~L.~Nabokov
+\par
+Aesthetic phenomena can be defined from an anthropological perspective.
+Anthropology is empirical; therefore, aesthetic phenomena must also be
+defined empirically to be identified by the techniques of...
+\par
+%********************** MAIN TEXT OF THESIS *************************
+%* This ends the preliminary pages of the thesis and begins the main *
+%* text. The remaining sections of the thesis may be entered using any *
+%* or all standard TeXT1 markup commands, including \autofootnote, *
+%* \bibliography, \autoendnote, \subheada, etc. For more information *
+%* on the standard TeXT1 markup commands see the "TeXT1 Users Guide *
+%* (S-522)," or the "TeXT1 Reference Manual (S-523)." *
+%************************************************************************
+\chapter{Introduction}
+\setpagenumber{1}
+The original perspective of anthropology can contribute to a comprehension of
+art. Observational criteria are needed to identify aesthetic phenomena
+uniquely, and anthropology \el3
+\sha{Art as Product}
+In the past, the arts have been studied primarily as products in anthropology.
+But the product must be created by human beings who behave in certain ways. In
+Merriam's words:
+
+\bqb Through the humanistic elements of his culture, man seems to be making
+pointed commentary on how he lives; his social life in itself seems to bring
+about conditions under which he is unable to restrain himself from commenting
+upon himself\el3
+\bqe
+
+\sha{Styles of Representation}
+Representations are images that refer to the visual appearance of a thing.
+Gombrich's theory\afn{wherin a representation is not a symbol} is not
+appropriate in this context. Indeed, A.P. Meriam (1971)\aen{This is the only
+edition with the full analysis of semantic theories applied to oriental
+cultures.} states that\el3
+\newpage
+\cl{\bd Notes}
+\printendnotes
+\toc{-5}
+\bye
diff --git a/macros/text1/pc/readme.tex b/macros/text1/pc/readme.tex
new file mode 100644
index 0000000000..53922654ce
--- /dev/null
+++ b/macros/text1/pc/readme.tex
@@ -0,0 +1,38 @@
+The files in this directory are specifically for PCs. In the [.fonts] directory
+are the fonts not included with standard TeX but which are used in TEXT1. Down
+load these PK files in binary.
+
+ cd [anonymous.text1.pc.fonts]
+ bin
+ mget *.pk
+
+You will also need to get the TFM files in the [anonymous.text1.fonts]
+directory to go with these PK files.
+
+ cd [anonymous.text1.fonts]
+ bin
+ mget *.tfm
+
+In addition to the fonts, you will need to get the TEX files in the
+[anonymous.text1.macros] directory.
+
+ cd [anonymous.text1.macros]
+ mget *.tex
+
+These should be placed in the TeX input path on your PC.
+And then modify the TXT1*.TEX file so that near the top of the file it says
+"true" that this is for a PC.
+
+Next get the font sets
+
+ cd [anonymous.text1.pc.misc]
+ mget *.*
+
+they go in your TeX input path on the PC.
+
+Finally, you may optionally retrieve the models and blocks for a PC:
+
+ cd [anonymous.text1.pc.models]
+ mget *.*
+ cd [anonymous.text1.pc.blocks]
+ mget *.*