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