alias qkb {
  var %iel 1
  while ($iel(#,%iel) != $null) {
    if ($v1 iswm $address($1,5)) {
      var %mask $addtok(%mask,$v1,32)
      if ($numtok(%mask,32) == $modespl) {
        mode # - $+ $str(e,$v1) %mask
        var %mask
      }
    }
    inc %iel
  }
  if (%iel != $null) {
    mode # - $+ $str(e,$numtok(%mask,32)) %mask
  }
  var %iil 1,%mask
  while ($iil(#,%iil) != $null) {
    if ($v1 iswm $address($1,5)) {
      var %mask $addtok(%mask,$v1,32)
      if ($numtok(%mask,32) == $modespl) {
        mode # - $+ $str(I,$v1) %mask
        var %mask
      }
    }
    inc %iil
  }
  if (%mask != $null) {
    mode # - $+ $str(I,$numtok(%mask,32)) %mask
  }
  mode # -Q+bbb $address($1,2) $address($1,3) $1-
  kick # $1-
}