!	PHASEC.COM


SET TT NOQUIET
R FORTRA
OUT:PHASEM=IN:PHASEM/V
OUT:PHASEA=IN:PHASEA/V
OUT:FIXFRM=IN:FIXFRM/V/S
^C
SET TT QUIET