81           PROCEDURE PCH    IS NEW P (CHARACTER, "CHARACTER");  subprogram
90                PCH (CH, ("'" & CH) & "'" );
135           PROCEDURE PCH IS NEW P (CHARACTER, "CHARACTER");  subprogram
141                 PCH (CHARACTER'IMAGE (CH), CH );
144           PCH (CHARACTER'IMAGE (CHARACTER'VAL (127)),
177           PROCEDURE PCH IS NEW P (CHARACTER, "CHARACTER");  subprogram
183           PCH (ASCII.HT & "'A'");
184           PCH ("'B'" & ASCII.HT);
185           PCH ("'C'" & ASCII.BEL);
186           PCH ("'");
190           PCH ("'AB'");