on 1:input:*: {
  if (/ !iswm $left($1,1)) && (Status Window !iswm $active) {
    var %x 1
    msg $active 4,01 $+  $+ $1-
    halt
  }
}