//    ----------------------------------------
//    
//    The following SmartCAM code generator has been 
//    created to generate NC code for the respective 
//    machine and control combinations listed below. 
//    
//    Due to differences in programming styles, 
//    controller versions, and optional equipment, 
//    SmartCAMcnc DOES NOT and CANNOT guarantee
//    that the NC code generated is correct for any 
//    specific machine. Some modification to the code 
//    generator to match your setup and output 
//    requirements is likely necessary. 
//    
//    Modifications to code generators do not TYPICALLY
//    require a significant amount of time. SmartCAM 
//    customers with active SMA contracts are entitled 
//    to support for their code generators from the 
//    SmartCAMcnc Support Group. To contact them for 
//    support, please send an email to: 
//    Support@SmartCAMcnc.com. If you would like 
//    information on purchasing SMA for your SmartCAM 
//    products, please contact: Sales@SmartCAMcnc.com
//    
//    DISCLAIMER: It is the responsibility of the end 
//    user to confirm and verify that the NC code 
//    created by any code generator is accurate and 
//    will not cause a machine malfunction which 
//    could result in stock, tooling, machine, and/or 
//    personal injury. 
//    
//    SmartCAMcnc assumes no responsibility or 
//    liability for any damage caused or alleged to 
//    have been caused by the use of any of the code 
//    generators it provides.
//    ----------------------------------------

@COMMENTS

Machine: HEIDENHAIN

Control: 355

Notes:
The CG is in metric.

@START
%
0 BEGIN PGM #FILE INCH
#ONBLK TOOL CALL 0 Z S 0
 L Z#ZPOS R0 F2000 M
 L X#XPOS Y#YPOS R0 F2000 M06
#EVAL(#V1=#TLDIA/2)
 TOOL CALL #TOOL Z S #SPEED
 L X#XPOS Y#YPOS R0 F<#FEED> M03
 L Z#ZPOS R0 F M
@TOOLCHG
 L Z#ZHOME R< #DCOMP> F<#FEED> M
 L X#XHOME Y#YHOME R<#DCOMP> F<#FEED> M06
#EVAL(#V1=#TLDIA/2)
 TOOL CALL#TOOL Z S#SPEED
 <L X#XPOS Y#YPOS R#DCOMP F<#FEED> #SPNDL>
 L R F M08
@END
 L X#XPOS Y#YPOS R#DCOMP F<#FEED> M09
 L Z#ZPOS R#DCOMP F2000 M30
 END PGM #FILE INCH
%
@STPROF
 L X#XPOS Y#YPOS< Z#ZPOS> R#DCOMP F<#FEED> M
@ENDPROF
 L X#XPOS Y#YPOS< Z#ZPOS> R#DCOMP F<#FEED> M
@RAP
 L X#XPOS Y#YPOS< Z#ZPOS> R#DCOMP F2000 M
@LINE
 L X#XPOS Y#YPOS< Z#ZPOS> R#DCOMP F<#FEED> M
@ARC
 CC X#XCTR Y#YCTR
 C X#XPOS Y#YPOS DR#MOV R#DCOMP F<#FEED> M
@XZARC
 CC X#XCTR Z#ZCTR
 C X#XPOS Z#ZPOS DR#MOV R#DCOMP F<#FEED> M
@YZARC
 CC Y#XCTR Z#ZCTR
 C Y#XPOS Z#ZPOS DR#MOV R#DCOMP F<#FEED> M
@ZCLRMV
 L Z#ZPOS R#DCOMP F2000 M
@ZCHKMV
 L Z#ZPOS R#DCOMP F2000 M
@ZDPTHMV
 L Z#ZPOS R#DCOMP F#FEED M
@FXD1
#EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TALADRADO PROF.
 CYCL DEF 1.1 DIST. -2.000
 CYCL DEF 1.2 PROF. #ZDPTH
>#IF(#V9<>ZDPTH)<
 CYCL DEF 1.3 APROX. #ZDPTH
 CYCL DEF 1.4 T.ESPR 0
 CYCL DEF 1.5 F#FEED
>#EVAL(#V9=#ZDPTH)<L X#XPOS Y#YPOS R F#MOV M>
 CYCL CALL
@FXD2
#EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TALADRADO ESP.
 CYCL DEF 1.1 DIST. -2.000
 CYCL DEF 1.2 PROF. #ZDPTH
>#IF(#V9<>ZDPTH)<
 CYCL DEF 1.3 APROX. #ZDPTH
 CYCL DEF 1.4 T.ESPR 0
 CYCL DEF 1.5 F#FEED
>#EVAL(#V9=#ZDPTH)<L X#XPOS Y#YPOS R F#MOV M>
 CYCL CALL
@FXD3
#EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 2.0 ROSCADO
 CYCL DEF 2.1 DIST. -2.000
 CYCL DEF 2.2 PROF. #ZDPTH
>#IF(#V9<>ZDPTH)<
 CYCL DEF 2.3 T.ESPR 0
 CYCL DEF 2.4 F#FEED
>#EVAL(#V9=#ZDPTH)<L X#XPOS Y#YPOS R F#MOV M>
 CYCL CALL
@FXD5
#EVAL(#ZDPTH=#ZDPTH+2)#IF(#V9<>#ZDPTH)< CYCL DEF 1.0 TALADRADO PROF.
 CYCL DEF 1.1 DIST. -2.000
 CYCL DEF 1.2 PROF. #ZDPTH
>#IF(#V9<>ZDPTH)<
 CYCL DEF 1.3 APROX. #PECK
 CYCL DEF 1.4 T.ESPR 1
 CYCL DEF 1.5 F#FEED
>#EVAL(#V9=#ZDPTH)<L X#XPOS Y#YPOS R F#MOV M>
 CYCL CALL
@