integer*4 max_line_length,max_argument
	parameter (max_line_length=132)	! max i/o line length
	parameter (max_argument=10)	! max macro arguments

	character*1 quote_char,directive_char
	character*1 sub_char,esc_char
	common/character_constants/quote_char,directive_char,sub_char,
	1	esc_char
	save /character_constants/
	integer*4 next_label(0:9)
	common/integer_constants/next_label
	logical l_case_sensitive
	common/logical_constants/l_case_sensitive
	save /logical_constants/
	integer*4 res_error,res_integer,res_logical,res_string
	parameter (res_error=0,res_integer=1,res_logical=2)
	parameter (res_string=3)