why can not I cut the thread today?

N4 G18 G61 N6 M05 #<N1>=17.85 ( номинал ) #<N2>=1.5 ( шаг ) #<N7>=[0.61344*#<N2>] ( глубина резьбы ) #<N3>=5 ( начало резьбы ) #<N4>=16 ( длина резьбы ) #<N5>=1 ( заход и выход. L0 без, L1 заход, L2 выход, or L3 оба ) #<N6>=1.5 ( длина захода и выхода ) o<o_thread> call [#<N1>][#<N2>][#<N3>][#<N4>][#<N5>][#<N6>][#<N7>][1] M2

o<o_thread> sub G21 G61 G95 G18 G7 ( DIAMETER MODE ) #<M>=[#1] ( номинал ) #<P>=[#2] ( шаг GAS 5/8 ) #<startZ>=[#3] ( начало резьбы ) #<Len>=[#4] ( длина резьбы ) #<Taper>=[#5] ( заход и выход. L0 без, L1 заход, L2 выход, or L3 оба ) #<TaperL>=[#6] ( длина захода и выхода ) #<I>=0.5 ( отступ ) #<StartD>=[#<M>+1] #<D>=[#<M>] #<FC> = [#<P>*0.5] o1001 IF [#<FC> GT 0.65] #<FC>=0.65 o1001 ENDIF M6 T2G43 M3 G96 S70 D500 (DEBUG,#<P>) G0 X[#<StartD>] Z[#<startZ>] G1 X[#<M>+#<I>] F100 G76 Z[-#<Len>+#<startZ>] P[#<P>] I[-#<I>] J[#<FC>] K[#7*2] H2 L[#<Taper>] E[#<TaperL>] R2 G0 X[#<StartD>] Z[#<startZ>] o<clear> IF [#8 GT 0] (или еще один проход для чистки резьбы после универсальной пластины) G96 D2250 S250 G1 G95 X[#<D>]F0.025 Z[-#<Len>+#<startZ>] X[#<StartD>] G0 X[#<StartD>] Z[#<startZ>] o<clear> ENDIF M5 o<o_thread> endsub