pro lettura_file_sata

  sFolder = DIALOG_PICKFILE(PATH='examples\data', /DIRECTORY, TITLE="Choose directory TV data.")
  
  cd, sFolder
  
  A = FILE_SEARCH('*.rec', /NOSORT)
  
  openw, lun, sFolder+'file_batch_counter.dat', /get_lun
  
  list_modi =  ['IDLE','IDLE_2','GM_RBM','GM_DBS','RWS','','T&S','','','','','','','','','STT']
  list_wf = ['IDLE','LPRF','MPRF','HPRF','LPRF_NC']
  list_rs = ['IDLE','10_NM','20_NM','40_NM','80_NM']
  printf, lun, ["FILE OPERATIONAL_MODE WAVEFORM RANGE_SCALE "]
  
  for nfile=0, n_elements(a)-1 do begin
    
    filename = sFolder+A[nfile]
    
    print, 'file '+string(nfile)+' di'+string(n_elements(a))
    
    sata_block_Reader, $
      header_v, header_out, segnale_out, n_batch, check_ch, filename
      
    
   IF n_batch ne 0 then begin
    printf, lun, filename+string(header_out[0].header_data.signal_descr.BATCH_COUNTER)$
                +'   '+list_modi[header_out[0].header_data.mode.operation_mode]$
                +'   '+list_wf[header_out[0].header_data.mode.WAVEFORM]$
                +'   '+list_rs[header_out[0].header_data.mode.RANGE_SCALE]
   endif
    
  endfor
  
   close, lun & free_lun, lun

end