if {[info exists bnchan]} return
defset bnport 6112
set bnchan [open [list | $bnbot $bnhost $bnport] w+]
fconfigure $bnchan -buffering line
if {[info exists bnchan]} return
defset bnport 6112
set bnchan [open [list | $bnbot $bnhost $bnport] w+]
fconfigure $bnchan -buffering line