subroutine char SEGMENTS
rena segm WAT sele segm name WAT2 .a segm name SEGMENTS end
delete atom select t_anchor end
write over file SAVE_FILE.PDB select segment name SEGMENTS end atom pdb
write over file SAVE_FILE.CTAB select segment name SEGMENTS end ctab \ 
           first sele segm name SEGMENTS end
save over file SAVE_FILE.VIEW view
return