1 c ***********************************************************
 2 c *                                                         *
 3 c * Copyright, (C) Honeywell Information Systems Inc., 1984 *
 4 c *                                                         *
 5 c ***********************************************************
 6       external ft_menu_$create (descriptors)
 7       external ft_menu_$delete (descriptors)
 8       external ft_menu_$describe (descriptors)
 9       external ft_menu_$destroy (descriptors)
10       external ft_menu_$display (descriptors)
11       external ft_menu_$get_choice (descriptors)
12       external ft_menu_$init1 (descriptors)
13       external ft_menu_$init2 (descriptors)
14       external ft_menu_$list (descriptors)
15       external ft_menu_$retreive (descriptors)
16       external ft_menu_$store (descriptors)
17       external ft_window_$change (descriptors)
18       external ft_window_$create (descriptors)
19       external ft_window_$destroy (descriptors)
20 
21       integer menu_version
22       integer max_width
23       integer max_height
24       integer no_of_columns
25       integer lines_needed
26       integer width_needed
27       integer no_of_options
28       integer center_headers
29       integer center_trailers
30       integer user_window_id
31       integer user_window_lines
32       integer user_window_columns
33 
34       parameter (menu_version = 1)
35       parameter (max_width = 2)
36       parameter (max_height = 3)
37       parameter (no_of_columns = 4)
38       parameter (center_headers = 5)
39       parameter (center_trailers = 6)
40       parameter (lines_needed = 1)
41       parameter (width_needed = 2)
42       parameter (no_of_options = 3)