!
!
! This procedure translates control characters to readable characters.
!
PROCEDURE decus$translate_controls (char)

! The backwards questions mark is the placeholder for control characters
! from ASCII(0) thru ASCII(31) on the VT2xx series of terminals
   CASE char FROM ' ' TO ''

      [' '] : COPY_TEXT ('<NUL>');
      [''] : COPY_TEXT ('<SOH>');
      [''] : COPY_TEXT ('<STX>');
      [''] : COPY_TEXT ('<ETX>');
      [''] : COPY_TEXT ('<EOT>');
      [''] : COPY_TEXT ('<ENQ>');
      [''] : COPY_TEXT ('<ACK>');
      [''] : COPY_TEXT ('<BEL>');
      [''] : COPY_TEXT ('<BS>');
      [''] : COPY_TEXT ('<SO>');
      [''] : COPY_TEXT ('<SI>');
      [''] : COPY_TEXT ('<DLE>');
      [''] : COPY_TEXT ('<DC1>');
      [''] : COPY_TEXT ('<DC2>');
      [''] : COPY_TEXT ('<DC3>');
      [''] : COPY_TEXT ('<DC4>');
      [''] : COPY_TEXT ('<NAK>');
      [''] : COPY_TEXT ('<SYN>');
      [''] : COPY_TEXT ('<ETB>');
      [''] : COPY_TEXT ('<CAN>');
      [''] : COPY_TEXT ('<EM>');
      [''] : COPY_TEXT ('<SUB>');
      [''] : COPY_TEXT ('<ESC>');
      [''] : COPY_TEXT ('<FS>');
      [''] : COPY_TEXT ('<GS>');
      [''] : COPY_TEXT ('<RS>');
      [''] : COPY_TEXT ('<US>');
      [inrange, outrange] : COPY_TEXT (char);

   endcase;
ENDPROCEDURE