
  PROCEDURE [XREF] iip$vt_kind_to_if_key (vt_kind: iit$vt_attribute_kind;
    VAR if_key: ift$terminal_attribute_keys);

{   This routine was inspired by the need in IFP$GET_TERMINAL_ATTRIBUTES to convert any
{   possible error, a iit$vt_attribute_kind, to its equivalent in ift$terminal_attribute_keys.

?? PUSH (LISTEXT := ON) ??
*copyc iit$vt_attribute_kinds
*copyc ift$terminal_attribute_keys
?? POP ??
