N10 G95G90

N20 T1D1

N30 M3 S800 

N40 G0 X50 Z0

N50 G01 X-1 F0.2

N60 G0 X40 Z3

N70 CYCLE95 ("tuoyuan", 1, 0.1, 0.3, 0, 0.2, 0.1, 0, 1, 0, 0, 0)

N80 G0 X100 Z100

N90 T2 D1

N100 M03 S1500

N110 CYCLE95 ("tuoyuan", 0, 0, 0, 0, 0, 0, 0.1, 5, 0, 0, 0)

N120 G0 X100 Z100

N130 M30

子程序：tuoyuan.iso

N10 G0 X0Z1						;以G0方式定位到椭圆弧起始点位置

N20 R1=30						;Z向椭圆坐标值

N30 R2=SQRT(1-(R1*R1)/900)*38                           ; X向椭圆坐标值

N40 R3=R1-30						; Z向椭圆弧起点Z值

N50 G01 X=R2 Z=R3				        ;沿椭圆曲线作直线插补逼近

N60 R1=R1-0.5					   	;Z向步距长度，每次更新0.5

N70 IF R1>=0 GOTOB 30			                ;如果R1大于等于0则返回N70

N80 Z -80

N90 X40