IMPLICIT INTEGER (A-Z)
	INTEGER*2 WRDBUF(256)
	CHARACTER*50 FILNAM
10	TYPE 1000
1000	FORMAT(' File name => '$)
	READ(5,1001,END=999)FILEN,FILNAM
1001	FORMAT(Q,A)
	WRITE(6,1005)
1005	FORMAT(' Attribute: '$)
	READ(5,1006)ATRCOD
1006	FORMAT(Z4)
	WRITE(6,1007)
1007	FORMAT(' Attribute length (in bytes): '$)
	READ(5,1006)ATRLEN
	STS=GETATR(FILNAM(1:FILEN),FILEN,WRDBUF,ATRCOD,ATRLEN)
	IF((STS.AND.1).NE.1) CALL EXIT(STS)
	WRITE(6,1008)(WRDBUF(I),I=1,(ATRLEN+1)/2)
1008	FORMAT(8(1X,O6))
	GOTO 10
999	STOP
	END