Pro x_tapefile2fits, file, dir = dir, file_name = file_name, step = step, del = del

  If (Keyword_set(file_name) Eq 0) Then file_name = 'BBSO_img'

  If (Keyword_set(step) Eq 0) Then step = 2

  If (Keyword_set(dir) Eq 0) Then dir = x_getdir(file)

  t = Readfits(file, h)

  m = Fix(Sxpar(h, 'NIMAGES'))

  tt = Strsplit(Sxpar(h, 'DATE-BGN'), '-T.', /extract)

  date = tt[0] + tt[1] + tt[2]

  time0 = hour2sec(tt[3])

  subsecond = Strmid(tt[4], 0, 3)

  For i = 0, m - 1 Do Begin

    img = Readfits(file, h, exten_no = i + 1)

    time = sec2hour(time0 + i * step) + '.' + subsecond

    name = dir + file_name + '_' + date + '_' + time + '.fts'

    WRITEFITS, name, img

  Endfor


  If ( N_elements( del ) Ne 0 ) Then Begin

    File_delete, file
    Print, file + ' has been deleted!'

  Endif

  End