!
!
! ***** NUMBER_LINES ***** 
!
! 	Routine to add line numbers to a buffer
!
PROCEDURE decus$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));
      decus$insert_text (FAO ("!6UL  ", line_number));
      line_number := line_number + 1;
      MOVE_HORIZONTAL (-CURRENT_OFFSET);
      MOVE_VERTICAL (1);
   endloop;

ENDPROCEDURE;