external;

procedure ConReset;
begin
   Write("\ec");
end;