>ROFL.
>Amazing what users sometimes do :)
>
>>I encountered a problem similar to this, one of my users had managed to insert 1000's of CR's on the end of a memo field
>>
>>They went to lunch with a book resting on the keyboard
>>But at the end of the CR's they had carried on typing into the memo field and then hit save.

lcMemo={your memo field}
lcMemo=strtran(lcMemo, chr(13)+chr(13), '  ')
do while '  '$lcMemo
    lcMemo=strtran(lcMemo, '  ', ' ')
enddo

This should save the regular single CRs and replace double or multiple CRs with a single space. Maybe not the most elegant way out, but should at least cut your problem down to manageable size.