;
;filnam = '/home/soi/data/nov728/lev0/
;filnam = '/home/soi/data/nov619/lev0/
filnam = '/home/soi/data/nov678/lev0/
ff = findfile(filnam + '*.fits')
;
for j=0,n_elements(ff)-1 do begin
        infil = ff(j)
        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