!+
!	NUMBER_LINES.TPU	 - Routine to add line numbers to a buffer
!-

procedure eve_number_lines

local	line_number;

    line_number := 1;
    position(beginning_of(current_buffer));
    loop
        if (((line_number / 250) * 250) = line_number) then
            message("Numbering line " + str(line_number));
        endif;
        exitif (mark(none) = end_of(current_buffer));
        eveplus_insert_text(fao("!6UL  ", line_number));
        line_number := line_number + 1;
        move_horizontal(-current_offset);
        move_vertical(1);
    endloop;

endprocedure;