Try

lcString = ""
DO WHILE NOT FEOF(gnInFile)

	lcChar = FREAD(gnInFile,1)
	
	IF lcChar = "~" 
		=FPUTS(gnOutFile, lcString)
	ELSE
		lcString = lcString + lcChar 
	ENDIF

ENDDO

>I wrote a prg that opens a text file, reads each line, parses the line and writes it into another file. the program works fine but it takes to long.
>is there a method that i can accomplish this quicker.
>A file that is about 250,000 lines takes almost 2 hours to process. Below is my prg and a few lines of the data from the input file.
>the program creates a new line after every tilde.
>
>the parameter are the file handles created with a Fopen() and fcreate()
>
<snip>