blob: 37b686a76f5c44dc4e5510f4b32e0f90112cbfab (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
%%%%%%%%%%
% ***** CYRMEMO.DEF ***** 11 Aug 85, bb
%
% This file contains the instructions necessary to produce the memos
% which describe the use of the AMS cyrillic font. PLAIN is presumed
% to be preloaded. The cyrillic 10-point font is required, as is
% the file CYRACC.DEF.
\newfam\cyrfam
\font\tencyr=mcyr10
\font\tensmc=amcsc10 \def\smc{\tensmc}
\input cyracc.def
\def\cyr{\tencyr\cyracc}
\newif\iffirstpage
\firstpagetrue
\newdimen\pagelgt
\pagelgt=9in
\newbox\letterhead
\setbox\letterhead=\vbox{\vskip 1pc
\vbox to 0pt{\halign{\hss{#}\hss\cr
\bf American Mathematical Society\cr
P.\thinspace O.~Box 6248\cr
Providence, RI 02940\cr}\vss}}
\vsize=\pagelgt
\advance\vsize by-\ht\letterhead
\headline={\iffirstpage \centerline{\bf INTEROFFICE MEMORANDUM}\else
\line{\ssub \hfil \rdate\quad Page \folio}\fi}
\footline={\iffirstpage \rightline{\box\letterhead}\global\vsize=\pagelgt
\global\firstpagefalse \fi}
\def \topitem#1#2{\leavevmode \hangindent 5pc \hbox to 5pc{\bf #1\hss}#2\par }
\def \toname #1<{\gdef\mto{\topitem{To:}{#1}}}
\def \fromname #1<{\gdef\mfrom{\topitem{From:}{#1}}}
\def \longsub #1<{\gdef\lsub{\topitem{Subject:}{#1}}}
\def \shortsub #1<{\gdef\ssub{#1}}
\def \date #1<{\gdef\mdate{\topitem{\bf Date:}{#1}}
\gdef\rdate{#1}}
\def \topinfo{{\parindent=0pt
\parskip=.5\baselineskip
\def \\{\hfil\break }
\mdate
\mto
\mfrom
\lsub
\vskip\baselineskip }}
% octal 214 removed jmcosu
% Support verbatim listing of TeX source, as defined in TeXbook, p. 421
% lifted from MANMAC.TEX, and modified slightly as for TUGboat
\chardef\other=12
\def\ttverbatim{\begingroup
\catcode`\\=\other \catcode`\{=\other
\catcode`\}=\other \catcode`\$=\other \catcode`\&=\other
\catcode`\#=\other \catcode`\%=\other \catcode`\~=\other
\catcode`\_=\other \catcode`\^=\other
\obeyspaces \obeylines \tt}
\newdimen\ttrightskip
\ttrightskip=5pc
\outer\def\begintt{$$\let\par=\endgraf \ttverbatim \parskip=\z@
\catcode`\|=0 \rightskip=-\ttrightskip \ttfinish}
{\catcode`\|=0 |catcode`|\=\other % | is temporary escape character
|obeylines % end of line is active
|gdef|ttfinish#1^^M#2\endtt{#1|vbox{#2}|endgroup$$}}
\catcode`\|=\active
{\obeylines \gdef|{\ttverbatim \spaceskip\ttglue \let^^M=\ \let|=\endgroup}}
\newskip\ttglue
{\tentt \global\ttglue=.5em plus .25em minus .15em}
% this should be installed in each font
|