%
O6045(ZEROE RIGHT TOOTH)
IF[#570EQ1]GOTO30(LEFT TOOTH GOTO30)
IF[#576EQ0]GOTO4(BIAS ADJUST SKIP)

(C ANGLE  Z+ TO Z-ADJUSTMENT BY BIAS)
#8=0(TIP C ANGLE Z+ TO Z-)
IF[#578EQ0]GOTO1
#8=360.*[#503-#504]/#578

N1
#9=0(ROOT C ANGLE Z+ TO Z-)
IF[#579EQ0]GOTO2
#9=360.*[#503-#504]/#579

N2
#7=[#9-#8]/[#576-1](C ANGLE PITCH)
#23=#8+#7*#577(CURRENT C ANGLE Z+ TO Z-)

(LEAD C ADJUSTMENT BY BIAS)
#4=0
IF[#502EQ0]GOTO3
#4=360*[#503-#575]/#502(To #15 #16)

N3
#5=#23*[#503-#575]/[#503-#504]
#15=#4-#5(LEAD C ADJUSTMENT)
GOTO5

N4
(NO BIAS ADJUST)
#23=#532(RIGHT C ROTATION ANGLE Z+TO-)
#15=#528(LEAD C ADJUSTMENT RIGHT)

(********************************************)
N5
IF[#571EQ0]GOTO10
#572=0

N10
(COORDINATE SET)
#3=#513+#514-#508-#507+#15(C-COORDINATE)
#24=#516(X-COORDINATE)
#25=-#515+#524(Y-COORDINATE)

IF[#571NE0]GOTO11(ONE WAY CUTTING GOTO11)
IF[#572EQ0]GOTO11(FIRST PASS GOT11)
GOTO12

N11
(APPROACH)
G00X[#501+5.0]
IF[#571EQ1]GOTO12(DOWNCUT GOTO12)
G00Z[#503]
C[#3]Y[#25]
GOTO 13
N12
Z[#504]
C[#3+#23]Y[#25]

N13
IF[#572EQ2]GOTO14
IF[#571EQ1]GOTO14

(GO)
G00C[#3]Y[#25]
G01X[#24]F2000(ADJUST F VALUE)
G19V0W0
G03Z[#504]R#523H[#23]F#517
GOTO15

N14
(BACK)
G01C[#3+#23]Y[#25]
G01X[#24]F2000(ADJUST F VALUE)
G19V0W0
G02Z[#503]R#523H[-#23]F#517

N15
#577=#577+1(PROFILE PASS COUNTER)

N30
M99
%
