on *:input:*: {
  if $left($1,1) != $chr(47) || $active != Status Window {
    msg $active 4~1 $1- 4~ | halt
  }
}