on exportExternal
  ----
  answer "Type of external ?" with "Cancel" or "XFCN" or "XCMD"
  if it is "Cancel" then return "Cancelled"
  put it into externalType
  ----
  put externalsFolder() & externalType & "s:" into rootFolder
  createPath rootFolder -- XCMD
  ----
  put rootFolder & the short name of this cd & ":" into path
  createPath path
  writeFile empty,path & "Resources"
  copyResources path & "Resources",externalType
  ----
  beep 2
  ----
end exportExternal