ClearAll["Global`*"]
fid = BinaryReadList["~/Borealis/pp-fid","Integer32",ByteOrdering->-$ByteOrdering];
ListPlot[fid,PlotRange->All,Axes->False,Frame->True,Joined->True]
ListPlot[fid,PlotRange->{{0,200},All},Axes->False,Frame->True,Joined->True]
df=2*70;
fid=Drop[fid,df];
ListPlot[fid,PlotRange->All,Axes->False,Frame->True,Joined->True]

dw=5 10^-6
td=Length[fid];
td/2
time=Table[N[dw n ],{n,-df,(td-df-1)}];
shuf=Transpose[Evaluate[{time,fid}]];
sep=Partition[fid,2];
rfid=Flatten[Part[sep,All,{1}]];
ifid=Flatten[Part[sep,All,{2}]];
scale=Max[{Abs[Max[rfid]],
Abs[Min[rfid]],Abs[Max[ifid]],
Abs[Min[ifid]]}];
ctime=Take[time,Length[time]/2];
cshuf={time,rfid,ifid};
cfid =rfid+ I ifid;
ListPlot[Im[cfid],PlotRange->All,Axes->False,Frame->True,Joined->True]
ListPlot[{Im[cfid],Re[cfid]},PlotRange->All,Axes->False,Frame->True,Joined->True]
reft=Re[Fourier[cfid]];
Join[Take[reft,-td/4],Take[reft,td/4]];
ListPlot[Abs[%],PlotRange->All,Axes->False,Frame->True,Joined->True]
comp=Transpose[{rfid,ifid,ctime}];
Show[Graphics3D[Line[Map[{1000000  #[[3]],#[[1]],#[[2]]}&,comp]]],BoxRatios->{2,1,1},PlotRange->{All,{-scale,scale},{-scale,scale}},Axes->True,AxesLabel->{"Time μs","Imaginary","Real"}]
dwplay=dw*10
ListPlay[fid,SampleRate->1/dwplay]
ListPlay[{rfid,ifid},SampleRate->1/dwplay]
ListPlay[rfid,SampleRate->1/dwplay]
ListPlay[ifid,SampleRate->1/dwplay]