Procedure delete_null_lines

Local this_line, this_length;

this_line := current_line;
this_length := length(this_line);
if this_length = 0 then
    erase_line;
endif;
move_vertical(1);

endprocedure;