pro v_mosaic, sttim, rep, entim=entim, quiet=quiet, hc=hc
 ;+
 ;NAME:
 ;        v_mosaic
 ;PURPOSE:
 ;        Verify Mosaic
 ;SAMPLE CALLING SEQUENCE:
 ;        v_mosaic,'5-Apr-98'
 ;HISTORY:
 ;        Written 8-Apr-98 by F.Zele
 ;-

 progver = 'V_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 ' + sttim,' ']
 if (not keyword_set(entim)) then entim=anytim2ints(sttim,offset=86400)
 rep=[rep,'                   Actual Position         Commanded Position']
 rep=[rep,'                Wedge 1      Wedge 2      Wedge 1      Wedge 2',' ']
 tr_rd_index, sttim, entim, bh, /struct
 x=where(bh.seqid eq '310'x, nfile)
 if nfile lt 1 or nfile gt 24 then stop, ' number of records is not betwwen 1 and 24'
 j=0
 for i=x(0), x(nfile-1) do begin
   wp1=bh(i).dp_header(263)
   wp1=ishft(wp1,8)
   wp1=ishft(wp1,-8)
   wp2=bh(i).dp_header(264)
   wp2=ishft(wp2,-8)
   warning='  different'
   if wp1 eq wp(0,j) and wp2 eq wp(1,j) then warning=' '
   rep=[rep,string(format='(a,i2,i13,i13,i13,i13,a)','Image ',j+1,wp1,wp2,wp(0,j),wp(1,j),warning)]
   rep=[rep,' ']
   j=j+1
 endfor
 if (keyword_set(hc)) then prstr, rep, /hc
 if (not keyword_set(quiet)) then  prstr, rep, /nomore
 end