例：長30 公稱直稱12T0101 M03 S300；換梯形螺紋刀，主軸轉速300r/minG00 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.1GOTO 1；M05；主軸停M30；程序結束
例：長30 公稱直稱12T0101 M03 S300；換梯形螺紋刀，主軸轉速300r/minG00 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.1GOTO 1；M05；主軸停M30；程序結束