Symbol DIVIDE

			6579	*
			6580	* THIS ROUTINE USES NUMVAL,$UNFIX,FIXFLO, AND $ARG3 + $FLOAT
			6581	*
			6582	*
			6583	* DIVIDE DIVIDES THE FIRST NUMERICAL ARGUMENT BY THE SECOND. THE
			6584	* ANSWER IS A LIST OF THE QUOTIENT AND THE REMAINDER.
			6585	*
			6586	* QUOTEN GIVES THE QUOTIENT WHEN THE FIRST NUMERICAL ARGUMENT IS
			6587	* DIVIDED BY THE SECOND.
			6588	*
			6589	* REMAIN GIVES THE REMAINDER WHEN THE FIRST NUMERICAL ARGUMENT IS
			6590	* DIVIDED BY THE SECOND.
	13420	0604 00 0 13510	6591	DIVIDE	STI	DIVND SAVE INDICATORS