MenuTarget
"confirm-menu"
{}
{ /Menu 
    [(Yes!) (No!)]
    [{}]
    /new DefaultMenu send def 
  Menu /MenuFont /Times-Bold findfont 22 scalefont put
  /ItemPath {rr} def
}