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 XX_KEY end
rena segm HELP sele segm name NEW end

<DEF_ALL HELP

key XX_KEY drop

< MAIN_CMDS:re_image.cmds HELP

return