Source position: tcl80.pp line 911
function Tcl_Write(
chan: PTcl_Channel;
s: PAnsiChar;
slen: Integer
):Integer;