xsz = 306  & ysz = 228


filenm='/swing/d/lites/eclipse98/peppi/shift_1.5.200'    & mn=30. & mx=250.
small = fltarr(xsz,ysz)
close,1 & openr,1,filenm & readu,1,small & close,1





tv,bytscl(small,min=mn,max=mx)


window,0,xsize=xsz,ysize=ysz+60
mxC=180
set_plot,'z'
device,set_resolution=[xsz,ysz+60],set_colors=mxC,z_buffering=0
loadct,0
tvlct,_a,_b,_c,/get

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 sample image, uncalibrated, enhanced.',/device,charsize=1.0,color=mxC
xyouts, 5 ,    5+ysz , 'High Altitude Observatory, NCAR.',/device,charsize=1.1,color=mxC

zzz=tvrd()

device,/close
set_plot,'x'

write_gif,'peppi98.gif',zzz,_a,_b,_c

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