'script to renumber

dim number_counter,s2,increment

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

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


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)