DO WHILE RIGHT(cString, 1) $ (" " + CHR(13) + CHR(10)) cString = LEFT(cString, LEN(cString) -1) EndDo ? cString ? len(cString)Alan
>cString = "This is what I want to keep!" + ; > Space (10) + Chr (13) + Chr (10) + Chr (13) + Chr (10) + ; > Space ( 1) + Chr (13) + Chr (10) + ; > Space ( 1) >>After execution of the routine, all trailing blanks/CR/LFs should be removed (last 18 characters removed, first 28 characters ketp).