Mine

var dblNum:Number;
var dblDen:Number = 180

cmdConvert.onPress = function():Void {
	if (txtDegreeInput.text != "") {
		dblNum = txtDegreeInput.text
		drawLine();
		getFactor();
		angleTopLine_mc._rotation = -txtDegreeInput.text
	}
}

cmdReset.onPress = function():Void {
	clear();
	txtNum.text = ""
	txtDen.text = ""
	txtDegreeInput.text = ""
	angleTopLine_mc._rotation = 0
}

drawLine = function():Void {
	lineStyle(2, 0x000000, 100)
	moveTo(144, 127)
	lineTo(206, 127)
}

getFactor = function():Void {
	var i:Number = 1;
	var factor:Number;
	while (i <= 180) {
		if ( ((dblNum % i) == 0) && ((dblDen % i) == 0) ) {
			factor = i
		}
		i++
	}
	if ( (dblNum / factor) == 1 ) {
		txtNum.text = "p"
	}
	else if ( (dblNum / factor) == -1 ) {
		txtNum.text = "-p"
	}
	else {
		txtNum.text = (dblNum / factor) + "p"
	}
	txtDen.text = (dblDen / factor)	
}