%! version 2.10
/!linewidth 1 def
/!line 780 def
/!blank 0 def
/!printit /widthshow def
/!nor /Times-Roman def
/!it /Times-Italic def
/!bld /Times-Bold def
/!bi /Times-BoldItalic def
/!make {/!altrestore !nor def !nor findfont !fs scalefont setfont} def
/!normal {!printit cvx exec /!altrestore !nor def !nor findfont !fs scalefont setfont !blank 0 32} def
/!italics {!printit cvx exec /!altrestore !it def !it findfont !fs scalefont setfont !blank 0 32} def
/!bold {!printit cvx exec /!altrestore !bld def !bld findfont !fs scalefont setfont !blank 0 32} def
/!bolditalics {!printit cvx exec /!altrestore !bi def !bi findfont !fs scalefont setfont !blank 0 32} def
/!underline {!printit cvx exec currentpoint 2 sub !printit /widthshow ne {3 -1 roll} if !blank 0 32} def
/!stopunder {!printit cvx exec !printit /widthshow eq {currentpoint 2 sub 4 2 roll moveto lineto 0.5 setlinewidth currentpoint 2 add stroke !linewidth setlinewidth moveto} {3 1 roll pop pop} ifelse !blank 0 32} def
/!alt {!printit cvx exec /Symbol findfont !fs scalefont setfont !blank 0 32} def
/!altnormal {!printit cvx exec !altrestore findfont !fs scalefont setfont !blank 0 32} def
/!Times {/!fs exch def /!nor /Times-Roman def /!it /Times-Italic def /!bld /Times-Bold def /!bi /Times-BoldItalic def !make} def
/!Helvetica {/!fs exch def /!nor /Helvetica def /!it /Helvetica-Oblique def /!bld /Helvetica-Bold def /!bi /Helvetica-BoldOblique def !make} def
/!Palatino {/!fs exch def /!nor /Palatino-Roman def /!it /Palatino-Italic def /!bld /Palatino-Bold def /!bi /Palatino-BoldItalic def !make} def
/!Schoolbook {/!fs exch def /!nor /NewCenturySchlbk-Roman def /!it /NewCenturySchlbk-Italic def /!bld /NewCenturySchlbk-Bold def /!bi /NewCenturySchlbk-BoldItalic def !make} def
/!Gothic {/!fs exch def /!nor /AvantGarde-Book def /!it /AvantGarde-BookOblique def /!bld /AvantGarde-Demi def /!bi /AvantGarde-DemiOblique def !make} def
/!Zapf {/!fs exch def /!nor /ZapfChancery-MediumItalic def /!bld /ZapfDingbats def !make} def
/!Courier {/!fs exch def /!nor /Courier def /!it /Courier-Oblique def /!bld /Courier-Bold def /!bi /Courier-BoldOblique def !make} def
/!Symbol {/!fs exch def /!nor /Symbol def !make} def
/!startss {3 div 5 1 roll widthshow currentpoint 3 -1 roll 0 exch rmoveto !blank 0 32} def
/!endss {3 div 6 2 roll widthshow exch 1 eq {0 exch rmoveto pop pop} {pop moveto} ifelse !blank 0 32} def
/!crnolf {!line moveto 0 0 0} def
/!downonehalf {2 idiv !line exch sub /!line exch def} def
/!downss {!line exch sub /!line exch def} def
/!tab {!printit /widthshow eq {5 1 roll show pop pop pop !line moveto !blank 0 32} {clear 0 0 0 0} ifelse} def
/!backup {!printit /widthshow eq {5 1 roll widthshow !fs mul 11 div 0 rmoveto} {6 1 roll stringwidth pop 6 1 roll pop pop pop exch !fs mul 11 div add add} ifelse !blank 0 32} def
/!measure (stringwidth pop 5 1 roll pop pop pop add) def
/!endpage {1 eq {showpage} if /!line 780 def} def
/!endfile {statusdict /manualfeed false put} def
/!single_feed {statusdict /manualfeed true put} def
