// Renumber heidenhein

number_counter:=0 
line_num:=1
GotoLine(line_num)
for line_num:=1 to LineCount do
begin
GotoLine(line_num)
s2:=CurrentLine
if (s2>'')and(s2<>'%') and(s2[1]<>'O') then
 begin
  front('N')
  Remove('N')
  front(inttostr(number_counter)+' ')
  inc(number_counter);
 end; 
end;