
  TYPE
    clt$scl_options = record
      line_style_correction_prompts: record
        case selected: boolean of
        = FALSE =
          ,
        = TRUE =
          prompting_style: osc$line_interaction .. osc$screen_interaction,
        casend,
      recend,
      screen_style_correction_prompts: record
        selected: boolean,
      recend,
      name_folding_level: clt$name_folding_level,
      wild_card_pattern_type: clt$wild_card_pattern_type,
    recend;

*copyc clt$name_folding_level
*copyc clt$wild_card_pattern_type
*copyc ost$interaction_style
