//    ----------------------------------------
//    
//    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.
//    ----------------------------------------

//Machine : Giddings & Lewis Horizontal Lathe
//Control : NumeriPATH 800-L
//Date    : 10/26/92
@START
#EVAL(#U0=0)
#IF(#U0=1)<start>
%
//You have to do this to get the last tool to return to the
//  correct location.
#NEXTPT
#CALL(DEFAULTS)
#NEXTPT
#EVAL(#C0=0)//Default to coolant on.
#EVAL(#C3=1)//Default to high range.
#ONBLKG0X#V3Z#V4S40.0T0H0#SPNDL#C3
X#XPOSZ#ZPOSE#FEEDS1500C#SPEEDT#TOOLH#TOOL#C0
#UPDATE(#DOFF)

@TOOLCHG
#IF(#U0=1,OR#U0=2)<**********************************  toolchg>
#CALL(DEFAULTS)
#NEXTPT
<#SPOFF>
G0X#V3Z#V4<#C3><#SPNDL>
X#XPOSZ#ZPOSE#FEEDS1500C#SPEEDT#TOOLH#TOOL<#C0>
#UPDATE(#DOFF)

@END
#IF(#U0=1,OR#U0=2)<**********************************  end>
G0X#XHOMEM5M9
Z#ZHOMEH0
M2
#OFFBLK%

@DEFAULTS
#IF(#U0=1)< defaults>
#EVAL(#V3=#XPOS)
#EVAL(#V4=#ZPOS)
#EVAL(#U6=1500)//Default spindle speed

@STPROF
#IF(#U0=1)<**********************************  stprof>
<#MOV><X#XPOS><Z#ZPOS>

@RAP
#IF(#U0=1)<**********************************  rap>
<#MOV><X#XPOS><Z#ZPOS><H#DOFF>

@LINE
#IF(#U0=1)<**********************************  line>
#MOV<X#XPOS><Z#ZPOS><E#FEED><H#DOFF>

@ARC
#IF(#U0=1)<**********************************  arc>
#MOVX#XPOSZ#ZPOSI#XCTRK#ZCTR<E#FEED><H#DOFF>

@FXD1//Thread
#IF(#U0=1)<**********************************  fxd1>
G33<X#XPOS>Z#ZPOSE#FTHRD

@FXD4//Tap
#IF(#U0=1)<**********************************  fxd4>
G33Z#ZPASSE#FEED
M5
#IF(#SPNDL=1)<#EVAL(#SPNDL=2)>#ELSE<#EVAL(#SPNDL=1)>
#SPNDL
G33Z#ZPOSE#FEED
#IF(#SPNDL=1)<#EVAL(#SPNDL=2)>#ELSE<#EVAL(#SPNDL=1)>
@