!****************************************
PROCEDURE EVE_CHGFMT

local this_position, this_mode, this_range;

on_error
endon_error;

this_position   := mark (free_cursor);
this_mode       := get_info (current_buffer, "mode");

if this_mode <> insert then
    set (insert, current_buffer);
endif;

message ("Changing 'x(' to 'x ('");
loop
    this_range := (search (any ("abcdefghijklmnopqrstuvwxyz0123456789") + "(",
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing ')x' to ') x'");
loop
    this_range := (search (")" + any ("abcdefghijklmnopqrstuvwxyz0123456789'"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x=' to 'x ='");
loop
    this_range := (search (any ("abcdefghijklmnopqrstuvwxyz0123456789") + "=",
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x=' to 'x ='");
loop
    this_range := (search ("=" + any ("abcdefghijklmnopqrstuvwxyz0123456789'"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing ',x' to ', x'");
loop
    this_range := (search (
        "," + any ("abcdefghijklmnopqrstuvwxyz0123456789'(/"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x.eq.x' to 'x .eq. x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") +
        ".eq." +
        any ("abcdefghijklmnopqrstuvwxyz0123456789'"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
    move_horizontal (4);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x.le.x' to 'x .le. x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") +
        ".le." +
        any ("abcdefghijklmnopqrstuvwxyz0123456789'"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
    move_horizontal (4);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x.lt.x' to 'x .lt. x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") +
        ".lt." +
        any ("abcdefghijklmnopqrstuvwxyz0123456789'"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
    move_horizontal (4);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x.gt.x' to 'x .gt. x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") +
        ".gt." +
        any ("abcdefghijklmnopqrstuvwxyz0123456789'"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
    move_horizontal (4);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x.ge.x' to 'x .ge. x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") +
        ".ge." +
        any ("abcdefghijklmnopqrstuvwxyz0123456789'"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
    move_horizontal (4);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x.ne.x' to 'x .ne. x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") +
        ".ne." +
        any ("abcdefghijklmnopqrstuvwxyz0123456789'"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
    move_horizontal (4);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x.or.x' to 'x .or. x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") +
        ".or." +
        any ("abcdefghijklmnopqrstuvwxyz0123456789("),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
    move_horizontal (4);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x.and.x' to 'x .and. x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") +
        ".and." +
        any ("abcdefghijklmnopqrstuvwxyz0123456789("),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
    move_horizontal (5);
    copy_text(" ");
endloop;

message ("Changing '/x' to '/ x'");
loop
    this_range := (search ("/" + any ("abcdefghijklmnopqrstuvwxyz0123456789"),
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
endloop;
position (this_position);

message ("Changing 'x/x' to 'x /x'");
loop
    this_range := (search (
        any ("abcdefghijklmnopqrstuvwxyz0123456789)") + 
        "/" +
        any ("abcdefghijklmnopqrstuvwxyz0123456789/ "), 
        forward, no_exact));
    exitif this_range = 0;
    position (this_range);
    move_horizontal (1);
    copy_text(" ");
endloop;
position (this_position);

set (this_mode, current_buffer);
eve$position_in_middle (this_position);
message ("Through fixing");

ENDPROCEDURE;