若是外螺紋則更改進退到點（內螺紋為X0Y0），更改螺距則更改＃1變量，更改螺紋有效長度則更改N14行（本文為-30），本文坐標點放在內螺紋孔口
%
N1 G40 G17 G90 ；初始化參數
N2 G91 G28 Z0.0 ；回參考點
N3 T03 ；換刀
N4 M06
N5 S1200
N6 G00 G90 G54 X0.0 Y0.0 ；指定坐標系，並快速進刀到X0 Y0
N7 G43 Z100. H03 ；增加刀長補正，刀長補正值在H03寄存器
N8 #1=1.5 ；第壹個自變量定義，即螺紋螺距
N9 #2=0 ；Z值自變量
N10 G1 Z1.5 F300
N11 G42 X16.5 Y0 D03 ；增加半徑補償
N12 G02 X16.5 Y0 Z[#2] I-16.5 J0 ；螺旋插補進刀
N13 #2=#2-#1
N14 IF [#2 GT -30] GOTO 12 ；假如＃2大於-30則跳轉到N12行，小於-30則下壹步
N15 G1 G40 X0 Y0 F100 ；取消半徑補償，並退刀到X0Y0
N16 M05
N17 G0 Z300.
N18 M30