!
!
! ***** DECUS$REPLACE *****
!
PROCEDURE decus$replace(old, new)		! Simple replace function

   LOCAL ptr,
	old_mode;

   on_error
      RETURN (0);
   endon_error;

   ptr := SEARCH (old, CURRENT_DIRECTION);
   if (ptr <> 0) then
      POSITION (ptr);
      ERASE (ptr);
      old_mode := GET_INFO (CURRENT_BUFFER, "mode");
      SET (insert, CURRENT_BUFFER);
      COPY_TEXT (new);
      SET (old_mode, CURRENT_BUFFER);
      RETURN (1);
   else
      RETURN (0);                                               
   endif;

ENDPROCEDURE;