-%!PS-Adobe-1.0
-%%Creator: Toto:mar (Mark A. Rosenstein,,E40-338M,31530,7822001)
-%%Title: stdin (ditroff)
-%%CreationDate: Tue Jun 16 22:15:23 1992
-%%EndComments
-% Start of psdit.pro -- prolog for ditroff translator
-% Copyright (c) 1985,1987 Adobe Systems Incorporated. All Rights Reserved.
-% GOVERNMENT END USERS: See Notice file in TranScript library directory
-% -- probably /usr/lib/ps/Notice
-% RCS: $Header$
-/$DITroff 140 dict def $DITroff begin
-/fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def
-/xi {0 72 11 mul translate 72 resolution div dup neg scale 0 0 moveto
- /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def F
- /pagesave save def}def
-/PB{save /psv exch def currentpoint translate
- resolution 72 div dup neg scale 0 0 moveto}def
-/PE{psv restore}def
-/m1 matrix def /m2 matrix def /m3 matrix def /oldmat matrix def
-/tan{dup sin exch cos div}bind def
-/point{resolution 72 div mul}bind def
-/dround {transform round exch round exch itransform}bind def
-/xT{/devname exch def}def
-/xr{/mh exch def /my exch def /resolution exch def}def
-/xp{}def
-/xs{docsave restore end}def
-/xt{}def
-/xf{/fontname exch def /slotno exch def fontnames slotno get fontname eq not
- {fonts slotno fontname findfont put fontnames slotno fontname put}if}def
-/xH{/fontheight exch def F}bind def
-/xS{/fontslant exch def F}bind def
-/s{/fontsize exch def /fontheight fontsize def F}bind def
-/f{/fontnum exch def F}bind def
-/F{fontheight 0 le {/fontheight fontsize def}if
- fonts fontnum get fontsize point 0 0 fontheight point neg 0 0 m1 astore
- fontslant 0 ne{1 0 fontslant tan 1 0 0 m2 astore m3 concatmatrix}if
- makefont setfont .04 fontsize point mul 0 dround pop setlinewidth}bind def
-/X{exch currentpoint exch pop moveto show}bind def
-/N{3 1 roll moveto show}bind def
-/Y{exch currentpoint pop exch moveto show}bind def
-/S /show load def
-/ditpush{}def/ditpop{}def
-/AX{3 -1 roll currentpoint exch pop moveto 0 exch ashow}bind def
-/AN{4 2 roll moveto 0 exch ashow}bind def
-/AY{3 -1 roll currentpoint pop exch moveto 0 exch ashow}bind def
-/AS{0 exch ashow}bind def
-/MX{currentpoint exch pop moveto}bind def
-/MY{currentpoint pop exch moveto}bind def
-/MXY /moveto load def
-/cb{pop}def % action on unknown char -- nothing for now
-/n{}def/w{}def
-/p{pop showpage pagesave restore /pagesave save def}def
-/abspoint{currentpoint exch pop add exch currentpoint pop add exch}def
-/dstroke{currentpoint stroke moveto}bind def
-/Dl{2 copy gsave rlineto stroke grestore rmoveto}bind def
-/arcellipse{oldmat currentmatrix pop
- currentpoint translate 1 diamv diamh div scale /rad diamh 2 div def
- rad 0 rad -180 180 arc oldmat setmatrix}def
-/Dc{gsave dup /diamv exch def /diamh exch def arcellipse dstroke
- grestore diamh 0 rmoveto}def
-/De{gsave /diamv exch def /diamh exch def arcellipse dstroke
- grestore diamh 0 rmoveto}def
-/Da{currentpoint /by exch def /bx exch def /fy exch def /fx exch def
- /cy exch def /cx exch def /rad cx cx mul cy cy mul add sqrt def
- /ang1 cy neg cx neg atan def /ang2 fy fx atan def cx bx add cy by add
- 2 copy rad ang1 ang2 arcn stroke exch fx add exch fy add moveto}def
-/Barray 200 array def % 200 values in a wiggle
-/D~{mark}def
-/D~~{counttomark Barray exch 0 exch getinterval astore /Bcontrol exch def pop
- /Blen Bcontrol length def Blen 4 ge Blen 2 mod 0 eq and
- {Bcontrol 0 get Bcontrol 1 get abspoint /Ycont exch def /Xcont exch def
- Bcontrol 0 2 copy get 2 mul put Bcontrol 1 2 copy get 2 mul put
- Bcontrol Blen 2 sub 2 copy get 2 mul put
- Bcontrol Blen 1 sub 2 copy get 2 mul put
- /Ybi /Xbi currentpoint 3 1 roll def def 0 2 Blen 4 sub
- {/i exch def
- Bcontrol i get 3 div Bcontrol i 1 add get 3 div
- Bcontrol i get 3 mul Bcontrol i 2 add get add 6 div
- Bcontrol i 1 add get 3 mul Bcontrol i 3 add get add 6 div
- /Xbi Xcont Bcontrol i 2 add get 2 div add def
- /Ybi Ycont Bcontrol i 3 add get 2 div add def
- /Xcont Xcont Bcontrol i 2 add get add def
- /Ycont Ycont Bcontrol i 3 add get add def
- Xbi currentpoint pop sub Ybi currentpoint exch pop sub rcurveto
- }for dstroke}if}def
-end
-/ditstart{$DITroff begin
- /nfonts 60 def % NFONTS makedev/ditroff dependent!
- /fonts[nfonts{0}repeat]def
- /fontnames[nfonts{()}repeat]def
-/docsave save def
-}def
-
-ditstart
-(psc)xT
-576 1 1 xr
-1(Times-Roman)xf 1 f
-2(Times-Italic)xf 2 f
-3(Times-Bold)xf 3 f
-4(Times-BoldItalic)xf 4 f
-5(Helvetica)xf 5 f
-6(Helvetica-Bold)xf 6 f
-7(Courier)xf 7 f
-8(Courier-Bold)xf 8 f
-9(Symbol)xf 9 f
-10 s
-1 f