
  TYPE
    ift$carriage_return_delay = 0 .. 1000,
    ift$cr_seq_size = 0 .. ifc$max_cr_seq_size,
    ift$carriage_return_sequence = record
      size: ift$cr_seq_size,
      value: string (ifc$max_cr_seq_size),
    recend,
    ift$code_set = (ifc$ascii_code_set, ifc$bpapl_code_set,
      ifc$tpapl_code_set,ifc$name_code_set),
    ift$end_line_positioning = (ifc$elp_none, ifc$elp_crs,
      ifc$elp_lfs, ifc$elp_crslfs),
    ift$end_out_seq_size = 0 .. ifc$max_end_out_seq_size,
    ift$end_output_sequence = record
      size: ift$end_out_seq_size,
      value: string (ifc$max_end_out_seq_size),
    recend,
    ift$end_page_action = (ifc$no_epa, ifc$epa_ffs),
    ift$end_partial_positioning = (ifc$no_epp, ifc$epp_crs,
      ifc$epp_lfs, ifc$epp_crslfs),
    ift$form_feed_delay = 0 .. 3000,
    ift$form_feed_seq_size = 0 .. ifc$max_form_feed_seq_size,
    ift$form_feed_sequence = record
      size: ift$form_feed_seq_size,
      value: string (ifc$max_form_feed_seq_size),
    recend,
    ift$line_feed_delay = 0 .. 1000,
    ift$line_feed_seq_size = 0 .. ifc$max_line_feed_seq_size,
    ift$line_feed_sequence = record
      size: ift$line_feed_seq_size,
      value: string (ifc$max_line_feed_seq_size),
    recend,
    ift$page_length = 0 .. 255,
    ift$page_width = 0 .. 255,
    ift$parity = (ifc$zero_parity, ifc$mark_parity,
      ifc$even_parity, ifc$odd_parity, ifc$no_parity),
    ift$status_action = (ifc$send_status, ifc$hold_status,
      ifc$discard_status);

?? PUSH (LISTEXT := ON) ??
*copyc ifc$terminal_constants
*copyc ift$terminal_class
*copyc ift$terminal_model
*copyc ift$terminal_name
*copyc ift$control_code_replacement
?? POP ??
