pro disp20, infil, img, head, ist, hc=hc
;
;	infil = '950825_125156
;	read_mdi, infil, -1, img, h
;	disp20, infil, img, h,  0
;	disp20, infil, img, h, 20
;	disp20, infil, img, h, 40
;
;
n = n_elements(img(0,0,*))
ien = (ist+19)< (n-1)
if (n_elements(imin) eq 0) then imin = min(img(*,*,ist:ien))
if (n_elements(imax) eq 0) then imax = max(img(*,*,ist:ien))
;
if (keyword_set(hc)) then set_plot,'ps'
tv2, 140*4, 140*6, /init, /already
erase
xyouts2, 140*1.5, 140*6-40, 'File: ' + infil, align=0.5, size=2
xyouts2, 140*1.5, 140*6-70, 'Images: ' + strtrim(ist,2) + ' to ' + strtrim(ien,2)
xyouts2, 140*1.5, 140*6-100, 'DISP20.PRO  Ver 1.0  Program Run: ' + !stime
for i=0,(ien-ist) do begin
    ix = (i mod 4) * 140
    iy = (4 - i/4) * 140
    tv2, rebin(bytscl(img(*,*,ist+i), imin, imax),128,128), ix, iy+10
    dattim = gt_day(sxpar(head(*,ist+i), 'DATE-OBS'),/str) + '  ' +  sxpar(head(*,ist+i), 'TIME-OBS')          ;convert to letter format
    xyouts2, ix, iy, strtrim(ist+i,2) + '  ' + dattim, siz=.75
end
;
if (!d.name eq 'PS') then pprint
end