Compaq DEC Text Processing Utility AA-PWCBD-TE - Manual (Page 135)

Sample DECTPU Procedures
A.2 Translation of Control Characters
Example A–2 (Cont.) Procedure to Display Control Characters
LOOP
Ctrl_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)
THEN
MOVE_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