
  CONST
    clc$nominal_command_line_size = osc$max_string_size +
          amc$max_statement_id_length + amc$max_line_number,
    clc$max_line_element_size = clc$max_command_line_size,
    clc$max_physical_line_size = clc$max_command_line_size +
          amc$max_statement_id_length + amc$max_line_number,
    clc$min_text_line_element_size = 1;

  TYPE
    clt$physical_line_size = clc$min_text_line_element_size ..
          clc$max_physical_line_size,
    clt$line_element_kind = (clc$null_line_element, clc$text_line_element,
          clc$statement_id_line_element, clc$line_number_line_element),
    clt$line_element_size = 0 .. clc$max_line_element_size,
    clt$line_layout = record
      physical_line_size: clt$physical_line_size,
      element: array [1 .. 3] of record
        kind: clt$line_element_kind,
        size: clt$line_element_size,
      recend,
    recend;

*copyc amt$line_number
*copyc amt$statement_identifier
*copyc clt$command_line
*copyc ost$string
