ERASE_CHARACTER

  Erases the number of characters you specify; optionally returns a string
  representing the erased characters for use in other TPU procedures.

  Syntax

     [string] := ERASE_CHARACTER (integer)

  Parameters

     integer    The number of characters you want to remove.  To erase the
                current character, specify 1.

  Examples

  1.  ERASE_CHARACTER (10);

      Erases the current character and the 9 characters following it.

  2.  The following procedure uses ERASE_CHARACTER to swap or transpose the
      current character and the immediately preceding character:

      PROCEDURE swap_character
          LOCAL swapchar;
          swapchar := ERASE_CHARACTER (1);    ! Erase current character
          MOVE_HORIZONTAL (-1);               ! Move back one character
          COPY_TEXT (swapchar);               ! Put in erased character
      ENDPROCEDURE;

  Related topics

     COPY_TEXT   DELETE   ERASE   ERASE_LINE