! pdb file
set vari STRING_ARG  char global = "/54654$#"
inquire char vari STRING_ARG text "ROOT for PDB and CTAB FILE NAME::"
write over file STRING_ARG + .pdb sele segm name WORK_SEGM end atom pdb 

! connectivity file
!set vari STRING_ARG  char global = "/54654$#"
!inquire char vari STRING_ARG text "CONNECTIVITY TABLE FILE NAME::"
write over file STRING_ARG + .ctab sele segm name WORK_SEGM end ctab \
      first sele segm name WORK_SEGM end
return