Prob messy but it works:
on checkList whichList
tList = whichList
repeat with tEntry = tList.count down to 1
this = tList[tEntry]
prev = false
repeat with i = 1 to tList.count
if tList[i] = this and i <> tEntry then
prev = true
end if
end repeat
if prev then tList.deleteAt(tEntry)
end repeat
return(tList)
end
[To remove yourself from this list, or to change to digest mode, go to
http://www.penworks.com/lingo-l.cgi To post messages to the list, email
[EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED]). Lingo-L is for
learning and helping with programming Lingo. Thanks!]
