

  TYPE
    ift$total_substitution_count = 0 .. ifc$total_substitution_count;

  TYPE
    ift$control_code_replacement = record
      total_substitution_count : ift$total_substitution_count,
      value: array [1 .. ifc$total_substitution_count] OF
        ift$control_code_rep_char,
    recend;

  TYPE
    ift$control_code_rep_char = record
      original_control_code: char,
      substitute_control_code: char,
    recend;








?? PUSH (LISTEXT := ON) ??
*copyc ifc$terminal_constants
?? POP ??
