Wow, this is a brain twister.
I've attached a screenshot of the results of my code:

CREATE CURSOR crsTest (fld M)
INSERT INTO crsTest VALUES ("")

 
				DO CASE
				CASE LEN(TRIM(invrepor.ocr))>0 
					lnLines = ALINES( laLines, invrepor.ocr, 1 )     
   					lcOutStr = ""
                    FOR lnLCount = 1 TO lnLines
                      lcOutStr = lcOutStr + laLines[ lnLCount ] + CHR(13) + CHR(10)
              
                    NEXT
                    
                 CASE LEN(TRIM(invrepor.abstract))>0			     
                 	 lnLines = ALINES( laLines, invrepor.ocr, 1 )	      
   					  lcOutStr = ""
                      FOR lnLCount = 1 TO lnLines
                          lcOutStr = lcOutStr + laLines[ lnLCount ] + CHR(13) + CHR(10)
                      NEXT

                  ENDCASE
				UPDATE crstest SET fld=lcOutStr
				TEXT
<<xcount>>~<<ALLTRIM(invrepor.SUBJECT)>>~<<ALLTRIM(STRTRAN(invrepor.title2,CHR(13)+CHR(10)," "))>>~
<<ALLTRIM(STRTRAN(INVREPOR.AUTHORS,CHR(13)+CHR(10)," "))>>~<<ALLTRIM(STRTRAN(fld,CHR(13)+CHR(10)," "))>> <<lcPart2>><<lcPart3>><<lcPart4>><<lcPart5>><<lcPart6>><<lcPart7>><<lcPart8>><<lcPart9>><<lcPart10>>~<<ALLTRIM(str(stock.price1,7,2))>>
				ENDTEXT				
			Endif

***************************

My memo field has the contents of the top and middle of the attached file
*****************************************************************************************
However the text merge shows what happens at the bottom of the attached file.
note that visuallinnovators has tons of text missing in between visually ..... innovators. Then there are problems after that too.

What am I doing wrong? Thanks in advance.