on *:dialog:new_table:sclick:3: {
  /did -a $dname 1 $did(1)
}
on *:dialog:new_table:sclick:2: {
  var %lines = $did(1).lines
  var %it = 1
  while (%it <= %lines) {
    set %data %data @ $did(1,%it)
    inc %it
  }
}
on *:dialog:new_table:init:0: {
  var %toks = $numtok(%data,64)
  var %it = 1
  while (%it <= %toks) {
    /did -a $dname 1 $gettok(%data,%it,64)
    inc %it
  }
}