pro m_color,nc color=intarr(nc,3) print,'**** Enter NEW file name of modified color map ****' f=string('') read,f openw,9,f print,'**** Use existing color table (0) / Choose new PV-Wave color table (1) ****' read,m if( m eq 0 )then goto, zz1 print,'**** Choose PV-Wave color map number (1 - 13) ****' read,nn window,9,xsize=10,ysize=10,colors=nc loadct,nn wdelete,9 zz1: palette,color print,nc printf,9,color close,9 return end