s = InputBox("先頭に移動する文字列を入力してください。");
if (s == "") {
  return;
}
l = len(s);

for (y = 1; y <= Bottom; y++) {
  p = pos([x,y], "\n" + s + "\n");
  if (p > 0) {
    [x,y] = s + "\n" + left([x,y], p) + mid([x,y], p + l + 2);
  } else if (right([x,y], l + 1) == "\n" + s) {
    [x,y] = s + "\n" + left([x,y], len([x,y]) - l - 1);
  }
}