xsz = 306  & ysz = 228


snn=' '
lfile = 'movie_list'
filenm=' '    & mn=30. & mx=250.
filenm=' '    & mn=10. & mx=250.
small = fltarr(xsz,ysz)

window,0,xsize=xsz,ysize=ysz+60
mxC=180
set_plot,'z'
device,set_resolution=[xsz,ysz+60],set_colors=mxC,z_buffering=0

openr,13,lfile
ii=0
loadct,9
tvlct,_a,_b,_c,/get

while ( not eof(13) ) do begin ;{


    ii=ii+1
    if     ( ii lt 10  ) then snn='00'+string(ii) $
    else if( ii ge 100 ) then snn=''  +string(ii) $
    else                      snn='0' +string(ii)
    snn=strcompress(snn,/remove_all)

    readf,13,filenm  & print,ii,'  ',filenm

    close,1 & openr,1,filenm & readu,1,small & close,1


    erase
    tv,bytscl(small,min=mn,max=mx,top=mxC)

    xyouts, 5 , 14*3+ysz , 'February 26, 1998 eclipse, Curacao.',/device,charsize=1.0,color=mxC
    xyouts, 5 , 14*2+ysz , 'Peppi image '+snn+', uncalibrated, enhanced.',/device,charsize=1.0,color=mxC
    xyouts, 5 ,    5+ysz , 'High Altitude Observatory, NCAR/UCAR.',/device,charsize=1.1,color=mxC

    zzz=tvrd()
    write_gif,'peppi98_'+snn+'.gif',zzz,_a,_b,_c

endwhile ;}

close,13
device,/close
set_plot,'x'


window,0,xsize=xsz,ysize=ysz+60
tv,zzz
end