cString = "This is what "+CHR(13)+CHR(10)+"I want to keep!"  ;
+  Space (10) + Chr (13) + Chr (10) + Chr (13) + Chr (10) ;
+  Space ( 1) + Chr (13) + Chr (10) + ;
   Space ( 1)
CLEAR    
?   '<'+RTRIMCHARS(@m.cString,' '+CHR(13)+CHR(10))+'>'
          
PROCEDURE RTRIMCHARS(s,c)
	RETURN LEFT(m.s,LEN(RTRIM(CHRTRAN(m.s,m.c,SPACE(LEN(m.c))))))
ENDPROC