!*************************
PROCEDURE ERASE_TO_DATE(DATE_TO_LOOK_FOR)

Local date_to_look_for, this_range;

this_range	:= search(date_to_look_for, forward, exact);
position(this_range);
pce_erase_to_start_of_buffer;
eve_print_range;
eve_print_ff;
eve_print_ff;

ENDPROCEDURE;

!*************************
PROCEDURE EVE_WHICH_COLUMN

Local this_column;

this_column := current_column + 1;
message("Current column = !SL",this_column);

ENDPROCEDURE;

!*************************
PROCEDURE EVE_DELETE_LINE
!===========================================================================
!  Delete The Current Line
!===========================================================================
local location;
location := current_offset;
if current_direction = forward then
   move_horizontal(-location);
   erase_line;
   if location > length(current_line) then
      move_horizontal(length(current_line));
   else
      move_horizontal(location);
   endif;
else
   move_horizontal(location);
   erase_line;
   if location > length(current_line) then
      move_horizontal(-length(current_line));
   else
      move_horizontal(-location);
   endif;
endif;
ENDPROCEDURE;

!*************************
PROCEDURE EVE_SHOW_POSITION
!===========================================================================
!  Display The Position Of The Cursor On The Current Line
!===========================================================================
message (fao ('Current character position is !SL',current_offset+1));
ENDPROCEDURE;

!*************************
PROCEDURE TEST

local this_key, this_comment;

message("Press a key");
this_key := read_key;
this_comment := lookup_key(this_key,COMMENT);
message(fao("Comment for the key you pressed is '!AS'",this_comment));

ENDPROCEDURE;
PROCEDURE KEY_MAP_EXISTS(MAP_TO_CHECK_FOR)

local this_map, key_map_name, key_map_list_name;

this_map := map_to_check_for;
edit(this_map, upper);

! get the current key map list name
key_map_list_name := get_info(current_buffer, "key_map_list");
message(fao("Key map list name is !AS",key_map_list_name));
! get the first key map name
key_map_name := get_info(key_map, "first", key_map_list_name);
message(fao("Key map name is !AS",key_map_name));

loop
    exitif key_map_name = this_map;
    exitif key_map_name = 0;
    key_map_name := get_info(key_map, "next", key_map_list_name);
    message(fao("Key map name is !AS",key_map_name));
endloop;

message(fao("Key map name is !AS",key_map_name));
return key_map_name;

ENDPROCEDURE;