subroutine char SEGMENTS 

if ( AUTO_SEL .eq. "HISTORY" ) key XX_KEY sele by resi atom numb $1 end
if ( AUTO_SEL .eq. "ACTIVE" ) key XX_KEY sele by resi active end
if ( AUTO_SEL .eq. "WORK" ) key XX_KEY sele  segm name SEGMENTS end

find residue sele XX_KEY end - 
     map MAP_ACT contour MAP_CONT -
          root CA poin 10.0 group

image over false
key XX_KEY drop
return