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