' Renumber Heidenhien

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