
  CONST
    clc$max_expression_size = clc$max_command_line_size;

  TYPE
    clt$expression_size = 0 .. clc$max_expression_size,
    clt$expression_index = 1 .. clc$max_expression_size + 1;

  TYPE
    clt$expression = string ( * <= clc$max_expression_size);

*copyc clt$command_line
