!7

p-substance-thread {
  centerBigConsole();
  fS title = programTitle();
  setConsoleTitle(title);
  repeat with sleep 1 {
    if (!isInForeground(consoleFrame())
      setConsoleTitle(title + " [Activate window to produce IDs]");
    else if (mouseInWindow(consoleFrame()))
      setConsoleTitle(title + " [Move mouse away to produce IDs]");
    else {
      setConsoleTitle(title);
      S id = aConceptID();
      print(id);
      setConsoleInput(id);
    }
  }
}