NotebookDirectory[]

stepfiles = Flatten[ Import[NotebookDirectory[]<>"steps.txt", "Table"]]

adat = Table[{f, Import[NotebookDirectory[]<>f,"Table"]}, {f, stepfiles }];

Length[adat]

pref = Table[adat[[i,2]][[1]], {i,1,Length[adat]}];
p[n_]:=Table[adat[[i,2]][[n]], {i,1,Length[adat]}];

pdat={#[[3]], #[[1]]}&/@Table[adat[[i,2]][[1]], {i,1,Length[adat]}];

p1=p[2];
pdat=Table[{p1[[i,3]] + pref[[i,3]], p1[[i,1]]}, {i,1,Length[p1]}];
ListPlot[{pdat, pdat}, Joined->{True, False},PlotStyle->{Black, Red}, PlotRange->All, AspectRatio->Automatic, Frame->True]

Last[adat][[1,1]]