Tcl scripts for sBNC