function A = readList1 (ss)
posCheck = 8000;
slen = length(ss);
frac = 0;
hwb =  waitbar(frac, "Wait until process folders...");
for ii= 1:slen
  if ii==1
    A = zeros(slen,2);
  end  % if  
  try
    fn = ss{ii};
    [sDate, sTime, cur_nA, pos] = readPos2(fn, posCheck);
    A(ii,1)= cur_nA;
    A(ii,2)= pos;
  catch ME
    continue
  end % try-catch  
  frac = double(ii)/slen;
  waitbar (frac, hwb);
end % for  
close(hwb)
end % function
