sub reset { $s300->deselect; $s310->deselect; $lb->delete(0,'end'); $mw->update; }