function createMenuIcons
  toComputer
  put "ICON" into resType
  if there is a menu resType then return menu resType
  else
    appendResMenu resType
    put menu resType into icons
    sort icons
    return icons
  end if
end createMenuIcons