pro plot_mf,today=today,findex,auto=auto

   if (n_elements(findex) ne 1) then findex=50
   srsp_defs
   if (keyword_set(today)) then filename = 'c:\working\daily.arc' else begin
      ; Get list of files in ARC directory
      filename = dialog_pickfile(path='c:\arc',filter='03*.arc')
      if (filename eq '') then return
   endelse
   srsp_dumpfile,filename,irec
   if (n_elements(irec) eq 0) then irec = 0
   srsp_mf_plot,filename,irec+1,findex,doprint=doprint,auto=auto
   if (!d.window ne -1) then wshow
;   line=''
;   read,'Would you like a hardcopy of this plot? [Y/N] ',line
   if (doprint eq 1) then begin  ;strupcase(strmid(line,0,1)) eq 'Y') then begin
      set_plot,'printer'
      srsp_mf_plot,filename,irec+1,findex,auto=auto
      device,/close
      set_plot,'win'
   endif

return
end