V10/vol2/monk/samples/tmcs.ps

%!PS
%%Version: 3.1
%%DocumentFonts: (atend)
%%Pages: (atend)
%%EndComments
%
% Version 3.2 prologue for troff files.
%

/#copies 1 store
/aspectratio 1 def
/formsperpage 1 def
/landscape false def
/linewidth .3 def
/magnification 1 def
/margin 0 def
/orientation 0 def
/resolution 720 def
/xoffset 0 def
/yoffset 0 def

/roundpage true def
/useclippath true def
/pagebbox [0 0 612 792] def

/R  /Times-Roman def
/I  /Times-Italic def
/B  /Times-Bold def
/BI /Times-BoldItalic def
/H  /Helvetica def
/HI /Helvetica-Oblique def
/HB /Helvetica-Bold def
/HX /Helvetica-BoldOblique def
/CW /Courier def
/CO /Courier def
/CI /Courier-Oblique def
/CB /Courier-Bold def
/CX /Courier-BoldOblique def
/PA /Palatino-Roman def
/PI /Palatino-Italic def
/PB /Palatino-Bold def
/PX /Palatino-BoldItalic def
/Hr /Helvetica-Narrow def
/Hi /Helvetica-Narrow-Oblique def
/Hb /Helvetica-Narrow-Bold def
/Hx /Helvetica-Narrow-BoldOblique def
/KR /Bookman-Light def
/KI /Bookman-LightItalic def
/KB /Bookman-Demi def
/KX /Bookman-DemiItalic def
/AR /AvantGarde-Book def
/AI /AvantGarde-BookOblique def
/AB /AvantGarde-Demi def
/AX /AvantGarde-DemiOblique def
/NR /NewCenturySchlbk-Roman def
/NI /NewCenturySchlbk-Italic def
/NB /NewCenturySchlbk-Bold def
/NX /NewCenturySchlbk-BoldItalic def
/ZD /ZapfDingbats def
/ZI /ZapfChancery-MediumItalic def
/VR /Varitimes#Roman def
/VI /Varitimes#Italic def
/VB /Varitimes#Bold def
/VX /Varitimes#BoldItalic def
/S  /S def
/S1 /S1 def
/GR /Symbol def
/Bitmap /Bitmap def
/Sonata /Sonata def
/UnivMath1 /Universal-MathOne def
/UnivMath2 /Universal-MathTwo def
/UnivMath3 /Universal-MathThree def
/UnivMath4 /Universal-MathFour def
/UnivMath5 /Universal-MathFive def
/UnivMath6 /Universal-MathSix def

/inch {72 mul} bind def
/min {2 copy gt {exch} if pop} bind def

/setup {
	counttomark 2 idiv {def} repeat pop

	landscape {/orientation 90 orientation add def} if
	/scaling 72 resolution div def
	linewidth setlinewidth
	1 setlinecap

	pagedimensions
	xcenter ycenter translate
	orientation neg rotate
	width 2 div neg height 2 div translate
	xoffset inch yoffset inch neg translate
	margin 2 div dup neg translate
	magnification dup aspectratio mul scale
	scaling scaling scale

	/Symbol /S Sdefs cf
	/Times-Roman /S1 S1defs cf
	0 0 moveto
} def

/pagedimensions {
	useclippath userdict /gotpagebbox known not and {
		/pagebbox [clippath pathbbox newpath] def
		roundpage currentdict /roundpagebbox known and {roundpagebbox} if
	} if
	pagebbox aload pop
	4 -1 roll exch 4 1 roll 4 copy
	landscape {4 2 roll} if
	sub /width exch def
	sub /height exch def
	add 2 div /xcenter exch def
	add 2 div /ycenter exch def
	userdict /gotpagebbox true put
} def

/pagesetup {
	/page exch def
	currentdict /pagedict known currentdict page known and {
		page load pagedict exch get cvx exec
	} if
} def

/decodingdefs [
	{counttomark 2 idiv {y moveto show} repeat}
	{neg /y exch def counttomark 2 idiv {y moveto show} repeat}
	{neg moveto {2 index stringwidth pop sub exch div 0 32 4 -1 roll widthshow} repeat}
	{neg moveto {spacewidth sub 0.0 32 4 -1 roll widthshow} repeat}
	{counttomark 2 idiv {y moveto show} repeat}
	{neg setfunnytext}
] def

/setdecoding {/t decodingdefs 3 -1 roll get bind def} bind def

/w {neg moveto show} bind def
/m {neg dup /y exch def moveto} bind def
/done {/lastpage where {pop lastpage} if} def

/f {
	dup /font exch def findfont exch
	dup /ptsize exch def scaling div dup /size exch def scalefont setfont
	linewidth ptsize mul scaling 10 mul div setlinewidth
	/spacewidth ( ) stringwidth pop def
} bind def

/changefont {
	/fontheight exch def
	/fontslant exch def
	currentfont [
		1 0
		fontheight ptsize div fontslant sin mul fontslant cos div
		fontheight ptsize div
		0 0
	] makefont setfont
} bind def

/sf {f} bind def

