`data s2;
 infile 'G:FFTUSVP4506_101014_235300_FFT_C3-A2.txt'
 delimiter='",' firstobs=40 TRUNCOVER LRECL=1500;
 input file : $40. subj $ deriv $ stage $ time : $30. incl  hz1-hz50;
 artef=10-incl;
 time=scan(time,2,' ');
 n+1;
 starttime=11;
 if n>(480+10) then delete;
 Kammer=0;
 expo=8;    `