Sample DECTPU Procedures
A.2 Translation of Control Characters
Example A–2 (Cont.) Procedure to Display Control Characters
LOOPCtrl_char_range := SEARCH_QUIETLY (Ctrl_char_pattern, FORWARD);
EXITIF Ctrl_char_range = 0;
POSITION (Ctrl_char_range);
!
! If we did not translate the character, move past it
!
IF NOT translate_controls (Ctrl_char_range)
THENMOVE_HORIZONTAL (1);
ENDIF;
ENDLOOP;
!
! Now display what we have done
!POSITION (BEGINNING_OF (translate_buffer));
MAP (translate_window, translate_buffer);
ENDPROCEDURE;
Sample DECTPU Procedures A–5