BEGIN PGM CALC_ANGLE MM 
FN 11: IF +Q50 GT +0 GOTO LBL 31
FN 11: IF +Q50 GT -360.0001 GOTO LBL 32
Q50 = Q50 + 360
FN 9: IF +0 EQU +0 GOTO LBL 32
LBL 31
FN 12: IF +Q50 LT +360.0001 GOTO LBL 32
Q50 = Q50 - 360
LBL 32
FN 11: IF +Q50 GT +0 GOTO LBL 40
FN 11: IF +Q50 GT -90.0001 GOTO LBL 98
FN 11: IF +Q50 GT -270.0001 GOTO LBL 33
Q50 = Q50 + 360
FN 9: IF +0 EQU +0 GOTO LBL 98
LBL 33
Q50 = Q50 + 180
FN 9: IF +0 EQU +0 GOTO LBL 98
LBL 40
FN 12: IF +Q50 LT +90.0001 GOTO LBL 98
FN 12: IF +Q50 LT +270.0001 GOTO LBL 34
Q50 = Q50 - 360
FN 9: IF +0 EQU +0 GOTO LBL 98
LBL 34
Q50 = Q50 - 180
LBL 98
END PGM CALC_ANGLE MM 
