! subroutine char SEGMENTS
 image erase
delete atom sele segm name #* NEW* end
key image sele .not all .or. segm name SKEL end

key skel sele segm name SKEL .a .not active end

set col 
sele segm name SKEL end = 200
sele active end = 220
exit


image sele active .or. segm name SKEL end set bond
return