close,/All
file=Dialog_PickFile()
root=file
n_n = Spec_Access(h,file)
itmp = Dialog_Message(/Info,'number of scans ='+strCompress(n_n))
FOR i_i=1,n_n DO BEGIN
  header = Spec_Headers(h,i_i,/Index)
  ;   itmp = Dialog_Message(/Info,header)
  nCols = Spec_Columns(h,i_i,/Index)
  nPts = Spec_Points(h,i_i,/Index)
  ;   itmp = Dialog_Message(/Info,'nCols='+StrCompress(nCol)+' nPts='+StrCompress(nPts))
  OpenW,11,root+'.'+StrCompress(i_i,/Remove_All)
  FOR j=0,N_Elements(header)-1 DO PrintF,11,header[j]
  IF NPts GT 0 THEN BEGIN
    data = Spec_Data(h,i_i,/Index)
    FOR j=0,nPts-1 DO PrintF,11,data[*,j],Format='('+StrCompress(nCols,/Rem)+'G10.5)'
  ENDIF
  Close,11
  ;   itmp = Dialog_Message(/Info,'File written to disk: '+root+'.'+StrCompress(i_i,/Remove_All))
ENDFOR