by logMissingSimpleKeys = TRUE.
Im module Dialog should be the procedure SearchString(in, out)
Code: Select all
i := 0; ch := in[1];
WHILE (ch # 0X) (* & (ch # ".") *) & (ch # ":") DO subsys[i] := ch; INC(i); ch := in[i + 1] END;
subsys[i] := 0X;
IF ch # 0X THEN
INC(i, 2); ch := in[i]; j := 0;
WHILE (ch # 0X) DO in[j] := ch; INC(i); INC(j); ch := in[i] END;
in[j] := 0X
ELSE
RETURN
END;
Code: Select all
i := 0; ch := in[1];
WHILE (ch # 0X) (* & (ch # ".") *) & (ch # ":") DO subsys[i] := ch; INC(i); ch := in[i + 1] END;
subsys[i] := 0X;
IF ch # 0X THEN INC(i); ch := in[i+1] END;
IF ch # 0X THEN
INC(i); ch := in[i]; j := 0;
WHILE (ch # 0X) DO in[j] := ch; INC(i); INC(j); ch := in[i] END;
in[j] := 0X
ELSE
RETURN
END;