>Naomi,
>

>select testdup
>set order to CompMe
>go top
>*-- init to unequal to save cycles in loop
>lcCompMe = iif(testdup.CompMe=="!", "?", "!")
>scan
> if m.lcCompMe == testdup.CompMe
>   delete while m.lcCompMe == testdup.CompMe
> endif
> lcCompMe = testdup.CompMe
>endscan

>
>should be enough, as the delete positions on the next "different".
>Not tested... just secondary brain thinking while driving
>
>regards
>
>thomas

Are you saying that you can drive and type at the same time? :)

Sorry, can not resist.

I haven't looked at the code today yet, will do at night.