if recnr < 10
    HeaName=['twa0' num2str(recnr) '.hea'];
else
    HeaName=['twa' num2str(recnr) '.hea'];
end;
fidh = fopen(HeaName, 'r');
header = textscan(fidh,'%s',1);
Nro = textscan(fidh,'%n',1);
NrofLead=Nro{1,1};
fclose(fidh);
clear header;
clear Nro;