/cf {
	dup length 2 idiv
	/entries exch def
	/chtab exch def
	/newfont exch def

	findfont dup length 1 add dict
	/newdict exch def
	{1 index /FID ne {newdict 3 1 roll put} {pop pop} ifelse} forall

	newdict /Metrics entries dict put
	newdict /Metrics get
	begin
		chtab aload pop
		1 1 entries {pop def} for
		newfont newdict definefont pop
	end
} bind def

%
% A few arrays used to adjust reference points and character widths in some
% of the printer resident fonts. If square roots are too high try changing
% the lines describing /radical and /radicalex to,
%
%	/radical	[0 -75 550 0]
%	/radicalex	[-50 -75 500 0]
%

/Sdefs [
	/bracketlefttp		[201 500]
	/bracketleftbt		[201 500]
	/bracketrighttp		[-81 380]
	/bracketrightbt		[-83 380]
	/bracketrightex		[220 -125 500 0]
	/radical		[0 0 550 0]
	/radicalex		[-50 0 500 0]
	/parenleftex		[-20 -170 0 0]
	/integral		[100 -50 500 0]
	/infinity		[10 -75 730 0]
] def

/S1defs [
	/underscore		[0 80 500 0]
	/endash			[7 90 650 0]
] def
%
% Tries to round clipping path dimensions, as stored in array pagebbox, so they
% match one of the known sizes in the papersizes array. Lower left coordinates
% are always set to 0.
%

/roundpagebbox {
    7 dict begin
	/papersizes [8.5 inch 11 inch 14 inch 17 inch] def

	/mappapersize {
		/val exch def
		/slop .5 inch def
		/diff slop def
		/j 0 def
		0 1 papersizes length 1 sub {
			/i exch def
			papersizes i get val sub abs
			dup diff le {/diff exch def /j i def} {pop} ifelse
		} for
		diff slop lt {papersizes j get} {val} ifelse
	} def

	pagebbox 0 0 put
	pagebbox 1 0 put
	pagebbox dup 2 get mappapersize 2 exch put
	pagebbox dup 3 get mappapersize 3 exch put
    end
} bind def

%%EndProlog
%%BeginSetup
mark
/resolution 720 def
setup
2 setdecoding
%%EndSetup
%%Page: 3 1
/saveobj save def
mark
1 pagesetup
16 HB f
( Cover Sheet)2 999( Document)1 2600(AT&T Bell Laboratories)2 1801 3 216 324 t
(for Technical Memorandum)2 2114 1 3502 504 t
24 S1 f
(_____________________________________________)216 624 w
10 HB f
( Date:)1 283(Title: Author's)1 4610 2 216 744 t
10 H f
(Typing Documents on the UNIX System: Using Monk 0.3)8 2566 1 576 744 t
(December 10, 1985)2 892 1 4536 864 t
24 S1 f
(_____________________________________________)216 912 w
10 HB f
( Dept.)1 966( Ext.)1 667(Authors Location)1 2541 3 1296 1032 t
10 H f
( 11229)1 870( x5772)1 693( 2C-578)1 362( MH)1 2651(S. L. Murrel)2 528 5 360 1152 t
( 11229)1 870( x2771)1 693( 2C-568)1 362( MH)1 2551(T. J. Kowalski)2 628 5 360 1272 t
24 S1 f
(_____________________________________________)216 1320 w
10 HB f
( Nos.)1 250( Project)1 1170( Case Nos.)2 523( Filing)1 1328(Document Nos.)1 739 5 864 1440 t
10 H f
( 311401-2299)1 1933(11229-851210-11TMS 25952)1 2224 2 792 1560 t
( 311401-2199)1 1933(11229-851210-11TMS 25952)1 2224 2 792 1680 t
24 S1 f
(_____________________________________________)216 1728 w
10 HB f
(Keywords:)216 1848 w
10 H f
(Word Processing, Text Processing, Formatting)4 2093 1 360 2040 t
24 S1 f
(_____________________________________________)216 2088 w
10 HB f
(MERCURY Announcement Bulletin Sections:)3 2150 1 216 2208 t
8 H f
( - Electronics)2 471( ELC)1 952(CMP - Computing)2 645 3 864 2400 t
24 S1 f
(_____________________________________________)216 2448 w
10 HB f
(Abstract:)216 2568 w
24 S1 f
(_____________________________________________)216 6870 w
8 HB f
(Total Pages)1 455 1 216 6990 t
8 H f
(\(including document cover sheet\):)3 1217 1 697 6990 t
10 H f
(4)1947 6990 w
10 HB f
(AT&T \320 PROPRIETARY)2 1155 1 879 7230 t
10 H f
(Use pursuant to Company Instructions)4 1727 1 576 7350 t
10 HB f
(Mailing Label)1 640 1 3996 7014 t
10 HI f
(Monk)360 2808 w
10 H f
(is a text-formatting program that produces high-quality printed text.)8 2997 1 638 2808 t
cleartomark
showpage
saveobj restore
%%EndPage: 3 1
%%Trailer
done
%%Pages: 1