*20
/DEGRAD.
/JMP DEGREE : ENTER WITH RADIANS IN FAC
/             LEAVE WITH DECREES IN FAC.
/JMP RADIAN : ENTER WITH DEGREES
/             LEAVE WITH RADIANS.
	 
DEGREE,	FDIV
	FCON
	JMP 0
	 
RADIAN,	FMUL
	FCON
	JMP 0
	 
FCON,	7772		/.0174533
	2167
	6435
	 
/END DEGRAD.