%!PS-Adobe-2.0 EPSF-1.2%%Title: MMFeg.eps%%Creator: CLARIS EPSF Export Filter V1.0%%CreationDate:3/17/97  10:39:20 p.m.%%BoundingBox: 26 593 334 765                                                                          %%QDBoundingBox: 26.500 27.500 333.513 198.500                                                           %%DocumentFonts: %%DocumentProcessColors: Cyan Magenta Yellow Black%%ObjectsIncluded: tText=T tLine=F tRect=T tRRect=F tOval=F tArc=F tFree=F tPoly=F tBMap=F tNote=F tBez=F tPMap=F %%AttributesIncluded: kBaWPattType=T kPixPattType=F kGradientType=F %%EndComments/MAV 300 dict defMAV begin /useClip true def /top    0 def /left   1 def /bottom 2 def /right  3 def /CM     6 array def /CTM    6 array def /CTMR   6 array def /MTC    6 array def /blimit 1500 def /bcnt   0 def /rbox 8 array def /segbox 8 array def /bbox1 4 array def /c1 3 array def /c2 3 array def /d 3 array def    /delta 3 array def /mycurrentrgbcolor 3 array def /ulx 0 def /uly 1 def /llx 2 def /lly 3 def /urx 4 def /ury 5 def /lrx 6 def /lry 7 def /sp [0 0] def /ep [0 0] def /bbox 4 array def /pbox 4 array def /scrnProc currentscreen 3 1 roll pop pop def/currentcolorscreen where {begincurrentcolorscreenend3 1 roll pop pop 4 2 roll pop pop 5 -2 roll pop pop 6 -2 roll pop pop /kProc exch def /bProc exch def /gProc exch def /rProc exch def } if /Max {2 copy gt {pop}{exch pop} ifelse} bind def/Min {2 copy lt {pop}{exch pop} ifelse} bind def/cellPenW 72.0 /currentcolorscreen where{begin currentcolorscreen end pop pop10 1 roll pop pop 8 1 roll pop pop 6 1 roll pop pop Max Max Max }{currentscreen pop pop} ifelse div 2.0 div def%%BeginProcSet : rect /rect {  /saveobj save def  R PC PF LC SS  saveobj restore } bind def %%EndProcSet %%BeginProcSet : R /R {  newpath pbox astore pop 0 792 translate 1 -1 scale CTMR currentmatrix pop exch translate /objectCord mstore def pbox right get 2 div dup pbox left get exch sub pbox left 3 -1 roll put  dup pbox right 3 -1 roll put pbox bottom get 2 div  dup pbox top get exch sub pbox top 3 -1 roll put dup pbox bottom 3 -1 roll put translate  CTM currentmatrix pop 57.3 mul rotate RT} bind def%%EndProcSet%%BeginProcSet : SaveScreenBW /SaveScreenBW { currentscreen /scrnProc exch def /scrnAngle exch def /scrnFreq exch def } bind def%%EndProcSet%%BeginProcSet : RestoreScreenBW /RestoreScreenBW { scrnFreq scrnAngle MAV /scrnProc get setscreen } bind def%%EndProcSet%%BeginProcSet : SetFreqAngleBW /SetFreqAngleBW { currentscreen 3 1 roll pop pop setscreen } bind def%%EndProcSet%%BeginProcSet : SaveScreenColor  /SaveScreenColor { currentcolorscreen /grayProc exch def /grayAngle exch def /grayFreq exch def /bProc exch def /bAngle exch def /bFreq exch def /gProc exch def /gAngle exch def /gFreq exch def /rProc exch def /rAngle exch def /rFreq exch def } bind def%%EndProcSet%%BeginProcSet : RestoreColorScreen /RestoreColorScreen { rFreq rAngle MAV /rProc get gFreq gAngle MAV /gProc get bFreq bAngle MAV /bProc get grayFreq grayAngle MAV /grayProc get setcolorscreen } bind def%%EndProcSet%%BeginProcSet : SetFreqAngleColor /SetFreqAngleColor {  currentcolorscreen  3 1 roll pop pop 4 2 roll pop pop 5 -2 roll pop pop 6 -2 roll pop pop 4 1 roll  6 1 roll  8 1 roll  10 1 roll  setcolorscreen  } bind def %%EndProcSet /initmsaverestore { userdict begin /mdict 10 dict def mdict begin /mindex -1 def /mstacksize 25 def /mstack mstacksize array def /incmindex { /mindex mindex 1 add def } bind def /decmindex { /mindex mindex 1 sub def } bind def /checkmindex { mindex 0 lt { (%ERROR: msave/mrestore stack underflow: Offending command 'mrestore') print flush stop } { mindex mstacksize ge { (%ERROR: msave/mrestore stack overflow: Offending command 'msave') print flush stop } if } ifelse } bind def /mpush { incmindex checkmindex mstack mindex 3 -1 roll put } bind def /mpop { checkmindex mstack mindex get decmindex } bind def end end } bind def /msave { mdict begin matrix currentmatrix mpush end } bind def /mrestore { mdict begin mpop setmatrix end } bind def /msavelevel { mdict begin mindex 1 add end } bind def /mstore {matrix currentmatrix} bind def/AutoSizeY {0 0 pldup 3 1 roll4 -1 roll  addpl exch popexch sub} bind def/pl {  transform0.25 sub round 0.25 add exch0.25 sub round 0.25 add exchitransform} bind def/pll {transformround exchround exchitransform} bind def/pr { dtransformround exchround exchidtransform} bind def/m { pl  moveto} bind def/l { pl lineto} bind def/c { pl curveto} bind def/rm { pr rmoveto} bind def/rl { pr rlineto} bind def/ar { 5 -2 roll pl5 2 rollarc} bind def/an { 5 -2 roll pl5 2 rollarcn} bind def/MakePatternFont {/FontDict 20 dict defFontDict begin/FontName exch def/Encoding exch def/FontMatrix [1 0 0 1 0 0 ] def/FontType 3 def/FontBBox [ 0 0 1 1 ] def/PatternDict exch def/RenderPattern {patternDict exch getexec} bind def/BuildChar {exch begin1 0 0 0 1 1 setcachedeviceEncoding exch get RenderPatternend} bind defFontName FontDict definefont popend} bind def/SnapToPattenGrid   {   exch   dup 0 lt {      1 index sub   } if   1 index   div truncate   mul} bind def/FillPatternString {dup length1 sub0 1 3 -1 roll {2 index2 index3 -2 rollput} forpop pop} bind def/AutoSizeY {   0.0 exch dtransform   round   idtransform exch pop} bind def /AutoSizeX {   0.0 dtransform   exch   round   exch   idtransform pop} bind def /AutoCellSize {   AutoSizeY   exch   AutoSizeX   exch} bind def/CheckPath {   false   { pop pop pop true exit}   { pop pop pop true exit}   { pop pop pop pop pop pop pop true exit}   { pop true exit}   pathforall} bind def/PatternFill {             %     patternCharacter   /patternString 1 string def   /cm mstore def   patternMatrix setmatrix   1 1 AutoCellSize   dup 0 eq { pop 1} if   exch   dup 0 eq { pop 1} if   exch   /patternSize exch 24.0 mul def   /PatternSizeX exch 24.0 mul patternString length mul def   /flaterror 0 def   patternString FillPatternString   gsave      flaterror 1 add setflat      flattenpath      pathbbox   grestore   psy add flaterror add psy SnapToPattenGrid   exch psx add flaterror add psx SnapToPattenGrid   3 -1 roll flaterror sub psy SnapToPattenGrid   4 -1 roll flaterror sub psx SnapToPattenGrid   4 2 roll pll   4 2 roll pll   /llxsnap exch def   /llysnap exch def   /urxsnap exch def   /urysnap exch def   gsave      useClip true eq {clip}{eoclip} ifelse newpath      /PatternFont findfont [psx 0.0 0.0 psy 0.0 0.0] makefont setfont      llysnap patternSize urysnap {         llxsnap exch moveto         llxsnap PatternSizeX urxsnap {            pop            patternString show            %currentpoint am         } for      } bind for   grestore   cm setmatrix} bind def           %     End 'PatternFill'/DefaultPatternFont {   /cm mstore def   patternMatrix setmatrix   1 1 AutoCellSize   dup 0 eq { pop 1} if   exch   dup 0 eq { pop 1} if   exch   /psy exch iSizeY mul def   /psx exch iSizeX mul def   /patternDict 64 dict def   patternDict begin      /NotDef {} def      /LiteDiagLines {         iSizeX iSizeY false [iSizeX 0.0 0.0 iSizeY -1.0 mul  0.0 iSizeY]         {pat}         imagemask      } bind def   end   /CustEncoding 256 array def   0 255 1 {      CustEncoding exch /NotDef put   } bind for   CustEncoding 65 /LiteDiagLines put   patternDict CustEncoding /PatternFont MakePatternFont   /pathSegProc {      strokepath      CheckPath {         65 PatternFill newpath      } if   } bind def   cm setmatrix} bind def/XRound {   dup   3 -1 roll   exch mul round   exch div} bind def/RoundMatrix {   /i 0 def   dup {      100000.0 XRound      1 index      exch i exch put      /i i 1 add def   } forall} bind def/GetBoxesRatio {3 -1 roll sub7 1 rollexch sub6 1 roll3 -1 roll sub5 1 rollexch sub4 1 roll3 -1 roll div3 1 rollexch divexch} bind def%%BeginProcSet : Text Attributes Procs/T {792 exch sub} bind def/sx 0 def/sy 0 def/ex 0 def/ey 0 def/lw  0 def/siz 0 def/U {gsave 0 setlinecap/lw siz 0.078125 mul def  /ey exch neg def /ex exch def /sy exch neg def /sx exch deffontkind plain eq  {  lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke } {   currentdict /outlineFontSize known outlineFontSize 0 gt and     {       fontkind outline eq         {           /sy sy 0.0119444 siz mul sub def           /ey ey 0.0119444 siz mul sub def           gsave            1 1 1 setrgbcolor lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke           grestore           lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto           strokepath 0.0119444 siz mul setlinewidth stroke         } if       fontkind shadow eq fontkind outlineshadow eq or         {           /sy sy 0.0358332 siz mul sub def           /ey ey 0.0358332 siz mul sub def           lw setlinewidth           lw 2 div sx add sy           lw 2 div sub moveto           lw 2 div ex add ey           lw 2 div sub lineto stroke            gsave           1 1 1 setrgbcolor lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto stroke           grestore           lw siz 0.0119444 mul sub setlinewidth sx sy moveto ex ey lineto           strokepath 0.0119444 siz mul setlinewidth stroke         } if      } if } ifelsegrestore} bind def/plain 1 def/outline 2 def/shadow 3 def/outlineshadow 4 def/fess {   currentdict /outlineFontSize known {      /outlineFontSize 2 index def   } if   findfont exch dup /siz exch def scalefont setfont} bind def/SHDW {gsave siz oldfontname fess siz 0.055 mul x add y siz 0.05 mul sub moveto c show grestore} def/NRML {gsave 1 1 1 setrgbcolor siz oldfontname fess x y moveto c show grestore siz /Outline fess  x y moveto c show} def/S {fontkind plain eq {neg moveto show} iffontkind outline eq {neg /y exch def /x exch def /c exch def NRML} iffontkind shadow eq {neg /y exch def /x exch def /c exch def SHDW NRML} iffontkind outlineshadow eq {neg /y exch def /x exch def /c exch def SHDW NRML} if} bind def/F {/fontkind exch deffontkind plain eq {fess} iffontkind outline eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} iffontkind shadow eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} iffontkind outlineshadow eq {dup /oldfontname exch def exch dup /siz exch def exch OLF} if} bind def/makeoutlinedict 15 dict def/makeoutlinefont {  makeoutlinedict begin   /uniqueid exch def   /strokewidth exch def   /newfontname exch def   /basefontname exch def   FontDirectory basefontname known not {    /basefontname /Times-Roman def   } if   /basefontdict basefontname findfont def   /numentries basefontdict maxlength 1 add def   basefontdict /UniqueID known not   {/numentries numentries 1 add def} if   /outfontdict numentries dict def   basefontdict   {     exch dup /FID ne {exch outfontdict 3 1 roll put} {pop pop} ifelse     }forall   outfontdict /FontName newfontname put   outfontdict /PaintType 2 put   outfontdict /StrokeWidth strokewidth put   outfontdict /UniqueID uniqueid put   newfontname outfontdict definefont pop  end  }def/UID { findfont dup /UniqueID known  {/UniqueID get 1 add}  {pop 1}  ifelse} def/OLF {dup/Outline1000 62 div4 -1 rollUID/outlineFontSize 5 index defmakeoutlinefont/Outline findfont exch scalefont setfont} def/CopyEncoding {findfont/Encoding getdup length array/tarrayz exch deftarrayz 03 -1 rollputintervaltarrayz} bind def/Re-encode {dup length array copy/eap 0 defexch {dup type /integertype eq {/eap exch def} {1 indexexcheap exchput/eap eap 1 add def} ifelse} forall} bind def/EncodeFont {findfont duplength dictbegin{  1 index /FID ne{ def }{ pop pop } ifelse} forall/FontName exch def/Encoding exch defFontName currentdictenddefinefont pop} bind def%%EndProcSet%%BeginProcSet : SR /SR {  pbox left get pbox top get moveto  pbox right get pbox top get lineto  pbox right get pbox bottom get lineto  pbox left get pbox bottom get lineto  closepath} bind def %%EndProcSet /StripFromFront { dup length2 index sub