/	RECEIVE PROGRAM

LOOP,	6401		/FLAG UP?
	JMP	LOOP	/NO, WAIT FOR IT
	6406		/YES, READ IT IN
	DCA	TEMP	/SAVE IT
	TAD	("S&77)	/GET <^S>
	JMS	SEND	/SEND IT
	TAD	TEMP	/GET THE CHARACTER
	TLS		/OUTPUT IT
	TSF
	JMP	.-1
	CLA
	TAD	("Q&77)	/GET <^Q>
	JMS	SEND	/SEND IT
	JMP	LOOP	/KEEP GOING

SEND,	.-.
	6411
	JMP	.-1
	6416
	CLA
	JMP I	SEND

TEMP,	.-.