dele atom sele segm name #* end
symm sele active end matr 1 tran 0 0 0
rena segm MM sele segm name #* end
tran atom sele segm name MM end vect 2. 2. 2.
key active sele segm name MM end
inquire vari SGN char text "NEW SEGMENT NAME:"

rena segm SGN sele active end

inquire vari SQ_ROOT char text "NEW CHAIN ID:"
rena seq SQ_ROOT sele active end auto

set vari WORK_SEGM char global segm sele active end
return