105.100	REM ***********REFC/Z***********
	A=TEMP.MAG : B=TEMP.PHA
	SR=A*COS(B/57.296)
	IF SR<1E-12 THEN SR=1E-12
	SI=A*SIN(B/57.296)
	TEMP.REAL=1+SR : TEMP.IMAG=SI
	TEMP1.REAL=1-SR : TEMP1.IMAG=-SI
	GOSUB 104.100
	TEMR=TEMP.REAL : TEMI=TEMP.IMAG
	TEMP.REAL=50*TEMR : TEMP.IMAG=50*TEMI
	RETURN