pro solfeed

   filename = pickfile(path=!defaults.datadir,filter='*.arc')
   if (filename eq '') then return
   lun = openarc(filename,a,nrec)
   seglist = get_segments(a,nrec)
   seglist = seglist(where(strpos(seglist,'Header:') ne -1))
   nscans = n_elements(seglist)
   if (nscans gt 1) then begin
      for i = 0, n_elements(seglist)-1 do print,i+1,seglist(i),format='(i2,10X,a)'
      read,'Enter the scan number you wish to begin with: ',iscan
   endif else iscan = 1
   reads,STRMID(seglist(iscan-1),13,5),hrec,format='(i5)'
   reads,strmid(seglist(iscan-1),19,5),erec,format='(i5)'

   openw,dailun,/get_lun,!defaults.workdir+'DAILY.ARC'
   b = assoc(dailun,intarr(1024))
   ; Write zero-filled records to beyond the last record that will be written:
   for i = 0, nrec-hrec+2 do begin
      b(i) = intarr(1024)
   endfor

   junk = ' '
   ; Start transferring records one at a time, rewriting the record number
   for i = hrec-1, nrec-1 do begin
      data = a(i)
      rec = i - hrec + 1
      data(0) = rec+1
      b(rec) = data
      segcode = ISHFT(data(2),-8) AND 'FF'X
      ; Pause after writing a data segment record
      if (segcode eq !SEGM.DATA) then wait,1
;      read,'Press enter to continue (Q to quit):',junk
;      if (junk eq 'Q') then begin
;         free_lun,dailun
;         free_lun,lun
;         return
;      endif
   endfor
   print,'All records written.'
   free_lun,dailun
   free_lun,lun

return
end