GET "GLOBALS"   

LET compare () BE $( 
	LET one = FINDINPUT (0) 
	AND two = FINDINPUT (1) 
	AND a, b = ?, ?  

	$(   
		READCH (one, LV a);  
		READCH (two, LV b);  

		IF a NE b DO
		$( 
			TY.DELETE ("DIFFERENT")   
		$) 
	$)   
	REPEATUNTIL a EQ ENDSTREAMCH
$) 

PROGRAM:
	compare ()   
	FINISH
****
