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

//08/15/90
//Machine Type: Takisawa TC-2 Horizontal Lathe
//Control Type: FANUC 6T

@START
%
O#FILE
#RESET(#C0)
#ONBLK G28 U0.00 W0.00 T0000
 G50 X0.00 Z0.00 S3000
 #SPMODE S#SPEED #SPNDL
 #MOV T#TOFF M16
#NEXTPT

@TOOLCHG
 G00 X#XPOS Z#ZPOS 
 T#TOFF M16
 #SPMODE S#SPEED #SPNDL

@END
 G00 X#XHOME Z#ZHOME 
 M30
#OFFBLK%

@STPROF
#RESET(#FXD)
< #MOV>< X#XPOS>< Z#ZPOS>< #C0>

@RAP
#RESET(#FXD)
< #MOV>< X#XPOS>< Z#ZPOS>

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

@ARC
#RESET(#FXD)
< #MOV>< X#XPOS>< Z#ZPOS>< R#ARAD>< F#FEED>

@FXD1
< #FXD>< X#XPASS>< Z#ZPASS>< R#FMT(#XOV,T1.4)>< F#FTHRD>< #C0>

@FXD2
< G00< X#XPOS> Z#ZPOS>
< #FXD>< X#XPASS>< Z#ZPASS>< F#FEED>< #C0>

@FXD3
< G00 X#XPOS <Z#ZPOS>>
< #FXD>< X#XPASS>< Z#ZPASS>< F#FEED>< #C0>

@FXD4
 G01 Z#ZPASS F#FEED #SPNDL< #C0>
 M05
#IF(#SPNDL=1)<#EVAL(#SPNDL=2)>#ELSE<#EVAL(#SPNDL=1)>
 G01 Z#ZPOS F#FEED #SPNDL

@FXD5
#EVAL(#V0=ABS(#ZPASS))
#EVAL(#V9=#TLDIA*1)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*2)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*3)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*4)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*5)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*6)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*7)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*8)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*9)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*10)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*11)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*12)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*13)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*14)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>
#EVAL(#V9=#TLDIA*15)
#EVAL(#V8=#V9-.02)
#IF(#V0>#V9)
< G1 Z-#V9< F#FEED>< #C0>
 G0 Z#ZPOS
 Z-#V8>
#ELSE< G1 Z#ZPASS< F#FEED>< #C0>
 G0 Z#ZPOS>
#IF(#V0<=#V9)<#EXIT>

@DWELL
 G04 P#DWELL#EVAL(#TIME=#DWELL/60)
@