Source position: compproc.inc line 172
procedure fpc_Write_Text_AnsiStr(
Len: LongInt;
var f: Text;
S: AnsiString
);