主程序: 

N10 G95 G90       

N20 T3 D1 

N30 M3 S1000 

N40 G0 X100 Z100 

N50 Z0

N60 MCALL cycle999(50,5,-2,0.1)                 ;调用MCALL及cycle999子程序

N70 X50 Z=-15              			;切削第一个凹槽

N80 X50 Z=-25             			;切削第二个凹槽

N90 X50 Z=-35 					;切削第三个凹槽

N100 MCALL                                      ;取消MCALL

N110 G0 X100 Z100				;退刀

N120 M30 					;程序结束



子程序: cycle999.iso

N10 PROC cycle999(real safe, real xit, real zit, real fff)

N20 G01 X=IC(-xit) F=fff 

N30 G0 X=safe 

N40 Z=IC(zit) 

N50 G01 X=IC(-xit) F=fff 

N60 G0 X=safe 

N70 ret