PRO fts2jpg, filter  ;{
  
path=curdir()
filelist=file_list(path,filter,/CD)
filelist=strip_dirname(filelist)

  sz=SIZE(filelist)
  FOR i=0,sz(1)-1 DO BEGIN  ;{
    img=READFITS(filelist(i),hdu)
    filename=filelist(i)
    len=STRLEN(filename)
    IF (STRPOS(filename, 'fts') NE -1) THEN $
      STRPUT,filename,'jpg',STRPOS(filename,'fts')
      filename='/bail/d/tdarnell/'+filename
    WRITE_JPEG,filename,img
  ENDFOR  ;}
END  ;}