BEGIN PGM COMP_BROT405 MM 
FN 9: IF +Q337 EQU +0 GOTO LBL 64
FN 9: IF +Q109 EQU +1 GOTO LBL 31
FN 9: IF +Q109 EQU +7 GOTO LBL 31
Q15 = 0
Q150 = ATAN ( ( Q31 - 0 ) / ( Q32 - 0 ) )
FN 9: IF +Q322 EQU +0 GOTO LBL 30
Q15 = ATAN ( ( Q321 - 0 ) / ( Q322 - 0 ) )
LBL 30
Q150 = Q150 - Q15
FN 9: IF +0 EQU +0 GOTO LBL 32
LBL 31
Q150 = ATAN ( ( Q31 - 0 ) / ( Q32 - 0 ) )
LBL 32
L IC-Q150 R0 FQ59
FN 18: SYSREAD Q0 = ID 500 NR Q337 IDX 6
Q0 = ( Q0 - Q150 ) % 360
FN 17: SYSWRITE ID 500 NR Q337 IDX 6 =+Q0
FN 9: IF +0 EQU +0 GOTO LBL 65
LBL 64
Q150 = ATAN ( ( Q31 - 0 ) / ( Q32 - 0 ) )
L IC-Q150 R0 FQ59
FN 18: SYSREAD Q6 = ID270 NR1 IDX6
Q6 = Q6 % 360
FN 22: FUNCT Q1 FNR 830 PIN 2 PIN 6 PEX+Q6 PEX+0
LBL 65
END PGM COMP_BROT405 MM 
