pro ver_mosaic, stfile, nfile, rep, quiet=quiet, hc=hc
 ;+
 ;NAME:
 ;        ver_mosaic
 ;PURPOSE:
 ;        Verify Mosaic
 ;SAMPLE CALLING SEQUENCE:
 ;        ver_mosaic,'/td10/log/rawimage/971103/971103_204730_Seq12_026.fits',24
 ;HISTORY:
 ;        Written 8-Jan-98 by F.Zele
 ;-

 progver = 'VER_MOSAIC Ver 1.1'
 wp=bytarr(2,24)
 wp=                       $
         [[  18,   57],    $
          [  32,   45],    $
          [  45,   32],    $
          [  57,   18],    $
          [  71,    4],    $
          [  64,   17],    $
          [  41,   42],    $
          [  17,   64],    $
          [   4,   71],    $
          [ 173,   83],    $
          [ 175,   86],    $
          [ 179,   88],    $
          [  88,  179],    $
          [  86,  175],    $
          [  83,  173],    $
          [  94,  161],    $
          [ 107,  154],    $
          [ 131,  132],    $
          [ 154,  107],    $
          [ 161,   94],    $
          [ 147,  108],    $
          [ 135,  122],    $
          [ 122,  135],    $
          [ 108,  147]]
 rep=[progver + ' Run ' + ut_time() + ' UT',              $
      'Starting with file ' + stfile,' ']
 if nfile lt 1 then stop, ' illegal number of files'
 rep=[rep,'                   Actual Position         Commanded Position']
 rep=[rep,'                Wedge 1      Wedge 2      Wedge 1      Wedge 2',' ']
 file1=strmid(stfile,0,strpos(stfile,'.fits')-3)
 file2=strmid(stfile,strpos(stfile,'.fits')-3,3)
 ifile2=fix(file2)
 for i=1, nfile do begin
   file2=string(format='(i3.3)',ifile2)
   rd_trace_i0, file1+file2+'.fits', -1, bh, img, fh
   wp1=bh.dp_header(263)
   wp1=ishft(wp1,8)
   wp1=ishft(wp1,-8)
   wp2=bh.dp_header(264)
   wp2=ishft(wp2,-8)
   warning='  different'
   if wp1 eq wp(0,i-1) and wp2 eq wp(1,i-1) then warning=' '
   rep=[rep,string(format='(a,i2,i13,i13,i13,i13,a)','Image ',i,wp1,wp2,wp(0,i-1),wp(1,i-1),warning)]
   rep=[rep,' ']
   ifile2=ifile2+1
 endfor
 if (keyword_set(hc)) then prstr, rep, /hc
 if (not keyword_set(quiet)) then  prstr, rep, /nomore
 end