Create readBS.tcl