The author's web site is at http://www.dbrad32.narod.ru/eng/dbe.htm

************* Common header cHead0 linking ************

*** Fonts definition
cHead=cHPart1+"{\fonttbl"
FOR ni=1 TO ArrLen(@aFont0)
	cBuf=aFont0[ni]
        *#################################################
	* ADD LINE BELOW *
	cHead=cHead+"{\f"+ALLTRIM(STR(ni-1))+"\"+cBuf
        *#################################################

>When i test this useful function, i get an error, but if i ignor it, the result is correct!
>Can you see this please?
>unfortunatly his website address is rong.

>cText1 = "{\rtf1\fbidis\ansi\ansicpg1256\deff0\deflang1025{\fonttbl{\f0\fnil\fcharset0 Arial;}}\viewkind4\uc1\pard\ltrpar\qc\fs32 First Line\par }"
>cText2 = "{\rtf1\fbidis\ansi\ansicpg1256\deff0\deflang1025{\fonttbl{\f0\fnil\fcharset0 Arial;}}\viewkind4\uc1\pard\ltrpar\fs18 Second Line\par }"
>Landscape = .F.
>nPage = 0
>
>= STRTOFILE(JoinRTF(cText1,cText2,Landscape,nPage),"C:\new.rtf")
>
>RETURN

<snip>