%
O8912(ROUGH CUTTING) 
#982=1 

N1 
M98P8952(TOOTH PROCESS SEQUENCE DECISION)
#962=#959*#961-#977
IF[#961EQ-1]GOTO6
 
#27=0.5
IF[#952LT0]THEN#27=-0.5
#30=#965/2/COS[#980] 
 
#28=#954 
IF[#952EQ0]GOTO2 
#28=#954+#965/2*TAN[#980]*#952/ABS[#952] 
 
N2 
M14
#32=ABS[#5044-[-#30]]
IF[#32LT0.001]GOTO4
#32=0.4
IF[#5045LT0]GOTO3
#32=-0.4 
 
N3 
M23
G90G00C[#962-#963+#960+#27]Y[-#30+#32]Z[#28-0.5] 
C[#962-#963+#960]Y[-#30]Z[#28] 
M22
GOTO5
 
N4 
G90G00C[#962-#963+#960+#27]Z[#28-0.5]
C[#962-#963+#960]Z[#28]
 
N5 
G00X[+#951/2+5.0+#981/2] 
G94G90G01X[+#951/2+#981/2]F#966
G01X[ABS[#964]+#981/2+#955]F[#966/4] 
G18
G91G01Z[#953-#954]C[-#960]F#966
G90G00X[+#951/2+5.0+#981/2]
 
GOTO1
N6 
 
M99
%