/StartPage {
save 7 1 roll
neg /RH exch def
/CW exch def
dup dup dup
PDfont.Normal exch scalefont
/NF exch def
PDfont.Bold exch scalefont
/BF exch def
PDfont.Italic exch scalefont
/IF exch def
PDfont.Bold.Italic exch scalefont
/BIF exch def
0.1 dup scale
rotate
translate
} bind def
/EndPage {
restore
showpage
} bind def
/MT
{
CW mul exch RH mul moveto
} bind def
/FI
{
/F0 exch def
/FW 1 def
} bind def
/FS
{
F0 exch div /FW exch def
0 () SS
} bind def
/SS
{
exch /BITS exch def
BITS 64 and 0 ne
{
TF setfont show
}
{
BITS 1 and 0 ne
{
BITS 4 and 0 ne { BIF } { BF } ifelse
}
{
BITS 4 and 0 ne { IF } { NF } ifelse
} ifelse
[FW 0 0 1 0 0] makefont setfont
BITS 56 and 0 ne
{
gsave
newpath 0 0 moveto
(I) true charpath flattenpath pathbbox
/VH exch def pop pop pop
grestore
} if
BITS 8 and 0 ne
{
currentpoint VH 0.3 mul sub /Y0 exch def /X0 exch def
} if
BITS 48 and 0 ne
{
/VS VH 0.4 mul def
BITS 16 and 0 eq { /VS VS neg def} if
currentfont [1 0 0 .8 0 VS] makefont setfont
} if
show
BITS 8 and 0 ne
{
currentpoint pop /X1 exch def
gsave
newpath VH 0.05 mul setlinewidth
X0 Y0 moveto X1 X0 sub 0 rlineto stroke
grestore
} if
} ifelse
} bind def
/ChkCh {
dup Encoding exch get
dup /.notdef eq {
pop Encoding exch /ellipsis put
}{
CharStrings exch known {pop} {Encoding exch /ellipsis put} ifelse
} ifelse
} bind def
/FF {
findfont begin
currentdict dup maxlength 1 add dict begin
{1 index /FID ne {def} {pop pop} ifelse} forall
/Encoding Latin1Enc 256 array copy def
/Metrics 1 dict def
Metrics /.notdef 0 put
0 1 255 /ChkCh load for
dup currentdict
end
end
definefont def
} bind def
/PDfont.Normal /Courier FF
/PDfont.Bold /Courier-Bold FF
/PDfont.Italic /Courier-Oblique FF
/PDfont.Bold.Italic /Courier-BoldOblique FF
/TF PDfont.Bold 100 scalefont def
