filenm=' '
listfile='./donlist'
pixX = 256
pixY = 1024
img=intarr(pixX,pixY)
fimg=fltarr(pixX,pixY)
    ; When you want to stop animating, hit any character. 
    ; You might then have to do a "retall" in idl
 
    close,13 & openr,13,listfile
    ii=0 

loadct,1
 
    ; When you want to stop animating, hit any character. 
    ; You might then have to do a "retall" in idl
 
    close,13 & openr,13,listfile
    ii=0 
    while ( not eof(13) ) do begin & readf,13,filenm & ii=ii+1 & endwhile
    close,13
    numimgs=ii
    print,ii," images"
 
    if ( numimgs gt 1 ) then xinteranimate,set=[pixY,pixX,numimgs],/SHOWLOAD 
 
    close,13 & openr,13,listfile

    ii=0 
    while ( not eof(13) ) do begin ;{
        readf,13,filenm
	print,filenm
	close,1 & openr,1,filenm
	img=intarr(pixX,pixY)
	readu,1,img
	byteorder,img
	img=rotate(img,7)
	img=rotate(img,1)
	img=img * 2
	if (numimgs gt 1) then xinteranimate,image=img,frame=ii 
        ii=ii+1
    endwhile ;} 
 
    close,13
 
    if ( numimgs gt 1 ) then wdelete,0

    if (numimgs gt 1) then xinteranimate,3.0,/KEEP_PIXMAPS

    stop

    if (numimgs eq 1) then stop
end