FPC internal compiler routine: Read_Text_Char
Source position: compproc.inc line 200
procedure fpc_Read_Text_Char(
var f: Text;
out c: Char
);