c
        structure /admin/
          integer*4 row_number
          integer*4 nlines
          integer*4 idx_des
        end structure
c
        integer*4  max_admins
        parameter (max_admins=4096)
c
        integer*4 magic_display_data_des
        parameter (magic_display_data_des = 'DSDD')
c
        integer*4 magic_display_data_raw
        parameter (magic_display_data_raw = 'DSDR')
c
	structure /screen_data/
	  integer*4 disp_nrows	!allocated length
	  integer*4 disp_ncols  !allocated width
	  integer*4 col         !current col
	  integer*4 row         !current row
	  integer*4 view_nrows  !view length
	  integer*4 view_ncols  !view width
	  integer*4 row_offset  !first row in view
	  integer*4 col_offset  !first col in view
	  integer*4 paste_row   !paste row on screen
	  integer*4 paste_col   !paste col on screen
	  integer*4 nlines      !actual length
	  integer*4 ncols	!actual width	(longest line)
	end structure	  
c
	structure /display_data_des/
	  integer*4 dis_id		!display id for data
	  integer*4 dis_id_offset       !display id for offset
	  record /screen_data/ screen   !screen data
	  integer*4 nk_off              !length of offset field (may be 0)
	  integer*4 ncol_offset		!total lenght of offset display
	  integer*4 n_des		!#descriptions entries
	  integer*4 n_admins            !#admin entries
	  record /admin/ admins(max_admins) 
	  integer*4 magic
	end structure
        structure /display_data_raw/
          integer*4 dis_id
	  record /screen_data/ screen
          integer*4 nk_off
          integer*4 indx
	  integer*4 magic
        end structure
