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

image sele segment name SEGMENTS end set bond
image sele segment name SEGMENTS .a .not by bond all end atom cros
image sele segment name SEGMENTS end col 85 hbond
return