set vari STRING_ARG  char global = "/54654$#"
inquire char vari STRING_ARG text "PDB FILE NAME::"
key old sele all end
read file STRING_ARG coor pdb
set vari SEGMENTS char segm select .not old end
<>utils/calculate.bonds SEGMENTS
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