
  PROCEDURE [XREF] iip$terminal_keys_to_vt_kinds (terminal_attributes: ift$terminal_attributes;
    VAR vt_kinds: iit$vt_attribute_kinds);

{   This routine is needed by IFP$GET_TERMINAL_ATTRIBUTES to build a iit$vt_attribute_kinds array
{   which will subsequently be used as input on a iip$vt_query_attributes call.

?? PUSH (LISTEXT := ON) ??
*copyc iit$vt_attributes
*copyc ift$terminal_attributes
?? POP ??
