106.100	REM ***********Z/REFC***********
	A=TEMP.REAL
	TEMP.REAL=A-50
	TEMP1.REAL=A+50 : TEMP1.IMAG=TEMP.IMAG
	GOSUB 104.100
	TEMP.MAG=SQR(TEMP.REAL*TEMP.REAL+TEMP.IMAG*TEMP.IMAG)
	TEMP.PHA=57.296*ATN(TEMP.IMAG/TEMP.REAL)
	RETURN