pro doit

window,0,xs=1024,ys=1024,retain=2

img=readfits('20020308.170455.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.170455.chp.bsh.gif',save
img=readfits('20020308.171911.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.171911.chp.bsh.gif',save
img=readfits('20020308.173410.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.173410.chp.bsh.gif',save
img=readfits('20020308.174911.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.174911.chp.bsh.gif',save
img=readfits('20020308.180711.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.180711.chp.bsh.gif',save
img=readfits('20020308.182210.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.182210.chp.bsh.gif',save
img=readfits('20020308.183710.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.183710.chp.bsh.gif',save
img=readfits('20020308.185210.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.185210.chp.bsh.gif',save
img=readfits('20020308.190740.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.190740.chp.bsh.gif',save
img=readfits('20020308.192211.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.192211.chp.bsh.gif',save
img=readfits('20020308.193711.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.193711.chp.bsh.gif',save
img=readfits('20020308.195210.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.195210.chp.bsh.gif',save
img=readfits('20020308.200710.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.200710.chp.bsh.gif',save
img=readfits('20020308.202210.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.202210.chp.bsh.gif',save
img=readfits('20020308.203710.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.203710.chp.bsh.gif',save
img=readfits('20020308.205211.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.205211.chp.bsh.gif',save
img=readfits('20020308.210710.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.210710.chp.bsh.gif',save
img=readfits('20020308.212211.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.212211.chp.bsh.gif',save
img=readfits('20020308.213711.chp.bsh.fts.gz',hdr)
tv,bytscl(img,min=-700,max=250)
save=tvrd()
write_gif,'20020308.213711.chp.bsh.gif',save
end