procedure eve_transpose_lines
local current_spot, line_to_move;

current_spot := mark(none);
move_horizontal(-current_offset);
line_to_move := erase_line;
move_vertical(-1);
copy_text(line_to_move);
split_line;
endprocedure;