*COMDECK,TCH$SMCOM
# 
      TERMINAL  CHARACTERISTICS SUPERVISORY MESSAGE DEFINITIONS 
# 
*CALL,TCHDEF
# 
      TERMINAL CHARACTERISTICS SUPERVISORY MESSAGE
# 
      BASED ARRAY TCHTEXT S(LTCH);
        BEGIN # TCHTEXT # 
*CALL,TCH 
        END   # TCHTEXT # 
