WRITE (5,1)
1	FORMAT (' HOORAY - - IT WORKS')
	WRITE(5,2)
2	FORMAT(' TYPE <CR> TO EXIT ME')
	READ(5,3)IANS
3	FORMAT(1A1)
	CALL EXIT
	END