'script to renumber

dim num_places
dim number_counter
dim line_num
dim s2

function next_number 
 inc(number_counter)
 return "N"+inttostr(number_counter)
end function

num_places=0 'number of digits for N number
number_counter=0
line_num=0

do
  inc(line_num)
  GotoLine(line_num)
  s2= CurrentLine
  if (s2 > "") and (s2 <> "%") and (s2[1] <> "O") then
      Remove("N")
      front(next_number+" ")
      AddSpaces
  end if

loop until (line_num > LineCount-2)