<pre>function getExternals  toComputer  put empty into list  if there is a menu "XCMD" then    repeat with x = 1 to the number of menuItems of menu "XCMD"      put "XCMD:" && (menuItem x of menu "XCMD") & return after list    end repeat  end if  if there is a menu "XFCN" then    repeat with x = 1 to the number of menuItems of menu "XFCN"      put "XFCN:" && (menuItem x of menu "XFCN") & return after list    end repeat  end if  return listend getExternals</pre>