pro euv,begrec,endrec		;Oct 20,88  
;					lists contents of an EUV data file
;					Warning: bytes not reversed
	fil=' '
	read,' input file name (TEST10)',fil
	openw,3,fil+'.lis'
	openr,1,fil+'.dat'
	a=assoc(1,intarr(600))
	printf,3,' listing of EUV data file:',fil
	for i=begrec,endrec do begin
		t=a(i) & printf,3,'rec =',i
		printf,3,'$(20i5)',t(0:39)
		printf,3,'$(20z5)',t(40:599)
		end
	close,1,3
	return
	end