
?? FMT (FORMAT := OFF) ??
  TYPE
    tut$input_ordinals = (
      tuc$in_no_input,
      tuc$in_insert_char,
      tuc$in_delete_char,
      tuc$in_insert_line_stay,
      tuc$in_insert_line_bol,
      tuc$in_delete_line_stay,
      tuc$in_delete_line_bol,
      tuc$in_erase_page_stay,
      tuc$in_erase_page_home,
      tuc$in_erase_unprotected,
      tuc$in_erase_end_of_page,
      tuc$in_erase_line_stay,
      tuc$in_erase_line_bol,
      tuc$in_erase_end_of_line,
      tuc$in_erase_field_stay,
      tuc$in_erase_field_bof,
      tuc$in_erase_end_of_field,
      tuc$in_erase_char,
      tuc$in_cursor_home,
      tuc$in_cursor_up,
      tuc$in_cursor_down,
      tuc$in_cursor_left,
      tuc$in_cursor_right,
      tuc$in_tab_forward,
      tuc$in_tab_backward,
      tuc$in_return,
      tuc$in_reset,
      tuc$in_insert_mode_begin,
      tuc$in_insert_mode_end,
      tuc$in_insert_mode_toggle,
      tuc$in_tab_clear,
      tuc$in_tab_clear_all,
      tuc$in_tab_set,
      tuc$in_cursor_pos_begin,
      tuc$in_cursor_pos_second,
      tuc$in_cursor_pos_third,
      tuc$in_end_of_information,
      tuc$in_overstrike,
      tuc$in_f1,
      tuc$in_f2,
      tuc$in_f3,
      tuc$in_f4,
      tuc$in_f5,
      tuc$in_f6,
      tuc$in_f7,
      tuc$in_f8,
      tuc$in_f9,
      tuc$in_f10,
      tuc$in_f11,
      tuc$in_f12,
      tuc$in_f13,
      tuc$in_f14,
      tuc$in_f15,
      tuc$in_f16,
      tuc$in_f1_s,
      tuc$in_f2_s,
      tuc$in_f3_s,
      tuc$in_f4_s,
      tuc$in_f5_s,
      tuc$in_f6_s,
      tuc$in_f7_s,
      tuc$in_f8_s,
      tuc$in_f9_s,
      tuc$in_f10_s,
      tuc$in_f11_s,
      tuc$in_f12_s,
      tuc$in_f13_s,
      tuc$in_f14_s,
      tuc$in_f15_s,
      tuc$in_f16_s,
      tuc$in_next,
      tuc$in_back,
      tuc$in_help,
      tuc$in_stop,
      tuc$in_down,
      tuc$in_up,
      tuc$in_fwd,
      tuc$in_bkw,
      tuc$in_edit,
      tuc$in_data,
      tuc$in_next_s,
      tuc$in_back_s,
      tuc$in_help_s,
      tuc$in_stop_s,
      tuc$in_down_s,
      tuc$in_up_s,
      tuc$in_fwd_s,
      tuc$in_bkw_s,
      tuc$in_edit_s,
      tuc$in_data_s,
      tuc$in_backspace,
      tuc$in_undo,
      tuc$in_undo_s );

  CONST
    tuc$in_max_ordinal = ORD(tuc$in_undo_s);
?? FMT (FORMAT := ON) ??
