include 'auto.inc'
c
	integer*4 symbol_name_max_size
	integer*4 symbol_value_max_size
c
	parameter (symbol_name_max_size = 255)
	parameter (symbol_value_max_size = 4095)
		
	structure /symbol_info/
	  integer*4 vm_zone
	  integer*4 ptr_top
	  integer*4 ptr_cur
	  integer*4 ptr_last
	  integer*4 count
	  integer*4 last_match
	  integer*4 nb_alloc
	end structure
c
	structure /symbol/
	  integer*4 ptr_next
	  integer*4 nk_name
	  integer*4 nk_value
	  integer*4 flag
	  integer*4 star_pos
	  character*(symbol_name_max_size) symbol_name
	  character*(symbol_value_max_size) symbol_value
	end structure
c
	integer*4 symbol_flag_verb
	integer*4 symbol_flag_image
	integer*4 symbol_flag_procedure
	integer*4 symbol_flag_other
	integer*4 symbol_flag_logical
c
	parameter (symbol_flag_verb      = 1)
	parameter (symbol_flag_image     = 2)
	parameter (symbol_flag_procedure = 3)
	parameter (symbol_flag_other     = 4)
	parameter (symbol_flag_logical   = 5)