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

//10/9/87
//Machine: Trumph TC180LW combination Punch Press - Laser
//Control: Trumph (General Numeric) GN6PB Control

@START
%
#EVAL(#V9=0)
#IF(#V1<1)<#EVAL(#V1=1)>
:#FMT(#V1,F4.0)(#FILE)
 G20 G40 G54 D00 M20
 G64 G90< #RFEED#EXC#V2> M08
 T#TOOL (#TDESC)
 M06 
 #C0
 / G28
 / G92 X98.0 Y51.0
#RESET(#C3)
@TOOLCHG
#IF(#TLOP=1)< T#TOOL (#TDESC)
 M06
< #C5>
#UPDATE(#FEED)>
#RESET(#PUNCH)
#IF(#TLOP=2)< T16 (TORCH BURN)
 M63>
@END
#IF(#LTOP=2)< M19>
#EVAL(#C5=0)
< #C5>
 G52 G90 X0 Y0< #RFEED#EXC#V2>
 G00< X#XPOS>< Y#YPOS>
 M30
#OFFBLK%
@STPROF
***start prof****
< #ABSI>
#IF(#TLOP=2)< M52
< G#LOFF>< X#XPOS>< Y#YPOS>
#EVAL(#V9=#V9+1)>
#IF(#TLOP=2)<#EXIT>
< #C0>
< X#XPOS>< Y#YPOS>#IF(#C0=0)< M24>#ELSE< M22>
@ENDPROF
#EVAL(#V9=0)
#EVAL(#CUTC=0)
#EVAL(#LOFF=0)
 M20
#IF(#TLOP=2)< #DCOMP D#LOFF #CUTC>
@RAP
***rapid****
< #ABSI>
< #MOV>< X#XPOS>< Y#YPOS>< T#TOOL>< #C3>
@LINE
#IF(#V9=1)<< #DCOMP>< X#XPOS>< Y#YPOS>< D#DOFF>>
#IF(#V9=1)<< F#FEED>< #CUTC>>
#IF(#V9=2)<< #DCOMP>< #MOV>< #C5>< X#XPOS>< Y#YPOS>< D#DOFF>>
#IF(#V9>2)<< #DCOMP>< #MOV>< X#XPOS>< Y#YPOS>< F#FEED>< D#DOFF>>
#IF(#TLOP=2)<#EVAL(#V9=#V9+1)>
#IF(#TLOP=1)<< #MOV>< #C5>< X#XPOS>< Y#YPOS>< Q#FEED>>
@ARC
#IF(#V9=1)<< #DCOMP>< #MOV>< X#XPOS>< Y#YPOS>< R#ARAD>>
#IF(#V9=1)<< F#FEED>< #CUTC>>
#IF(#V9=2)<< #DCOMP>< #MOV>< #C5>< X#XPOS>< Y#YPOS>< R#ARAD>>
#IF(#V9>2)<< #DCOMP>< #MOV>< X#XPOS>< Y#YPOS>< R#ARAD>< F#FEED>< D#DOFF>>
#IF(#TLOP=2)<#EVAL(#V9=#V9+1)>
#IF(#TLOP=1)<< #MOV>< #C5>< X#XPOS>< Y#YPOS>< R#ARAD>< Q#FEED>>
@REPO
 M20
#EVAL(#ABSI=0)
< #ABSI>
 X#XPOS Y#YPOS #RFEED#V2 M12
 G91 Y.05
#EVAL(#XSET=#XSET*-1)
 X#XSET M11 (REPOSITION)
 G90 G92 X#XPOS Y#YPOS
#RESET(#PUNCH,#ABSI)
@DWELL
 G04 P#DWELL#EVAL(#TIME=#TIME+#DWELL/60)
@BHC
 G72 X#XPOS Y#YPOS
#IF(#INC=0)< G26 I#ARAD J#STANG K#NHOL< T#TOOL>>
#ELSE< G77 I#ARAD J#STANG P#INC K#NHOL< T#TOOL>>
#EVAL(#INC=0)
@LAA
#EVAL(#NHOL=#NHOL-1)
 X#XPOS Y#YPOS< T#TOOL>
 G76 I#INC J#LNANG K#NHOL
#EVAL(#INC=0)
@GRID
#EVAL(#NHOL2=#NHOL2-1)#EVAL(#NHOL=#NHOL-1)
 X#XPOS Y#YPOS< T#TOOL>
#IF(#LNANG=90)<#EVAL(#INC2=-#INC2) G79 I#INC2 P#NHOL2 J#INC K#NHOL>
#IF(#LNANG=270.0)<#EVAL(#INC2=-#INC2) G79 I#INC2 P#NHOL2 J#INC K#NHOL>
#ELSE< G78 I#INC P#NHOL J#INC2 K#NHOL2>
#EVAL(#INC=0)
@SCHUTE
#EVAL(#ABSI=1)
< #ABSI> X14.875 Y3.25 #RFEED#V2
 M68
 M69
#RESET(#ABSI)
@LCHUTE
#EVAL(#ABSI=1)
< #ABSI> X23.0 Y0.0 #RFEED#V2
 M73
 M74
#RESET(#ABSI)
@STOP
 M00
@OPSTOP
 M01
@