on setNumber
  toComputer
  put "Click on the object you want to renumber..."
  wait until the mouseClick
  put theTarget(the clickLoc) into object
  if object is empty then exit setNumber
  ask "New number for" && object && "?"
  if it is empty then exit setNumber
  put it into newNum
  if "button" is in object or "field" is in object then
    select object
    repeat until the number of object is newNum
      put number of object into oldNum
      if oldNum > newNum then doMenu "Send Farther"
      else doMenu "Bring Closer"
      if number of object is oldNum then exit repeat -- no change
    end repeat
    choose browse tool
  else if "card" is in object then
    doMenu "Cut Card"
    if newNum is not 1 then
      go to cd newNum - 1
      doMenu "Paste Card"
    else
      go to cd 1
      doMenu "Paste Card"
      go to cd 1
      doMenu "Cut Card"
      doMenu "Paste Card"
      go to cd 1
    end if
  end if
end setNumber