in_symExtract_chrs  IS OP  chr  
{	
	chr_code :=  charrep chr  ;  
	IF			(AND  							  (  64 < 		  chr_code) (		  chr_code <   91)) THEN	1  
	ELSEIF	(AND  							  (  97 <		  chr_code) (		  chr_code <  122)) THEN	1  
	ELSEIF	(AND  (-50 = first chr_code) ( -80 < second chr_code) (second chr_code <  -64)) THEN	1  
	ELSEIF	(AND  (-49 = first chr_code) (-129 < second chr_code) (second chr_code < -118)) THEN	1  
	ELSE		0
	ENDIF
}