R1=$AA_IW[X]

R2=$AA_IW[Z]

R12=$AA_IM[B]

R3=200

;IF(R2=0) GOTO N100

IF(R1>0) GOTO AM1

IF(R1<0) GOTO AM2

AM1:

IF(R2>0) GOTO AM11

R4=ATAN2(R2,R1)

GOTO N1

AM11:

R4=ATAN2(R2,R1)

GOTO N2

AM2:

IF(R2>0) GOTO AM22

R4=ATAN2(R2,-R1)

GOTO N3

AM22:

R4=ATAN2(R2,-R1)

GOTO N4

N1

IF(R12-R4>360) GOTO N5

IF(R12-R4<0) GOTO N6

G0 G90 Z=$AA_IW[Z]+R3

SUPA G0 B=DC(R12-R4)

GOTO N100

N2

IF(R12-R4>360) GOTO N5

IF(R12-R4<0) GOTO N6

G0 G90 Z=$AA_IW[Z]+R3

SUPA G0 B=DC(R12-R4)

GOTO N100

N3

IF(R12+R4>360) GOTO N8

IF(R12+R4<0) GOTO N7

G0 G90 Z=$AA_IW[Z]+R3

SUPA G0 B=DC(R12+R4)

GOTO N100

N4

IF(R12+R4>360) GOTO N8

IF(R12+R4<0) GOTO N7

G0 G90 Z=$AA_IW[Z]+R3

SUPA G0 B=DC(R12+R4)

GOTO N100

N5

G0 G90 Z=$AA_IW[Z]+R3

R4=(R12-R4)-360

G0 SUPA B=DC(R4)

GOTO N100

N6

G0 G90 Z=$AA_IW[Z]+R3

R4=360+(R12-R4)

G0 SUPA B=DC(R4)

GOTO N100

N7

G0 G90 Z=$AA_IW[Z]+R3

R4=360+(R12+R4)

G0 SUPA B=DC(R4)

GOTO N100

N8

G0 G90 Z=$AA_IW[Z]+R3

R4=(R12+R4)-360

G0 SUPA B=DC(R4)

GOTO N100

N100

M30