subroutine char SEGMENTS

!if ( AUTO_SEL .eq. "HISTORY" ) key XX_KEY sele history end
if ( AUTO_SEL .eq. "HISTORY" ) return
if ( AUTO_SEL .eq. "ACTIVE" ) key XX_KEY sele active end
if ( AUTO_SEL .eq. "WORK" ) key XX_KEY sele  segm name SEGMENTS end

dele atom sele segm name NEW end
key PASS_KEY sele by bond XX_KEY end

! set temp sele PASS_KEY end = 0

set vari ITEST = 0
if ( nhistory .gt. 0 ) set vari ITEST int local atom sele atom numb $1 end

image col 128 sele PASS_KEY end bond
 find chain sele PASS_KEY end sele segm name TARG end lev 8 test ITEST


!rena segm ORIG sele XX_KEY end
!dele atom sele XX_KEY end
!dele atom sele segm name NEW end
!rena segm HELP sele segm name NEW end


!dele bond sele segm name ORIG HELP .and. bond range 4.0 1000.0 end 
<DEF_ALL NEW
mini sele segm name NEW end

key XX_KEY drop
key PASS_KEY drop
!wr sele bond range 4.0 1000.0 end bond

< MAIN_CMDS:re_image.cmds HELP

image sele segm name NEW .a atom name N CA C end col 220 bond stick 
image sele segm name NEW .a atom name CA end col 240  atom name 
key image sele segm name HELP end
return