<pre>on appendMenuCartes  toComputer  put "Cartes" into menuName  create menu menuName  repeat with x = 1 to the number of cds    put the short name of cd x into menuItemName    put "goToCard" && menuItemName into menuItemMessage    put menuItemName after menu menuName with menuMsg menuItemMessage  end repeat  put the short name of this cd into menuItemName  if there is a menuItem menuItemName of menu menuName  then set checkMark of menuItem menuItemName of menu menuName to trueend appendMenuCartes</pre>