
  TYPE
    ift$store_context_attribute = record
      case key: ift$store_context_keys of
      = ifc$instance_mode =
        instance_mode: ift$terminal_mode,
      = ifc$blank_flag =
        blank_flag: boolean,
      = ifc$screen_clear_string =
        screen_clear_string: ost$string,
      casend,
    recend;

?? PUSH (LISTEXT := ON) ??
*copyc ift$store_context_keys
*copyc ift$terminal_mode
*copyc ost$string
?? POP ??
