on moveParts direction
  toComputer
  --------------------------------------------------------------------------
  if direction is "BACK" then
    repeat with x = the number of cd parts down to 1
      put x
      select cd part x
      type "x" with commandKey
      set editBkgnd to true
      type "v" with shiftKey,commandKey -- paste text too
      set editBkgnd to false
    end repeat
    choose browse tool
    return empty
  end if
  --------------------------------------------------------------------------
  if direction is "FORWARD" then
    repeat with x = the number of bg parts down to 1
      put x
      select bg part x
      type "x" with commandKey
      set editBkgnd to false
      type "v" with shiftKey,commandKey -- paste text too
      set editBkgnd to true
    end repeat
    choose browse tool
    return empty
  end if
  --------------------------------------------------------------------------
end moveParts