procedure tpu$local_init
    eve$arg1_zap := eve$arg1_buffer;
endprocedure;

procedure eve_zap(the_arg)
! Procedure deletes text from current location up to and including a
! target character given as a parameter.
local the_target, ! Character to zap to
      the_range,  ! Range containing text to zap
      zap_start,
      zap_end;    ! Start and end of region to delete.

  the_target := the_arg;

    if (the_arg = '') then
        the_target := read_line('Zap to what character: ',1);
    endif;

    zap_start := mark(none);    ! Remember start
    zap_end := end_of(search(the_target,forward));
    the_range := create_range(zap_start,zap_end,none);
    position(paste_buffer);
    erase(paste_buffer);
    move_text(the_range);
    position(zap_start);
    update(current_window);
endprocedure;