<pre>on appendMenu menuName  toComputer  if menuName is "Curseurs" then appendResMenu "CURS"  if menuName is "Icons" then appendResMenu "ICON"  if menuName is "Images" then appendResMenu "PICT"  if menuName is "Polices" then appendResMenu "FOND"  if menuName is "Sons" then appendResMenu "snd "  if menuName is "XCMD" then appendResMenu "XCMD"  if menuName is "XFCN" then appendResMenu "XFCN"  -------------------------------------------------------  if menuName is "Piles" then appendMenuPiles  if menuName is "Fonds" then appendMenuFonds  if menuName is "Cartes" then appendMenuCartes  -------------------------------------------------------  put "Alain,Choix,Dessins,Format,Home,Lauzon,Mode,Questions,Text" into addOnMenus  if menuName is in addOnMenus then    put disk() & ":Fichiers:Menus:" & menuName into menuPath    put readFile(menuPath) into customMenu    delete line 1 of customMenu -- table headers    repeat with x = 1 to the number of lines of customMenu      put line x of customMenu into menuData      createCustomMenuItem menuData    end repeat    -------------------------------------------------------    if menuName is "Format" then      set checkMark of menuItem 1 of menu menuName to true      exit appendMenu    end if    -------------------------------------------------------  end ifend appendMenu</pre>