

  CONST
    ofc$max_menu_lines = 18,
    ofc$max_display_lines = ofc$max_menu_lines + 1;

  TYPE
    oft$number_of_choices = 1 .. ofc$max_menu_lines,

    oft$number_of_displayable_lines = 0 .. ofc$max_menu_lines,

    oft$menu_selections = ARRAY [1 .. ofc$max_menu_lines] of string (80),

    oft$menu_display = ARRAY [1 .. ofc$max_display_lines] of string (80);
