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

key XX_KEY sele XX_KEY .a atom name CA CB N H O C end

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

image over false
key XX_KEY drop
return