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

//12/21/87
//Machine: Wiedemann Cen/Mag 3000 with a Fanuc GM-B control

@START
O#FMT(#V1,F4.0)
#ONBLKX#XPOSY#YPOSM00
#RESET(#CUTC)
@END
M99
@ENDPROF
#IF(#TLOP=2)<#CUTC/DX0.0DY0.0>
#RESET(#CUTC)
#EVAL(#V9=0)
@RAP
#IF(#TLOP=1)<
<#ABSIX#XPOS><#ABSIY#YPOS><#PUNCH><T#TOOL><C#INDXA>
>
@LINE
#IF(#TLOP=1)<
<MOV/#ABSIX#XST#ABSIY#YST><T#TOOL>
#NBLMD
CAA/Z #LNLEN #TLWD #LNANG #FEED>
#IF(#TLOP=1)<#EXIT>
#IF(#V9=0)<#CUTC#DCOMP/#ABSIX#XST#ABSIY#YST><F#FEED>
#ABSIX#XPOS#ABSIY#YPOS
#EVAL(#V9=1)
@ARC
#IF(#TLOP=1)<
MOV/#ABSIX#XCTR#ABSIY#YCTR<T#TOOL>
#NBLMD
RAD/0 #ARAD #TLWD #STANG #TANG #FEED>
#IF(#TLOP=1)<#EXIT>
#IF(#V9=0)<#CUTC#DCOMP/#ABSIX#XST#ABSIY#YST><F#FEED>
CIR/#XCTR #YCTR #TANG
#EVAL(#V9=1)
@GRID
MOV/#ABSIX#XPOS#ABSIY#YPOS<T#TOOL>
GRD/#IF(#INC>0)<R #INC>#ELSE<#EVAL(#INC=-1*#INC)L #INC> #NHOL#EXLN
#IF(#INC2>0)< U #INC2>#ELSE<#EVAL(#INC2=-1*#INC2) D #INC> #NHOL2
@LAA
MOV/#ABSIX#XPOS#ABSIY#YPOS<T#TOOL>
LAA/#INC #LNANG #NHOL
@BHC
MOV/#ABSIX#XPOS#ABSIY#YPOS<T#TOOL>
BHC/#ARAD #STANG #NHOL
@REPO
M41
DY0.05
DX#XSET
DY-0.05
M42
@SLUG
X#XPOS Y#YPOS M03
M00
@DWELL
DWL/X#DWELL
@