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