PROCEDURE eve_draw_box
    LOCAL 
	saved_mode,
	end_column,
	start_column,
	temp,
	end_select,
	top_bottom_text;

    !+
    !   Check for no select active
    !-
    IF eveplus_v_begin_select = 0
    THEN
	MESSAGE("Select not active");
	RETURN
    ENDIF;

    !+
    !  Set INSERT mode
    !-
    saved_mode := eveplus_set_mode(INSERT);

    !+
    !   Make sure there is a character at the corner of the box opposite
    !   the begin_select mark.  If the end_select mark is before the
    !   begin_select mark, juggle the markers so that begin_select precedes
    !   end_select.
    !-
    eveplus_pad_blank;
    IF MARK(NONE) >= eveplus_v_begin_select
    THEN
	end_select := MARK(NONE)
    ELSE
	end_select := eveplus_v_begin_select;
	eveplus_v_begin_select := MARK(NONE);
	POSITION(end_select)
    ENDIF;

    !+
    !   Figure out what column the box ends in and set END_COLUMN there.
    !   Then, clear out the video on EVEPLUS_V_BEGIN_SELECT.  Figure out
    !   the start column.
    !-
    end_column := edd_current_column;
    POSITION(eveplus_v_begin_select);
    eveplus_v_begin_select := MARK(NONE);
    start_column := edd_current_column;

    !+
    !   We may have the upper right and lower left corners of the box
    !   selected.  If so, START_COLUMN and END_COLUMN need to be reversed.
    !-
    IF start_column > end_column
    THEN
	temp := end_column;
	end_column := start_column;
	start_column := temp
    ENDIF;

    !+
    !   We may be building the box on the first line of the buffer.  In
    !   that case, we must put a new top line in the buffer.
    !-
    MOVE_HORIZONTAL(-CURRENT_OFFSET);
    IF MARK(NONE) = BEGINNING_OF(CURRENT_BUFFER)
    THEN
	SPLIT_LINE;
	POSITION(BEGINNING_OF(CURRENT_BUFFER));                    
	COPY_TEXT(eveplus_blank_chars(start_column));
	MOVE_VERTICAL(1);
	MOVE_HORIZONTAL(-CURRENT_OFFSET)
    ENDIF;

    !+
    !   Move back one line and put in the top line of the box
    !-
    top_bottom_text := '+' + eveplus_blank_chars(end_column-start_column+1) +
	'+';
    TRANSLATE(top_bottom_text, "-", " ");
    SET(OVERSTRIKE, current_buffer);
    MOVE_VERTICAL(-1);

    !+
    !   Replace all TABs with blanks on this line and pad it, if we need to.
    !-
    edd_replace_tabs_with_blanks_and_pad(end_column + 1);

    IF start_column <> 0
    THEN
	MOVE_HORIZONTAL(start_column - 1)
    ENDIF;

    COPY_TEXT(top_bottom_text);
    MOVE_VERTICAL(1);
    MOVE_HORIZONTAL(-CURRENT_OFFSET);

    !+
    !   Step through the selected lines, putting vertical bars on either side
    !   of the selected text.
    !-
    LOOP
	EXITIF MARK(NONE) > end_select;

	!+
	!   Replace all TABs with blanks on this line, if we need to.
	!-
	edd_replace_tabs_with_blanks_and_pad(end_column + 1);

	!+
	!   If START_COLUMN is zero, we must insert a vertical bar to do the
	!   left column, then put the right vertical bar one column farther out
	!   than normal.
	!-
	IF start_column = 0
	THEN
	    SET(INSERT, CURRENT_BUFFER);
	    COPY_TEXT("|");
	    SET(OVERSTRIKE, CURRENT_BUFFER);
	    MOVE_HORIZONTAL(end_column + 1);
	ELSE
	    MOVE_HORIZONTAL(start_column-1);
	    COPY_TEXT("|");
	    MOVE_HORIZONTAL(end_column - CURRENT_OFFSET + 1)
	ENDIF;

	COPY_TEXT("|");
	MOVE_HORIZONTAL(-CURRENT_OFFSET);
	MOVE_VERTICAL(1)
    ENDLOOP;

    !+
    !   Now put in the bottom line of the box.
    !-

    !+
    !   Replace all TABs with blanks on this line, if we need to.
    !-
    edd_replace_tabs_with_blanks_and_pad(end_column + 1);
    IF start_column <> 0
    THEN
	MOVE_HORIZONTAL(start_column - 1)
    ENDIF;

    COPY_TEXT(top_bottom_text);

    !+
    !   Position to the beginning of the cut area, reset BEGIN_SELECT,
    !   restore old insert/overstrike setting
    !-
    POSITION(eveplus_v_begin_select);
    eveplus_v_begin_select := 0;
    MOVE_HORIZONTAL(-CURRENT_OFFSET);
    IF start_column = 0
    THEN
	MOVE_HORIZONTAL(1)
    ELSE
	MOVE_HORIZONTAL(start_column)
    ENDIF;

    SET(saved_mode, CURRENT_BUFFER);
	
ENDPROCEDURE