PROCEDURE SPLIT_LINES(RECL)

Local recl, this_record, this_offset, eocb, this_position;

eocb := end_of(current_buffer);
this_offset := recl;
move_horizontal(-current_offset);

!loop;
    move_horizontal(this_offset);
    split_line;
    move_vertical(1);
!    this_position := mark(none);
!    exitif this_position = eocb;
!endloop;

ENDPROCEDURE;