// Add Heidenhain spaces

wordArray:=['BEGIN','PGM','MM',
 'TOOL','CALL','TOOL','CALL']
number_counter := 0
line_num := 0

repeat
  inc(line_num);
  GotoLine(line_num);
  s2 := CurrentLine;
  if (s2 > '') and (s2 <> '%') and (s2[1] <> 'O') then
  begin
  
    AddSpaces;
  end;
until line_num = LineCount;