Flat file reassembler!
Reconnects two character lines by eliminating Line1 CR and forcing CR after Line2 (max len 152)...
This is not useful except for it's original intent!

>Hello,
>
>What is the purpose of this following codes, your opinion ?
>
>Tia
>
>

>Parameters tcOpenFile, tcFileName
>Local lcFileName, lnHandle, lnOHandle, lcFileIn, lnI
>
>lcFileIn = ""
>lnI 	 = 1
>lnOHandle = FOpen( tcOpenFile )
>
>If File( tcFileName )
>	Erase ( tcFileName )
>Endif
>lnHandle = Fcreate( tcFileName )
>
>Do While Not FEof( lnOHandle )
>	lcFileIn = lcFileIn + FGets( lnOHandle)
>
>	If !Empty(lcFileIn)
>		lcFileIn = Left(lcFileIn, Len(lcFileIn) - 1 )
>	Endif
>
>	If lnI % 2 = 0
>		If Len(lcFileIn) > 152
>			lcFileIn = Left(lcFileIn, 151) + Chr(13)
>		Endif
>		=Fwrite( lnHandle, lcFileIn )
>		lcFileIn = ""
>	Endif
>	lnI = lnI + 1
>Enddo
>=FClose( lnOHandle )
>=FClose( lnHandle )
>