proc Main()
  integer curr_line = 2
  integer rc = 0
  integer measure_number
  string buildline[64] = "2 "
  Ask("Enter the first measure number: ",buildline)
  measure_number = Val(buildline)
  loop
     GotoLine(curr_line)  //Place cursor at beginning of "curr_line"
     GotoColumn(1)
     rc = lFind("|Bar","") //Look for next dotted 16th
     if rc == 0                  // If we can't find one
        break                    // get out of loop
     endif
     curr_line = CurrLine()      //Save line number of this set
     buildline=Format('|Text|Text:"',measure_number,
         '"|Font:PageSmallText|Pos:-6|Placement:AtNextNote')
     InsertLine(buildline)
     curr_line = curr_line + 2
     measure_number = measure_number + 1
   endloop
end