subroutine char SEGMENTS

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

key PASS_KEY sele by bond XX_KEY end

key OLD sele all end

set temp sele PASS_KEY end = 0

!read file MAIN:top/targets_beta_anti.pdb coor pdb
!read file MAIN:top/targets_beta_anti.ctab ctab first sele segm name TARG end

 find chain sele PASS_KEY end sele segm name TARG end lev 8
! find names sele segm numb 5 .and seq 23 end sele segm name TARG end


! wr res seq segm
!dele atom sele segm name TARG end

key XX_KEY drop
key PASS_KEY drop
!< MAIN_CMDS:re_image.cmds WORK_SEGM
return