ClassMethod Read(afile As %String, ByRef file As %Integer =  0 ) As %Status
{
	new io,str,i,mysc
	set io=$IO,$ZT="ReadErr",mysc= 1 
	open afile:"R": 5  
	if $t 
	{
		use afile
		for i= 1 : 1   
		{
			read str: 2  quit:$ZEOF  
			set file($i(file))=str
		}
	} else  {set mysc= 0 }
ReadErr
	set $ZT=""
	set:'($ZE["<ENDOFFILE>") mysc= 0 
	use io close afile
	quit mysc
}

		for i= 1 : 1   
		{
			read str: 2  quit:$ZEOF  
			set file($i(file))=str
		}