数控车床怎样用宏程序编程加工梯形螺纹？

例：长30
公称直称12
t0101
m03
s300；换梯形螺纹刀，主轴转速300r/min
g00
x38
z5；快速走到起刀点
m08；开冷却
#101=12公称直径
#102右边借刀量初始值
#103导程
#104=0.2；每次吃刀深度，初始值
sqrt[11*11-#104*#104/2]
n1
if
[#101
lt
8]
goto2；加工到小径尺寸循环结束
g0
z[5+#102]
；快速走到右边加工起刀点
g92
x[#101]
z-30
f#103；右边加工一刀
g0
z[5+#103]
；快速走到左边加工起刀点
g92
x[-#101]
z-30
f#103；左边加工一刀
#101=#101-#104；改变加工直径
#102=#102+sqrt[11*11-#104/2*#104/2]
if[#101
lt
10]
then
#104=0.1；小于34时每次吃刀深度为0.1
goto
1；
m05；主轴停
m30；程序结束