PROCEDURE   cjc_uppercase_words

LOCAL   now_position   ,
        start_position ,
        end_position   ;

if ( eve$x_select_position = 0 )  then

        eve_uppercase_word ;

else
        now_position  :=  mark ( NONE ) ;
        if eve$x_select_position < now_position  then
            start_position  :=  eve$x_select_position ;
            end_position    :=  now_position ;
        else
            end_position    :=  eve$x_select_position ;
            start_position  :=  now_position ;
        endif ;

        position ( start_position ) ;

        loop
            exitif ( mark ( NONE ) >= end_position ) ;
            eve_uppercase_word ;
        endloop ;

endif ;



ENDPROCEDURE ;





PROCEDURE   cjc_lowercase_words

LOCAL   now_position   ,
        start_position ,
        end_position   ;

if ( eve$x_select_position = 0 )  then

        eve_lowercase_word ;

else
        now_position  :=  mark ( NONE ) ;
        if eve$x_select_position < now_position  then
            start_position  :=  eve$x_select_position ;
            end_position    :=  now_position ;
        else
            end_position    :=  eve$x_select_position ;
            start_position  :=  now_position ;
        endif ;

        position ( start_position ) ;

        loop
            exitif ( mark ( NONE ) >= end_position ) ;
            eve_lowercase_word ;
        endloop ;

endif ;

ENDPROCEDURE ;





PROCEDURE   cjc_capitalize_words

LOCAL   now_position   ,
        start_position ,
        end_position   ;

if ( eve$x_select_position = 0 )  then

        eve_capitalize_word ;

else
        now_position  :=  mark ( NONE ) ;
        if eve$x_select_position < now_position  then
            start_position  :=  eve$x_select_position ;
            end_position    :=  now_position ;
        else
            end_position    :=  eve$x_select_position ;
            start_position  :=  now_position ;
        endif ;

        position ( start_position ) ;

        loop
            exitif ( mark ( NONE ) >= end_position ) ;
            eve_capitalize_word ;
        endloop ;

endif ;

ENDPROCEDURE ;