function extractKeywords(str) {
  result = "";
  while (str != "") {
    pos = pos(str, "\n");
    if (pos > 0) {
      line = left(str, pos);
      str = mid(str, pos + 1);
    } else {
      line = str;
      str = "";
    }
    if (pos(line, "–kŠC“¹") > 0) {
      result = result + line;
    }
  }
  return result;
}

for (y = 1; y <= Bottom; y++){
�@[x,y] = extractKeywords([x,y]);
}