104.100 REM ***********DIVCOM***********
	A=TEMP.REAL : B=TEMP.IMAG
	C=TEMP1.REAL : D=TEMP1.IMAG
	E=C*C+D*D
	IF E<1E-12 THEN E=1E-12
	TEMP.REAL=(A*C+B*D)/E
	TEMP.IMAG=(B*C-A*D)/E
	RETURN