;RECEIV
;Receive a file - stop w/^C
;D. Pallmann

	SEARCH	SYS
	SEARCH	SYSSYM

START:	GETIMP	D.DDB,A5
	FSPEC	@A5,M68
	INIT	@A5
	OPENO	@A5
	JOBIDX	A0
	MOV	JOBTRM(A0),A0
	ORW	#3,@A0
10$:	KBD	EXIT
	FILOTB	@A5
	BR	10$

EXIT:	CLOSE	@A5
	EXIT

	END

.