车削多头螺纹宏程序

627604250

程序原文如下，广数系统

  F0 v1 |" O' ^) c1 K
%
' S/ r3 a1 K/ Z1 h6 G2 y+ }- RO0001
#1=10.;(大径)
  V4 u0 D9 X' t( k#2=8.;(小径)
#3=-50.;(终点)
. g1 b/ |. a+ b#4=1.5;(牙距)
6 j( }- f. R1 K, h+ z* G7 H#5=1.012;(缩水率）
#6=15.;(起点)
) M) L' d/ x$ r* p& G#7=6;(螺纹头数)
. n! a$ V1 y7 t- l6 d: U#8=#4*#5;
#9=#7*#8;
. c, t  E8 ~. M: n' j( N8 k. d#10=#6+#9
T0101;
M03 S500;
7 `: {, J+ t# |$ q; JM08;
5 C. s; H* }; d) Q$ d% S! A  CWHILE [#6 LT #10] DO 1;
G0 G99 X[#1+2.];
2 @$ a& ?0 l! _# p* ^; ]Z#6;
G76 P020160 Q20 R0.;
G76 X#2 Z#3 P811 Q50 F#9;
- d+ a% Z5 i) v#6=#6+#8;
9 t* C9 U- W3 X; p3 X$ D- {/ y8 MEND 1;
2 R5 T' a# p9 x1 X8 ], W" P" ^G0 Z100. M09;
M05;
M30;
" g8 b; M5 L9 s' _( v- D%

2 T$ j. c2 g, u6 ^  Z( z现在想在这个基础上进一步车削多头梯形螺纹，不知道该咋定义，目前的操作是车削完成了补刀补实现的，有没有这方面大神指点一下呢？
$ Y! b& A: Z% S" i& C& h* k' J