procedure eve_transpose_char
local char1, char2;
move_horizontal(-1);
char2 := erase_character(1);
move_horizontal(-1);
char1 := erase_character(1);
copy_text(char2 + char1);
endprocedure;