*COMDECK COMQRTP
# 
      COMQRTP - ROUTING TEXT POINTER DEFINITIONS. 
# 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
  
      COMMON COMQRTP; 
        BEGIN 
        ITEM RTP$BYTE   U = 0;     # NEXT CHAR BYTE IN RTP (0-239) #
        BASED ARRAY RTP [0:0] S(24);
          BEGIN 
          ITEM RTP$TEXT   C(00,00,240);  # ROUTING TEXT # 
          END 
  
      END  # COMQRTP #
                                               CONTROL LIST;
