//    ----------------------------------------
//    
//    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 Type:  LeBlond Makino Baron 25 Lathe
      Control Type:  General Numeric GN6 Series

@START
#EVAL(#U0=0)
#IF(#U0)<start>
~LEBLOND P-#FILE #DATE          ~
P-#FILE #S0
=
#ONBLKM01
G70
G90
G92X#XPOSZ#ZPOS
#EVAL(#V6=#XPOS)
#EVAL(#V7=#ZPOS)
G00T#TOFF
#NEXTPT
#CALL(DEFAULTS)
#IF(#SPMODE=1,AND#SPEED<>0)<G92S#U1>
#IF(#SPMODE=0,AND#SPEED<>0)<#SPMODES#SPEED#C1
#SPNDL>
#IF(#SPEED<>0)<#EVAL(#C0=1)>#ELSE<#EVAL(#C0=0)>
#IF(#SPEED=0)<#CALL(BARFEED)>
#RESET(#C0)
#RESET(#MOV)

@TOOLCHG
#IF(#U0)<toolchg>
#EVAL(#C0=0)
#EVAL(#ABSI=0)
#MOVX#V6Z#V7
T#LTOOL#C0
M01
#ABSI
G92X#XPOSZ#ZPOS
#EVAL(#V6=#XPOS)
#EVAL(#V7=#ZPOS)
G00T#TOFF
<#SPOFF>
#NEXTPT
#CALL(DEFAULTS)
#IF(#SPMODE=1,AND#SPEED<>0)<G92S#U1>
#IF(#SPMODE=0,AND#SPEED<>0)<#SPMODES#SPEED#C1
#SPNDL>
#IF(#SPEED<>0)<#EVAL(#C0=1)>#ELSE<#EVAL(#C0=0)>
#IF(#SPEED=0)<#CALL(BARFEED)>
#RESET(#TOOL)
#RESET(#C0,#C1)
#RESET(#MOV,#SPNDL)

@DEFAULTS
#IF(#U0)<defaults>
#IF(#U1=0)<#EVAL(#U1=2000)>
#IF(#SPEED>876)<#EVAL(#C1=1)>#ELSE<#EVAL(#C1=0)>
#IF(#TLTYPE=1,OR#TLTYPE=2,OR#TLTYPE=4,OR#TLTYPE=5,OR#TLTYPE=7)<
#IF(#SPNDL=1)<#EVAL(#SPNDL=2)>#ELSE<#IF(#SPNDL=2)<#EVAL(#SPNDL=1)>>>

@END
#IF(#U0)<end>
#MOVX#V6Z#V7
T#LTOOL
M05
M09
M30
#OFFBLK%

@STPROF
#IF(#U0)<stprof>
#RESET(#FXD)
<#MOV><#DCOMP><X#XPOS><Z#ZPOS><#C0>
#IF(#SPMODE=1,AND#SPEED<>0)<<#C1>
<#SPNDL>>
<#SPMODE><S#SPEED>

@ENDPROF
#IF(#U0)<endprof>

@RAP
#IF(#U0)<rap>
#IF(#SPEED=0)<#EXIT>
#RESET(#FXD)
<#MOV><#DCOMP><X#XPOS><Z#ZPOS><#C0>
#IF(#SPMODE=1,AND#SPEED<>0)<<#C1>
<#SPNDL>>
<#SPMODE><S#SPEED>

@LINE
#IF(#U0)<line>
#RESET(#FXD)
<#MOV><#DCOMP><X#XPOS><Z#ZPOS><F#FEED>

@ARC
#IF(#U0)<arc>
#RESET(#FXD)
#MOV<X#XPOS><Z#ZPOS><I#XCTR><K#ZCTR><F#FEED>

@FXD1
#IF(#U0)<fxd1>
#IF(#U3=0)<#EVAL(#U3=60)>
#IF(#U4=0)<#EVAL(#U4=.015)>
#EVAL(#V5=#V0-#XPASS)
G78X#XPASSZ#ZPASSK#V5D#FMT(#U4,T0.4)A#FMT(#U3,F2.0)E#FMT(#FTHRD,P0.6)

@FXD4
#IF(#U0)<fxd4>
G33Z#ZPASSF#FEED#SPNDL
#IF(#SPNDL=1)<#EVAL(#SPNDL=2)>#ELSE<#EVAL(#SPNDL=1)>
G33Z#ZPOSF#FEED#SPNDL

@DWELL
#IF(#U0)<dwell>
G04U#DWELL#EVAL(#TIME=#DWELL/60)

@CSS_RPM
#IF(#U0)<css_rpm>
#EVAL(#U6=#XPOS)
#IF(#XPOS=0)<#EVAL(#U6=#TLWD/2)>
#IF(#SPMODE)<#EVAL(#U6=#SPEED*12/(#U6*3.1416))>
#ELSE<#EVAL(#U6=#SPEED)>

@BARFEED
#IF(#U0)<barfeed>
X#XPOSZ#ZPOS
M20
M21
G04X2.0

@CUTOFF
#IF(#U0)<cutoff>
@