
?? FMT (FORMAT := OFF) ??
  TYPE
    tut$output_ordinals = (
      tuc$out_insert_char,
      tuc$out_delete_char,
      tuc$out_insert_line_stay,
      tuc$out_insert_line_bol,
      tuc$out_delete_line_stay,
      tuc$out_delete_line_bol,
      tuc$out_erase_page_stay,
      tuc$out_erase_page_home,
      tuc$out_erase_unprotected,
      tuc$out_erase_end_of_page,
      tuc$out_erase_line_stay,
      tuc$out_erase_line_bol,
      tuc$out_erase_end_of_line,
      tuc$out_erase_field_stay,
      tuc$out_erase_field_bof,
      tuc$out_erase_end_of_field,
      tuc$out_erase_char,
      tuc$out_cursor_home,
      tuc$out_cursor_up,
      tuc$out_cursor_down,
      tuc$out_cursor_left,
      tuc$out_cursor_right,
      tuc$out_tab_forward,
      tuc$out_tab_backward,
      tuc$out_return,
      tuc$out_reset,
      tuc$out_insert_mode_begin,
      tuc$out_insert_mode_end,
      tuc$out_insert_mode_toggle,
      tuc$out_tab_clear,
      tuc$out_tab_clear_all,
      tuc$out_tab_set,
      tuc$out_cursor_pos_begin,
      tuc$out_cursor_pos_second,
      tuc$out_cursor_pos_third,
      tuc$out_bell_nak,
      tuc$out_bell_ack,
      tuc$out_set_screen_mode,
      tuc$out_set_line_mode,
      tuc$out_output_begin,
      tuc$out_output_end,
      tuc$out_display_begin,
      tuc$out_display_end,
      tuc$out_print_begin,
      tuc$out_print_end,
      tuc$out_print_page,
      tuc$out_field_scroll_set,
      tuc$out_field_scroll_down,
      tuc$out_field_scroll_up,
      tuc$out_protect_all,
      tuc$out_blink_begin,
      tuc$out_blink_end,
      tuc$out_alt_begin,
      tuc$out_alt_end,
      tuc$out_hidden_begin,
      tuc$out_hidden_end,
      tuc$out_inverse_begin,
      tuc$out_inverse_end,
      tuc$out_protect_begin,
      tuc$out_protect_end,
      tuc$out_underline_begin,
      tuc$out_underline_end,
      tuc$out_input_text_begin,
      tuc$out_input_text_end,
      tuc$out_output_text_begin,
      tuc$out_output_text_end,
      tuc$out_italic_begin,
      tuc$out_italic_end,
      tuc$out_title_begin,
      tuc$out_title_end,
      tuc$out_message_begin,
      tuc$out_message_end,
      tuc$out_error_begin,
      tuc$out_error_end,
      tuc$out_ld_fine_begin,
      tuc$out_ld_fine_end,
      tuc$out_ld_fine_horizontal,
      tuc$out_ld_fine_vertical,
      tuc$out_ld_fine_upper_left,
      tuc$out_ld_fine_upper_right,
      tuc$out_ld_fine_lower_left,
      tuc$out_ld_fine_lower_right,
      tuc$out_ld_fine_up_t,
      tuc$out_ld_fine_down_t,
      tuc$out_ld_fine_left_t,
      tuc$out_ld_fine_right_t,
      tuc$out_ld_fine_cross,
      tuc$out_ld_medium_begin,
      tuc$out_ld_medium_end,
      tuc$out_ld_medium_horizontal,
      tuc$out_ld_medium_vertical,
      tuc$out_ld_medium_upper_left,
      tuc$out_ld_medium_upper_right,
      tuc$out_ld_medium_lower_left,
      tuc$out_ld_medium_lower_right,
      tuc$out_ld_medium_up_t,
      tuc$out_ld_medium_down_t,
      tuc$out_ld_medium_left_t,
      tuc$out_ld_medium_right_t,
      tuc$out_ld_medium_cross,
      tuc$out_ld_bold_begin,
      tuc$out_ld_bold_end,
      tuc$out_ld_bold_horizontal,
      tuc$out_ld_bold_vertical,
      tuc$out_ld_bold_upper_left,
      tuc$out_ld_bold_upper_right,
      tuc$out_ld_bold_lower_left,
      tuc$out_ld_bold_lower_right,
      tuc$out_ld_bold_up_t,
      tuc$out_ld_bold_down_t,
      tuc$out_ld_bold_left_t,
      tuc$out_ld_bold_right_t,
      tuc$out_ld_bold_cross,
      tuc$out_black_background,
      tuc$out_white_background,
      tuc$out_red_background,
      tuc$out_green_background,
      tuc$out_blue_background,
      tuc$out_yellow_background,
      tuc$out_cyan_background,
      tuc$out_magenta_background,
      tuc$out_black_foreground,
      tuc$out_white_foreground,
      tuc$out_red_foreground,
      tuc$out_green_foreground,
      tuc$out_blue_foreground,
      tuc$out_yellow_foreground,
      tuc$out_cyan_foreground,
      tuc$out_magenta_foreground,
      tuc$out_low_intensity_begin,
      tuc$out_low_intensity_end,
      tuc$out_high_intensity_begin,
      tuc$out_high_intensity_end,
      tuc$out_set_size_1,
      tuc$out_set_size_2,
      tuc$out_set_size_3,
      tuc$out_set_size_4 );

  CONST
    tuc$out_max_ordinal = ORD(tuc$out_set_size_4);
?? FMT (FORMAT := ON) ??
