%%Changed: Reini Urban, 2009
%require "box.ps"
/gp {                                  % <x> <y> gp -
    4 dict begin
        /y exch def  /x exch def
        /x2 x 50 add def
        gsave palegreen
          x y x2 y 45 sub rect fill
          x y 75 sub x2 y 120 sub rect fill
        grestore
        x y 11 box
        /Courier 8 SF
        x 50 add y 2 add M (gp) rshow
     
        /Helvetica 11 SF
        x 5 add y 12 sub M
        [(SV) (IO) (CV) (CVGEN) (REFCNT) (HV) (AV) (FORM) (EGV) (LINE) (FILE_HEK)] {
    gsave
    currentpoint 40 mws pop
    grestore
    0 -15 rmoveto
} forall
    end
} def