procedure eve_change_case		!gold kp1 (change case)
	
LOCAL	 character, change_range ;
!check for active select
if eve$x_select_position <> 0 
then
    if get_info (eve$x_select_position, "buffer") <> current_buffer then
	message ("CHNGCASE must be used in the same buffer as Select.");
	return;
    else
	change_range := select_range;
        change_case(change_range,invert);
        eve$x_select_position:=0;
        return;
    endif;
else
	!change case of current character

	if current_character <> eve$x_null
	then
	     character :=current_character;
	     change_case(character,invert);
	     erase_character(1);
	     copy_text(character);
	     if current_direction <> forward
	     then
		 move_horizontal(-2);
	     endif;
	     return
	endif;
endif;

endprocedure