subroutine char SEGMENTS
echo "MAKE BOND FRom TOPO"
show vari SEGMENTS
make ctab sele active end init
make ctab sele active end from topo
calc bond resi sele atom name OXT C end
dele bond sele active .and. bond range 3.7 999999. end
return

set lev 3
show key active
show segm
return