!               
!
! ***** DECUS$INSERT_TEXT *****
!
!	Routine to insert text, even in overstrike mode
!
PROCEDURE decus$insert_text(the_text)		! Copy_text in insert mode

   LOCAL old_mode;
              
   old_mode := GET_INFO (CURRENT_BUFFER, "mode");
   SET (insert, CURRENT_BUFFER);
   COPY_TEXT (the_text);
   SET (old_mode, CURRENT_BUFFER);

ENDPROCEDURE;