nSEdit

function nSEdit(

  win: PWINDOW;

  x: Integer;

  y: Integer;

  att: Integer;

  z: Integer;

  CursPos: Integer;

  es: string;

  var ch: Char

):string;