'script to renumber

dim num_places
dim number_counter
dim line_num
dim s2
dim increment

function next_number 
 number_counter=number_counter+increment
 return "N"+inttostr(number_counter)
end function

number_counter=0
line_num=0
increment=1

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)