<pre>on styleButton which,where  if where is in "card Cd" then    set the textFont of cd button which to Geneva    set the textStyle of cd button which to extend    set the textSize of cd button which to 10    set the style of cd button which to rectangle  else    set the textFont of bkgnd button which to Geneva    set the textStyle of bkgnd button which to extend    set the textSize of bkgnd button which to 10    set the style of bkgnd button which to rectangle  end ifend styleButton</pre>