START	LAW	17700
	DAC	TASK#
	.IODEV 2,3
	.INIT 2,0,START
	.INIT 3,1,START
	.SEEK 2,NAME1
	.ENTER 3,NAME2
GO	.READ 2,2,BUFF,52
	.WAIT 2
	.WRITE 3,2,BUFF,52
	.WAIT 3
	ISZ	TASK
	JMP	GO
	.CLOSE 2
	.CLOSE 3
	.EXIT
BUFF	.BLOCK 200
NAME1	.SIXBT	'DISCAPSRC'
NAME2	.SIXBT	'ANSWERSRC'
	.END START
