
  CONST
    rac$max_message_parameters = 50;

  TYPE
    rat$message_parameter = string (rac$max_line);

  TYPE
    rat$message_parameters = ^array [ * ] of rat$message_parameter;

  TYPE
    rat$number_of_message_params = 0 .. rac$max_message_parameters;

*copyc rac$max_line
