!****************************************
PROCEDURE WILD_FIND_AND_DELETE (STRING1)

local   search_string, 
        new_string, 
        old_len, 
        new_len, 
        top_of_buffer,
        this_mode, 
        this_position, 
        number_of_xchgs,
        temp,
        blanks;

position (buffer_begin);
top_of_buffer := mark (none);
loop
!    position (buffer_begin);
    search_string := "";
    new_string := "";
    if eve$prompt_string (string1, temp, "Search String:  ",
                       "Nothing entered -- operation cancelled") then
        search_string := temp;
        new_string := '\<' + search_string;
    
        eve_wildcard_find (new_string);
        if mark (none) <> top_of_buffer then
            erase_line;
        endif;
    endif;    
    exitif new_string = "";
endloop;

message (fao ('Columnar exchange completed -- !SL exchanges made',
    number_of_xchgs));

ENDPROCEDURE;