  TYPE
    cmt$communications_connectivity = record
      port: array [cmt$communications_port_number] of cmt$upline_connection,
    recend;

*copyc cmt$communications_port_number
*copyc cmt$upline_connection
