on scriptToPreprocessMenuItems whichScript
  -- ex: scriptToPreprocessMenuItems "this card"
  -- nb: cannot do "return scriptVar" because string is too long
  toComputer
  put "on doMenu" & return after scriptVar
  put "put param(1) into itemMenu" & return after scriptVar
  ---------------------------------------------------------------------
  put getMenuItems() into ItemsMenu
  repeat with x = 1 to the number of lines of ItemsMenu
    put "if itemMenu is" && quote & (line x of ItemsMenu) & quote Â
    && "then pass doMenu" & return after scriptVar
  end repeat
  ---------------------------------------------------------------------
  put "pass doMenu" & return after scriptVar
  put "end doMenu" & return after scriptVar
  if whichScript is not empty
  then set script of whichScript to scriptVar
  else writeFile scriptVar,"scriptToPreprocessMenuItems"
end scriptToPreprocessMenuItems