nReadScrStr

function nReadScrStr(

  win: PWINDOW;

  x: Integer;

  y: Integer;

  n: Integer;

  buf: pchtype

):pchtype;

function nReadScrStr(

  x: Integer;

  y: Integer;

  n: Integer;

  buf: pchtype

):pchtype;