Compaq DEC Text Processing Utility (DECTPU) Guide Manual page 135

Guide to the dec text processing utility

Table of Contents

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.2 Translation of Control Characters

Sample DECTPU Procedures A–5

Table of Contents

Dec text processing utility Dectpu