
  TYPE
    clt$scl_signal = record
      case 1 .. 2 of
      = 1 =
        signal: pmt$signal,
      = 2 =
        identifier: pmt$signal_id,
        contents: clt$scl_signal_contents,
      casend,
    recend;

*copyc clt$scl_signal_contents
*copyc pmt$signal
