integer*4  max_str_length
	parameter (max_str_length = 64)
	integer*4  max_unistr_length
	parameter (max_unistr_length=4*max_str_length)
	integer*4 max_deep
	parameter (max_deep  = 20)
	integer*4 max_path
	parameter (max_path = max_unistr_length*max_deep)
c
	structure /menu_info/
	  integer*4 n_items     	!#itmes at this level
	  integer*4 ptr_first           !pointer to first item
	  integer*4 ptr_parent		!pointer to parent (menu_item)
	end structure

	structure /menu_item/
	  integer*4 keyid               !in which table
	  integer*4 ptr_deep		!pointer to deeper structure (menu_info)
	  integer*4 ptr_next            !pointer to next (menu_item)
	  integer*4 ptr_top             !pointer to top (menu_info)
c
	  integer*4 row			!row for display
	  integer*4 col			!col for display
	  integer*4 level		!deep level
c
	  logical is_key		!key or value
	  logical expanded		!expanded view?
c
	  integer*4 nkar_name           !length of str name
	  character*(max_str_length) name !in tekst format
	  integer*4 nkar_uni              !Length of unicode name
	  character*(max_unistr_length) uniname	!in unicode format
c
	  integer*4 nk_linkpath
          character*(max_unistr_length) linkpath
          integer*4 linkcount
	  integer*4 linktype
c
	  integer*4 volatile
c
	  union
	    map		!for key values
	      integer*4 n_subkeys           !count of subkeys
	      integer*4 nk_classname
              character*(max_unistr_length) classname
              integer*4 cacheaction
	      integer*4 keyflags
	      integer*4 lastwrite(2)
              integer*4 secpolicy
	      integer*4 valuenumber
	    end map
	    map		!for data values
	      integer*4 dataflags(2)
	      integer*4 datatype
	      integer*4 nk_valuedata
	      character*(max_unistr_length) valuedata
	    end map
	  end union
	end structure
c
	structure /box/
	  integer*4 beg_row
	  integer*4 end_row
	  integer*4 beg_col
	  integer*4 end_col
	end structure
c
	structure /item/
	  integer*2 buflen,opcode
	  integer*4 bufadr,retadr
	end structure
c
	structure /smg/
	  integer*4 paste_id
	  integer*4 ncols               !terminal size
	  integer*4 nrows		
	  integer*4 dis_id
c
	  integer*4 size_col	!max written text 
	  integer*4 size_row
	  integer*4 max_col	!size of display
	  integer*4 max_row
	  integer*4 pos_col	!cursor cordinates
	  integer*4 pos_row     
	  integer*4 map_col	!vieuwport mapping
	  integer*4 map_row	
	  integer*4 view_col    !size of viewport
	  integer*4 view_row	
	  integer*4 dis_id_idx
	  record /box/ idx_box
c
	  integer*4 dis_id_data
	  integer*4 data_col
	  integer*4 data_row
	  integer*4 keyb_id
	  record /box/ data_box
c
	  integer*4 dis_bar_ver
	  integer*4 bar_ver_p1
	  integer*4 bar_ver_p2
	  record /box/ bar_ver_box
c
	  integer*4 dis_bar_hor
	  integer*4 bar_hor_p1
	  integer*4 bar_hor_p2
	  record /box/ bar_hor_box
	end structure
c
	integer*4 val_yes
	parameter (val_yes = 1)
	integer*4 val_no
	parameter (val_no  = 0)