--- /dev/null
+%!PS-Adobe-3.0
+%%Pages: 1
+%%BoundingBox: 0 0 595 842
+%%EndComments
+%%BeginProlog
+
+/bd { bind def } bind def
+
+/coords {
+ 90 rotate
+ 0 -595 translate
+ 7.2 dup scale
+ 0.5 0 translate
+} bd
+
+/dot {
+ newpath 2 copy 0.1 0 360 arc closepath fill
+} bd
+
+/column {
+ 0 1 39 { dot pop } for
+} bd
+
+/hline {
+ newpath -10 exch moveto 130 0 rlineto stroke
+} bd
+
+/vline {
+ newpath -0.5 moveto 0 40 rlineto stroke
+} bd
+
+/x5 {
+ gsave
+ 2 copy translate
+ 0.5 dup scale
+ newpath
+ -1 0 moveto 1 0 lineto
+ 0 -1 moveto 0 1 lineto
+ stroke
+ grestore
+} bd
+
+/column5 {
+ 4 5 39 { x5 pop } for
+} bd
+
+/board {
+ gsave
+ 0.01 setlinewidth
+ -0.5 hline
+ 39.5 hline
+ 0.5 setgray
+ 0.005 setlinewidth
+ 9 10 39 { hline } for
+ -4 10 130 { vline } for
+ -4 5 130 { column5 pop } for
+ grestore
+ 0 1 120 { column pop } for
+} bd
+
+%%EndProlog
+%%BeginSetup
+/cou /Courier findfont 0.7 scalefont def
+%%EndSetup
+
+%%Page: 1 1
+%%BeginPageSetup
+%%EndPageSetup
+
+gsave
+cou setfont
+coords
+-3 1.3 translate
+board
+0 41 translate
+80 -1.25 moveto
+($Id$)
+show
+board
+grestore
+
+%%Trailer
+%%EOF