.TITLE EX6
*EX6:	130
	GOTO NEXT
	WRITE
	SET BY R1
*NEXT:	135
	SET BY R3
*
	SET HLT
	.END