MenuTarget
"hours-menu"
{}
{ /Menu 
    [(12) (1) (2) (3) (4) (5) (6) (7) (8) (9) (10) (11)]
    [{}]
    /new DefaultMenu send def 
  Menu /MenuFont /Times-Bold findfont 22 scalefont put
  /ItemPath {rr} def
}