;
;filnam = '/home/soi/data/nov664/lev0/
filnam = '/home/soi/data/nov667/lev0/
;for j=618,700 do begin
for j=700,740 do begin
    filnam = '/home/soi/data/nov' + string(j, format='(i3.3)') + '/lev0/'
    ff = findfile(filnam + '*')
    if (n_elements(ff) lt 29) then begin
	print, 'Not enough files in: ' + filnam
	print, ff
    end else begin
	print, 'Looking at serial number ', j
        infil = filnam + string(0, format='(i4.4)') + '.fits'
        img = rfits(infil)
	ii = j mod 9
	x0 = 256 * (ii mod 3)
	y0 = 256 * (2-ii/3)
	tvscl, img, x0, y0
	xyouts, x0, y0, strtrim(j, 2), /dev
    end
end
;
end