%
O8915(LEFT TOOTH CROWNING) 
#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+#975+#958+#970+#27]Y[+#30+#32]Z[#28-0.5] 
C[#962-#963+#975+#958+#970]Y[+#30]Z[#28] 
M22
GOTO5
 
N4 
G90G00C[#962-#963+#975+#958+#970+#27]Z[#28-0.5]
C[#962-#963+#975+#958+#970]Z[#28]
 
N5 
G00X[+#951/2.0+5.0+#981/2] 
G94G90G01X[+#951/2.0+#981/2]F#966
G01X[ABS[#964]+#955*#956/2.0+#981/2-#968]F[#966/4] 
G18
G91G02Z[#953-#954]R#967C[-#975]F#966 
G90G00X[+#951/2.0+5.0+#981/2]
 
GOTO1
N6 
 
M99
%