REAL LIBTST
	DATA LIBTST/6RLIBTST/
	CALL LDLIB (LIBTST)
	WRITE(5,1)
1	FORMAT('$KEY RETURN TO CONTINUE')
	READ(5,2)IDUM
2	FORMAT(A1)
	CALL MESSAG
	CALL EXIT
10	WRITE (5,3) IDS1,IDS2
3	FORMAT (' LDLIB ERROR STATUS:',2I7)
	CALL EXIT
	END