integer*4  demo_max_keys
	parameter (demo_max_keys = 100)
	integer*4  demo_name_length           
	parameter (demo_name_length=32)
	integer*4  demo_key_length           
	parameter (demo_key_length=16)
c
	structure /key/
	  integer*4 key
	  character*(demo_name_length) screen
	  logical*4 internal
	end structure
c
	structure /screen/
	  integer*4 n_keys
	  record /key/ keys(demo_max_keys)
	  character*(demo_name_length) name
	  character*(demo_name_length) prev_name
	  character*(demo_name_length) next_name
	  integer*4 row_cursor
	  integer*4 col_cursor
	  character*(demo_name_length) context
	  integer*4 linenr	!line for key display
	  logical*4 gotmsg	!if we had a message, 
	end structure
c
	structure /smg/
	  integer*4 dis_hdr
	  integer*4 dis_id
	  logical*4 uppercase
	  logical*4 screenname
	end structure