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

//8/6/87
//Machine: AGIE, AGIEMERIC CNC-100 and CNC-123 4 Axis Wire EDM

@START
#EVAL(#V9=0)
#NEXTPT
@END
 M02
#OFFBLK%
@STPROF
#EVAL(#V9=0)
@ENDPROF
 G45 M21
@RAP
<< #MOV>< #DCOMP> X#XPOS Y#YPOS M21>
@LINE
#IF(#V9>2)<< #MOV>< X#XPOS>< Y#YPOS>< Q#QANG>< R#RANG>< #DCOMP>>
#IF(#V9>2)<#EXIT>
#IF(#V9>=0)<#EVAL(#V9=#V9+1)>
#IF(#V9=1)<#EVAL(#XSET=#XPOS)#EVAL(#YSET=#YPOS)#EVAL(#TANG=-1*#RANG)
#UPDATE(#XPOS,#YPOS)
#RESET(#DCOMP)>
#IF(#V9=2)<
%N1 D00 T#TOOL Q#TANG G43
#ONBLK G01< X#XPOS>< Y#YPOS> G44
 G01< X#XSET>< Y#YSET> G40
#EVAL(#V9=#V9+1)>
#IF(#V9>0)<#EXIT>< next, check for exit from a contour >
#IF(#V9=-2)<
 G01< X#XPOS>< Y#YPOS> G40#C0>
#IF(#V9=-1)<#EVAL(#XSET=#XPOS)#EVAL(#YSET=#YPOS)
< #MOV>< X#XPOS>< Y#YPOS> G44
 G01< X#XSET>< Y#YSET>
#EVAL(#V9=#V9-1)>
@ARC
 #MOV< X#XPOS>< Y#YPOS> I#XCTR J#YCTR< Q#QANG> G41#RESET(#DCOMP)
@STOP
 M00#EVAL(#V9=-1)
@