unit stderr;
{$I-,R-,S-,V-}

interface
const
  unitID: string[19] = 'stderr #1.1 (wiz.)'#0;
var
  err: text;
  progname: string[8];

implementation
uses
  strlib, dos;

procedure getname;
var
  p: pathstr;
begin
  fsplit(paramstr(0), p, progname, p);
end;

var
  handle: word absolute err;
begin
  getname;
  assign(err, 'NUL');
  rewrite(err);
  asm
    mov ah, 3eh
    mov bx, word ptr handle
    int 21h
  end;
  handle := 2;
end.