.TITLE EX6
*EX6:	100
	GOTO NEXT
	WRITE
	SET BY R1
*NEXT:	105
	SET BY R2
*
	SET HLT
	.END