include 'auto.inc' c c structure /token_info/ integer*4 ptr_first integer*4 n_token integer*4 zone_id integer*4 deleted_list end structure c structure /token/ integer*4 ptr_next !chain to next integer*4 idx_last !idx to last part of token logical*4 negated !was it a negated token integer*4 ptr_command !belongs to thos command integer*4 nk_name !length of name character*506 name !full name end structure