PROGRAM GOTCHA
	BYTE BUFF(80)
1	WRITE(5,10)
10	FORMAT('$GOTCHA>')
	READ(5,11,END=1000)N,(BUFF(J),J=1,N)
11	FORMAT(Q,80A1)
	CALL CHAIN(BUFF,2)
1000	CALL EXIT
	END