set vari STRING_ARG  char global = "/54654$#"
inquire char vari STRING_ARG text "ROOT OF ATOM FILE NAMES::"
key old sele all end
read file STRING_ARG + ".pdb"  coor pdb
set vari SEGMENTS char segm select .not old end
read file STRING_ARG + ".ctab"  ctab first sele .not old end

set vari WORK_SEGM char global segm sele segm name WORK_SEGM  SEGMENTS end
<>cmds/re_image.cmds WORK_SEGM
image cent calc sele .not old end
return