<pre>function findCursor cursorName  if cursorName is empty then return false  toComputer  put liste("curseurs") into theCursors  set ifunction findCursor cursorName  if cursorName is empty then return false  toComputer  put liste("curseurs") into theCursors  set itemDelimiter to tab  repeat with x = 1 to the number of lines of theCursors    if line x of theCursors is cursorName then return true  end repeat  return falseend findCursortemDelimiter to tab  repeat with x = 1 to the number of lines of theCursors    if line x of theCursors is cursorName then return true  end repeat  return falseend findCursor</pre>